Skip to content
Snippets Groups Projects
Commit 85f431aa authored by cwang's avatar cwang
Browse files

Try to make backtrace work on amd64

parent c2a84df3
No related branches found
No related tags found
No related merge requests found
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/backtrace.c,v 1.12 2004/07/12 23:44:07 pmai Exp $ /* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/backtrace.c,v 1.13 2004/08/04 18:33:58 cwang Exp $
* *
* Simple backtrace facility. More or less from Rob's lisp version. * Simple backtrace facility. More or less from Rob's lisp version.
*/ */
...@@ -255,7 +255,7 @@ static int ...@@ -255,7 +255,7 @@ static int
stack_pointer_p (unsigned long p) stack_pointer_p (unsigned long p)
{ {
return (p < CONTROL_STACK_START + CONTROL_STACK_SIZE return (p < CONTROL_STACK_START + CONTROL_STACK_SIZE
&& p > (unsigned) &p && p > (unsigned long) &p
&& (p & 3) == 0); && (p & 3) == 0);
} }
...@@ -268,7 +268,7 @@ ra_pointer_p (unsigned ra) ...@@ -268,7 +268,7 @@ ra_pointer_p (unsigned ra)
static unsigned static unsigned
deref (unsigned long p, int offset) deref (unsigned long p, int offset)
{ {
return *((unsigned *) p + offset); return *((unsigned long *) p + offset);
} }
static void static void
...@@ -343,7 +343,7 @@ x86_call_context (unsigned fp, unsigned *ra, unsigned *ocfp) ...@@ -343,7 +343,7 @@ x86_call_context (unsigned fp, unsigned *ra, unsigned *ocfp)
{ {
unsigned lisp_ocfp, lisp_ra, c_ocfp, c_ra; unsigned lisp_ocfp, lisp_ra, c_ocfp, c_ra;
int lisp_valid_p, c_valid_p; int lisp_valid_p, c_valid_p;
if (!stack_pointer_p (fp)) if (!stack_pointer_p (fp))
return 0; return 0;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment