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

Displays normal and internal unused variable names in verbose warning.

Browse source
This commit is contained in:
FellippeHeitor 2019-01-12 17:00:04 -02:00
parent fb346b2164
commit d194cc8039
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
source/qb64.bas
View file

@ -11642,6 +11642,7 @@ ide6:
IF totalUnusedVariables > 0 AND idemode = 0 THEN
PRINT
PRINT "WARNING:"; STR$(totalUnusedVariables); " UNUSED VARIABLES";
IF VerboseMode THEN
PRINT ":"
@ -11652,8 +11653,10 @@ IF totalUnusedVariables > 0 AND idemode = 0 THEN
IF findItem = 0 THEN EXIT DO
whichLine = CVL(MID$(usedVariableList$, findItem - 4, 4))
varNameLen = CVI(MID$(usedVariableList$, findItem + 2, 2))
varname$ = MID$(usedVariableList$, findItem + 4, varNameLen)
PRINT SPACE$(4); varname$; " (line"; STR$(whichLine); ")"
internalVarName$ = MID$(usedVariableList$, findItem + 4, varNameLen)
findLF = INSTR(findItem + 5 + varNameLen, usedVariableList$, CHR$(10))
varname$ = MID$(usedVariableList$, findItem + 5 + varNameLen, findLF - (findItem + 5 + varNameLen))
PRINT SPACE$(4); varname$; " ("; internalVarName$; ", line"; STR$(whichLine); ")"
LOOP
ELSE
PRINT