src/compiler/generic/early-vm.lisp

   1 ;;;; This software is part of the SBCL system. See the README file for
   2 ;;;; more information.
   3 ;;;;
   4 ;;;; This software is derived from the CMU CL system, which was
   5 ;;;; written at Carnegie Mellon University and released into the
   6 ;;;; public domain. The software is in the public domain and is
   7 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
   8 ;;;; files for more information.
   9
  10 (in-package "SB!VM")
  11
  12 ;;; the number of bits at the low end of a pointer used for type
  13 ;;; information
  14 (defconstant lowtag-bits 3)
  15 ;;; a mask to extract the low tag bits from a pointer
  16 (defconstant lowtag-mask (1- (ash 1 lowtag-bits)))
  17 ;;; the exclusive upper bound on the value of the low tag bits from a
  18 ;;; pointer
  19 (defconstant lowtag-limit (ash 1 lowtag-bits))
  20
  21 ;;; the number of bits used in the header word of a data block to store
  22 ;;; the type
  23 (defconstant type-bits 8)
  24 ;;; a mask to extract the type from a data block header word
  25 (defconstant type-mask (1- (ash 1 type-bits)))
  26
  27 ;;; FIXME: Couldn't/shouldn't these be DEFCONSTANT instead of
  28 ;;; DEFPARAMETER? (It might seem even more tempting to make them
  29 ;;; SB!XC:MOST-POSITIVE-FIXNUM and SB!XC:MOST-NEGATIVE-FIXNUM,
  30 ;;; but that's probably not a good idea, since then we'd need
  31 ;;; to worry about the effect of UNCROSS in expressions like
  32 ;;; (DEFTYPE INDX3 () `(INTEGER 3 ,SB!XC:MOST-POSITIVE-FIXNUM)).)
  33 (defparameter *target-most-positive-fixnum* (1- (ash 1 29))
  34   #!+sb-doc
  35   "most-positive-fixnum in the target architecture")
  36 (defparameter *target-most-negative-fixnum* (ash -1 29)
  37   #!+sb-doc
  38   "most-negative-fixnum in the target architecture")