0.7.6.3:

[sbcl.git] / src / compiler / generic / genesis.lisp

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index fad92a9..ca733d9 100644 (file)
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -1247,6 +1247,7 @@
                          (cold-fdefinition-object (cold-intern ',symbol)))))
     (frob maybe-gc)
     (frob internal-error)
+    (frob sb!kernel::control-stack-exhausted-error)
     (frob sb!di::handle-breakpoint)
     (frob sb!di::handle-fun-end-breakpoint))
 
@@ -2747,6 +2748,14 @@
   ;; pseudo-atomic-trap-number or pseudo-atomic-magic-constant
   ;; [possibly applicable to other platforms])
 
+  (dolist (symbol '(sb!vm::float-traps-byte sb!vm::float-exceptions-byte sb!vm::float-sticky-bits sb!vm::float-rounding-mode))
+    (format t "#define ~A_POSITION ~A /* ~:*0x~X */~%"
+           (substitute #\_ #\- (symbol-name symbol))
+           (sb!xc:byte-position (symbol-value symbol)))
+    (format t "#define ~A_MASK 0x~X /* ~:*~A */~%"
+           (substitute #\_ #\- (symbol-name symbol))
+           (sb!xc:mask-field (symbol-value symbol) -1)))
+
   ;; writing primitive object layouts
   (let ((structs (sort (copy-list sb!vm:*primitive-objects*) #'string<
                       :key (lambda (obj)