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

* fixed do_error in runtimeerror

Browse Source
This commit is contained in:
peter 1998-07-02 09:25:05 +00:00
parent c2f855fbb7
commit b5203c5b09
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/system.inc
View File

@ -339,7 +339,9 @@ Procedure dump_stack(bp : Longint);
Begin
{To be used by symify}
Writeln(stderr,' 0x',HexStr(addr,8));
{$IFNDEF NEW_READWRITE}
Flush(stderr);
{$ENDIF NEW_READWRITE}
End;
var
@ -373,7 +375,7 @@ Begin
exitProc:=nil;
current_exit();
End;
If DoError Then
If ErrorAddr<>nil Then
Begin
Writeln('Run time error ',Errorcode,' at 0x',hexstr(Longint(Erroraddr),8));
dump_stack(ErrorBase);
@ -422,7 +424,10 @@ End;
{
$Log$
Revision 1.14 1998-07-01 15:29:59 peter
Revision 1.15 1998-07-02 09:25:05 peter
* fixed do_error in runtimeerror
Revision 1.14 1998/07/01 15:29:59 peter
* better readln/writeln
Revision 1.13 1998/06/26 08:21:09 daniel