Mercurial > hg > xemacs-beta

diff src/alloc.c @ 943:345b7d75cab4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-08-01 08:28:18 by michaels] 2002-08-01 Mike Sperber <mike@xemacs.org> * event-stream.c: * event-Xt.c: * events.h: * events.c: * alloc.c: Fix various kkcc-related nits that show up in MULE and union-type builds.
author michaels
date Thu, 01 Aug 2002 08:28:38 +0000
parents c925bacdda60
children 7924b28c57a4
line wrap: on
line diff
--- a/src/alloc.c	Wed Jul 31 20:26:41 2002 +0000
+++ b/src/alloc.c	Thu Aug 01 08:28:38 2002 +0000
@@ -2910,9 +2910,9 @@
       case XD_LISP_OBJECT: 
 	{
 	  const Lisp_Object *stored_obj = (const Lisp_Object *)rdata;
-	  if (!(*stored_obj)){
+
+	  if (EQ (*stored_obj, Qnull_pointer))
 	    break;
-	  }
 
 	  if (desc[pos+1].type == XD_END)
 	    {
@@ -2938,10 +2938,9 @@
 	  for (i = 0; i < count; i++)
 	    {
 	      const Lisp_Object *stored_obj = ((const Lisp_Object *)rdata) + i;
-	      if (!(*stored_obj))
-		{
-		  break;
-		}
+
+	      if (EQ (*stored_obj, Qnull_pointer))
+		break;
 
 	      mark_object (*stored_obj);
 	    }