(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)
(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