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

lazbuild: fixed append --build-ide options

Browse Source 
git-svn-id: trunk@36195 -
This commit is contained in:
mattias 2012-03-21 22:28:44 +00:00
parent fffcde8e44
commit 61bae46e30
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/lazbuild.lpr
View File

@ -406,6 +406,7 @@ var
InheritedOptionStrings: TInheritedCompOptsStrings; InheritedOptionStrings: TInheritedCompOptsStrings;
TargetDir: String; TargetDir: String;
i: Integer; i: Integer;
s: String;
begin begin
Result:=false; Result:=false;
Init; Init;
@ -447,9 +448,11 @@ begin
CurProf.TargetPlatform:=GetDefaultLCLWidgetType; CurProf.TargetPlatform:=GetDefaultLCLWidgetType;
if BuildIDEOptions<>'' then if BuildIDEOptions<>'' then
begin begin
if CurProf.ExtraOptions<>'' then s:=CurProf.ExtraOptions;
CurProf.ExtraOptions:=CurProf.ExtraOptions+' '; if s<>'' then
CurProf.ExtraOptions:=CurProf.ExtraOptions+BuildIDEOptions; s+=' ';
s+=BuildIDEOptions;
CurProf.ExtraOptions:=s;
end; end;
if BuildAll then if BuildAll then
CurProf.IdeBuildMode:=bmCleanAllBuild; CurProf.IdeBuildMode:=bmCleanAllBuild;