[Sbcl-commits] CVS: sbcl/src/runtime gencgc.c,1.110,1.111

[Juho S. <js...@us...>]

Update of /cvsroot/sbcl/sbcl/src/runtime
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv530/src/runtime

Modified Files:
	gencgc.c 
Log Message:
0.9.18.67:
        Fix build with gcc 2.95 (regression from 0.9.18, patch by James
        Knight).


Index: gencgc.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/gencgc.c,v
retrieving revision 1.110
retrieving revision 1.111
diff -u -d -r1.110 -r1.111
--- gencgc.c	17 Nov 2006 02:15:47 -0000	1.110
+++ gencgc.c	22 Nov 2006 11:37:21 -0000	1.111
@@ -4544,8 +4544,12 @@
 #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 @@
     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