Donatien Garnier
A super trimmed down TLS stack, GPL licensed
Dependents: MiniTLS-HTTPS-Example
MiniTLS - A super trimmed down TLS/SSL Library for embedded devices Author: Donatien Garnier Copyright (C) 2013-2014 AppNearMe Ltd
This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
math/sqr/fp_sqr_comba_6.c@4:cbaf466d717d, 2014-06-10 (annotated)
- Committer:
- MiniTLS
- Date:
- Tue Jun 10 14:23:09 2014 +0000
- Revision:
- 4:cbaf466d717d
- Parent:
- 0:35aa5be3b78d
Fixes for mbed
Who changed what in which revision?
| User | Revision | Line number | New contents of line |
|---|---|---|---|
| MiniTLS | 0:35aa5be3b78d | 1 | #define TFM_DEFINES |
| MiniTLS | 0:35aa5be3b78d | 2 | #include "fp_sqr_comba.c" |
| MiniTLS | 0:35aa5be3b78d | 3 | |
| MiniTLS | 0:35aa5be3b78d | 4 | #ifdef TFM_SQR6 |
| MiniTLS | 0:35aa5be3b78d | 5 | void fp_sqr_comba6(fp_int *A, fp_int *B) |
| MiniTLS | 0:35aa5be3b78d | 6 | { |
| MiniTLS | 0:35aa5be3b78d | 7 | fp_digit *a, b[12], c0, c1, c2, sc0, sc1, sc2; |
| MiniTLS | 0:35aa5be3b78d | 8 | #ifdef TFM_ISO |
| MiniTLS | 0:35aa5be3b78d | 9 | fp_word tt; |
| MiniTLS | 0:35aa5be3b78d | 10 | #endif |
| MiniTLS | 0:35aa5be3b78d | 11 | |
| MiniTLS | 0:35aa5be3b78d | 12 | a = A->dp; |
| MiniTLS | 0:35aa5be3b78d | 13 | COMBA_START; |
| MiniTLS | 0:35aa5be3b78d | 14 | |
| MiniTLS | 0:35aa5be3b78d | 15 | /* clear carries */ |
| MiniTLS | 0:35aa5be3b78d | 16 | CLEAR_CARRY; |
| MiniTLS | 0:35aa5be3b78d | 17 | |
| MiniTLS | 0:35aa5be3b78d | 18 | /* output 0 */ |
| MiniTLS | 0:35aa5be3b78d | 19 | SQRADD(a[0],a[0]); |
| MiniTLS | 0:35aa5be3b78d | 20 | COMBA_STORE(b[0]); |
| MiniTLS | 0:35aa5be3b78d | 21 | |
| MiniTLS | 0:35aa5be3b78d | 22 | /* output 1 */ |
| MiniTLS | 0:35aa5be3b78d | 23 | CARRY_FORWARD; |
| MiniTLS | 0:35aa5be3b78d | 24 | SQRADD2(a[0], a[1]); |
| MiniTLS | 0:35aa5be3b78d | 25 | COMBA_STORE(b[1]); |
| MiniTLS | 0:35aa5be3b78d | 26 | |
| MiniTLS | 0:35aa5be3b78d | 27 | /* output 2 */ |
| MiniTLS | 0:35aa5be3b78d | 28 | CARRY_FORWARD; |
| MiniTLS | 0:35aa5be3b78d | 29 | SQRADD2(a[0], a[2]); SQRADD(a[1], a[1]); |
| MiniTLS | 0:35aa5be3b78d | 30 | COMBA_STORE(b[2]); |
| MiniTLS | 0:35aa5be3b78d | 31 | |
| MiniTLS | 0:35aa5be3b78d | 32 | /* output 3 */ |
| MiniTLS | 0:35aa5be3b78d | 33 | CARRY_FORWARD; |
| MiniTLS | 0:35aa5be3b78d | 34 | SQRADD2(a[0], a[3]); SQRADD2(a[1], a[2]); |
| MiniTLS | 0:35aa5be3b78d | 35 | COMBA_STORE(b[3]); |
| MiniTLS | 0:35aa5be3b78d | 36 | |
| MiniTLS | 0:35aa5be3b78d | 37 | /* output 4 */ |
| MiniTLS | 0:35aa5be3b78d | 38 | CARRY_FORWARD; |
| MiniTLS | 0:35aa5be3b78d | 39 | SQRADD2(a[0], a[4]); SQRADD2(a[1], a[3]); SQRADD(a[2], a[2]); |
| MiniTLS | 0:35aa5be3b78d | 40 | COMBA_STORE(b[4]); |
| MiniTLS | 0:35aa5be3b78d | 41 | |
| MiniTLS | 0:35aa5be3b78d | 42 | /* output 5 */ |
| MiniTLS | 0:35aa5be3b78d | 43 | CARRY_FORWARD; |
| MiniTLS | 0:35aa5be3b78d | 44 | SQRADDSC(a[0], a[5]); SQRADDAC(a[1], a[4]); SQRADDAC(a[2], a[3]); SQRADDDB; |
| MiniTLS | 0:35aa5be3b78d | 45 | COMBA_STORE(b[5]); |
| MiniTLS | 0:35aa5be3b78d | 46 | |
| MiniTLS | 0:35aa5be3b78d | 47 | /* output 6 */ |
| MiniTLS | 0:35aa5be3b78d | 48 | CARRY_FORWARD; |
| MiniTLS | 0:35aa5be3b78d | 49 | SQRADD2(a[1], a[5]); SQRADD2(a[2], a[4]); SQRADD(a[3], a[3]); |
| MiniTLS | 0:35aa5be3b78d | 50 | COMBA_STORE(b[6]); |
| MiniTLS | 0:35aa5be3b78d | 51 | |
| MiniTLS | 0:35aa5be3b78d | 52 | /* output 7 */ |
| MiniTLS | 0:35aa5be3b78d | 53 | CARRY_FORWARD; |
| MiniTLS | 0:35aa5be3b78d | 54 | SQRADD2(a[2], a[5]); SQRADD2(a[3], a[4]); |
| MiniTLS | 0:35aa5be3b78d | 55 | COMBA_STORE(b[7]); |
| MiniTLS | 0:35aa5be3b78d | 56 | |
| MiniTLS | 0:35aa5be3b78d | 57 | /* output 8 */ |
| MiniTLS | 0:35aa5be3b78d | 58 | CARRY_FORWARD; |
| MiniTLS | 0:35aa5be3b78d | 59 | SQRADD2(a[3], a[5]); SQRADD(a[4], a[4]); |
| MiniTLS | 0:35aa5be3b78d | 60 | COMBA_STORE(b[8]); |
| MiniTLS | 0:35aa5be3b78d | 61 | |
| MiniTLS | 0:35aa5be3b78d | 62 | /* output 9 */ |
| MiniTLS | 0:35aa5be3b78d | 63 | CARRY_FORWARD; |
| MiniTLS | 0:35aa5be3b78d | 64 | SQRADD2(a[4], a[5]); |
| MiniTLS | 0:35aa5be3b78d | 65 | COMBA_STORE(b[9]); |
| MiniTLS | 0:35aa5be3b78d | 66 | |
| MiniTLS | 0:35aa5be3b78d | 67 | /* output 10 */ |
| MiniTLS | 0:35aa5be3b78d | 68 | CARRY_FORWARD; |
| MiniTLS | 0:35aa5be3b78d | 69 | SQRADD(a[5], a[5]); |
| MiniTLS | 0:35aa5be3b78d | 70 | COMBA_STORE(b[10]); |
| MiniTLS | 0:35aa5be3b78d | 71 | COMBA_STORE2(b[11]); |
| MiniTLS | 0:35aa5be3b78d | 72 | COMBA_FINI; |
| MiniTLS | 0:35aa5be3b78d | 73 | |
| MiniTLS | 0:35aa5be3b78d | 74 | B->used = 12; |
| MiniTLS | 0:35aa5be3b78d | 75 | B->sign = FP_ZPOS; |
| MiniTLS | 0:35aa5be3b78d | 76 | memcpy(B->dp, b, 12 * sizeof(fp_digit)); |
| MiniTLS | 0:35aa5be3b78d | 77 | fp_clamp(B); |
| MiniTLS | 0:35aa5be3b78d | 78 | } |
| MiniTLS | 0:35aa5be3b78d | 79 | #endif |
| MiniTLS | 0:35aa5be3b78d | 80 | |
| MiniTLS | 0:35aa5be3b78d | 81 | |
| MiniTLS | 0:35aa5be3b78d | 82 | /* $Source: /cvs/libtom/tomsfastmath/src/sqr/fp_sqr_comba_6.c,v $ */ |
| MiniTLS | 0:35aa5be3b78d | 83 | /* $Revision: 1.2 $ */ |
| MiniTLS | 0:35aa5be3b78d | 84 | /* $Date: 2007/02/17 03:39:01 $ */ |
