paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 14:19:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: project target: apply default extension even if the file has already an extension, issue #22750

Browse Source 
git-svn-id: trunk@38437 -
This commit is contained in:
mattias 2012-08-30 07:26:05 +00:00
parent d54a1f4647
commit 220eac068b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/compileroptions.pp
View File

@ -1819,7 +1819,7 @@ function TBaseCompilerOptions.CreateTargetFilename(
var
Ext: String;
begin
if (ExtractFileName(Result)='') or (ExtractFileExt(Result)<>'') then exit;
if (ExtractFileName(Result)='') then exit;
Ext:=GetTargetFileExt;
if Ext<>'' then begin
Result:=Result+Ext;