* update status also for internalerrors

This commit is contained in:
peter 1998-11-26 13:08:19 +00:00
parent a9d8c411a3
commit 13d2cb30b0

View File

@ -289,6 +289,7 @@ end;
procedure internalerror(i : longint);
begin
UpdateStatus;
do_internalerror(i);
inc(status.errorcount);
stop;
@ -428,7 +429,10 @@ end.
{
$Log$
Revision 1.28 1998-11-06 09:45:41 pierre
Revision 1.29 1998-11-26 13:08:19 peter
* update status also for internalerrors
Revision 1.28 1998/11/06 09:45:41 pierre
* bug on errors (file used after dispose !) fixed
Revision 1.27 1998/10/28 18:26:24 pierre