QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-03 07:41:21 +00:00
Code Releases Wiki Activity

Add local command (broken)

Browse source
This commit is contained in:
Luke Ceddia 2021-07-16 22:47:52 +10:00
parent eaeeb8e70e
commit 2b86bdcef2
No known key found for this signature in database
GPG key ID: 319344384A0759B0
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
source/utilities/vwatch.bm
View file

@ -5,6 +5,8 @@ SUB vwatch (linenumber AS LONG, localVariables AS _OFFSET)
STATIC AS _BYTE pauseMode, stepOver, bypass
STATIC buffer$, endc$
DIM AS LONG i
DIM AS _OFFSET address
DIM AS _MEM m
DIM start!, temp$, cmd$, value$, k&
DECLARE LIBRARY
@ -140,6 +142,10 @@ SUB vwatch (linenumber AS LONG, localVariables AS _OFFSET)
vwatch_breakpoints(CVL(value$)) = 0
CASE "clear all breakpoints"
REDIM vwatch_breakpoints(UBOUND(vwatch_breakpoints)) AS _BYTE
CASE "local"
i = CVL(value$)
address = localVariables + LEN(address) * i
PRINT "Local"; i; "is at"; _MEMGET(m, address, _OFFSET)
END SELECT
GOSUB GetCommand