246 	mp_int t0, t1, M, S;  in ec_GFp_pt_dbl_jac()  local
250 	MP_DIGITS(&M) = 0;  in ec_GFp_pt_dbl_jac()
254 	MP_CHECKOK(mp_init(&M, FLAG(px)));  in ec_GFp_pt_dbl_jac()
265 		MP_CHECKOK(group->meth->field_add(&t0, &t0, &M, group->meth));  in ec_GFp_pt_dbl_jac()
266 		MP_CHECKOK(group->meth->field_add(&t0, &M, &t0, group->meth));  in ec_GFp_pt_dbl_jac()
268 				   field_add(&t0, &group->curvea, &M, group->meth));  in ec_GFp_pt_dbl_jac()
271 		MP_CHECKOK(group->meth->field_sqr(pz, &M, group->meth));  in ec_GFp_pt_dbl_jac()
272 		MP_CHECKOK(group->meth->field_add(px, &M, &t0, group->meth));  in ec_GFp_pt_dbl_jac()
273 		MP_CHECKOK(group->meth->field_sub(px, &M, &t1, group->meth));  in ec_GFp_pt_dbl_jac()
274 		MP_CHECKOK(group->meth->field_mul(&t0, &t1, &M, group->meth));  in ec_GFp_pt_dbl_jac()
275 		MP_CHECKOK(group->meth->field_add(&M, &M, &t0, group->meth));  in ec_GFp_pt_dbl_jac()
276 		MP_CHECKOK(group->meth->field_add(&t0, &M, &M, group->meth));  in ec_GFp_pt_dbl_jac()
280 		MP_CHECKOK(group->meth->field_add(&t0, &t0, &M, group->meth));  in ec_GFp_pt_dbl_jac()
281 		MP_CHECKOK(group->meth->field_add(&t0, &M, &t0, group->meth));  in ec_GFp_pt_dbl_jac()
282 		MP_CHECKOK(group->meth->field_sqr(pz, &M, group->meth));  in ec_GFp_pt_dbl_jac()
283 		MP_CHECKOK(group->meth->field_sqr(&M, &M, group->meth));  in ec_GFp_pt_dbl_jac()
285 				   field_mul(&M, &group->curvea, &M, group->meth));  in ec_GFp_pt_dbl_jac()
286 		MP_CHECKOK(group->meth->field_add(&M, &t0, &M, group->meth));  in ec_GFp_pt_dbl_jac()
305 	MP_CHECKOK(group->meth->field_sqr(&M, rx, group->meth));  in ec_GFp_pt_dbl_jac()
315 	MP_CHECKOK(group->meth->field_mul(&M, &S, &M, group->meth));  in ec_GFp_pt_dbl_jac()
316 	MP_CHECKOK(group->meth->field_sub(&M, &t1, ry, group->meth));  in ec_GFp_pt_dbl_jac()
321 	mp_clear(&M);  in ec_GFp_pt_dbl_jac()