1177 /* P = (x1, y1) => 2P, (x2, y2) => P' */
1178 static void xycz_initial_double(u64 *x1, u64 *y1, u64 *x2, u64 *y2,  in xycz_initial_double()  argument
1185 	vli_set(y2, y1, ndigits);  in xycz_initial_double()
1197 	apply_z(x2, y2, z, curve);  in xycz_initial_double()
1200 /* Input P = (x1, y1, Z), Q = (x2, y2, Z)
1204 static void xycz_add(u64 *x1, u64 *y1, u64 *x2, u64 *y2,  in xycz_add()  argument
1207 	/* t1 = X1, t2 = Y1, t3 = X2, t4 = Y2 */  in xycz_add()
1220 	/* t4 = y2 - y1 */  in xycz_add()
1221 	vli_mod_sub(y2, y2, y1, curve_prime, ndigits);  in xycz_add()
1222 	/* t5 = (y2 - y1)^2 = D */  in xycz_add()
1223 	vli_mod_square_fast(t5, y2, curve);  in xycz_add()
1235 	/* t4 = (y2 - y1)*(B - x3) */  in xycz_add()
1236 	vli_mod_mult_fast(y2, y2, x2, curve);  in xycz_add()
1238 	vli_mod_sub(y2, y2, y1, curve_prime, ndigits);  in xycz_add()
1243 /* Input P = (x1, y1, Z), Q = (x2, y2, Z)
1247 static void xycz_add_c(u64 *x1, u64 *y1, u64 *x2, u64 *y2,  in xycz_add_c()  argument
1250 	/* t1 = X1, t2 = Y1, t3 = X2, t4 = Y2 */  in xycz_add_c()
1265 	/* t4 = y2 + y1 */  in xycz_add_c()
1266 	vli_mod_add(t5, y2, y1, curve_prime, ndigits);  in xycz_add_c()
1267 	/* t4 = y2 - y1 */  in xycz_add_c()
1268 	vli_mod_sub(y2, y2, y1, curve_prime, ndigits);  in xycz_add_c()
1276 	/* t3 = (y2 - y1)^2 */  in xycz_add_c()
1277 	vli_mod_square_fast(x2, y2, curve);  in xycz_add_c()
1283 	/* t4 = (y2 - y1)*(B - x3) */  in xycz_add_c()
1284 	vli_mod_mult_fast(y2, y2, t7, curve);  in xycz_add_c()
1286 	vli_mod_sub(y2, y2, y1, curve_prime, ndigits);  in xycz_add_c()
1288 	/* t7 = (y2 + y1)^2 = F */  in xycz_add_c()
1294 	/* t6 = (y2 + y1)*(x3' - B) */  in xycz_add_c()