Changeset 5189


Ignore:
Timestamp:
Sep 9, 2006, 3:39:18 AM (18 years ago)
Author:
Gary Byers
Message:

REQUIRE-CHAR-CODE: compare against boxed char-code-limit.

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

Legend:

Unmodified
Added
Removed

  • trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp

    r5182 r5189  
    877877  :again
    878878  (clrlwi. tag object (- ppc32::nbits-in-word ppc32::nlisptagbits))
    879   (lis tag (ash #x110000 -16))
     879  (lis tag (ash (ash #x110000 ppc32::fixnumshift) -16))
    880880  (cmplw crf1 object tag)
    881881  (bne crf0 :bad)

  • trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp

    r5182 r5189  
    968968  :again
    969969  (clrldi. tag object (- ppc64::nbits-in-word ppc64::nlisptagbits))
    970   (lis tag (ash #x110000 -16))
     970  (lis tag (ash (ash #x110000 ppc64::fixnumshift) -16))
    971971  (cmpld crf1 object tag)
    972972  (bne crf0 :bad)
Note: See TracChangeset for help on using the changeset viewer.