2 * stuff to handle internal errors
6 * This software is part of the SBCL system. See the README file for
9 * This software is derived from the CMU CL system, which was
10 * written at Carnegie Mellon University and released into the
11 * public domain. The software is in the public domain and is
12 * provided with absolutely no warranty. See the COPYING and CREDITS
13 * files for more information.
28 /* the way that we shut down the system on a fatal error */
31 default_lossage_handler(void)
35 static void (*lossage_handler)(void) = default_lossage_handler;
37 set_lossage_handler(void handler(void))
39 lossage_handler = handler;
46 fprintf(stderr, "fatal error encountered in SBCL runtime system");
48 fprintf(stderr, ":\n");
50 vfprintf(stderr, fmt, ap);
53 fprintf(stderr, "\n");
58 /* internal error handler for when the Lisp error system doesn't exist
60 * FIXME: Shouldn't error output go to stderr instead of stdout? (Alas,
61 * this'd require changes in a number of things like brief_print(..),
62 * or I'd have changed it immediately.) */
64 describe_internal_error(os_context_t *context)
66 unsigned char *ptr = arch_internal_error_arguments(context);
67 int len, scoffset, sc, offset, ch;
70 printf("internal error #%d\n", *ptr++);
75 if (scoffset == 253) {
79 else if (scoffset == 254) {
80 scoffset = ptr[0] + ptr[1]*256;
84 else if (scoffset == 255) {
85 scoffset = ptr[0] + (ptr[1]<<8) + (ptr[2]<<16) + (ptr[3]<<24);
90 offset = scoffset >> 5;
92 printf(" SC: %d, Offset: %d", sc, offset);
95 case sc_DescriptorReg:
97 brief_print(*os_context_register_addr(context, offset));
101 ch = *os_context_register_addr(context, offset);
108 case '\n': printf("\t'\\n'\n"); break;
109 case '\b': printf("\t'\\b'\n"); break;
110 case '\t': printf("\t'\\t'\n"); break;
111 case '\r': printf("\t'\\r'\n"); break;
113 if (ch < 32 || ch > 127)
114 printf("\\%03o", ch);
116 printf("\t'%c'\n", ch);
121 #ifdef sc_WordPointerReg
122 case sc_WordPointerReg:
124 printf("\t0x%08x\n", *os_context_register_addr(context, offset));
127 printf("\t%d\n", *os_context_register_addr(context, offset));
130 printf("\t%u\n", *os_context_register_addr(context, offset));
132 #ifdef sc_SingleFloatReg
133 case sc_SingleFloatReg:
134 printf("\t%g\n", *(float *)&context->sc_fpregs[offset]);
137 #ifdef sc_DoubleFloatReg
138 case sc_DoubleFloatReg:
139 printf("\t%g\n", *(double *)&context->sc_fpregs[offset]);
149 /* utility routines used by miscellaneous pieces of code */
151 lispobj debug_print(lispobj string)
153 fprintf(stderr, "%s\n", (char *)(((struct vector *)PTR(string))->data));