Changeset 15119


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

Don't allow shifter operands of the for (:ror reg (:$ 0)) (that's
how (:rrx reg) is encoded.) Should enforce at the vinsn level, too.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/ARM/arm-asm.lisp

    r15093 r15119  
    11821182               (ecase (car count)
    11831183                 (:$ (destructuring-bind (countval) (cdr count)
     1184                       (if (and (eql (logand (eval countval) 31) 0)
     1185                                (eq op :ror))
     1186                         (error "Invalid shift count for :ROR : ~s." countval))
    11841187                       (set-field-value instruction (byte 12 0)
    11851188                                        (logior (need-arm-gpr reg)
Note: See TracChangeset for help on using the changeset viewer.