0.8.4.1

[sbcl.git] / src / runtime / runtime.c

diff --git a/src/runtime/runtime.c b/src/runtime/runtime.c
index 32cad8a..ae360ae 100644 (file)
--- a/src/runtime/runtime.c
+++ b/src/runtime/runtime.c
@@ -407,7 +407,7 @@ static void /* noreturn */ parent_loop(void)
     while(!all_threads) {
        sched_yield();
     }
-    while(all_threads && (pid=waitpid(-1,&status,__WALL|WUNTRACED))) {
+    while(all_threads && (pid=waitpid(-1,&status,__WALL))) {
        struct thread *th;
        int real_errno=errno;
        if(pid==-1) {
@@ -418,9 +418,9 @@ static void /* noreturn */ parent_loop(void)
            fprintf(stderr,"waitpid: %s\n",strerror(real_errno));
            continue;
        }
-       th=find_thread_by_pid(pid);
-       if(!th) continue;
        if(WIFEXITED(status) || WIFSIGNALED(status)) {
+           th=find_thread_by_pid(pid);
+           if(!th) continue;
            fprintf(stderr,"waitpid : child %d %x exited \n", pid,th);
            destroy_thread(th);
            if(!all_threads) break;