Commit 220eac06 authored by Mattias Gaertner's avatar Mattias Gaertner 🙃
Browse files

ide: project target: apply default extension even if the file has already an...

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

git-svn-id: trunk@38437 -
parent d54a1f46
......@@ -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;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment