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

IDE: TBaseCompilerOptions.CreateTargetFilename using CreateAbsolutePath, bug #15435

Browse Source 
git-svn-id: trunk@26429 -
This commit is contained in:
mattias 2010-07-02 20:50:03 +00:00
parent ae9add2dd2
commit 8219a7bc0b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/compileroptions.pp
View File

@ -1781,7 +1781,7 @@ begin
// fully specified target filename
end else if Result<>'' then begin
// TargetFilename is relative to BaseDirectory
Result:=AppendPathDelim(BaseDirectory)+Result;
Result:=CreateAbsolutePath(Result,BaseDirectory);
end else begin
// no target given => put into unit output directory
// calculate output directory
@ -1791,7 +1791,7 @@ begin
OutFilename:=ExtractFileNameOnly(MainSourceFileName);
//debugln('TBaseCompilerOptions.CreateTargetFilename MainSourceFileName=',MainSourceFileName,' OutFilename=',OutFilename,' TargetFilename=',TargetFilename);
Result:=AppendPathDelim(UnitOutDir)+OutFilename;
Result:=CreateAbsolutePath(OutFilename,UnitOutDir);
end;
Result:=TrimFilename(Result);
AppendDefaultExt;