CMUCL commit: src/lisp (backtrace.c)

[Raymond Toy]

    Date: Sunday, November 1, 2009 @ 22:07:01
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/lisp

Modified: backtrace.c

Use the right instruction for amd64 to get the fp.


-------------+
 backtrace.c |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)


Index: src/lisp/backtrace.c
diff -u src/lisp/backtrace.c:1.18 src/lisp/backtrace.c:1.19
--- src/lisp/backtrace.c:1.18	Sun Nov  1 21:51:58 2009
+++ src/lisp/backtrace.c	Sun Nov  1 22:07:01 2009
@@ -1,4 +1,4 @@
-/* $Header: /project/cmucl/cvsroot/src/lisp/backtrace.c,v 1.18 2009-11-02 02:51:58 rtoy Exp $
+/* $Header: /project/cmucl/cvsroot/src/lisp/backtrace.c,v 1.19 2009-11-02 03:07:01 rtoy Exp $
  *
  * Simple backtrace facility.  More or less from Rob's lisp version.
  */
@@ -498,8 +498,9 @@
     int i;
 
 #ifdef __x86_64
+    __asm__("movq %%rbp,%0":"=g"(fp));
 #else
-    __asm__("movl %%ebp,%0":"=g"(fp));
+    __asm__("movl %%rbp,%0":"=g"(fp));
 #endif
     
     for (i = 0; i < nframes; ++i) {