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