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

avoid compiler warnings

Browse Source
This commit is contained in:
Matthew Flatt 2015-09-20 21:09:02 -06:00
parent 93efe503ad
commit 003bca503f
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/src/racket/src/jitinline.c
View File

@ -2777,11 +2777,17 @@ int scheme_generate_inlined_binary(mz_jit_state *jitter, Scheme_App3_Rec *app, i
ref_fx1 = jit_bmsi_ul(jit_forward(), JIT_R0, 0x1);
jit_ldxi_s(JIT_R2, JIT_R0, &((Scheme_Object *)0x0)->type);
ref_fail1 = jit_bnei_i(jit_forward(), JIT_R2, string_type);
} else {
ref_fx1 = NULL;
ref_fail1 = NULL;
}
if (!is_str2) {
ref_fx2 = jit_bmsi_ul(jit_forward(), JIT_R1, 0x1);
jit_ldxi_s(JIT_V1, JIT_R1, &((Scheme_Object *)0x0)->type);
ref_fail2 = jit_bnei_i(jit_forward(), JIT_V1, string_type);
} else {
ref_fx2 = NULL;
ref_fail2 = NULL;
}
ref_ucnofail = jit_jmpi(jit_forward());
CHECK_LIMIT();

4
racket/src/racket/src/optimize.c
View File

@ -5795,8 +5795,8 @@ scheme_optimize_lets(Scheme_Object *form, Optimize_Info *info, int for_inline, i
int did_set_value, checked_once, skip_depth, unused_clauses, found_escapes;
int remove_last_one = 0, inline_fuel, rev_bind_order;
int post_bind = !(SCHEME_LET_FLAGS(head) & (SCHEME_LET_RECURSIVE | SCHEME_LET_STAR));
int pre_vclock, pre_aclock, pre_kclock, pre_sclock, increments_kclock;
int once_vclock, once_aclock, once_kclock, once_sclock, once_increments_kclock;
int pre_vclock, pre_aclock, pre_kclock, pre_sclock, increments_kclock = 0;
int once_vclock, once_aclock, once_kclock, once_sclock, once_increments_kclock = 0;
# define pos_EARLIER(a, b) (rev_bind_order ? ((a) > (b)) : ((a) < (b)))