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

re-enabled ext constraint only if outputFilename is guessed

This commit is contained in:
Basile Burg 2014-12-20 17:35:30 +01:00
parent 31732d751b
commit 47f460d31a
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/ce_project.pas
View File

@ -444,20 +444,21 @@ begin
// try to guess
else if Sources.Count > 0 then
begin
// ideally, main() should be searched for, when project type is executable
fOutputFilename := extractFilename(Sources.Strings[0]);
fOutputFilename := stripFileExt(fOutputFilename);
if FileExists(fileName) then
fOutputFilename := extractFilePath(fileName) + 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;
end;
// 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;
//
fCanBeRun := false;
if currentConfiguration.outputOptions.binaryKind = executable then