paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 08:29:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed adding default ext for programs under win32

Browse Source 
git-svn-id: trunk@4830 -
This commit is contained in:
mattias 2003-11-23 00:09:30 +00:00
parent c8acf19ab2
commit 334c85cd0d
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/compileroptions.pp
View File

@ -1385,9 +1385,19 @@ function TBaseCompilerOptions.CreateTargetFilename(
const MainSourceFileName: string): string;
procedure AppendDefaultExt;
var
Ext: String;
begin
if CompareText(fTargetOS, 'win32') = 0 then
if ExtractFileExt(fTargetOS)<>'' then exit;
if CompareText(fTargetOS, 'win32') = 0 then begin
Result:=Result+'.exe';
exit;
end;
Ext:=GetDefaultExecutableExt;
if Ext<>'' then begin
Result:=Result+Ext;
exit;
end;
end;
begin
@ -1855,7 +1865,7 @@ Processor specific options:
OS2 = OS/2 (2.x) using the EMX extender.
WIN32 = Windows 32 bit.
... }
{ Only linux and win32 are in the dialog at this moment}
{ Target OS }
if TargetOS<>'' then
switches := switches + ' -T' + TargetOS;
{ --------------- Linking Tab ------------------- }