Mercurial > emacs

changeset 45392:f3d7ab65641f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* alloc.c (Fmake_symbol): Set symbol xname field instead of name. (mark_object, gc_sweep): Use symbol xname field and XSTRING instead of name field.
author Ken Raeburn <raeburn@raeburn.org>
date Mon, 20 May 2002 08:04:52 +0000
parents 6c875925d507
children a8851a32a1c7
files src/alloc.c
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/src/alloc.c	Mon May 20 08:04:46 2002 +0000
+++ b/src/alloc.c	Mon May 20 08:04:52 2002 +0000
@@ -2545,7 +2545,7 @@
     }
   
   p = XSYMBOL (val);
-  p->name = XSTRING (name);
+  p->xname = name;
   p->plist = Qnil;
   p->value = Qunbound;
   p->function = Qunbound;
@@ -4690,9 +4690,9 @@
 	mark_object (&ptr->function);
 	mark_object (&ptr->plist);
 
-	if (!PURE_POINTER_P (ptr->name))
-	  MARK_STRING (ptr->name);
-	MARK_INTERVAL_TREE (ptr->name->intervals);
+	if (!PURE_POINTER_P (XSTRING (ptr->xname)))
+	  MARK_STRING (XSTRING (ptr->xname));
+	MARK_INTERVAL_TREE (XSTRING (ptr->xname)->intervals);
 	
 	/* Note that we do not mark the obarray of the symbol.
 	   It is safe not to do so because nothing accesses that
@@ -5163,7 +5163,7 @@
 	    /* Check if the symbol was created during loadup.  In such a case
 	       it might be pointed to by pure bytecode which we don't trace,
 	       so we conservatively assume that it is live.  */
-	    int pure_p = PURE_POINTER_P (sym->name);
+	    int pure_p = PURE_POINTER_P (XSTRING (sym->xname));
 	    
 	    if (!XMARKBIT (sym->plist) && !pure_p)
 	      {
@@ -5178,7 +5178,7 @@
 	      {
 		++num_used;
 		if (!pure_p)
-		  UNMARK_STRING (sym->name);
+		  UNMARK_STRING (XSTRING (sym->xname));
 		XUNMARK (sym->plist);
 	      }
 	  }