diff options
| author | Alan Mackenzie | 2017-02-05 16:28:53 +0000 |
|---|---|---|
| committer | Alan Mackenzie | 2017-02-05 16:28:53 +0000 |
| commit | d5514332d4a6092673ce1f78fadcae0c57f7be64 (patch) | |
| tree | 1780337154904dcfad8ecfa76614b47c082160dd /src/alloc.c | |
| parent | cecc25c68f5a1834c356e18259aa2af402a70ce1 (diff) | |
| parent | de3336051ef74e0c3069374ced5b5fc7bb9fba15 (diff) | |
| download | emacs-d5514332d4a6092673ce1f78fadcae0c57f7be64.tar.gz emacs-d5514332d4a6092673ce1f78fadcae0c57f7be64.zip | |
Merge branch 'master' into comment-cache
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 8 |
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 | ||
| 3 | Copyright (C) 1985-1986, 1988, 1993-1995, 1997-2016 Free Software | 3 | Copyright (C) 1985-1986, 1988, 1993-1995, 1997-2017 Free Software |
| 4 | Foundation, Inc. | 4 | Foundation, Inc. |
| 5 | 5 | ||
| 6 | This file is part of GNU Emacs. | 6 | This 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) |