Changeset 13816

Timestamp:

Jun 14, 2010, 3:07:19 AM (14 years ago)

Author:

Gary Byers

Message:

Add uuo-kernel-service; fix smull, smulls.

File:

• branches/arm/compiler/ARM/arm-asm.lisp (modified) (2 diffs)

branches/arm/compiler/ARM/arm-asm.lisp

@@ -274 +274 @@
      #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 +691 @@
      #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
      ())