Changeset 5100


Ignore:
Timestamp:
Sep 4, 2006, 5:04:17 AM (18 years ago)
Author:
Gary Byers
Message:

Gak. Get guard/predicate syntax right in LOAD-CHARACTER-CONSTANT.

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

Legend:

Unmodified
Added
Removed

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

    r5091 r5100  
    34073407                                             ((code :u8const)))
    34083408  (ori dest ppc::rzero (:apply logior (:apply ash (:apply logand #x255 code) ppc32::charcode-shift) ppc32::subtag-character))
    3409   ((:pred (:not = 0 (:apply ldb (byte 16 8) code)))
     3409  ((:not (:pred = 0 (:apply ldb (byte 16 8) code)))
    34103410   (oris dest dest (:apply ldb (byte 16 8) code))))
    34113411

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

    r5091 r5100  
    34343434                                             ())
    34353435  (ori dest ppc::rzero (:apply logior (:apply ash code 8) ppc64::subtag-character))
    3436   ((:pred (:not = 0 (:apply ldb (byte 16 8) code)))
     3436  ((:not (:pred = 0 (:apply ldb (byte 16 8) code)))
    34373437   (oris dest dest (:apply ldb (byte 16 8) code))))
    34383438
Note: See TracChangeset for help on using the changeset viewer.