paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 22:47:59 +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
FileFunc = Procedure(var t : TextRec);
var
const
{ For Error Handling.}
DoError : Boolean;
ErrorBase : Longint;
DoError : Boolean = FALSE;
ErrorBase : Longint = 0;
{****************************************************************************
Include processor specific routines
@ -440,7 +440,11 @@ End;
{
$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 :)
Revision 1.16 1998/07/02 12:11:50 carl