aboutsummaryrefslogtreecommitdiffstats
path: root/src/alloc.c
diff options
context:
space:
mode:
authorAlan Mackenzie2017-02-05 16:28:53 +0000
committerAlan Mackenzie2017-02-05 16:28:53 +0000
commitd5514332d4a6092673ce1f78fadcae0c57f7be64 (patch)
tree1780337154904dcfad8ecfa76614b47c082160dd /src/alloc.c
parentcecc25c68f5a1834c356e18259aa2af402a70ce1 (diff)
parentde3336051ef74e0c3069374ced5b5fc7bb9fba15 (diff)
downloademacs-d5514332d4a6092673ce1f78fadcae0c57f7be64.tar.gz
emacs-d5514332d4a6092673ce1f78fadcae0c57f7be64.zip
Merge branch 'master' into comment-cache
Diffstat (limited to 'src/alloc.c')
-rw-r--r--src/alloc.c8
1 files changed, 3 insertions, 5 deletions
diff --git a/src/alloc.c b/src/alloc.c
index 93ea286cfb8..1a6d4e2d565 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1,6 +1,6 @@
1/* Storage allocation and gc for GNU Emacs Lisp interpreter. 1/* Storage allocation and gc for GNU Emacs Lisp interpreter.
2 2
3Copyright (C) 1985-1986, 1988, 1993-1995, 1997-2016 Free Software 3Copyright (C) 1985-1986, 1988, 1993-1995, 1997-2017 Free Software
4Foundation, Inc. 4Foundation, Inc.
5 5
6This file is part of GNU Emacs. 6This file is part of GNU Emacs.
@@ -5883,8 +5883,6 @@ garbage_collect_1 (void *end)
5883 5883
5884 gc_sweep (); 5884 gc_sweep ();
5885 5885
5886 unmark_threads ();
5887
5888 /* Clear the mark bits that we set in certain root slots. */ 5886 /* Clear the mark bits that we set in certain root slots. */
5889 VECTOR_UNMARK (&buffer_defaults); 5887 VECTOR_UNMARK (&buffer_defaults);
5890 VECTOR_UNMARK (&buffer_local_symbols); 5888 VECTOR_UNMARK (&buffer_local_symbols);
@@ -6406,7 +6404,7 @@ mark_object (Lisp_Object arg)
6406 6404
6407#ifdef GC_CHECK_MARKED_OBJECTS 6405#ifdef GC_CHECK_MARKED_OBJECTS
6408 m = mem_find (po); 6406 m = mem_find (po);
6409 if (m == MEM_NIL && !SUBRP (obj) && !primary_thread_p (po)) 6407 if (m == MEM_NIL && !SUBRP (obj) && !main_thread_p (po))
6410 emacs_abort (); 6408 emacs_abort ();
6411#endif /* GC_CHECK_MARKED_OBJECTS */ 6409#endif /* GC_CHECK_MARKED_OBJECTS */
6412 6410
@@ -6418,7 +6416,7 @@ mark_object (Lisp_Object arg)
6418 6416
6419 if (pvectype != PVEC_SUBR 6417 if (pvectype != PVEC_SUBR
6420 && pvectype != PVEC_BUFFER 6418 && pvectype != PVEC_BUFFER
6421 && !primary_thread_p (po)) 6419 && !main_thread_p (po))
6422 CHECK_LIVE (live_vector_p); 6420 CHECK_LIVE (live_vector_p);
6423 6421
6424 switch (pvectype) 6422 switch (pvectype)