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.
32 /* the way that we shut down the system on a fatal error */
35 default_lossage_handler(void)
39 static void (*lossage_handler)(void) = default_lossage_handler;
41 set_lossage_handler(void handler(void))
43 lossage_handler = handler;
50 fprintf(stderr, "fatal error encountered in SBCL runtime system");
52 fprintf(stderr, ":\n");
54 vfprintf(stderr, fmt, ap);
57 fprintf(stderr, "\n");
62 /* internal error handler for when the Lisp error system doesn't exist
64 * FIXME: Shouldn't error output go to stderr instead of stdout? (Alas,
65 * this'd require changes in a number of things like brief_print(..),
66 * or I'd have changed it immediately.) */
68 describe_internal_error(os_context_t *context)
70 unsigned char *ptr = arch_internal_error_arguments(context);
71 int len, scoffset, sc, offset, ch;
74 printf("internal error #%d\n", *ptr++);
79 if (scoffset == 253) {
83 else if (scoffset == 254) {
84 scoffset = ptr[0] + ptr[1]*256;
88 else if (scoffset == 255) {
89 scoffset = ptr[0] + (ptr[1]<<8) + (ptr[2]<<16) + (ptr[3]<<24);
94 offset = scoffset >> 5;
96 printf(" SC: %d, Offset: %d", sc, offset);
99 case sc_DescriptorReg:
101 brief_print(*os_context_register_addr(context, offset));
105 ch = *os_context_register_addr(context, offset);
112 case '\n': printf("\t'\\n'\n"); break;
113 case '\b': printf("\t'\\b'\n"); break;
114 case '\t': printf("\t'\\t'\n"); break;
115 case '\r': printf("\t'\\r'\n"); break;
117 if (ch < 32 || ch > 127)
118 printf("\\%03o", ch);
120 printf("\t'%c'\n", ch);
125 #ifdef sc_WordPointerReg
126 case sc_WordPointerReg:
128 printf("\t0x%08x\n", *os_context_register_addr(context, offset));
131 printf("\t%d\n", *os_context_register_addr(context, offset));
134 printf("\t%u\n", *os_context_register_addr(context, offset));
136 #ifdef sc_SingleFloatReg
137 case sc_SingleFloatReg:
138 printf("\t%g\n", *(float *)&context->sc_fpregs[offset]);
141 #ifdef sc_DoubleFloatReg
142 case sc_DoubleFloatReg:
143 printf("\t%g\n", *(double *)&context->sc_fpregs[offset]);
153 /* utility routines used by miscellaneous pieces of code */
155 lispobj debug_print(lispobj string)
157 fprintf(stderr, "%s\n", (char *)(((struct vector *)PTR(string))->data));