From cdbef3f3dd049dfb1078472add331f93feccc28c Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Wed, 28 May 2003 14:17:47 +0000
Subject: [PATCH] 	* src/compiler/generic/new-genesis.lisp
 (emit-c-header-aux): 	Write features to internals.h. 	(emit-c-header): Exit
 with code 1 if internals.h has changed.

---
 compiler/generic/new-genesis.lisp | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/compiler/generic/new-genesis.lisp b/compiler/generic/new-genesis.lisp
index 0eb26ec38..422904725 100644
--- a/compiler/generic/new-genesis.lisp
+++ b/compiler/generic/new-genesis.lisp
@@ -4,7 +4,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.54 2003/03/23 21:23:41 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.55 2003/05/28 14:17:47 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2288,7 +2288,7 @@
 		    (- (* (vm:slot-offset slot) vm:word-bytes) lowtag)))
 	  (terpri))))
     (format t "#endif /* LANGUAGE_ASSEMBLY */~2%"))
-
+  ;;
   ;; Write out static symbols
   (dolist (symbol (cons nil vm:static-symbols))
     (format t "#define ~A LISPOBJ(0x~X)~%"
@@ -2304,6 +2304,13 @@
 		   vm:word-bytes
 		   vm:other-pointer-type
 		   (if symbol (vm:static-symbol-offset symbol) 0)))))
+  ;;
+  ;; Write out features.
+  (format t "~%/* Features when built. */~2%")
+  (dolist (feature (c:backend-features c:*backend*))
+    (format t "#define FEATURE_~a 1~%"
+	    (substitute #\_ #\- (symbol-name feature))))
+  ;;
   (format t "~%#endif~%"))
 
 ;;; FILES-DIFFER --- internal
@@ -2341,8 +2348,9 @@
 				     ".OLD"))
 	   (unix:unix-chmod unix-newname #o444)
 	   (rename-file new-name name)
-	   (warn "The C header file has changed.~%Be sure to ~
-		  re-compile the startup code."))
+	   (format t "The C header file has changed.~%~
+                      Be sure to re-compile the startup code.")
+	   (unix:unix-exit 1))
 	  (t
 	   (unix:unix-unlink unix-newname))))
   (undefined-value))
-- 
GitLab