From 097211d0597e5185c678d5933fb1102b649e3a94 Mon Sep 17 00:00:00 2001 From: Daniel Barlow Date: Mon, 7 Apr 2003 17:56:16 +0000 Subject: [PATCH] 0.pre8.43 === Threads merge, 0.1953125 metres === Fix embarrassing Linux bug pointed out by azu on #lisp --- src/runtime/linux-os.c | 2 +- src/runtime/runtime.c | 4 ++++ version.lisp-expr | 2 +- 3 files changed, 6 insertions(+), 2 deletions(-) diff --git a/src/runtime/linux-os.c b/src/runtime/linux-os.c index 113563a..d3efee8 100644 --- a/src/runtime/linux-os.c +++ b/src/runtime/linux-os.c @@ -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 diff --git a/src/runtime/runtime.c b/src/runtime/runtime.c index e3e11bc..31c03de 100644 --- a/src/runtime/runtime.c +++ b/src/runtime/runtime.c @@ -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)) { diff --git a/version.lisp-expr b/version.lisp-expr index 402f5bd..860d6a7 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -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" -- 1.7.10.4