Changeset 14957

Timestamp:

Aug 29, 2011, 5:37:50 PM (13 years ago)

Author:

Gary Byers

Message:

fldmiad definition: count operand is :DRCOUNT
PARSE-IMM16-OPERAND: allow quote/fixnum syntax.

File:

• trunk/source/compiler/ARM/arm-asm.lisp (modified) (2 diffs)

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

@@ -824 +824 @@
      #x0fb00f00
      ())
-   (define-arm-instruction fldmiad (:dd :rnw :srcount)
+   (define-arm-instruction fldmiad (:dd :rnw :drcount)
      #x0cb00b00
      #x0fb00f00
@@ -1322 +1322 @@
 (defun parse-imm16-operand (form instruction)
   (unless (and (consp form)
-               (eq (car form) :$)
+               (or (eq (car form) :$)
+                   (eq (car form) 'quote))
                (consp (cdr form))
                (null (cddr form)))
     (error "Bad 16-bit immediate operand: ~s" form))
   (let* ((val (eval (cadr form))))
+    (when (eq (car form) 'quote)
+      (setq val (ash val arm::fixnumshift)))
     (set-field-value instruction (byte 12 0) (ldb (byte 12 0) val))
     (set-field-value instruction (byte 4 16) (ldb (byte 4 12) val))))