paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 18:49:16 +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 Begin
{To be used by symify} {To be used by symify}
Writeln(stderr,' 0x',HexStr(addr,8)); Writeln(stderr,' 0x',HexStr(addr,8));
{$IFNDEF NEW_READWRITE}
Flush(stderr); Flush(stderr);
{$ENDIF NEW_READWRITE}
End; End;
var var
@ -373,7 +375,7 @@ Begin
exitProc:=nil; exitProc:=nil;
current_exit(); current_exit();
End; End;
If DoError Then If ErrorAddr<>nil Then
Begin Begin
Writeln('Run time error ',Errorcode,' at 0x',hexstr(Longint(Erroraddr),8)); Writeln('Run time error ',Errorcode,' at 0x',hexstr(Longint(Erroraddr),8));
dump_stack(ErrorBase); dump_stack(ErrorBase);
@ -422,7 +424,10 @@ End;
{ {
$Log$ $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 * better readln/writeln
Revision 1.13 1998/06/26 08:21:09 daniel Revision 1.13 1998/06/26 08:21:09 daniel