1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-05 00:40:26 +00:00

Prevents $NOPREFIX to be set after any other statement.

This commit is contained in:
FellippeHeitor 2020-01-18 01:33:29 -03:00
parent e30f19b38a
commit ccb754d4e4

View file

@ -968,6 +968,7 @@ IF C = 5 THEN 'end of program reached
GOTO ide3
ideret3:
sendc$ = CHR$(7) 'repass request
firstLine = 1
GOTO sendcommand
END IF
'assume idepass=2
@ -1175,6 +1176,7 @@ recompile:
lastLineReturn = 0
lastLine = 0
firstLine = 1
Resize = 0
Resize_Scale = 0
@ -1564,6 +1566,8 @@ DO
IF LEN(wholeline$) THEN
IF UCASE$(_TRIM$(wholeline$)) = "$NOPREFIX" THEN
IF firstLine = 0 THEN a$ = "$NOPREFIX must come before any other statements": GOTO errmes
qb64prefix$ = ""
qb64prefix_set = 1
@ -2459,6 +2463,7 @@ DO
'========================================
finishedlinepp:
firstLine = 0
END IF
a$ = ""
ca$ = ""
@ -2577,6 +2582,7 @@ inclevel = 0
subfuncn = 0
lastLineReturn = 0
lastLine = 0
firstLine = 1
UserDefineCount = 6
FOR i = 0 TO constlast: constdefined(i) = 0: NEXT 'undefine constants
@ -10365,6 +10371,8 @@ DO
finishednonexec:
firstLine = 0
IF layoutdone = 0 THEN layoutok = 0 'invalidate layout if not handled
IF continuelinefrom = 0 THEN 'note: manager #2 requires this condition