From d8665cd74207447fd038c64d65c0643a69ef53df Mon Sep 17 00:00:00 2001 From: Paul Khuong Date: Fri, 28 Jun 2013 02:03:33 -0400 Subject: [PATCH] s/32/n-word-bits/ in bignum-index For some reason we missed that during all the work on x86-64. Then again, our static inference is good enough that no runtime check seem to be left to detect that the declaration is wrong. --- src/compiler/generic/vm-type.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compiler/generic/vm-type.lisp b/src/compiler/generic/vm-type.lisp index f447b9c..5764891 100644 --- a/src/compiler/generic/vm-type.lisp +++ b/src/compiler/generic/vm-type.lisp @@ -78,7 +78,7 @@ ;;; FIXME: see also DEFCONSTANT MAXIMUM-BIGNUM-LENGTH in ;;; src/code/bignum.lisp. -- CSR, 2004-07-19 (sb!xc:deftype bignum-index () - '(integer 0 #.(1- (ash 1 (- 32 sb!vm:n-widetag-bits))))) + '(integer 0 #.(1- (ash 1 (- sb!vm:n-word-bits sb!vm:n-widetag-bits))))) ;;;; hooks into the type system -- 1.7.10.4