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

lazbuild: fixed build

Browse Source 
git-svn-id: trunk@53185 -
This commit is contained in:
mattias 2016-10-20 20:20:38 +00:00
parent a9051948ae
commit 1a654e3c8b
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/lazbuild.lpr
View File

@ -867,6 +867,7 @@ var
if (CompReason in Project1.CompilerOptions.CompileReasons) then begin if (CompReason in Project1.CompilerOptions.CompileReasons) then begin
// compile // compile
// write state file to avoid building clean every time // write state file to avoid building clean every time
if Project1.SaveStateFile(CompilerFilename,CompilerParams,false)<>mrOk then if Project1.SaveStateFile(CompilerFilename,CompilerParams,false)<>mrOk then
Error(ErrorBuildFailed,'failed saving statefile of project '+AFilename); Error(ErrorBuildFailed,'failed saving statefile of project '+AFilename);

1
packager/packagesystem.pas
View File

@ -676,6 +676,7 @@ var
Param: TFPCParamValue; Param: TFPCParamValue;
Msg: String; Msg: String;
begin begin
if IDEMessagesWindow=nil then exit;
ParsedParams:=TObjectList.Create(true); ParsedParams:=TObjectList.Create(true);
try try
ParseFPCParameters(CompilerParams,ParsedParams); ParseFPCParameters(CompilerParams,ParsedParams);