From: Juho Snellman <jsnell@iki.fi>
Date: Wed, 22 Nov 2006 11:37:21 +0000 (+0000)
Subject: 0.9.18.67:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=937b5e473909c0af236222d91168c9ee51e15fec;p=sbcl.git

0.9.18.67:
        Fix build with gcc 2.95 (regression from 0.9.18, patch by James
        Knight).
---

diff --git a/src/runtime/gencgc.c b/src/runtime/gencgc.c
index e2c3ec3..37b8b8e 100644
--- a/src/runtime/gencgc.c
+++ b/src/runtime/gencgc.c
@@ -4544,8 +4544,12 @@ alloc(long nbytes)
 #else
         &boxed_region;
 #endif
+#ifndef LISP_FEATURE_WIN32
+    lispobj alloc_signal;
+#endif
     void *new_obj;
     void *new_free_pointer;
+
     gc_assert(nbytes>0);
 
     /* Check for alignment allocation problems. */
@@ -4599,8 +4603,7 @@ alloc(long nbytes)
     new_obj = gc_alloc_with_region(nbytes,0,region,0);
 
 #ifndef LISP_FEATURE_WIN32
-    lispobj alloc_signal = SymbolValue(ALLOC_SIGNAL,thread);
-
+    alloc_signal = SymbolValue(ALLOC_SIGNAL,thread);
     if ((alloc_signal & FIXNUM_TAG_MASK) == 0) {
         if ((signed long) alloc_signal <= 0) {
 #ifdef LISP_FEATURE_SB_THREAD
diff --git a/version.lisp-expr b/version.lisp-expr
index c55fd6e..bf0506e 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.18.66"
+"0.9.18.67"