X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fearly-vm.lisp;h=feb1abd5fd2c59addff102f44a78f582fa30d74b;hb=5745b5a5b2e3b967bf3876b4306f31b3c78495fa;hp=670e0adb8e152819408a6666a9f0600133ad5e0c;hpb=f1ffbf976aaa50b7b22f126b97e34afe06a91210;p=sbcl.git diff --git a/src/compiler/generic/early-vm.lisp b/src/compiler/generic/early-vm.lisp index 670e0ad..feb1abd 100644 --- a/src/compiler/generic/early-vm.lisp +++ b/src/compiler/generic/early-vm.lisp @@ -45,3 +45,23 @@ (ash -1 (- n-word-bits n-lowtag-bits)) #!+sb-doc "the fixnum closest in value to negative infinity") + +(def!constant most-positive-exactly-single-float-fixnum + (min #xffffff sb!xc:most-positive-fixnum)) +(def!constant most-negative-exactly-single-float-fixnum + (max #x-ffffff sb!xc:most-negative-fixnum)) +(def!constant most-positive-exactly-double-float-fixnum + (min #x1fffffffffffff sb!xc:most-positive-fixnum)) +(def!constant most-negative-exactly-double-float-fixnum + (max #x-1fffffffffffff sb!xc:most-negative-fixnum)) + +;;;; Point where continuous area starting at dynamic-space-start bumps into +;;;; next space. +#!+gencgc +(def!constant max-dynamic-space-end + (let ((stop (1- (ash 1 n-word-bits))) + (start dynamic-space-start)) + (dolist (other-start (list read-only-space-start static-space-start linkage-table-space-start)) + (when (< start other-start) + (setf stop (min stop other-start)))) + stop))