From 629e57661251d3879177bcf52040d1380f7bbfe3 Mon Sep 17 00:00:00 2001 From: William Harold Newman Date: Sat, 19 Apr 2003 03:36:28 +0000 Subject: [PATCH] 0.pre8.73: My PCL-CVS system and cvs.sbcl.sf.net have stopped getting along, for reasons which elude me. Hopefully after this checkin cvs diff will be empty; before, various changes intended for my previous checkin were still un-checked-in. --- src/runtime/thread.c | 5 +++++ src/runtime/undefineds.h | 1 + src/runtime/x86-assem.S | 2 +- version.lisp-expr | 2 +- 4 files changed, 8 insertions(+), 2 deletions(-) diff --git a/src/runtime/thread.c b/src/runtime/thread.c index 4056eb0..1de8a20 100644 --- a/src/runtime/thread.c +++ b/src/runtime/thread.c @@ -270,6 +270,10 @@ void block_sigcont(void) sigprocmask(SIG_BLOCK, &newset, 0); } +/* This is not needed unless #+SB-THREAD, and since sigwaitinfo() + * doesn't seem to be easily available everywhere (OpenBSD...) it's + * more trouble than it's worth to compile it when not needed. */ +#if defined LISP_FEATURE_SB_THREAD void unblock_sigcont_and_sleep(void) { sigset_t set; @@ -278,3 +282,4 @@ void unblock_sigcont_and_sleep(void) sigwaitinfo(&set,0); sigprocmask(SIG_UNBLOCK,&set,0); } +#endif diff --git a/src/runtime/undefineds.h b/src/runtime/undefineds.h index c8ec517..898ffe9 100644 --- a/src/runtime/undefineds.h +++ b/src/runtime/undefineds.h @@ -138,6 +138,7 @@ F(sethostname) #endif F(setitimer) F(setpgrp) +F(setsid) #if !defined(SVR4) || defined(SOLARIS25) F(setpriority) #endif diff --git a/src/runtime/x86-assem.S b/src/runtime/x86-assem.S index a569f24..0669b44 100644 --- a/src/runtime/x86-assem.S +++ b/src/runtime/x86-assem.S @@ -141,7 +141,7 @@ GNAME(call_into_lisp_first_time): pushl %ebp # Save old frame pointer. movl %esp,%ebp # Establish new frame. movl %esp,ALIEN_STACK + SYMBOL_VALUE_OFFSET - movl all_threads,%eax + movl GNAME(all_threads),%eax movl THREAD_CONTROL_STACK_START_OFFSET(%eax) ,%esp /* don't think too hard about what happens if we get interrupted * here */ diff --git a/version.lisp-expr b/version.lisp-expr index 9fd4307..07c9d6b 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.pre8.72" +"0.pre8.73" -- 1.7.10.4