0.pre8.92:

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

diff --git a/src/runtime/runtime.c b/src/runtime/runtime.c
index 31c03de..620e7b6 100644 (file)
--- a/src/runtime/runtime.c
+++ b/src/runtime/runtime.c
@@ -384,7 +384,6 @@ static void parent_do_garbage_collect(void)
 
     for_each_thread(th) {
        if(ptrace(PTRACE_ATTACH,th->pid,0,0)) {
-           fprintf(stderr,"attaching to %d ...",th->pid); 
            perror("PTRACE_ATTACH");
        }
        else waiting_threads++;
@@ -421,7 +420,7 @@ static void parent_do_garbage_collect(void)
                 * event to wait for */
                fprintf(stderr, "%d was pseudo-atomic, letting it resume \n",
                        th->pid);
-               SetTlSymbolValue(PSEUDO_ATOMIC_INTERRUPTED,1,th) ;
+               SetTlSymbolValue(PSEUDO_ATOMIC_INTERRUPTED,make_fixnum(1),th);
                if(ptrace(PTRACE_CONT,th->pid,0,0))
                    perror("PTRACE_CONT");
                waiting_threads++;
@@ -469,7 +468,6 @@ static void /* noreturn */ parent_loop(void)
        pid_t pid=0;
        while(pid=waitpid(-1,&status,__WALL|WUNTRACED)) {
            struct thread *th;
-           fprintf(stderr,"waitpid pid %d\n",pid);
            if(pid==-1) {
                if(errno == EINTR) {
                    if(maybe_gc_pending) parent_do_garbage_collect();