;;; 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:
;;; would be possible, but probably not worth the time and code bloat
;;; it would cause. -- JES, 2005-12-11
-(def!constant read-only-space-start #x20000000)
-(def!constant read-only-space-end #x27ff0000)
+(progn
+ (def!constant read-only-space-start #x20000000)
+ (def!constant read-only-space-end #x27ff0000)
+
+ (def!constant static-space-start #x40000000)
+ (def!constant static-space-end #x47fff000)
-(def!constant static-space-start #x40000000)
-(def!constant static-space-end #x47fff000)
+ (def!constant dynamic-space-start #x1000000000)
+ (def!constant dynamic-space-end #x11ffff0000)
-(def!constant dynamic-space-start #x1000000000)
-(def!constant dynamic-space-end #x11ffff0000)
+ (def!constant linkage-table-space-start #x60000000)
+ (def!constant linkage-table-space-end #x63fff000)
-(def!constant linkage-table-space-start #x60000000)
-(def!constant linkage-table-space-end #x63fff000)
+ (def!constant linkage-table-entry-size 16))
-(def!constant linkage-table-entry-size 16)
\f
;;;; other miscellaneous constants
cerror
breakpoint
fun-end-breakpoint
- single-step-breakpoint)
+ single-step-around
+ single-step-before)
;;; FIXME: It'd be nice to replace all the DEFENUMs with something like
;;; (WITH-DEF-ENUM (:START 8)
;;; (DEF-ENUM HALT-TRAP)
;;; for the benefit of anyone doing a lexical search for definitions
;;; of these symbols.
-(defenum (:prefix object-not- :suffix -trap :start 16)
+(defenum (:prefix object-not- :suffix -trap :start 24)
list
instance)
'(*alien-stack*
;; interrupt handling
- *pseudo-atomic-atomic*
- *pseudo-atomic-interrupted*
+ *pseudo-atomic-bits*
#!+sb-thread *stop-for-gc-pending*