/src/sqr/fp_sqrmod.c

 1/* TomsFastMath, a fast ISO C bignum library. -- Tom St Denis */
 2/* SPDX-License-Identifier: Unlicense */
 3#include <tfm_private.h>
 4
 5/* c = a * a (mod b) */
 6int fp_sqrmod(fp_int *a, fp_int *b, fp_int *c)
 7{
 8  fp_int tmp;
 9  fp_zero(&tmp);
10  fp_sqr(a, &tmp);
11  return fp_mod(&tmp, b, c);
12}