Changeset 14063 for branches/arm/level-1/arm-error-signal.lisp

Timestamp:

Jul 27, 2010, 10:55:01 PM (10 years ago)

Author:

gb

Message:

%ERR-DISP callback: report stack overflow.

File:

• branches/arm/level-1/arm-error-signal.lisp (modified) (2 diffs)

branches/arm/level-1/arm-error-signal.lisp

@@ -249 +249 @@
                              (%error "FPU exception, fpscr = ~d" (list (aref reginfo 0)) frame-ptr)))
                          )
-                        (6                   ;array rank
+                        (6              ;array rank
                          (%err-disp-internal $XNDIMS
                                              (list
@@ -278 +278 @@
                    (t
                     (error "Unknown UUO, format ~d" format))))))
+            ((eql error-number arch::error-stack-overflow)
+             (%error
+              (make-condition
+               'stack-overflow-condition 
+               :format-control "Stack overflow on ~a stack."
+               :format-arguments (list (if (eql arg arm::vsp) "value" "control")))
+              nil frame-ptr))
             (t
              (error "%errdisp callback: error-number = ~d, arg = #x~x, fnreg = ~d, rpc = ~d"