This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp".
The branch, master has been updated via d6fc24083a6075d918e6c5b0f543e9d76fe38ce6 (commit) from 7f177be20349c8d8a267b51fa2f71636fce4d1ce (commit)
Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below.
- Log ----------------------------------------------------------------- commit d6fc24083a6075d918e6c5b0f543e9d76fe38ce6 Author: Raymond Toy toy.raymond@gmail.com Date: Sun Jan 29 09:20:41 2012 -0800
When writing out the runtime features to internals.h, only include the features in the target backend. This prevents runtime features (like :executable or :heap-overflow-check) from leaking from the compiling system to the target system which might not have these.
diff --git a/src/compiler/generic/new-genesis.lisp b/src/compiler/generic/new-genesis.lisp index b6781cc..d356c36 100644 --- a/src/compiler/generic/new-genesis.lisp +++ b/src/compiler/generic/new-genesis.lisp @@ -2606,14 +2606,16 @@ vm:other-pointer-type (if symbol (vm:static-symbol-offset symbol) 0))))) ;; - ;; Write out features. + ;; Write out the runtime features, but only if they are also target + ;; features. (format t "~%/* Runtime features when built. */~2%") (dolist (feature sys:*runtime-features*) - (format t "#define FEATURE_~a 1~%" - (nsubstitute #_ #- - (remove-if #'(lambda (char) - (member char '(#% #* #.))) - (symbol-name feature))))) + (when (c::target-featurep feature) + (format t "#define FEATURE_~a 1~%" + (nsubstitute #_ #- + (remove-if #'(lambda (char) + (member char '(#% #* #.))) + (symbol-name feature)))))) ;; (format t "~%#endif~%"))
-----------------------------------------------------------------------
Summary of changes: src/compiler/generic/new-genesis.lisp | 14 ++++++++------ 1 files changed, 8 insertions(+), 6 deletions(-)
hooks/post-receive