From 17a2994dbd83929d89ae452f77f4b6b1d073df46 Mon Sep 17 00:00:00 2001
From: Nils Larsch <nils@openssl.org>
Date: Thu, 21 Jul 2005 22:40:39 +0000
Subject: [PATCH] set correct bn->top value

---
 crypto/bn/bn_mont.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/crypto/bn/bn_mont.c b/crypto/bn/bn_mont.c
index 6bcc9ad2e7..82af91f90d 100644
--- a/crypto/bn/bn_mont.c
+++ b/crypto/bn/bn_mont.c
@@ -292,7 +292,7 @@ int BN_MONT_CTX_set(BN_MONT_CTX *mont, const BIGNUM *mod, BN_CTX *ctx)
 		buf[0]=mod->d[0]; /* tmod = N mod word size */
 		buf[1]=0;
 		tmod.d=buf;
-		tmod.top=1;
+		tmod.top = buf[0] != 0 ? 1 : 0;
 		tmod.dmax=2;
 		tmod.neg=0;
 							/* Ri = R^-1 mod N*/
-- 
2.25.1