689 			MPI z1, z2, z3;  in mpi_ec_get_affine()  local
692 			z2 = mpi_new(0);  in mpi_ec_get_affine()
694 			ec_mulm(z2, z1, z1, ctx);    /* z2 = z^(-2) mod p  */  in mpi_ec_get_affine()
697 				ec_mulm(x, point->x, z2, ctx);  in mpi_ec_get_affine()
701 				ec_mulm(z3, z2, z1, ctx);      /* z3 = z^(-3) mod p */  in mpi_ec_get_affine()
706 			mpi_free(z2);  in mpi_ec_get_affine()
943 #define z2 (p2->z)  in add_points_weierstrass()  macro
959 	if ((!mpi_cmp(x1, x2)) && (!mpi_cmp(y1, y2)) && (!mpi_cmp(z1, z2))) {  in add_points_weierstrass()
967 	} else if (!mpi_cmp_ui(z2, 0)) {  in add_points_weierstrass()
974 		int z2_is_one = !mpi_cmp_ui(z2, 1);  in add_points_weierstrass()
976 		/* l1 = x1 z2^2  */  in add_points_weierstrass()
981 			ec_pow2(l1, z2, ctx);  in add_points_weierstrass()
992 		/* l4 = y1 z2^3  */  in add_points_weierstrass()
993 		ec_powm(l4, z2, mpi_const(MPI_C_THREE), ctx);  in add_points_weierstrass()
1016 			/* z3 = z1 z2 l3  */  in add_points_weierstrass()
1017 			ec_mulm(z3, z1, z2, ctx);  in add_points_weierstrass()
1041 #undef z2  in add_points_weierstrass()
1081 #define Z2 (p2->z)  in add_points_edwards()  macro
1098 	/* A = Z1 · Z2 */  in add_points_edwards()
1099 	ctx->mulm(A, Z1, Z2, ctx);  in add_points_edwards()
1148 #undef Z2  in add_points_edwards()
1337 		MPI z2, z3;  in mpi_ec_mul_point()  local
1339 		z2 = mpi_alloc_like(ctx->p);  in mpi_ec_mul_point()
1341 		ec_mulm(z2, point->z, point->z, ctx);  in mpi_ec_mul_point()
1342 		ec_mulm(z3, point->z, z2, ctx);  in mpi_ec_mul_point()
1343 		ec_invm(z2, z2, ctx);  in mpi_ec_mul_point()
1344 		ec_mulm(x1, point->x, z2, ctx);  in mpi_ec_mul_point()
1347 		mpi_free(z2);  in mpi_ec_mul_point()