Changeset 364

Timestamp:

Jan 22, 2004, 2:53:29 AM (21 years ago)

Author:

Gary Byers

Message:

Um, COPY-FPR sets (and uses) an FPR ...

File:

• trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp (modified) (2 diffs)

trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp

@@ -1562 +1562 @@
 
 (define-ppc32-vinsn copy-gpr (((dest t))
-                            ((src t)))
+                              ((src t)))
   ((:not (:pred =
                 (:apply %hard-regspec-value dest)
@@ -1569 +1569 @@
 
 
-(define-ppc32-vinsn copy-fpr (((dest t))
-                            ((src t)))
+(define-ppc32-vinsn copy-fpr (((dest :double-float))
+                              ((src :double-float)))
   ((:not (:pred =
                 (:apply %hard-regspec-value dest)