simon/post-scarcity
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

OK, adding bignums works; multiplying bignums does not work.

Browse source 
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.
This commit is contained in:
Simon Brooke 2019-01-04 11:04:55 +00:00
parent cd509b0668
commit 67443e1d46
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/arith/integer.c
View file

@ -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 make_integer( int64_t value, struct cons_pointer more ) {
struct cons_pointer result = NIL; 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 ) ) { if ( integerp( more ) || nilp( more ) ) {
result = allocate_cell( INTEGERTAG ); 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_print( L"make_integer: returning\n", DEBUG_ALLOC );
debug_dump_object( result, DEBUG_ARITH ); debug_dump_object( result, DEBUG_ALLOC );
return result; return result;
} }