diff --git a/racket/src/bc/src/jitarith.c b/racket/src/bc/src/jitarith.c index d17a40e304..15ff76ab27 100644 --- a/racket/src/bc/src/jitarith.c +++ b/racket/src/bc/src/jitarith.c @@ -1755,7 +1755,7 @@ int scheme_generate_arith_for(mz_jit_state *jitter, Scheme_Object *rator, Scheme else { refi = NULL; if (!unsafe_fx || overflow_refslow) - (void)jit_blti_l(refslow, v2, scheme_make_integer(0)); + (void)jit_blti_l(refslow, v2, (intptr_t)scheme_make_integer(0)); } if ((arith == ARITH_SH) || (arith == ARITH_RSH)) { @@ -1763,9 +1763,9 @@ int scheme_generate_arith_for(mz_jit_state *jitter, Scheme_Object *rator, Scheme if (!unsafe_fx || overflow_refslow) { /* check for a small enough shift */ if (arith == ARITH_RSH) { - (void)jit_bgti_l(refslow, v2, scheme_make_integer(MAX_TRY_SHIFT)); + (void)jit_bgti_l(refslow, v2, (intptr_t)scheme_make_integer(MAX_TRY_SHIFT)); } else { - (void)jit_blti_l(refslow, v2, scheme_make_integer(-MAX_TRY_SHIFT)); + (void)jit_blti_l(refslow, v2, (intptr_t)scheme_make_integer(-MAX_TRY_SHIFT)); } } if (arith == ARITH_RSH) diff --git a/racket/src/bc/src/jitinline.c b/racket/src/bc/src/jitinline.c index 8eb33c6b11..13093eb3cc 100644 --- a/racket/src/bc/src/jitinline.c +++ b/racket/src/bc/src/jitinline.c @@ -2415,8 +2415,8 @@ int scheme_generate_inlined_unary(mz_jit_state *jitter, Scheme_App2_Rec *app, in jit_movr_p(dest, JIT_R0); refdone = jit_jmpi(jit_forward()); mz_patch_branch(ref); - (void)jit_blti_l(refslow, JIT_R0, scheme_make_integer(0)); - (void)jit_bgti_l(refslow, JIT_R0, scheme_make_integer(255)); + (void)jit_blti_l(refslow, JIT_R0, (intptr_t)scheme_make_integer(0)); + (void)jit_bgti_l(refslow, JIT_R0, (intptr_t)scheme_make_integer(255)); jit_rshi_l(JIT_R0, JIT_R0, 1); jit_lshi_l(JIT_R2, JIT_R0, JIT_LOG_WORD_SIZE);