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

* DOERROR RESOTRED! DON'T TOUCH :)

Browse Source
This commit is contained in:
carl 1998-07-02 12:53:09 +00:00
parent 6fa5eb2ba7
commit a546945c4d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/system.inc
View File

@ -391,7 +391,7 @@ Begin
exitProc:=nil;
current_exit();
End;
If ErrorAddr<>nil Then
If DoError Then
Begin
Writeln('Run time error ',Errorcode,' at 0x',hexstr(Longint(Erroraddr),8));
dump_stack(ErrorBase);
@ -440,7 +440,10 @@ End;
{
$Log$
Revision 1.16 1998-07-02 12:11:50 carl
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
* no SINGLE in m68k and other processors!
Revision 1.15 1998/07/02 09:25:05 peter