From fcf68e093bd647a4b6ee86160c1c6bf2066fac91 Mon Sep 17 00:00:00 2001 From: FellippeHeitor Date: Tue, 18 Sep 2018 01:03:55 -0300 Subject: [PATCH] Fixes TAB before ELSE bug for the IDE. --- source/qb64.bas | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/source/qb64.bas b/source/qb64.bas index 28d18081b..c782e7336 100644 --- a/source/qb64.bas +++ b/source/qb64.bas @@ -2788,6 +2788,7 @@ DO '2. Feed next line IF EOF(fh) = 0 THEN LINE INPUT #fh, x$ + wholeline$ = x$ inclinenumber(inclevel) = inclinenumber(inclevel) + 1 'create extended error string 'incerror$' @@ -5792,11 +5793,11 @@ DO 'END IF 'Notice the ELSE with the SELECT CASE? Before this patch, commands like those were considered valid QB64 code. temp$ = UCASE$(LTRIM$(RTRIM$(wholeline))) - IF NoIDEMode THEN + 'IF NoIDEMode THEN DO WHILE INSTR(temp$, CHR$(9)) ASC(temp$, INSTR(temp$, CHR$(9))) = 32 LOOP - END IF + 'END IF goodelse = 0 'a check to see if it's a good else IF LEFT$(temp$, 2) = "IF" THEN goodelse = -1: GOTO skipelsecheck 'If we have an IF, the else is probably good IF LEFT$(temp$, 4) = "ELSE" THEN goodelse = -1: GOTO skipelsecheck 'If it's an else by itself,then we'll call it good too at this point and let the rest of the syntax checking check for us