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

* Fixed stack frame access for macos

Browse Source
This commit is contained in:
olle 2005-01-31 20:57:41 +00:00
parent 3089ca7d24
commit beecc57e21
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/powerpc/powerpc.inc
View File

@ -1037,15 +1037,28 @@ asm
mr r3, r1 mr r3, r1
end; end;
{NOTE: On MACOS, 68000 code might call powerpc code, through the MixedMode manager,
(even in the OS in system 9). The pointer to the switching stack frame is
indicated by the first bit set to 1. This is checked below.}
{$define FPC_SYSTEM_HAS_GET_CALLER_ADDR} {$define FPC_SYSTEM_HAS_GET_CALLER_ADDR}
function get_caller_addr(framebp:pointer):pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif} nostackframe; function get_caller_addr(framebp:pointer):pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif} nostackframe;
asm asm
cmplwi r3,0 cmplwi r3,0
beq .Lcaller_addr_frame_null beq .Lcaller_addr_frame_null
{$ifdef MACOS}
rlwinm r4,r3,0,31,31
cmpwi r4,0
bne cr0,.Lcaller_addr_frame_null
{$endif MACOS}
lwz r3,0(r3) lwz r3,0(r3)
cmplwi r3,0 cmplwi r3,0
beq .Lcaller_addr_frame_null beq .Lcaller_addr_frame_null
{$ifdef MACOS}
rlwinm r4,r3,0,31,31
cmpwi r4,0
bne cr0,.Lcaller_addr_frame_null
{$endif MACOS}
{$ifdef FPC_ABI_AIX} {$ifdef FPC_ABI_AIX}
lwz r3,8(r3) lwz r3,8(r3)
{$else FPC_ABI_AIX} {$else FPC_ABI_AIX}
@ -1060,6 +1073,11 @@ function get_caller_frame(framebp:pointer):pointer;assembler;{$ifdef SYSTEMINLIN
asm asm
cmplwi r3,0 cmplwi r3,0
beq .Lcaller_frame_null beq .Lcaller_frame_null
{$ifdef MACOS}
rlwinm r4,r3,0,31,31
cmpwi r4,0
bne cr0,.Lcaller_frame_null
{$endif MACOS}
lwz r3,0(r3) lwz r3,0(r3)
.Lcaller_frame_null: .Lcaller_frame_null:
end; end;
@ -1138,7 +1156,10 @@ end;
{ {
$Log$ $Log$
Revision 1.73 2004-11-20 15:49:21 jonas Revision 1.74 2005-01-31 20:57:41 olle
* Fixed stack frame access for macos
Revision 1.73 2004/11/20 15:49:21 jonas
* some compilation fixes for powerpc after all the internconst and * some compilation fixes for powerpc after all the internconst and
internproc changes, still crashes with internalerror(88) for ppc1 internproc changes, still crashes with internalerror(88) for ppc1
on real2str.inc(193,39) on real2str.inc(193,39)