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; int i, pos, count, *flags;
Scheme_Let_Header *lh; Scheme_Let_Header *lh;
Scheme_Object *o; Scheme_Object *o;
Scheme_Compiled_Let_Value **clvmap;
Unresolve_Let_Void_State *state; Unresolve_Let_Void_State *state;
state = scheme_malloc(sizeof(Unresolve_Let_Void_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; count = lv->count;
pos = unresolve_stack_push(ui, count, 0, 0); pos = unresolve_stack_push(ui, count, 0, 0);
lh = make_let_header(count); lh = make_let_header(count);
clvmap = MALLOC_N(Scheme_Compiled_Let_Value*, count);
o = lv->body; o = lv->body;
attach_lv(lh, NULL, NULL, NULL, state); 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) { static Scheme_Object *unresolve_closure(Scheme_Object *e, Unresolve_Info *ui) {
Scheme_Object *r, *c; Scheme_Object *r, *c;
int stack_pos, depth;
c = scheme_hash_get(ui->closures, e); c = scheme_hash_get(ui->closures, e);
@ -3742,9 +3739,6 @@ static Scheme_Object *unresolve_closure(Scheme_Object *e, Unresolve_Info *ui) {
return c; return c;
} }
stack_pos = ui->stack_pos;
depth = ui->depth;
r = unresolve_closure_data_2(SCHEME_COMPILED_CLOS_CODE(e), ui); r = unresolve_closure_data_2(SCHEME_COMPILED_CLOS_CODE(e), ui);
return r; 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_With_Continuation_Mark *wcm = (Scheme_With_Continuation_Mark *)e, *wcm2;
Scheme_Object *k, *v, *b; Scheme_Object *k, *v, *b;
int *flags, pos; int pos;
k = unresolve_expr_2(wcm->key, ui, 0); k = unresolve_expr_2(wcm->key, ui, 0);
if (!k) return_NULL; 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); pos = unresolve_stack_push(ui, 1, 0, 0);
b = unresolve_expr_2(wcm->body, ui, 0); b = unresolve_expr_2(wcm->body, ui, 0);
if (!b) return_NULL; if (!b) return_NULL;
flags = unresolve_stack_pop(ui, pos, 1);
wcm2 = MALLOC_ONE_TAGGED(Scheme_With_Continuation_Mark); wcm2 = MALLOC_ONE_TAGGED(Scheme_With_Continuation_Mark);
wcm2->so.type = scheme_with_immed_mark_type; 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_With_Continuation_Mark *wcm = (Scheme_With_Continuation_Mark *)o;
Scheme_Object *k, *v, *b, *vec; Scheme_Object *k, *v, *b, *vec;
int pos, save_mnt, ip; int pos, save_mnt;
scheme_sfs_start_sequence(info, 3, 1); 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); scheme_sfs_push(info, 1, 1);
ip = info->ip;
pos = info->stackpos; pos = info->stackpos;
save_mnt = info->max_nontail; save_mnt = info->max_nontail;