* [including the GNU Public Licence.]
*/
-#include <stdio.h>
#include "cryptlib.h"
#include "bn_lcl.h"
int ret = 0;
BIGNUM *tmp,*rr;
-#ifdef BN_COUNT
- fprintf(stderr,"BN_sqr %d * %d\n",a->top,a->top);
-#endif
bn_check_top(a);
al=a->top;
if (al <= 0)
{
r->top=0;
+ r->neg = 0;
return 1;
}
if (!rr || !tmp) goto err;
max = 2 * al; /* Non-zero (from above) */
- if (bn_wexpand(rr,max+1) == NULL) goto err;
+ if (bn_wexpand(rr,max) == NULL) goto err;
if (al == 4)
{
if (rr != r) BN_copy(r,rr);
ret = 1;
err:
- if(rr) bn_check_top(rr);
- if(tmp) bn_check_top(tmp);
+ bn_check_top(rr);
+ bn_check_top(tmp);
BN_CTX_end(ctx);
return(ret);
}
int zero,c1;
BN_ULONG ln,lo,*p;
-#ifdef BN_COUNT
- fprintf(stderr," bn_sqr_recursive %d * %d\n",n2,n2);
-#endif
if (n2 == 4)
{
#ifndef BN_SQR_COMBA