From: Nikodemus S. <de...@us...> - 2008-05-30 18:02:41
|
Update of /cvsroot/sbcl/sbcl/src/runtime In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv31044/src/runtime Modified Files: backtrace.c Log Message: 1.0.17.12: win32 build fix * ...no signals on win32. Hopefully it now works. Index: backtrace.c =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/runtime/backtrace.c,v retrieving revision 1.37 retrieving revision 1.38 diff -u -d -r1.37 -r1.38 --- backtrace.c 30 May 2008 17:56:19 -0000 1.37 +++ backtrace.c 30 May 2008 18:02:32 -0000 1.38 @@ -533,6 +533,7 @@ { sigset_t mask; struct thread *thread = arch_os_get_current_thread(); +#ifndef LISP_FEATURE_WIN32 thread_sigmask(SIG_SETMASK, NULL, &mask); printf("Signal mask:\n"); printf(" SIGALRM = %d\n", sigismember(&mask, SIGALRM)); @@ -542,6 +543,7 @@ #ifdef SIG_STOP_FOR_GC printf(" SIG_STOP_FOR_GC = %d\n", sigismember(&mask, SIG_STOP_FOR_GC)); #endif +#endif printf("Specials:\n"); printf(" *GC-INHIBIT* = %s\n", (SymbolValue(GC_INHIBIT, thread) == T) ? "T" : "NIL"); printf(" *GC-PENDING* = %s\n", (SymbolValue(GC_PENDING, thread) == T) ? "T" : "NIL"); |