;;; 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:
;;; set the top-down mmap allocation option in the kernel (not yet
;;; the default), all bets are totally off!
+#!+win32
+(progn
+
+ (def!constant read-only-space-start #x01000000)
+ (def!constant read-only-space-end #x037ff000)
+
+ (def!constant static-space-start #x05000000)
+ (def!constant static-space-end #x07fff000)
+
+ (def!constant dynamic-space-start #x09000000)
+ (def!constant dynamic-space-end #x29000000))
+
#!+linux
(progn
(def!constant read-only-space-start #x01000000)
(def!constant linkage-table-space-start #xA0000000)
(def!constant linkage-table-space-end #xA1000000))
+
+#!+darwin
+(progn
+ (def!constant read-only-space-start #x01000000)
+ (def!constant read-only-space-end #x04ff8000)
+
+ (def!constant static-space-start #x08000000)
+ (def!constant static-space-end #x097fff00)
+
+ (def!constant dynamic-space-start #x10000000)
+ (def!constant dynamic-space-end #x6ffff000)
+
+ (def!constant linkage-table-space-start #x0a000000)
+ (def!constant linkage-table-space-end #x0b000000))
+
;;; Size of one linkage-table entry in bytes.
(def!constant linkage-table-entry-size 8)
cerror
breakpoint
fun-end-breakpoint
- single-step-breakpoint)
+ single-step-breakpoint
+ #!+win32 context-restore) ;; HACK: The Win32 exception handling system does wrong things with this.
;;; FIXME: It'd be nice to replace all the DEFENUMs with something like
;;; (WITH-DEF-ENUM (:START 8)
;;; (DEF-ENUM HALT-TRAP)
sb!kernel::memory-fault-error
sb!di::handle-breakpoint
fdefinition-object
+ #!+win32 sb!kernel::handle-win32-exception
;; free pointers
;;
*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*
+
+ ;; Needed for callbacks to work across saving cores. see
+ ;; ALIEN-CALLBACK-ASSEMBLER-WRAPPER in c-call.lisp for gory details.
+ sb!alien::*enter-alien-callback*
+
;; The ..SLOT-UNBOUND.. symbol is static in order to optimise the
;; common slot unbound check.
;;