From d1d68c1aed378bb01b62e2eed909ce11f2853590 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 19 Aug 2008 23:05:42 +0000
Subject: [PATCH] fix max-depth JIT patch

svn: r11348
---
 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 d27f78ae46..5380fe2d46 100644
--- a/src/mzscheme/src/jit.c
+++ b/src/mzscheme/src/jit.c
@@ -7172,7 +7172,7 @@ static void on_demand_generate_lambda(Scheme_Native_Closure *nc)
     void **pd;
     pd = (void **)gdata.patch_depth;
     gdata.patch_depth = pd[1];
-    jit_patch_movi((*pd), (void *)(long)max_depth);
+    jit_patch_movi(((jit_insn *)(*pd)), (void *)(long)max_depth);
   }
 
   ndata->code = code;