From a584304aa2a86c3c7d26b2e3fc8c20d1bed7284d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 7 Oct 2008 19:26:42 +0000
Subject: [PATCH] fix code allocation bug

svn: r11967
---
 src/mzscheme/src/jit.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/jit.c b/src/mzscheme/src/jit.c
index ca6271cb22..2d51bcf606 100644
--- a/src/mzscheme/src/jit.c
+++ b/src/mzscheme/src/jit.c
@@ -402,7 +402,7 @@ static void *generate_one(mz_jit_state *old_jitter,
 	buffer = scheme_malloc_gcable_code(size);
 #endif
       } else {
-	buffer = malloc(size);
+        buffer = scheme_malloc_code(size);
       }
       RECORD_CODE_SIZE(size);
     } else if (old_jitter) {