mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-05 20:30:24 +00:00
Fix to relative paths for console compilation.
This commit is contained in:
parent
d8c01d89cb
commit
81a0e7a4b7
|
@ -1156,8 +1156,20 @@ f$ = RemoveFileExtension$(f$)
|
||||||
|
|
||||||
path.exe$ = ""
|
path.exe$ = ""
|
||||||
IF SaveExeWithSource THEN
|
IF SaveExeWithSource THEN
|
||||||
|
currentdir$ = _CWD$
|
||||||
path.exe$ = getfilepath$(sourcefile$)
|
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
|
END IF
|
||||||
IF path.exe$ = "" THEN
|
IF path.exe$ = "" THEN
|
||||||
IF INSTR(_OS$, "WIN") THEN path.exe$ = "..\..\" ELSE path.exe$ = "../../"
|
IF INSTR(_OS$, "WIN") THEN path.exe$ = "..\..\" ELSE path.exe$ = "../../"
|
||||||
|
@ -19847,8 +19859,8 @@ END SUB
|
||||||
|
|
||||||
SUB reginternal
|
SUB reginternal
|
||||||
reginternalsubfunc = 1
|
reginternalsubfunc = 1
|
||||||
'$INCLUDE:'subs_functions\subs_functions.bas'
|
'$INCLUDE:'subs_functions\subs_functions.bas'
|
||||||
'$INCLUDE:'subs_functions\extensions\extension_list.bas'
|
'$INCLUDE:'subs_functions\extensions\extension_list.bas'
|
||||||
reginternalsubfunc = 0
|
reginternalsubfunc = 0
|
||||||
END SUB
|
END SUB
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue