Remove unused variables to eliminate compiler warnings.

This commit is contained in:
Sam Tobin-Hochstadt 2016-02-18 11:00:10 -05:00
parent b92ef72c8c
commit 79fcdf4201
3 changed files with 8 additions and 25 deletions

View File

@ -2024,7 +2024,6 @@ gen_let_syntax (Scheme_Object *form, Scheme_Comp_Env *origenv, char *formname,
Scheme_Compiled_Let_Value *last = NULL, *lv;
DupCheckRecord r;
int rec_env_already = rec[drec].env_already, body_block;
int already_compiled_body;
Scheme_Let_Header *head;
form = scheme_stx_taint_disarm(form, NULL);
@ -2342,14 +2341,6 @@ gen_let_syntax (Scheme_Object *form, Scheme_Comp_Env *origenv, char *formname,
}
}
if (SCHEME_STX_PAIRP(forms)
&& SAME_TYPE(SCHEME_TYPE(SCHEME_STX_VAL(SCHEME_STX_CAR(forms))),
scheme_already_comp_type))
already_compiled_body = 1;
else
already_compiled_body = 0;
env->value_name = defname ? SCHEME_STX_SYM(defname) : NULL;
{
Scheme_Object *cs;

View File

@ -1759,7 +1759,7 @@ Scheme_Object *optimize_for_inline(Optimize_Info *info, Scheme_Object *le, int a
{
int single_use = 0, psize = 0;
Scheme_Object *bad_app = NULL, *prev = NULL, *orig_le = le;
int outside_nested = 0, already_opt = optimized_rator, nonleaf, noapp, via_local = 0;
int already_opt = optimized_rator, nonleaf, noapp;
noapp = !app && !app2 && !app3;
if ((info->inline_fuel < 0) && info->has_nonleaf && !noapp)
@ -1780,9 +1780,7 @@ Scheme_Object *optimize_for_inline(Optimize_Info *info, Scheme_Object *le, int a
if (SAME_TYPE(SCHEME_TYPE(le), scheme_compiled_local_type)) {
/* Check for inlining: */
le = optimize_info_lookup(info, le, 1, &single_use, 0, 0, &psize, NULL);
outside_nested = 1;
already_opt = 1;
via_local = 1;
}
if (le) {
@ -1829,7 +1827,6 @@ Scheme_Object *optimize_for_inline(Optimize_Info *info, Scheme_Object *le, int a
}
if (!le)
break;
outside_nested = 1;
already_opt = 1;
} else
break;
@ -4008,6 +4005,8 @@ static Scheme_Object *optimize_sequence(Scheme_Object *o, Optimize_Info *info, i
if (sub_opt)
optimize_info_seq_init(info, &info_seq);
else
memset(&info_seq, 0, sizeof(info_seq));
count = s->count;
for (i = 0; i < count; i++) {
@ -6144,13 +6143,6 @@ scheme_optimize_lets(Scheme_Object *form, Optimize_Info *info, int for_inline, i
value = extract_specialized_proc(value, value);
if (value && (scheme_compiled_propagate_ok(value, body_info))) {
int cnt;
if (is_rec)
cnt = 2;
else
cnt = pre_body->vars[0]->use_count;
pre_body->vars[0]->optimize.known_val = value;
did_set_value = 1;
} else if (value && !is_rec) {

View File

@ -1568,7 +1568,7 @@ static int is_nonconstant_procedure(Scheme_Object *_data, Resolve_Info *info, Sc
if (var->optimize_used) {
MZ_ASSERT(var->mode == SCHEME_VAR_MODE_RESOLVE);
resolve_info_lookup(info, var, &lifted, 0, 0);
(void)resolve_info_lookup(info, var, &lifted, 0, 0);
if (!lifted)
return 1;
if (SAME_TYPE(SCHEME_TYPE(lifted), scheme_toplevel_type)
@ -1649,14 +1649,13 @@ resolve_closure_compilation(Scheme_Object *_data, Resolve_Info *info,
for (i = 0; i < cl->base_closure->size; i++) {
if (cl->base_closure->vals[i]) {
Scheme_Compiled_Local *var = SCHEME_VAR(cl->base_closure->keys[i]);
int li;
if ((var->mode == SCHEME_VAR_MODE_OPTIMIZE)
|| !var->optimize_used) {
/* reference must have been optimized away; drop it
from the closure */
} else {
li = resolve_info_lookup(info, var, &lifted, 0, 0);
(void)resolve_info_lookup(info, var, &lifted, 0, 0);
if (lifted) {
/* Drop lifted binding from closure. */
if (SAME_TYPE(SCHEME_TYPE(lifted), scheme_toplevel_type)
@ -1882,6 +1881,9 @@ resolve_closure_compilation(Scheme_Object *_data, Resolve_Info *info,
data->code = bcode;
}
}
} else {
new_info = NULL;
closure_map = NULL;
}
if ((closure_size == 1)
@ -3633,7 +3635,6 @@ Scheme_App_Rec *maybe_unresolve_app_refs(Scheme_App_Rec *app, Unresolve_Info *ui
Scheme_Case_Lambda *cl;
Scheme_Closure_Data *d0, *d1;
Scheme_Set_Bang *sb;
Scheme_Object *local;
Scheme_Object *s;
Scheme_Compiled_Local *arg;
int pos;
@ -3676,7 +3677,6 @@ Scheme_App_Rec *maybe_unresolve_app_refs(Scheme_App_Rec *app, Unresolve_Info *ui
sb = MALLOC_ONE_TAGGED(Scheme_Set_Bang);
sb->so.type = scheme_set_bang_type;
sb->var = (Scheme_Object *)arg;
local = scheme_make_local(scheme_local_type, 0, 0);
sb->val = (Scheme_Object *)vars[0];
d1->code = (Scheme_Object *)sb;
ci = MALLOC_ONE_RT(Closure_Info);