X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fparms.lisp;h=701b42fb5526b57acfddeba12508bb4fad572414;hb=20b2378572cf7378f3f267e2234c4234dacfbdc9;hp=f2c06a1183fa63333c504ddcc1b18dd06a155acc;hpb=02c9007b4ca5753406f60019f4fe5e5f8392541a;p=sbcl.git diff --git a/src/compiler/x86/parms.lisp b/src/compiler/x86/parms.lisp index f2c06a1..701b42f 100644 --- a/src/compiler/x86/parms.lisp +++ b/src/compiler/x86/parms.lisp @@ -27,6 +27,10 @@ ;;; the number of bits per word, where a word holds one lisp descriptor (def!constant n-word-bits 32) +;;; the natural width of a machine word (as seen in e.g. register width, +;;; address space) +(def!constant n-machine-word-bits 32) + ;;; the number of bits per byte, where a byte is the smallest ;;; addressable object (def!constant n-byte-bits 8) @@ -142,9 +146,7 @@ (def!constant static-space-end #x07fff000) (def!constant dynamic-space-start #x09000000) - (def!constant dynamic-space-end #x29000000) - - (def!constant alternate-signal-stack-start #x58000000)) + (def!constant dynamic-space-end #x29000000)) #!+bsd (progn @@ -160,14 +162,7 @@ (def!constant dynamic-space-start #!+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 - + (def!constant dynamic-space-end #x88000000)) ;;; Given that NIL is the first thing allocated in static space, we ;;; know its value at compile time: @@ -231,6 +226,7 @@ sb!kernel::control-stack-exhausted-error sb!di::handle-breakpoint fdefinition-object + #!+sb-thread sb!thread::handle-thread-exit ;; free pointers ;; @@ -255,7 +251,6 @@ *free-interrupt-context-index* *free-tls-index* - sb!thread::*foreground-thread-stack* *allocation-pointer* *binding-stack-pointer*