From: Ulf Möller <ulf@openssl.org>
Date: Tue, 1 Feb 2000 23:48:55 +0000 (+0000)
Subject: Bug fix: BN_is_prime() would fail with a high probability for small
X-Git-Tag: OpenSSL_0_9_5beta1~131
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=1399f17a0733b776c363f18225a1461b3a6f8cb7;p=oweals%2Fopenssl.git

Bug fix: BN_is_prime() would fail with a high probability for small
primes (negligible for larger ones).
---

diff --git a/crypto/bn/bn_prime.c b/crypto/bn/bn_prime.c
index e2cfef3725..f6de801263 100644
--- a/crypto/bn/bn_prime.c
+++ b/crypto/bn/bn_prime.c
@@ -204,6 +204,7 @@ int BN_is_prime_fasttest(BIGNUM *a, int checks,
 		if (!BN_pseudo_rand(check,BN_num_bits(a),0,0)) goto err;
 		if (BN_cmp(check, a) >= 0)
 			BN_sub(check, check, a);
+		if (BN_is_zero(check)) BN_one(check);
 		j=witness(check,a,ctx,ctx2,mont);
 		if (j == -1) goto err;
 		if (j)