X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fparms.lisp;h=4128ae95a04b7b883bff7684e833e809441349c3;hb=5813c792f8a5d69dd796d2b545b8f7867ddef389;hp=bf151fa9df2856f15089ab18a500a78d90f3c2d7;hpb=8731c1a7c1a585d190151fa881050fb5e14c0616;p=sbcl.git diff --git a/src/compiler/x86/parms.lisp b/src/compiler/x86/parms.lisp index bf151fa..4128ae9 100644 --- a/src/compiler/x86/parms.lisp +++ b/src/compiler/x86/parms.lisp @@ -144,11 +144,7 @@ (def!constant dynamic-space-start #x09000000) (def!constant dynamic-space-end #x29000000) - (def!constant control-stack-start #x50000000) - (def!constant control-stack-end #x57fff000) - - (def!constant binding-stack-start #x60000000) - (def!constant binding-stack-end #x67fff000)) + (def!constant alternate-signal-stack-start #x58000000)) #!+bsd (progn @@ -161,19 +157,17 @@ #!+openbsd #x28000000) (def!constant static-space-end #x37fff000) - (def!constant binding-stack-start #x38000000) - (def!constant binding-stack-end #x3ffff000) - - (def!constant control-stack-start - #!+freebsd #x40000000 - #!+openbsd #x48000000) - (def!constant control-stack-end - #!+freebsd #x47fff000 - #!+openbsd #x4ffff000) (def!constant dynamic-space-start - #!+freebsd #x48000000 - #!+openbsd #x50000000) - (def!constant dynamic-space-end #x88000000)) + #!+freebsd #x48000000 + #!+openbsd #x50000000) + (def!constant dynamic-space-end #x88000000) + (def!constant alternate-signal-stack-start + #!+freebsd #x44000000 + #!+openbsd #x4c000000)) + + +;;; don't need alternate-signal-stack-end : it's -start+SIGSTKSZ + ;;; Given that NIL is the first thing allocated in static space, we ;;; know its value at compile time: @@ -222,19 +216,19 @@ (defvar *allocation-pointer*) (defvar *binding-stack-pointer*) -;;; FIXME: *!INITIAL-FDEFN-OBJECTS* and !COLD-INIT probably don't need -;;; to be in the static symbols table any more. Also, if -;;; *INTERNAL-GC-TRIGGER* really is not used, we can punt it. +;;; FIXME: !COLD-INIT probably doesn't need +;;; to be in the static symbols table any more. (defparameter *static-symbols* '(t ;; The C startup code must fill these in. *posix-argv* - sb!impl::*!initial-fdefn-objects* - ;; functions that the C code needs to call + ;; functions that the C code needs to call. When adding to this list, + ;; also add a `frob' form in genesis.lisp finish-symbols. maybe-gc sb!kernel::internal-error + sb!kernel::control-stack-exhausted-error sb!di::handle-breakpoint fdefinition-object @@ -260,9 +254,14 @@ sb!unix::*interrupt-pending* *free-interrupt-context-index* + *free-tls-index* + sb!thread::*foreground-thread-stack* + *allocation-pointer* *binding-stack-pointer* - *internal-gc-trigger* ; Not used. + *binding-stack-start* + *control-stack-start* + *control-stack-end* ;; the floating point constants *fp-constant-0d0*