[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-01-19-gd6fc240

Raymond Toy rtoy at common-lisp.net
Sun Jan 29 17:20:48 UTC 2012


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 at 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
-- 
CMU Common Lisp




More information about the cmucl-cvs mailing list