~ 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