~ chicken-core (chicken-5) 6a42120bc964d1170ba6b12c21770ad390d4cf9d
commit 6a42120bc964d1170ba6b12c21770ad390d4cf9d Author: LemonBoy <thatlemon@gmail.com> AuthorDate: Wed Aug 30 13:42:38 2017 +0200 Commit: Peter Bex <peter@more-magic.net> CommitDate: Wed Aug 30 18:35:45 2017 +0200 Teach the heap dumper about the new number formats Prevents a segfault when a {cplx,big,rat}num was found. Signed-off-by: Peter Bex <peter@more-magic.net> diff --git a/runtime.c b/runtime.c index a2ccfd4e..ba2ec26d 100644 --- a/runtime.c +++ b/runtime.c @@ -12473,6 +12473,9 @@ static void C_ccall dump_heap_state_2(C_word c, C_word *av) case C_WEAK_PAIR_TYPE: C_fprintf(C_stderr, C_text("weak pair ")); break; case C_VECTOR_TYPE: C_fprintf(C_stderr, C_text("vector ")); break; case C_BYTEVECTOR_TYPE: C_fprintf(C_stderr, C_text("bytevector ")); break; + case C_BIGNUM_TYPE: C_fprintf(C_stderr, C_text("bignum ")); break; + case C_CPLXNUM_TYPE: C_fprintf(C_stderr, C_text("cplxnum ")); break; + case C_RATNUM_TYPE: C_fprintf(C_stderr, C_text("ratnum ")); break; /* XXX this is sort of funny: */ case C_BYTEBLOCK_BIT: C_fprintf(C_stderr, C_text("blob ")); break; default:Trap