43 lines
886 B
C
43 lines
886 B
C
|
/* LibTomPoly, Polynomial Basis Math -- Tom St Denis
|
||
|
|
*
|
||
|
|
* LibTomPoly is a public domain library that provides
|
||
|
|
* polynomial basis arithmetic support. It relies on
|
||
|
|
* LibTomMath for large integer support.
|
||
|
|
*
|
||
|
|
* This library is free for all purposes without any
|
||
|
|
* express guarantee that it works.
|
||
|
|
*
|
||
|
|
* Tom St Denis, tomstdenis@iahu.ca, http://poly.libtomcrypt.org
|
||
|
|
*/
|
||
|
|
#include <tompoly.h>
|
||
|
|
|
||
|
|
int pb_lshd(pb_poly *a, int x)
|
||
|
|
{
|
||
|
|
int err, y;
|
||
|
|
|
||
|
|
if (x <= 0) {
|
||
|
|
return MP_OKAY;
|
||
|
|
}
|
||
|
|
|
||
|
|
/* grow as required */
|
||
|
|
if (a->alloc < (a->used + x)) {
|
||
|
|
if ((err = pb_grow(a, a->used + x)) != MP_OKAY) {
|
||
|
|
return err;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/* shift */
|
||
|
|
for (y = a->used + x; y >= x; y--) {
|
||
|
|
mp_exch(&(a->terms[y-x]), &(a->terms[y]));
|
||
|
|
}
|
||
|
|
|
||
|
|
/* zero lower digits */
|
||
|
|
for (y = 0; y < x; y++) {
|
||
|
|
mp_zero(&(a->terms[y]));
|
||
|
|
}
|
||
|
|
a->used += x;
|
||
|
|
|
||
|
|
return MP_OKAY;
|
||
|
|
}
|
||
|
|
|