X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb/blobdiff_plain/58ad700d859210eb8eee3807950aa7492ac4797e..6baf2beaba0a9e7df4a3781be9dcc70671fdc550:/pub/ed448.c

diff --git a/pub/ed448.c b/pub/ed448.c
index ae565566..60328021 100644
--- a/pub/ed448.c
+++ b/pub/ed448.c
@@ -237,7 +237,7 @@ static void ptdbl(fgoldi *X, fgoldi *Y, fgoldi *Z,
   fgoldi_sub(&t1, &t1, &t2);		/* t1 = C - D */
   fgoldi_sub(X, &t0, Y);		/* X = c (B - E) */
   fgoldi_sqr(&t0, Z0);			/* t0 = H = (c Z0)^2 */
-  fgoldi_mulconst(&t0, &t0, 2);		/* t0 = 2 H */
+  fgoldi_add(&t0, &t0, &t0);		/* t0 = 2 H */
   fgoldi_sub(&t0, Y, &t0);		/* t0 = J = E - 2 H */
   fgoldi_mul(X, X, &t0);		/* X = c (B - E) J */
   fgoldi_mul(Z, Y, &t0);		/* Z = E J */