From: Cyrus H. <sl...@us...> - 2006-05-16 21:13:55
|
Update of /cvsroot/sbcl/sbcl/src/runtime In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv6032 Modified Files: Tag: lutex-branch thread.c Log Message: 0.9.12.26.lutex-branch.37 * free the freeable stacks with free_freeable_stacks and change an fprintf to an FSHOW. Index: thread.c =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/runtime/thread.c,v retrieving revision 1.62.2.9 retrieving revision 1.62.2.10 diff -u -d -r1.62.2.9 -r1.62.2.10 --- thread.c 16 May 2006 16:33:20 -0000 1.62.2.9 +++ thread.c 16 May 2006 21:13:50 -0000 1.62.2.10 @@ -181,7 +181,7 @@ freeable_stack_queue = old->next; freeable_stack_count--; gc_assert(pthread_join(old->os_thread, NULL) == 0); - fprintf(stderr, "freeing thread %x stack\n", old->os_thread); + FSHOW((stderr, "freeing thread %x stack\n", old->os_thread)); os_invalidate(old->stack, THREAD_STRUCT_SIZE); os_invalidate((os_vm_address_t)old, sizeof(struct freeable_stack)); pthread_mutex_unlock(&freeable_stack_lock); @@ -456,9 +456,9 @@ if(retcode < 0) { perror("create_os_thread"); } - r=0; } + free_freeable_stacks(); thread_sigmask(SIG_SETMASK,&oldset,0); return r; } |