change some parameters in the library to meet the needs of the website httpbin.org
Fork of MiniTLS-GPL by
math/sqr/fp_sqr_comba_20.c@0:35aa5be3b78d, 2014-06-06 (annotated)
- Committer:
- MiniTLS
- Date:
- Fri Jun 06 10:49:02 2014 +0000
- Revision:
- 0:35aa5be3b78d
Initial commit
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_SQR20 |
MiniTLS | 0:35aa5be3b78d | 5 | void fp_sqr_comba20(fp_int *A, fp_int *B) |
MiniTLS | 0:35aa5be3b78d | 6 | { |
MiniTLS | 0:35aa5be3b78d | 7 | fp_digit *a, b[40], 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 | SQRADDSC(a[0], a[6]); SQRADDAC(a[1], a[5]); SQRADDAC(a[2], a[4]); SQRADDDB; 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 | SQRADDSC(a[0], a[7]); SQRADDAC(a[1], a[6]); SQRADDAC(a[2], a[5]); SQRADDAC(a[3], a[4]); SQRADDDB; |
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 | SQRADDSC(a[0], a[8]); SQRADDAC(a[1], a[7]); SQRADDAC(a[2], a[6]); SQRADDAC(a[3], a[5]); SQRADDDB; 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 | SQRADDSC(a[0], a[9]); SQRADDAC(a[1], a[8]); SQRADDAC(a[2], a[7]); SQRADDAC(a[3], a[6]); SQRADDAC(a[4], a[5]); SQRADDDB; |
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 | SQRADDSC(a[0], a[10]); SQRADDAC(a[1], a[9]); SQRADDAC(a[2], a[8]); SQRADDAC(a[3], a[7]); SQRADDAC(a[4], a[6]); SQRADDDB; SQRADD(a[5], a[5]); |
MiniTLS | 0:35aa5be3b78d | 70 | COMBA_STORE(b[10]); |
MiniTLS | 0:35aa5be3b78d | 71 | |
MiniTLS | 0:35aa5be3b78d | 72 | /* output 11 */ |
MiniTLS | 0:35aa5be3b78d | 73 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 74 | SQRADDSC(a[0], a[11]); SQRADDAC(a[1], a[10]); SQRADDAC(a[2], a[9]); SQRADDAC(a[3], a[8]); SQRADDAC(a[4], a[7]); SQRADDAC(a[5], a[6]); SQRADDDB; |
MiniTLS | 0:35aa5be3b78d | 75 | COMBA_STORE(b[11]); |
MiniTLS | 0:35aa5be3b78d | 76 | |
MiniTLS | 0:35aa5be3b78d | 77 | /* output 12 */ |
MiniTLS | 0:35aa5be3b78d | 78 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 79 | SQRADDSC(a[0], a[12]); SQRADDAC(a[1], a[11]); SQRADDAC(a[2], a[10]); SQRADDAC(a[3], a[9]); SQRADDAC(a[4], a[8]); SQRADDAC(a[5], a[7]); SQRADDDB; SQRADD(a[6], a[6]); |
MiniTLS | 0:35aa5be3b78d | 80 | COMBA_STORE(b[12]); |
MiniTLS | 0:35aa5be3b78d | 81 | |
MiniTLS | 0:35aa5be3b78d | 82 | /* output 13 */ |
MiniTLS | 0:35aa5be3b78d | 83 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 84 | SQRADDSC(a[0], a[13]); SQRADDAC(a[1], a[12]); SQRADDAC(a[2], a[11]); SQRADDAC(a[3], a[10]); SQRADDAC(a[4], a[9]); SQRADDAC(a[5], a[8]); SQRADDAC(a[6], a[7]); SQRADDDB; |
MiniTLS | 0:35aa5be3b78d | 85 | COMBA_STORE(b[13]); |
MiniTLS | 0:35aa5be3b78d | 86 | |
MiniTLS | 0:35aa5be3b78d | 87 | /* output 14 */ |
MiniTLS | 0:35aa5be3b78d | 88 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 89 | SQRADDSC(a[0], a[14]); SQRADDAC(a[1], a[13]); SQRADDAC(a[2], a[12]); SQRADDAC(a[3], a[11]); SQRADDAC(a[4], a[10]); SQRADDAC(a[5], a[9]); SQRADDAC(a[6], a[8]); SQRADDDB; SQRADD(a[7], a[7]); |
MiniTLS | 0:35aa5be3b78d | 90 | COMBA_STORE(b[14]); |
MiniTLS | 0:35aa5be3b78d | 91 | |
MiniTLS | 0:35aa5be3b78d | 92 | /* output 15 */ |
MiniTLS | 0:35aa5be3b78d | 93 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 94 | SQRADDSC(a[0], a[15]); SQRADDAC(a[1], a[14]); SQRADDAC(a[2], a[13]); SQRADDAC(a[3], a[12]); SQRADDAC(a[4], a[11]); SQRADDAC(a[5], a[10]); SQRADDAC(a[6], a[9]); SQRADDAC(a[7], a[8]); SQRADDDB; |
MiniTLS | 0:35aa5be3b78d | 95 | COMBA_STORE(b[15]); |
MiniTLS | 0:35aa5be3b78d | 96 | |
MiniTLS | 0:35aa5be3b78d | 97 | /* output 16 */ |
MiniTLS | 0:35aa5be3b78d | 98 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 99 | SQRADDSC(a[0], a[16]); SQRADDAC(a[1], a[15]); SQRADDAC(a[2], a[14]); SQRADDAC(a[3], a[13]); SQRADDAC(a[4], a[12]); SQRADDAC(a[5], a[11]); SQRADDAC(a[6], a[10]); SQRADDAC(a[7], a[9]); SQRADDDB; SQRADD(a[8], a[8]); |
MiniTLS | 0:35aa5be3b78d | 100 | COMBA_STORE(b[16]); |
MiniTLS | 0:35aa5be3b78d | 101 | |
MiniTLS | 0:35aa5be3b78d | 102 | /* output 17 */ |
MiniTLS | 0:35aa5be3b78d | 103 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 104 | SQRADDSC(a[0], a[17]); SQRADDAC(a[1], a[16]); SQRADDAC(a[2], a[15]); SQRADDAC(a[3], a[14]); SQRADDAC(a[4], a[13]); SQRADDAC(a[5], a[12]); SQRADDAC(a[6], a[11]); SQRADDAC(a[7], a[10]); SQRADDAC(a[8], a[9]); SQRADDDB; |
MiniTLS | 0:35aa5be3b78d | 105 | COMBA_STORE(b[17]); |
MiniTLS | 0:35aa5be3b78d | 106 | |
MiniTLS | 0:35aa5be3b78d | 107 | /* output 18 */ |
MiniTLS | 0:35aa5be3b78d | 108 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 109 | SQRADDSC(a[0], a[18]); SQRADDAC(a[1], a[17]); SQRADDAC(a[2], a[16]); SQRADDAC(a[3], a[15]); SQRADDAC(a[4], a[14]); SQRADDAC(a[5], a[13]); SQRADDAC(a[6], a[12]); SQRADDAC(a[7], a[11]); SQRADDAC(a[8], a[10]); SQRADDDB; SQRADD(a[9], a[9]); |
MiniTLS | 0:35aa5be3b78d | 110 | COMBA_STORE(b[18]); |
MiniTLS | 0:35aa5be3b78d | 111 | |
MiniTLS | 0:35aa5be3b78d | 112 | /* output 19 */ |
MiniTLS | 0:35aa5be3b78d | 113 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 114 | SQRADDSC(a[0], a[19]); SQRADDAC(a[1], a[18]); SQRADDAC(a[2], a[17]); SQRADDAC(a[3], a[16]); SQRADDAC(a[4], a[15]); SQRADDAC(a[5], a[14]); SQRADDAC(a[6], a[13]); SQRADDAC(a[7], a[12]); SQRADDAC(a[8], a[11]); SQRADDAC(a[9], a[10]); SQRADDDB; |
MiniTLS | 0:35aa5be3b78d | 115 | COMBA_STORE(b[19]); |
MiniTLS | 0:35aa5be3b78d | 116 | |
MiniTLS | 0:35aa5be3b78d | 117 | /* output 20 */ |
MiniTLS | 0:35aa5be3b78d | 118 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 119 | SQRADDSC(a[1], a[19]); SQRADDAC(a[2], a[18]); SQRADDAC(a[3], a[17]); SQRADDAC(a[4], a[16]); SQRADDAC(a[5], a[15]); SQRADDAC(a[6], a[14]); SQRADDAC(a[7], a[13]); SQRADDAC(a[8], a[12]); SQRADDAC(a[9], a[11]); SQRADDDB; SQRADD(a[10], a[10]); |
MiniTLS | 0:35aa5be3b78d | 120 | COMBA_STORE(b[20]); |
MiniTLS | 0:35aa5be3b78d | 121 | |
MiniTLS | 0:35aa5be3b78d | 122 | /* output 21 */ |
MiniTLS | 0:35aa5be3b78d | 123 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 124 | SQRADDSC(a[2], a[19]); SQRADDAC(a[3], a[18]); SQRADDAC(a[4], a[17]); SQRADDAC(a[5], a[16]); SQRADDAC(a[6], a[15]); SQRADDAC(a[7], a[14]); SQRADDAC(a[8], a[13]); SQRADDAC(a[9], a[12]); SQRADDAC(a[10], a[11]); SQRADDDB; |
MiniTLS | 0:35aa5be3b78d | 125 | COMBA_STORE(b[21]); |
MiniTLS | 0:35aa5be3b78d | 126 | |
MiniTLS | 0:35aa5be3b78d | 127 | /* output 22 */ |
MiniTLS | 0:35aa5be3b78d | 128 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 129 | SQRADDSC(a[3], a[19]); SQRADDAC(a[4], a[18]); SQRADDAC(a[5], a[17]); SQRADDAC(a[6], a[16]); SQRADDAC(a[7], a[15]); SQRADDAC(a[8], a[14]); SQRADDAC(a[9], a[13]); SQRADDAC(a[10], a[12]); SQRADDDB; SQRADD(a[11], a[11]); |
MiniTLS | 0:35aa5be3b78d | 130 | COMBA_STORE(b[22]); |
MiniTLS | 0:35aa5be3b78d | 131 | |
MiniTLS | 0:35aa5be3b78d | 132 | /* output 23 */ |
MiniTLS | 0:35aa5be3b78d | 133 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 134 | SQRADDSC(a[4], a[19]); SQRADDAC(a[5], a[18]); SQRADDAC(a[6], a[17]); SQRADDAC(a[7], a[16]); SQRADDAC(a[8], a[15]); SQRADDAC(a[9], a[14]); SQRADDAC(a[10], a[13]); SQRADDAC(a[11], a[12]); SQRADDDB; |
MiniTLS | 0:35aa5be3b78d | 135 | COMBA_STORE(b[23]); |
MiniTLS | 0:35aa5be3b78d | 136 | |
MiniTLS | 0:35aa5be3b78d | 137 | /* output 24 */ |
MiniTLS | 0:35aa5be3b78d | 138 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 139 | SQRADDSC(a[5], a[19]); SQRADDAC(a[6], a[18]); SQRADDAC(a[7], a[17]); SQRADDAC(a[8], a[16]); SQRADDAC(a[9], a[15]); SQRADDAC(a[10], a[14]); SQRADDAC(a[11], a[13]); SQRADDDB; SQRADD(a[12], a[12]); |
MiniTLS | 0:35aa5be3b78d | 140 | COMBA_STORE(b[24]); |
MiniTLS | 0:35aa5be3b78d | 141 | |
MiniTLS | 0:35aa5be3b78d | 142 | /* output 25 */ |
MiniTLS | 0:35aa5be3b78d | 143 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 144 | SQRADDSC(a[6], a[19]); SQRADDAC(a[7], a[18]); SQRADDAC(a[8], a[17]); SQRADDAC(a[9], a[16]); SQRADDAC(a[10], a[15]); SQRADDAC(a[11], a[14]); SQRADDAC(a[12], a[13]); SQRADDDB; |
MiniTLS | 0:35aa5be3b78d | 145 | COMBA_STORE(b[25]); |
MiniTLS | 0:35aa5be3b78d | 146 | |
MiniTLS | 0:35aa5be3b78d | 147 | /* output 26 */ |
MiniTLS | 0:35aa5be3b78d | 148 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 149 | SQRADDSC(a[7], a[19]); SQRADDAC(a[8], a[18]); SQRADDAC(a[9], a[17]); SQRADDAC(a[10], a[16]); SQRADDAC(a[11], a[15]); SQRADDAC(a[12], a[14]); SQRADDDB; SQRADD(a[13], a[13]); |
MiniTLS | 0:35aa5be3b78d | 150 | COMBA_STORE(b[26]); |
MiniTLS | 0:35aa5be3b78d | 151 | |
MiniTLS | 0:35aa5be3b78d | 152 | /* output 27 */ |
MiniTLS | 0:35aa5be3b78d | 153 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 154 | SQRADDSC(a[8], a[19]); SQRADDAC(a[9], a[18]); SQRADDAC(a[10], a[17]); SQRADDAC(a[11], a[16]); SQRADDAC(a[12], a[15]); SQRADDAC(a[13], a[14]); SQRADDDB; |
MiniTLS | 0:35aa5be3b78d | 155 | COMBA_STORE(b[27]); |
MiniTLS | 0:35aa5be3b78d | 156 | |
MiniTLS | 0:35aa5be3b78d | 157 | /* output 28 */ |
MiniTLS | 0:35aa5be3b78d | 158 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 159 | SQRADDSC(a[9], a[19]); SQRADDAC(a[10], a[18]); SQRADDAC(a[11], a[17]); SQRADDAC(a[12], a[16]); SQRADDAC(a[13], a[15]); SQRADDDB; SQRADD(a[14], a[14]); |
MiniTLS | 0:35aa5be3b78d | 160 | COMBA_STORE(b[28]); |
MiniTLS | 0:35aa5be3b78d | 161 | |
MiniTLS | 0:35aa5be3b78d | 162 | /* output 29 */ |
MiniTLS | 0:35aa5be3b78d | 163 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 164 | SQRADDSC(a[10], a[19]); SQRADDAC(a[11], a[18]); SQRADDAC(a[12], a[17]); SQRADDAC(a[13], a[16]); SQRADDAC(a[14], a[15]); SQRADDDB; |
MiniTLS | 0:35aa5be3b78d | 165 | COMBA_STORE(b[29]); |
MiniTLS | 0:35aa5be3b78d | 166 | |
MiniTLS | 0:35aa5be3b78d | 167 | /* output 30 */ |
MiniTLS | 0:35aa5be3b78d | 168 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 169 | SQRADDSC(a[11], a[19]); SQRADDAC(a[12], a[18]); SQRADDAC(a[13], a[17]); SQRADDAC(a[14], a[16]); SQRADDDB; SQRADD(a[15], a[15]); |
MiniTLS | 0:35aa5be3b78d | 170 | COMBA_STORE(b[30]); |
MiniTLS | 0:35aa5be3b78d | 171 | |
MiniTLS | 0:35aa5be3b78d | 172 | /* output 31 */ |
MiniTLS | 0:35aa5be3b78d | 173 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 174 | SQRADDSC(a[12], a[19]); SQRADDAC(a[13], a[18]); SQRADDAC(a[14], a[17]); SQRADDAC(a[15], a[16]); SQRADDDB; |
MiniTLS | 0:35aa5be3b78d | 175 | COMBA_STORE(b[31]); |
MiniTLS | 0:35aa5be3b78d | 176 | |
MiniTLS | 0:35aa5be3b78d | 177 | /* output 32 */ |
MiniTLS | 0:35aa5be3b78d | 178 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 179 | SQRADDSC(a[13], a[19]); SQRADDAC(a[14], a[18]); SQRADDAC(a[15], a[17]); SQRADDDB; SQRADD(a[16], a[16]); |
MiniTLS | 0:35aa5be3b78d | 180 | COMBA_STORE(b[32]); |
MiniTLS | 0:35aa5be3b78d | 181 | |
MiniTLS | 0:35aa5be3b78d | 182 | /* output 33 */ |
MiniTLS | 0:35aa5be3b78d | 183 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 184 | SQRADDSC(a[14], a[19]); SQRADDAC(a[15], a[18]); SQRADDAC(a[16], a[17]); SQRADDDB; |
MiniTLS | 0:35aa5be3b78d | 185 | COMBA_STORE(b[33]); |
MiniTLS | 0:35aa5be3b78d | 186 | |
MiniTLS | 0:35aa5be3b78d | 187 | /* output 34 */ |
MiniTLS | 0:35aa5be3b78d | 188 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 189 | SQRADD2(a[15], a[19]); SQRADD2(a[16], a[18]); SQRADD(a[17], a[17]); |
MiniTLS | 0:35aa5be3b78d | 190 | COMBA_STORE(b[34]); |
MiniTLS | 0:35aa5be3b78d | 191 | |
MiniTLS | 0:35aa5be3b78d | 192 | /* output 35 */ |
MiniTLS | 0:35aa5be3b78d | 193 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 194 | SQRADD2(a[16], a[19]); SQRADD2(a[17], a[18]); |
MiniTLS | 0:35aa5be3b78d | 195 | COMBA_STORE(b[35]); |
MiniTLS | 0:35aa5be3b78d | 196 | |
MiniTLS | 0:35aa5be3b78d | 197 | /* output 36 */ |
MiniTLS | 0:35aa5be3b78d | 198 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 199 | SQRADD2(a[17], a[19]); SQRADD(a[18], a[18]); |
MiniTLS | 0:35aa5be3b78d | 200 | COMBA_STORE(b[36]); |
MiniTLS | 0:35aa5be3b78d | 201 | |
MiniTLS | 0:35aa5be3b78d | 202 | /* output 37 */ |
MiniTLS | 0:35aa5be3b78d | 203 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 204 | SQRADD2(a[18], a[19]); |
MiniTLS | 0:35aa5be3b78d | 205 | COMBA_STORE(b[37]); |
MiniTLS | 0:35aa5be3b78d | 206 | |
MiniTLS | 0:35aa5be3b78d | 207 | /* output 38 */ |
MiniTLS | 0:35aa5be3b78d | 208 | CARRY_FORWARD; |
MiniTLS | 0:35aa5be3b78d | 209 | SQRADD(a[19], a[19]); |
MiniTLS | 0:35aa5be3b78d | 210 | COMBA_STORE(b[38]); |
MiniTLS | 0:35aa5be3b78d | 211 | COMBA_STORE2(b[39]); |
MiniTLS | 0:35aa5be3b78d | 212 | COMBA_FINI; |
MiniTLS | 0:35aa5be3b78d | 213 | |
MiniTLS | 0:35aa5be3b78d | 214 | B->used = 40; |
MiniTLS | 0:35aa5be3b78d | 215 | B->sign = FP_ZPOS; |
MiniTLS | 0:35aa5be3b78d | 216 | memcpy(B->dp, b, 40 * sizeof(fp_digit)); |
MiniTLS | 0:35aa5be3b78d | 217 | fp_clamp(B); |
MiniTLS | 0:35aa5be3b78d | 218 | } |
MiniTLS | 0:35aa5be3b78d | 219 | #endif |
MiniTLS | 0:35aa5be3b78d | 220 | |
MiniTLS | 0:35aa5be3b78d | 221 | |
MiniTLS | 0:35aa5be3b78d | 222 | /* $Source: /cvs/libtom/tomsfastmath/src/sqr/fp_sqr_comba_20.c,v $ */ |
MiniTLS | 0:35aa5be3b78d | 223 | /* $Revision: 1.2 $ */ |
MiniTLS | 0:35aa5be3b78d | 224 | /* $Date: 2007/02/17 03:39:01 $ */ |