From 937b5e473909c0af236222d91168c9ee51e15fec Mon Sep 17 00:00:00 2001 From: Juho Snellman Date: Wed, 22 Nov 2006 11:37:21 +0000 Subject: [PATCH] 0.9.18.67: Fix build with gcc 2.95 (regression from 0.9.18, patch by James Knight). --- src/runtime/gencgc.c | 7 +++++-- version.lisp-expr | 2 +- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/src/runtime/gencgc.c b/src/runtime/gencgc.c index e2c3ec325..37b8b8ecc 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 c55fd6e2a..bf0506e7c 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" -- 2.11.4.GIT