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/mul/fp_mul_comba_12.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?

UserRevisionLine numberNew 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_MUL12
MiniTLS 0:35aa5be3b78d 5 void fp_mul_comba12(fp_int *A, fp_int *B, fp_int *C)
MiniTLS 0:35aa5be3b78d 6 {
MiniTLS 0:35aa5be3b78d 7 fp_digit c0, c1, c2, at[24];
MiniTLS 0:35aa5be3b78d 8
MiniTLS 0:35aa5be3b78d 9 memcpy(at, A->dp, 12 * sizeof(fp_digit));
MiniTLS 0:35aa5be3b78d 10 memcpy(at+12, B->dp, 12 * 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[12]);
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[13]); MULADD(at[1], at[12]);
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[14]); MULADD(at[1], at[13]); MULADD(at[2], at[12]);
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[15]); MULADD(at[1], at[14]); MULADD(at[2], at[13]); MULADD(at[3], at[12]);
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[16]); MULADD(at[1], at[15]); MULADD(at[2], at[14]); MULADD(at[3], at[13]); MULADD(at[4], at[12]);
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[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]);
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[18]); 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]);
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[19]); MULADD(at[1], at[18]); 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]);
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[20]); MULADD(at[1], at[19]); MULADD(at[2], at[18]); 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 48 COMBA_STORE(C->dp[8]);
MiniTLS 0:35aa5be3b78d 49 /* 9 */
MiniTLS 0:35aa5be3b78d 50 COMBA_FORWARD;
MiniTLS 0:35aa5be3b78d 51 MULADD(at[0], at[21]); MULADD(at[1], at[20]); MULADD(at[2], at[19]); MULADD(at[3], at[18]); 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]); MULADD(at[9], at[12]);
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[0], at[22]); MULADD(at[1], at[21]); MULADD(at[2], at[20]); MULADD(at[3], at[19]); MULADD(at[4], at[18]); MULADD(at[5], at[17]); MULADD(at[6], at[16]); MULADD(at[7], at[15]); MULADD(at[8], at[14]); MULADD(at[9], at[13]); MULADD(at[10], at[12]);
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[0], at[23]); MULADD(at[1], at[22]); MULADD(at[2], at[21]); MULADD(at[3], at[20]); MULADD(at[4], at[19]); MULADD(at[5], at[18]); MULADD(at[6], at[17]); MULADD(at[7], at[16]); MULADD(at[8], at[15]); MULADD(at[9], at[14]); MULADD(at[10], at[13]); MULADD(at[11], 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[1], at[23]); MULADD(at[2], at[22]); MULADD(at[3], at[21]); MULADD(at[4], at[20]); MULADD(at[5], at[19]); MULADD(at[6], at[18]); MULADD(at[7], at[17]); MULADD(at[8], at[16]); MULADD(at[9], at[15]); MULADD(at[10], at[14]); MULADD(at[11], 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[2], at[23]); MULADD(at[3], at[22]); MULADD(at[4], at[21]); MULADD(at[5], at[20]); MULADD(at[6], at[19]); MULADD(at[7], at[18]); MULADD(at[8], at[17]); MULADD(at[9], at[16]); MULADD(at[10], at[15]); MULADD(at[11], 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[3], at[23]); MULADD(at[4], at[22]); MULADD(at[5], at[21]); MULADD(at[6], at[20]); MULADD(at[7], at[19]); MULADD(at[8], at[18]); MULADD(at[9], at[17]); MULADD(at[10], at[16]); MULADD(at[11], 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[4], at[23]); MULADD(at[5], at[22]); MULADD(at[6], at[21]); MULADD(at[7], at[20]); MULADD(at[8], at[19]); MULADD(at[9], at[18]); MULADD(at[10], at[17]); MULADD(at[11], 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[5], at[23]); MULADD(at[6], at[22]); MULADD(at[7], at[21]); MULADD(at[8], at[20]); MULADD(at[9], at[19]); MULADD(at[10], at[18]); MULADD(at[11], at[17]);
MiniTLS 0:35aa5be3b78d 80 COMBA_STORE(C->dp[16]);
MiniTLS 0:35aa5be3b78d 81 /* 17 */
MiniTLS 0:35aa5be3b78d 82 COMBA_FORWARD;
MiniTLS 0:35aa5be3b78d 83 MULADD(at[6], at[23]); MULADD(at[7], at[22]); MULADD(at[8], at[21]); MULADD(at[9], at[20]); MULADD(at[10], at[19]); MULADD(at[11], at[18]);
MiniTLS 0:35aa5be3b78d 84 COMBA_STORE(C->dp[17]);
MiniTLS 0:35aa5be3b78d 85 /* 18 */
MiniTLS 0:35aa5be3b78d 86 COMBA_FORWARD;
MiniTLS 0:35aa5be3b78d 87 MULADD(at[7], at[23]); MULADD(at[8], at[22]); MULADD(at[9], at[21]); MULADD(at[10], at[20]); MULADD(at[11], at[19]);
MiniTLS 0:35aa5be3b78d 88 COMBA_STORE(C->dp[18]);
MiniTLS 0:35aa5be3b78d 89 /* 19 */
MiniTLS 0:35aa5be3b78d 90 COMBA_FORWARD;
MiniTLS 0:35aa5be3b78d 91 MULADD(at[8], at[23]); MULADD(at[9], at[22]); MULADD(at[10], at[21]); MULADD(at[11], at[20]);
MiniTLS 0:35aa5be3b78d 92 COMBA_STORE(C->dp[19]);
MiniTLS 0:35aa5be3b78d 93 /* 20 */
MiniTLS 0:35aa5be3b78d 94 COMBA_FORWARD;
MiniTLS 0:35aa5be3b78d 95 MULADD(at[9], at[23]); MULADD(at[10], at[22]); MULADD(at[11], at[21]);
MiniTLS 0:35aa5be3b78d 96 COMBA_STORE(C->dp[20]);
MiniTLS 0:35aa5be3b78d 97 /* 21 */
MiniTLS 0:35aa5be3b78d 98 COMBA_FORWARD;
MiniTLS 0:35aa5be3b78d 99 MULADD(at[10], at[23]); MULADD(at[11], at[22]);
MiniTLS 0:35aa5be3b78d 100 COMBA_STORE(C->dp[21]);
MiniTLS 0:35aa5be3b78d 101 /* 22 */
MiniTLS 0:35aa5be3b78d 102 COMBA_FORWARD;
MiniTLS 0:35aa5be3b78d 103 MULADD(at[11], at[23]);
MiniTLS 0:35aa5be3b78d 104 COMBA_STORE(C->dp[22]);
MiniTLS 0:35aa5be3b78d 105 COMBA_STORE2(C->dp[23]);
MiniTLS 0:35aa5be3b78d 106 C->used = 24;
MiniTLS 0:35aa5be3b78d 107 C->sign = A->sign ^ B->sign;
MiniTLS 0:35aa5be3b78d 108 fp_clamp(C);
MiniTLS 0:35aa5be3b78d 109 COMBA_FINI;
MiniTLS 0:35aa5be3b78d 110 }
MiniTLS 0:35aa5be3b78d 111 #endif