[Openmcl-cvs-notifications] r14948 - in /trunk/source/compiler/PPC: PPC32/ppc32-vinsns.lisp PPC64/ppc64-vinsns.lisp

[gb at clozure.com]

Author: gb
Date: Sun Aug 21 02:07:21 2011
New Revision: 14948

Log:
Fix cut-and-paste mishaps.

Modified:
    trunk/source/compiler/PPC/PPC32/ppc32-vinsns.lisp
    trunk/source/compiler/PPC/PPC64/ppc64-vinsns.lisp

Modified: trunk/source/compiler/PPC/PPC32/ppc32-vinsns.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/PPC/PPC32/ppc32-vinsns.lisp (original)
+++ trunk/source/compiler/PPC/PPC32/ppc32-vinsns.lisp Sun Aug 21 02:07:21 2=
011
@@ -4060,11 +4060,11 @@
                                                 (val :double-float)))
   (stfd val (:apply ash idx 3) base))
 =

-(define-ppc32-vinsn fixnum-set-c-double-float (()
-                                               ((base :imm)
-                                                (idx :imm)
-                                                (val :double-float))
-                                               ((temp :imm)))
+(define-ppc32-vinsn fixnum-set-double-float (()
+                                             ((base :imm)
+                                              (idx :imm)
+                                              (val :double-float))
+                                             ((temp :imm)))
   (add temp idx idx)
   (stfdx val base temp))
 =


Modified: trunk/source/compiler/PPC/PPC64/ppc64-vinsns.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/PPC/PPC64/ppc64-vinsns.lisp (original)
+++ trunk/source/compiler/PPC/PPC64/ppc64-vinsns.lisp Sun Aug 21 02:07:21 2=
011
@@ -4050,10 +4050,10 @@
                                                 (val :double-float)))
   (stfd val (:apply ash idx 3) base))
 =

-(define-ppc64-vinsn fixnum-set-c-double-float (()
-                                               ((base :imm)
-                                                (idx :imm)
-                                                (val :double-float)))
+(define-ppc64-vinsn fixnum-set-double-float (()
+                                             ((base :imm)
+                                              (idx :imm)
+                                              (val :double-float)))
   (stfdx val base idx))
 =

 ;;; In case ppc64::*ppc-opcodes* was changed since this file was compiled.