From bc44c40dfd62e7fe94371937404a1a15f1a3fe28 Mon Sep 17 00:00:00 2001 From: ch <ch> Date: Wed, 21 Feb 1990 00:26:02 +0000 Subject: [PATCH] Added lowtag-limit constant. --- compiler/mips/parms.lisp | 23 ++++++++++++++--------- 1 file changed, 14 insertions(+), 9 deletions(-) diff --git a/compiler/mips/parms.lisp b/compiler/mips/parms.lisp index 5b804557b..4066b7981 100644 --- a/compiler/mips/parms.lisp +++ b/compiler/mips/parms.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.8 1990/02/20 18:19:04 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.9 1990/02/21 00:26:02 ch Exp $ ;;; ;;; This file contains some parameterizations of various VM attributes for ;;; the MIPS. This file is separate from other stuff so that it can be compiled @@ -22,13 +22,14 @@ (export '(sc-number-limit most-positive-cost word-bits byte-bits word-shift - word-bytes target-byte-order lowtag-bits lowtag-mask type-bits - type-mask pad-data-block even-fixnum-type function-pointer-type - other-immediate-type list-pointer-type odd-fixnum-type - structure-pointer-type other-pointer-type bignum-type ratio-type - single-float-type double-float-type complex-type - simple-array-type simple-string-type simple-bit-vector-type - simple-vector-type simple-array-unsigned-byte-2-type + word-bytes target-byte-order lowtag-bits lowtag-mask lowtag-limit + type-bits type-mask pad-data-block even-fixnum-type + function-pointer-type other-immediate-type list-pointer-type + odd-fixnum-type structure-pointer-type other-pointer-type + bignum-type ratio-type single-float-type double-float-type + complex-type simple-array-type simple-string-type + simple-bit-vector-type simple-vector-type + simple-array-unsigned-byte-2-type simple-array-unsigned-byte-4-type simple-array-unsigned-byte-8-type simple-array-unsigned-byte-16-type @@ -85,7 +86,11 @@ "Number of bits at the low end of a pointer used for type information.") (defconstant lowtag-mask (1- (ash 1 lowtag-bits)) - "Mask to extract the lowtag bits from a pointer.") + "Mask to extract the low tag bits from a pointer.") + +(defconstant lowtag-limit (ash 1 lowtag-bits) + "Exclusive upper bound on the value of the low tag bits from a + pointer.") (defconstant type-bits 8 "Number of bits used in the header word of a data block for typeing.") -- GitLab