paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-27 09:11:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

* get_caller_addr and get_caller_frame for sparc64 fixed

Browse Source 
git-svn-id: trunk@36542 -
This commit is contained in:
florian 2017-06-19 21:17:58 +00:00
parent 453fedf089
commit ae99445bdd
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/sparc64/sparc64.inc
View File

@ -83,8 +83,8 @@ function get_caller_addr(framebp:pointer;addr:pointer=nil):pointer;assembler;nos
be .Lframezero be .Lframezero
nop nop
{ flush register windows, so they are stored in the stack } { flush register windows, so they are stored in the stack }
ta 3 flushw
ld [%o0+60],%o0 ldx [%o0+STACK_BIAS+120],%o0
{ check if new %o0 register is zero } { check if new %o0 register is zero }
subcc %o0,0,%o0 subcc %o0,0,%o0
be .Lframezero be .Lframezero
@ -103,8 +103,8 @@ function get_caller_frame(framebp:pointer;addr:pointer=nil):pointer;assembler;no
be .Lframezero be .Lframezero
nop nop
{ flush register windows, so they are stored in the stack } { flush register windows, so they are stored in the stack }
ta 3 flushw
ld [%o0+56],%o0 ldx [%o0+STACK_BIAS+112],%o0
.Lframezero: .Lframezero:
end; end;