paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 02:49:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* hmmm... it is luck (BSS zeroed with GAS) that DoError and ErrorBase work.

Browse Source 
Now they are initilized instead.
This commit is contained in:
carl 1998-07-02 13:01:55 +00:00
parent fbe85528a9
commit 004bb57ae9
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/inc/system.inc
View File

@ -28,10 +28,10 @@
type type
FileFunc = Procedure(var t : TextRec); FileFunc = Procedure(var t : TextRec);
var const
{ For Error Handling.} { For Error Handling.}
DoError : Boolean; DoError : Boolean = FALSE;
ErrorBase : Longint; ErrorBase : Longint = 0;
{**************************************************************************** {****************************************************************************
Include processor specific routines Include processor specific routines
@ -440,7 +440,11 @@ End;
{ {
$Log$ $Log$
Revision 1.17 1998-07-02 12:53:09 carl Revision 1.18 1998-07-02 13:01:55 carl
* hmmm... it is luck (BSS zeroed with GAS) that DoError and ErrorBase work.
Now they are initilized instead.
Revision 1.17 1998/07/02 12:53:09 carl
* DOERROR RESOTRED! DON'T TOUCH :) * DOERROR RESOTRED! DON'T TOUCH :)
Revision 1.16 1998/07/02 12:11:50 carl Revision 1.16 1998/07/02 12:11:50 carl