From 7cee07e02da9dce5d9109b8dcfe9350fc0fe0aa9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 20 Apr 2009 16:41:57 +0000
Subject: [PATCH] disable buggy medium-allocation code

svn: r14567
---
 src/mzscheme/gc2/newgc.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/mzscheme/gc2/newgc.c b/src/mzscheme/gc2/newgc.c
index 0387b84724..23dd750e5d 100644
--- a/src/mzscheme/gc2/newgc.c
+++ b/src/mzscheme/gc2/newgc.c
@@ -563,6 +563,9 @@ static void *allocate_medium(size_t sizeb, int type)
   struct mpage *page;
   struct objhead *info;
 
+  /* TEMPORARILY DISABLE MEDIUM PAGES */
+  return allocate_big(sizeb, type);
+
   if (sizeb > (1 << (LOG_APAGE_SIZE - 1)))
     return allocate_big(sizeb, type);