paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-06 13:49:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* when retrieving stackdump check if bp is smaller than the previous

Browse Source 
bp
This commit is contained in:
peter 2003-09-11 15:54:27 +00:00
parent 8f66389b46
commit 9704595c94
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/heaptrc.pp
View File

@ -344,6 +344,7 @@ end;
Function TraceGetMem(size:longint):pointer; Function TraceGetMem(size:longint):pointer;
var var
allocsize,i : longint; allocsize,i : longint;
oldbp,
bp : pointer; bp : pointer;
pl : pdword; pl : pdword;
p : pointer; p : pointer;
@ -396,7 +397,10 @@ begin
for i:=1 to tracesize do for i:=1 to tracesize do
begin begin
pp^.calls[i]:=get_caller_addr(bp); pp^.calls[i]:=get_caller_addr(bp);
oldbp:=bp;
bp:=get_caller_frame(bp); bp:=get_caller_frame(bp);
if bp<oldbp then
bp:=nil;
end; end;
{ insert in the linked list } { insert in the linked list }
if heap_mem_root<>nil then if heap_mem_root<>nil then
@ -1152,7 +1156,11 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.23 2003-03-17 14:30:11 peter Revision 1.24 2003-09-11 15:54:27 peter
* when retrieving stackdump check if bp is smaller than the previous
bp
Revision 1.23 2003/03/17 14:30:11 peter
* changed address parameter/return values to pointer instead * changed address parameter/return values to pointer instead
of longint of longint