[steeldump-cvs] r14 - trunk/sb-heapdump

[dlichteblau at common-lisp.net]

Author: dlichteblau
Date: Sat Aug 26 13:58:08 2006
New Revision: 14

Modified:
   trunk/sb-heapdump/relocate.c
Log:
revert r11:13


Modified: trunk/sb-heapdump/relocate.c
==============================================================================
--- trunk/sb-heapdump/relocate.c	(original)
+++ trunk/sb-heapdump/relocate.c	Sat Aug 26 13:58:08 2006
@@ -104,6 +104,8 @@
         large_object_size = los;
 }
 
+#define GEN 2
+
 void *
 map_dumpfile(int fd, long offset, int verbose)
 {
@@ -113,7 +115,6 @@
         long start_page, end_page;
         long npages;
         long i;
-        int gen = 2;  /* fixme: why not 1? */
 
         if (!reloctab_initialized) {
                 relocate_init();
@@ -174,14 +175,10 @@
 #endif
                 );
 
-        while (gen < HIGHEST_NORMAL_GENERATION
-               && !generations[gen].bytes_allocated)
-                gen++;
-
         for (i = 0; i < npages; i++) {
                 long page = start_page + i;
                 page_table[page].allocated = BOXED_PAGE_FLAG;
-                page_table[page].gen = gen;
+                page_table[page].gen = GEN;
                 page_table[page].large_object = 0;
                 page_table[page].first_object_offset = -(PAGE_BYTES * i);
                 page_table[page].bytes_used = PAGE_BYTES;
@@ -194,11 +191,11 @@
                 page_table[page].dont_move = 0;
         }
         page_table[end_page - 1].bytes_used = length - PAGE_BYTES * (npages-1);
-        generations[gen].bytes_allocated += length;
+        generations[GEN].bytes_allocated += length;
 #if 0
         /* fixme: do we need these? */
         bytes_allocated += length;
-        generations[gen].cum_sum_bytes_allocated += length;
+        generations[GEN].cum_sum_bytes_allocated += length;
 #endif
 
         if (last_free_page < end_page)