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

Shows warning when there are unused variables at CL compilation.

Browse source 
Also adds -v switch for verbose mode (lists unused variables).
This commit is contained in:
FellippeHeitor 2019-01-12 15:52:31 -02:00
parent da24fde08d
commit a2114840de
1 changed files with 23 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
source/qb64.bas
View file

@ -109,7 +109,7 @@ OS_BITS = 64: IF INSTR(_OS$, "[32BIT]") THEN OS_BITS = 32
IF OS_BITS = 32 THEN _TITLE "QB64 x32" ELSE _TITLE "QB64 x64"
DIM SHARED ConsoleMode, No_C_Compile_Mode, Cloud, NoIDEMode
DIM SHARED CMDLineFile AS STRING
DIM SHARED VerboseMode AS _BYTE, CMDLineFile AS STRING
DIM SHARED totalUnusedVariables AS LONG, usedVariableList$, bypassNextVariable AS _BYTE
DIM SHARED warning$(100), totalWarnings AS LONG
@ -11636,12 +11636,29 @@ OPEN compilelog$ FOR OUTPUT AS #1: CLOSE #1 'Clear log
'PUT #1, 1, usedVariableList$
'CLOSE #1
IF idemode THEN GOTO ideret5
ide6:
IF totalUnusedVariables > 0 AND idemode = 0 THEN
PRINT "WARNING:"; STR$(totalUnusedVariables); " UNUSED VARIABLES";
IF VerboseMode THEN
PRINT ":"
findItem = 0
DO
s$ = CHR$(2) + CHR$(3)
findItem = INSTR(findItem + 1, usedVariableList$, s$)
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); ")"
LOOP
ELSE
PRINT
END IF
END IF
IF idemode = 0 AND No_C_Compile_Mode = 0 THEN
PRINT
@ -12691,6 +12708,7 @@ FUNCTION ParseCMDLineArgs$ ()
PRINT
PRINT "OPTIONS:"
PRINT " <file> Source file to load" ' '80 columns
PRINT " -v Verbose mode (detailed warnings)"
PRINT " -c Compile instead of edit"
PRINT " -x Compile instead of edit and output the result to the"
PRINT " console"
@ -12704,6 +12722,8 @@ FUNCTION ParseCMDLineArgs$ ()
PRINT " -l:<line number> Starts the IDE at the specified line number"
PRINT
SYSTEM
CASE "-v" 'Verbose mode
VerboseMode = -1
CASE "-p" 'Purge
IF os$ = "WIN" THEN
CHDIR "internal\c"