0.9.2.42:

[sbcl.git] / src / runtime / interr.c

diff --git a/src/runtime/interr.c b/src/runtime/interr.c
index 8d3b3b0..f693d84 100644 (file)
--- a/src/runtime/interr.c
+++ b/src/runtime/interr.c
@@ -52,10 +52,10 @@ lose(char *fmt, ...)
     fprintf(stderr, "(tid %ld)",thread_self());
 #endif
     if (fmt) {
-       fprintf(stderr, ":\n");
-       va_start(ap, fmt);
-       vfprintf(stderr, fmt, ap);
-       va_end(ap);
+        fprintf(stderr, ":\n");
+        va_start(ap, fmt);
+        vfprintf(stderr, fmt, ap);
+        va_end(ap);
     }
     fprintf(stderr, "\n");
     fflush(stderr);
@@ -79,79 +79,79 @@ describe_internal_error(os_context_t *context)
     printf("internal error #%d\n", *ptr++);
     len--;
     while (len > 0) {
-       scoffset = *ptr++;
-       len--;
-       if (scoffset == 253) {
-           scoffset = *ptr++;
-           len--;
-       }
-       else if (scoffset == 254) {
-           scoffset = ptr[0] + ptr[1]*256;
-           ptr += 2;
-           len -= 2;
-       }
-       else if (scoffset == 255) {
-           scoffset = ptr[0] + (ptr[1]<<8) + (ptr[2]<<16) + (ptr[3]<<24);
-           ptr += 4;
-           len -= 4;
-       }
-       sc = scoffset & 0x1f;
-       offset = scoffset >> 5;
-               
-       printf("    SC: %d, Offset: %d", sc, offset);
-       switch (sc) {
-       case sc_AnyReg:
-       case sc_DescriptorReg:
-           putchar('\t');
-           brief_print(*os_context_register_addr(context, offset));
-           break;
+        scoffset = *ptr++;
+        len--;
+        if (scoffset == 253) {
+            scoffset = *ptr++;
+            len--;
+        }
+        else if (scoffset == 254) {
+            scoffset = ptr[0] + ptr[1]*256;
+            ptr += 2;
+            len -= 2;
+        }
+        else if (scoffset == 255) {
+            scoffset = ptr[0] + (ptr[1]<<8) + (ptr[2]<<16) + (ptr[3]<<24);
+            ptr += 4;
+            len -= 4;
+        }
+        sc = scoffset & 0x1f;
+        offset = scoffset >> 5;
 
-       case sc_CharacterReg:
-           ch = *os_context_register_addr(context, offset);
+        printf("    SC: %d, Offset: %d", sc, offset);
+        switch (sc) {
+        case sc_AnyReg:
+        case sc_DescriptorReg:
+            putchar('\t');
+            brief_print(*os_context_register_addr(context, offset));
+            break;
+
+        case sc_CharacterReg:
+            ch = *os_context_register_addr(context, offset);
 #ifdef LISP_FEATURE_X86
-           if (offset&1)
-               ch = ch>>8;
-           ch = ch & 0xff;
+            if (offset&1)
+                ch = ch>>8;
+            ch = ch & 0xff;
 #endif
-           switch (ch) {
-           case '\n': printf("\t'\\n'\n"); break;
-           case '\b': printf("\t'\\b'\n"); break;
-           case '\t': printf("\t'\\t'\n"); break;
-           case '\r': printf("\t'\\r'\n"); break;
-           default:
-               if (ch < 32 || ch > 127)
-                   printf("\\%03o", ch);
-               else
-                   printf("\t'%c'\n", ch);
-               break;
-           }
-           break;
-       case sc_SapReg:
+            switch (ch) {
+            case '\n': printf("\t'\\n'\n"); break;
+            case '\b': printf("\t'\\b'\n"); break;
+            case '\t': printf("\t'\\t'\n"); break;
+            case '\r': printf("\t'\\r'\n"); break;
+            default:
+                if (ch < 32 || ch > 127)
+                    printf("\\%03o", ch);
+                else
+                    printf("\t'%c'\n", ch);
+                break;
+            }
+            break;
+        case sc_SapReg:
 #ifdef sc_WordPointerReg
-       case sc_WordPointerReg:
+        case sc_WordPointerReg:
 #endif
-           printf("\t0x%08lx\n", (unsigned long) *os_context_register_addr(context, offset));
-           break;
-       case sc_SignedReg:
-           printf("\t%ld\n", (long) *os_context_register_addr(context, offset));
-           break;
-       case sc_UnsignedReg:
-           printf("\t%lu\n", (unsigned long) *os_context_register_addr(context, offset));
-           break;
+            printf("\t0x%08lx\n", (unsigned long) *os_context_register_addr(context, offset));
+            break;
+        case sc_SignedReg:
+            printf("\t%ld\n", (long) *os_context_register_addr(context, offset));
+            break;
+        case sc_UnsignedReg:
+            printf("\t%lu\n", (unsigned long) *os_context_register_addr(context, offset));
+            break;
 #ifdef sc_SingleFloatReg
-       case sc_SingleFloatReg:
-           printf("\t%g\n", *(float *)&context->sc_fpregs[offset]);
-           break;
+        case sc_SingleFloatReg:
+            printf("\t%g\n", *(float *)&context->sc_fpregs[offset]);
+            break;
 #endif
 #ifdef sc_DoubleFloatReg
-       case sc_DoubleFloatReg:
-           printf("\t%g\n", *(double *)&context->sc_fpregs[offset]);
-           break;
+        case sc_DoubleFloatReg:
+            printf("\t%g\n", *(double *)&context->sc_fpregs[offset]);
+            break;
 #endif
-       default:
-           printf("\t???\n");
-           break;
-       }
+        default:
+            printf("\t???\n");
+            break;
+        }
     }
 }
 \f
@@ -159,7 +159,7 @@ describe_internal_error(os_context_t *context)
 
 lispobj debug_print(lispobj string)
 {
-    /* This is a kludge.  It's not actually safe - in general - to use 
+    /* This is a kludge.  It's not actually safe - in general - to use
        %primitive print on the alpha, because it skips half of the
        number stack setup that should usually be done on a function call,
        so the called routine (i.e. this one) ends up being able to overwrite
@@ -168,7 +168,7 @@ lispobj debug_print(lispobj string)
        we just put guarantee our safety by putting an unused buffer on
        the stack before doing anything else here */
     char untouched[32]; /* GCC warns about not using this, but that's the point.. */
-    fprintf(stderr, "%s\n", 
-           (char *)(((struct vector *)native_pointer(string))->data),untouched);
+    fprintf(stderr, "%s\n",
+            (char *)(((struct vector *)native_pointer(string))->data),untouched);
     return NIL;
 }