crypto/openssh/fe25519.c

196 void fe25519_mul(fe25519 *r, const fe25519 *x, const fe25519 *y)
215   fe25519_mul(r, x, x);
235 	/* 9 */ fe25519_mul(&z9,&t0,x);
236 	/* 11 */ fe25519_mul(&z11,&z9,&z2);
238 	/* 2^5 - 2^0 = 31 */ fe25519_mul(&z2_5_0,&t0,&z9);
245 	/* 2^10 - 2^0 */ fe25519_mul(&z2_10_0,&t0,&z2_5_0);
250 	/* 2^20 - 2^0 */ fe25519_mul(&z2_20_0,&t1,&z2_10_0);
255 	/* 2^40 - 2^0 */ fe25519_mul(&t0,&t1,&z2_20_0);
260 	/* 2^50 - 2^0 */ fe25519_mul(&z2_50_0,&t0,&z2_10_0);
265 	/* 2^100 - 2^0 */ fe25519_mul(&z2_100_0,&t1,&z2_50_0);
270 	/* 2^200 - 2^0 */ fe25519_mul(&t1,&t0,&z2_100_0);
275 	/* 2^250 - 2^0 */ fe25519_mul(&t0,&t1,&z2_50_0);
282 	/* 2^255 - 21 */ fe25519_mul(r,&t1,&z11);
301 	/* 9 */ fe25519_mul(&z9,&t,x);
302 	/* 11 */ fe25519_mul(&z11,&z9,&z2);
304 	/* 2^5 - 2^0 = 31 */ fe25519_mul(&z2_5_0,&t,&z9);
308 	/* 2^10 - 2^0 */ fe25519_mul(&z2_10_0,&t,&z2_5_0);
312 	/* 2^20 - 2^0 */ fe25519_mul(&z2_20_0,&t,&z2_10_0);
316 	/* 2^40 - 2^0 */ fe25519_mul(&t,&t,&z2_20_0);
320 	/* 2^50 - 2^0 */ fe25519_mul(&z2_50_0,&t,&z2_10_0);
324 	/* 2^100 - 2^0 */ fe25519_mul(&z2_100_0,&t,&z2_50_0);
328 	/* 2^200 - 2^0 */ fe25519_mul(&t,&t,&z2_100_0);
332 	/* 2^250 - 2^0 */ fe25519_mul(&t,&t,&z2_50_0);
336 	/* 2^252 - 3 */ fe25519_mul(r,&t,x);