Changeset 11146


Ignore:
Timestamp:
Oct 18, 2008, 2:12:07 AM (11 years ago)
Author:
gb
Message:

Use %unbox-u32.on ppc64 when reckless. (Changes in l0-bignum64 require this.)

File:
1 edited

Legend:

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

    r11135 r11146  
    19751975                          (if (typep constval '(unsigned-byte 32))
    19761976                            (ppc2-lri seg reg constval)
    1977                             (! unbox-u32 reg result-reg))))
     1977                            (if *ppc2-reckless*
     1978                              (target-arch-case
     1979                               (:ppc32 (! unbox-u32 reg result-reg))
     1980                               (:ppc64 (! %unbox-u32 reg result-reg)))
     1981                              (! unbox-u32 reg result-reg)))))
    19781982                   reg)))
    19791983              (is-16-bit
     
    35173521                     (case src-mode
    35183522                       (#.hard-reg-class-gpr-mode-node
    3519                         (! unbox-u32 dest src))
     3523                        (if *ppc2-reckless*
     3524                          (! %unbox-u32 dest src)
     3525                          (! unbox-u32 dest src)))
    35203526                       ((#.hard-reg-class-gpr-mode-u32
    35213527                         #.hard-reg-class-gpr-mode-s32)
Note: See TracChangeset for help on using the changeset viewer.