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

fix some variable-initialization problems/warnings

Browse Source
This commit is contained in:
Matthew Flatt 2013-09-06 12:46:11 -06:00
parent 7969eea3a2
commit 300e81cb65
4 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/racket/cmdline.inc
View File

@ -661,8 +661,10 @@ static Scheme_Object *get_log_level(char *prog, char *real_switch, const char *e
} else if (!strncmp(str, "debug", 5)) {
k = SCHEME_LOG_DEBUG;
len = 5;
} else
} else {
k = -1;
len = 0;
}
str += len;

8
racket/src/racket/src/fun.c
View File

@ -7923,8 +7923,6 @@ scheme_extract_one_cc_mark_with_meta(Scheme_Object *mark_set, Scheme_Object *key
bottom = 0;
} else {
startpos = (intptr_t)MZ_CONT_MARK_STACK;
if (!p->cont_mark_stack_segments)
findpos = 0;
bottom = p->cont_mark_stack_bottom;
}
@ -8093,11 +8091,9 @@ extract_one_cc_mark_fast(Scheme_Object *key)
Scheme_Thread *p = scheme_current_thread;
startpos = (intptr_t)MZ_CONT_MARK_STACK;
if (!p->cont_mark_stack_segments)
findpos = 0;
bottom = p->cont_mark_stack_bottom;
minbottom = findpos - 32;
minbottom = startpos - 32;
if (bottom < minbottom)
bottom = minbottom;

2
racket/src/racket/src/jitcall.c
View File

@ -667,7 +667,7 @@ static int generate_retry_call(mz_jit_state *jitter, int num_rands, int multi_ok
/* Slow path; restore R0 to SCHEME_TAIL_CALL_WAITING */
mz_patch_branch(ref);
jit_movi_p(JIT_R0, SCHEME_TAIL_CALL_WAITING);
(void)jit_movi_p(JIT_R0, SCHEME_TAIL_CALL_WAITING);
return 1;
}

5
racket/src/racket/src/struct.c
View File

@ -5447,9 +5447,10 @@ static Scheme_Object *do_chaperone_struct(const char *name, int is_impersonator,
"operation procedure", 1, a[0],
NULL);
if (!scheme_struct_type_property_ref(prop, argv[0]))
if (!scheme_struct_type_property_ref(prop, argv[0])) {
non_applicable_op = 1;
else {
arity = 0;
} else {
if (!red_props)
red_props = scheme_make_hash_tree(0);