src/runtime/interr.c

   1 /*
   2  * stuff to handle internal errors
   3  */
   4
   5 /*
   6  * This software is part of the SBCL system. See the README file for
   7  * more information.
   8  *
   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.
  14  */
  15
  16 #include <stdio.h>
  17 #include <stdarg.h>
  18
  19 #include "arch.h"
  20 #include "signal.h"
  21
  22 #include "runtime.h"
  23 #include "sbcl.h"
  24 #include "interr.h"
  25 #include "print.h"
  26 #include "lispregs.h"
  27 \f
  28 /* the way that we shut down the system on a fatal error */
  29
  30 static void
  31 default_lossage_handler(void)
  32 {
  33     exit(1);
  34 }
  35 static void (*lossage_handler)(void) = default_lossage_handler;
  36 void
  37 set_lossage_handler(void handler(void))
  38 {
  39     lossage_handler = handler;
  40 }
  41
  42 void
  43 lose(char *fmt, ...)
  44 {
  45     va_list ap;
  46     fprintf(stderr, "fatal error encountered in SBCL runtime system");
  47     if (fmt) {
  48         fprintf(stderr, ":\n");
  49         va_start(ap, fmt);
  50         vfprintf(stderr, fmt, ap);
  51         va_end(ap);
  52     }
  53     fprintf(stderr, "\n");
  54     fflush(stderr);
  55     lossage_handler();
  56 }
  57 \f
  58 /* internal error handler for when the Lisp error system doesn't exist
  59  *
  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.) */
  63 void
  64 describe_internal_error(os_context_t *context)
  65 {
  66     unsigned char *ptr = arch_internal_error_arguments(context);
  67     int len, scoffset, sc, offset, ch;
  68
  69     len = *ptr++;
  70     printf("internal error #%d\n", *ptr++);
  71     len--;
  72     while (len > 0) {
  73         scoffset = *ptr++;
  74         len--;
  75         if (scoffset == 253) {
  76             scoffset = *ptr++;
  77             len--;
  78         }
  79         else if (scoffset == 254) {
  80             scoffset = ptr[0] + ptr[1]*256;
  81             ptr += 2;
  82             len -= 2;
  83         }
  84         else if (scoffset == 255) {
  85             scoffset = ptr[0] + (ptr[1]<<8) + (ptr[2]<<16) + (ptr[3]<<24);
  86             ptr += 4;
  87             len -= 4;
  88         }
  89         sc = scoffset & 0x1f;
  90         offset = scoffset >> 5;
  91
  92         printf("    SC: %d, Offset: %d", sc, offset);
  93         switch (sc) {
  94         case sc_AnyReg:
  95         case sc_DescriptorReg:
  96             putchar('\t');
  97             brief_print(*os_context_register_addr(context, offset));
  98             break;
  99
 100         case sc_BaseCharReg:
 101             ch = *os_context_register_addr(context, offset);
 102 #ifdef __i386__
 103             if (offset&1)
 104                 ch = ch>>8;
 105             ch = ch & 0xff;
 106 #endif
 107             switch (ch) {
 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;
 112             default:
 113                 if (ch < 32 || ch > 127)
 114                     printf("\\%03o", ch);
 115                 else
 116                     printf("\t'%c'\n", ch);
 117                 break;
 118             }
 119             break;
 120         case sc_SapReg:
 121 #ifdef sc_WordPointerReg
 122         case sc_WordPointerReg:
 123 #endif
 124             printf("\t0x%08x\n", *os_context_register_addr(context, offset));
 125             break;
 126         case sc_SignedReg:
 127             printf("\t%d\n", *os_context_register_addr(context, offset));
 128             break;
 129         case sc_UnsignedReg:
 130             printf("\t%u\n", *os_context_register_addr(context, offset));
 131             break;
 132 #ifdef sc_SingleFloatReg
 133         case sc_SingleFloatReg:
 134             printf("\t%g\n", *(float *)&context->sc_fpregs[offset]);
 135             break;
 136 #endif
 137 #ifdef sc_DoubleFloatReg
 138         case sc_DoubleFloatReg:
 139             printf("\t%g\n", *(double *)&context->sc_fpregs[offset]);
 140             break;
 141 #endif
 142         default:
 143             printf("\t???\n");
 144             break;
 145         }
 146     }
 147 }
 148 \f
 149 /* utility routines used by miscellaneous pieces of code */
 150
 151 lispobj debug_print(lispobj string)
 152 {
 153     fprintf(stderr, "%s\n", (char *)(((struct vector *)PTR(string))->data));
 154     return NIL;
 155 }