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