Changeset 13793

Timestamp:

Jun 10, 2010, 4:03:37 AM (10 years ago)

Author:

gb

Message:

fcmpes takes single-float args ...
The *equivalent-complemented-opcodes* and *equivalent-negated-opcodes* vectors
were each missing an entry, causing mov/cmp to negative constants to generate
the wrong instruction.

File:

• branches/arm/compiler/ARM/arm-asm.lisp (modified) (5 diffs)

branches/arm/compiler/ARM/arm-asm.lisp

@@ -622 +622 @@
      #x0fff0fc0
      ())
-   (define-arm-instruction fcmpes (:dd :dm)
+   (define-arm-instruction fcmpes (:sd :sm)
      #x0eb40ac0
      #x0fff0fc0
@@ -862 +862 @@
 (defconstant opcode-mvn 15)
 
-(defvar *equivalent-complemented-opcodes*
+(defparameter *equivalent-complemented-opcodes*
   (vector opcode-bic                    ;and->bic
           nil                           ;eor->
@@ -872 +872 @@
           nil                           ;rsc->
           nil                           ;tst->
+          nil                           ;teq->
           nil                           ;cmp->
           nil                           ;cmn->
@@ -880 +881 @@
           ))
 
-(defvar *equivalent-negated-opcodes*
+(defparameter *equivalent-negated-opcodes*
   (vector nil                           ;and->
           nil                           ;eor->
@@ -890 +891 @@
           nil                           ;rsc->
           nil                           ;tst->
+          nil                           ;teq->
           opcode-cmn                    ;cmp->cmn
           opcode-cmp                    ;cmn->cmp