diff --git a/compiler/rt/params.lisp b/compiler/rt/params.lisp index e271ccb7878aaebfa4da56df29ac79bf369acb4e..248763d5884b807ff0535811081fccd75d1240d2 100644 --- a/compiler/rt/params.lisp +++ b/compiler/rt/params.lisp @@ -7,7 +7,7 @@ ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU) ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/params.lisp,v 1.1 1991/02/18 15:08:05 chiles Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/params.lisp,v 1.2 1991/04/01 13:49:23 chiles Exp $ ;;; ;;; This file contains some parameterizations of various VM attributes for the ;;; IBM RT. This file is separate from other stuff, so we can compile and @@ -21,8 +21,23 @@ (in-package "RT") (use-package "C") -(export '(word-bits byte-bits word-shift word-bytes - halt-trap pending-interrupt-trap error-trap cerror-trap)) +(export '(word-bits byte-bits word-shift word-bytes float-sign-shift + + single-float-bias single-float-exponent-byte + single-float-significand-byte single-float-normal-exponent-min + single-float-normal-exponent-max single-float-hidden-bit + single-float-trapping-nan-bit single-float-digits + + double-float-bias double-float-exponent-byte + double-float-significand-byte double-float-normal-exponent-min + double-float-normal-exponent-max double-float-hidden-bit + double-float-trapping-nan-bit double-float-digits + + float-underflow-trap-bit float-overflow-trap-bit + float-imprecise-trap-bit float-invalid-trap-bit + float-divide-by-zero-trap-bit + +)) @@ -97,6 +112,10 @@ ;;;; Description of the target address space. +(export '(target-read-only-space-start + target-static-space-start + target-dynamic-space-start)) + ;;; Where to put the different spaces. ;;; (defparameter target-read-only-space-start #x00100000) @@ -107,16 +126,23 @@ ;;;; Other non-type constants. +(export '(halt-trap pending-interrupt-trap error-trap cerror-trap + breakpoint-trap)) + (defenum (:suffix -trap :start 8) halt pending-interrupt error - cerror) + cerror + breakpoint) ;;;; Static symbols. +(export '(static-symbols exported-static-symbols)) + + ;;; These symbols are loaded into static space directly after NIL so ;;; that the system can compute their address by adding a constant ;;; amount to NIL. @@ -136,6 +162,7 @@ lisp::%initial-function lisp::maybe-gc kernel::internal-error + di::handle-breakpoint ;; Free Pointers lisp::*read-only-space-free-pointer* @@ -158,8 +185,8 @@ ;; Static functions. two-arg-+ two-arg-- two-arg-* two-arg-/ two-arg-< two-arg-> two-arg-= - two-arg-<= two-arg->= two-arg-/= %negate two-arg-and two-arg-ior two-arg-xor - length two-arg-gcd two-arg-lcm + %negate two-arg-and two-arg-ior two-arg-xor + length two-arg-gcd two-arg-lcm truncate )) (defparameter exported-static-symbols