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

add (long) cast in JIT relevant for 64-bit build

Browse Source 
svn: r9490
This commit is contained in:
Matthew Flatt 2008-04-26 13:56:16 +00:00
parent b8c425cc42
commit 56734572d1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3182,7 +3182,7 @@ static int generate_arith(mz_jit_state *jitter, Scheme_Object *rator, Scheme_Obj
jit_insn *refc;
refc = jit_bgei_l(jit_forward(), JIT_R0, (long)scheme_make_integer(0));
/* watch out for most negative fixnum! */
(void)jit_beqi_p(refslow, JIT_R0, (void *)((1 << ((8 * JIT_WORD_SIZE) - 1)) | 0x1));
(void)jit_beqi_p(refslow, JIT_R0, (void *)(((long)1 << ((8 * JIT_WORD_SIZE) - 1)) | 0x1));
jit_rshi_l(JIT_R0, JIT_R0, 1);
jit_movi_l(JIT_R1, 0);
jit_subr_l(JIT_R0, JIT_R1, JIT_R0);