Changeset 13999


Ignore:
Timestamp:
Jul 21, 2010, 4:04:14 AM (9 years ago)
Author:
gb
Message:

Handle FPU exceptions in non FFI case.

File:
1 edited

Legend:

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

    r13984 r13999  
    241241                              (setf (xp-gpr-lisp xp dest-reg)
    242242                                    (fv.addr eep-or-fv))))))
     243                        (5              ;fpu
     244                         (let* ((reginfo (xp-gpr-lisp xp (ldb (byte 4 8) uuo)))
     245                                (condition-name (fp-condition-name-from-fpscr-status (aref reginfo 0))))
     246                           (if condition-name
     247                             (%error condition-name nil frame-ptr)
     248                             (%error "FPU exception, fpscr = ~d" (list (aref reginfo 0)) frame-ptr)))
     249                         )
    243250                        (t
    244251                         (error "Unknown code in binary UUO: ~d" code)))))
Note: See TracChangeset for help on using the changeset viewer.