comparison src/alloc.c @ 20768:6ebcbdec2e07

Comment change.
author Richard M. Stallman <rms@gnu.org>
date Sun, 25 Jan 1998 07:20:49 +0000
parents ed9ed828415e
children 3b2f72ed135c
comparison
equal deleted inserted replaced
20767:ad6c6f1bd674 20768:6ebcbdec2e07
2004 mark_object ((Lisp_Object *) &ptr->value); 2004 mark_object ((Lisp_Object *) &ptr->value);
2005 mark_object (&ptr->function); 2005 mark_object (&ptr->function);
2006 mark_object (&ptr->plist); 2006 mark_object (&ptr->plist);
2007 XSETTYPE (*(Lisp_Object *) &ptr->name, Lisp_String); 2007 XSETTYPE (*(Lisp_Object *) &ptr->name, Lisp_String);
2008 mark_object (&ptr->name); 2008 mark_object (&ptr->name);
2009 /* Note that we do not mark the obarray of the symbol.
2010 It is safe not to do so because nothing accesses that
2011 slot except to check whether it is nil. */
2009 ptr = ptr->next; 2012 ptr = ptr->next;
2010 if (ptr) 2013 if (ptr)
2011 { 2014 {
2012 /* For the benefit of the last_marked log. */ 2015 /* For the benefit of the last_marked log. */
2013 objptr = (Lisp_Object *)&XSYMBOL (obj)->next; 2016 objptr = (Lisp_Object *)&XSYMBOL (obj)->next;