Changeset 14948

Timestamp:

Aug 21, 2011, 12:07:21 AM (13 years ago)

Author:

Gary Byers

Message:

Fix cut-and-paste mishaps.

Location:

trunk/source/compiler/PPC

Files:

• PPC32/ppc32-vinsns.lisp (modified) (1 diff)
• PPC64/ppc64-vinsns.lisp (modified) (1 diff)

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

@@ -4061 +4061 @@
   (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))

trunk/source/compiler/PPC/PPC64/ppc64-vinsns.lisp

@@ -4051 +4051 @@
   (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))