Changeset 15119

Timestamp:

Dec 8, 2011, 10:13:19 AM (13 years ago)

Author:

Gary Byers

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:

• trunk/source/compiler/ARM/arm-asm.lisp (modified) (1 diff)

trunk/source/compiler/ARM/arm-asm.lisp

@@ -1182 +1182 @@
                (ecase (car count)
                  (:$ (destructuring-bind (countval) (cdr count)
+                       (if (and (eql (logand (eval countval) 31) 0)
+                                (eq op :ror))
+                         (error "Invalid shift count for :ROR : ~s." countval))
                        (set-field-value instruction (byte 12 0)
                                         (logior (need-arm-gpr reg)