X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fruntime.c;h=32cad8a1bf48a8c382055d2063d929d6c8ead441;hb=a93dc34ed9e7f5c7162e9c18961e6cce23941b46;hp=6900e50396f6da6fe54d42e93480da76020dfa33;hpb=54bd9afe110c9e77f2b4c7e3ae1a9cc86fc352f9;p=sbcl.git

diff --git a/src/runtime/runtime.c b/src/runtime/runtime.c
index 6900e50..32cad8a 100644
--- a/src/runtime/runtime.c
+++ b/src/runtime/runtime.c
@@ -13,6 +13,8 @@
  * files for more information.
  */
 
+#include "sbcl.h"
+
 #include <stdio.h>
 #include <string.h>
 #include <libgen.h>
@@ -24,7 +26,9 @@
 #include <sys/param.h>
 #include <sys/stat.h>
 #include <signal.h>
+#ifdef LISP_FEATURE_SB_THREAD
 #include <sys/ptrace.h>
+#endif
 #include <sched.h>
 #include <errno.h>
 
@@ -35,7 +39,6 @@
 #include "signal.h"
 
 #include "runtime.h"
-#include "sbcl.h"
 #include "alloc.h"
 #include "vars.h"
 #include "globals.h"
@@ -112,13 +115,13 @@ copied_existing_filename_or_null(char *filename)
 }
 
 /* Convert a null-terminated array of null-terminated strings (e.g.
- * argv or envp) into a Lisp list of Lisp strings. */
+ * argv or envp) into a Lisp list of Lisp base-strings. */
 static lispobj
-alloc_string_list(char *array_ptr[])
+alloc_base_string_list(char *array_ptr[])
 {
     if (*array_ptr) {
-	return alloc_cons(alloc_string(*array_ptr),
-			  alloc_string_list(1 + array_ptr));
+	return alloc_cons(alloc_base_string(*array_ptr),
+			  alloc_base_string_list(1 + array_ptr));
     } else {
 	return NIL;
     }
@@ -349,7 +352,7 @@ main(int argc, char *argv[], char *envp[])
 
     /* Convert remaining argv values to something that Lisp can grok. */
     SHOW("setting POSIX-ARGV symbol value");
-    SetSymbolValue(POSIX_ARGV, alloc_string_list(argv),0);
+    SetSymbolValue(POSIX_ARGV, alloc_base_string_list(argv),0);
 
     /* Install a handler to pick off SIGINT until the Lisp system gets
      * far enough along to install its own handler. */
@@ -376,67 +379,6 @@ static void parent_sighandler(int signum,siginfo_t *info, void *void_context)
 }
 
 #ifdef LISP_FEATURE_SB_THREAD
-static void parent_do_garbage_collect(void)
-{    
-    int waiting_threads=0;
-    struct thread *th;
-    int status,p;
-
-    for_each_thread(th) {
-	if(ptrace(PTRACE_ATTACH,th->pid,0,0)) {
-	    perror("PTRACE_ATTACH");
-	}
-	else waiting_threads++;
-    }
-    stop_the_world=1;
-
-    do {
-	/* not sure if we have to wait for PTRACE_ATTACH to finish
-	 * before we can send PTRACE_CONT, so let's play it safe
-	 */
-	while(waiting_threads>0) {
-	    if((p=waitpid(-1,&status, WUNTRACED|__WALL))>0) {
-		if(WIFEXITED(status) || WIFSIGNALED(status)) 
-		    destroy_thread(find_thread_by_pid(p));
-		else {
-#if 0
-		    fprintf(stderr, "wait returned pid %d signal %x\n",
-			    p,WSTOPSIG(status));
-#endif
-		    if(WSTOPSIG(status)==SIGTRAP) {
-			if(ptrace(PTRACE_CONT,p,0,SIGTRAP))
-			    perror("PTRACE_CONT");
-		    }
-		    else waiting_threads--; 
-		}
-	    }
-	}
-	for_each_thread(th) {
-	    if(SymbolTlValue(PSEUDO_ATOMIC_ATOMIC,th)) {
-		/* restart the child, setting *p-a-i* which will cause it 
-		 * to go into interrupt_handle_pending as soon as it's
-		 * finished being pseudo_atomic.  once there it will
-		 * signal itself SIGSTOP, which will give us another 
-		 * event to wait for */
-#if 0
-		fprintf(stderr, "%d was pseudo-atomic, letting it resume \n",
-			th->pid);
-#endif
-		SetTlSymbolValue(PSEUDO_ATOMIC_INTERRUPTED,make_fixnum(1),th);
-		if(ptrace(PTRACE_CONT,th->pid,0,0))
-		    perror("PTRACE_CONT");
-		waiting_threads++;
-	    }
-	}
-    } while (waiting_threads>0);
-		
-    collect_garbage(maybe_gc_pending-1);
-    maybe_gc_pending=0;
-    stop_the_world=0;
-    for_each_thread(th) 
-	if(ptrace(PTRACE_DETACH,th->pid,0,0))
-	    perror("PTRACE_DETACH");
-}
 
 static void /* noreturn */ parent_loop(void)
 {
@@ -465,11 +407,9 @@ static void /* noreturn */ parent_loop(void)
     while(!all_threads) {
 	sched_yield();
     }
-    maybe_gc_pending=0;
     while(all_threads && (pid=waitpid(-1,&status,__WALL|WUNTRACED))) {
 	struct thread *th;
 	int real_errno=errno;
-	while(maybe_gc_pending) parent_do_garbage_collect();
 	if(pid==-1) {
 	    if(real_errno == EINTR) {
 		continue;
@@ -482,9 +422,7 @@ static void /* noreturn */ parent_loop(void)
 	if(!th) continue;
 	if(WIFEXITED(status) || WIFSIGNALED(status)) {
 	    fprintf(stderr,"waitpid : child %d %x exited \n", pid,th);
-	    destroy_thread(th);		
-	    /* FIXME arrange to call or fake (free-mutex *session-lock*)
-	     * if necessary */
+	    destroy_thread(th);
 	    if(!all_threads) break;
 	}
     }