Changeset 14957


Ignore:
Timestamp:
Aug 30, 2011, 12:37:50 AM (8 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

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

    r14955 r14957  
    824824     #x0fb00f00
    825825     ())
    826    (define-arm-instruction fldmiad (:dd :rnw :srcount)
     826   (define-arm-instruction fldmiad (:dd :rnw :drcount)
    827827     #x0cb00b00
    828828     #x0fb00f00
     
    13221322(defun parse-imm16-operand (form instruction)
    13231323  (unless (and (consp form)
    1324                (eq (car form) :$)
     1324               (or (eq (car form) :$)
     1325                   (eq (car form) 'quote))
    13251326               (consp (cdr form))
    13261327               (null (cddr form)))
    13271328    (error "Bad 16-bit immediate operand: ~s" form))
    13281329  (let* ((val (eval (cadr form))))
     1330    (when (eq (car form) 'quote)
     1331      (setq val (ash val arm::fixnumshift)))
    13291332    (set-field-value instruction (byte 12 0) (ldb (byte 12 0) val))
    13301333    (set-field-value instruction (byte 4 16) (ldb (byte 4 12) val))))
Note: See TracChangeset for help on using the changeset viewer.