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

Use two parameter versions of get_caller_frame and get_caller_addr to get correct results for MIPS

Browse Source 
git-svn-id: trunk@21843 -
This commit is contained in:
pierre 2012-07-10 10:07:11 +00:00
parent b0fcb8cb2f
commit bc1ecc2e94
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/except.inc
View File

@ -102,6 +102,7 @@ var
frames : PPointer;
prev_frame,
curr_frame,
curr_addr,
caller_frame,
caller_addr : Pointer;
begin
@ -119,15 +120,16 @@ begin
{ Backtrace }
curr_frame:=AFrame;
prev_frame:=get_frame;
curr_addr:=AnAddr;
prev_frame:=get_caller_frame(curr_addr, curr_frame);
frames:=nil;
framebufsize:=0;
framecount:=0;
while (framecount<RaiseMaxFrameCount) and (curr_frame > prev_frame) and
(curr_frame<(StackBottom + StackLength)) do
Begin
caller_addr := get_caller_addr(curr_frame);
caller_frame := get_caller_frame(curr_frame);
caller_addr := get_caller_addr(curr_frame, curr_addr);
caller_frame := get_caller_frame(curr_frame, curr_addr);
if (caller_addr=nil) or
(caller_frame=nil) then
break;
@ -139,6 +141,7 @@ begin
frames[framecount]:=caller_addr;
inc(framecount);
prev_frame:=curr_frame;
curr_addr:=caller_addr;
curr_frame:=caller_frame;
End;
NewObj^.framecount:=framecount;