From 2fc429a9d7253494847c22adb105d8e3b9d042c8 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 5 Nov 2008 21:51:11 +0000
Subject: [PATCH] clear allocated freeblocks array

svn: r12313
---
 src/mzscheme/gc2/vm.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/mzscheme/gc2/vm.c b/src/mzscheme/gc2/vm.c
index 8d534e6918..587bf18246 100644
--- a/src/mzscheme/gc2/vm.c
+++ b/src/mzscheme/gc2/vm.c
@@ -35,6 +35,7 @@ static VM *vm_create() {
 #if !( defined(_WIN32) || defined(OSKIT) )
   #define BLOCKFREE_CACHE_SIZE 96
   vm->freeblocks = ofm_malloc(sizeof(FreeBlock) * BLOCKFREE_CACHE_SIZE);
+  memset(vm->freeblocks, 0, sizeof(FreeBlock) * BLOCKFREE_CACHE_SIZE);
 #endif
   return vm;
 }