X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/catacomb/blobdiff_plain/1aaccf40b93719fd3df7cc89e023b9bb48b358b6..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 */