change some parameters in the library to meet the needs of the website httpbin.org
Fork of MiniTLS-GPL by
math/bit/fp_mod_2d.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?
User | Revision | Line number | New 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 | /* c = a mod 2**d */ |
MiniTLS | 0:35aa5be3b78d | 13 | void fp_mod_2d(fp_int *a, int b, fp_int *c) |
MiniTLS | 0:35aa5be3b78d | 14 | { |
MiniTLS | 0:35aa5be3b78d | 15 | int x; |
MiniTLS | 0:35aa5be3b78d | 16 | |
MiniTLS | 0:35aa5be3b78d | 17 | /* zero if count less than or equal to zero */ |
MiniTLS | 0:35aa5be3b78d | 18 | if (b <= 0) { |
MiniTLS | 0:35aa5be3b78d | 19 | fp_zero(c); |
MiniTLS | 0:35aa5be3b78d | 20 | return; |
MiniTLS | 0:35aa5be3b78d | 21 | } |
MiniTLS | 0:35aa5be3b78d | 22 | |
MiniTLS | 0:35aa5be3b78d | 23 | /* get copy of input */ |
MiniTLS | 0:35aa5be3b78d | 24 | fp_copy(a, c); |
MiniTLS | 0:35aa5be3b78d | 25 | |
MiniTLS | 0:35aa5be3b78d | 26 | /* if 2**d is larger than we just return */ |
MiniTLS | 0:35aa5be3b78d | 27 | if (b >= (DIGIT_BIT * a->used)) { |
MiniTLS | 0:35aa5be3b78d | 28 | return; |
MiniTLS | 0:35aa5be3b78d | 29 | } |
MiniTLS | 0:35aa5be3b78d | 30 | |
MiniTLS | 0:35aa5be3b78d | 31 | /* zero digits above the last digit of the modulus */ |
MiniTLS | 0:35aa5be3b78d | 32 | for (x = (b / DIGIT_BIT) + ((b % DIGIT_BIT) == 0 ? 0 : 1); x < c->used; x++) { |
MiniTLS | 0:35aa5be3b78d | 33 | c->dp[x] = 0; |
MiniTLS | 0:35aa5be3b78d | 34 | } |
MiniTLS | 0:35aa5be3b78d | 35 | /* clear the digit that is not completely outside/inside the modulus */ |
MiniTLS | 0:35aa5be3b78d | 36 | c->dp[b / DIGIT_BIT] &= ~((fp_digit)0) >> (DIGIT_BIT - b); |
MiniTLS | 0:35aa5be3b78d | 37 | fp_clamp (c); |
MiniTLS | 0:35aa5be3b78d | 38 | } |
MiniTLS | 0:35aa5be3b78d | 39 | |
MiniTLS | 0:35aa5be3b78d | 40 | /* $Source: /cvs/libtom/tomsfastmath/src/bit/fp_mod_2d.c,v $ */ |
MiniTLS | 0:35aa5be3b78d | 41 | /* $Revision: 1.1 $ */ |
MiniTLS | 0:35aa5be3b78d | 42 | /* $Date: 2006/12/31 21:25:53 $ */ |