suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

type mismatch fixed

Browse Source 
svn: r2197
This commit is contained in:
Matthew Flatt 2006-02-11 13:54:43 +00:00
parent 87a23c75a3
commit 86bb5a60e1
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mzscheme/src/jit.c
View File

@ -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);