QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-02 05:00:38 +00:00
Code Issues Releases Wiki Activity

Fixes TAB before ELSE bug for the IDE.

Browse source
This commit is contained in:
FellippeHeitor 2018-09-18 01:03:55 -03:00
parent 7068ce029e
commit fcf68e093b
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
source/qb64.bas
View file

@ -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