Changeset 5380

Timestamp:

Oct 19, 2006, 12:18:01 PM (18 years ago)

Author:

Gary Byers

Message:

Typos in UNBOX-S8.

File:

• trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp (modified) (1 diff)

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

@@ -1178 +1178 @@
   (slwi dest src (- ppc32::nbits-in-word (+ 8 ppc32::fixnumshift)))
   (srawi dest dest (- ppc32::nbits-in-word 8))
-  (slwi dest src ppc32::fixnumshift)
+  (slwi dest dest ppc32::fixnumshift)
   (cmpw crf dest src)
   (srawi dest src ppc32::fixnumshift)
   (beq+ crf :got-it)
   :bad
-  (uuo_interr arch::error-object-not-signed-byte-16 src)
+  (uuo_interr arch::error-object-not-signed-byte-8 src)
   :got-it)