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-08-13 11:55:44 -06:00
parent 7d6bec2b17
commit bd82646d81
2 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
racket/src/racket/src/resolve.c
View File

@ -3612,7 +3612,6 @@ static Scheme_Object *unresolve_let_void(Scheme_Object *e, Unresolve_Info *ui) {
int i, pos, count, *flags;
Scheme_Let_Header *lh;
Scheme_Object *o;
Scheme_Compiled_Let_Value **clvmap;
Unresolve_Let_Void_State *state;
state = scheme_malloc(sizeof(Unresolve_Let_Void_State));
@ -3620,7 +3619,6 @@ static Scheme_Object *unresolve_let_void(Scheme_Object *e, Unresolve_Info *ui) {
count = lv->count;
pos = unresolve_stack_push(ui, count, 0, 0);
lh = make_let_header(count);
clvmap = MALLOC_N(Scheme_Compiled_Let_Value*, count);
o = lv->body;
attach_lv(lh, NULL, NULL, NULL, state);
@ -3734,7 +3732,6 @@ static Scheme_Object *unresolve_prefix_symbol(Scheme_Object *s, Unresolve_Info *
static Scheme_Object *unresolve_closure(Scheme_Object *e, Unresolve_Info *ui) {
Scheme_Object *r, *c;
int stack_pos, depth;
c = scheme_hash_get(ui->closures, e);
@ -3742,9 +3739,6 @@ static Scheme_Object *unresolve_closure(Scheme_Object *e, Unresolve_Info *ui) {
return c;
}
stack_pos = ui->stack_pos;
depth = ui->depth;
r = unresolve_closure_data_2(SCHEME_COMPILED_CLOS_CODE(e), ui);
return r;
}
@ -4395,7 +4389,7 @@ static Scheme_Object *unresolve_expr_2(Scheme_Object *e, Unresolve_Info *ui, int
{
Scheme_With_Continuation_Mark *wcm = (Scheme_With_Continuation_Mark *)e, *wcm2;
Scheme_Object *k, *v, *b;
int *flags, pos;
int pos;
k = unresolve_expr_2(wcm->key, ui, 0);
if (!k) return_NULL;
@ -4405,7 +4399,6 @@ static Scheme_Object *unresolve_expr_2(Scheme_Object *e, Unresolve_Info *ui, int
pos = unresolve_stack_push(ui, 1, 0, 0);
b = unresolve_expr_2(wcm->body, ui, 0);
if (!b) return_NULL;
flags = unresolve_stack_pop(ui, pos, 1);
wcm2 = MALLOC_ONE_TAGGED(Scheme_With_Continuation_Mark);
wcm2->so.type = scheme_with_immed_mark_type;

3
racket/src/racket/src/sfs.c
View File

@ -909,7 +909,7 @@ static Scheme_Object *with_immed_mark_sfs(Scheme_Object *o, SFS_Info *info)
{
Scheme_With_Continuation_Mark *wcm = (Scheme_With_Continuation_Mark *)o;
Scheme_Object *k, *v, *b, *vec;
int pos, save_mnt, ip;
int pos, save_mnt;
scheme_sfs_start_sequence(info, 3, 1);
@ -918,7 +918,6 @@ static Scheme_Object *with_immed_mark_sfs(Scheme_Object *o, SFS_Info *info)
scheme_sfs_push(info, 1, 1);
ip = info->ip;
pos = info->stackpos;
save_mnt = info->max_nontail;