paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-08 16:17:12 +01:00
Code Issues Packages Projects Releases Wiki Activity

* x86_64 added

Browse Source
This commit is contained in:
peter 2004-02-18 21:59:23 +00:00
parent 6faddb5e71
commit e677c4be8b
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/objects.pp
View File

@ -709,6 +709,12 @@ asm
movl (%ebp), %eax movl (%ebp), %eax
end ['EAX']; end ['EAX'];
{$endif} {$endif}
{$ifdef cpux86_64}
{$define FPC_PreviousFramePointer_Implemented}
asm
movq (%rbp), %rax
end ['RAX'];
{$endif}
{$ifdef cpum68k} {$ifdef cpum68k}
{$define FPC_PreviousFramePointer_Implemented} {$define FPC_PreviousFramePointer_Implemented}
asm asm
@ -2940,7 +2946,10 @@ BEGIN
END. END.
{ {
$Log$ $Log$
Revision 1.27 2004-01-01 15:30:04 jonas Revision 1.28 2004-02-18 21:59:23 peter
* x86_64 added
Revision 1.27 2004/01/01 15:30:04 jonas
* fixed PreviousFramePointer() for ppc * fixed PreviousFramePointer() for ppc
Revision 1.26 2003/11/30 19:48:20 florian Revision 1.26 2003/11/30 19:48:20 florian