changeset 28430:f805ef5a2a03

* lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
author Ken Raeburn <raeburn@raeburn.org>
date Thu, 30 Mar 2000 22:27:55 +0000
parents 2e3e0b3b6108
children 315d6e79ea38
files src/ChangeLog src/lisp.h
diffstat 2 files changed, 14 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
Binary file src/ChangeLog has changed
--- a/src/lisp.h	Thu Mar 30 13:28:09 2000 +0000
+++ b/src/lisp.h	Thu Mar 30 22:27:55 2000 +0000
@@ -48,13 +48,25 @@
 
 /* Extra internal type checking?  */
 extern int suppress_checking;
+extern void die P_((const char *, const char *, int));
+
 #ifdef ENABLE_CHECKING
-extern void die P_((const char *, const char *, int));
-#define CHECK(check,msg) ((check || suppress_checking ? 0 : die (msg, __FILE__, __LINE__)), 0)
+
+#define CHECK(check,msg) ((check || suppress_checking		\
+			   ? 0					\
+			   : die (msg, __FILE__, __LINE__)),	\
+			  0)
+
+/* Let's get some compile-time checking too.  */
+#undef NO_UNION_TYPE
+
 #else
+
 /* Produce same side effects and result, but don't complain.  */
 #define CHECK(check,msg) ((check),0)
+
 #endif
+
 /* Define an Emacs version of "assert", since some system ones are
    flaky.  */
 #if defined (__GNUC__) && __GNUC__ >= 2 && defined (__STDC__)