From: Ulf Möller <ulf@openssl.org>
Date: Wed, 1 Mar 2000 19:08:27 +0000 (+0000)
Subject: Bug fix.
X-Git-Tag: OpenSSL_0_9_5a-beta1~127
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=0b8fa44ef070a4ce08f6b9f26ecdac4e689f02f1;p=oweals%2Fopenssl.git

Bug fix.
---

diff --git a/crypto/bn/bn_mont.c b/crypto/bn/bn_mont.c
index 7bb0b91223..598fecbf0c 100644
--- a/crypto/bn/bn_mont.c
+++ b/crypto/bn/bn_mont.c
@@ -73,6 +73,7 @@ int BN_mod_mul_montgomery(BIGNUM *r, BIGNUM *a, BIGNUM *b,
 			  BN_MONT_CTX *mont, BN_CTX *ctx)
 	{
 	BIGNUM *tmp,*tmp2;
+	int ret=0;
 
 	BN_CTX_start(ctx);
 	tmp = BN_CTX_get(ctx);
@@ -101,10 +102,10 @@ int BN_mod_mul_montgomery(BIGNUM *r, BIGNUM *a, BIGNUM *b,
 		}
 	/* reduce from aRR to aR */
 	if (!BN_from_montgomery(r,tmp,mont,ctx)) goto err;
-	BN_CTX_end(ctx);
-	return(1);
+	ret=1;
 err:
-	return(0);
+	BN_CTX_end(ctx);
+	return(ret);
 	}
 
 int BN_from_montgomery(BIGNUM *ret, BIGNUM *a, BN_MONT_CTX *mont,