88,95d87
< #if 0
< bn_wexpand(tmp,a->top*2);
< bn_wexpand(tmp2,a->top*4);
< bn_sqr_recursive(tmp->d,a->d,a->top,tmp2->d);
< tmp->top=a->top*2;
< if (tmp->d[tmp->top-1] == 0)
< tmp->top--;
< #else
97d88
< #endif
159a151,164
> #ifdef __TANDEM
> {
> long long t1;
> long long t2;
> long long t3;
> t1 = rp[0] * (n0 & 0177777);
> t2 = 037777600000l;
> t2 = n0 & t2;
> t3 = rp[0] & 0177777;
> t2 = (t3 * t2) & BN_MASK2;
> t1 = t1 + t2;
> v=bn_mul_add_words(rp,np,nl,(BN_ULONG) t1);
> }
> #else
160a166
> #endif
177a184
> ret->neg = r->neg;
237c244
< if ((ret=(BN_MONT_CTX *)Malloc(sizeof(BN_MONT_CTX))) == NULL)
---
> if ((ret=(BN_MONT_CTX *)OPENSSL_malloc(sizeof(BN_MONT_CTX))) == NULL)
263c270
< Free(mont);
---
> OPENSSL_free(mont);
287c294
< tmod.max=2;
---
> tmod.dmax=2;