Index: /branches/arm/compiler/ARM/arm-arch.lisp
===================================================================
--- /branches/arm/compiler/ARM/arm-arch.lisp	(revision 13757)
+++ /branches/arm/compiler/ARM/arm-arch.lisp	(revision 13758)
@@ -369,7 +369,6 @@
              (defarmsubprim .SPreq-heap-rest-arg)
              (defarmsubprim .SPheap-cons-rest-arg)
-             (defarmsubprim .SPsimple-keywords)
-             (defarmsubprim .SPkeyword-args)
-             (defarmsubprim .SPkeyword-bind)
+             (defarmsubprim .SPcheck-fpu-exception)
+             (defarmsubprim .SPdiscard_stack_object)
              (defarmsubprim .SPksignalerr)
              (defarmsubprim .SPstack-rest-arg)
@@ -427,4 +426,7 @@
              (defarmsubprim .SPaset2)
              (defarmsubprim .SPaset3)
+             (defarmsubprim .SPkeyword-bind)
+             (defarmsubprim .SPudiv32)
+             (defarmsubprim .SPsdiv32)
              )))))
 
@@ -675,6 +677,9 @@
 (define-fixedsized-object double-float
   pad
-  value
-  val-low)
+  val-low
+  val-high)
+
+(defconstant double-float.value double-float.val-low)
+
 
 (define-fixedsized-object complex