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/mul/fp_mul_comba_9.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_mul_comba.c" |
MiniTLS | 0:35aa5be3b78d | 3 | |
MiniTLS | 0:35aa5be3b78d | 4 | #ifdef TFM_MUL9 |
MiniTLS | 0:35aa5be3b78d | 5 | void fp_mul_comba9(fp_int *A, fp_int *B, fp_int *C) |
MiniTLS | 0:35aa5be3b78d | 6 | { |
MiniTLS | 0:35aa5be3b78d | 7 | fp_digit c0, c1, c2, at[18]; |
MiniTLS | 0:35aa5be3b78d | 8 | |
MiniTLS | 0:35aa5be3b78d | 9 | memcpy(at, A->dp, 9 * sizeof(fp_digit)); |
MiniTLS | 0:35aa5be3b78d | 10 | memcpy(at+9, B->dp, 9 * sizeof(fp_digit)); |
MiniTLS | 0:35aa5be3b78d | 11 | COMBA_START; |
MiniTLS | 0:35aa5be3b78d | 12 | |
MiniTLS | 0:35aa5be3b78d | 13 | COMBA_CLEAR; |
MiniTLS | 0:35aa5be3b78d | 14 | /* 0 */ |
MiniTLS | 0:35aa5be3b78d | 15 | MULADD(at[0], at[9]); |
MiniTLS | 0:35aa5be3b78d | 16 | COMBA_STORE(C->dp[0]); |
MiniTLS | 0:35aa5be3b78d | 17 | /* 1 */ |
MiniTLS | 0:35aa5be3b78d | 18 | COMBA_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 19 | MULADD(at[0], at[10]); MULADD(at[1], at[9]); |
MiniTLS | 0:35aa5be3b78d | 20 | COMBA_STORE(C->dp[1]); |
MiniTLS | 0:35aa5be3b78d | 21 | /* 2 */ |
MiniTLS | 0:35aa5be3b78d | 22 | COMBA_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 23 | MULADD(at[0], at[11]); MULADD(at[1], at[10]); MULADD(at[2], at[9]); |
MiniTLS | 0:35aa5be3b78d | 24 | COMBA_STORE(C->dp[2]); |
MiniTLS | 0:35aa5be3b78d | 25 | /* 3 */ |
MiniTLS | 0:35aa5be3b78d | 26 | COMBA_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 27 | MULADD(at[0], at[12]); MULADD(at[1], at[11]); MULADD(at[2], at[10]); MULADD(at[3], at[9]); |
MiniTLS | 0:35aa5be3b78d | 28 | COMBA_STORE(C->dp[3]); |
MiniTLS | 0:35aa5be3b78d | 29 | /* 4 */ |
MiniTLS | 0:35aa5be3b78d | 30 | COMBA_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 31 | MULADD(at[0], at[13]); MULADD(at[1], at[12]); MULADD(at[2], at[11]); MULADD(at[3], at[10]); MULADD(at[4], at[9]); |
MiniTLS | 0:35aa5be3b78d | 32 | COMBA_STORE(C->dp[4]); |
MiniTLS | 0:35aa5be3b78d | 33 | /* 5 */ |
MiniTLS | 0:35aa5be3b78d | 34 | COMBA_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 35 | MULADD(at[0], at[14]); MULADD(at[1], at[13]); MULADD(at[2], at[12]); MULADD(at[3], at[11]); MULADD(at[4], at[10]); MULADD(at[5], at[9]); |
MiniTLS | 0:35aa5be3b78d | 36 | COMBA_STORE(C->dp[5]); |
MiniTLS | 0:35aa5be3b78d | 37 | /* 6 */ |
MiniTLS | 0:35aa5be3b78d | 38 | COMBA_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 39 | MULADD(at[0], at[15]); MULADD(at[1], at[14]); MULADD(at[2], at[13]); MULADD(at[3], at[12]); MULADD(at[4], at[11]); MULADD(at[5], at[10]); MULADD(at[6], at[9]); |
MiniTLS | 0:35aa5be3b78d | 40 | COMBA_STORE(C->dp[6]); |
MiniTLS | 0:35aa5be3b78d | 41 | /* 7 */ |
MiniTLS | 0:35aa5be3b78d | 42 | COMBA_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 43 | MULADD(at[0], at[16]); MULADD(at[1], at[15]); MULADD(at[2], at[14]); MULADD(at[3], at[13]); MULADD(at[4], at[12]); MULADD(at[5], at[11]); MULADD(at[6], at[10]); MULADD(at[7], at[9]); |
MiniTLS | 0:35aa5be3b78d | 44 | COMBA_STORE(C->dp[7]); |
MiniTLS | 0:35aa5be3b78d | 45 | /* 8 */ |
MiniTLS | 0:35aa5be3b78d | 46 | COMBA_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 47 | MULADD(at[0], at[17]); MULADD(at[1], at[16]); MULADD(at[2], at[15]); MULADD(at[3], at[14]); MULADD(at[4], at[13]); MULADD(at[5], at[12]); MULADD(at[6], at[11]); MULADD(at[7], at[10]); MULADD(at[8], at[9]); |
MiniTLS | 0:35aa5be3b78d | 48 | COMBA_STORE(C->dp[8]); |
MiniTLS | 0:35aa5be3b78d | 49 | /* 9 */ |
MiniTLS | 0:35aa5be3b78d | 50 | COMBA_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 51 | MULADD(at[1], at[17]); MULADD(at[2], at[16]); MULADD(at[3], at[15]); MULADD(at[4], at[14]); MULADD(at[5], at[13]); MULADD(at[6], at[12]); MULADD(at[7], at[11]); MULADD(at[8], at[10]); |
MiniTLS | 0:35aa5be3b78d | 52 | COMBA_STORE(C->dp[9]); |
MiniTLS | 0:35aa5be3b78d | 53 | /* 10 */ |
MiniTLS | 0:35aa5be3b78d | 54 | COMBA_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 55 | MULADD(at[2], at[17]); MULADD(at[3], at[16]); MULADD(at[4], at[15]); MULADD(at[5], at[14]); MULADD(at[6], at[13]); MULADD(at[7], at[12]); MULADD(at[8], at[11]); |
MiniTLS | 0:35aa5be3b78d | 56 | COMBA_STORE(C->dp[10]); |
MiniTLS | 0:35aa5be3b78d | 57 | /* 11 */ |
MiniTLS | 0:35aa5be3b78d | 58 | COMBA_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 59 | MULADD(at[3], at[17]); MULADD(at[4], at[16]); MULADD(at[5], at[15]); MULADD(at[6], at[14]); MULADD(at[7], at[13]); MULADD(at[8], at[12]); |
MiniTLS | 0:35aa5be3b78d | 60 | COMBA_STORE(C->dp[11]); |
MiniTLS | 0:35aa5be3b78d | 61 | /* 12 */ |
MiniTLS | 0:35aa5be3b78d | 62 | COMBA_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 63 | MULADD(at[4], at[17]); MULADD(at[5], at[16]); MULADD(at[6], at[15]); MULADD(at[7], at[14]); MULADD(at[8], at[13]); |
MiniTLS | 0:35aa5be3b78d | 64 | COMBA_STORE(C->dp[12]); |
MiniTLS | 0:35aa5be3b78d | 65 | /* 13 */ |
MiniTLS | 0:35aa5be3b78d | 66 | COMBA_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 67 | MULADD(at[5], at[17]); MULADD(at[6], at[16]); MULADD(at[7], at[15]); MULADD(at[8], at[14]); |
MiniTLS | 0:35aa5be3b78d | 68 | COMBA_STORE(C->dp[13]); |
MiniTLS | 0:35aa5be3b78d | 69 | /* 14 */ |
MiniTLS | 0:35aa5be3b78d | 70 | COMBA_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 71 | MULADD(at[6], at[17]); MULADD(at[7], at[16]); MULADD(at[8], at[15]); |
MiniTLS | 0:35aa5be3b78d | 72 | COMBA_STORE(C->dp[14]); |
MiniTLS | 0:35aa5be3b78d | 73 | /* 15 */ |
MiniTLS | 0:35aa5be3b78d | 74 | COMBA_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 75 | MULADD(at[7], at[17]); MULADD(at[8], at[16]); |
MiniTLS | 0:35aa5be3b78d | 76 | COMBA_STORE(C->dp[15]); |
MiniTLS | 0:35aa5be3b78d | 77 | /* 16 */ |
MiniTLS | 0:35aa5be3b78d | 78 | COMBA_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 79 | MULADD(at[8], at[17]); |
MiniTLS | 0:35aa5be3b78d | 80 | COMBA_STORE(C->dp[16]); |
MiniTLS | 0:35aa5be3b78d | 81 | COMBA_STORE2(C->dp[17]); |
MiniTLS | 0:35aa5be3b78d | 82 | C->used = 18; |
MiniTLS | 0:35aa5be3b78d | 83 | C->sign = A->sign ^ B->sign; |
MiniTLS | 0:35aa5be3b78d | 84 | fp_clamp(C); |
MiniTLS | 0:35aa5be3b78d | 85 | COMBA_FINI; |
MiniTLS | 0:35aa5be3b78d | 86 | } |
MiniTLS | 0:35aa5be3b78d | 87 | #endif |