Changeset 14768

Timestamp:

May 1, 2011, 5:27:53 AM (14 years ago)

Author:

Gary Byers

Message:

!ALLOC-EABI-C-FRAME: can save a few instructions, since the size
of the frame is a constant.

File:

• trunk/source/compiler/ARM/arm-vinsns.lisp (modified) (1 diff)

trunk/source/compiler/ARM/arm-vinsns.lisp

@@ -2040 +2040 @@
      ((n-c-args :u16const))
      ((header :u32)
-      (size :imm)
       (prevsp :imm)))
-  (mov header (:$ (:apply ash (:apply + 1 (:apply logandc2 (:apply + 4 4 1 n-c-args) 1)) arm::num-subtag-bits)))
-  (mov size (:lsr header (:$ (- arm::num-subtag-bits arm::word-shift))))
-  (orr header header (:$ arm::subtag-u32-vector))
+  (movw header (:$ (:apply logior (:apply ash (:apply + 1 (:apply logandc2 (:apply + 4 4 1 n-c-args) 1)) arm::num-subtag-bits) arm::subtag-u32-vector)))
   (mov prevsp sp)
-  (add size size (:$ arm::node-size))
-  (str header (:-@! sp size))
+  (str header (:@! sp (:$ (:apply - (:apply ash (:apply + 2 (:apply logandc2 (:apply + 4 4 1 n-c-args) 1)) arm::word-shift)))))
   (str prevsp (:@ sp (:$ 4))))