The bug is a segfault whenever I try to factor a non-prime number using GMP.
To duplicate the bug, do this:
Code: Select all
(module "gmp.lsp")
(GMP:factor "4")
Code: Select all
(set 'f (get-string (__gmpz_get_str rops 10 f)))
Code: Select all
(module "gmp.lsp")
(GMP:factor "4")
Code: Select all
(set 'f (get-string (__gmpz_get_str rops 10 f)))
Code: Select all
> (test-GMP)
GMP:+ -> Ok
GMP:- -> Ok
GMP:* -> Ok
GMP:/ -> Ok
GMP:% -> Ok
GMP:** -> Ok
GMP:= -> Ok
Problem in GMP:<
Problem in GMP:>
Problem in GMP:<=
Problem in GMP:>=
GMP:& -> Ok
GMP:| -> Ok
GMP:^ -> Ok
GMP:~ -> Ok
GMP:prime? -> Ok
GMP:next-prime -> Ok
Problem in GMP:factor
GMP:gcd -> Ok
GMP:bin -> Ok
GMP:fac -> Ok
GMP:fib -> Ok
GMP:seed -> Ok
"\t-> Ok"
>
Code: Select all
> (test-GMP)
GMP:+ -> Ok
GMP:- -> Ok
GMP:* -> Ok
GMP:/ -> Ok
GMP:% -> Ok
GMP:** -> Ok
GMP:= -> Ok
GMP:< -> Ok
GMP:> -> Ok
GMP:<= -> Ok
GMP:>= -> Ok
GMP:& -> Ok
GMP:| -> Ok
GMP:^ -> Ok
GMP:~ -> Ok
GMP:prime? -> Ok
GMP:next-prime -> Ok
Segmentation fault