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

bc: fix C compiler warnings

Browse Source
This commit is contained in:
Matthew Flatt 2020-11-18 18:15:42 -07:00
parent 77ee4bb877
commit 53c14c78d6
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/src/bc/src/jitarith.c
View File

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

4
racket/src/bc/src/jitinline.c
View File

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