;;; addressable object
(def!constant n-byte-bits 8)
+;;; The size in bytes of the GENCGC pages. Should be a multiple of the
+;;; architecture code size.
+(def!constant gencgc-page-size 4096)
+
(def!constant float-sign-shift 31)
;;; comment from CMU CL:
(def!constant linkage-table-space-start #x70000000)
(def!constant linkage-table-space-end #x7ffff000))
+#!+sunos
+(progn
+ (def!constant read-only-space-start #x20000000)
+ (def!constant read-only-space-end #x2ffff000)
+
+ (def!constant static-space-start #x40000000)
+ (def!constant static-space-end #x42fff000)
+
+ (def!constant dynamic-space-start #x48000000)
+ (def!constant dynamic-space-end #xA0000000)
+
+ (def!constant linkage-table-space-start #xA2000000)
+ (def!constant linkage-table-space-end #xA3000000))
+
#!+freebsd
(progn
(def!constant read-only-space-start #x10000000)
*gc-inhibit*
#!+sb-thread *stop-for-gc-pending*
*gc-pending*
+ #!+sb-thread sb!thread::run-interruption
*free-tls-index*
+ *tls-index-lock*
*allocation-pointer*
*binding-stack-pointer*
*fp-constant-lg2*
*fp-constant-ln2*
+ ;; For GC-AND-SAVE
+ *restart-lisp-function*
+
;; The ..SLOT-UNBOUND.. symbol is static in order to optimise the
;; common slot unbound check.
;;