Index: /branches/arm/compiler/ARM/arm-asm.lisp
===================================================================
--- /branches/arm/compiler/ARM/arm-asm.lisp	(revision 13815)
+++ /branches/arm/compiler/ARM/arm-asm.lisp	(revision 13816)
@@ -274,5 +274,10 @@
      #x07f400ff
      #x0fff00ff
-     (:prefer-separate-cond))     
+     (:prefer-separate-cond))
+   ;; Kernel services.
+   (define-arm-instruction uuo-kernel-service (:uuo-unary)
+     #x07f000fd
+     #x0fff00ff
+     (:prefer-separate-cond))
 
    (define-arm-instruction and (:rd :rn :shifter)
@@ -686,10 +691,10 @@
      #x0ff70ac0
      ())
-   (define-arm-instruction smull (:rd :rn :rm :rn)
-     #x0c000090
+   (define-arm-instruction smull (:rd :rn :rm :rs)
+     #x00c00090
      #x0ff000f0
      ())
-   (define-arm-instruction smulls (:rd :rn :rm :rn)
-     #x0c000090
+   (define-arm-instruction smulls (:rd :rn :rm :rs)
+     #x00d00090
      #x0ff000f0
      ())