paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 01:09:27 +02: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

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