QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-29 11:40:38 +00:00
Code Issues Releases Wiki Activity

Latest non-working attempt.

Browse source
This commit is contained in:
FellippeHeitor 2021-07-26 18:26:52 -03:00
parent 84b5bb3055
commit c0b445789f
1 changed files with 33 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
internal/support/vwatch/vwatch.bm
View file

@ -7,7 +7,6 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
STATIC buffer$, endc$
DIM AS LONG i, tempIndex, localIndex
DIM AS _OFFSET address
DIM AS _MEM m
DIM start!, temp$, cmd$, value$, k&, dataType$, result$
DECLARE LIBRARY
@ -16,10 +15,6 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
SUB unlockvWatchHandle
END DECLARE
DECLARE CUSTOMTYPE LIBRARY
SUB memcpy (BYVAL dest AS _OFFSET, BYVAL source AS _OFFSET, BYVAL bytes AS LONG)
END DECLARE
IF bypass THEN EXIT SUB
vwatch_goto = 0
@ -221,7 +216,7 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
tempIndex = CVL(LEFT$(value$, 4))
localIndex = CVL(MID$(value$, 5, 4))
dataType$ = MID$(value$, 9)
address = globalVariables
address = globalVariables + LEN(address) * localIndex
GOSUB GetMemData
$CONSOLE
_ECHO "global var requested:" + STR$(tempIndex) + STR$(localIndex) + " " + dataType$
@ -232,7 +227,7 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
tempIndex = CVL(LEFT$(value$, 4))
localIndex = CVL(MID$(value$, 5, 4))
dataType$ = MID$(value$, 9)
address = localVariables
address = localVariables + LEN(address) * localIndex
GOSUB GetMemData
_ECHO "local var requested:" + STR$(tempIndex) + STR$(localIndex) + " " + dataType$
_ECHO "== result = " + result$
@ -311,25 +306,50 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
DIM integerType AS INTEGER, uintegerType AS _UNSIGNED INTEGER
DIM longType AS LONG, ulongType AS _UNSIGNED LONG
DIM singleType AS SINGLE, doubleType AS DOUBLE
DIM varOffset AS _OFFSET, m AS _MEM, m2 AS _MEM
SELECT CASE dataType$
CASE "INTEGER"
memcpy _OFFSET(integerType), address + LEN(address) * localIndex, 2
m = _MEM(address, 2)
m2 = _MEM(integerType)
_MEMCOPY m, m.OFFSET, m.SIZE TO m2, m2.OFFSET
_MEMFREE m
_MEMFREE m2
result$ = STR$(integerType)
CASE "_UNSIGNED INTEGER"
memcpy _OFFSET(uintegerType), address + LEN(address) * localIndex, 2
m = _MEM(address, 2)
m2 = _MEM(uintegerType)
_MEMCOPY m, m.OFFSET, m.SIZE TO m2, m2.OFFSET
_MEMFREE m
_MEMFREE m2
result$ = STR$(uintegerType)
CASE "LONG"
memcpy _OFFSET(longType), address + LEN(address) * localIndex, 4
m = _MEM(address, 4)
m2 = _MEM(longType)
_MEMCOPY m, m.OFFSET, m.SIZE TO m2, m2.OFFSET
_MEMFREE m
_MEMFREE m2
result$ = STR$(longType)
CASE "_UNSIGNED LONG"
memcpy _OFFSET(ulongType), address + LEN(address) * localIndex, 4
m = _MEM(address, 4)
m2 = _MEM(ulongType)
_MEMCOPY m, m.OFFSET, m.SIZE TO m2, m2.OFFSET
_MEMFREE m
_MEMFREE m2
result$ = STR$(ulongType)
CASE "SINGLE"
memcpy _OFFSET(singleType), address + LEN(address) * localIndex, 4
m = _MEM(address, 4)
m2 = _MEM(singleType)
_MEMCOPY m, m.OFFSET, m.SIZE TO m2, m2.OFFSET
_MEMFREE m
_MEMFREE m2
result$ = STR$(singleType)
CASE "DOUBLE"
memcpy _OFFSET(doubleType), address + LEN(address) * localIndex, 8
m = _MEM(address, 8)
m2 = _MEM(doubleType)
_MEMCOPY m, m.OFFSET, m.SIZE TO m2, m2.OFFSET
_MEMFREE m
_MEMFREE m2
result$ = STR$(doubleType)
END SELECT
RETURN