From 86bb5a60e143bc4d37cbe8276191b86e3c07523f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 11 Feb 2006 13:54:43 +0000
Subject: [PATCH] type mismatch fixed

svn: r2197
---
 src/mzscheme/src/jit.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/mzscheme/src/jit.c b/src/mzscheme/src/jit.c
index 19f36c9adf..3c18e1c31e 100644
--- a/src/mzscheme/src/jit.c
+++ b/src/mzscheme/src/jit.c
@@ -1641,10 +1641,12 @@ static int generate_arith(mz_jit_state *jitter, Scheme_Object *rator, Scheme_Obj
       } else {
 	if (arith == 3) {
 	  /* and */
-	  jit_andi_ul(JIT_R0, JIT_R0, scheme_make_integer(v));
+	  long l = (long)scheme_make_integer(v);
+	  jit_andi_ul(JIT_R0, JIT_R0, l);
 	} else if (arith == 4) {
 	  /* ior */
-	  jit_ori_ul(JIT_R0, JIT_R0, scheme_make_integer(v));
+	  long l = (long)scheme_make_integer(v);
+	  jit_ori_ul(JIT_R0, JIT_R0, l);
 	} else if (arith == 5) {
 	  /* xor */
 	  jit_xori_ul(JIT_R0, JIT_R0, v << 1);