Changeset 14948


Ignore:
Timestamp:
Aug 21, 2011, 7:07:21 AM (9 years ago)
Author:
gb
Message:

Fix cut-and-paste mishaps.

Location:
trunk/source/compiler/PPC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/PPC/PPC32/ppc32-vinsns.lisp

    r14942 r14948  
    40614061  (stfd val (:apply ash idx 3) base))
    40624062
    4063 (define-ppc32-vinsn fixnum-set-c-double-float (()
    4064                                                ((base :imm)
    4065                                                 (idx :imm)
    4066                                                 (val :double-float))
    4067                                                ((temp :imm)))
     4063(define-ppc32-vinsn fixnum-set-double-float (()
     4064                                             ((base :imm)
     4065                                              (idx :imm)
     4066                                              (val :double-float))
     4067                                             ((temp :imm)))
    40684068  (add temp idx idx)
    40694069  (stfdx val base temp))
  • trunk/source/compiler/PPC/PPC64/ppc64-vinsns.lisp

    r14942 r14948  
    40514051  (stfd val (:apply ash idx 3) base))
    40524052
    4053 (define-ppc64-vinsn fixnum-set-c-double-float (()
    4054                                                ((base :imm)
    4055                                                 (idx :imm)
    4056                                                 (val :double-float)))
     4053(define-ppc64-vinsn fixnum-set-double-float (()
     4054                                             ((base :imm)
     4055                                              (idx :imm)
     4056                                              (val :double-float)))
    40574057  (stfdx val base idx))
    40584058
Note: See TracChangeset for help on using the changeset viewer.