Index: /branches/arm/compiler/ARM/arm-asm.lisp
===================================================================
--- /branches/arm/compiler/ARM/arm-asm.lisp	(revision 13792)
+++ /branches/arm/compiler/ARM/arm-asm.lisp	(revision 13793)
@@ -622,5 +622,5 @@
      #x0fff0fc0
      ())
-   (define-arm-instruction fcmpes (:dd :dm)
+   (define-arm-instruction fcmpes (:sd :sm)
      #x0eb40ac0
      #x0fff0fc0
@@ -862,5 +862,5 @@
 (defconstant opcode-mvn 15)
 
-(defvar *equivalent-complemented-opcodes*
+(defparameter *equivalent-complemented-opcodes*
   (vector opcode-bic                    ;and->bic
           nil                           ;eor->
@@ -872,4 +872,5 @@
           nil                           ;rsc->
           nil                           ;tst->
+          nil                           ;teq->
           nil                           ;cmp->
           nil                           ;cmn->
@@ -880,5 +881,5 @@
           ))
 
-(defvar *equivalent-negated-opcodes*
+(defparameter *equivalent-negated-opcodes*
   (vector nil                           ;and->
           nil                           ;eor->
@@ -890,4 +891,5 @@
           nil                           ;rsc->
           nil                           ;tst->
+          nil                           ;teq->
           opcode-cmn                    ;cmp->cmn
           opcode-cmp                    ;cmn->cmp