diff --git a/lisp/backtrace.c b/lisp/backtrace.c index 50489a508431e0333977accbcc119d2a11b47f58..76778e4d9958f02a320b1f57a713f80db5531000 100644 --- a/lisp/backtrace.c +++ b/lisp/backtrace.c @@ -1,4 +1,4 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/backtrace.c,v 1.18 2009/11/02 02:51:58 rtoy Exp $ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/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 @@ backtrace(int nframes) 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) {