From 220eac068bfc6bcbfe30c9061a7ec5f31d9484c8 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 30 Aug 2012 07:26:05 +0000
Subject: [PATCH] ide: project target: apply default extension even if the file
 has already an extension, issue #22750

git-svn-id: trunk@38437 -
---
 ide/compileroptions.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ide/compileroptions.pp b/ide/compileroptions.pp
index c950dc33b3..cb0a85bb3d 100644
--- a/ide/compileroptions.pp
+++ b/ide/compileroptions.pp
@@ -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;