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

IDE: do not use -FE switch if not needed

Browse Source 
git-svn-id: trunk@26387 -
This commit is contained in:
mattias 2010-07-01 11:56:15 +00:00
parent ddca91c04b
commit cb894f41be
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/compileroptions.pp
View File

@ -2718,6 +2718,15 @@ begin
if not (ccloAbsolutePaths in Flags) then
NewTargetFilename := CreateRelativePath(NewTargetFilename, BaseDirectory);
NewTargetDirectory := ExtractFilePath(NewTargetFilename);
if (NewTargetDirectory <> '')
and (CompareFilenames(ChompPathDelim(NewTargetDirectory),ChompPathDelim(BaseDirectory))=0)
then begin
// if target file is in base directory, do not use -FE switch
// Without -FE and -FU switch the compiler puts .ppu files in the source
// directories, which is Delphi compatible.
// See bug http://bugs.freepascal.org/view.php?id=15535
NewTargetDirectory:='';
end;
if NewTargetDirectory <> '' then
switches := switches + ' '+PrepareCmdLineOption('-FE' + NewTargetDirectory);
NewTargetFileName := ExtractFileName(NewTargetFilename);