fix thread stuff (obs from Jiefei Ma).

2009-12-17 23:55:09 -02:00
parent 5b8dc25eff
commit 79a1d3e13c
8 changed files with 34 additions and 24 deletions
--- a/C/threads.c
+++ b/C/threads.c
@@ -711,7 +711,8 @@ p_thread_atexit(void)
 {				/* '$thread_signal'(+P)	 */
  Term t;

-  if (ThreadHandle[worker_id].texit->Entry == MkAtomTerm(AtomTrue)) {
+  if (!ThreadHandle[worker_id].texit ||
+      ThreadHandle[worker_id].texit->Entry == MkAtomTerm(AtomTrue)) {
    return FALSE;
  }
  do {