Changeset 11145


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

Need an %unbox-u32.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/PPC/PPC64/ppc64-vinsns.lisp

    r10979 r11145  
    12931293  (uuo_interr arch::error-object-not-unsigned-byte-32 src)
    12941294  :got-it)
     1295
     1296(define-ppc64-vinsn %unbox-u32 (((dest :u32))
     1297                                ((src :lisp)))
     1298  (rldicl dest src (- 64 ppc64::fixnumshift) 32))
    12951299
    12961300;;; an object is of type (SIGNED-BYTE 32) iff
Note: See TracChangeset for help on using the changeset viewer.