Changeset 14063 for branches


Ignore:
Timestamp:
Jul 27, 2010, 10:55:01 PM (9 years ago)
Author:
gb
Message:

%ERR-DISP callback: report stack overflow.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/level-1/arm-error-signal.lisp

    r14017 r14063  
    249249                             (%error "FPU exception, fpscr = ~d" (list (aref reginfo 0)) frame-ptr)))
    250250                         )
    251                         (6                   ;array rank
     251                        (6              ;array rank
    252252                         (%err-disp-internal $XNDIMS
    253253                                             (list
     
    278278                   (t
    279279                    (error "Unknown UUO, format ~d" format))))))
     280            ((eql error-number arch::error-stack-overflow)
     281             (%error
     282              (make-condition
     283               'stack-overflow-condition
     284               :format-control "Stack overflow on ~a stack."
     285               :format-arguments (list (if (eql arg arm::vsp) "value" "control")))
     286              nil frame-ptr))
    280287            (t
    281288             (error "%errdisp callback: error-number = ~d, arg = #x~x, fnreg = ~d, rpc = ~d"
Note: See TracChangeset for help on using the changeset viewer.