From 5965624458d2532228f22c777c36c83467465f6d Mon Sep 17 00:00:00 2001
From: Mike Hamburg <mike@shiftleft.org>
Date: Thu, 22 Jan 2015 17:45:36 -0800
Subject: [PATCH] fix performance regression for montgomery ladder

---
 src/ec_point.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/ec_point.c b/src/ec_point.c
index 2582372..613a12e 100644
--- a/src/ec_point.c
+++ b/src/ec_point.c
@@ -249,20 +249,20 @@ montgomery_step (
     ANALYZE_THIS_ROUTINE_CAREFULLY;
     field_a_t L0, L1;
     field_add_nr ( L0, a->zd, a->xd );
-    field_sub ( L1, a->xd, a->zd );
-    field_sub ( a->zd, a->xa, a->za );
+    field_subx_nr ( L1, a->xd, a->zd );
+    field_subx_nr ( a->zd, a->xa, a->za );
     field_mul ( a->xd, L0, a->zd );
     field_add_nr ( a->zd, a->za, a->xa );
     field_mul ( a->za, L1, a->zd );
     field_add_nr ( a->xa, a->za, a->xd );
     field_sqr ( a->zd, a->xa );
     field_mul ( a->xa, a->z0, a->zd );
-    field_sub ( a->zd, a->xd, a->za );
+    field_subx_nr ( a->zd, a->xd, a->za );
     field_sqr ( a->za, a->zd );
     field_sqr ( a->xd, L0 );
     field_sqr ( L0, L1 );
     field_mulw_scc ( a->zd, a->xd, 1-EDWARDS_D ); /* FIXME PERF MULW */
-    field_sub ( L1, a->xd, L0 );
+    field_subx_nr ( L1, a->xd, L0 );
     field_mul ( a->xd, L0, a->zd );
     field_sub_nr ( L0, a->zd, L1 );
     field_bias ( L0, 4 - 2*is32 /*is32 ? 2 : 4*/ );