From 9e92d13f703358da3123395c6802a2c1e702d9ad Mon Sep 17 00:00:00 2001 From: Fellippe Heitor Date: Tue, 26 Jan 2021 21:01:23 -0300 Subject: [PATCH] Adds more descriptive error message for Duplicate Label --- source/qb64.bas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/source/qb64.bas b/source/qb64.bas index 9ec7c736e..d323ccfa7 100644 --- a/source/qb64.bas +++ b/source/qb64.bas @@ -3257,7 +3257,7 @@ DO s = Labels(r).Scope IF s = subfuncn OR s = -1 THEN 'same 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 tlayout$ = RTRIM$(Labels(r).cn) GOTO addlabaq100 @@ -3319,7 +3319,7 @@ DO s = Labels(r).Scope IF s = subfuncn OR s = -1 THEN 'same 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 tlayout$ = RTRIM$(Labels(r).cn) GOTO addlabaq @@ -25366,7 +25366,7 @@ SUB free_udt_varstrings (n$, udt, file, base_offset) element = udtenext(element) LOOP END SUB - + SUB initialise_array_udt_varstrings (n$, udt, base_offset, bytesperelement$, acc$) IF NOT udtxvariable(udt) THEN EXIT SUB offset = base_offset @@ -25420,7 +25420,7 @@ SUB copy_full_udt (dst$, src$, file, base_offset, udt) element = udtenext(element) LOOP END SUB - + SUB dump_udts f = FREEFILE OPEN "types.txt" FOR OUTPUT AS #f