X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fparms.lisp;h=6a19fc04eaca6c1835c775594a75c34fc85ef7c4;hb=8c12bc813114d4bbfa9c05e450e013167ad6cca3;hp=ac5c6669c42ee0e9c3b8acef4f06ae0a00ac59d4;hpb=01da8de70d00fe984d3e8be2a56baa3633126644;p=sbcl.git

diff --git a/src/compiler/x86/parms.lisp b/src/compiler/x86/parms.lisp
index ac5c666..6a19fc0 100644
--- a/src/compiler/x86/parms.lisp
+++ b/src/compiler/x86/parms.lisp
@@ -152,6 +152,13 @@
 ;;;     FYI, this can be looked at with the "pmap" program, and if you
 ;;;     set the top-down mmap allocation option in the kernel (not yet
 ;;;     the default), all bets are totally off!
+;;;   * For FreeBSD, the requirement of user and kernel space are
+;;;     getting larger, and users tend to extend them.
+;;;     If MAXDSIZ is extended from 512MB to 1GB, we can't use up to
+;;;     around 0x50000000.
+;;;     And if KVA_PAGES is extended from 1GB to 1.5GB, we can't use
+;;;     down to around 0xA0000000.
+;;;     So we use 0x58000000--0x98000000 for dynamic space.
 
 #!+win32
 (progn
@@ -204,8 +211,8 @@
   (def!constant static-space-start        #x01100000)
   (def!constant static-space-end          #x011ff000)
 
-  (def!constant dynamic-space-start       #x60000000)
-  (def!constant dynamic-space-end         #xA0000000)
+  (def!constant dynamic-space-start       #x58000000)
+  (def!constant dynamic-space-end         #x98000000)
 
   (def!constant linkage-table-space-start #x01200000)
   (def!constant linkage-table-space-end   #x012ff000))
@@ -338,6 +345,9 @@
      ;; 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.