QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-08 19:35:13 +00:00
Code Releases Wiki Activity

Adds more descriptive error message for Duplicate Label

Browse source
This commit is contained in:
Fellippe Heitor 2021-01-26 21:01:23 -03:00
parent c0ce8d40b5
commit 9e92d13f70
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
source/qb64.bas
View file

@ -3257,7 +3257,7 @@ DO
s = Labels(r).Scope s = Labels(r).Scope
IF s = subfuncn OR s = -1 THEN 'same scope? IF s = subfuncn OR s = -1 THEN 'same scope?
IF s = -1 THEN Labels(r).Scope = subfuncn 'acquire scope IF s = -1 THEN Labels(r).Scope = subfuncn 'acquire scope
IF Labels(r).State = 1 THEN a$ = "Duplicate label": GOTO errmes IF Labels(r).State = 1 THEN a$ = "Duplicate label (" + RTRIM$(Labels(r).cn) + ")": GOTO errmes
'aquire state 0 types 'aquire state 0 types
tlayout$ = RTRIM$(Labels(r).cn) tlayout$ = RTRIM$(Labels(r).cn)
GOTO addlabaq100 GOTO addlabaq100
@ -3319,7 +3319,7 @@ DO
s = Labels(r).Scope s = Labels(r).Scope
IF s = subfuncn OR s = -1 THEN 'same scope? IF s = subfuncn OR s = -1 THEN 'same scope?
IF s = -1 THEN Labels(r).Scope = subfuncn 'acquire scope IF s = -1 THEN Labels(r).Scope = subfuncn 'acquire scope
IF Labels(r).State = 1 THEN a$ = "Duplicate label": GOTO errmes IF Labels(r).State = 1 THEN a$ = "Duplicate label (" + RTRIM$(Labels(r).cn) + ")": GOTO errmes
'aquire state 0 types 'aquire state 0 types
tlayout$ = RTRIM$(Labels(r).cn) tlayout$ = RTRIM$(Labels(r).cn)
GOTO addlabaq GOTO addlabaq