1 ;;;; This file contains some parameterizations of various VM
2 ;;;; attributes common to all architectures.
4 ;;;; This software is part of the SBCL system. See the README file for
7 ;;;; This software is derived from the CMU CL system, which was
8 ;;;; written at Carnegie Mellon University and released into the
9 ;;;; public domain. The software is in the public domain and is
10 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
11 ;;;; files for more information.
15 (defparameter *c-callable-static-symbols
*
18 sb
!kernel
::internal-error
19 sb
!kernel
::control-stack-exhausted-error
20 sb
!kernel
::binding-stack-exhausted-error
21 sb
!kernel
::alien-stack-exhausted-error
22 sb
!kernel
::heap-exhausted-error
23 sb
!kernel
::undefined-alien-variable-error
24 sb
!kernel
::undefined-alien-function-error
25 sb
!kernel
::memory-fault-error
26 sb
!kernel
::unhandled-trap-error
27 sb
!di
::handle-breakpoint
28 sb
!di
::handle-single-step-trap
30 #!+win32 sb
!kernel
::handle-win32-exception
))
32 (defparameter *common-static-symbols
*
35 ;; filled in by the C code to propagate to Lisp
36 *posix-argv
* *core-string
*
38 ;; free pointers. Note that these are FIXNUM word counts, not (as
39 ;; one might expect) byte counts or SAPs. The reason seems to be
40 ;; that by representing them this way, we can avoid consing
41 ;; bignums. -- WHN 2000-10-02
42 *read-only-space-free-pointer
*
43 *static-space-free-pointer
*
45 ;; things needed for non-local-exit
47 *current-unwind-protect-block
*
58 *free-interrupt-context-index
*
59 sb
!unix
::*allow-with-interrupts
*
60 sb
!unix
::*interrupts-enabled
*
61 sb
!unix
::*interrupt-pending
*
68 ;; Dispatch tables for generic array access
69 sb
!impl
::*data-vector-reffers
*
70 sb
!impl
::*data-vector-setters
*
71 sb
!impl
::*data-vector-reffers
/check-bounds
*
72 sb
!impl
::*data-vector-setters
/check-bounds
*
74 ;; hash table weaknesses
80 ;;; Number of entries in the thread local storage. Limits the number
81 ;;; of symbols with thread local bindings.
82 (def!constant tls-size
4096)
86 (def!constant
+highest-normal-generation
+ 5)
87 (def!constant
+pseudo-static-generation
+ 6))
92 trace-table-fun-prologue
93 trace-table-fun-epilogue
)