Changeset 5700

Timestamp:

Jan 10, 2007, 2:50:37 PM (18 years ago)

Author:

Gary Byers

Message:

ppc2-vref1: lose extra arg to double->heap vinsn.

File:

• trunk/ccl/compiler/PPC/ppc2.lisp (modified) (2 diffs)

trunk/ccl/compiler/PPC/ppc2.lisp

@@ -1475 +1475 @@
                     (<- fp-val)
                     (ensuring-node-target (target vreg)
-                      (! double->heap seg target fp-val))))
+                      (! double->heap target fp-val))))
                  ((:signed-64-bit-vector :fixnum-vector)
                   (if (and index-known-fixnum (<= index-known-fixnum (arch::target-max-64-bit-constant-index arch)))
@@ -3570 +3570 @@
   
 (defun ppc2-unreachable-store (&optional vreg)
-  ; I don't think that anything needs to be done here,
-  ; but leave this guy around until we're sure.
-  ; (PPC2-VPUSH-REGISTER will always vpush something, even
-  ; if code to -load- that "something" never gets generated.
-  ; If I'm right about this, that means that the compile-time
-  ; stack-discipline problem that this is supposed to deal
-  ; with can't happen.)
+  ;; I don't think that anything needs to be done here,
+  ;; but leave this guy around until we're sure.
+  ;; (PPC2-VPUSH-REGISTER will always vpush something, even
+  ;; if code to -load- that "something" never gets generated.
+  ;; If I'm right about this, that means that the compile-time
+  ;; stack-discipline problem that this is supposed to deal
+  ;; with can't happen.)
   (declare (ignore vreg))
   nil)