From e677c4be8b206e6d4c6f981125ae5dc04748e188 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 18 Feb 2004 21:59:23 +0000
Subject: [PATCH]   * x86_64 added

---
 rtl/inc/objects.pp | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/rtl/inc/objects.pp b/rtl/inc/objects.pp
index bc2d49686b..c492df98ba 100644
--- a/rtl/inc/objects.pp
+++ b/rtl/inc/objects.pp
@@ -709,6 +709,12 @@ asm
     movl (%ebp), %eax
 end ['EAX'];
 {$endif}
+{$ifdef cpux86_64}
+{$define FPC_PreviousFramePointer_Implemented}
+asm
+    movq (%rbp), %rax
+end ['RAX'];
+{$endif}
 {$ifdef cpum68k}
 {$define FPC_PreviousFramePointer_Implemented}
 asm
@@ -2940,7 +2946,10 @@ BEGIN
 END.
 {
   $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
 
   Revision 1.26  2003/11/30 19:48:20  florian