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

IDE: quick compile: do not save complete-flag, bug #26659

Browse Source 
git-svn-id: trunk@46097 -
This commit is contained in:
mattias 2014-08-31 16:57:12 +00:00
parent 5bc5c42c07
commit afeb291987
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/main.pp
View File

@ -6476,6 +6476,7 @@ var
FPCVersion, FPCRelease, FPCPatch: integer;
aCompileHint: String;
OldToolStatus: TIDEToolStatus;
IsComplete: Boolean;
begin
Result:=SourceFileMgr.PrepareForCompileWithMsg;
if Result<>mrOk then begin
@ -6708,7 +6709,8 @@ begin
exit;
end;
// compilation succeded -> write state file
Result:=Project1.SaveStateFile(CompilerFilename,CompilerParams,true);
IsComplete:=[pbfSkipLinking,pbfSkipAssembler,pbfSkipTools]*Flags=[];
Result:=Project1.SaveStateFile(CompilerFilename,CompilerParams,IsComplete);
if Result<>mrOk then begin
debugln(['TMainIDE.DoBuildProject SaveStateFile after compile failed']);
exit;