From: Christophe Rhodes Date: Wed, 8 Jun 2005 11:16:48 +0000 (+0000) Subject: 0.9.1.31: X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=86132ed112f97b601e3627b4c582b05c0f5a3d2f;p=sbcl.git 0.9.1.31: Remove sigsetmask() calls on alpha, ppc missed out of previous signal rearrangement ... (sb-sprof on ppc appears to work now :-) --- diff --git a/src/runtime/alpha-arch.c b/src/runtime/alpha-arch.c index 8cd654a..59402f1 100644 --- a/src/runtime/alpha-arch.c +++ b/src/runtime/alpha-arch.c @@ -279,16 +279,10 @@ static void sigtrap_handler(int signal, siginfo_t *siginfo, os_context_t *context) { unsigned int code; - sigset_t *mask; #ifdef LISP_FEATURE_LINUX os_restore_fp_control(context); #endif - /* Don't disallow recursive breakpoint traps. Otherwise, we can't */ - /* use debugger breakpoints anywhere in here. */ - mask=(os_context_sigmask_addr(context)); - sigsetmask(mask); - /* this is different from how CMUCL does it. CMUCL used "call_pal * PAL_gentrap", which doesn't do anything on Linux (unless NL0 * contains certain specific values). We use "bugchk" instead. diff --git a/src/runtime/ppc-arch.c b/src/runtime/ppc-arch.c index df302e1..bf4b37f 100644 --- a/src/runtime/ppc-arch.c +++ b/src/runtime/ppc-arch.c @@ -125,12 +125,9 @@ static void sigtrap_handler(int signal, siginfo_t *siginfo, os_context_t *context) { u32 code; - sigset_t *mask; #ifdef LISP_FEATURE_LINUX os_restore_fp_control(context); #endif - mask=(os_context_sigmask_addr(context)); - sigsetmask(mask); code=*((u32 *)(*os_context_pc_addr(context))); if (code == ((3 << 26) | (16 << 21) | (reg_ALLOC << 16))) { /* twlti reg_ALLOC,0 - check for deferred interrupt */ diff --git a/version.lisp-expr b/version.lisp-expr index c56c6b5..bbf2b92 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.9.1.30" +"0.9.1.31"