X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fparms.lisp;h=d665d137b1ce6691a7715e77d2c938f9b0842592;hb=5e92e9ed61903658015c2a75c79a32ad41dbd29d;hp=19c7a2193245e55baa7e25a09f448c74dda3542b;hpb=52cfe54802db8736f1f4e2b67764c43bba9b78b3;p=sbcl.git

diff --git a/src/compiler/ppc/parms.lisp b/src/compiler/ppc/parms.lisp
index 19c7a21..d665d13 100644
--- a/src/compiler/ppc/parms.lisp
+++ b/src/compiler/ppc/parms.lisp
@@ -90,14 +90,21 @@
 (def!constant static-space-start    #x08000000)
 (def!constant static-space-end      #x097fff00)
 
-;;; nothing _seems_ to be using these addresses
-(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)
+#!+linux
+(progn
+  (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))
 
 #!+darwin
 (progn
+  ;;; nothing _seems_ to be using these addresses
+  (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)
+
   (def!constant linkage-table-space-start #x0a000000)
   (def!constant linkage-table-space-end   #x0b000000)
   (def!constant linkage-table-entry-size 16))
@@ -168,9 +175,8 @@
     *free-interrupt-context-index*
     sb!unix::*interrupts-enabled*
     sb!unix::*interrupt-pending*
-
-
-    ))
+    *gc-inhibit*
+    *gc-pending*))
 
 (defparameter *static-funs*
   '(length