Index: /trunk/source/compiler/ARM/arm-asm.lisp
===================================================================
--- /trunk/source/compiler/ARM/arm-asm.lisp	(revision 15074)
+++ /trunk/source/compiler/ARM/arm-asm.lisp	(revision 15075)
@@ -1,3 +1,3 @@
-;;;-*- Mode: Lisp; Package: (ARM :use CL) -*-
+;;-*- Mode: Lisp; Package: (ARM :use CL) -*-
 ;;;
 ;;;   Copyright (C) 2005-2009 Clozure Associates and contributors.
@@ -526,5 +526,8 @@
       (#x01f00010 . #x0ff00090))
      ())
-
+   (define-arm-instruction vpop1 (:rd)
+     #x049a0004
+     #x0fff0fff
+     ())
    (define-arm-instruction ldr (:rd :mem12)
      #x04100000
@@ -534,4 +537,8 @@
      #x04500000
      #x0c500000
+     ())
+   (define-arm-instruction vpush1 (:rd)
+     #x052a0004
+     #x0fff0fff
      ())
    (define-arm-instruction str (:rd :mem12)
@@ -814,7 +821,15 @@
      #x0fb00f00
      ())
+   (define-arm-instruction fstmias (:sd :rnw :srcount)
+     #x0c800a00
+     #x0fd00f00
+     ())
    (define-arm-instruction fstmdbd (:dd :rnw :drcount)
      #x0d200b00
-     #x0fb00f00
+     #x0ff00f00
+     ())
+   (define-arm-instruction fstmiad (:sd :rnw :srcount)
+     #x0c800b00
+     #x0fd00f00
      ())
    (define-arm-instruction fldd (:dd :fpaddr)
@@ -1020,4 +1035,5 @@
                         (byte low-width pos)
                         low)))))))
+
 
 (defun set-field-value (instruction bytespec value)
Index: /trunk/source/compiler/ARM/arm-lapmacros.lisp
===================================================================
--- /trunk/source/compiler/ARM/arm-lapmacros.lisp	(revision 15074)
+++ /trunk/source/compiler/ARM/arm-lapmacros.lisp	(revision 15075)
@@ -88,6 +88,5 @@
   `(str ,src (:+@! ,stack (:$ (- arm::node-size)))))
 
-(defarmlapmacro vpush1 (src)
-  `(push1 ,src vsp))
+
 
 
@@ -95,6 +94,5 @@
   `(ldr ,dest (:@+ ,stack (:$ arm::node-size))))
 
-(defarmlapmacro vpop1 (dest)
-  `(pop1 ,dest vsp))
+
 
 (defarmlapmacro %cdr (dest node)