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

unbreak --enable-sgcdebug

Browse Source
This commit is contained in:
Matthew Flatt 2016-06-29 19:22:58 -06:00
parent 2662850ca1
commit 8ae013cdb1
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2922,7 +2922,7 @@ intptr_t scheme_count_memory(Scheme_Object *root, Scheme_Hash_Table *ht)
s = sizeof(Scheme_Lambda);
s += data->closure_size * sizeof(mzshort);
#if FORCE_KNOWN_SUBPARTS
e = COUNT(data->code);
e = COUNT(data->body);
#endif
}
break;
@ -2958,9 +2958,9 @@ intptr_t scheme_count_memory(Scheme_Object *root, Scheme_Hash_Table *ht)
break;
case scheme_ir_let_header_type:
{
Scheme_Let_Header *let = (Scheme_Let_Header *)root;
Scheme_IR_Let_Header *let = (Scheme_IR_Let_Header *)root;
s = sizeof(Scheme_Let_Header);
s = sizeof(Scheme_IR_Let_Header);
#if FORCE_KNOWN_SUBPARTS
e = COUNT(let->body);
#endif
@ -3085,8 +3085,6 @@ intptr_t scheme_count_memory(Scheme_Object *root, Scheme_Hash_Table *ht)
case scheme_undefined_type:
/* Only one */
break;
case scheme_syntax_compiler_type:
break;
case scheme_macro_type:
case scheme_set_macro_type:
s = sizeof(Scheme_Small_Object);