mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-04 23:30:24 +00:00
Shows "duplicate constant definition" warnings when using command line.
This commit is contained in:
parent
4d47f73230
commit
952856fe2c
|
@ -113,6 +113,7 @@ DIM SHARED VerboseMode AS _BYTE, CMDLineFile AS STRING
|
||||||
|
|
||||||
DIM SHARED totalUnusedVariables AS LONG, usedVariableList$, bypassNextVariable AS _BYTE
|
DIM SHARED totalUnusedVariables AS LONG, usedVariableList$, bypassNextVariable AS _BYTE
|
||||||
DIM SHARED totalWarnings AS LONG, warningListItems AS LONG, lastWarningHeader AS STRING
|
DIM SHARED totalWarnings AS LONG, warningListItems AS LONG, lastWarningHeader AS STRING
|
||||||
|
DIM SHARED duplicateConstWarning AS _BYTE
|
||||||
DIM SHARED ExeIconSet AS LONG
|
DIM SHARED ExeIconSet AS LONG
|
||||||
DIM SHARED VersionInfoSet AS _BYTE
|
DIM SHARED VersionInfoSet AS _BYTE
|
||||||
|
|
||||||
|
@ -1434,6 +1435,7 @@ UserDefineCount = 6
|
||||||
usedVariableList$ = ""
|
usedVariableList$ = ""
|
||||||
totalUnusedVariables = 0
|
totalUnusedVariables = 0
|
||||||
totalWarnings = 0
|
totalWarnings = 0
|
||||||
|
duplicateConstWarning = 0
|
||||||
warningListItems = 0
|
warningListItems = 0
|
||||||
lastWarningHeader = ""
|
lastWarningHeader = ""
|
||||||
REDIM SHARED warning$(1000)
|
REDIM SHARED warning$(1000)
|
||||||
|
@ -2374,6 +2376,17 @@ DO
|
||||||
IF issueWarning THEN
|
IF issueWarning THEN
|
||||||
addWarning 0, "Constant already defined (same value):"
|
addWarning 0, "Constant already defined (same value):"
|
||||||
addWarning linenumber, n$
|
addWarning linenumber, n$
|
||||||
|
IF idemode = 0 THEN
|
||||||
|
IF duplicateConstWarning = 0 THEN PRINT "WARNING: duplicate constant definition";
|
||||||
|
IF VerboseMode THEN
|
||||||
|
PRINT ": '"; n$; "' (line"; STR$(linenumber); ")"
|
||||||
|
ELSE
|
||||||
|
IF duplicateConstWarning = 0 THEN
|
||||||
|
duplicateConstWarning = -1
|
||||||
|
PRINT
|
||||||
|
END IF
|
||||||
|
END IF
|
||||||
|
END IF
|
||||||
GOTO constAddDone
|
GOTO constAddDone
|
||||||
ELSE
|
ELSE
|
||||||
a$ = "Name already in use": GOTO errmes
|
a$ = "Name already in use": GOTO errmes
|
||||||
|
@ -11668,8 +11681,8 @@ OPEN compilelog$ FOR OUTPUT AS #1: CLOSE #1 'Clear log
|
||||||
|
|
||||||
IF totalUnusedVariables > 0 THEN
|
IF totalUnusedVariables > 0 THEN
|
||||||
IF idemode = 0 THEN
|
IF idemode = 0 THEN
|
||||||
PRINT
|
PRINT "WARNING:"; STR$(totalUnusedVariables); " unused variable";
|
||||||
PRINT "WARNING:"; STR$(totalUnusedVariables); " UNUSED VARIABLES";
|
IF totalUnusedVariables > 1 THEN PRINT "s";
|
||||||
IF VerboseMode THEN
|
IF VerboseMode THEN
|
||||||
PRINT ":"
|
PRINT ":"
|
||||||
findItem = 0
|
findItem = 0
|
||||||
|
|
Loading…
Reference in a new issue