0.pre8.43
authorDaniel Barlow <dan@telent.net>
Mon, 7 Apr 2003 17:56:16 +0000 (17:56 +0000)
committerDaniel Barlow <dan@telent.net>
Mon, 7 Apr 2003 17:56:16 +0000 (17:56 +0000)
 === Threads merge, 0.1953125 metres ===

Fix embarrassing Linux bug pointed out by azu on #lisp

src/runtime/linux-os.c
src/runtime/runtime.c
version.lisp-expr

index 113563a..d3efee8 100644 (file)
@@ -126,7 +126,7 @@ os_validate(os_vm_address_t addr, os_vm_size_t len)
     under_2gb_free_pointer+=len;
 #endif
 
-    return addr;
+    return actual;
 }
 
 void
index e3e11bc..31c03de 100644 (file)
@@ -461,6 +461,10 @@ static void /* noreturn */ parent_loop(void)
     sa.sa_flags=0;
     sigaction(SIGINT, &sa, 0);
 
+    while(!all_threads) {
+       sched_yield();
+    }
+
     while(all_threads) {
        pid_t pid=0;
        while(pid=waitpid(-1,&status,__WALL|WUNTRACED)) {
index 402f5bd..860d6a7 100644 (file)
@@ -18,4 +18,4 @@
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.pre8.43"
+"0.pre8.44"