Mercurial > emacs

diff src/intervals.h @ 18613:614b916ff5bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bugs with inappropriate mixing of Lisp_Object with int.
author Richard M. Stallman <rms@gnu.org>
date Fri, 04 Jul 1997 20:44:52 +0000
parents a609ccd7eefb
children 1507c5324f4c
line wrap: on
line diff
--- a/src/intervals.h	Fri Jul 04 20:43:49 1997 +0000
+++ b/src/intervals.h	Fri Jul 04 20:44:52 1997 +0000
@@ -37,9 +37,15 @@
 /* True if an interval pointer is null, or is a Lisp_Buffer or
    Lisp_String pointer (meaning it points to the owner of this
    interval tree). */
+#ifdef NO_UNION_TYPE
 #define NULL_INTERVAL_P(i) ((i) == NULL_INTERVAL           \
 			    || BUFFERP ((Lisp_Object)(i)) \
 			    || STRINGP ((Lisp_Object)(i)))
+#else
+#define NULL_INTERVAL_P(i) ((i) == NULL_INTERVAL           \
+			    || BUFFERP ((Lisp_Object){(EMACS_INT)(i)}) \
+			    || STRINGP ((Lisp_Object){(EMACS_INT)(i)}))
+#endif
 
 /* True if this interval has no right child. */
 #define NULL_RIGHT_CHILD(i) ((i)->right == NULL_INTERVAL)