mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-16 21:15:15 +00:00
Mere code auto-layout.
This commit is contained in:
parent
70d13e0f53
commit
96ce163800
|
@ -222,35 +222,35 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
|
||||||
CASE "global var"
|
CASE "global var"
|
||||||
tempIndex = CVL(LEFT$(value$, 4))
|
tempIndex = CVL(LEFT$(value$, 4))
|
||||||
localIndex = CVL(MID$(value$, 5, 4))
|
localIndex = CVL(MID$(value$, 5, 4))
|
||||||
address = _offset(globalVariables) + LEN(address) * localIndex
|
address = _OFFSET(globalVariables) + LEN(address) * localIndex
|
||||||
$console
|
$CONSOLE
|
||||||
_echo "arrelem address=" + hex$(address)
|
_ECHO "arrelem address=" + HEX$(address)
|
||||||
address = _MEMGET(m, address, _OFFSET)
|
address = _MEMGET(m, address, _OFFSET)
|
||||||
address = _MEMGET(m, address, _OFFSET)
|
address = _MEMGET(m, address, _OFFSET)
|
||||||
_echo "var address=" + hex$(address)
|
_ECHO "var address=" + HEX$(address)
|
||||||
cmd$ = "global var:" + MKL$(tempIndex) + str$(address)
|
cmd$ = "global var:" + MKL$(tempIndex) + STR$(address)
|
||||||
GOSUB SendCommand
|
GOSUB SendCommand
|
||||||
CASE "local var"
|
CASE "local var"
|
||||||
tempIndex = CVL(LEFT$(value$, 4))
|
tempIndex = CVL(LEFT$(value$, 4))
|
||||||
localIndex = CVL(MID$(value$, 5, 4))
|
localIndex = CVL(MID$(value$, 5, 4))
|
||||||
address = _offset(localVariables) + LEN(address) * localIndex
|
address = _OFFSET(localVariables) + LEN(address) * localIndex
|
||||||
_echo "arrelem address=" + hex$(address)
|
_ECHO "arrelem address=" + HEX$(address)
|
||||||
address = _MEMGET(m, address, _OFFSET)
|
address = _MEMGET(m, address, _OFFSET)
|
||||||
address = _MEMGET(m, address, _OFFSET)
|
address = _MEMGET(m, address, _OFFSET)
|
||||||
_echo "var address=" + hex$(address)
|
_ECHO "var address=" + HEX$(address)
|
||||||
cmd$ = "local var:" + MKL$(tempIndex) + str$(address)
|
cmd$ = "local var:" + MKL$(tempIndex) + STR$(address)
|
||||||
|
GOSUB SendCommand
|
||||||
|
CASE "get address"
|
||||||
|
tempIndex = CVL(LEFT$(value$, 4))
|
||||||
|
sequence = CVI(MID$(value$, 5, 2))
|
||||||
|
varSize = CVL(MID$(value$, 7, 4))
|
||||||
|
address = VAL(MID$(value$, 11))
|
||||||
|
buf$ = SPACE$(varSize)
|
||||||
|
m = _MEM(address, varSize)
|
||||||
|
m2 = _MEM(_OFFSET(buf$), varSize)
|
||||||
|
_MEMCOPY m, m.OFFSET, m.SIZE TO m2, m2.OFFSET
|
||||||
|
cmd$ = "address read:" + MKL$(tempIndex) + MKI$(sequence) + buf$
|
||||||
GOSUB SendCommand
|
GOSUB SendCommand
|
||||||
case "get address"
|
|
||||||
tempIndex = cvl(left$(value$, 4))
|
|
||||||
sequence = cvi(mid$(value$, 5, 2))
|
|
||||||
varSize = cvl(mid$(value$, 7, 4))
|
|
||||||
address = val(mid$(value$, 11))
|
|
||||||
buf$ = space$(varSize)
|
|
||||||
m = _mem(address, varSize)
|
|
||||||
m2 = _mem(_offset(buf$), varSize)
|
|
||||||
_memcopy m, m.offset, m.size to m2, m2.offset
|
|
||||||
cmd$ = "address read:" + mkl$(tempIndex) + mki$(sequence) + buf$
|
|
||||||
gosub sendcommand
|
|
||||||
CASE "current sub"
|
CASE "current sub"
|
||||||
cmd$ = "current sub:" + vwatch_internalsubname$
|
cmd$ = "current sub:" + vwatch_internalsubname$
|
||||||
GOSUB SendCommand
|
GOSUB SendCommand
|
||||||
|
|
|
@ -6572,7 +6572,7 @@ SUB DebugMode
|
||||||
IF mouseDownOnX = mX AND mouseDownOnY = mY THEN
|
IF mouseDownOnX = mX AND mouseDownOnY = mY THEN
|
||||||
ideselect = 0
|
ideselect = 0
|
||||||
idecytemp = mY - 2 + idesy - 1
|
idecytemp = mY - 2 + idesy - 1
|
||||||
IF idecytemp =< iden THEN
|
IF idecytemp <= iden THEN
|
||||||
IF _KEYDOWN(100304) OR _KEYDOWN(100303) THEN
|
IF _KEYDOWN(100304) OR _KEYDOWN(100303) THEN
|
||||||
IF IdeSkipLines(idecytemp) = -1 THEN
|
IF IdeSkipLines(idecytemp) = -1 THEN
|
||||||
IdeSkipLines(idecytemp) = 0
|
IdeSkipLines(idecytemp) = 0
|
||||||
|
@ -6949,7 +6949,7 @@ SUB DebugMode
|
||||||
END IF
|
END IF
|
||||||
IF LEN(cmd$) THEN
|
IF LEN(cmd$) THEN
|
||||||
_CONSOLE ON
|
_CONSOLE ON
|
||||||
_ECHO "Requesting " + cmd$ + str$(tempIndex&)
|
_ECHO "Requesting " + cmd$ + STR$(tempIndex&)
|
||||||
'_ECHO "currentSub$ = " + currentSub$
|
'_ECHO "currentSub$ = " + currentSub$
|
||||||
cmd$ = cmd$ + MKL$(tempIndex&) + MKL$(usedVariableList(tempIndex&).localIndex)
|
cmd$ = cmd$ + MKL$(tempIndex&) + MKL$(usedVariableList(tempIndex&).localIndex)
|
||||||
GOSUB SendCommand
|
GOSUB SendCommand
|
||||||
|
@ -6959,60 +6959,60 @@ SUB DebugMode
|
||||||
END IF
|
END IF
|
||||||
CASE "global var", "local var"
|
CASE "global var", "local var"
|
||||||
tempIndex& = CVL(LEFT$(value$, 4))
|
tempIndex& = CVL(LEFT$(value$, 4))
|
||||||
address%& = val(mid$(value$, 5))
|
address%& = VAL(MID$(value$, 5))
|
||||||
varType$ = usedVariableList(tempIndex&).varType
|
varType$ = usedVariableList(tempIndex&).varType
|
||||||
if instr(varType$, "STRING *") then varType$ = "STRING"
|
IF INSTR(varType$, "STRING *") THEN varType$ = "STRING"
|
||||||
select case varType$
|
SELECT CASE varType$
|
||||||
case "_BYTE", "_UNSIGNED _BYTE": varSize& = len(dummy%%)
|
CASE "_BYTE", "_UNSIGNED _BYTE": varSize& = LEN(dummy%%)
|
||||||
case "INTEGER", "_UNSIGNED INTEGER": varSize& = len(dummy%)
|
CASE "INTEGER", "_UNSIGNED INTEGER": varSize& = LEN(dummy%)
|
||||||
case "LONG", "_UNSIGNED LONG": varSize& = len(dummy&)
|
CASE "LONG", "_UNSIGNED LONG": varSize& = LEN(dummy&)
|
||||||
case "_INTEGER64", "_UNSIGNED _INTEGER64": varSize& = len(dummy&&)
|
CASE "_INTEGER64", "_UNSIGNED _INTEGER64": varSize& = LEN(dummy&&)
|
||||||
case "SINGLE": varSize& = len(dummy!)
|
CASE "SINGLE": varSize& = LEN(dummy!)
|
||||||
case "DOUBLE": varSize& = len(dummy#)
|
CASE "DOUBLE": varSize& = LEN(dummy#)
|
||||||
case "_FLOAT": varSize& = len(dummy##)
|
CASE "_FLOAT": varSize& = LEN(dummy##)
|
||||||
case "_OFFSET", "_UNSIGNED _OFFSET": varSize& = len(dummy%&)
|
CASE "_OFFSET", "_UNSIGNED _OFFSET": varSize& = LEN(dummy%&)
|
||||||
case "STRING": varSize& = len(dummy%&) + len(dummy&)
|
CASE "STRING": varSize& = LEN(dummy%&) + LEN(dummy&)
|
||||||
end select
|
END SELECT
|
||||||
_echo "Requesting " + str$(varSize&) + " bytes from &H" + hex$(address%&)
|
_ECHO "Requesting " + STR$(varSize&) + " bytes from &H" + HEX$(address%&)
|
||||||
cmd$ = "get address:" + mkl$(tempIndex&) + mki$(1) + mkl$(varSize&) + str$(address%&)
|
cmd$ = "get address:" + MKL$(tempIndex&) + MKI$(1) + MKL$(varSize&) + STR$(address%&)
|
||||||
gosub SendCommand
|
GOSUB SendCommand
|
||||||
case "address read"
|
CASE "address read"
|
||||||
tempIndex& = cvl(left$(value$, 4))
|
tempIndex& = CVL(LEFT$(value$, 4))
|
||||||
sequence% = cvi(mid$(value$, 5, 2))
|
sequence% = CVI(MID$(value$, 5, 2))
|
||||||
_echo "Received data for " + str$(tempIndex&)
|
_ECHO "Received data for " + STR$(tempIndex&)
|
||||||
recvData$ = mid$(value$, 7)
|
recvData$ = MID$(value$, 7)
|
||||||
varType$ = usedVariableList(tempIndex&).varType
|
varType$ = usedVariableList(tempIndex&).varType
|
||||||
if instr(varType$, "STRING *") then varType$ = "STRING"
|
IF INSTR(varType$, "STRING *") THEN varType$ = "STRING"
|
||||||
select case varType$
|
SELECT CASE varType$
|
||||||
case "_BYTE": recvData$ = str$(_cv(_byte, recvData$))
|
CASE "_BYTE": recvData$ = STR$(_CV(_BYTE, recvData$))
|
||||||
case "_UNSIGNED _BYTE": recvData$ = str$(_cv(_unsigned _byte, recvData$))
|
CASE "_UNSIGNED _BYTE": recvData$ = STR$(_CV(_UNSIGNED _BYTE, recvData$))
|
||||||
case "INTEGER": recvData$ = str$(_cv(integer, recvData$))
|
CASE "INTEGER": recvData$ = STR$(_CV(INTEGER, recvData$))
|
||||||
case "_UNSIGNED INTEGER": recvData$ = str$(_cv(_unsigned integer, recvData$))
|
CASE "_UNSIGNED INTEGER": recvData$ = STR$(_CV(_UNSIGNED INTEGER, recvData$))
|
||||||
case "LONG": recvData$ = str$(_cv(long, recvData$))
|
CASE "LONG": recvData$ = STR$(_CV(LONG, recvData$))
|
||||||
case "_UNSIGNED LONG": recvData$ = str$(_cv(_unsigned long, recvData$))
|
CASE "_UNSIGNED LONG": recvData$ = STR$(_CV(_UNSIGNED LONG, recvData$))
|
||||||
case "_INTEGER64": recvData$ = str$(_cv(_integer64, recvData$))
|
CASE "_INTEGER64": recvData$ = STR$(_CV(_INTEGER64, recvData$))
|
||||||
case "_UNSIGNED _INTEGER64": recvData$ = str$(_cv(_unsigned _integer64, recvData$))
|
CASE "_UNSIGNED _INTEGER64": recvData$ = STR$(_CV(_UNSIGNED _INTEGER64, recvData$))
|
||||||
case "SINGLE": recvData$ = str$(_cv(single, recvData$))
|
CASE "SINGLE": recvData$ = STR$(_CV(SINGLE, recvData$))
|
||||||
case "DOUBLE": recvData$ = str$(_cv(double, recvData$))
|
CASE "DOUBLE": recvData$ = STR$(_CV(DOUBLE, recvData$))
|
||||||
case "_FLOAT": recvData$ = str$(_cv(_float, recvData$))
|
CASE "_FLOAT": recvData$ = STR$(_CV(_FLOAT, recvData$))
|
||||||
case "_OFFSET": 'TODO
|
CASE "_OFFSET": 'TODO
|
||||||
case "_UNSIGNED _OFFSET": 'TODO
|
CASE "_UNSIGNED _OFFSET": 'TODO
|
||||||
case "STRING"
|
CASE "STRING"
|
||||||
if sequence% = 1 then
|
IF sequence% = 1 THEN
|
||||||
if len(dummy%&) = 8 then
|
IF LEN(dummy%&) = 8 THEN
|
||||||
address%& = _cv(_integer64, left$(recvData$, 8))
|
address%& = _CV(_INTEGER64, LEFT$(recvData$, 8))
|
||||||
strLength& = cvl(mid$(recvData$, 9))
|
strLength& = CVL(MID$(recvData$, 9))
|
||||||
else
|
ELSE
|
||||||
address%& = _cv(long, left$(recvData$, 4))
|
address%& = _CV(LONG, LEFT$(recvData$, 4))
|
||||||
strLength& = cvl(mid$(recvData$, 5))
|
strLength& = CVL(MID$(recvData$, 5))
|
||||||
end if
|
END IF
|
||||||
address$ = left$(recvData$, len(dummy%&)) 'Pointer to data
|
address$ = LEFT$(recvData$, LEN(dummy%&)) 'Pointer to data
|
||||||
_echo "Requesting string of length " + str$(strLength&) + " at &H" + hex$(address%&)
|
_ECHO "Requesting string of length " + STR$(strLength&) + " at &H" + HEX$(address%&)
|
||||||
cmd$ = "get address:" + mkl$(tempIndex&) + mki$(2) + mkl$(strLength&) + str$(address%&)
|
cmd$ = "get address:" + MKL$(tempIndex&) + MKI$(2) + MKL$(strLength&) + STR$(address%&)
|
||||||
gosub sendcommand
|
GOSUB SendCommand
|
||||||
goto vwatch_string_seq1_done
|
GOTO vwatch_string_seq1_done
|
||||||
end if
|
END IF
|
||||||
end select
|
END SELECT
|
||||||
usedVariableList(tempIndex&).mostRecentValue = recvData$
|
usedVariableList(tempIndex&).mostRecentValue = recvData$
|
||||||
vwatch_string_seq1_done:
|
vwatch_string_seq1_done:
|
||||||
CASE "current sub"
|
CASE "current sub"
|
||||||
|
|
Loading…
Reference in a new issue