forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

continue e979a68154

This commit is contained in:
Basile Burg 2016-11-20 20:13:56 +01:00
parent cbcec8eba4
commit 4652b59566
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/ce_ceproject.pas
View File

@ -643,6 +643,7 @@ end;
procedure TCENativeProject.updateOutFilename;
var
fe: boolean = false;
ext: string;
begin
fOutputFilename := currentConfiguration.pathsOptions.outputFilename;
fe := currentConfiguration.pathsOptions.forceExtension;
@ -680,11 +681,15 @@ begin
fe := true;
end;
//
if fe then case currentConfiguration.outputOptions.binaryKind of
executable: fOutputFilename := ChangeFileExt(fOutputFilename, exeExt);
staticlib: fOutputFilename := ChangeFileExt(fOutputFilename, libExt);
sharedlib: fOutputFilename := ChangeFileExt(fOutputFilename, dynExt);
obj: fOutputFilename := ChangeFileExt(fOutputFilename, objExt);
if fe then
begin
ext := fOutputFilename.extractFileExt;
case currentConfiguration.outputOptions.binaryKind of
executable: if ext <> exeExt then fOutputFilename += exeExt;
staticlib: if ext <> libExt then fOutputFilename += libExt;
sharedlib: if ext <> dynExt then fOutputFilename += dynExt;
obj: if ext <> dynExt then fOutputFilename += objExt;
end;
end;
//
fCanBeRun := false;