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

powerpc: enable SUPPORT_GET_FRAME

Browse Source 
git-svn-id: trunk@36698 -
This commit is contained in:
Károly Balogh 2017-07-08 23:51:55 +00:00
parent 6e3936c534
commit 0b561b6c8f
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/fpcdefs.inc
View File

@ -137,6 +137,7 @@
{$define cpumm} {$define cpumm}
{$define cpurox} {$define cpurox}
{$define cpurefshaveindexreg} {$define cpurefshaveindexreg}
{$define SUPPORT_GET_FRAME}
{$endif powerpc} {$endif powerpc}
{$ifdef powerpc64} {$ifdef powerpc64}

2
rtl/powerpc/powerpc.inc
View File

@ -1047,12 +1047,14 @@ function fpc_pchar_length(p:pchar):sizeint;assembler;[public,alias:'FPC_PCHAR_LE
{$endif FPC_SYSTEM_HAS_FPC_PCHAR_LENGTH} {$endif FPC_SYSTEM_HAS_FPC_PCHAR_LENGTH}
{$ifndef INTERNAL_BACKTRACE}
{$define FPC_SYSTEM_HAS_GET_FRAME} {$define FPC_SYSTEM_HAS_GET_FRAME}
function get_frame:pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif} nostackframe; function get_frame:pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif} nostackframe;
asm asm
{ all abi's I know use r1 as stack pointer } { all abi's I know use r1 as stack pointer }
mr r3, r1 mr r3, r1
end; end;
{$endif INTERNAL_BACKTRACE}
{NOTE: On MACOS, 68000 code might call powerpc code, through the MixedMode manager, {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 then (even in the OS in system 9). The pointer to the switching stack frame is then