From 1be4c3959233d1142fe42bae96c1d1350ac30ee9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 19 Aug 2008 22:46:46 +0000
Subject: [PATCH] avoid x86_64 warning

svn: r11346
---
 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 50c0c88664..c925dce5ed 100644
--- a/src/mzscheme/src/jit.c
+++ b/src/mzscheme/src/jit.c
@@ -7162,7 +7162,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 *)max_depth);
+    jit_patch_movi((*pd), (void *)(long)max_depth);
   }
 
   ndata->code = code;