Skip to content
Snippets Groups Projects
Commit 0cad57f3 authored by ram's avatar ram
Browse files

Include os.h. Also, I guess ??? in a string literal means something funny in

some Solaris compiler.
parent 47fdf1ab
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.3 1994/03/27 15:19:14 hallgren Exp $ /* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/backtrace.c,v 1.4 1994/10/25 17:31:52 ram Exp $
* *
* Simple backtrace facility. More or less from Rob's lisp version. * Simple backtrace facility. More or less from Rob's lisp version.
*/ */
...@@ -8,6 +8,7 @@ ...@@ -8,6 +8,7 @@
#include "lisp.h" #include "lisp.h"
#include "internals.h" #include "internals.h"
#include "globals.h" #include "globals.h"
#include "os.h"
#include "interrupt.h" #include "interrupt.h"
#include "lispregs.h" #include "lispregs.h"
...@@ -218,9 +219,9 @@ backtrace(int nframes) ...@@ -218,9 +219,9 @@ backtrace(int nframes)
string = (struct vector *) object; string = (struct vector *) object;
printf("%s, ", (char *) string->data); printf("%s, ", (char *) string->data);
} else } else
printf("(Not simple string???), "); printf("(Not simple string??\?), ");
} else } else
printf("(Not other pointer???), "); printf("(Not other pointer??\?), ");
function = header->next; function = header->next;
...@@ -237,7 +238,7 @@ backtrace(int nframes) ...@@ -237,7 +238,7 @@ backtrace(int nframes)
if (info.pc) if (info.pc)
printf("PC: 0x%x>\n", info.pc); printf("PC: 0x%x>\n", info.pc);
else else
printf("PC: ???>\n"); printf("PC: ??\?>\n");
} while (--nframes > 0 && previous_info(&info)); } while (--nframes > 0 && previous_info(&info));
} }
...@@ -248,7 +249,7 @@ void ...@@ -248,7 +249,7 @@ void
backtrace(nframes) backtrace(nframes)
int nframes; int nframes;
{ {
printf("Can't backtrace on the x86.\n"); printf("Can't backtrace on this hardware platform.\n");
} }
#endif #endif
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