686 			MPI z1, z2, z3;  in mpi_ec_get_affine()  local
689 			z2 = mpi_new(0);  in mpi_ec_get_affine()
691 			ec_mulm(z2, z1, z1, ctx);    /* z2 = z^(-2) mod p  */  in mpi_ec_get_affine()
694 				ec_mulm(x, point->x, z2, ctx);  in mpi_ec_get_affine()
698 				ec_mulm(z3, z2, z1, ctx);      /* z3 = z^(-3) mod p */  in mpi_ec_get_affine()
703 			mpi_free(z2);  in mpi_ec_get_affine()
940 #define z2 (p2->z)  in add_points_weierstrass()  macro
956 	if ((!mpi_cmp(x1, x2)) && (!mpi_cmp(y1, y2)) && (!mpi_cmp(z1, z2))) {  in add_points_weierstrass()
964 	} else if (!mpi_cmp_ui(z2, 0)) {  in add_points_weierstrass()
971 		int z2_is_one = !mpi_cmp_ui(z2, 1);  in add_points_weierstrass()
973 		/* l1 = x1 z2^2  */  in add_points_weierstrass()
978 			ec_pow2(l1, z2, ctx);  in add_points_weierstrass()
989 		/* l4 = y1 z2^3  */  in add_points_weierstrass()
990 		ec_powm(l4, z2, mpi_const(MPI_C_THREE), ctx);  in add_points_weierstrass()
1013 			/* z3 = z1 z2 l3  */  in add_points_weierstrass()
1014 			ec_mulm(z3, z1, z2, ctx);  in add_points_weierstrass()
1038 #undef z2  in add_points_weierstrass()
1078 #define Z2 (p2->z)  in add_points_edwards()  macro
1095 	/* A = Z1 · Z2 */  in add_points_edwards()
1096 	ctx->mulm(A, Z1, Z2, ctx);  in add_points_edwards()
1145 #undef Z2  in add_points_edwards()
1334 		MPI z2, z3;  in mpi_ec_mul_point()  local
1336 		z2 = mpi_alloc_like(ctx->p);  in mpi_ec_mul_point()
1338 		ec_mulm(z2, point->z, point->z, ctx);  in mpi_ec_mul_point()
1339 		ec_mulm(z3, point->z, z2, ctx);  in mpi_ec_mul_point()
1340 		ec_invm(z2, z2, ctx);  in mpi_ec_mul_point()
1341 		ec_mulm(x1, point->x, z2, ctx);  in mpi_ec_mul_point()
1344 		mpi_free(z2);  in mpi_ec_mul_point()