689 			MPI z1, z2, z3;  in mpi_ec_get_affine()  local
691 			z1 = mpi_new(0);  in mpi_ec_get_affine()
693 			ec_invm(z1, point->z, ctx);  /* z1 = z^(-1) mod p  */  in mpi_ec_get_affine()
694 			ec_mulm(z2, z1, z1, ctx);    /* z2 = z^(-2) mod p  */  in mpi_ec_get_affine()
701 				ec_mulm(z3, z2, z1, ctx);      /* z3 = z^(-3) mod p */  in mpi_ec_get_affine()
707 			mpi_free(z1);  in mpi_ec_get_affine()
850 #define Z1 (point->z)  in dup_point_edwards()  macro
883 	ctx->pow2(H, Z1, ctx);  in dup_point_edwards()
903 #undef Z1  in dup_point_edwards()
940 #define z1 (p1->z)  in add_points_weierstrass()  macro
959 	if ((!mpi_cmp(x1, x2)) && (!mpi_cmp(y1, y2)) && (!mpi_cmp(z1, z2))) {  in add_points_weierstrass()
962 	} else if (!mpi_cmp_ui(z1, 0)) {  in add_points_weierstrass()
973 		int z1_is_one = !mpi_cmp_ui(z1, 1);  in add_points_weierstrass()
977 		/* l2 = x2 z1^2  */  in add_points_weierstrass()
987 			ec_pow2(l2, z1, ctx);  in add_points_weierstrass()
995 		/* l5 = y2 z1^3  */  in add_points_weierstrass()
996 		ec_powm(l5, z1, 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()
1038 #undef z1  in add_points_weierstrass()
1078 #define Z1 (p1->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()
1145 #undef Z1  in add_points_edwards()
1217 	MPI x1, y1, z1, k, h, yy;  in mpi_ec_mul_point()  local
1308 			z1 = mpi_new(0);  in mpi_ec_mul_point()
1309 			ec_invm(z1, p1.z, ctx);  in mpi_ec_mul_point()
1310 			ec_mulm(result->x, p1.x, z1, ctx);  in mpi_ec_mul_point()
1312 			mpi_free(z1);  in mpi_ec_mul_point()
1350 	z1 = mpi_copy(mpi_const(MPI_C_ONE));  in mpi_ec_mul_point()
1372 	p1.z = z1; z1 = NULL;  in mpi_ec_mul_point()