projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)) {
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++;
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);
* 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++;
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;
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();
if(pid==-1) {
if(errno == EINTR) {
if(maybe_gc_pending) parent_do_garbage_collect();