paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 00:02:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed targetfilename calculation

Browse Source 
git-svn-id: trunk@4940 -
This commit is contained in:
mattias 2003-12-23 15:19:49 +00:00
parent 7a4bc76f30
commit 8be99ebec5
1 changed files with 25 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
ide/compileroptions.pp
View File

@ -316,6 +316,7 @@ type
function GetIncludePath(RelativeToBaseDir: boolean): string;
function GetSrcPath(RelativeToBaseDir: boolean): string;
function GetLibraryPath(RelativeToBaseDir: boolean): string;
function GetUnitOutPath(RelativeToBaseDir: boolean): string;
function GetParsedPath(Option: TParsedCompilerOptString;
InheritedOption: TInheritedCompilerOption;
RelativeToBaseDir: boolean): string;
@ -1442,8 +1443,8 @@ function TBaseCompilerOptions.CreateTargetFilename(
var
Ext: String;
begin
if ExtractFileExt(fTargetOS)<>'' then exit;
if CompareText(fTargetOS, 'win32') = 0 then begin
if (ExtractFileName(Result)='') or (ExtractFileExt(Result)<>'') then exit;
if AnsiCompareText(fTargetOS, 'win32') = 0 then begin
Result:=Result+'.exe';
exit;
end;
@ -1454,19 +1455,24 @@ function TBaseCompilerOptions.CreateTargetFilename(
end;
end;
var
UnitOutDir: String;
OutFilename: String;
begin
if (TargetFilename <> '') then begin
Result:=ExtractFilePath(MainSourceFileName)+TargetFilename;
AppendDefaultExt;
// first case: fully specific target filename
if (TargetFilename <> '') and FilenameIsAbsolute(TargetFilename) then begin
Result:=TargetFilename;
end else begin
// calculate output directory
UnitOutDir:=GetUnitOutPath(false);
if UnitOutDir='' then
UnitOutDir:=ExtractFilePath(MainSourceFileName);
// fpc creates lowercase executables as default
Result:=lowercase(ExtractFileNameOnly(MainSourceFileName));
if Result<>'' then begin
Result:=ExtractFilePath(MainSourceFileName)+Result;
AppendDefaultExt;
end else
Result:='';
OutFilename:=lowercase(ExtractFileNameOnly(MainSourceFileName));
Result:=AppendPathDelim(UnitOutDir)+OutFilename;
end;
Result:=TrimFilename(Result);
AppendDefaultExt;
end;
procedure TBaseCompilerOptions.GetInheritedCompilerOptions(
@ -1545,6 +1551,14 @@ begin
Result:=GetParsedPath(pcosLibraryPath,icoLibraryPath,RelativeToBaseDir);
end;
function TBaseCompilerOptions.GetUnitOutPath(RelativeToBaseDir: boolean
): string;
begin
Result:=ParsedOpts.GetParsedValue(pcosOutputDir);
if (not RelativeToBaseDir) then
CreateAbsolutePath(Result,BaseDirectory);
end;
function TBaseCompilerOptions.GetParsedPath(Option: TParsedCompilerOptString;
InheritedOption: TInheritedCompilerOption;
RelativeToBaseDir: boolean): string;