mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 09:56:12 +02:00
IDE: project: if target file is set and apply conventions is off then always pas -o
git-svn-id: trunk@48128 -
This commit is contained in:
parent
a46cfc71b6
commit
a819e545f5
@ -3098,11 +3098,14 @@ begin
|
|||||||
if NewTargetDirectory <> '' then
|
if NewTargetDirectory <> '' then
|
||||||
switches := switches + ' '+PrepareCmdLineOption('-FE' + NewTargetDirectory);
|
switches := switches + ' '+PrepareCmdLineOption('-FE' + NewTargetDirectory);
|
||||||
NewTargetFileName := ExtractFileName(NewTargetFilename);
|
NewTargetFileName := ExtractFileName(NewTargetFilename);
|
||||||
if (NewTargetFilename<>'')
|
if (NewTargetFilename<>'') then
|
||||||
and (NewTargetFilename<>ChangeFileExt(ExtractFileName(CurMainSrcFile),GetTargetFileExt))
|
begin
|
||||||
then begin
|
if (not TargetFilenameApplyConventions)
|
||||||
// custom target => pass -o
|
or (NewTargetFilename<>ChangeFileExt(ExtractFileName(CurMainSrcFile),GetTargetFileExt))
|
||||||
switches := switches + ' '+PrepareCmdLineOption('-o' + NewTargetFileName);
|
then begin
|
||||||
|
// custom target => pass -o
|
||||||
|
switches := switches + ' '+PrepareCmdLineOption('-o' + NewTargetFileName);
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user