Don't mark main_thread (Bug#36155)

andreas-schwab · andreas-schwab · commit 1877b7b4d79b · 2019-06-10T12:35:35.000+02:00
* thread.c (mark_threads_callback): Don't mark main_thread.
diff --git a/src/thread.c b/src/thread.c
@@ -645,7 +645,10 @@ mark_threads_callback (void *ignore)
       Lisp_Object thread_obj;
 
       XSETTHREAD (thread_obj, iter);
-      mark_object (thread_obj);
+      /* Don't mark main_thread, since it is not allocated
+	 dynamically, thus nothing would unmark it.  */
+      if (iter != &main_thread)
+	mark_object (thread_obj);
       mark_one_thread (iter);
     }
 }

Original file line number	Diff line number	Diff line change
`@@ -645,7 +645,10 @@ mark_threads_callback (void *ignore)`
`645`	`645`	`Lisp_Object thread_obj;`
`646`	`646`
`647`	`647`	`XSETTHREAD (thread_obj, iter);`
`648`		`- mark_object (thread_obj);`
	`648`	`+ /* Don't mark main_thread, since it is not allocated`
	`649`	`+ dynamically, thus nothing would unmark it. */`
	`650`	`+ if (iter != &main_thread)`
	`651`	`+ mark_object (thread_obj);`
`649`	`652`	`mark_one_thread (iter);`
`650`	`653`	`}`
`651`	`654`	`}`