Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

[fc6722]: src / compiler / generic / parms.lisp Maximize Restore History

Download this file

parms.lisp    120 lines (101 with data), 3.7 kB

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
;;;; This file contains some parameterizations of various VM
;;;; attributes common to all architectures.
;;;; This software is part of the SBCL system. See the README file for
;;;; more information.
;;;;
;;;; This software is derived from the CMU CL system, which was
;;;; written at Carnegie Mellon University and released into the
;;;; public domain. The software is in the public domain and is
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!VM")
(def!macro !configure-dynamic-space-end (default)
(with-open-file (f "output/dynamic-space-size.txt")
(let ((line (read-line f)))
(multiple-value-bind (number end)
(parse-integer line :junk-allowed t)
(if number
(let* ((ext (subseq line end))
(mult (cond ((or (zerop (length ext))
(member ext '("MB MIB") :test #'equalp))
(expt 2 20))
((member ext '("GB" "GIB") :test #'equalp)
(expt 2 30))
(t
(error "Invalid --dynamic-space-size=~A" line)))))
`(+ dynamic-space-start ,(* number mult)))
default)))))
(defparameter *c-callable-static-symbols*
'(sub-gc
sb!kernel::post-gc
sb!kernel::internal-error
sb!kernel::control-stack-exhausted-error
sb!kernel::binding-stack-exhausted-error
sb!kernel::alien-stack-exhausted-error
sb!kernel::heap-exhausted-error
sb!kernel::undefined-alien-variable-error
sb!kernel::undefined-alien-function-error
sb!kernel::memory-fault-error
sb!kernel::unhandled-trap-error
sb!di::handle-breakpoint
sb!di::handle-single-step-trap
fdefinition-object
#!+win32 sb!kernel::handle-win32-exception))
(defparameter *common-static-symbols*
'(t
;; filled in by the C code to propagate to Lisp
*posix-argv* *core-string*
;; free pointers. Note that these are FIXNUM word counts, not (as
;; one might expect) byte counts or SAPs. The reason seems to be
;; that by representing them this way, we can avoid consing
;; bignums. -- WHN 2000-10-02
*read-only-space-free-pointer*
*static-space-free-pointer*
;; things needed for non-local-exit
*current-catch-block*
*current-unwind-protect-block*
#!+hpux *c-lra*
;; stack pointers
*binding-stack-start*
*control-stack-start*
*control-stack-end*
;; interrupt handling
*alloc-signal*
*free-interrupt-context-index*
sb!unix::*allow-with-interrupts*
sb!unix::*interrupts-enabled*
sb!unix::*interrupt-pending*
*in-without-gcing*
*gc-inhibit*
*gc-pending*
#!-sb-thread
*stepping*
;; threading support
#!+sb-thread *stop-for-gc-pending*
#!+sb-thread *free-tls-index*
#!+sb-thread *tls-index-lock*
;; Dispatch tables for generic array access
sb!impl::*data-vector-reffers*
sb!impl::*data-vector-setters*
sb!impl::*data-vector-reffers/check-bounds*
sb!impl::*data-vector-setters/check-bounds*
;; non-x86oid gencgc object pinning
#!+(and gencgc (not (or x86 x86-64)))
*pinned-objects*
;; hash table weaknesses
:key
:value
:key-and-value
:key-or-value))
;;; Number of entries in the thread local storage. Limits the number
;;; of symbols with thread local bindings.
(def!constant tls-size 4096)
#!+gencgc
(progn
(def!constant +highest-normal-generation+ 5)
(def!constant +pseudo-static-generation+ 6))
(defenum ()
trace-table-normal
trace-table-call-site
trace-table-fun-prologue
trace-table-fun-epilogue)