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

ce project, outputFilename, path option forceExtension not applied 

propagated to symstring `<CPO>`
This commit is contained in:
Basile Burg 2016-11-20 19:41:28 +01:00
parent f939160d08
commit e979a68154
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/ce_ceproject.pas
View File

@ -641,8 +641,17 @@ begin
end;
procedure TCENativeProject.updateOutFilename;
var
fe: boolean = false;
begin
fOutputFilename := currentConfiguration.pathsOptions.outputFilename;
fe := currentConfiguration.pathsOptions.forceExtension;
if currentConfiguration.isOverriddenConfiguration and fOutputFilename.isEmpty and
fBaseConfig.isNotNil then
begin
fOutputFilename := fBaseConfig.pathsOptions.outputFilename;
fe := fBaseConfig.pathsOptions.forceExtension;
end;
// field is specified
if fOutputFilename.isNotEmpty then
begin
@ -668,13 +677,14 @@ begin
fOutputFilename := fileName.extractFilePath + fOutputFilename
else
fOutputFilename := GetTempDir(false) + fOutputFilename;
// force extension
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);
end;
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);
end;
//
fCanBeRun := false;