From: lisphacker <lisphacker>
Date: Tue, 17 Apr 2007 19:16:18 +0000 (+0000)
Subject: 1.0.4.98: Win32 build fix
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=640c41f74a0a13d93b0a587f86fdeda522adf1c6;p=sbcl.git

1.0.4.98: Win32 build fix
  * Win32 doesn't do sigaltstack, and thus has no SIGSTKSZ.
---

diff --git a/src/runtime/backtrace.c b/src/runtime/backtrace.c
index 07114aa..42ddb2e 100644
--- a/src/runtime/backtrace.c
+++ b/src/runtime/backtrace.c
@@ -285,11 +285,16 @@ backtrace(int nframes)
 
 static int
 altstack_pointer_p (void *p) {
+#ifndef LISP_FEATURE_WIN32
     char* stack_start = ((char *) arch_os_get_current_thread())
         + dynamic_values_bytes;
     char* stack_end = stack_start + 32*SIGSTKSZ;
 
     return (p > stack_start && p <= stack_end);
+#else
+    /* Win32 doesn't do altstack */
+    return 0;
+#endif
 }
 
 static int
diff --git a/version.lisp-expr b/version.lisp-expr
index 4baa976..84dbe48 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".)
-"1.0.4.97"
+"1.0.4.98"