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:
parent
e30f19b38a
commit
ccb754d4e4
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue