mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-13 09:59:08 +02:00
+ don't print stack information if previous frame = 0
This commit is contained in:
parent
502b31fce2
commit
6c657fe80e
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user