686 			MPI z1, z2, z3;  in mpi_ec_get_affine()  local
688 			z1 = mpi_new(0);  in mpi_ec_get_affine()
690 			ec_invm(z1, point->z, ctx);  /* z1 = z^(-1) mod p  */  in mpi_ec_get_affine()
691 			ec_mulm(z2, z1, z1, ctx);    /* z2 = z^(-2) mod p  */  in mpi_ec_get_affine()
698 				ec_mulm(z3, z2, z1, ctx);      /* z3 = z^(-3) mod p */  in mpi_ec_get_affine()
704 			mpi_free(z1);  in mpi_ec_get_affine()
847 #define Z1 (point->z)  in dup_point_edwards()  macro
880 	ctx->pow2(H, Z1, ctx);  in dup_point_edwards()
900 #undef Z1  in dup_point_edwards()
937 #define z1 (p1->z)  in add_points_weierstrass()  macro
956 	if ((!mpi_cmp(x1, x2)) && (!mpi_cmp(y1, y2)) && (!mpi_cmp(z1, z2))) {  in add_points_weierstrass()
959 	} else if (!mpi_cmp_ui(z1, 0)) {  in add_points_weierstrass()
970 		int z1_is_one = !mpi_cmp_ui(z1, 1);  in add_points_weierstrass()
974 		/* l2 = x2 z1^2  */  in add_points_weierstrass()
984 			ec_pow2(l2, z1, ctx);  in add_points_weierstrass()
992 		/* l5 = y2 z1^3  */  in add_points_weierstrass()
993 		ec_powm(l5, z1, 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()
1035 #undef z1  in add_points_weierstrass()
1075 #define Z1 (p1->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()
1142 #undef Z1  in add_points_edwards()
1214 	MPI x1, y1, z1, k, h, yy;  in mpi_ec_mul_point()  local
1305 			z1 = mpi_new(0);  in mpi_ec_mul_point()
1306 			ec_invm(z1, p1.z, ctx);  in mpi_ec_mul_point()
1307 			ec_mulm(result->x, p1.x, z1, ctx);  in mpi_ec_mul_point()
1309 			mpi_free(z1);  in mpi_ec_mul_point()
1347 	z1 = mpi_copy(mpi_const(MPI_C_ONE));  in mpi_ec_mul_point()
1369 	p1.z = z1; z1 = NULL;  in mpi_ec_mul_point()