a bug report and patch with a fix

Artem Mironov <[email protected]> Thu, 21 Jan 2010 08:16:23 +0100
Newsgroups gmane.lisp.scheme.scheme48
Message-ID <[email protected]>
Recent modifications in c/bibop/generation_gc.c breaks
the build on Win32 with MSC. Here is trivial fix.

# HG changeset patch
# User Artem Mironov <[email protected]>
# Date 1263965842 -7200
# Node ID d4a43ac985fd04e11a38cb19abaca81fa3b39b23
# Parent  042ddfabfa787d9dc23273a438423e72e6ab0d0f
fix the build on Windows with MSC

diff -r 042ddfabfa78 -r d4a43ac985fd c/bibop/generation_gc.c
--- a/c/bibop/generation_gc.c	Mon Jan 18 15:14:03 2010 +0100
+++ b/c/bibop/generation_gc.c	Wed Jan 20 07:37:22 2010 +0200
@@ -1560,14 +1560,15 @@
 
 static s48_address s48_allocate_large(long len_in_bytes) {
   unsigned long len_in_pages = BYTES_TO_PAGES(len_in_bytes);
+  Area *area;
   if (PAGES_TO_BYTES_LOSES_P(len_in_pages)) {
     /* pretend we're just out of memory */
     return NULL;
   };
-  Area* area = s48_allocate_area_without_crashing(len_in_pages,
-						  len_in_pages,
-						  0,
-						  AREA_TYPE_SIZE_LARGE);
+  area = s48_allocate_area_without_crashing(len_in_pages,
+					    len_in_pages,
+					    0,
+					    AREA_TYPE_SIZE_LARGE);
   if (area == NULL) {
     /* out of memory */
     return NULL;