From 67443e1d462a5f7befe03b1aa38963e9725f9ce2 Mon Sep 17 00:00:00 2001 From: Simon Brooke Date: Fri, 4 Jan 2019 11:04:55 +0000 Subject: [PATCH] OK, adding bignums works; multiplying bignums does not work. There's no evidence of a bug in reading/printing, because the only way I can currently get a number big enough to trigger the supposed bug is by multiplying, which doesn't work. --- src/arith/integer.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/arith/integer.c b/src/arith/integer.c index d6162ea..9b23001 100644 --- a/src/arith/integer.c +++ b/src/arith/integer.c @@ -79,7 +79,7 @@ long double numeric_value( struct cons_pointer pointer ) { */ struct cons_pointer make_integer( int64_t value, struct cons_pointer more ) { struct cons_pointer result = NIL; - debug_print( L"Entering make_integer\n", DEBUG_ARITH ); + debug_print( L"Entering make_integer\n", DEBUG_ALLOC ); if ( integerp( more ) || nilp( more ) ) { result = allocate_cell( INTEGERTAG ); @@ -89,8 +89,8 @@ struct cons_pointer make_integer( int64_t value, struct cons_pointer more ) { } - debug_print( L"make_integer: returning\n", DEBUG_ARITH ); - debug_dump_object( result, DEBUG_ARITH ); + debug_print( L"make_integer: returning\n", DEBUG_ALLOC ); + debug_dump_object( result, DEBUG_ALLOC ); return result; }