Changeset 5220

Timestamp:

Sep 19, 2006, 12:37:43 AM (18 years ago)

Author:

Gary Byers

Message:

Need THREE-DIGIT-BIGNUM-HEADER to recognize some cases of (UNSIGNED-BYTE 64).

File:

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

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

@@ -521 +521 @@
 (define-header one-digit-bignum-header 1 subtag-bignum)
 (define-header two-digit-bignum-header 2 subtag-bignum)
+(define-header three-digit-bignum-header 3 subtag-bignum)
 (define-header symbol-header symbol.element-count subtag-symbol)
 (define-header value-cell-header value-cell.element-count subtag-value-cell)