Changeset 12580


Ignore:
Timestamp:
Aug 15, 2009, 7:28:40 AM (10 years ago)
Author:
rme
Message:

In PPC2-%FIXNUM-TO-SINGLE, if vreg isn't a single-float reg, introduce
a temporary.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/PPC/ppc2.lisp

    r12352 r12580  
    91019101        (! trap-unless-fixnum r))
    91029102      (! fixnum->fpr dreg r)
    9103       (! double-to-single vreg dreg)
     9103      (if (single-float-reg-p vreg)
     9104        (! double-to-single vreg dreg)
     9105        (with-fp-target (dreg) (sreg :single-float)
     9106          (! double-to-single sreg dreg)
     9107          (<- sreg)))
    91049108      (^))))
    91059109
Note: See TracChangeset for help on using the changeset viewer.