#!+win32
(progn
-
(def!constant read-only-space-start #x22000000)
(def!constant read-only-space-end #x220ff000)
(def!constant static-space-end #x221ff000)
(def!constant dynamic-space-start #x22300000)
- (def!constant dynamic-space-end #x42300000)
+ (def!constant dynamic-space-end (!configure-dynamic-space-end))
(def!constant linkage-table-space-start #x22200000)
(def!constant linkage-table-space-end #x222ff000))
(def!constant static-space-end #x011ff000)
(def!constant dynamic-space-start #x09000000)
- (def!constant dynamic-space-end #x29000000)
+ (def!constant dynamic-space-end (!configure-dynamic-space-end))
(def!constant linkage-table-space-start #x01200000)
(def!constant linkage-table-space-end #x012ff000))
(def!constant static-space-end #x201ff000)
(def!constant dynamic-space-start #x48000000)
- (def!constant dynamic-space-end #xA0000000)
+ (def!constant dynamic-space-end (!configure-dynamic-space-end))
(def!constant linkage-table-space-start #x20200000)
(def!constant linkage-table-space-end #x202ff000))
(def!constant static-space-end #x011ff000)
(def!constant dynamic-space-start #x58000000)
- (def!constant dynamic-space-end #x98000000)
+ (def!constant dynamic-space-end (!configure-dynamic-space-end))
(def!constant linkage-table-space-start #x01200000)
(def!constant linkage-table-space-end #x012ff000))
(def!constant static-space-end #x1b1ff000)
(def!constant dynamic-space-start #x40000000)
- (def!constant dynamic-space-end #x5bfff000)
+ (def!constant dynamic-space-end (!configure-dynamic-space-end))
(def!constant linkage-table-space-start #x1b200000)
(def!constant linkage-table-space-end #x1b2ff000))
(def!constant static-space-end #x201ff000)
(def!constant dynamic-space-start #x60000000)
- (def!constant dynamic-space-end #x98000000)
+ (def!constant dynamic-space-end (!configure-dynamic-space-end))
;; In CMUCL: 0xB0000000->0xB1000000
(def!constant linkage-table-space-start #x20200000)
(def!constant static-space-end #x041ff000)
(def!constant dynamic-space-start #x10000000)
- (def!constant dynamic-space-end #x6ffff000)
+ (def!constant dynamic-space-end (!configure-dynamic-space-end))
(def!constant linkage-table-space-start #x04200000)
(def!constant linkage-table-space-end #x042ff000))
(defenum (:start 24)
object-not-list-trap
- object-not-instance-trap)
+ object-not-instance-trap
+ #!+sb-safepoint global-safepoint-trap
+ #!+sb-safepoint csp-safepoint-trap)
\f
;;;; static symbols
;; For GC-AND-SAVE
*restart-lisp-function*
- ;; For the UNWIND-TO-FRAME-AND-CALL VOP
- *unwind-to-frame-function*
-
;; Needed for callbacks to work across saving cores. see
;; ALIEN-CALLBACK-ASSEMBLER-WRAPPER in c-call.lisp for gory
;; details.
;;; FIXME: Is this used? Delete it or document it.
;;; cf the sparc PARMS.LISP
(defparameter *assembly-unit-length* 8)
+
+#!+win32
+(defconstant +win32-tib-arbitrary-field-offset+ #.(+ #xE10 (* 4 63)))