Index: /trunk/source/compiler/ARM/arm-asm.lisp
===================================================================
--- /trunk/source/compiler/ARM/arm-asm.lisp	(revision 14950)
+++ /trunk/source/compiler/ARM/arm-asm.lisp	(revision 14951)
@@ -197,5 +197,10 @@
      #xffffffff
      (:non-conditional))   
-   
+
+   (define-arm-instruction vmul.f32 (:dd :dn :dm)
+     #xf3000d10
+     #xffa00f10
+     (:non-conditional))
+
 ;;; UUOs.
 
@@ -682,9 +687,9 @@
    (define-arm-instruction fmsr (:sn :rd)
      #x0e000a10
-     #x0ff00f90
+     #x0ff00f7f
      ())
    (define-arm-instruction fmrs (:rd :sn)
      #x0e100a10
-     #x0ff00f90
+     #x0ff00f7f
      ())
    (define-arm-instruction fmrrd (:rd :rn :dm)
@@ -718,9 +723,9 @@
    (define-arm-instruction fsubd (:dd :dn :dm)
      #x0e300b40
-     #x0ff00fc0
+     #x0fb00f50
      ())
    (define-arm-instruction fsubs (:sd :sn :sm)
      #x0e300a40
-     #x0ff00fc0
+     #x0fb00f50
      ())
    (define-arm-instruction fmuld (:dd :dn :dm)
@@ -730,5 +735,5 @@
    (define-arm-instruction fmuls (:sd :sn :sm)
      #x0e200a00
-     #x0ff00f50
+     #x0fb00f50
      ())
    (define-arm-instruction fdivd (:dd :dn :dm)
@@ -743,4 +748,8 @@
    (define-arm-instruction fmacd (:dd :dn :dm)
      #x0e000b00
+     #x0fb00f50
+     ())
+   (define-arm-instruction fmacs (:sd :sn :sm)
+     #x0e000a00
      #x0fb00f50
      ())