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

fix uses of uninitilized memory

Browse Source 
Thanks to memcheck. (I'm unable to get far with Racket and memcheck,
but I get this far.)

Merge to v6.1.
This commit is contained in:
Matthew Flatt 2014-07-09 13:47:20 +01:00
parent a984e828dd
commit 45eb084d27
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/racket/gc2/block_cache.c
View File

@ -97,7 +97,7 @@ static block_desc *bc_alloc_std_block(block_group *bg) {
bg->block_size <<= 1; bg->block_size <<= 1;
} }
bd = (block_desc*) ofm_malloc(sizeof(block_desc)); bd = (block_desc*) ofm_malloc_zero(sizeof(block_desc));
if (!bd) { if (!bd) {
os_free_pages(r, this_block_size); os_free_pages(r, this_block_size);
return NULL; return NULL;

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

@ -414,7 +414,7 @@ static int define_values_validate(Scheme_Object *data, Mz_CPort *port,
result = validate_expr(port, val, stack, tls, result = validate_expr(port, val, stack, tls,
depth, letlimit, delta, depth, letlimit, delta,
num_toplevels, num_stxes, num_lifts, tl_use_map, num_toplevels, num_stxes, num_lifts, tl_use_map,
tl_state, tl_timestamp + (stinfo.uses_super ? 1 : 0), tl_state, tl_timestamp + ((is_struct && stinfo.uses_super) ? 1 : 0),
NULL, !!only_var, 0, vc, 0, 0, NULL, NULL, !!only_var, 0, vc, 0, 0, NULL,
size-1, _st_ht); size-1, _st_ht);