mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-05 00:40:26 +00:00
Fixes TAB before ELSE bug for the IDE.
This commit is contained in:
parent
7068ce029e
commit
fcf68e093b
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue