From 857c3bbb17dcd8a84230c8f8dfb7ec9a7812dcee Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 14 Jan 2010 18:09:41 +0000
Subject: [PATCH] fix GC double counting of big gen0 pages

svn: r17651
---
 src/mzscheme/gc2/newgc.c | 2 --
 1 file changed, 2 deletions(-)

diff --git a/src/mzscheme/gc2/newgc.c b/src/mzscheme/gc2/newgc.c
index 53c1c4eab5..411b165cca 100644
--- a/src/mzscheme/gc2/newgc.c
+++ b/src/mzscheme/gc2/newgc.c
@@ -653,8 +653,6 @@ static void *allocate_big(const size_t request_size_bytes, int type)
   else
     addr = malloc_pages(gc, round_to_apage_size(allocate_size), APAGE_SIZE);
 
-  gc->gen0.current_size += allocate_size;
-
   bpage = malloc_mpage();
   bpage->addr = addr;
   bpage->size = allocate_size;