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 to relative paths for console compilation.

Browse source
This commit is contained in:
Fellippe Heitor 2016-06-25 22:36:36 -03:00
parent d8c01d89cb
commit 81a0e7a4b7
1 changed files with 15 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
source/qb64.bas
View file

@ -1156,8 +1156,20 @@ f$ = RemoveFileExtension$(f$)
path.exe$ = ""
IF SaveExeWithSource THEN
currentdir$ = _CWD$
path.exe$ = getfilepath$(sourcefile$)
IF RIGHT$(path.exe$, 1) <> pathsep$ THEN path.exe$ = path.exe$ + pathsep$
IF LEN(path.exe$) THEN
IF _DIREXISTS(path.exe$) = 0 THEN
PRINT
PRINT "CANNOT LOCATE SOURCE FILE:" + sourcefile$
IF ConsoleMode THEN SYSTEM 1
END 1
END IF
CHDIR path.exe$
path.exe$ = _CWD$
CHDIR currentdir$
IF RIGHT$(path.exe$, 1) <> pathsep$ THEN path.exe$ = path.exe$ + pathsep$
END IF
END IF
IF path.exe$ = "" THEN
IF INSTR(_OS$, "WIN") THEN path.exe$ = "..\..\" ELSE path.exe$ = "../../"
@ -19847,8 +19859,8 @@ END SUB
SUB reginternal
reginternalsubfunc = 1
'$INCLUDE:'subs_functions\subs_functions.bas'
'$INCLUDE:'subs_functions\extensions\extension_list.bas'
'$INCLUDE:'subs_functions\subs_functions.bas'
'$INCLUDE:'subs_functions\extensions\extension_list.bas'
reginternalsubfunc = 0
END SUB