steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix sig11 when dividing large bignums

slava 2006-11-09 23:10:02 +00:00
parent 14a1c0905f
commit 761dab4188
3 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
library/test/math/integer.factor
View File

@ -105,3 +105,10 @@ unit-test
[ t ] [ 0 >bignum zero? ] unit-test [ t ] [ 0 >bignum zero? ] unit-test
[ 4294967280 ] [ 268435455 >fixnum 16 fixnum* ] unit-test [ 4294967280 ] [ 268435455 >fixnum 16 fixnum* ] unit-test
[ 23603949310011464311086123800853779733506160743636399259558684142844552151041 ]
[
1957739506503920732625800353008742584087090810400921800808997218266517557963281171906190947801528098188887586755474449585677502695226712388326288208691204
79562815144503850065234921197651376510595262628033069372760833939060637564931
bignum-mod
] unit-test

1
vm/bignum.c
View File

@ -847,6 +847,7 @@ bignum_divide_unsigned_large_denominator(bignum_type numerator,
} }
REGISTER_BIGNUM(u); REGISTER_BIGNUM(u);
if(q)
q = bignum_trim (q); q = bignum_trim (q);
UNREGISTER_BIGNUM(u); UNREGISTER_BIGNUM(u);

4
vm/data_gc.h
View File

@ -231,8 +231,8 @@ INLINE bool root_push_alien(const void *ptr)
#define UNREGISTER_C_STRING(obj) \ #define UNREGISTER_C_STRING(obj) \
if(obj##_root) obj = alien_offset(root_pop()) if(obj##_root) obj = alien_offset(root_pop())
#define REGISTER_BIGNUM(obj) root_push(tag_bignum(obj)) #define REGISTER_BIGNUM(obj) if(obj) root_push(tag_bignum(obj))
#define UNREGISTER_BIGNUM(obj) obj = (untag_bignum_fast(root_pop())) #define UNREGISTER_BIGNUM(obj) if(obj) obj = (untag_bignum_fast(root_pop()))
INLINE void *allot_zone(F_ZONE *z, CELL a) INLINE void *allot_zone(F_ZONE *z, CELL a)
{ {