mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-20 09:04:44 +00:00
Displays normal and internal unused variable names in verbose warning.
This commit is contained in:
parent
fb346b2164
commit
d194cc8039
1 changed files with 5 additions and 2 deletions
|
@ -11642,6 +11642,7 @@ ide6:
|
||||||
|
|
||||||
|
|
||||||
IF totalUnusedVariables > 0 AND idemode = 0 THEN
|
IF totalUnusedVariables > 0 AND idemode = 0 THEN
|
||||||
|
PRINT
|
||||||
PRINT "WARNING:"; STR$(totalUnusedVariables); " UNUSED VARIABLES";
|
PRINT "WARNING:"; STR$(totalUnusedVariables); " UNUSED VARIABLES";
|
||||||
IF VerboseMode THEN
|
IF VerboseMode THEN
|
||||||
PRINT ":"
|
PRINT ":"
|
||||||
|
@ -11652,8 +11653,10 @@ IF totalUnusedVariables > 0 AND idemode = 0 THEN
|
||||||
IF findItem = 0 THEN EXIT DO
|
IF findItem = 0 THEN EXIT DO
|
||||||
whichLine = CVL(MID$(usedVariableList$, findItem - 4, 4))
|
whichLine = CVL(MID$(usedVariableList$, findItem - 4, 4))
|
||||||
varNameLen = CVI(MID$(usedVariableList$, findItem + 2, 2))
|
varNameLen = CVI(MID$(usedVariableList$, findItem + 2, 2))
|
||||||
varname$ = MID$(usedVariableList$, findItem + 4, varNameLen)
|
internalVarName$ = MID$(usedVariableList$, findItem + 4, varNameLen)
|
||||||
PRINT SPACE$(4); varname$; " (line"; STR$(whichLine); ")"
|
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
|
LOOP
|
||||||
ELSE
|
ELSE
|
||||||
PRINT
|
PRINT
|
||||||
|
|
Loading…
Reference in a new issue