Added unit tests to establish that bignum addition and print work

the bug must be in multiplication.
This commit is contained in:
Simon Brooke 2019-01-18 13:39:12 +00:00
parent 7f93b04b72
commit c209abb4f9
5 changed files with 355 additions and 8 deletions

View file

@ -14,14 +14,14 @@
#define __debug_print_h
#define DEBUG_ALLOC 1
#define DEBUG_STACK 2
#define DEBUG_ARITH 4
#define DEBUG_EVAL 8
#define DEBUG_LAMBDA 16
#define DEBUG_BOOTSTRAP 32
#define DEBUG_IO 64
#define DEBUG_ARITH 2
#define DEBUG_BIND 4
#define DEBUG_BOOTSTRAP 8
#define DEBUG_EVAL 16
#define DEBUG_IO 32
#define DEBUG_LAMBDA 64
#define DEBUG_REPL 128
#define DEBUG_BIND 256
#define DEBUG_STACK 256
extern int verbosity;

View file

@ -84,7 +84,7 @@ void dump_object( FILE * output, struct cons_pointer pointer ) {
L"\t\tInteger cell: value %ld, count %u\n",
cell.payload.integer.value, cell.count );
if ( !nilp( cell.payload.integer.more ) ) {
fputws( L"\t\tBIGNUM! More at\n:", output );
fputws( L"\t\tBIGNUM! More at:\n", output );
dump_object( output, cell.payload.integer.more );
}
break;