Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
942:d90decf21e71 943:345b7d75cab4
2908 const void *rdata = (const char *)lheader + desc[pos].offset; 2908 const void *rdata = (const char *)lheader + desc[pos].offset;
2909 switch (desc[pos].type) { 2909 switch (desc[pos].type) {
2910 case XD_LISP_OBJECT: 2910 case XD_LISP_OBJECT:
2911 { 2911 {
2912 const Lisp_Object *stored_obj = (const Lisp_Object *)rdata; 2912 const Lisp_Object *stored_obj = (const Lisp_Object *)rdata;
2913 if (!(*stored_obj)){ 2913
2914 if (EQ (*stored_obj, Qnull_pointer))
2914 break; 2915 break;
2915 }
2916 2916
2917 if (desc[pos+1].type == XD_END) 2917 if (desc[pos+1].type == XD_END)
2918 { 2918 {
2919 mark_last_occured_object = 1; 2919 mark_last_occured_object = 1;
2920 last_occured_object = stored_obj; 2920 last_occured_object = stored_obj;
2936 count = get_indirect_count (count, desc, lheader); 2936 count = get_indirect_count (count, desc, lheader);
2937 2937
2938 for (i = 0; i < count; i++) 2938 for (i = 0; i < count; i++)
2939 { 2939 {
2940 const Lisp_Object *stored_obj = ((const Lisp_Object *)rdata) + i; 2940 const Lisp_Object *stored_obj = ((const Lisp_Object *)rdata) + i;
2941 if (!(*stored_obj)) 2941
2942 { 2942 if (EQ (*stored_obj, Qnull_pointer))
2943 break; 2943 break;
2944 }
2945 2944
2946 mark_object (*stored_obj); 2945 mark_object (*stored_obj);
2947 } 2946 }
2948 break; 2947 break;
2949 } 2948 }