*** /staff/steve/openssl-0.9.6/crypto/rsa/rsa_eay.c	Mon Sep 11 23:42:43 2000
--- openssl/crypto/rsa/rsa_eay.c	Wed Oct  4 14:19:02 2000
***************
*** 138,146 ****
  	
  	if ((rsa->_method_mod_n == NULL) && (rsa->flags & RSA_FLAG_CACHE_PUBLIC))
  		{
! 		if ((rsa->_method_mod_n=BN_MONT_CTX_new()) != NULL)
! 			if (!BN_MONT_CTX_set(rsa->_method_mod_n,rsa->n,ctx))
! 			    goto err;
  		}
  
  	if (!rsa->meth->bn_mod_exp(&ret,&f,rsa->e,rsa->n,ctx,
--- 138,161 ----
  	
  	if ((rsa->_method_mod_n == NULL) && (rsa->flags & RSA_FLAG_CACHE_PUBLIC))
  		{
! 		CRYPTO_w_lock(CRYPTO_LOCK_RSA);
! 		if (rsa->_method_mod_n == NULL)
! 			{
! 			BN_MONT_CTX* bn_mont_ctx;
! 			if ((bn_mont_ctx=BN_MONT_CTX_new()) == NULL)
! 			{
! 				CRYPTO_w_unlock(CRYPTO_LOCK_RSA);
! 				goto err;
! 			}
! 			if (!BN_MONT_CTX_set(bn_mont_ctx,rsa->n,ctx))
! 			{
! 				BN_MONT_CTX_free(bn_mont_ctx);
! 				CRYPTO_w_unlock(CRYPTO_LOCK_RSA);
! 				goto err;
! 			}
! 			rsa->_method_mod_n = bn_mont_ctx;
! 			}
! 		CRYPTO_w_unlock(CRYPTO_LOCK_RSA);
  		}
  
  	if (!rsa->meth->bn_mod_exp(&ret,&f,rsa->e,rsa->n,ctx,
***************
*** 369,377 ****
  	/* do the decrypt */
  	if ((rsa->_method_mod_n == NULL) && (rsa->flags & RSA_FLAG_CACHE_PUBLIC))
  		{
! 		if ((rsa->_method_mod_n=BN_MONT_CTX_new()) != NULL)
! 			if (!BN_MONT_CTX_set(rsa->_method_mod_n,rsa->n,ctx))
! 			    goto err;
  		}
  
  	if (!rsa->meth->bn_mod_exp(&ret,&f,rsa->e,rsa->n,ctx,
--- 384,407 ----
  	/* do the decrypt */
  	if ((rsa->_method_mod_n == NULL) && (rsa->flags & RSA_FLAG_CACHE_PUBLIC))
  		{
! 		CRYPTO_w_lock(CRYPTO_LOCK_RSA);
! 		if (rsa->_method_mod_n == NULL)
! 			{
! 			BN_MONT_CTX* bn_mont_ctx;
! 			if ((bn_mont_ctx=BN_MONT_CTX_new()) == NULL)
! 			{
! 				CRYPTO_w_unlock(CRYPTO_LOCK_RSA);
! 				goto err;
! 			}
! 			if (!BN_MONT_CTX_set(bn_mont_ctx,rsa->n,ctx))
! 			{
! 				BN_MONT_CTX_free(bn_mont_ctx);
! 				CRYPTO_w_unlock(CRYPTO_LOCK_RSA);
! 				goto err;
! 			}
! 			rsa->_method_mod_n = bn_mont_ctx;
! 			}
! 		CRYPTO_w_unlock(CRYPTO_LOCK_RSA);
  		}
  
  	if (!rsa->meth->bn_mod_exp(&ret,&f,rsa->e,rsa->n,ctx,
***************
*** 421,437 ****
  		{
  		if (rsa->_method_mod_p == NULL)
  			{
! 			if ((rsa->_method_mod_p=BN_MONT_CTX_new()) != NULL)
! 				if (!BN_MONT_CTX_set(rsa->_method_mod_p,rsa->p,
! 						     ctx))
  					goto err;
  			}
  		if (rsa->_method_mod_q == NULL)
  			{
! 			if ((rsa->_method_mod_q=BN_MONT_CTX_new()) != NULL)
! 				if (!BN_MONT_CTX_set(rsa->_method_mod_q,rsa->q,
! 						     ctx))
  					goto err;
  			}
  		}
  
--- 451,495 ----
  		{
  		if (rsa->_method_mod_p == NULL)
  			{
! 			CRYPTO_w_lock(CRYPTO_LOCK_RSA);
! 			if (rsa->_method_mod_p == NULL)
! 				{
! 				BN_MONT_CTX* bn_mont_ctx;
! 				if ((bn_mont_ctx=BN_MONT_CTX_new()) == NULL)
! 				{
! 					CRYPTO_w_unlock(CRYPTO_LOCK_RSA);
  					goto err;
+ 				}
+ 				if (!BN_MONT_CTX_set(bn_mont_ctx,rsa->p,ctx))
+ 				{
+ 					BN_MONT_CTX_free(bn_mont_ctx);
+ 					CRYPTO_w_unlock(CRYPTO_LOCK_RSA);
+ 					goto err;
+ 				}
+ 				rsa->_method_mod_p = bn_mont_ctx;
+ 				}
+ 				CRYPTO_w_unlock(CRYPTO_LOCK_RSA);
  			}
  		if (rsa->_method_mod_q == NULL)
  			{
! 			CRYPTO_w_lock(CRYPTO_LOCK_RSA);
! 			if (rsa->_method_mod_q == NULL)
! 				{
! 				BN_MONT_CTX* bn_mont_ctx;
! 				if ((bn_mont_ctx=BN_MONT_CTX_new()) == NULL)
! 				{
! 					CRYPTO_w_unlock(CRYPTO_LOCK_RSA);
  					goto err;
+ 				}
+ 				if (!BN_MONT_CTX_set(bn_mont_ctx,rsa->q,ctx))
+ 				{
+ 					BN_MONT_CTX_free(bn_mont_ctx);
+ 					CRYPTO_w_unlock(CRYPTO_LOCK_RSA);
+ 					goto err;
+ 				}
+ 				rsa->_method_mod_q = bn_mont_ctx;
+ 				}
+ 			CRYPTO_w_unlock(CRYPTO_LOCK_RSA);
  			}
  		}