Changeset 13794

Timestamp:

Jun 9, 2010, 9:06:28 PM (14 years ago)

Author:

Gary Byers

Message:

Need SINGLE-FLOAT-COMPARE vinsn.
VPUSH-ARGREGS: need to use predecrement (stmdb, not stm) when vpushing
multiple registers.
LRI: try to load u16 constants by mov/orr, not by pc-relative ldr.
TEMP-PUSH-UNBOXED-WORD: need to use :@!.

File:

• branches/arm/compiler/ARM/arm-vinsns.lisp (modified) (5 diffs)

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

@@ -1366 +1366 @@
   (fdivd result x y))
 
+
+(define-arm-vinsn single-float-compare (((crf :crf))
+                                        ((arg0 :single-float)
+                                         (arg1 :single-float))
+                                        ())
+  (fcmpes arg0 arg1)
+  (fmstat))
+
 (define-arm-vinsn single-float+-2 (((result :single-float))
                                    ((x :single-float)
@@ -1520 +1528 @@
    (cmp nargs (:$ (ash 2 arm::fixnumshift)))
    (strlo arg_z (:@! vsp (:$ (- arm::node-size))))
-   (stmeq (:! vsp) (arg_z arg_y))
-   (stmhi (:! vsp) (arg_z arg_y arg_x))
+   (stmdbeq (:! vsp) (arg_z arg_y))
+   (stmdbhi (:! vsp) (arg_z arg_y arg_x))
    :done)
   ((:pred = num-fixed-args 2)
    (cmp nargs (:$ (ash 2 arm::fixnumshift)))
-   (stmeq (:! vsp) (arg_z arg_y))
-   (stmhi (:! vsp) (arg_z arg_y arg_x)))
+   (stmdbeq (:! vsp) (arg_z arg_y))
+   (stmdbhi (:! vsp) (arg_z arg_y arg_x)))
   ((:pred > num-fixed-args 2)
-   (stm (:! vsp) (arg_z arg_y arg_x))))
+   (stmdb (:! vsp) (arg_z arg_y arg_x))))
 
 
@@ -1724 +1732 @@
     (mvn dest (:$ (:apply lognot intval))))
    ((:not (:pred arm::encode-arm-immediate (:apply lognot intval)))
-    (:data)
-    :const
-    (:word intval)
-    (:code)
-    (ldr dest :const))))
+    ((:and (:pred >= intval 0)
+           (:pred < intval #x10000))
+     (mov dest (:$ (:apply logand #xff00 intval)))
+     ((:not (:pred = 0 (:apply logand #xff intval)))))
+      (orr dest dest (:$ (:apply logand #xff intval)))))
+    ((:not (:and (:pred >= intval 0)
+                 (:pred < intval #x10000)))
+     (:data)
+     :const
+     (:word intval)
+     (:code)
+     (ldr dest :const)))
 
 
@@ -2668 +2683 @@
   (mov header (:$ arm::subtag-u32-vector))
   (orr header header (:$ (ash 1 arm::num-subtag-bits)))
-  (str header (:@ sp (:$ (- arm::dnode-size))))
+  (str header (:@! sp (:$ (- arm::dnode-size))))
   (str w (:@ sp (:$ 4))))
 
@@ -2806 +2821 @@
   (mov temp2 (:$ 0))
   (mov imm0 (:$ arm::lisp-frame-marker))  
-  (stmdb (:! sp) (imm0 vsp temp2 lr)))
+  (stmdb (:! sp) (imm0 vsp fn lr))
+  (str temp2 (:@ sp (:$ arm::lisp-frame.savefn))))
+