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

Initialize variables to avoid compiler warnings.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2016-02-29 12:21:55 -05:00
parent 59f3f82460
commit e94081c5aa
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2755,7 +2755,7 @@ Scheme_Object *scheme_hash_tree_next_pos(Scheme_Hash_Tree *tree, mzlonglong pos)
/* to avoid unneeded popcount computations */
Scheme_Object *scheme_unsafe_hash_tree_start(Scheme_Hash_Tree *ht)
{
Scheme_Object *stack;
Scheme_Object *stack = scheme_null;
int j, i, i_n[mzHAMT_MAX_INDEX_LEVEL], level;
Scheme_Hash_Tree *ht_n[mzHAMT_MAX_INDEX_LEVEL];
@ -2849,7 +2849,7 @@ XFORM_NONGCING Scheme_Object *scheme_unsafe_hash_tree_access(Scheme_Hash_Tree *s
or the comppressed representation as a fixnum */
Scheme_Object *scheme_unsafe_hash_tree_next(Scheme_Hash_Tree *ht, Scheme_Object *args)
{
Scheme_Object *stack;
Scheme_Object *stack = scheme_null;
int j, i, i_n[mzHAMT_MAX_INDEX_LEVEL], level;
Scheme_Hash_Tree *ht_n[mzHAMT_MAX_INDEX_LEVEL];

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

@ -8320,6 +8320,8 @@ static Scheme_Object *optimize_info_propagate_local(Scheme_Object *var)
{
Scheme_Object *last, *val = var;
last = val; /* Avoid compiler warning */
while (val && SAME_TYPE(SCHEME_TYPE(val), scheme_ir_local_type)) {
MZ_ASSERT(SCHEME_VAR(val)->mode == SCHEME_VAR_MODE_OPTIMIZE);
MZ_ASSERT(SCHEME_VAR(val)->use_count);