diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-07-04 20:44:52 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-07-04 20:44:52 +0000 |
| commit | 2e34157cd9e74150e79e0ce23236252b47fb5f1a (patch) | |
| tree | 418451da8380ec73d5d46dc648c07e6ad8af845f /src/intervals.h | |
| parent | 8c239ac3ed4f636810bc08959e1318b1a6e928ba (diff) | |
| download | emacs-2e34157cd9e74150e79e0ce23236252b47fb5f1a.tar.gz | |
Fix bugs with inappropriate mixing of Lisp_Object with int.
Diffstat (limited to 'src/intervals.h')
| -rw-r--r-- | src/intervals.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/intervals.h b/src/intervals.h index d19a92a4608..aa914ceff98 100644 --- a/src/intervals.h +++ b/src/intervals.h @@ -37,9 +37,15 @@ Boston, MA 02111-1307, USA. */ /* 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) |