paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-23 01:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use target_os.ExeExt for compiled executable

Browse Source
This commit is contained in:
pierre 2002-11-20 17:35:00 +00:00
parent e81a1b6764
commit 3e3c4683a3
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/fpcompil.pas
View File

@ -840,7 +840,14 @@ procedure DoCompile(Mode: TCompileMode);
{ following suggestion by Harsha Senanayake } { following suggestion by Harsha Senanayake }
IsExitEvent:=(E.What=evKeyDown); IsExitEvent:=(E.What=evKeyDown);
end; end;
function GetTargetExeExt : string;
begin
{$ifdef COMPILER_1_0}
GetTargetExeExt:=target_os.exeext;
{$else COMPILER_1_0}
GetTargetExeExt:=target_info.exeext;
{$endif COMPILER_1_0}
end;
var var
s,FileName: string; s,FileName: string;
ErrFile : Text; ErrFile : Text;
@ -888,9 +895,9 @@ begin
{ MainFile:=FixFileName(FExpand(FileName));} { MainFile:=FixFileName(FExpand(FileName));}
SetStatus('Preparing to compile...'+NameOf(MainFile)); SetStatus('Preparing to compile...'+NameOf(MainFile));
If GetEXEPath<>'' then If GetEXEPath<>'' then
EXEFile:=FixFileName(GetEXEPath+NameOf(MainFile)+ExeExt) EXEFile:=FixFileName(GetEXEPath+NameOf(MainFile)+GetTargetExeExt)
else else
EXEFile:=DirOf(MainFile)+NameOf(MainFile)+ExeExt; EXEFile:=DirOf(MainFile)+NameOf(MainFile)+GetTargetExeExt;
{ Reset } { Reset }
CtrlBreakHit:=false; CtrlBreakHit:=false;
{ Create Compiler Status Dialog } { Create Compiler Status Dialog }
@ -954,7 +961,7 @@ begin
{$ifdef HasSignal} {$ifdef HasSignal}
StopJmpValid:=true; StopJmpValid:=true;
JmpRet:=SetJmp(StopJmp); JmpRet:=SetJmp(StopJmp);
{$else} {$else}
JmpRet:=0; JmpRet:=0;
{$endif HasSignal} {$endif HasSignal}
if JmpRet=0 then if JmpRet=0 then
@ -1308,7 +1315,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.16 2002-10-23 19:19:40 hajny Revision 1.17 2002-11-20 17:35:00 pierre
* use target_os.ExeExt for compiled executable
Revision 1.16 2002/10/23 19:19:40 hajny
* another bunch of missing HasSignal conditionals * another bunch of missing HasSignal conditionals
Revision 1.15 2002/09/26 15:00:35 pierre Revision 1.15 2002/09/26 15:00:35 pierre