alignment added by megane on Tue Jul 2 09:05:40 2019
diff --git a/runtime.c b/runtime.c index 30620a22..a1fbf02e 100644 --- a/runtime.c +++ b/runtime.c @@ -13076,6 +13076,8 @@ static void C_ccall dump_heap_state_2(C_word c, C_word *av) } } + hdump_count(C_fix(-1), 1, C_align(bytes) - bytes); // XXX: something's not adding up here + scan = (C_byte *)sbp + C_align(bytes) + sizeof(C_word); } @@ -13089,6 +13091,7 @@ static void C_ccall dump_heap_state_2(C_word c, C_word *av) switch(b->key) { case C_fix(1): C_fprintf(C_stderr, C_text("fixnum ")); break; + case C_fix(-1): C_fprintf(C_stderr, C_text("alignment ")); break; case C_SCHEME_TRUE: C_fprintf(C_stderr, C_text("boolean ")); break; case C_SCHEME_END_OF_LIST: C_fprintf(C_stderr, C_text("null ")); break; case C_SCHEME_UNDEFINED : C_fprintf(C_stderr, C_text("void ")); break;