Mercurial > emacs

comparison src/alloc.c @ 34325:a65d8c29442a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gc_sweep): Add comment.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 07 Dec 2000 12:00:51 +0000
parents 6d490e8ef117
children a9b677239421
comparison
equal deleted inserted replaced
34324:4d26cf62962c 34325:a65d8c29442a
4772 struct Lisp_Symbol *sym = sblk->symbols; 4772 struct Lisp_Symbol *sym = sblk->symbols;
4773 struct Lisp_Symbol *end = sym + lim; 4773 struct Lisp_Symbol *end = sym + lim;
4774 4774
4775 for (; sym < end; ++sym) 4775 for (; sym < end; ++sym)
4776 { 4776 {
4777 /* Check if the symbol was created during loadup. In such a case
4778 it might be pointed to by pure bytecode which we don't trace,
4779 so we conservatively assume that it is live. */
4777 int pure_p = PURE_POINTER_P (sym->name); 4780 int pure_p = PURE_POINTER_P (sym->name);
4778 4781
4779 if (!XMARKBIT (sym->plist) && !pure_p) 4782 if (!XMARKBIT (sym->plist) && !pure_p)
4780 { 4783 {
4781 *(struct Lisp_Symbol **) &sym->value = symbol_free_list; 4784 *(struct Lisp_Symbol **) &sym->value = symbol_free_list;