QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-04 23:30:24 +00:00
Code Releases Wiki Activity

Stores full type name with variable list.

Browse source
This commit is contained in:
FellippeHeitor 2021-07-24 16:16:18 -03:00
parent ed59d6411e
commit 8f2e969711
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
source/qb64.bas
View file

@ -115,6 +115,7 @@ TYPE usedVarList
includedLine AS LONG
includedFile AS STRING
scope AS LONG
varType AS STRING
subfunc AS STRING
localIndex AS LONG
cname AS STRING
@ -14248,6 +14249,7 @@ SUB vWatchVariable (this$, action AS _BYTE)
totalSharedVariablesFromMainModule = totalSharedVariablesFromMainModule + 1
mainModuleSharedVariablesList$ = mainModuleSharedVariablesList$ + MKL$(LEN(this$)) + this$
END IF
manageVariableList id.cn, this$, totalMainModuleVariables - 1, 0
ELSE
totalLocalVariables = totalLocalVariables + 1
localVariablesList$ = localVariablesList$ + "vwatch_local_vars[" + str2$(totalLocalVariables - 1) + "] = &" + this$ + ";" + CRLF
@ -25911,8 +25913,8 @@ END SUB
SUB manageVariableList (__name$, __cname$, localIndex AS LONG, action AS _BYTE)
DIM findItem AS LONG, cname$, i AS LONG, name$
name$ = __name$
cname$ = __cname$
name$ = RTRIM$(__name$)
cname$ = RTRIM$(__cname$)
IF LEN(cname$) = 0 THEN EXIT SUB
@ -25946,10 +25948,14 @@ SUB manageVariableList (__name$, __cname$, localIndex AS LONG, action AS _BYTE)
END IF
usedVariableList(i).scope = subfuncn
usedVariableList(i).subfunc = subfunc
usedVariableList(i).varType = id2fulltypename$
usedVariableList(i).cname = cname$
usedVariableList(i).localIndex = localIndex
IF LEN(RTRIM$(id.mayhave)) = 0 AND LEN(RTRIM$(id.musthave)) > 0 THEN usedVariableList(i).name = name$ + RTRIM$(id.musthave)
IF LEN(RTRIM$(id.musthave)) = 0 AND LEN(RTRIM$(id.mayhave)) > 0 THEN usedVariableList(i).name = name$ + RTRIM$(id.mayhave)
IF LEN(RTRIM$(id.musthave)) > 0 THEN
usedVariableList(i).name = name$ + RTRIM$(id.musthave)
ELSE
usedVariableList(i).name = name$
END IF
totalVariablesCreated = totalVariablesCreated + 1
END IF
CASE ELSE 'find and mark as used