Update of /cvsroot/perl-openssl/Crypt/OpenSSL/RSA
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8385
Modified Files:
RSA.xs
Log Message:
get rid of a temporary var
Index: RSA.xs
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/RSA.xs,v
retrieving revision 1.51
retrieving revision 1.52
diff -C2 -d -r1.51 -r1.52
*** RSA.xs 19 Feb 2004 02:19:40 -0000 1.51
--- RSA.xs 19 Feb 2004 02:24:41 -0000 1.52
***************
*** 301,305 ****
RSA* rsa;
BN_CTX* ctx;
- BIGNUM* bn;
BIGNUM* p_minus_1;
BIGNUM* q_minus_1;
--- 301,304 ----
***************
*** 317,321 ****
if (p || q)
{
- bn = BN_new();
ctx = BN_CTX_new();
if (!p)
--- 316,319 ----
***************
*** 338,343 ****
{
d = BN_new();
! CHECK_OPEN_SSL(BN_mul(bn, p_minus_1, q_minus_1, ctx))
! CHECK_OPEN_SSL(BN_mod_inverse(d, e, bn, ctx))
}
rsa->d = d;
--- 336,341 ----
{
d = BN_new();
! CHECK_OPEN_SSL(BN_mul(d, p_minus_1, q_minus_1, ctx))
! CHECK_OPEN_SSL(BN_mod_inverse(d, e, d, ctx))
}
rsa->d = d;
***************
*** 348,352 ****
rsa->iqmp = BN_new();
CHECK_OPEN_SSL(BN_mod_inverse(rsa->iqmp, q, p, ctx))
- BN_clear_free(bn);
BN_clear_free(p_minus_1);
BN_clear_free(q_minus_1);
--- 346,349 ----
|
