mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-05 20:30:24 +00:00
Fix so IDE will catch DO WHILE (nothing) syntax errors
This commit is contained in:
parent
e9472743e5
commit
87b4783dd7
2
.gitignore
vendored
2
.gitignore
vendored
|
@ -5,3 +5,5 @@ internal/temp
|
||||||
*.exe
|
*.exe
|
||||||
internal/config.txt
|
internal/config.txt
|
||||||
internal/help
|
internal/help
|
||||||
|
internal/config(2).txt
|
||||||
|
internal/config(1).txt
|
||||||
|
|
|
@ -5183,6 +5183,7 @@ DO
|
||||||
IF secondelement$ = "WHILE" THEN whileuntil = 1: l$ = l$ + sp + "WHILE"
|
IF secondelement$ = "WHILE" THEN whileuntil = 1: l$ = l$ + sp + "WHILE"
|
||||||
IF secondelement$ = "UNTIL" THEN whileuntil = 2: l$ = l$ + sp + "UNTIL"
|
IF secondelement$ = "UNTIL" THEN whileuntil = 2: l$ = l$ + sp + "UNTIL"
|
||||||
IF whileuntil = 0 THEN a$ = "DO ERROR! Expected WHILE or UNTIL after DO.": GOTO errmes
|
IF whileuntil = 0 THEN a$ = "DO ERROR! Expected WHILE or UNTIL after DO.": GOTO errmes
|
||||||
|
IF whileuntil > 0 AND n = 2 THEN a$ = "Condition expected after WHILE/UNTIL": GOTO errmes
|
||||||
e$ = fixoperationorder(getelements$(ca$, 3, n))
|
e$ = fixoperationorder(getelements$(ca$, 3, n))
|
||||||
IF Error_Happened THEN GOTO errmes
|
IF Error_Happened THEN GOTO errmes
|
||||||
l$ = l$ + sp + tlayout$
|
l$ = l$ + sp + tlayout$
|
||||||
|
@ -5215,6 +5216,7 @@ DO
|
||||||
IF secondelement$ = "WHILE" THEN whileuntil = 1: l$ = l$ + sp + "WHILE"
|
IF secondelement$ = "WHILE" THEN whileuntil = 1: l$ = l$ + sp + "WHILE"
|
||||||
IF secondelement$ = "UNTIL" THEN whileuntil = 2: l$ = l$ + sp + "UNTIL"
|
IF secondelement$ = "UNTIL" THEN whileuntil = 2: l$ = l$ + sp + "UNTIL"
|
||||||
IF whileuntil = 0 THEN a$ = "LOOP ERROR! Expected WHILE or UNTIL after LOOP.": GOTO errmes
|
IF whileuntil = 0 THEN a$ = "LOOP ERROR! Expected WHILE or UNTIL after LOOP.": GOTO errmes
|
||||||
|
IF whileuntil > 0 AND n = 2 THEN a$ = "Condition expected after WHILE/UNTIL": GOTO errmes
|
||||||
e$ = fixoperationorder(getelements$(ca$, 3, n))
|
e$ = fixoperationorder(getelements$(ca$, 3, n))
|
||||||
IF Error_Happened THEN GOTO errmes
|
IF Error_Happened THEN GOTO errmes
|
||||||
l$ = l$ + sp + tlayout$
|
l$ = l$ + sp + tlayout$
|
||||||
|
|
Loading…
Reference in a new issue