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

Fix proper detection of output executable being run.

Browse source
This commit is contained in:
FellippeHeitor 2016-07-02 02:50:43 -03:00
parent bad8133d16
commit 240814c6cc
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
source/qb64.bas
View file

@ -1171,12 +1171,10 @@ IF LEN(path.source$) THEN
END IF
CHDIR path.source$
path.source$ = _CWD$
IF RIGHT$(path.source$, 1) <> pathsep$ THEN path.source$ = path.source$ + pathsep$
CHDIR currentdir$
END IF
IF SaveExeWithSource THEN
path.exe$ = path.source$
IF RIGHT$(path.exe$, 1) <> pathsep$ THEN path.exe$ = path.exe$ + pathsep$
END IF
IF SaveExeWithSource THEN path.exe$ = path.source$
IF path.exe$ = "" THEN
IF INSTR(_OS$, "WIN") THEN path.exe$ = "..\..\" ELSE path.exe$ = "../../"
END IF
@ -11383,6 +11381,8 @@ IF idemode = 0 AND No_C_Compile_Mode = 0 THEN
SaveExeWithSource = -1 'Override the global setting if an output file was specified
END IF
END IF
t.path.exe$ = path.exe$
IF path.exe$ = "../../" OR path.exe$ = "..\..\" THEN path.exe$ = ""
IF _FILEEXISTS(path.exe$ + file$ + extension$) THEN
E = 0
ON ERROR GOTO qberror_test
@ -11392,6 +11392,7 @@ IF idemode = 0 AND No_C_Compile_Mode = 0 THEN
a$ = "CANNOT CREATE " + CHR$(34) + file$ + extension$ + CHR$(34) + " BECAUSE THE FILE IS ALREADY IN USE!": GOTO errmes
END IF
END IF
path.exe$ = t.path.exe$
END IF
@ -12201,6 +12202,8 @@ IF compfailed THEN
GOTO ideerror
END IF
IF compfailed THEN PRINT "C++ COMPILATION FAILED!"
ELSE
IF idemode = 0 THEN PRINT "OUTPUT: "; path.exe$ + file$ + extension$
END IF