ARM Shanghai IoT Team (Internal) / newMiniTLS-GPL

Important changes to repositories hosted on mbed.com

Mbed hosted mercurial repositories are deprecated and are due to be permanently deleted in July 2026.

To keep a copy of this software download the repository Zip archive or clone locally using Mercurial.

It is also possible to export all your personal repositories from the account settings page.

Fork of MiniTLS-GPL by Donatien Garnier

math/bit/fp_lshd.c@5:95f70ebfe61f, 2015-02-06 (annotated)

Committer:
shiyilei
Date:
Fri Feb 06 06:17:33 2015 +0000
Revision:
5:95f70ebfe61f
Parent:
0:35aa5be3b78d 
change some parameters in the library to meet the needs of httpbin.org

Who changed what in which revision?

UserRevisionLine numberNew contents of line
MiniTLS 0:35aa5be3b78d 1 /* TomsFastMath, a fast ISO C bignum library.
MiniTLS 0:35aa5be3b78d 2 *
MiniTLS 0:35aa5be3b78d 3 * This project is meant to fill in where LibTomMath
MiniTLS 0:35aa5be3b78d 4 * falls short. That is speed ;-)
MiniTLS 0:35aa5be3b78d 5 *
MiniTLS 0:35aa5be3b78d 6 * This project is public domain and free for all purposes.
MiniTLS 0:35aa5be3b78d 7 *
MiniTLS 0:35aa5be3b78d 8 * Tom St Denis, tomstdenis@gmail.com
MiniTLS 0:35aa5be3b78d 9 */
MiniTLS 0:35aa5be3b78d 10 #include <tfm.h>
MiniTLS 0:35aa5be3b78d 11
MiniTLS 0:35aa5be3b78d 12 void fp_lshd(fp_int *a, int x)
MiniTLS 0:35aa5be3b78d 13 {
MiniTLS 0:35aa5be3b78d 14 int y;
MiniTLS 0:35aa5be3b78d 15
MiniTLS 0:35aa5be3b78d 16 /* move up and truncate as required */
MiniTLS 0:35aa5be3b78d 17 y = MIN(a->used + x - 1, (int)(FP_SIZE-1));
MiniTLS 0:35aa5be3b78d 18
MiniTLS 0:35aa5be3b78d 19 /* store new size */
MiniTLS 0:35aa5be3b78d 20 a->used = y + 1;
MiniTLS 0:35aa5be3b78d 21
MiniTLS 0:35aa5be3b78d 22 /* move digits */
MiniTLS 0:35aa5be3b78d 23 for (; y >= x; y--) {
MiniTLS 0:35aa5be3b78d 24 a->dp[y] = a->dp[y-x];
MiniTLS 0:35aa5be3b78d 25 }
MiniTLS 0:35aa5be3b78d 26
MiniTLS 0:35aa5be3b78d 27 /* zero lower digits */
MiniTLS 0:35aa5be3b78d 28 for (; y >= 0; y--) {
MiniTLS 0:35aa5be3b78d 29 a->dp[y] = 0;
MiniTLS 0:35aa5be3b78d 30 }
MiniTLS 0:35aa5be3b78d 31
MiniTLS 0:35aa5be3b78d 32 /* clamp digits */
MiniTLS 0:35aa5be3b78d 33 fp_clamp(a);
MiniTLS 0:35aa5be3b78d 34 }
MiniTLS 0:35aa5be3b78d 35
MiniTLS 0:35aa5be3b78d 36 /* $Source: /cvs/libtom/tomsfastmath/src/bit/fp_lshd.c,v $ */
MiniTLS 0:35aa5be3b78d 37 /* $Revision: 1.1 $ */
MiniTLS 0:35aa5be3b78d 38 /* $Date: 2006/12/31 21:25:53 $ */