Changeset 389

Timestamp:

Jan 25, 2004, 2:00:19 PM (21 years ago)

Author:

Gary Byers

Message:

Halfhearted attempt at #+ppc32/#+ppc64 conditionalization. Will need
to split this in half.

File:

• trunk/ccl/compiler/PPC/ppc-lapmacros.lisp (modified) (2 diffs)

trunk/ccl/compiler/PPC/ppc-lapmacros.lisp

@@ -406 +406 @@
      (rlwimi ,dest ,high (- 16 ppc32::fixnumshift) 0 15)))
 
+#+ppc32-target
 (defppclapmacro macptr-ptr (dest macptr)
   `(lwz ,dest ppc32::macptr.address ,macptr))
@@ -666 +667 @@
 |#
 
+;;; see "Optimizing PowerPC Code" p. 156
+;;; Note that the constant #x4330000080000000 is now in fp-s32conv
+
+(defppclapmacro int-to-freg (int freg imm)
+  `(let ((temp 8)
+         (temp.h 8)
+         (temp.l 12))
+    (stwu tsp -16 tsp)
+    (stw tsp 4 tsp)
+    (stfd ppc::fp-s32conv temp tsp)
+    (unbox-fixnum ,imm ,int)
+    (xoris ,imm ,imm #x8000)       ; invert sign of unboxed fixnum
+    (stw ,imm temp.l tsp)
+    (lfd ,freg temp tsp)
+    (lwz tsp 0 tsp)
+    (fsub ,freg ,freg ppc::fp-s32conv)))