aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/alloc.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/alloc.c b/src/alloc.c
index 9116508bf6a..2310f63ddac 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -2545,7 +2545,7 @@ Its value and function definition are void, and its property list is nil. */)
2545 } 2545 }
2546 2546
2547 p = XSYMBOL (val); 2547 p = XSYMBOL (val);
2548 p->name = XSTRING (name); 2548 p->xname = name;
2549 p->plist = Qnil; 2549 p->plist = Qnil;
2550 p->value = Qunbound; 2550 p->value = Qunbound;
2551 p->function = Qunbound; 2551 p->function = Qunbound;
@@ -4690,9 +4690,9 @@ mark_object (argptr)
4690 mark_object (&ptr->function); 4690 mark_object (&ptr->function);
4691 mark_object (&ptr->plist); 4691 mark_object (&ptr->plist);
4692 4692
4693 if (!PURE_POINTER_P (ptr->name)) 4693 if (!PURE_POINTER_P (XSTRING (ptr->xname)))
4694 MARK_STRING (ptr->name); 4694 MARK_STRING (XSTRING (ptr->xname));
4695 MARK_INTERVAL_TREE (ptr->name->intervals); 4695 MARK_INTERVAL_TREE (XSTRING (ptr->xname)->intervals);
4696 4696
4697 /* Note that we do not mark the obarray of the symbol. 4697 /* Note that we do not mark the obarray of the symbol.
4698 It is safe not to do so because nothing accesses that 4698 It is safe not to do so because nothing accesses that
@@ -5163,7 +5163,7 @@ gc_sweep ()
5163 /* Check if the symbol was created during loadup. In such a case 5163 /* Check if the symbol was created during loadup. In such a case
5164 it might be pointed to by pure bytecode which we don't trace, 5164 it might be pointed to by pure bytecode which we don't trace,
5165 so we conservatively assume that it is live. */ 5165 so we conservatively assume that it is live. */
5166 int pure_p = PURE_POINTER_P (sym->name); 5166 int pure_p = PURE_POINTER_P (XSTRING (sym->xname));
5167 5167
5168 if (!XMARKBIT (sym->plist) && !pure_p) 5168 if (!XMARKBIT (sym->plist) && !pure_p)
5169 { 5169 {
@@ -5178,7 +5178,7 @@ gc_sweep ()
5178 { 5178 {
5179 ++num_used; 5179 ++num_used;
5180 if (!pure_p) 5180 if (!pure_p)
5181 UNMARK_STRING (sym->name); 5181 UNMARK_STRING (XSTRING (sym->xname));
5182 XUNMARK (sym->plist); 5182 XUNMARK (sym->plist);
5183 } 5183 }
5184 } 5184 }