Mercurial > dropbear

comparison tomsfastmath/src/sqr/fp_sqr_comba_17.c @ 643:a362b62d38b2 dropbear-tfm

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add tomsfastmath from git rev bfa4582842bc3bab42e4be4aed5703437049502a with Makefile.in renamed
author Matt Johnston <matt@ucc.asn.au>
date Wed, 23 Nov 2011 18:10:20 +0700
parents
children
comparison
equal deleted inserted replaced
642:33fd2f3499d2 643:a362b62d38b2
1 #define TFM_DEFINES
2 #include "fp_sqr_comba.c"
3
4 #ifdef TFM_SQR17
5 void fp_sqr_comba17(fp_int *A, fp_int *B)
6 {
7 fp_digit *a, b[34], c0, c1, c2, sc0, sc1, sc2;
8 #ifdef TFM_ISO
9 fp_word tt;
10 #endif
11
12 a = A->dp;
13 COMBA_START;
14
15 /* clear carries */
16 CLEAR_CARRY;
17
18 /* output 0 */
19 SQRADD(a[0],a[0]);
20 COMBA_STORE(b[0]);
21
22 /* output 1 */
23 CARRY_FORWARD;
24 SQRADD2(a[0], a[1]);
25 COMBA_STORE(b[1]);
26
27 /* output 2 */
28 CARRY_FORWARD;
29 SQRADD2(a[0], a[2]); SQRADD(a[1], a[1]);
30 COMBA_STORE(b[2]);
31
32 /* output 3 */
33 CARRY_FORWARD;
34 SQRADD2(a[0], a[3]); SQRADD2(a[1], a[2]);
35 COMBA_STORE(b[3]);
36
37 /* output 4 */
38 CARRY_FORWARD;
39 SQRADD2(a[0], a[4]); SQRADD2(a[1], a[3]); SQRADD(a[2], a[2]);
40 COMBA_STORE(b[4]);
41
42 /* output 5 */
43 CARRY_FORWARD;
44 SQRADDSC(a[0], a[5]); SQRADDAC(a[1], a[4]); SQRADDAC(a[2], a[3]); SQRADDDB;
45 COMBA_STORE(b[5]);
46
47 /* output 6 */
48 CARRY_FORWARD;
49 SQRADDSC(a[0], a[6]); SQRADDAC(a[1], a[5]); SQRADDAC(a[2], a[4]); SQRADDDB; SQRADD(a[3], a[3]);
50 COMBA_STORE(b[6]);
51
52 /* output 7 */
53 CARRY_FORWARD;
54 SQRADDSC(a[0], a[7]); SQRADDAC(a[1], a[6]); SQRADDAC(a[2], a[5]); SQRADDAC(a[3], a[4]); SQRADDDB;
55 COMBA_STORE(b[7]);
56
57 /* output 8 */
58 CARRY_FORWARD;
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]);
60 COMBA_STORE(b[8]);
61
62 /* output 9 */
63 CARRY_FORWARD;
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;
65 COMBA_STORE(b[9]);
66
67 /* output 10 */
68 CARRY_FORWARD;
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]);
70 COMBA_STORE(b[10]);
71
72 /* output 11 */
73 CARRY_FORWARD;
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;
75 COMBA_STORE(b[11]);
76
77 /* output 12 */
78 CARRY_FORWARD;
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]);
80 COMBA_STORE(b[12]);
81
82 /* output 13 */
83 CARRY_FORWARD;
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;
85 COMBA_STORE(b[13]);
86
87 /* output 14 */
88 CARRY_FORWARD;
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]);
90 COMBA_STORE(b[14]);
91
92 /* output 15 */
93 CARRY_FORWARD;
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;
95 COMBA_STORE(b[15]);
96
97 /* output 16 */
98 CARRY_FORWARD;
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]);
100 COMBA_STORE(b[16]);
101
102 /* output 17 */
103 CARRY_FORWARD;
104 SQRADDSC(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;
105 COMBA_STORE(b[17]);
106
107 /* output 18 */
108 CARRY_FORWARD;
109 SQRADDSC(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]);
110 COMBA_STORE(b[18]);
111
112 /* output 19 */
113 CARRY_FORWARD;
114 SQRADDSC(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;
115 COMBA_STORE(b[19]);
116
117 /* output 20 */
118 CARRY_FORWARD;
119 SQRADDSC(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]);
120 COMBA_STORE(b[20]);
121
122 /* output 21 */
123 CARRY_FORWARD;
124 SQRADDSC(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;
125 COMBA_STORE(b[21]);
126
127 /* output 22 */
128 CARRY_FORWARD;
129 SQRADDSC(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]);
130 COMBA_STORE(b[22]);
131
132 /* output 23 */
133 CARRY_FORWARD;
134 SQRADDSC(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;
135 COMBA_STORE(b[23]);
136
137 /* output 24 */
138 CARRY_FORWARD;
139 SQRADDSC(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]);
140 COMBA_STORE(b[24]);
141
142 /* output 25 */
143 CARRY_FORWARD;
144 SQRADDSC(a[9], a[16]); SQRADDAC(a[10], a[15]); SQRADDAC(a[11], a[14]); SQRADDAC(a[12], a[13]); SQRADDDB;
145 COMBA_STORE(b[25]);
146
147 /* output 26 */
148 CARRY_FORWARD;
149 SQRADDSC(a[10], a[16]); SQRADDAC(a[11], a[15]); SQRADDAC(a[12], a[14]); SQRADDDB; SQRADD(a[13], a[13]);
150 COMBA_STORE(b[26]);
151
152 /* output 27 */
153 CARRY_FORWARD;
154 SQRADDSC(a[11], a[16]); SQRADDAC(a[12], a[15]); SQRADDAC(a[13], a[14]); SQRADDDB;
155 COMBA_STORE(b[27]);
156
157 /* output 28 */
158 CARRY_FORWARD;
159 SQRADD2(a[12], a[16]); SQRADD2(a[13], a[15]); SQRADD(a[14], a[14]);
160 COMBA_STORE(b[28]);
161
162 /* output 29 */
163 CARRY_FORWARD;
164 SQRADD2(a[13], a[16]); SQRADD2(a[14], a[15]);
165 COMBA_STORE(b[29]);
166
167 /* output 30 */
168 CARRY_FORWARD;
169 SQRADD2(a[14], a[16]); SQRADD(a[15], a[15]);
170 COMBA_STORE(b[30]);
171
172 /* output 31 */
173 CARRY_FORWARD;
174 SQRADD2(a[15], a[16]);
175 COMBA_STORE(b[31]);
176
177 /* output 32 */
178 CARRY_FORWARD;
179 SQRADD(a[16], a[16]);
180 COMBA_STORE(b[32]);
181 COMBA_STORE2(b[33]);
182 COMBA_FINI;
183
184 B->used = 34;
185 B->sign = FP_ZPOS;
186 memcpy(B->dp, b, 34 * sizeof(fp_digit));
187 memset(B->dp + 34, 0, (FP_SIZE - 34) * sizeof(fp_digit));
188 fp_clamp(B);
189 }
190 #endif
191
192