projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8alpha.0.8:
[sbcl.git]
/
src
/
compiler
/
generic
/
genesis.lisp
diff --git
a/src/compiler/generic/genesis.lisp
b/src/compiler/generic/genesis.lisp
index
f32e88d
..
9bfeeaa
100644
(file)
--- a/
src/compiler/generic/genesis.lisp
+++ b/
src/compiler/generic/genesis.lisp
@@
-1253,7
+1253,7
@@
(macrolet ((frob (symbol)
`(cold-set ',symbol
(cold-fdefinition-object (cold-intern ',symbol)))))
(macrolet ((frob (symbol)
`(cold-set ',symbol
(cold-fdefinition-object (cold-intern ',symbol)))))
- (frob maybe-gc)
+ (frob sub-gc)
(frob internal-error)
(frob sb!kernel::control-stack-exhausted-error)
(frob sb!di::handle-breakpoint)
(frob internal-error)
(frob sb!kernel::control-stack-exhausted-error)
(frob sb!di::handle-breakpoint)
@@
-3290,7
+3290,12
@@
initially undefined function references:~2%")
(dolist (obj structs)
(out-to
(string-downcase (string (sb!vm:primitive-object-name obj)))
(dolist (obj structs)
(out-to
(string-downcase (string (sb!vm:primitive-object-name obj)))
- (write-primitive-object obj))))
+ (write-primitive-object obj)))
+ (out-to "primitive-objects"
+ (dolist (obj structs)
+ (format t "~&#include \"~A.h\"~%"
+ (string-downcase
+ (string (sb!vm:primitive-object-name obj)))))))
(out-to "static-symbols" (write-static-symbols))
(when core-file-name
(out-to "static-symbols" (write-static-symbols))
(when core-file-name