forked from ibphoenix/tomsfastmath
35 lines
644 B
C
35 lines
644 B
C
/* TomsFastMath, a fast ISO C bignum library.
|
|
*
|
|
* This project is meant to fill in where LibTomMath
|
|
* falls short. That is speed ;-)
|
|
*
|
|
* This project is public domain and free for all purposes.
|
|
*
|
|
* Tom St Denis, tomstdenis@iahu.ca
|
|
*/
|
|
#include <tfm.h>
|
|
|
|
void fp_lshd(fp_int *a, int x)
|
|
{
|
|
int y;
|
|
|
|
/* move up and truncate as required */
|
|
y = MIN(a->used + x - 1, (int)(FP_SIZE-1));
|
|
|
|
/* store new size */
|
|
a->used = y + 1;
|
|
|
|
/* move digits */
|
|
for (; y >= x; y--) {
|
|
a->dp[y] = a->dp[y-x];
|
|
}
|
|
|
|
/* zero lower digits */
|
|
for (; y >= 0; y--) {
|
|
a->dp[y] = 0;
|
|
}
|
|
|
|
/* clamp digits */
|
|
fp_clamp(a);
|
|
}
|