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

* fixed get_caller_frame() and get_caller_addr() for nil addresses

Browse Source 
git-svn-id: trunk@7470 -
This commit is contained in:
Jonas Maebe 2007-05-25 12:01:28 +00:00
parent 4919cecb3b
commit 4f95f742f4
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/sparc/sparc.inc
View File

@ -73,21 +73,29 @@ function get_frame:pointer;assembler;nostackframe;
function get_caller_addr(framebp:pointer):pointer;assembler;nostackframe; function get_caller_addr(framebp:pointer):pointer;assembler;nostackframe;
asm asm
{ framebp = %o0 } { framebp = %o0 }
subcc %o0,0,%o0
be .Lframezero
nop
{ flush register windows, so they are stored in the stack } { flush register windows, so they are stored in the stack }
ta 3 ta 3
ld [%o0+60],%o0 ld [%o0+60],%o0
{ add 8 to skip jmpl and delay slot } { add 8 to skip jmpl and delay slot }
add %o0,8,%o0 add %o0,8,%o0
.Lframezero:
end; end;
{$define FPC_SYSTEM_HAS_GET_CALLER_FRAME} {$define FPC_SYSTEM_HAS_GET_CALLER_FRAME}
function get_caller_frame(framebp:pointer):pointer;assembler;nostackframe; function get_caller_frame(framebp:pointer):pointer;assembler;nostackframe;
asm asm
{ framebp = %o0 }
subcc %o0,0,%o0
be .Lframezero
nop
{ flush register windows, so they are stored in the stack } { flush register windows, so they are stored in the stack }
ta 3 ta 3
{ framebp = %o0 }
ld [%o0+56],%o0 ld [%o0+56],%o0
.Lframezero:
end; end;