paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 23:20:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ get_caller_addr/frame implemented

Browse Source
This commit is contained in:
florian 2004-01-21 23:12:07 +00:00
parent e46d6d2f91
commit a6589cbab1
1 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/arm/arm.inc
View File

@ -29,33 +29,27 @@ end;
{$define FPC_SYSTEM_HAS_GET_FRAME}
function get_frame:pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
mov r0,fp
mov r0,r11
end ['R0'];
{$define FPC_SYSTEM_HAS_GET_CALLER_ADDR}
function get_caller_addr(framebp:pointer):pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
(*!!!!!!
movl framebp,%eax
orl %eax,%eax
jz .Lg_a_null
movl 4(%eax),%eax
movs r0,r0
beq .Lg_a_null
ldr r0,[r0,#-4]
.Lg_a_null:
*)
end ['R0'];
{$define FPC_SYSTEM_HAS_GET_CALLER_FRAME}
function get_caller_frame(framebp:pointer):pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
(*!!!!!
movl framebp,%eax
orl %eax,%eax
jz .Lgnf_null
movl (%eax),%eax
movs r0,r0
beq .Lgnf_null
ldr r0,[r0,#-12]
.Lgnf_null:
*)
end ['R0'];
@ -123,7 +117,10 @@ end;
{
$Log$
Revision 1.4 2004-01-20 21:01:57 florian
Revision 1.5 2004-01-21 23:12:07 florian
+ get_caller_addr/frame implemented
Revision 1.4 2004/01/20 21:01:57 florian
* fixed setjump
* fixed syscalls