0.9.6.36:

[sbcl.git] / src / compiler / ppc / parms.lisp

diff --git a/src/compiler/ppc/parms.lisp b/src/compiler/ppc/parms.lisp
index 19c7a21..d665d13 100644 (file)
--- 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