paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 18:07:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* flush output on halt. Patch by Mattias mantis #26225

Browse Source 
git-svn-id: trunk@27835 -
This commit is contained in:
marco 2014-05-31 15:06:42 +00:00
parent 0a0739b916
commit b7aff4eae0
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
utils/fpcres/msghandler.pas
View File

@ -41,13 +41,22 @@ type
destructor Destroy; override;
procedure DoError(const aMsg : string);
procedure DoVerbose(const aMsg : string);
procedure Flush;
property Verbose : boolean read fVerbose write SetVerbose;
end;
var Messages : TMessages;
procedure Halt(errnum:Longint);
implementation
procedure Halt(errnum:Longint);
begin
Messages.Flush;
System.Halt(errnum);
end;
{ TMessages }
procedure TMessages.SetVerbose(const aValue: boolean);
@ -95,6 +104,12 @@ begin
writeln(fStdOut,'Debug: '+aMsg);
end;
procedure TMessages.Flush;
begin
System.Flush(fStdOut);
System.Flush(fStdErr);
end;
initialization
Messages:=TMessages.Create;