paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 06:01:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed GetParentFrame for ARM

Browse Source
This commit is contained in:
florian 2004-03-31 21:49:19 +00:00
parent b7d006777c
commit 57c8334471
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/objects.pp
View File

@ -740,7 +740,11 @@ end;
{$define FPC_PreviousFramePointer_Implemented} {$define FPC_PreviousFramePointer_Implemented}
{$warning FIX ME !!!! } {$warning FIX ME !!!! }
asm asm
mov r0,fp // on the arm, even assembler declared procedure save fp because it's part of the
// entry code where e.g. the link register is saved so we've to dereference fp
// here twice
ldr r0,[fp,#-12]
ldr r0,[r0,#-12]
end; end;
{$endif cpuarm} {$endif cpuarm}
{$ifndef FPC_PreviousFramePointer_Implemented} {$ifndef FPC_PreviousFramePointer_Implemented}
@ -2946,7 +2950,10 @@ BEGIN
END. END.
{ {
$Log$ $Log$
Revision 1.28 2004-02-18 21:59:23 peter Revision 1.29 2004-03-31 21:49:19 florian
* fixed GetParentFrame for ARM
Revision 1.28 2004/02/18 21:59:23 peter
* x86_64 added * x86_64 added
Revision 1.27 2004/01/01 15:30:04 jonas Revision 1.27 2004/01/01 15:30:04 jonas