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

Fix command line compilation

Browse source
This commit is contained in:
Galleondragon 2015-11-02 21:32:45 +11:00
parent accdaf1ce0
commit ab6c51a6b2
1 changed files with 23 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
source/qb64.bas
View file

@ -1,8 +1,6 @@
'All variables will be of type LONG unless explicitly defined 'All variables will be of type LONG unless explicitly defined
DEFLNG A-Z DEFLNG A-Z
deleteThis$ = "testAutoBuildProcessGitHub"
'All arrays will be dynamically allocated so they can be REDIM-ed 'All arrays will be dynamically allocated so they can be REDIM-ed
'$DYNAMIC '$DYNAMIC
@ -1553,7 +1551,9 @@ DO
wholeline$ = lineinput3$ wholeline$ = lineinput3$
IF wholeline$ = CHR$(13) THEN EXIT DO IF wholeline$ = CHR$(13) THEN EXIT DO
ideprepass: ideprepass:
prepassLastLine:
IF lastLine <> 0 OR firstLine <> 0 THEN IF lastLine <> 0 OR firstLine <> 0 THEN
lineBackup$ = wholeline$ 'backup the real line (will be blank when lastline is set) lineBackup$ = wholeline$ 'backup the real line (will be blank when lastline is set)
@ -2685,6 +2685,15 @@ DO
IF idemode THEN GOTO ideret2 IF idemode THEN GOTO ideret2
LOOP LOOP
'add final line
IF lastLineReturn = 0 THEN
lastLineReturn = 1
lastLine = 1
wholeline$ = ""
GOTO prepassLastLine
END IF
IF definingtype THEN definingtype = 0 'ignore this error so that auto-formatting can be performed and catch it again later IF definingtype THEN definingtype = 0 'ignore this error so that auto-formatting can be performed and catch it again later
IF declaringlibrary THEN declaringlibrary = 0 'ignore this error so that auto-formatting can be performed and catch it again later IF declaringlibrary THEN declaringlibrary = 0 'ignore this error so that auto-formatting can be performed and catch it again later
@ -2695,13 +2704,15 @@ lineinput3index = 1 'reset input line
'ide specific 'ide specific
ide3: ide3:
addmetainclude$ = "" 'reset stray meta-includes addmetainclude$ = "" 'reset stray meta-includes
'reset altered variables 'reset altered variables
DataOffset = 0 DataOffset = 0
inclevel = 0 inclevel = 0
subfuncn = 0 subfuncn = 0
lastLineReturn = 0
lastLine = 0
firstLine = 1
FOR i = 0 TO constlast: constdefined(i) = 0: NEXT 'undefine constants FOR i = 0 TO constlast: constdefined(i) = 0: NEXT 'undefine constants
@ -2776,6 +2787,7 @@ IF idemode THEN GOTO ideret3
DO DO
ide4: ide4:
includeline: includeline:
mainpassLastLine:
IF lastLine <> 0 OR firstLine <> 0 THEN IF lastLine <> 0 OR firstLine <> 0 THEN
lineBackup$ = a3$ 'backup the real first line (will be blank when lastline is set) lineBackup$ = a3$ 'backup the real first line (will be blank when lastline is set)
@ -10342,6 +10354,14 @@ DO
skipide4: skipide4:
LOOP LOOP
'add final line
IF lastLineReturn = 0 THEN
lastLineReturn = 1
lastLine = 1
wholeline$ = ""
GOTO mainpassLastLine
END IF
ide5: ide5:
linenumber = 0 linenumber = 0