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

ide: respect output filter aborting during compilation

Browse Source 
git-svn-id: trunk@25404 -
This commit is contained in:
paul 2010-05-14 16:02:32 +00:00
parent db0addae35
commit 8ba105a104
1 changed files with 22 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
ide/compiler.pp
View File

@ -204,11 +204,17 @@ begin
OutputFilter.Options:=[ofoSearchForFPCMessages,ofoExceptionOnError];
OutputFilter.CompilerOptions:=AProject.CompilerOptions;
{$IFDEF WithAsyncCompile}
if aFinishedCallback <> nil then begin
if aFinishedCallback <> nil then
begin
OutputFilter.ExecuteAsyncron(TheProcess, @CompilationFinished, Self);
end else
end
else
{$ENDIF}
OutputFilter.Execute(TheProcess,Self);
if not OutputFilter.Execute(TheProcess,Self) then
if OutputFilter.Aborted then
Result := mrAbort
else
Result := mrCancel;
end else begin
TheProcess.Execute;
end;
@ -244,17 +250,22 @@ end;
{$IFDEF WithAsyncCompile}
procedure TCompiler.CompilationFinished(Sender: TObject);
begin
FASyncResult:= mrOK;
if TheProcess.Running then begin
if OutputFilter.Aborted then
FASyncrResult := mrAbort
else
FASyncResult := mrOK;
if TheProcess.Running then
begin
TheProcess.WaitOnExit;
if not (TheProcess.ExitStatus in [0,1]) then begin
WriteError(Format(listCompilerInternalError,[TheProcess.ExitStatus]));
FASyncResult:=mrCancel;
if (FASyncResult = mrOk) and not (TheProcess.ExitStatus in [0,1]) then
begin
WriteError(Format(listCompilerInternalError, [TheProcess.ExitStatus]));
FASyncResult := mrCancel;
end;
end;
DebugLn('[TCompiler.Compile] Async end');
if assigned(FFinishedCallback) then
if Assigned(FFinishedCallback) then
FFinishedCallback(Self);
end;
{$ENDIF}
@ -262,9 +273,8 @@ end;
procedure TCompiler.WriteError(const Msg: string);
begin
DebugLn('TCompiler.WriteError ',Msg);
if OutputFilter<>nil then begin
OutputFilter.ReadConstLine(Msg,true);
end;
if OutputFilter <> nil then
OutputFilter.ReadConstLine(Msg, True);
end;