-;;; Where to put the different spaces.
-
-(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)
-
-;;; FIXME: this is a gross violation of OAOO, done purely to support
-;;; the #define of DYNAMIC_SPACE_SIZE in validate.c -- CSR, 2002-02-25
-;;; (these numbers should match dynamic-0-*)
-(def!constant dynamic-space-start #x40000000)
-(def!constant dynamic-space-end #x47fff000)
-
-;;; nothing _seems_ to be using these addresses
-(def!constant dynamic-0-space-start #x40000000)
-(def!constant dynamic-0-space-end #x47fff000)
-(def!constant dynamic-1-space-start #x48000000)
-(def!constant dynamic-1-space-end #x4ffff000)
-
-
-
+;;;; Where to put the different spaces.
+
+;;; On non-gencgc we need large dynamic and static spaces for PURIFY
+#!-gencgc
+(progn
+ (def!constant read-only-space-start #x04000000)
+ (def!constant read-only-space-end #x07ff8000)
+ (def!constant static-space-start #x08000000)
+ (def!constant static-space-end #x097fff00)
+
+ (def!constant linkage-table-space-start #x0a000000)
+ (def!constant linkage-table-space-end #x0b000000))
+
+;;; While on gencgc we don't.
+#!+gencgc
+(progn
+ (def!constant read-only-space-start #x04000000)
+ (def!constant read-only-space-end #x040ff000)
+ (def!constant static-space-start #x04100000)
+ (def!constant static-space-end #x041ff000)
+
+ (def!constant linkage-table-space-start #x04200000)
+ (def!constant linkage-table-space-end #x042ff000))
+
+(def!constant linkage-table-entry-size 16)
+
+#!+linux
+(progn
+ #!+gencgc
+ (progn
+ (def!constant dynamic-space-start #x4f000000)
+ (def!constant dynamic-space-end #x7efff000))
+ #!-gencgc
+ (progn
+ (def!constant dynamic-0-space-start #x4f000000)
+ (def!constant dynamic-0-space-end #x66fff000)
+ (def!constant dynamic-1-space-start #x67000000)
+ (def!constant dynamic-1-space-end #x7efff000)))
+
+#!+netbsd
+(progn
+ #!+gencgc
+ (progn
+ (def!constant dynamic-space-start #x4f000000)
+ (def!constant dynamic-space-end #x7efff000))
+ #!-gencgc
+ (progn
+ (def!constant dynamic-0-space-start #x4f000000)
+ (def!constant dynamic-0-space-end #x66fff000)
+ (def!constant dynamic-1-space-start #x67000000)
+ (def!constant dynamic-1-space-end #x7efff000)))
+
+#!+darwin
+(progn
+ #!+gencgc
+ (progn
+ (def!constant dynamic-space-start #x10000000)
+ (def!constant dynamic-space-end #x6ffff000))
+ #!-gencgc
+ (progn
+ (def!constant dynamic-0-space-start #x10000000)
+ (def!constant dynamic-0-space-end #x3ffff000)
+
+ (def!constant dynamic-1-space-start #x40000000)
+ (def!constant dynamic-1-space-end #x6ffff000)))