Changeset 15158 for trunk/source/level-1


Ignore:
Timestamp:
Dec 28, 2011, 8:37:13 PM (8 years ago)
Author:
gb
Message:

Define another 3-register-argument UUO ('uuo_error_array_axis_bounds');
use it to report array bounds errors for multidimensional array access
(incorporating the axis/dimension in the UUO and therefore the error
message.)

File:
1 edited

Legend:

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

    r14843 r15158  
    281281                        (t
    282282                         (error "Unknown code in binary UUO: ~d" code)))))
     283                   (5
     284                    (%error "Index value ~s is out of bounds for axis ~s of ~s."
     285                            (list
     286                             (xp-gpr-lisp xp (ldb (byte 4 16) uuo))
     287                             (xp-gpr-lisp xp (ldb (byte 4 12) uuo))
     288                             (xp-gpr-lisp xp (ldb (byte 4 8) uuo)))
     289                            frame-ptr))
    283290                   (t
    284291                    (error "Unknown UUO, format ~d" format))))))
Note: See TracChangeset for help on using the changeset viewer.