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

+ don't print stack information if previous frame = 0

Browse Source
This commit is contained in:
carl 2001-11-19 02:40:24 +00:00
parent 502b31fce2
commit 6c657fe80e
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/system.inc
View File

@ -563,13 +563,16 @@ Procedure dump_stack(var f : text;bp : Longint);
var var
i, prevbp : Longint; i, prevbp : Longint;
is_dev : boolean; is_dev : boolean;
caller_addr : longint;
Begin Begin
prevbp:=bp-1; prevbp:=bp-1;
i:=0; i:=0;
is_dev:=do_isdevice(textrec(f).Handle); is_dev:=do_isdevice(textrec(f).Handle);
while bp > prevbp Do while bp > prevbp Do
Begin Begin
Writeln(f,BackTraceStrFunc(get_caller_addr(bp))); caller_addr := get_caller_addr(bp);
if caller_addr <> 0 then
Writeln(f,BackTraceStrFunc(caller_addr));
Inc(i); Inc(i);
If ((i>max_frame_dump) and is_dev) or (i>256) Then If ((i>max_frame_dump) and is_dev) or (i>256) Then
exit; exit;
@ -673,7 +676,10 @@ end;
{ {
$Log$ $Log$
Revision 1.22 2001-08-19 21:02:01 florian Revision 1.23 2001-11-19 02:40:24 carl
+ don't print stack information if previous frame = 0
Revision 1.22 2001/08/19 21:02:01 florian
* fixed and added a lot of stuff to get the Jedi DX( headers * fixed and added a lot of stuff to get the Jedi DX( headers
compiled compiled