~ chicken-core (chicken-5) 8e664d245cf4ff3bb6492578248263f2fdb9a1e2
commit 8e664d245cf4ff3bb6492578248263f2fdb9a1e2 Author: Peter Bex <peter@more-magic.net> AuthorDate: Sun Aug 7 20:25:46 2016 +0200 Commit: Peter Bex <peter@more-magic.net> CommitDate: Sun Aug 7 20:25:46 2016 +0200 Use abstract C_SIZEOF_BIGNUM_WRAPPER instead of concrete C_SIZEOF_STRUCTURE(2) If we decide to tweak the bignum wrapper, this won't break. diff --git a/runtime.c b/runtime.c index 1dc4e3c7..1e31eb97 100644 --- a/runtime.c +++ b/runtime.c @@ -10295,7 +10295,7 @@ void C_ccall allocate_vector_2(C_word c, C_word *av) static C_word allocate_tmp_bignum(C_word size, C_word negp, C_word initp) { C_word *mem = C_malloc(C_wordstobytes(C_SIZEOF_BIGNUM(C_unfix(size)))), - bigvec = (C_word)(mem + C_SIZEOF_STRUCTURE(2)); + bigvec = (C_word)(mem + C_SIZEOF_BIGNUM_WRAPPER); if (mem == NULL) abort(); /* TODO: panic */ C_block_header_init(bigvec, C_STRING_TYPE | C_wordstobytes(C_unfix(size)+1));Trap