/proc/self/cwd/libfaad/cfft.c
Line | Count | Source |
1 | | /* |
2 | | ** FAAD2 - Freeware Advanced Audio (AAC) Decoder including SBR decoding |
3 | | ** Copyright (C) 2003-2005 M. Bakker, Nero AG, http://www.nero.com |
4 | | ** |
5 | | ** This program is free software; you can redistribute it and/or modify |
6 | | ** it under the terms of the GNU General Public License as published by |
7 | | ** the Free Software Foundation; either version 2 of the License, or |
8 | | ** (at your option) any later version. |
9 | | ** |
10 | | ** This program is distributed in the hope that it will be useful, |
11 | | ** but WITHOUT ANY WARRANTY; without even the implied warranty of |
12 | | ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
13 | | ** GNU General Public License for more details. |
14 | | ** |
15 | | ** You should have received a copy of the GNU General Public License |
16 | | ** along with this program; if not, write to the Free Software |
17 | | ** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. |
18 | | ** |
19 | | ** Any non-GPL usage of this software or parts of this software is strictly |
20 | | ** forbidden. |
21 | | ** |
22 | | ** The "appropriate copyright message" mentioned in section 2c of the GPLv2 |
23 | | ** must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com" |
24 | | ** |
25 | | ** Commercial non-GPL licensing of this software is possible. |
26 | | ** For more info contact Nero AG through Mpeg4AAClicense@nero.com. |
27 | | ** |
28 | | ** $Id: cfft.c,v 1.35 2007/11/01 12:33:29 menno Exp $ |
29 | | **/ |
30 | | |
31 | | /* |
32 | | * Algorithmically based on Fortran-77 FFTPACK |
33 | | * by Paul N. Swarztrauber(Version 4, 1985). |
34 | | * |
35 | | * Does even sized fft only |
36 | | */ |
37 | | |
38 | | /* isign is +1 for backward and -1 for forward transforms */ |
39 | | |
40 | | #include "common.h" |
41 | | #include "structs.h" |
42 | | |
43 | | #include <stdlib.h> |
44 | | |
45 | | #include "cfft.h" |
46 | | #include "cfft_tab.h" |
47 | | |
48 | | |
49 | | /* static function declarations */ |
50 | | static void passf2pos(const uint16_t ido, const uint16_t l1, const complex_t *cc, |
51 | | complex_t *ch, const complex_t *wa); |
52 | | static void passf2neg(const uint16_t ido, const uint16_t l1, const complex_t *cc, |
53 | | complex_t *ch, const complex_t *wa); |
54 | | static void passf3(const uint16_t ido, const uint16_t l1, const complex_t *cc, |
55 | | complex_t *ch, const complex_t *wa1, const complex_t *wa2, const int8_t isign); |
56 | | static void passf4pos(const uint16_t ido, const uint16_t l1, const complex_t *cc, complex_t *ch, |
57 | | const complex_t *wa1, const complex_t *wa2, const complex_t *wa3); |
58 | | static void passf4neg(const uint16_t ido, const uint16_t l1, const complex_t *cc, complex_t *ch, |
59 | | const complex_t *wa1, const complex_t *wa2, const complex_t *wa3); |
60 | | static void passf5(const uint16_t ido, const uint16_t l1, const complex_t *cc, complex_t *ch, |
61 | | const complex_t *wa1, const complex_t *wa2, const complex_t *wa3, |
62 | | const complex_t *wa4, const int8_t isign); |
63 | | static void cffti1(uint16_t n, complex_t *wa, uint16_t *ifac); |
64 | | |
65 | | |
66 | | /*---------------------------------------------------------------------- |
67 | | passf2, passf3, passf4, passf5. Complex FFT passes fwd and bwd. |
68 | | ----------------------------------------------------------------------*/ |
69 | | |
70 | | static void passf2pos(const uint16_t ido, const uint16_t l1, const complex_t *cc, |
71 | | complex_t *ch, const complex_t *wa) |
72 | 606k | { |
73 | 606k | uint16_t i, k, ah, ac; |
74 | | |
75 | 606k | if (ido == 1) |
76 | 0 | { |
77 | 0 | #ifdef FUZZING_BUILD_MODE_UNSAFE_FOR_PRODUCTION |
78 | | // TODO: remove this code once fuzzer proves it is totally unreahable |
79 | | // For supported frame lengths that have odd number of factor 2 it is |
80 | | // never the last factor; consequently `ido` should never be 1. |
81 | 0 | __builtin_trap(); |
82 | | /* |
83 | | #endif |
84 | | for (k = 0; k < l1; k++) |
85 | | { |
86 | | ah = 2*k; |
87 | | ac = 4*k; |
88 | | |
89 | | RE(ch[ah]) = RE(cc[ac]) + RE(cc[ac+1]); |
90 | | RE(ch[ah+l1]) = RE(cc[ac]) - RE(cc[ac+1]); |
91 | | IM(ch[ah]) = IM(cc[ac]) + IM(cc[ac+1]); |
92 | | IM(ch[ah+l1]) = IM(cc[ac]) - IM(cc[ac+1]); |
93 | | } |
94 | | #ifdef FUZZING_BUILD_MODE_UNSAFE_FOR_PRODUCTION |
95 | | */ |
96 | 0 | #endif |
97 | 606k | } else { |
98 | 1.21M | for (k = 0; k < l1; k++) |
99 | 606k | { |
100 | 606k | ah = k*ido; |
101 | 606k | ac = 2*k*ido; |
102 | | |
103 | 154M | for (i = 0; i < ido; i++) |
104 | 153M | { |
105 | 153M | complex_t t2; |
106 | | |
107 | 153M | RE(ch[ah+i]) = RE(cc[ac+i]) + RE(cc[ac+i+ido]); |
108 | 153M | RE(t2) = RE(cc[ac+i]) - RE(cc[ac+i+ido]); |
109 | | |
110 | 153M | IM(ch[ah+i]) = IM(cc[ac+i]) + IM(cc[ac+i+ido]); |
111 | 153M | IM(t2) = IM(cc[ac+i]) - IM(cc[ac+i+ido]); |
112 | | |
113 | 153M | #if 1 |
114 | 153M | ComplexMult(&IM(ch[ah+i+l1*ido]), &RE(ch[ah+i+l1*ido]), |
115 | 153M | IM(t2), RE(t2), RE(wa[i]), IM(wa[i])); |
116 | | #else |
117 | | ComplexMult(&RE(ch[ah+i+l1*ido]), &IM(ch[ah+i+l1*ido]), |
118 | | RE(t2), IM(t2), RE(wa[i]), IM(wa[i])); |
119 | | #endif |
120 | 153M | } |
121 | 606k | } |
122 | 606k | } |
123 | 606k | } |
124 | | |
125 | | static void passf2neg(const uint16_t ido, const uint16_t l1, const complex_t *cc, |
126 | | complex_t *ch, const complex_t *wa) |
127 | 13.5k | { |
128 | 13.5k | uint16_t i, k, ah, ac; |
129 | | |
130 | 13.5k | if (ido == 1) |
131 | 0 | { |
132 | 0 | #ifdef FUZZING_BUILD_MODE_UNSAFE_FOR_PRODUCTION |
133 | | // TODO: remove this code once fuzzer proves it is totally unreahable |
134 | | // For supported frame lengths that have odd number of factor 2 it is |
135 | | // never the last factor; consequently `ido` should never be 1. |
136 | 0 | __builtin_trap(); |
137 | | /* |
138 | | #endif |
139 | | for (k = 0; k < l1; k++) |
140 | | { |
141 | | ah = 2*k; |
142 | | ac = 4*k; |
143 | | |
144 | | RE(ch[ah]) = RE(cc[ac]) + RE(cc[ac+1]); |
145 | | RE(ch[ah+l1]) = RE(cc[ac]) - RE(cc[ac+1]); |
146 | | IM(ch[ah]) = IM(cc[ac]) + IM(cc[ac+1]); |
147 | | IM(ch[ah+l1]) = IM(cc[ac]) - IM(cc[ac+1]); |
148 | | } |
149 | | #ifdef FUZZING_BUILD_MODE_UNSAFE_FOR_PRODUCTION |
150 | | */ |
151 | 0 | #endif |
152 | 13.5k | } else { |
153 | 27.1k | for (k = 0; k < l1; k++) |
154 | 13.5k | { |
155 | 13.5k | ah = k*ido; |
156 | 13.5k | ac = 2*k*ido; |
157 | | |
158 | 3.36M | for (i = 0; i < ido; i++) |
159 | 3.35M | { |
160 | 3.35M | complex_t t2; |
161 | | |
162 | 3.35M | RE(ch[ah+i]) = RE(cc[ac+i]) + RE(cc[ac+i+ido]); |
163 | 3.35M | RE(t2) = RE(cc[ac+i]) - RE(cc[ac+i+ido]); |
164 | | |
165 | 3.35M | IM(ch[ah+i]) = IM(cc[ac+i]) + IM(cc[ac+i+ido]); |
166 | 3.35M | IM(t2) = IM(cc[ac+i]) - IM(cc[ac+i+ido]); |
167 | | |
168 | 3.35M | #if 1 |
169 | 3.35M | ComplexMult(&RE(ch[ah+i+l1*ido]), &IM(ch[ah+i+l1*ido]), |
170 | 3.35M | RE(t2), IM(t2), RE(wa[i]), IM(wa[i])); |
171 | | #else |
172 | | ComplexMult(&IM(ch[ah+i+l1*ido]), &RE(ch[ah+i+l1*ido]), |
173 | | IM(t2), RE(t2), RE(wa[i]), IM(wa[i])); |
174 | | #endif |
175 | 3.35M | } |
176 | 13.5k | } |
177 | 13.5k | } |
178 | 13.5k | } |
179 | | |
180 | | |
181 | | static void passf3(const uint16_t ido, const uint16_t l1, const complex_t *cc, |
182 | | complex_t *ch, const complex_t *wa1, const complex_t *wa2, |
183 | | const int8_t isign) |
184 | 218k | { |
185 | 218k | static real_t taur = FRAC_CONST(-0.5); |
186 | 218k | static real_t taui = FRAC_CONST(0.866025403784439); |
187 | 218k | uint16_t i, k, ac, ah; |
188 | 218k | complex_t c2, c3, d2, d3, t2; |
189 | | |
190 | 218k | if (ido == 1) |
191 | 0 | { |
192 | 0 | #ifdef FUZZING_BUILD_MODE_UNSAFE_FOR_PRODUCTION |
193 | | // TODO: remove this code once fuzzer proves it is totally unreahable |
194 | | // 3 is never the the biggest factor for supported frame lengths; |
195 | | // consequently `ido` should never be 1. |
196 | 0 | __builtin_trap(); |
197 | | /* |
198 | | #endif |
199 | | if (isign == 1) |
200 | | { |
201 | | for (k = 0; k < l1; k++) |
202 | | { |
203 | | ac = 3*k+1; |
204 | | ah = k; |
205 | | |
206 | | RE(t2) = RE(cc[ac]) + RE(cc[ac+1]); |
207 | | IM(t2) = IM(cc[ac]) + IM(cc[ac+1]); |
208 | | RE(c2) = RE(cc[ac-1]) + MUL_F(RE(t2),taur); |
209 | | IM(c2) = IM(cc[ac-1]) + MUL_F(IM(t2),taur); |
210 | | |
211 | | RE(ch[ah]) = RE(cc[ac-1]) + RE(t2); |
212 | | IM(ch[ah]) = IM(cc[ac-1]) + IM(t2); |
213 | | |
214 | | RE(c3) = MUL_F((RE(cc[ac]) - RE(cc[ac+1])), taui); |
215 | | IM(c3) = MUL_F((IM(cc[ac]) - IM(cc[ac+1])), taui); |
216 | | |
217 | | RE(ch[ah+l1]) = RE(c2) - IM(c3); |
218 | | IM(ch[ah+l1]) = IM(c2) + RE(c3); |
219 | | RE(ch[ah+2*l1]) = RE(c2) + IM(c3); |
220 | | IM(ch[ah+2*l1]) = IM(c2) - RE(c3); |
221 | | } |
222 | | } else { |
223 | | for (k = 0; k < l1; k++) |
224 | | { |
225 | | ac = 3*k+1; |
226 | | ah = k; |
227 | | |
228 | | RE(t2) = RE(cc[ac]) + RE(cc[ac+1]); |
229 | | IM(t2) = IM(cc[ac]) + IM(cc[ac+1]); |
230 | | RE(c2) = RE(cc[ac-1]) + MUL_F(RE(t2),taur); |
231 | | IM(c2) = IM(cc[ac-1]) + MUL_F(IM(t2),taur); |
232 | | |
233 | | RE(ch[ah]) = RE(cc[ac-1]) + RE(t2); |
234 | | IM(ch[ah]) = IM(cc[ac-1]) + IM(t2); |
235 | | |
236 | | RE(c3) = MUL_F((RE(cc[ac]) - RE(cc[ac+1])), taui); |
237 | | IM(c3) = MUL_F((IM(cc[ac]) - IM(cc[ac+1])), taui); |
238 | | |
239 | | RE(ch[ah+l1]) = RE(c2) + IM(c3); |
240 | | IM(ch[ah+l1]) = IM(c2) - RE(c3); |
241 | | RE(ch[ah+2*l1]) = RE(c2) - IM(c3); |
242 | | IM(ch[ah+2*l1]) = IM(c2) + RE(c3); |
243 | | } |
244 | | } |
245 | | #ifdef FUZZING_BUILD_MODE_UNSAFE_FOR_PRODUCTION |
246 | | */ |
247 | 0 | #endif |
248 | 218k | } else { |
249 | 218k | if (isign == 1) |
250 | 211k | { |
251 | 519k | for (k = 0; k < l1; k++) |
252 | 308k | { |
253 | 18.3M | for (i = 0; i < ido; i++) |
254 | 17.9M | { |
255 | 17.9M | ac = i + (3*k+1)*ido; |
256 | 17.9M | ah = i + k * ido; |
257 | | |
258 | 17.9M | RE(t2) = RE(cc[ac]) + RE(cc[ac+ido]); |
259 | 17.9M | RE(c2) = RE(cc[ac-ido]) + MUL_F(RE(t2),taur); |
260 | 17.9M | IM(t2) = IM(cc[ac]) + IM(cc[ac+ido]); |
261 | 17.9M | IM(c2) = IM(cc[ac-ido]) + MUL_F(IM(t2),taur); |
262 | | |
263 | 17.9M | RE(ch[ah]) = RE(cc[ac-ido]) + RE(t2); |
264 | 17.9M | IM(ch[ah]) = IM(cc[ac-ido]) + IM(t2); |
265 | | |
266 | 17.9M | RE(c3) = MUL_F((RE(cc[ac]) - RE(cc[ac+ido])), taui); |
267 | 17.9M | IM(c3) = MUL_F((IM(cc[ac]) - IM(cc[ac+ido])), taui); |
268 | | |
269 | 17.9M | RE(d2) = RE(c2) - IM(c3); |
270 | 17.9M | IM(d3) = IM(c2) - RE(c3); |
271 | 17.9M | RE(d3) = RE(c2) + IM(c3); |
272 | 17.9M | IM(d2) = IM(c2) + RE(c3); |
273 | | |
274 | 17.9M | #if 1 |
275 | 17.9M | ComplexMult(&IM(ch[ah+l1*ido]), &RE(ch[ah+l1*ido]), |
276 | 17.9M | IM(d2), RE(d2), RE(wa1[i]), IM(wa1[i])); |
277 | 17.9M | ComplexMult(&IM(ch[ah+2*l1*ido]), &RE(ch[ah+2*l1*ido]), |
278 | 17.9M | IM(d3), RE(d3), RE(wa2[i]), IM(wa2[i])); |
279 | | #else |
280 | | ComplexMult(&RE(ch[ah+l1*ido]), &IM(ch[ah+l1*ido]), |
281 | | RE(d2), IM(d2), RE(wa1[i]), IM(wa1[i])); |
282 | | ComplexMult(&RE(ch[ah+2*l1*ido]), &IM(ch[ah+2*l1*ido]), |
283 | | RE(d3), IM(d3), RE(wa2[i]), IM(wa2[i])); |
284 | | #endif |
285 | 17.9M | } |
286 | 308k | } |
287 | 211k | } else { |
288 | 23.1k | for (k = 0; k < l1; k++) |
289 | 15.3k | { |
290 | 1.24M | for (i = 0; i < ido; i++) |
291 | 1.23M | { |
292 | 1.23M | ac = i + (3*k+1)*ido; |
293 | 1.23M | ah = i + k * ido; |
294 | | |
295 | 1.23M | RE(t2) = RE(cc[ac]) + RE(cc[ac+ido]); |
296 | 1.23M | RE(c2) = RE(cc[ac-ido]) + MUL_F(RE(t2),taur); |
297 | 1.23M | IM(t2) = IM(cc[ac]) + IM(cc[ac+ido]); |
298 | 1.23M | IM(c2) = IM(cc[ac-ido]) + MUL_F(IM(t2),taur); |
299 | | |
300 | 1.23M | RE(ch[ah]) = RE(cc[ac-ido]) + RE(t2); |
301 | 1.23M | IM(ch[ah]) = IM(cc[ac-ido]) + IM(t2); |
302 | | |
303 | 1.23M | RE(c3) = MUL_F((RE(cc[ac]) - RE(cc[ac+ido])), taui); |
304 | 1.23M | IM(c3) = MUL_F((IM(cc[ac]) - IM(cc[ac+ido])), taui); |
305 | | |
306 | 1.23M | RE(d2) = RE(c2) + IM(c3); |
307 | 1.23M | IM(d3) = IM(c2) + RE(c3); |
308 | 1.23M | RE(d3) = RE(c2) - IM(c3); |
309 | 1.23M | IM(d2) = IM(c2) - RE(c3); |
310 | | |
311 | 1.23M | #if 1 |
312 | 1.23M | ComplexMult(&RE(ch[ah+l1*ido]), &IM(ch[ah+l1*ido]), |
313 | 1.23M | RE(d2), IM(d2), RE(wa1[i]), IM(wa1[i])); |
314 | 1.23M | ComplexMult(&RE(ch[ah+2*l1*ido]), &IM(ch[ah+2*l1*ido]), |
315 | 1.23M | RE(d3), IM(d3), RE(wa2[i]), IM(wa2[i])); |
316 | | #else |
317 | | ComplexMult(&IM(ch[ah+l1*ido]), &RE(ch[ah+l1*ido]), |
318 | | IM(d2), RE(d2), RE(wa1[i]), IM(wa1[i])); |
319 | | ComplexMult(&IM(ch[ah+2*l1*ido]), &RE(ch[ah+2*l1*ido]), |
320 | | IM(d3), RE(d3), RE(wa2[i]), IM(wa2[i])); |
321 | | #endif |
322 | 1.23M | } |
323 | 15.3k | } |
324 | 7.80k | } |
325 | 218k | } |
326 | 218k | } Line | Count | Source | 184 | 91.5k | { | 185 | 91.5k | static real_t taur = FRAC_CONST(-0.5); | 186 | 91.5k | static real_t taui = FRAC_CONST(0.866025403784439); | 187 | 91.5k | uint16_t i, k, ac, ah; | 188 | 91.5k | complex_t c2, c3, d2, d3, t2; | 189 | | | 190 | 91.5k | if (ido == 1) | 191 | 0 | { | 192 | 0 | #ifdef FUZZING_BUILD_MODE_UNSAFE_FOR_PRODUCTION | 193 | | // TODO: remove this code once fuzzer proves it is totally unreahable | 194 | | // 3 is never the the biggest factor for supported frame lengths; | 195 | | // consequently `ido` should never be 1. | 196 | 0 | __builtin_trap(); | 197 | | /* | 198 | | #endif | 199 | | if (isign == 1) | 200 | | { | 201 | | for (k = 0; k < l1; k++) | 202 | | { | 203 | | ac = 3*k+1; | 204 | | ah = k; | 205 | | | 206 | | RE(t2) = RE(cc[ac]) + RE(cc[ac+1]); | 207 | | IM(t2) = IM(cc[ac]) + IM(cc[ac+1]); | 208 | | RE(c2) = RE(cc[ac-1]) + MUL_F(RE(t2),taur); | 209 | | IM(c2) = IM(cc[ac-1]) + MUL_F(IM(t2),taur); | 210 | | | 211 | | RE(ch[ah]) = RE(cc[ac-1]) + RE(t2); | 212 | | IM(ch[ah]) = IM(cc[ac-1]) + IM(t2); | 213 | | | 214 | | RE(c3) = MUL_F((RE(cc[ac]) - RE(cc[ac+1])), taui); | 215 | | IM(c3) = MUL_F((IM(cc[ac]) - IM(cc[ac+1])), taui); | 216 | | | 217 | | RE(ch[ah+l1]) = RE(c2) - IM(c3); | 218 | | IM(ch[ah+l1]) = IM(c2) + RE(c3); | 219 | | RE(ch[ah+2*l1]) = RE(c2) + IM(c3); | 220 | | IM(ch[ah+2*l1]) = IM(c2) - RE(c3); | 221 | | } | 222 | | } else { | 223 | | for (k = 0; k < l1; k++) | 224 | | { | 225 | | ac = 3*k+1; | 226 | | ah = k; | 227 | | | 228 | | RE(t2) = RE(cc[ac]) + RE(cc[ac+1]); | 229 | | IM(t2) = IM(cc[ac]) + IM(cc[ac+1]); | 230 | | RE(c2) = RE(cc[ac-1]) + MUL_F(RE(t2),taur); | 231 | | IM(c2) = IM(cc[ac-1]) + MUL_F(IM(t2),taur); | 232 | | | 233 | | RE(ch[ah]) = RE(cc[ac-1]) + RE(t2); | 234 | | IM(ch[ah]) = IM(cc[ac-1]) + IM(t2); | 235 | | | 236 | | RE(c3) = MUL_F((RE(cc[ac]) - RE(cc[ac+1])), taui); | 237 | | IM(c3) = MUL_F((IM(cc[ac]) - IM(cc[ac+1])), taui); | 238 | | | 239 | | RE(ch[ah+l1]) = RE(c2) + IM(c3); | 240 | | IM(ch[ah+l1]) = IM(c2) - RE(c3); | 241 | | RE(ch[ah+2*l1]) = RE(c2) - IM(c3); | 242 | | IM(ch[ah+2*l1]) = IM(c2) + RE(c3); | 243 | | } | 244 | | } | 245 | | #ifdef FUZZING_BUILD_MODE_UNSAFE_FOR_PRODUCTION | 246 | | */ | 247 | 0 | #endif | 248 | 91.5k | } else { | 249 | 91.5k | if (isign == 1) | 250 | 87.7k | { | 251 | 216k | for (k = 0; k < l1; k++) | 252 | 128k | { | 253 | 7.63M | for (i = 0; i < ido; i++) | 254 | 7.50M | { | 255 | 7.50M | ac = i + (3*k+1)*ido; | 256 | 7.50M | ah = i + k * ido; | 257 | | | 258 | 7.50M | RE(t2) = RE(cc[ac]) + RE(cc[ac+ido]); | 259 | 7.50M | RE(c2) = RE(cc[ac-ido]) + MUL_F(RE(t2),taur); | 260 | 7.50M | IM(t2) = IM(cc[ac]) + IM(cc[ac+ido]); | 261 | 7.50M | IM(c2) = IM(cc[ac-ido]) + MUL_F(IM(t2),taur); | 262 | | | 263 | 7.50M | RE(ch[ah]) = RE(cc[ac-ido]) + RE(t2); | 264 | 7.50M | IM(ch[ah]) = IM(cc[ac-ido]) + IM(t2); | 265 | | | 266 | 7.50M | RE(c3) = MUL_F((RE(cc[ac]) - RE(cc[ac+ido])), taui); | 267 | 7.50M | IM(c3) = MUL_F((IM(cc[ac]) - IM(cc[ac+ido])), taui); | 268 | | | 269 | 7.50M | RE(d2) = RE(c2) - IM(c3); | 270 | 7.50M | IM(d3) = IM(c2) - RE(c3); | 271 | 7.50M | RE(d3) = RE(c2) + IM(c3); | 272 | 7.50M | IM(d2) = IM(c2) + RE(c3); | 273 | | | 274 | 7.50M | #if 1 | 275 | 7.50M | ComplexMult(&IM(ch[ah+l1*ido]), &RE(ch[ah+l1*ido]), | 276 | 7.50M | IM(d2), RE(d2), RE(wa1[i]), IM(wa1[i])); | 277 | 7.50M | ComplexMult(&IM(ch[ah+2*l1*ido]), &RE(ch[ah+2*l1*ido]), | 278 | 7.50M | IM(d3), RE(d3), RE(wa2[i]), IM(wa2[i])); | 279 | | #else | 280 | | ComplexMult(&RE(ch[ah+l1*ido]), &IM(ch[ah+l1*ido]), | 281 | | RE(d2), IM(d2), RE(wa1[i]), IM(wa1[i])); | 282 | | ComplexMult(&RE(ch[ah+2*l1*ido]), &IM(ch[ah+2*l1*ido]), | 283 | | RE(d3), IM(d3), RE(wa2[i]), IM(wa2[i])); | 284 | | #endif | 285 | 7.50M | } | 286 | 128k | } | 287 | 87.7k | } else { | 288 | 11.3k | for (k = 0; k < l1; k++) | 289 | 7.52k | { | 290 | 609k | for (i = 0; i < ido; i++) | 291 | 602k | { | 292 | 602k | ac = i + (3*k+1)*ido; | 293 | 602k | ah = i + k * ido; | 294 | | | 295 | 602k | RE(t2) = RE(cc[ac]) + RE(cc[ac+ido]); | 296 | 602k | RE(c2) = RE(cc[ac-ido]) + MUL_F(RE(t2),taur); | 297 | 602k | IM(t2) = IM(cc[ac]) + IM(cc[ac+ido]); | 298 | 602k | IM(c2) = IM(cc[ac-ido]) + MUL_F(IM(t2),taur); | 299 | | | 300 | 602k | RE(ch[ah]) = RE(cc[ac-ido]) + RE(t2); | 301 | 602k | IM(ch[ah]) = IM(cc[ac-ido]) + IM(t2); | 302 | | | 303 | 602k | RE(c3) = MUL_F((RE(cc[ac]) - RE(cc[ac+ido])), taui); | 304 | 602k | IM(c3) = MUL_F((IM(cc[ac]) - IM(cc[ac+ido])), taui); | 305 | | | 306 | 602k | RE(d2) = RE(c2) + IM(c3); | 307 | 602k | IM(d3) = IM(c2) + RE(c3); | 308 | 602k | RE(d3) = RE(c2) - IM(c3); | 309 | 602k | IM(d2) = IM(c2) - RE(c3); | 310 | | | 311 | 602k | #if 1 | 312 | 602k | ComplexMult(&RE(ch[ah+l1*ido]), &IM(ch[ah+l1*ido]), | 313 | 602k | RE(d2), IM(d2), RE(wa1[i]), IM(wa1[i])); | 314 | 602k | ComplexMult(&RE(ch[ah+2*l1*ido]), &IM(ch[ah+2*l1*ido]), | 315 | 602k | RE(d3), IM(d3), RE(wa2[i]), IM(wa2[i])); | 316 | | #else | 317 | | ComplexMult(&IM(ch[ah+l1*ido]), &RE(ch[ah+l1*ido]), | 318 | | IM(d2), RE(d2), RE(wa1[i]), IM(wa1[i])); | 319 | | ComplexMult(&IM(ch[ah+2*l1*ido]), &RE(ch[ah+2*l1*ido]), | 320 | | IM(d3), RE(d3), RE(wa2[i]), IM(wa2[i])); | 321 | | #endif | 322 | 602k | } | 323 | 7.52k | } | 324 | 3.81k | } | 325 | 91.5k | } | 326 | 91.5k | } |
Line | Count | Source | 184 | 127k | { | 185 | 127k | static real_t taur = FRAC_CONST(-0.5); | 186 | 127k | static real_t taui = FRAC_CONST(0.866025403784439); | 187 | 127k | uint16_t i, k, ac, ah; | 188 | 127k | complex_t c2, c3, d2, d3, t2; | 189 | | | 190 | 127k | if (ido == 1) | 191 | 0 | { | 192 | 0 | #ifdef FUZZING_BUILD_MODE_UNSAFE_FOR_PRODUCTION | 193 | | // TODO: remove this code once fuzzer proves it is totally unreahable | 194 | | // 3 is never the the biggest factor for supported frame lengths; | 195 | | // consequently `ido` should never be 1. | 196 | 0 | __builtin_trap(); | 197 | | /* | 198 | | #endif | 199 | | if (isign == 1) | 200 | | { | 201 | | for (k = 0; k < l1; k++) | 202 | | { | 203 | | ac = 3*k+1; | 204 | | ah = k; | 205 | | | 206 | | RE(t2) = RE(cc[ac]) + RE(cc[ac+1]); | 207 | | IM(t2) = IM(cc[ac]) + IM(cc[ac+1]); | 208 | | RE(c2) = RE(cc[ac-1]) + MUL_F(RE(t2),taur); | 209 | | IM(c2) = IM(cc[ac-1]) + MUL_F(IM(t2),taur); | 210 | | | 211 | | RE(ch[ah]) = RE(cc[ac-1]) + RE(t2); | 212 | | IM(ch[ah]) = IM(cc[ac-1]) + IM(t2); | 213 | | | 214 | | RE(c3) = MUL_F((RE(cc[ac]) - RE(cc[ac+1])), taui); | 215 | | IM(c3) = MUL_F((IM(cc[ac]) - IM(cc[ac+1])), taui); | 216 | | | 217 | | RE(ch[ah+l1]) = RE(c2) - IM(c3); | 218 | | IM(ch[ah+l1]) = IM(c2) + RE(c3); | 219 | | RE(ch[ah+2*l1]) = RE(c2) + IM(c3); | 220 | | IM(ch[ah+2*l1]) = IM(c2) - RE(c3); | 221 | | } | 222 | | } else { | 223 | | for (k = 0; k < l1; k++) | 224 | | { | 225 | | ac = 3*k+1; | 226 | | ah = k; | 227 | | | 228 | | RE(t2) = RE(cc[ac]) + RE(cc[ac+1]); | 229 | | IM(t2) = IM(cc[ac]) + IM(cc[ac+1]); | 230 | | RE(c2) = RE(cc[ac-1]) + MUL_F(RE(t2),taur); | 231 | | IM(c2) = IM(cc[ac-1]) + MUL_F(IM(t2),taur); | 232 | | | 233 | | RE(ch[ah]) = RE(cc[ac-1]) + RE(t2); | 234 | | IM(ch[ah]) = IM(cc[ac-1]) + IM(t2); | 235 | | | 236 | | RE(c3) = MUL_F((RE(cc[ac]) - RE(cc[ac+1])), taui); | 237 | | IM(c3) = MUL_F((IM(cc[ac]) - IM(cc[ac+1])), taui); | 238 | | | 239 | | RE(ch[ah+l1]) = RE(c2) + IM(c3); | 240 | | IM(ch[ah+l1]) = IM(c2) - RE(c3); | 241 | | RE(ch[ah+2*l1]) = RE(c2) - IM(c3); | 242 | | IM(ch[ah+2*l1]) = IM(c2) + RE(c3); | 243 | | } | 244 | | } | 245 | | #ifdef FUZZING_BUILD_MODE_UNSAFE_FOR_PRODUCTION | 246 | | */ | 247 | 0 | #endif | 248 | 127k | } else { | 249 | 127k | if (isign == 1) | 250 | 123k | { | 251 | 303k | for (k = 0; k < l1; k++) | 252 | 180k | { | 253 | 10.6M | for (i = 0; i < ido; i++) | 254 | 10.4M | { | 255 | 10.4M | ac = i + (3*k+1)*ido; | 256 | 10.4M | ah = i + k * ido; | 257 | | | 258 | 10.4M | RE(t2) = RE(cc[ac]) + RE(cc[ac+ido]); | 259 | 10.4M | RE(c2) = RE(cc[ac-ido]) + MUL_F(RE(t2),taur); | 260 | 10.4M | IM(t2) = IM(cc[ac]) + IM(cc[ac+ido]); | 261 | 10.4M | IM(c2) = IM(cc[ac-ido]) + MUL_F(IM(t2),taur); | 262 | | | 263 | 10.4M | RE(ch[ah]) = RE(cc[ac-ido]) + RE(t2); | 264 | 10.4M | IM(ch[ah]) = IM(cc[ac-ido]) + IM(t2); | 265 | | | 266 | 10.4M | RE(c3) = MUL_F((RE(cc[ac]) - RE(cc[ac+ido])), taui); | 267 | 10.4M | IM(c3) = MUL_F((IM(cc[ac]) - IM(cc[ac+ido])), taui); | 268 | | | 269 | 10.4M | RE(d2) = RE(c2) - IM(c3); | 270 | 10.4M | IM(d3) = IM(c2) - RE(c3); | 271 | 10.4M | RE(d3) = RE(c2) + IM(c3); | 272 | 10.4M | IM(d2) = IM(c2) + RE(c3); | 273 | | | 274 | 10.4M | #if 1 | 275 | 10.4M | ComplexMult(&IM(ch[ah+l1*ido]), &RE(ch[ah+l1*ido]), | 276 | 10.4M | IM(d2), RE(d2), RE(wa1[i]), IM(wa1[i])); | 277 | 10.4M | ComplexMult(&IM(ch[ah+2*l1*ido]), &RE(ch[ah+2*l1*ido]), | 278 | 10.4M | IM(d3), RE(d3), RE(wa2[i]), IM(wa2[i])); | 279 | | #else | 280 | | ComplexMult(&RE(ch[ah+l1*ido]), &IM(ch[ah+l1*ido]), | 281 | | RE(d2), IM(d2), RE(wa1[i]), IM(wa1[i])); | 282 | | ComplexMult(&RE(ch[ah+2*l1*ido]), &IM(ch[ah+2*l1*ido]), | 283 | | RE(d3), IM(d3), RE(wa2[i]), IM(wa2[i])); | 284 | | #endif | 285 | 10.4M | } | 286 | 180k | } | 287 | 123k | } else { | 288 | 11.8k | for (k = 0; k < l1; k++) | 289 | 7.85k | { | 290 | 636k | for (i = 0; i < ido; i++) | 291 | 628k | { | 292 | 628k | ac = i + (3*k+1)*ido; | 293 | 628k | ah = i + k * ido; | 294 | | | 295 | 628k | RE(t2) = RE(cc[ac]) + RE(cc[ac+ido]); | 296 | 628k | RE(c2) = RE(cc[ac-ido]) + MUL_F(RE(t2),taur); | 297 | 628k | IM(t2) = IM(cc[ac]) + IM(cc[ac+ido]); | 298 | 628k | IM(c2) = IM(cc[ac-ido]) + MUL_F(IM(t2),taur); | 299 | | | 300 | 628k | RE(ch[ah]) = RE(cc[ac-ido]) + RE(t2); | 301 | 628k | IM(ch[ah]) = IM(cc[ac-ido]) + IM(t2); | 302 | | | 303 | 628k | RE(c3) = MUL_F((RE(cc[ac]) - RE(cc[ac+ido])), taui); | 304 | 628k | IM(c3) = MUL_F((IM(cc[ac]) - IM(cc[ac+ido])), taui); | 305 | | | 306 | 628k | RE(d2) = RE(c2) + IM(c3); | 307 | 628k | IM(d3) = IM(c2) + RE(c3); | 308 | 628k | RE(d3) = RE(c2) - IM(c3); | 309 | 628k | IM(d2) = IM(c2) - RE(c3); | 310 | | | 311 | 628k | #if 1 | 312 | 628k | ComplexMult(&RE(ch[ah+l1*ido]), &IM(ch[ah+l1*ido]), | 313 | 628k | RE(d2), IM(d2), RE(wa1[i]), IM(wa1[i])); | 314 | 628k | ComplexMult(&RE(ch[ah+2*l1*ido]), &IM(ch[ah+2*l1*ido]), | 315 | 628k | RE(d3), IM(d3), RE(wa2[i]), IM(wa2[i])); | 316 | | #else | 317 | | ComplexMult(&IM(ch[ah+l1*ido]), &RE(ch[ah+l1*ido]), | 318 | | IM(d2), RE(d2), RE(wa1[i]), IM(wa1[i])); | 319 | | ComplexMult(&IM(ch[ah+2*l1*ido]), &RE(ch[ah+2*l1*ido]), | 320 | | IM(d3), RE(d3), RE(wa2[i]), IM(wa2[i])); | 321 | | #endif | 322 | 628k | } | 323 | 7.85k | } | 324 | 3.98k | } | 325 | 127k | } | 326 | 127k | } |
|
327 | | |
328 | | |
329 | | static void passf4pos(const uint16_t ido, const uint16_t l1, const complex_t *cc, |
330 | | complex_t *ch, const complex_t *wa1, const complex_t *wa2, |
331 | | const complex_t *wa3) |
332 | 3.71M | { |
333 | 3.71M | uint16_t i, k, ac, ah; |
334 | | |
335 | 3.71M | if (ido == 1) |
336 | 963k | { |
337 | 73.5M | for (k = 0; k < l1; k++) |
338 | 72.5M | { |
339 | 72.5M | complex_t t1, t2, t3, t4; |
340 | | |
341 | 72.5M | ac = 4*k; |
342 | 72.5M | ah = k; |
343 | | |
344 | 72.5M | RE(t2) = RE(cc[ac]) + RE(cc[ac+2]); |
345 | 72.5M | RE(t1) = RE(cc[ac]) - RE(cc[ac+2]); |
346 | 72.5M | IM(t2) = IM(cc[ac]) + IM(cc[ac+2]); |
347 | 72.5M | IM(t1) = IM(cc[ac]) - IM(cc[ac+2]); |
348 | 72.5M | RE(t3) = RE(cc[ac+1]) + RE(cc[ac+3]); |
349 | 72.5M | IM(t4) = RE(cc[ac+1]) - RE(cc[ac+3]); |
350 | 72.5M | IM(t3) = IM(cc[ac+3]) + IM(cc[ac+1]); |
351 | 72.5M | RE(t4) = IM(cc[ac+3]) - IM(cc[ac+1]); |
352 | | |
353 | 72.5M | RE(ch[ah]) = RE(t2) + RE(t3); |
354 | 72.5M | RE(ch[ah+2*l1]) = RE(t2) - RE(t3); |
355 | | |
356 | 72.5M | IM(ch[ah]) = IM(t2) + IM(t3); |
357 | 72.5M | IM(ch[ah+2*l1]) = IM(t2) - IM(t3); |
358 | | |
359 | 72.5M | RE(ch[ah+l1]) = RE(t1) + RE(t4); |
360 | 72.5M | RE(ch[ah+3*l1]) = RE(t1) - RE(t4); |
361 | | |
362 | 72.5M | IM(ch[ah+l1]) = IM(t1) + IM(t4); |
363 | 72.5M | IM(ch[ah+3*l1]) = IM(t1) - IM(t4); |
364 | 72.5M | } |
365 | 2.74M | } else { |
366 | 29.7M | for (k = 0; k < l1; k++) |
367 | 26.9M | { |
368 | 26.9M | ac = 4*k*ido; |
369 | 26.9M | ah = k*ido; |
370 | | |
371 | 262M | for (i = 0; i < ido; i++) |
372 | 235M | { |
373 | 235M | complex_t c2, c3, c4, t1, t2, t3, t4; |
374 | | |
375 | 235M | RE(t2) = RE(cc[ac+i]) + RE(cc[ac+i+2*ido]); |
376 | 235M | RE(t1) = RE(cc[ac+i]) - RE(cc[ac+i+2*ido]); |
377 | 235M | IM(t2) = IM(cc[ac+i]) + IM(cc[ac+i+2*ido]); |
378 | 235M | IM(t1) = IM(cc[ac+i]) - IM(cc[ac+i+2*ido]); |
379 | 235M | RE(t3) = RE(cc[ac+i+ido]) + RE(cc[ac+i+3*ido]); |
380 | 235M | IM(t4) = RE(cc[ac+i+ido]) - RE(cc[ac+i+3*ido]); |
381 | 235M | IM(t3) = IM(cc[ac+i+3*ido]) + IM(cc[ac+i+ido]); |
382 | 235M | RE(t4) = IM(cc[ac+i+3*ido]) - IM(cc[ac+i+ido]); |
383 | | |
384 | 235M | RE(c2) = RE(t1) + RE(t4); |
385 | 235M | RE(c4) = RE(t1) - RE(t4); |
386 | | |
387 | 235M | IM(c2) = IM(t1) + IM(t4); |
388 | 235M | IM(c4) = IM(t1) - IM(t4); |
389 | | |
390 | 235M | RE(ch[ah+i]) = RE(t2) + RE(t3); |
391 | 235M | RE(c3) = RE(t2) - RE(t3); |
392 | | |
393 | 235M | IM(ch[ah+i]) = IM(t2) + IM(t3); |
394 | 235M | IM(c3) = IM(t2) - IM(t3); |
395 | | |
396 | 235M | #if 1 |
397 | 235M | ComplexMult(&IM(ch[ah+i+l1*ido]), &RE(ch[ah+i+l1*ido]), |
398 | 235M | IM(c2), RE(c2), RE(wa1[i]), IM(wa1[i])); |
399 | 235M | ComplexMult(&IM(ch[ah+i+2*l1*ido]), &RE(ch[ah+i+2*l1*ido]), |
400 | 235M | IM(c3), RE(c3), RE(wa2[i]), IM(wa2[i])); |
401 | 235M | ComplexMult(&IM(ch[ah+i+3*l1*ido]), &RE(ch[ah+i+3*l1*ido]), |
402 | 235M | IM(c4), RE(c4), RE(wa3[i]), IM(wa3[i])); |
403 | | #else |
404 | | ComplexMult(&RE(ch[ah+i+l1*ido]), &IM(ch[ah+i+l1*ido]), |
405 | | RE(c2), IM(c2), RE(wa1[i]), IM(wa1[i])); |
406 | | ComplexMult(&RE(ch[ah+i+2*l1*ido]), &IM(ch[ah+i+2*l1*ido]), |
407 | | RE(c3), IM(c3), RE(wa2[i]), IM(wa2[i])); |
408 | | ComplexMult(&RE(ch[ah+i+3*l1*ido]), &IM(ch[ah+i+3*l1*ido]), |
409 | | RE(c4), IM(c4), RE(wa3[i]), IM(wa3[i])); |
410 | | #endif |
411 | 235M | } |
412 | 26.9M | } |
413 | 2.74M | } |
414 | 3.71M | } |
415 | | |
416 | | static void passf4neg(const uint16_t ido, const uint16_t l1, const complex_t *cc, |
417 | | complex_t *ch, const complex_t *wa1, const complex_t *wa2, |
418 | | const complex_t *wa3) |
419 | 40.8k | { |
420 | 40.8k | uint16_t i, k, ac, ah; |
421 | | |
422 | 40.8k | if (ido == 1) |
423 | 6.32k | { |
424 | 794k | for (k = 0; k < l1; k++) |
425 | 788k | { |
426 | 788k | complex_t t1, t2, t3, t4; |
427 | | |
428 | 788k | ac = 4*k; |
429 | 788k | ah = k; |
430 | | |
431 | 788k | RE(t2) = RE(cc[ac]) + RE(cc[ac+2]); |
432 | 788k | RE(t1) = RE(cc[ac]) - RE(cc[ac+2]); |
433 | 788k | IM(t2) = IM(cc[ac]) + IM(cc[ac+2]); |
434 | 788k | IM(t1) = IM(cc[ac]) - IM(cc[ac+2]); |
435 | 788k | RE(t3) = RE(cc[ac+1]) + RE(cc[ac+3]); |
436 | 788k | IM(t4) = RE(cc[ac+1]) - RE(cc[ac+3]); |
437 | 788k | IM(t3) = IM(cc[ac+3]) + IM(cc[ac+1]); |
438 | 788k | RE(t4) = IM(cc[ac+3]) - IM(cc[ac+1]); |
439 | | |
440 | 788k | RE(ch[ah]) = RE(t2) + RE(t3); |
441 | 788k | RE(ch[ah+2*l1]) = RE(t2) - RE(t3); |
442 | | |
443 | 788k | IM(ch[ah]) = IM(t2) + IM(t3); |
444 | 788k | IM(ch[ah+2*l1]) = IM(t2) - IM(t3); |
445 | | |
446 | 788k | RE(ch[ah+l1]) = RE(t1) - RE(t4); |
447 | 788k | RE(ch[ah+3*l1]) = RE(t1) + RE(t4); |
448 | | |
449 | 788k | IM(ch[ah+l1]) = IM(t1) - IM(t4); |
450 | 788k | IM(ch[ah+3*l1]) = IM(t1) + IM(t4); |
451 | 788k | } |
452 | 34.5k | } else { |
453 | 523k | for (k = 0; k < l1; k++) |
454 | 489k | { |
455 | 489k | ac = 4*k*ido; |
456 | 489k | ah = k*ido; |
457 | | |
458 | 4.70M | for (i = 0; i < ido; i++) |
459 | 4.21M | { |
460 | 4.21M | complex_t c2, c3, c4, t1, t2, t3, t4; |
461 | | |
462 | 4.21M | RE(t2) = RE(cc[ac+i]) + RE(cc[ac+i+2*ido]); |
463 | 4.21M | RE(t1) = RE(cc[ac+i]) - RE(cc[ac+i+2*ido]); |
464 | 4.21M | IM(t2) = IM(cc[ac+i]) + IM(cc[ac+i+2*ido]); |
465 | 4.21M | IM(t1) = IM(cc[ac+i]) - IM(cc[ac+i+2*ido]); |
466 | 4.21M | RE(t3) = RE(cc[ac+i+ido]) + RE(cc[ac+i+3*ido]); |
467 | 4.21M | IM(t4) = RE(cc[ac+i+ido]) - RE(cc[ac+i+3*ido]); |
468 | 4.21M | IM(t3) = IM(cc[ac+i+3*ido]) + IM(cc[ac+i+ido]); |
469 | 4.21M | RE(t4) = IM(cc[ac+i+3*ido]) - IM(cc[ac+i+ido]); |
470 | | |
471 | 4.21M | RE(c2) = RE(t1) - RE(t4); |
472 | 4.21M | RE(c4) = RE(t1) + RE(t4); |
473 | | |
474 | 4.21M | IM(c2) = IM(t1) - IM(t4); |
475 | 4.21M | IM(c4) = IM(t1) + IM(t4); |
476 | | |
477 | 4.21M | RE(ch[ah+i]) = RE(t2) + RE(t3); |
478 | 4.21M | RE(c3) = RE(t2) - RE(t3); |
479 | | |
480 | 4.21M | IM(ch[ah+i]) = IM(t2) + IM(t3); |
481 | 4.21M | IM(c3) = IM(t2) - IM(t3); |
482 | | |
483 | 4.21M | #if 1 |
484 | 4.21M | ComplexMult(&RE(ch[ah+i+l1*ido]), &IM(ch[ah+i+l1*ido]), |
485 | 4.21M | RE(c2), IM(c2), RE(wa1[i]), IM(wa1[i])); |
486 | 4.21M | ComplexMult(&RE(ch[ah+i+2*l1*ido]), &IM(ch[ah+i+2*l1*ido]), |
487 | 4.21M | RE(c3), IM(c3), RE(wa2[i]), IM(wa2[i])); |
488 | 4.21M | ComplexMult(&RE(ch[ah+i+3*l1*ido]), &IM(ch[ah+i+3*l1*ido]), |
489 | 4.21M | RE(c4), IM(c4), RE(wa3[i]), IM(wa3[i])); |
490 | | #else |
491 | | ComplexMult(&IM(ch[ah+i+l1*ido]), &RE(ch[ah+i+l1*ido]), |
492 | | IM(c2), RE(c2), RE(wa1[i]), IM(wa1[i])); |
493 | | ComplexMult(&IM(ch[ah+i+2*l1*ido]), &RE(ch[ah+i+2*l1*ido]), |
494 | | IM(c3), RE(c3), RE(wa2[i]), IM(wa2[i])); |
495 | | ComplexMult(&IM(ch[ah+i+3*l1*ido]), &RE(ch[ah+i+3*l1*ido]), |
496 | | IM(c4), RE(c4), RE(wa3[i]), IM(wa3[i])); |
497 | | #endif |
498 | 4.21M | } |
499 | 489k | } |
500 | 34.5k | } |
501 | 40.8k | } |
502 | | |
503 | | static void passf5(const uint16_t ido, const uint16_t l1, const complex_t *cc, |
504 | | complex_t *ch, const complex_t *wa1, const complex_t *wa2, const complex_t *wa3, |
505 | | const complex_t *wa4, const int8_t isign) |
506 | 218k | { |
507 | 218k | static real_t tr11 = FRAC_CONST(0.309016994374947); |
508 | 218k | static real_t ti11 = FRAC_CONST(0.951056516295154); |
509 | 218k | static real_t tr12 = FRAC_CONST(-0.809016994374947); |
510 | 218k | static real_t ti12 = FRAC_CONST(0.587785252292473); |
511 | 218k | uint16_t k, ac, ah; |
512 | 218k | complex_t c2, c3, c4, c5, t2, t3, t4, t5; |
513 | 218k | (void)wa1; |
514 | 218k | (void)wa2; |
515 | 218k | (void)wa3; |
516 | 218k | (void)wa4; |
517 | | |
518 | 218k | if (ido == 1) |
519 | 218k | { |
520 | 218k | if (isign == 1) |
521 | 211k | { |
522 | 11.0M | for (k = 0; k < l1; k++) |
523 | 10.7M | { |
524 | 10.7M | ac = 5*k + 1; |
525 | 10.7M | ah = k; |
526 | | |
527 | 10.7M | RE(t2) = RE(cc[ac]) + RE(cc[ac+3]); |
528 | 10.7M | IM(t2) = IM(cc[ac]) + IM(cc[ac+3]); |
529 | 10.7M | RE(t3) = RE(cc[ac+1]) + RE(cc[ac+2]); |
530 | 10.7M | IM(t3) = IM(cc[ac+1]) + IM(cc[ac+2]); |
531 | 10.7M | RE(t4) = RE(cc[ac+1]) - RE(cc[ac+2]); |
532 | 10.7M | IM(t4) = IM(cc[ac+1]) - IM(cc[ac+2]); |
533 | 10.7M | RE(t5) = RE(cc[ac]) - RE(cc[ac+3]); |
534 | 10.7M | IM(t5) = IM(cc[ac]) - IM(cc[ac+3]); |
535 | | |
536 | 10.7M | RE(ch[ah]) = RE(cc[ac-1]) + RE(t2) + RE(t3); |
537 | 10.7M | IM(ch[ah]) = IM(cc[ac-1]) + IM(t2) + IM(t3); |
538 | | |
539 | 10.7M | RE(c2) = RE(cc[ac-1]) + MUL_F(RE(t2),tr11) + MUL_F(RE(t3),tr12); |
540 | 10.7M | IM(c2) = IM(cc[ac-1]) + MUL_F(IM(t2),tr11) + MUL_F(IM(t3),tr12); |
541 | 10.7M | RE(c3) = RE(cc[ac-1]) + MUL_F(RE(t2),tr12) + MUL_F(RE(t3),tr11); |
542 | 10.7M | IM(c3) = IM(cc[ac-1]) + MUL_F(IM(t2),tr12) + MUL_F(IM(t3),tr11); |
543 | | |
544 | 10.7M | ComplexMult(&RE(c5), &RE(c4), |
545 | 10.7M | ti11, ti12, RE(t5), RE(t4)); |
546 | 10.7M | ComplexMult(&IM(c5), &IM(c4), |
547 | 10.7M | ti11, ti12, IM(t5), IM(t4)); |
548 | | |
549 | 10.7M | RE(ch[ah+l1]) = RE(c2) - IM(c5); |
550 | 10.7M | IM(ch[ah+l1]) = IM(c2) + RE(c5); |
551 | 10.7M | RE(ch[ah+2*l1]) = RE(c3) - IM(c4); |
552 | 10.7M | IM(ch[ah+2*l1]) = IM(c3) + RE(c4); |
553 | 10.7M | RE(ch[ah+3*l1]) = RE(c3) + IM(c4); |
554 | 10.7M | IM(ch[ah+3*l1]) = IM(c3) - RE(c4); |
555 | 10.7M | RE(ch[ah+4*l1]) = RE(c2) + IM(c5); |
556 | 10.7M | IM(ch[ah+4*l1]) = IM(c2) - RE(c5); |
557 | 10.7M | } |
558 | 211k | } else { |
559 | 746k | for (k = 0; k < l1; k++) |
560 | 738k | { |
561 | 738k | ac = 5*k + 1; |
562 | 738k | ah = k; |
563 | | |
564 | 738k | RE(t2) = RE(cc[ac]) + RE(cc[ac+3]); |
565 | 738k | IM(t2) = IM(cc[ac]) + IM(cc[ac+3]); |
566 | 738k | RE(t3) = RE(cc[ac+1]) + RE(cc[ac+2]); |
567 | 738k | IM(t3) = IM(cc[ac+1]) + IM(cc[ac+2]); |
568 | 738k | RE(t4) = RE(cc[ac+1]) - RE(cc[ac+2]); |
569 | 738k | IM(t4) = IM(cc[ac+1]) - IM(cc[ac+2]); |
570 | 738k | RE(t5) = RE(cc[ac]) - RE(cc[ac+3]); |
571 | 738k | IM(t5) = IM(cc[ac]) - IM(cc[ac+3]); |
572 | | |
573 | 738k | RE(ch[ah]) = RE(cc[ac-1]) + RE(t2) + RE(t3); |
574 | 738k | IM(ch[ah]) = IM(cc[ac-1]) + IM(t2) + IM(t3); |
575 | | |
576 | 738k | RE(c2) = RE(cc[ac-1]) + MUL_F(RE(t2),tr11) + MUL_F(RE(t3),tr12); |
577 | 738k | IM(c2) = IM(cc[ac-1]) + MUL_F(IM(t2),tr11) + MUL_F(IM(t3),tr12); |
578 | 738k | RE(c3) = RE(cc[ac-1]) + MUL_F(RE(t2),tr12) + MUL_F(RE(t3),tr11); |
579 | 738k | IM(c3) = IM(cc[ac-1]) + MUL_F(IM(t2),tr12) + MUL_F(IM(t3),tr11); |
580 | | |
581 | 738k | ComplexMult(&RE(c4), &RE(c5), |
582 | 738k | ti12, ti11, RE(t5), RE(t4)); |
583 | 738k | ComplexMult(&IM(c4), &IM(c5), |
584 | 738k | ti12, ti11, IM(t5), IM(t4)); |
585 | | |
586 | 738k | RE(ch[ah+l1]) = RE(c2) + IM(c5); |
587 | 738k | IM(ch[ah+l1]) = IM(c2) - RE(c5); |
588 | 738k | RE(ch[ah+2*l1]) = RE(c3) + IM(c4); |
589 | 738k | IM(ch[ah+2*l1]) = IM(c3) - RE(c4); |
590 | 738k | RE(ch[ah+3*l1]) = RE(c3) - IM(c4); |
591 | 738k | IM(ch[ah+3*l1]) = IM(c3) + RE(c4); |
592 | 738k | RE(ch[ah+4*l1]) = RE(c2) - IM(c5); |
593 | 738k | IM(ch[ah+4*l1]) = IM(c2) + RE(c5); |
594 | 738k | } |
595 | 7.80k | } |
596 | 218k | } else { |
597 | 0 | #ifdef FUZZING_BUILD_MODE_UNSAFE_FOR_PRODUCTION |
598 | | // TODO: remove this code once fuzzer proves it is totally unreahable |
599 | | // 5 if the biggest factor and it never repeated for supported frame |
600 | | // lengths; consequently `ido` should always be 1. |
601 | 0 | __builtin_trap(); |
602 | | /* |
603 | | #else |
604 | | uint16_t i; |
605 | | complex_t d3, d4, d5, d2; |
606 | | #endif |
607 | | if (isign == 1) |
608 | | { |
609 | | for (k = 0; k < l1; k++) |
610 | | { |
611 | | for (i = 0; i < ido; i++) |
612 | | { |
613 | | ac = i + (k*5 + 1) * ido; |
614 | | ah = i + k * ido; |
615 | | |
616 | | RE(t2) = RE(cc[ac]) + RE(cc[ac+3*ido]); |
617 | | IM(t2) = IM(cc[ac]) + IM(cc[ac+3*ido]); |
618 | | RE(t3) = RE(cc[ac+ido]) + RE(cc[ac+2*ido]); |
619 | | IM(t3) = IM(cc[ac+ido]) + IM(cc[ac+2*ido]); |
620 | | RE(t4) = RE(cc[ac+ido]) - RE(cc[ac+2*ido]); |
621 | | IM(t4) = IM(cc[ac+ido]) - IM(cc[ac+2*ido]); |
622 | | RE(t5) = RE(cc[ac]) - RE(cc[ac+3*ido]); |
623 | | IM(t5) = IM(cc[ac]) - IM(cc[ac+3*ido]); |
624 | | |
625 | | RE(ch[ah]) = RE(cc[ac-ido]) + RE(t2) + RE(t3); |
626 | | IM(ch[ah]) = IM(cc[ac-ido]) + IM(t2) + IM(t3); |
627 | | |
628 | | RE(c2) = RE(cc[ac-ido]) + MUL_F(RE(t2),tr11) + MUL_F(RE(t3),tr12); |
629 | | IM(c2) = IM(cc[ac-ido]) + MUL_F(IM(t2),tr11) + MUL_F(IM(t3),tr12); |
630 | | RE(c3) = RE(cc[ac-ido]) + MUL_F(RE(t2),tr12) + MUL_F(RE(t3),tr11); |
631 | | IM(c3) = IM(cc[ac-ido]) + MUL_F(IM(t2),tr12) + MUL_F(IM(t3),tr11); |
632 | | |
633 | | ComplexMult(&RE(c5), &RE(c4), |
634 | | ti11, ti12, RE(t5), RE(t4)); |
635 | | ComplexMult(&IM(c5), &IM(c4), |
636 | | ti11, ti12, IM(t5), IM(t4)); |
637 | | |
638 | | IM(d2) = IM(c2) + RE(c5); |
639 | | IM(d3) = IM(c3) + RE(c4); |
640 | | RE(d4) = RE(c3) + IM(c4); |
641 | | RE(d5) = RE(c2) + IM(c5); |
642 | | RE(d2) = RE(c2) - IM(c5); |
643 | | IM(d5) = IM(c2) - RE(c5); |
644 | | RE(d3) = RE(c3) - IM(c4); |
645 | | IM(d4) = IM(c3) - RE(c4); |
646 | | |
647 | | #if 1 |
648 | | ComplexMult(&IM(ch[ah+l1*ido]), &RE(ch[ah+l1*ido]), |
649 | | IM(d2), RE(d2), RE(wa1[i]), IM(wa1[i])); |
650 | | ComplexMult(&IM(ch[ah+2*l1*ido]), &RE(ch[ah+2*l1*ido]), |
651 | | IM(d3), RE(d3), RE(wa2[i]), IM(wa2[i])); |
652 | | ComplexMult(&IM(ch[ah+3*l1*ido]), &RE(ch[ah+3*l1*ido]), |
653 | | IM(d4), RE(d4), RE(wa3[i]), IM(wa3[i])); |
654 | | ComplexMult(&IM(ch[ah+4*l1*ido]), &RE(ch[ah+4*l1*ido]), |
655 | | IM(d5), RE(d5), RE(wa4[i]), IM(wa4[i])); |
656 | | #else |
657 | | ComplexMult(&RE(ch[ah+l1*ido]), &IM(ch[ah+l1*ido]), |
658 | | RE(d2), IM(d2), RE(wa1[i]), IM(wa1[i])); |
659 | | ComplexMult(&RE(ch[ah+2*l1*ido]), &IM(ch[ah+2*l1*ido]), |
660 | | RE(d3), IM(d3), RE(wa2[i]), IM(wa2[i])); |
661 | | ComplexMult(&RE(ch[ah+3*l1*ido]), &IM(ch[ah+3*l1*ido]), |
662 | | RE(d4), IM(d4), RE(wa3[i]), IM(wa3[i])); |
663 | | ComplexMult(&RE(ch[ah+4*l1*ido]), &IM(ch[ah+4*l1*ido]), |
664 | | RE(d5), IM(d5), RE(wa4[i]), IM(wa4[i])); |
665 | | #endif |
666 | | } |
667 | | } |
668 | | } else { |
669 | | for (k = 0; k < l1; k++) |
670 | | { |
671 | | for (i = 0; i < ido; i++) |
672 | | { |
673 | | ac = i + (k*5 + 1) * ido; |
674 | | ah = i + k * ido; |
675 | | |
676 | | RE(t2) = RE(cc[ac]) + RE(cc[ac+3*ido]); |
677 | | IM(t2) = IM(cc[ac]) + IM(cc[ac+3*ido]); |
678 | | RE(t3) = RE(cc[ac+ido]) + RE(cc[ac+2*ido]); |
679 | | IM(t3) = IM(cc[ac+ido]) + IM(cc[ac+2*ido]); |
680 | | RE(t4) = RE(cc[ac+ido]) - RE(cc[ac+2*ido]); |
681 | | IM(t4) = IM(cc[ac+ido]) - IM(cc[ac+2*ido]); |
682 | | RE(t5) = RE(cc[ac]) - RE(cc[ac+3*ido]); |
683 | | IM(t5) = IM(cc[ac]) - IM(cc[ac+3*ido]); |
684 | | |
685 | | RE(ch[ah]) = RE(cc[ac-ido]) + RE(t2) + RE(t3); |
686 | | IM(ch[ah]) = IM(cc[ac-ido]) + IM(t2) + IM(t3); |
687 | | |
688 | | RE(c2) = RE(cc[ac-ido]) + MUL_F(RE(t2),tr11) + MUL_F(RE(t3),tr12); |
689 | | IM(c2) = IM(cc[ac-ido]) + MUL_F(IM(t2),tr11) + MUL_F(IM(t3),tr12); |
690 | | RE(c3) = RE(cc[ac-ido]) + MUL_F(RE(t2),tr12) + MUL_F(RE(t3),tr11); |
691 | | IM(c3) = IM(cc[ac-ido]) + MUL_F(IM(t2),tr12) + MUL_F(IM(t3),tr11); |
692 | | |
693 | | ComplexMult(&RE(c4), &RE(c5), |
694 | | ti12, ti11, RE(t5), RE(t4)); |
695 | | ComplexMult(&IM(c4), &IM(c5), |
696 | | ti12, ti11, IM(t5), IM(t4)); |
697 | | |
698 | | IM(d2) = IM(c2) - RE(c5); |
699 | | IM(d3) = IM(c3) - RE(c4); |
700 | | RE(d4) = RE(c3) - IM(c4); |
701 | | RE(d5) = RE(c2) - IM(c5); |
702 | | RE(d2) = RE(c2) + IM(c5); |
703 | | IM(d5) = IM(c2) + RE(c5); |
704 | | RE(d3) = RE(c3) + IM(c4); |
705 | | IM(d4) = IM(c3) + RE(c4); |
706 | | |
707 | | #if 1 |
708 | | ComplexMult(&RE(ch[ah+l1*ido]), &IM(ch[ah+l1*ido]), |
709 | | RE(d2), IM(d2), RE(wa1[i]), IM(wa1[i])); |
710 | | ComplexMult(&RE(ch[ah+2*l1*ido]), &IM(ch[ah+2*l1*ido]), |
711 | | RE(d3), IM(d3), RE(wa2[i]), IM(wa2[i])); |
712 | | ComplexMult(&RE(ch[ah+3*l1*ido]), &IM(ch[ah+3*l1*ido]), |
713 | | RE(d4), IM(d4), RE(wa3[i]), IM(wa3[i])); |
714 | | ComplexMult(&RE(ch[ah+4*l1*ido]), &IM(ch[ah+4*l1*ido]), |
715 | | RE(d5), IM(d5), RE(wa4[i]), IM(wa4[i])); |
716 | | #else |
717 | | ComplexMult(&IM(ch[ah+l1*ido]), &RE(ch[ah+l1*ido]), |
718 | | IM(d2), RE(d2), RE(wa1[i]), IM(wa1[i])); |
719 | | ComplexMult(&IM(ch[ah+2*l1*ido]), &RE(ch[ah+2*l1*ido]), |
720 | | IM(d3), RE(d3), RE(wa2[i]), IM(wa2[i])); |
721 | | ComplexMult(&IM(ch[ah+3*l1*ido]), &RE(ch[ah+3*l1*ido]), |
722 | | IM(d4), RE(d4), RE(wa3[i]), IM(wa3[i])); |
723 | | ComplexMult(&IM(ch[ah+4*l1*ido]), &RE(ch[ah+4*l1*ido]), |
724 | | IM(d5), RE(d5), RE(wa4[i]), IM(wa4[i])); |
725 | | #endif |
726 | | } |
727 | | } |
728 | | } |
729 | | #ifdef FUZZING_BUILD_MODE_UNSAFE_FOR_PRODUCTION |
730 | | */ |
731 | 0 | #endif |
732 | 0 | } |
733 | 218k | } Line | Count | Source | 506 | 91.5k | { | 507 | 91.5k | static real_t tr11 = FRAC_CONST(0.309016994374947); | 508 | 91.5k | static real_t ti11 = FRAC_CONST(0.951056516295154); | 509 | 91.5k | static real_t tr12 = FRAC_CONST(-0.809016994374947); | 510 | 91.5k | static real_t ti12 = FRAC_CONST(0.587785252292473); | 511 | 91.5k | uint16_t k, ac, ah; | 512 | 91.5k | complex_t c2, c3, c4, c5, t2, t3, t4, t5; | 513 | 91.5k | (void)wa1; | 514 | 91.5k | (void)wa2; | 515 | 91.5k | (void)wa3; | 516 | 91.5k | (void)wa4; | 517 | | | 518 | 91.5k | if (ido == 1) | 519 | 91.5k | { | 520 | 91.5k | if (isign == 1) | 521 | 87.7k | { | 522 | 4.59M | for (k = 0; k < l1; k++) | 523 | 4.50M | { | 524 | 4.50M | ac = 5*k + 1; | 525 | 4.50M | ah = k; | 526 | | | 527 | 4.50M | RE(t2) = RE(cc[ac]) + RE(cc[ac+3]); | 528 | 4.50M | IM(t2) = IM(cc[ac]) + IM(cc[ac+3]); | 529 | 4.50M | RE(t3) = RE(cc[ac+1]) + RE(cc[ac+2]); | 530 | 4.50M | IM(t3) = IM(cc[ac+1]) + IM(cc[ac+2]); | 531 | 4.50M | RE(t4) = RE(cc[ac+1]) - RE(cc[ac+2]); | 532 | 4.50M | IM(t4) = IM(cc[ac+1]) - IM(cc[ac+2]); | 533 | 4.50M | RE(t5) = RE(cc[ac]) - RE(cc[ac+3]); | 534 | 4.50M | IM(t5) = IM(cc[ac]) - IM(cc[ac+3]); | 535 | | | 536 | 4.50M | RE(ch[ah]) = RE(cc[ac-1]) + RE(t2) + RE(t3); | 537 | 4.50M | IM(ch[ah]) = IM(cc[ac-1]) + IM(t2) + IM(t3); | 538 | | | 539 | 4.50M | RE(c2) = RE(cc[ac-1]) + MUL_F(RE(t2),tr11) + MUL_F(RE(t3),tr12); | 540 | 4.50M | IM(c2) = IM(cc[ac-1]) + MUL_F(IM(t2),tr11) + MUL_F(IM(t3),tr12); | 541 | 4.50M | RE(c3) = RE(cc[ac-1]) + MUL_F(RE(t2),tr12) + MUL_F(RE(t3),tr11); | 542 | 4.50M | IM(c3) = IM(cc[ac-1]) + MUL_F(IM(t2),tr12) + MUL_F(IM(t3),tr11); | 543 | | | 544 | 4.50M | ComplexMult(&RE(c5), &RE(c4), | 545 | 4.50M | ti11, ti12, RE(t5), RE(t4)); | 546 | 4.50M | ComplexMult(&IM(c5), &IM(c4), | 547 | 4.50M | ti11, ti12, IM(t5), IM(t4)); | 548 | | | 549 | 4.50M | RE(ch[ah+l1]) = RE(c2) - IM(c5); | 550 | 4.50M | IM(ch[ah+l1]) = IM(c2) + RE(c5); | 551 | 4.50M | RE(ch[ah+2*l1]) = RE(c3) - IM(c4); | 552 | 4.50M | IM(ch[ah+2*l1]) = IM(c3) + RE(c4); | 553 | 4.50M | RE(ch[ah+3*l1]) = RE(c3) + IM(c4); | 554 | 4.50M | IM(ch[ah+3*l1]) = IM(c3) - RE(c4); | 555 | 4.50M | RE(ch[ah+4*l1]) = RE(c2) + IM(c5); | 556 | 4.50M | IM(ch[ah+4*l1]) = IM(c2) - RE(c5); | 557 | 4.50M | } | 558 | 87.7k | } else { | 559 | 365k | for (k = 0; k < l1; k++) | 560 | 361k | { | 561 | 361k | ac = 5*k + 1; | 562 | 361k | ah = k; | 563 | | | 564 | 361k | RE(t2) = RE(cc[ac]) + RE(cc[ac+3]); | 565 | 361k | IM(t2) = IM(cc[ac]) + IM(cc[ac+3]); | 566 | 361k | RE(t3) = RE(cc[ac+1]) + RE(cc[ac+2]); | 567 | 361k | IM(t3) = IM(cc[ac+1]) + IM(cc[ac+2]); | 568 | 361k | RE(t4) = RE(cc[ac+1]) - RE(cc[ac+2]); | 569 | 361k | IM(t4) = IM(cc[ac+1]) - IM(cc[ac+2]); | 570 | 361k | RE(t5) = RE(cc[ac]) - RE(cc[ac+3]); | 571 | 361k | IM(t5) = IM(cc[ac]) - IM(cc[ac+3]); | 572 | | | 573 | 361k | RE(ch[ah]) = RE(cc[ac-1]) + RE(t2) + RE(t3); | 574 | 361k | IM(ch[ah]) = IM(cc[ac-1]) + IM(t2) + IM(t3); | 575 | | | 576 | 361k | RE(c2) = RE(cc[ac-1]) + MUL_F(RE(t2),tr11) + MUL_F(RE(t3),tr12); | 577 | 361k | IM(c2) = IM(cc[ac-1]) + MUL_F(IM(t2),tr11) + MUL_F(IM(t3),tr12); | 578 | 361k | RE(c3) = RE(cc[ac-1]) + MUL_F(RE(t2),tr12) + MUL_F(RE(t3),tr11); | 579 | 361k | IM(c3) = IM(cc[ac-1]) + MUL_F(IM(t2),tr12) + MUL_F(IM(t3),tr11); | 580 | | | 581 | 361k | ComplexMult(&RE(c4), &RE(c5), | 582 | 361k | ti12, ti11, RE(t5), RE(t4)); | 583 | 361k | ComplexMult(&IM(c4), &IM(c5), | 584 | 361k | ti12, ti11, IM(t5), IM(t4)); | 585 | | | 586 | 361k | RE(ch[ah+l1]) = RE(c2) + IM(c5); | 587 | 361k | IM(ch[ah+l1]) = IM(c2) - RE(c5); | 588 | 361k | RE(ch[ah+2*l1]) = RE(c3) + IM(c4); | 589 | 361k | IM(ch[ah+2*l1]) = IM(c3) - RE(c4); | 590 | 361k | RE(ch[ah+3*l1]) = RE(c3) - IM(c4); | 591 | 361k | IM(ch[ah+3*l1]) = IM(c3) + RE(c4); | 592 | 361k | RE(ch[ah+4*l1]) = RE(c2) - IM(c5); | 593 | 361k | IM(ch[ah+4*l1]) = IM(c2) + RE(c5); | 594 | 361k | } | 595 | 3.81k | } | 596 | 91.5k | } else { | 597 | 0 | #ifdef FUZZING_BUILD_MODE_UNSAFE_FOR_PRODUCTION | 598 | | // TODO: remove this code once fuzzer proves it is totally unreahable | 599 | | // 5 if the biggest factor and it never repeated for supported frame | 600 | | // lengths; consequently `ido` should always be 1. | 601 | 0 | __builtin_trap(); | 602 | | /* | 603 | | #else | 604 | | uint16_t i; | 605 | | complex_t d3, d4, d5, d2; | 606 | | #endif | 607 | | if (isign == 1) | 608 | | { | 609 | | for (k = 0; k < l1; k++) | 610 | | { | 611 | | for (i = 0; i < ido; i++) | 612 | | { | 613 | | ac = i + (k*5 + 1) * ido; | 614 | | ah = i + k * ido; | 615 | | | 616 | | RE(t2) = RE(cc[ac]) + RE(cc[ac+3*ido]); | 617 | | IM(t2) = IM(cc[ac]) + IM(cc[ac+3*ido]); | 618 | | RE(t3) = RE(cc[ac+ido]) + RE(cc[ac+2*ido]); | 619 | | IM(t3) = IM(cc[ac+ido]) + IM(cc[ac+2*ido]); | 620 | | RE(t4) = RE(cc[ac+ido]) - RE(cc[ac+2*ido]); | 621 | | IM(t4) = IM(cc[ac+ido]) - IM(cc[ac+2*ido]); | 622 | | RE(t5) = RE(cc[ac]) - RE(cc[ac+3*ido]); | 623 | | IM(t5) = IM(cc[ac]) - IM(cc[ac+3*ido]); | 624 | | | 625 | | RE(ch[ah]) = RE(cc[ac-ido]) + RE(t2) + RE(t3); | 626 | | IM(ch[ah]) = IM(cc[ac-ido]) + IM(t2) + IM(t3); | 627 | | | 628 | | RE(c2) = RE(cc[ac-ido]) + MUL_F(RE(t2),tr11) + MUL_F(RE(t3),tr12); | 629 | | IM(c2) = IM(cc[ac-ido]) + MUL_F(IM(t2),tr11) + MUL_F(IM(t3),tr12); | 630 | | RE(c3) = RE(cc[ac-ido]) + MUL_F(RE(t2),tr12) + MUL_F(RE(t3),tr11); | 631 | | IM(c3) = IM(cc[ac-ido]) + MUL_F(IM(t2),tr12) + MUL_F(IM(t3),tr11); | 632 | | | 633 | | ComplexMult(&RE(c5), &RE(c4), | 634 | | ti11, ti12, RE(t5), RE(t4)); | 635 | | ComplexMult(&IM(c5), &IM(c4), | 636 | | ti11, ti12, IM(t5), IM(t4)); | 637 | | | 638 | | IM(d2) = IM(c2) + RE(c5); | 639 | | IM(d3) = IM(c3) + RE(c4); | 640 | | RE(d4) = RE(c3) + IM(c4); | 641 | | RE(d5) = RE(c2) + IM(c5); | 642 | | RE(d2) = RE(c2) - IM(c5); | 643 | | IM(d5) = IM(c2) - RE(c5); | 644 | | RE(d3) = RE(c3) - IM(c4); | 645 | | IM(d4) = IM(c3) - RE(c4); | 646 | | | 647 | | #if 1 | 648 | | ComplexMult(&IM(ch[ah+l1*ido]), &RE(ch[ah+l1*ido]), | 649 | | IM(d2), RE(d2), RE(wa1[i]), IM(wa1[i])); | 650 | | ComplexMult(&IM(ch[ah+2*l1*ido]), &RE(ch[ah+2*l1*ido]), | 651 | | IM(d3), RE(d3), RE(wa2[i]), IM(wa2[i])); | 652 | | ComplexMult(&IM(ch[ah+3*l1*ido]), &RE(ch[ah+3*l1*ido]), | 653 | | IM(d4), RE(d4), RE(wa3[i]), IM(wa3[i])); | 654 | | ComplexMult(&IM(ch[ah+4*l1*ido]), &RE(ch[ah+4*l1*ido]), | 655 | | IM(d5), RE(d5), RE(wa4[i]), IM(wa4[i])); | 656 | | #else | 657 | | ComplexMult(&RE(ch[ah+l1*ido]), &IM(ch[ah+l1*ido]), | 658 | | RE(d2), IM(d2), RE(wa1[i]), IM(wa1[i])); | 659 | | ComplexMult(&RE(ch[ah+2*l1*ido]), &IM(ch[ah+2*l1*ido]), | 660 | | RE(d3), IM(d3), RE(wa2[i]), IM(wa2[i])); | 661 | | ComplexMult(&RE(ch[ah+3*l1*ido]), &IM(ch[ah+3*l1*ido]), | 662 | | RE(d4), IM(d4), RE(wa3[i]), IM(wa3[i])); | 663 | | ComplexMult(&RE(ch[ah+4*l1*ido]), &IM(ch[ah+4*l1*ido]), | 664 | | RE(d5), IM(d5), RE(wa4[i]), IM(wa4[i])); | 665 | | #endif | 666 | | } | 667 | | } | 668 | | } else { | 669 | | for (k = 0; k < l1; k++) | 670 | | { | 671 | | for (i = 0; i < ido; i++) | 672 | | { | 673 | | ac = i + (k*5 + 1) * ido; | 674 | | ah = i + k * ido; | 675 | | | 676 | | RE(t2) = RE(cc[ac]) + RE(cc[ac+3*ido]); | 677 | | IM(t2) = IM(cc[ac]) + IM(cc[ac+3*ido]); | 678 | | RE(t3) = RE(cc[ac+ido]) + RE(cc[ac+2*ido]); | 679 | | IM(t3) = IM(cc[ac+ido]) + IM(cc[ac+2*ido]); | 680 | | RE(t4) = RE(cc[ac+ido]) - RE(cc[ac+2*ido]); | 681 | | IM(t4) = IM(cc[ac+ido]) - IM(cc[ac+2*ido]); | 682 | | RE(t5) = RE(cc[ac]) - RE(cc[ac+3*ido]); | 683 | | IM(t5) = IM(cc[ac]) - IM(cc[ac+3*ido]); | 684 | | | 685 | | RE(ch[ah]) = RE(cc[ac-ido]) + RE(t2) + RE(t3); | 686 | | IM(ch[ah]) = IM(cc[ac-ido]) + IM(t2) + IM(t3); | 687 | | | 688 | | RE(c2) = RE(cc[ac-ido]) + MUL_F(RE(t2),tr11) + MUL_F(RE(t3),tr12); | 689 | | IM(c2) = IM(cc[ac-ido]) + MUL_F(IM(t2),tr11) + MUL_F(IM(t3),tr12); | 690 | | RE(c3) = RE(cc[ac-ido]) + MUL_F(RE(t2),tr12) + MUL_F(RE(t3),tr11); | 691 | | IM(c3) = IM(cc[ac-ido]) + MUL_F(IM(t2),tr12) + MUL_F(IM(t3),tr11); | 692 | | | 693 | | ComplexMult(&RE(c4), &RE(c5), | 694 | | ti12, ti11, RE(t5), RE(t4)); | 695 | | ComplexMult(&IM(c4), &IM(c5), | 696 | | ti12, ti11, IM(t5), IM(t4)); | 697 | | | 698 | | IM(d2) = IM(c2) - RE(c5); | 699 | | IM(d3) = IM(c3) - RE(c4); | 700 | | RE(d4) = RE(c3) - IM(c4); | 701 | | RE(d5) = RE(c2) - IM(c5); | 702 | | RE(d2) = RE(c2) + IM(c5); | 703 | | IM(d5) = IM(c2) + RE(c5); | 704 | | RE(d3) = RE(c3) + IM(c4); | 705 | | IM(d4) = IM(c3) + RE(c4); | 706 | | | 707 | | #if 1 | 708 | | ComplexMult(&RE(ch[ah+l1*ido]), &IM(ch[ah+l1*ido]), | 709 | | RE(d2), IM(d2), RE(wa1[i]), IM(wa1[i])); | 710 | | ComplexMult(&RE(ch[ah+2*l1*ido]), &IM(ch[ah+2*l1*ido]), | 711 | | RE(d3), IM(d3), RE(wa2[i]), IM(wa2[i])); | 712 | | ComplexMult(&RE(ch[ah+3*l1*ido]), &IM(ch[ah+3*l1*ido]), | 713 | | RE(d4), IM(d4), RE(wa3[i]), IM(wa3[i])); | 714 | | ComplexMult(&RE(ch[ah+4*l1*ido]), &IM(ch[ah+4*l1*ido]), | 715 | | RE(d5), IM(d5), RE(wa4[i]), IM(wa4[i])); | 716 | | #else | 717 | | ComplexMult(&IM(ch[ah+l1*ido]), &RE(ch[ah+l1*ido]), | 718 | | IM(d2), RE(d2), RE(wa1[i]), IM(wa1[i])); | 719 | | ComplexMult(&IM(ch[ah+2*l1*ido]), &RE(ch[ah+2*l1*ido]), | 720 | | IM(d3), RE(d3), RE(wa2[i]), IM(wa2[i])); | 721 | | ComplexMult(&IM(ch[ah+3*l1*ido]), &RE(ch[ah+3*l1*ido]), | 722 | | IM(d4), RE(d4), RE(wa3[i]), IM(wa3[i])); | 723 | | ComplexMult(&IM(ch[ah+4*l1*ido]), &RE(ch[ah+4*l1*ido]), | 724 | | IM(d5), RE(d5), RE(wa4[i]), IM(wa4[i])); | 725 | | #endif | 726 | | } | 727 | | } | 728 | | } | 729 | | #ifdef FUZZING_BUILD_MODE_UNSAFE_FOR_PRODUCTION | 730 | | */ | 731 | 0 | #endif | 732 | 0 | } | 733 | 91.5k | } |
Line | Count | Source | 506 | 127k | { | 507 | 127k | static real_t tr11 = FRAC_CONST(0.309016994374947); | 508 | 127k | static real_t ti11 = FRAC_CONST(0.951056516295154); | 509 | 127k | static real_t tr12 = FRAC_CONST(-0.809016994374947); | 510 | 127k | static real_t ti12 = FRAC_CONST(0.587785252292473); | 511 | 127k | uint16_t k, ac, ah; | 512 | 127k | complex_t c2, c3, c4, c5, t2, t3, t4, t5; | 513 | 127k | (void)wa1; | 514 | 127k | (void)wa2; | 515 | 127k | (void)wa3; | 516 | 127k | (void)wa4; | 517 | | | 518 | 127k | if (ido == 1) | 519 | 127k | { | 520 | 127k | if (isign == 1) | 521 | 123k | { | 522 | 6.41M | for (k = 0; k < l1; k++) | 523 | 6.29M | { | 524 | 6.29M | ac = 5*k + 1; | 525 | 6.29M | ah = k; | 526 | | | 527 | 6.29M | RE(t2) = RE(cc[ac]) + RE(cc[ac+3]); | 528 | 6.29M | IM(t2) = IM(cc[ac]) + IM(cc[ac+3]); | 529 | 6.29M | RE(t3) = RE(cc[ac+1]) + RE(cc[ac+2]); | 530 | 6.29M | IM(t3) = IM(cc[ac+1]) + IM(cc[ac+2]); | 531 | 6.29M | RE(t4) = RE(cc[ac+1]) - RE(cc[ac+2]); | 532 | 6.29M | IM(t4) = IM(cc[ac+1]) - IM(cc[ac+2]); | 533 | 6.29M | RE(t5) = RE(cc[ac]) - RE(cc[ac+3]); | 534 | 6.29M | IM(t5) = IM(cc[ac]) - IM(cc[ac+3]); | 535 | | | 536 | 6.29M | RE(ch[ah]) = RE(cc[ac-1]) + RE(t2) + RE(t3); | 537 | 6.29M | IM(ch[ah]) = IM(cc[ac-1]) + IM(t2) + IM(t3); | 538 | | | 539 | 6.29M | RE(c2) = RE(cc[ac-1]) + MUL_F(RE(t2),tr11) + MUL_F(RE(t3),tr12); | 540 | 6.29M | IM(c2) = IM(cc[ac-1]) + MUL_F(IM(t2),tr11) + MUL_F(IM(t3),tr12); | 541 | 6.29M | RE(c3) = RE(cc[ac-1]) + MUL_F(RE(t2),tr12) + MUL_F(RE(t3),tr11); | 542 | 6.29M | IM(c3) = IM(cc[ac-1]) + MUL_F(IM(t2),tr12) + MUL_F(IM(t3),tr11); | 543 | | | 544 | 6.29M | ComplexMult(&RE(c5), &RE(c4), | 545 | 6.29M | ti11, ti12, RE(t5), RE(t4)); | 546 | 6.29M | ComplexMult(&IM(c5), &IM(c4), | 547 | 6.29M | ti11, ti12, IM(t5), IM(t4)); | 548 | | | 549 | 6.29M | RE(ch[ah+l1]) = RE(c2) - IM(c5); | 550 | 6.29M | IM(ch[ah+l1]) = IM(c2) + RE(c5); | 551 | 6.29M | RE(ch[ah+2*l1]) = RE(c3) - IM(c4); | 552 | 6.29M | IM(ch[ah+2*l1]) = IM(c3) + RE(c4); | 553 | 6.29M | RE(ch[ah+3*l1]) = RE(c3) + IM(c4); | 554 | 6.29M | IM(ch[ah+3*l1]) = IM(c3) - RE(c4); | 555 | 6.29M | RE(ch[ah+4*l1]) = RE(c2) + IM(c5); | 556 | 6.29M | IM(ch[ah+4*l1]) = IM(c2) - RE(c5); | 557 | 6.29M | } | 558 | 123k | } else { | 559 | 381k | for (k = 0; k < l1; k++) | 560 | 377k | { | 561 | 377k | ac = 5*k + 1; | 562 | 377k | ah = k; | 563 | | | 564 | 377k | RE(t2) = RE(cc[ac]) + RE(cc[ac+3]); | 565 | 377k | IM(t2) = IM(cc[ac]) + IM(cc[ac+3]); | 566 | 377k | RE(t3) = RE(cc[ac+1]) + RE(cc[ac+2]); | 567 | 377k | IM(t3) = IM(cc[ac+1]) + IM(cc[ac+2]); | 568 | 377k | RE(t4) = RE(cc[ac+1]) - RE(cc[ac+2]); | 569 | 377k | IM(t4) = IM(cc[ac+1]) - IM(cc[ac+2]); | 570 | 377k | RE(t5) = RE(cc[ac]) - RE(cc[ac+3]); | 571 | 377k | IM(t5) = IM(cc[ac]) - IM(cc[ac+3]); | 572 | | | 573 | 377k | RE(ch[ah]) = RE(cc[ac-1]) + RE(t2) + RE(t3); | 574 | 377k | IM(ch[ah]) = IM(cc[ac-1]) + IM(t2) + IM(t3); | 575 | | | 576 | 377k | RE(c2) = RE(cc[ac-1]) + MUL_F(RE(t2),tr11) + MUL_F(RE(t3),tr12); | 577 | 377k | IM(c2) = IM(cc[ac-1]) + MUL_F(IM(t2),tr11) + MUL_F(IM(t3),tr12); | 578 | 377k | RE(c3) = RE(cc[ac-1]) + MUL_F(RE(t2),tr12) + MUL_F(RE(t3),tr11); | 579 | 377k | IM(c3) = IM(cc[ac-1]) + MUL_F(IM(t2),tr12) + MUL_F(IM(t3),tr11); | 580 | | | 581 | 377k | ComplexMult(&RE(c4), &RE(c5), | 582 | 377k | ti12, ti11, RE(t5), RE(t4)); | 583 | 377k | ComplexMult(&IM(c4), &IM(c5), | 584 | 377k | ti12, ti11, IM(t5), IM(t4)); | 585 | | | 586 | 377k | RE(ch[ah+l1]) = RE(c2) + IM(c5); | 587 | 377k | IM(ch[ah+l1]) = IM(c2) - RE(c5); | 588 | 377k | RE(ch[ah+2*l1]) = RE(c3) + IM(c4); | 589 | 377k | IM(ch[ah+2*l1]) = IM(c3) - RE(c4); | 590 | 377k | RE(ch[ah+3*l1]) = RE(c3) - IM(c4); | 591 | 377k | IM(ch[ah+3*l1]) = IM(c3) + RE(c4); | 592 | 377k | RE(ch[ah+4*l1]) = RE(c2) - IM(c5); | 593 | 377k | IM(ch[ah+4*l1]) = IM(c2) + RE(c5); | 594 | 377k | } | 595 | 3.98k | } | 596 | 127k | } else { | 597 | 0 | #ifdef FUZZING_BUILD_MODE_UNSAFE_FOR_PRODUCTION | 598 | | // TODO: remove this code once fuzzer proves it is totally unreahable | 599 | | // 5 if the biggest factor and it never repeated for supported frame | 600 | | // lengths; consequently `ido` should always be 1. | 601 | 0 | __builtin_trap(); | 602 | | /* | 603 | | #else | 604 | | uint16_t i; | 605 | | complex_t d3, d4, d5, d2; | 606 | | #endif | 607 | | if (isign == 1) | 608 | | { | 609 | | for (k = 0; k < l1; k++) | 610 | | { | 611 | | for (i = 0; i < ido; i++) | 612 | | { | 613 | | ac = i + (k*5 + 1) * ido; | 614 | | ah = i + k * ido; | 615 | | | 616 | | RE(t2) = RE(cc[ac]) + RE(cc[ac+3*ido]); | 617 | | IM(t2) = IM(cc[ac]) + IM(cc[ac+3*ido]); | 618 | | RE(t3) = RE(cc[ac+ido]) + RE(cc[ac+2*ido]); | 619 | | IM(t3) = IM(cc[ac+ido]) + IM(cc[ac+2*ido]); | 620 | | RE(t4) = RE(cc[ac+ido]) - RE(cc[ac+2*ido]); | 621 | | IM(t4) = IM(cc[ac+ido]) - IM(cc[ac+2*ido]); | 622 | | RE(t5) = RE(cc[ac]) - RE(cc[ac+3*ido]); | 623 | | IM(t5) = IM(cc[ac]) - IM(cc[ac+3*ido]); | 624 | | | 625 | | RE(ch[ah]) = RE(cc[ac-ido]) + RE(t2) + RE(t3); | 626 | | IM(ch[ah]) = IM(cc[ac-ido]) + IM(t2) + IM(t3); | 627 | | | 628 | | RE(c2) = RE(cc[ac-ido]) + MUL_F(RE(t2),tr11) + MUL_F(RE(t3),tr12); | 629 | | IM(c2) = IM(cc[ac-ido]) + MUL_F(IM(t2),tr11) + MUL_F(IM(t3),tr12); | 630 | | RE(c3) = RE(cc[ac-ido]) + MUL_F(RE(t2),tr12) + MUL_F(RE(t3),tr11); | 631 | | IM(c3) = IM(cc[ac-ido]) + MUL_F(IM(t2),tr12) + MUL_F(IM(t3),tr11); | 632 | | | 633 | | ComplexMult(&RE(c5), &RE(c4), | 634 | | ti11, ti12, RE(t5), RE(t4)); | 635 | | ComplexMult(&IM(c5), &IM(c4), | 636 | | ti11, ti12, IM(t5), IM(t4)); | 637 | | | 638 | | IM(d2) = IM(c2) + RE(c5); | 639 | | IM(d3) = IM(c3) + RE(c4); | 640 | | RE(d4) = RE(c3) + IM(c4); | 641 | | RE(d5) = RE(c2) + IM(c5); | 642 | | RE(d2) = RE(c2) - IM(c5); | 643 | | IM(d5) = IM(c2) - RE(c5); | 644 | | RE(d3) = RE(c3) - IM(c4); | 645 | | IM(d4) = IM(c3) - RE(c4); | 646 | | | 647 | | #if 1 | 648 | | ComplexMult(&IM(ch[ah+l1*ido]), &RE(ch[ah+l1*ido]), | 649 | | IM(d2), RE(d2), RE(wa1[i]), IM(wa1[i])); | 650 | | ComplexMult(&IM(ch[ah+2*l1*ido]), &RE(ch[ah+2*l1*ido]), | 651 | | IM(d3), RE(d3), RE(wa2[i]), IM(wa2[i])); | 652 | | ComplexMult(&IM(ch[ah+3*l1*ido]), &RE(ch[ah+3*l1*ido]), | 653 | | IM(d4), RE(d4), RE(wa3[i]), IM(wa3[i])); | 654 | | ComplexMult(&IM(ch[ah+4*l1*ido]), &RE(ch[ah+4*l1*ido]), | 655 | | IM(d5), RE(d5), RE(wa4[i]), IM(wa4[i])); | 656 | | #else | 657 | | ComplexMult(&RE(ch[ah+l1*ido]), &IM(ch[ah+l1*ido]), | 658 | | RE(d2), IM(d2), RE(wa1[i]), IM(wa1[i])); | 659 | | ComplexMult(&RE(ch[ah+2*l1*ido]), &IM(ch[ah+2*l1*ido]), | 660 | | RE(d3), IM(d3), RE(wa2[i]), IM(wa2[i])); | 661 | | ComplexMult(&RE(ch[ah+3*l1*ido]), &IM(ch[ah+3*l1*ido]), | 662 | | RE(d4), IM(d4), RE(wa3[i]), IM(wa3[i])); | 663 | | ComplexMult(&RE(ch[ah+4*l1*ido]), &IM(ch[ah+4*l1*ido]), | 664 | | RE(d5), IM(d5), RE(wa4[i]), IM(wa4[i])); | 665 | | #endif | 666 | | } | 667 | | } | 668 | | } else { | 669 | | for (k = 0; k < l1; k++) | 670 | | { | 671 | | for (i = 0; i < ido; i++) | 672 | | { | 673 | | ac = i + (k*5 + 1) * ido; | 674 | | ah = i + k * ido; | 675 | | | 676 | | RE(t2) = RE(cc[ac]) + RE(cc[ac+3*ido]); | 677 | | IM(t2) = IM(cc[ac]) + IM(cc[ac+3*ido]); | 678 | | RE(t3) = RE(cc[ac+ido]) + RE(cc[ac+2*ido]); | 679 | | IM(t3) = IM(cc[ac+ido]) + IM(cc[ac+2*ido]); | 680 | | RE(t4) = RE(cc[ac+ido]) - RE(cc[ac+2*ido]); | 681 | | IM(t4) = IM(cc[ac+ido]) - IM(cc[ac+2*ido]); | 682 | | RE(t5) = RE(cc[ac]) - RE(cc[ac+3*ido]); | 683 | | IM(t5) = IM(cc[ac]) - IM(cc[ac+3*ido]); | 684 | | | 685 | | RE(ch[ah]) = RE(cc[ac-ido]) + RE(t2) + RE(t3); | 686 | | IM(ch[ah]) = IM(cc[ac-ido]) + IM(t2) + IM(t3); | 687 | | | 688 | | RE(c2) = RE(cc[ac-ido]) + MUL_F(RE(t2),tr11) + MUL_F(RE(t3),tr12); | 689 | | IM(c2) = IM(cc[ac-ido]) + MUL_F(IM(t2),tr11) + MUL_F(IM(t3),tr12); | 690 | | RE(c3) = RE(cc[ac-ido]) + MUL_F(RE(t2),tr12) + MUL_F(RE(t3),tr11); | 691 | | IM(c3) = IM(cc[ac-ido]) + MUL_F(IM(t2),tr12) + MUL_F(IM(t3),tr11); | 692 | | | 693 | | ComplexMult(&RE(c4), &RE(c5), | 694 | | ti12, ti11, RE(t5), RE(t4)); | 695 | | ComplexMult(&IM(c4), &IM(c5), | 696 | | ti12, ti11, IM(t5), IM(t4)); | 697 | | | 698 | | IM(d2) = IM(c2) - RE(c5); | 699 | | IM(d3) = IM(c3) - RE(c4); | 700 | | RE(d4) = RE(c3) - IM(c4); | 701 | | RE(d5) = RE(c2) - IM(c5); | 702 | | RE(d2) = RE(c2) + IM(c5); | 703 | | IM(d5) = IM(c2) + RE(c5); | 704 | | RE(d3) = RE(c3) + IM(c4); | 705 | | IM(d4) = IM(c3) + RE(c4); | 706 | | | 707 | | #if 1 | 708 | | ComplexMult(&RE(ch[ah+l1*ido]), &IM(ch[ah+l1*ido]), | 709 | | RE(d2), IM(d2), RE(wa1[i]), IM(wa1[i])); | 710 | | ComplexMult(&RE(ch[ah+2*l1*ido]), &IM(ch[ah+2*l1*ido]), | 711 | | RE(d3), IM(d3), RE(wa2[i]), IM(wa2[i])); | 712 | | ComplexMult(&RE(ch[ah+3*l1*ido]), &IM(ch[ah+3*l1*ido]), | 713 | | RE(d4), IM(d4), RE(wa3[i]), IM(wa3[i])); | 714 | | ComplexMult(&RE(ch[ah+4*l1*ido]), &IM(ch[ah+4*l1*ido]), | 715 | | RE(d5), IM(d5), RE(wa4[i]), IM(wa4[i])); | 716 | | #else | 717 | | ComplexMult(&IM(ch[ah+l1*ido]), &RE(ch[ah+l1*ido]), | 718 | | IM(d2), RE(d2), RE(wa1[i]), IM(wa1[i])); | 719 | | ComplexMult(&IM(ch[ah+2*l1*ido]), &RE(ch[ah+2*l1*ido]), | 720 | | IM(d3), RE(d3), RE(wa2[i]), IM(wa2[i])); | 721 | | ComplexMult(&IM(ch[ah+3*l1*ido]), &RE(ch[ah+3*l1*ido]), | 722 | | IM(d4), RE(d4), RE(wa3[i]), IM(wa3[i])); | 723 | | ComplexMult(&IM(ch[ah+4*l1*ido]), &RE(ch[ah+4*l1*ido]), | 724 | | IM(d5), RE(d5), RE(wa4[i]), IM(wa4[i])); | 725 | | #endif | 726 | | } | 727 | | } | 728 | | } | 729 | | #ifdef FUZZING_BUILD_MODE_UNSAFE_FOR_PRODUCTION | 730 | | */ | 731 | 0 | #endif | 732 | 0 | } | 733 | 127k | } |
|
734 | | |
735 | | |
736 | | /*---------------------------------------------------------------------- |
737 | | cfftf1, cfftf, cfftb, cffti1, cffti. Complex FFTs. |
738 | | ----------------------------------------------------------------------*/ |
739 | | |
740 | | static INLINE void cfftf1pos(uint16_t n, complex_t *c, complex_t *ch, |
741 | | const uint16_t *ifac, const complex_t *wa, |
742 | | const int8_t isign) |
743 | 1.17M | { |
744 | 1.17M | uint16_t i; |
745 | 1.17M | uint16_t k1, l1, l2; |
746 | 1.17M | uint16_t na, nf, ip, iw, ix2, ix3, ix4, ido; |
747 | | |
748 | 1.17M | nf = ifac[1]; |
749 | 1.17M | na = 0; |
750 | 1.17M | l1 = 1; |
751 | 1.17M | iw = 0; |
752 | | |
753 | 5.91M | for (k1 = 2; k1 <= nf+1; k1++) |
754 | 4.74M | { |
755 | 4.74M | ip = ifac[k1]; |
756 | 4.74M | l2 = ip*l1; |
757 | 4.74M | ido = n / l2; |
758 | | |
759 | 4.74M | switch (ip) |
760 | 4.74M | { |
761 | 3.71M | case 4: |
762 | 3.71M | ix2 = iw + ido; |
763 | 3.71M | ix3 = ix2 + ido; |
764 | | |
765 | 3.71M | if (na == 0) |
766 | 2.02M | passf4pos((const uint16_t)ido, (const uint16_t)l1, (const complex_t*)c, ch, &wa[iw], &wa[ix2], &wa[ix3]); |
767 | 1.68M | else |
768 | 1.68M | passf4pos((const uint16_t)ido, (const uint16_t)l1, (const complex_t*)ch, c, &wa[iw], &wa[ix2], &wa[ix3]); |
769 | | |
770 | 3.71M | na = 1 - na; |
771 | 3.71M | break; |
772 | 606k | case 2: |
773 | 606k | if (na == 0) |
774 | 606k | passf2pos((const uint16_t)ido, (const uint16_t)l1, (const complex_t*)c, ch, &wa[iw]); |
775 | 0 | else |
776 | 0 | passf2pos((const uint16_t)ido, (const uint16_t)l1, (const complex_t*)ch, c, &wa[iw]); |
777 | | |
778 | 606k | na = 1 - na; |
779 | 606k | break; |
780 | 211k | case 3: |
781 | 211k | ix2 = iw + ido; |
782 | | |
783 | 211k | if (na == 0) |
784 | 114k | passf3((const uint16_t)ido, (const uint16_t)l1, (const complex_t*)c, ch, &wa[iw], &wa[ix2], isign); |
785 | 97.1k | else |
786 | 97.1k | passf3((const uint16_t)ido, (const uint16_t)l1, (const complex_t*)ch, c, &wa[iw], &wa[ix2], isign); |
787 | | |
788 | 211k | na = 1 - na; |
789 | 211k | break; |
790 | 211k | case 5: |
791 | 211k | ix2 = iw + ido; |
792 | 211k | ix3 = ix2 + ido; |
793 | 211k | ix4 = ix3 + ido; |
794 | | |
795 | 211k | if (na == 0) |
796 | 208k | passf5((const uint16_t)ido, (const uint16_t)l1, (const complex_t*)c, ch, &wa[iw], &wa[ix2], &wa[ix3], &wa[ix4], isign); |
797 | 2.85k | else |
798 | 2.85k | passf5((const uint16_t)ido, (const uint16_t)l1, (const complex_t*)ch, c, &wa[iw], &wa[ix2], &wa[ix3], &wa[ix4], isign); |
799 | | |
800 | 211k | na = 1 - na; |
801 | 211k | break; |
802 | 4.74M | } |
803 | | |
804 | 4.74M | l1 = l2; |
805 | 4.74M | iw += (ip-1) * ido; |
806 | 4.74M | } |
807 | | |
808 | 1.17M | if (na == 0) |
809 | 4.97k | return; |
810 | | |
811 | 344M | for (i = 0; i < n; i++) |
812 | 342M | { |
813 | 342M | RE(c[i]) = RE(ch[i]); |
814 | 342M | IM(c[i]) = IM(ch[i]); |
815 | 342M | } |
816 | 1.16M | } |
817 | | |
818 | | static INLINE void cfftf1neg(uint16_t n, complex_t *c, complex_t *ch, |
819 | | const uint16_t *ifac, const complex_t *wa, |
820 | | const int8_t isign) |
821 | 14.1k | { |
822 | 14.1k | uint16_t i; |
823 | 14.1k | uint16_t k1, l1, l2; |
824 | 14.1k | uint16_t na, nf, ip, iw, ix2, ix3, ix4, ido; |
825 | | |
826 | 14.1k | nf = ifac[1]; |
827 | 14.1k | na = 0; |
828 | 14.1k | l1 = 1; |
829 | 14.1k | iw = 0; |
830 | | |
831 | 84.1k | for (k1 = 2; k1 <= nf+1; k1++) |
832 | 70.0k | { |
833 | 70.0k | ip = ifac[k1]; |
834 | 70.0k | l2 = ip*l1; |
835 | 70.0k | ido = n / l2; |
836 | | |
837 | 70.0k | switch (ip) |
838 | 70.0k | { |
839 | 40.8k | case 4: |
840 | 40.8k | ix2 = iw + ido; |
841 | 40.8k | ix3 = ix2 + ido; |
842 | | |
843 | 40.8k | if (na == 0) |
844 | 20.4k | passf4neg((const uint16_t)ido, (const uint16_t)l1, (const complex_t*)c, ch, &wa[iw], &wa[ix2], &wa[ix3]); |
845 | 20.4k | else |
846 | 20.4k | passf4neg((const uint16_t)ido, (const uint16_t)l1, (const complex_t*)ch, c, &wa[iw], &wa[ix2], &wa[ix3]); |
847 | | |
848 | 40.8k | na = 1 - na; |
849 | 40.8k | break; |
850 | 13.5k | case 2: |
851 | 13.5k | if (na == 0) |
852 | 13.5k | passf2neg((const uint16_t)ido, (const uint16_t)l1, (const complex_t*)c, ch, &wa[iw]); |
853 | 0 | else |
854 | 0 | passf2neg((const uint16_t)ido, (const uint16_t)l1, (const complex_t*)ch, c, &wa[iw]); |
855 | | |
856 | 13.5k | na = 1 - na; |
857 | 13.5k | break; |
858 | 7.80k | case 3: |
859 | 7.80k | ix2 = iw + ido; |
860 | | |
861 | 7.80k | if (na == 0) |
862 | 214 | passf3((const uint16_t)ido, (const uint16_t)l1, (const complex_t*)c, ch, &wa[iw], &wa[ix2], isign); |
863 | 7.58k | else |
864 | 7.58k | passf3((const uint16_t)ido, (const uint16_t)l1, (const complex_t*)ch, c, &wa[iw], &wa[ix2], isign); |
865 | | |
866 | 7.80k | na = 1 - na; |
867 | 7.80k | break; |
868 | 7.80k | case 5: |
869 | 7.80k | ix2 = iw + ido; |
870 | 7.80k | ix3 = ix2 + ido; |
871 | 7.80k | ix4 = ix3 + ido; |
872 | | |
873 | 7.80k | if (na == 0) |
874 | 7.58k | passf5((const uint16_t)ido, (const uint16_t)l1, (const complex_t*)c, ch, &wa[iw], &wa[ix2], &wa[ix3], &wa[ix4], isign); |
875 | 214 | else |
876 | 214 | passf5((const uint16_t)ido, (const uint16_t)l1, (const complex_t*)ch, c, &wa[iw], &wa[ix2], &wa[ix3], &wa[ix4], isign); |
877 | | |
878 | 7.80k | na = 1 - na; |
879 | 7.80k | break; |
880 | 70.0k | } |
881 | | |
882 | 70.0k | l1 = l2; |
883 | 70.0k | iw += (ip-1) * ido; |
884 | 70.0k | } |
885 | | |
886 | 14.1k | if (na == 0) |
887 | 540 | return; |
888 | | |
889 | 6.72M | for (i = 0; i < n; i++) |
890 | 6.71M | { |
891 | 6.71M | RE(c[i]) = RE(ch[i]); |
892 | 6.71M | IM(c[i]) = IM(ch[i]); |
893 | 6.71M | } |
894 | 13.5k | } |
895 | | |
896 | | void cfftf(cfft_info *cfft, complex_t *c) |
897 | 14.1k | { |
898 | 14.1k | cfftf1neg(cfft->n, c, cfft->work, (const uint16_t*)cfft->ifac, (const complex_t*)cfft->tab, -1); |
899 | 14.1k | } |
900 | | |
901 | | void cfftb(cfft_info *cfft, complex_t *c) |
902 | 1.17M | { |
903 | 1.17M | cfftf1pos(cfft->n, c, cfft->work, (const uint16_t*)cfft->ifac, (const complex_t*)cfft->tab, +1); |
904 | 1.17M | } |
905 | | |
906 | | static void cffti1(uint16_t n, complex_t *wa, uint16_t *ifac) |
907 | 71.1k | { |
908 | 71.1k | static uint16_t ntryh[4] = {3, 4, 2, 5}; |
909 | | #ifndef FIXED_POINT |
910 | | real_t arg, argh, argld, fi; |
911 | | uint16_t ido, ipm; |
912 | | uint16_t i1, k1, l1, l2; |
913 | | uint16_t ld, ii, ip; |
914 | | #endif |
915 | 71.1k | uint16_t ntry = 0, i, j; |
916 | 71.1k | uint16_t ib; |
917 | 71.1k | uint16_t nf, nl, nq, nr; |
918 | | |
919 | 71.1k | nl = n; |
920 | 71.1k | nf = 0; |
921 | 71.1k | j = 0; |
922 | | |
923 | 193k | startloop: |
924 | 193k | j++; |
925 | | |
926 | 193k | if (j <= 4) |
927 | 193k | ntry = ntryh[j-1]; |
928 | 0 | else |
929 | 0 | ntry += 2; |
930 | | |
931 | 193k | do |
932 | 406k | { |
933 | 406k | nq = nl / ntry; |
934 | 406k | nr = nl - ntry*nq; |
935 | | |
936 | 406k | if (nr != 0) |
937 | 122k | goto startloop; |
938 | | |
939 | 284k | nf++; |
940 | 284k | ifac[nf+1] = ntry; |
941 | 284k | nl = nq; |
942 | | |
943 | 284k | if (ntry == 2 && nf != 1) |
944 | 27.0k | { |
945 | 129k | for (i = 2; i <= nf; i++) |
946 | 102k | { |
947 | 102k | ib = nf - i + 2; |
948 | 102k | ifac[ib+1] = ifac[ib]; |
949 | 102k | } |
950 | 27.0k | ifac[2] = 2; |
951 | 27.0k | } |
952 | 284k | } while (nl != 1); |
953 | | |
954 | 71.1k | ifac[0] = n; |
955 | 71.1k | ifac[1] = nf; |
956 | | |
957 | | #ifndef FIXED_POINT |
958 | | argh = (real_t)2.0*(real_t)M_PI / (real_t)n; |
959 | | i = 0; |
960 | | l1 = 1; |
961 | | |
962 | 216k | for (k1 = 1; k1 <= nf; k1++) |
963 | 173k | { |
964 | 173k | ip = ifac[k1+1]; |
965 | 173k | ld = 0; |
966 | 173k | l2 = l1*ip; |
967 | 173k | ido = n / l2; |
968 | 173k | ipm = ip - 1; |
969 | | |
970 | 657k | for (j = 0; j < ipm; j++) |
971 | 484k | { |
972 | 484k | i1 = i; |
973 | 484k | RE(wa[i]) = 1.0; |
974 | 484k | IM(wa[i]) = 0.0; |
975 | | ld += l1; |
976 | | fi = 0; |
977 | | argld = ld*argh; |
978 | | |
979 | 12.4M | for (ii = 0; ii < ido; ii++) |
980 | 11.9M | { |
981 | 11.9M | i++; |
982 | 11.9M | fi++; |
983 | 11.9M | arg = fi * argld; |
984 | 11.9M | RE(wa[i]) = (real_t)cos(arg); |
985 | 11.9M | #if 1 |
986 | 11.9M | IM(wa[i]) = (real_t)sin(arg); |
987 | | #else |
988 | | IM(wa[i]) = (real_t)-sin(arg); |
989 | | #endif |
990 | 11.9M | } |
991 | | |
992 | 484k | if (ip > 5) |
993 | 0 | { |
994 | 0 | RE(wa[i1]) = RE(wa[i]); |
995 | 0 | IM(wa[i1]) = IM(wa[i]); |
996 | 0 | } |
997 | 484k | } |
998 | 173k | l1 = l2; |
999 | 173k | } |
1000 | | #else // FIXED_POINT |
1001 | | (void)wa; /* whoa! does it work for FIXED_POINT? */ |
1002 | | #endif |
1003 | 71.1k | } Line | Count | Source | 907 | 27.9k | { | 908 | 27.9k | static uint16_t ntryh[4] = {3, 4, 2, 5}; | 909 | | #ifndef FIXED_POINT | 910 | | real_t arg, argh, argld, fi; | 911 | | uint16_t ido, ipm; | 912 | | uint16_t i1, k1, l1, l2; | 913 | | uint16_t ld, ii, ip; | 914 | | #endif | 915 | 27.9k | uint16_t ntry = 0, i, j; | 916 | 27.9k | uint16_t ib; | 917 | 27.9k | uint16_t nf, nl, nq, nr; | 918 | | | 919 | 27.9k | nl = n; | 920 | 27.9k | nf = 0; | 921 | 27.9k | j = 0; | 922 | | | 923 | 75.3k | startloop: | 924 | 75.3k | j++; | 925 | | | 926 | 75.3k | if (j <= 4) | 927 | 75.3k | ntry = ntryh[j-1]; | 928 | 0 | else | 929 | 0 | ntry += 2; | 930 | | | 931 | 75.3k | do | 932 | 159k | { | 933 | 159k | nq = nl / ntry; | 934 | 159k | nr = nl - ntry*nq; | 935 | | | 936 | 159k | if (nr != 0) | 937 | 47.4k | goto startloop; | 938 | | | 939 | 111k | nf++; | 940 | 111k | ifac[nf+1] = ntry; | 941 | 111k | nl = nq; | 942 | | | 943 | 111k | if (ntry == 2 && nf != 1) | 944 | 9.84k | { | 945 | 47.0k | for (i = 2; i <= nf; i++) | 946 | 37.2k | { | 947 | 37.2k | ib = nf - i + 2; | 948 | 37.2k | ifac[ib+1] = ifac[ib]; | 949 | 37.2k | } | 950 | 9.84k | ifac[2] = 2; | 951 | 9.84k | } | 952 | 111k | } while (nl != 1); | 953 | | | 954 | 27.9k | ifac[0] = n; | 955 | 27.9k | ifac[1] = nf; | 956 | | | 957 | | #ifndef FIXED_POINT | 958 | | argh = (real_t)2.0*(real_t)M_PI / (real_t)n; | 959 | | i = 0; | 960 | | l1 = 1; | 961 | | | 962 | | for (k1 = 1; k1 <= nf; k1++) | 963 | | { | 964 | | ip = ifac[k1+1]; | 965 | | ld = 0; | 966 | | l2 = l1*ip; | 967 | | ido = n / l2; | 968 | | ipm = ip - 1; | 969 | | | 970 | | for (j = 0; j < ipm; j++) | 971 | | { | 972 | | i1 = i; | 973 | | RE(wa[i]) = 1.0; | 974 | | IM(wa[i]) = 0.0; | 975 | | ld += l1; | 976 | | fi = 0; | 977 | | argld = ld*argh; | 978 | | | 979 | | for (ii = 0; ii < ido; ii++) | 980 | | { | 981 | | i++; | 982 | | fi++; | 983 | | arg = fi * argld; | 984 | | RE(wa[i]) = (real_t)cos(arg); | 985 | | #if 1 | 986 | | IM(wa[i]) = (real_t)sin(arg); | 987 | | #else | 988 | | IM(wa[i]) = (real_t)-sin(arg); | 989 | | #endif | 990 | | } | 991 | | | 992 | | if (ip > 5) | 993 | | { | 994 | | RE(wa[i1]) = RE(wa[i]); | 995 | | IM(wa[i1]) = IM(wa[i]); | 996 | | } | 997 | | } | 998 | | l1 = l2; | 999 | | } | 1000 | | #else // FIXED_POINT | 1001 | 27.9k | (void)wa; /* whoa! does it work for FIXED_POINT? */ | 1002 | 27.9k | #endif | 1003 | 27.9k | } |
Line | Count | Source | 907 | 43.2k | { | 908 | 43.2k | static uint16_t ntryh[4] = {3, 4, 2, 5}; | 909 | 43.2k | #ifndef FIXED_POINT | 910 | 43.2k | real_t arg, argh, argld, fi; | 911 | 43.2k | uint16_t ido, ipm; | 912 | 43.2k | uint16_t i1, k1, l1, l2; | 913 | 43.2k | uint16_t ld, ii, ip; | 914 | 43.2k | #endif | 915 | 43.2k | uint16_t ntry = 0, i, j; | 916 | 43.2k | uint16_t ib; | 917 | 43.2k | uint16_t nf, nl, nq, nr; | 918 | | | 919 | 43.2k | nl = n; | 920 | 43.2k | nf = 0; | 921 | 43.2k | j = 0; | 922 | | | 923 | 118k | startloop: | 924 | 118k | j++; | 925 | | | 926 | 118k | if (j <= 4) | 927 | 118k | ntry = ntryh[j-1]; | 928 | 0 | else | 929 | 0 | ntry += 2; | 930 | | | 931 | 118k | do | 932 | 247k | { | 933 | 247k | nq = nl / ntry; | 934 | 247k | nr = nl - ntry*nq; | 935 | | | 936 | 247k | if (nr != 0) | 937 | 74.7k | goto startloop; | 938 | | | 939 | 173k | nf++; | 940 | 173k | ifac[nf+1] = ntry; | 941 | 173k | nl = nq; | 942 | | | 943 | 173k | if (ntry == 2 && nf != 1) | 944 | 17.1k | { | 945 | 82.2k | for (i = 2; i <= nf; i++) | 946 | 65.0k | { | 947 | 65.0k | ib = nf - i + 2; | 948 | 65.0k | ifac[ib+1] = ifac[ib]; | 949 | 65.0k | } | 950 | 17.1k | ifac[2] = 2; | 951 | 17.1k | } | 952 | 173k | } while (nl != 1); | 953 | | | 954 | 43.2k | ifac[0] = n; | 955 | 43.2k | ifac[1] = nf; | 956 | | | 957 | 43.2k | #ifndef FIXED_POINT | 958 | 43.2k | argh = (real_t)2.0*(real_t)M_PI / (real_t)n; | 959 | 43.2k | i = 0; | 960 | 43.2k | l1 = 1; | 961 | | | 962 | 216k | for (k1 = 1; k1 <= nf; k1++) | 963 | 173k | { | 964 | 173k | ip = ifac[k1+1]; | 965 | 173k | ld = 0; | 966 | 173k | l2 = l1*ip; | 967 | 173k | ido = n / l2; | 968 | 173k | ipm = ip - 1; | 969 | | | 970 | 657k | for (j = 0; j < ipm; j++) | 971 | 484k | { | 972 | 484k | i1 = i; | 973 | 484k | RE(wa[i]) = 1.0; | 974 | 484k | IM(wa[i]) = 0.0; | 975 | 484k | ld += l1; | 976 | 484k | fi = 0; | 977 | 484k | argld = ld*argh; | 978 | | | 979 | 12.4M | for (ii = 0; ii < ido; ii++) | 980 | 11.9M | { | 981 | 11.9M | i++; | 982 | 11.9M | fi++; | 983 | 11.9M | arg = fi * argld; | 984 | 11.9M | RE(wa[i]) = (real_t)cos(arg); | 985 | 11.9M | #if 1 | 986 | 11.9M | IM(wa[i]) = (real_t)sin(arg); | 987 | | #else | 988 | | IM(wa[i]) = (real_t)-sin(arg); | 989 | | #endif | 990 | 11.9M | } | 991 | | | 992 | 484k | if (ip > 5) | 993 | 0 | { | 994 | 0 | RE(wa[i1]) = RE(wa[i]); | 995 | 0 | IM(wa[i1]) = IM(wa[i]); | 996 | 0 | } | 997 | 484k | } | 998 | 173k | l1 = l2; | 999 | 173k | } | 1000 | | #else // FIXED_POINT | 1001 | | (void)wa; /* whoa! does it work for FIXED_POINT? */ | 1002 | | #endif | 1003 | 43.2k | } |
|
1004 | | |
1005 | | cfft_info *cffti(uint16_t n) |
1006 | 3.25k | { |
1007 | 3.25k | cfft_info *cfft = (cfft_info*)faad_malloc(sizeof(cfft_info)); |
1008 | | |
1009 | 3.25k | cfft->n = n; |
1010 | 3.25k | cfft->work = (complex_t*)faad_malloc(n*sizeof(complex_t)); |
1011 | | |
1012 | | #ifndef FIXED_POINT |
1013 | | cfft->tab = (complex_t*)faad_malloc(n*sizeof(complex_t)); |
1014 | | |
1015 | | cffti1(n, cfft->tab, cfft->ifac); |
1016 | | #else |
1017 | 3.25k | cffti1(n, NULL, cfft->ifac); |
1018 | | |
1019 | 3.25k | switch (n) |
1020 | 3.25k | { |
1021 | 1.09k | case 64: cfft->tab = (complex_t*)cfft_tab_64; break; |
1022 | 1.09k | case 512: cfft->tab = (complex_t*)cfft_tab_512; break; |
1023 | | #ifdef LD_DEC |
1024 | | case 256: cfft->tab = (complex_t*)cfft_tab_256; break; |
1025 | | #endif |
1026 | | |
1027 | 0 | #ifdef ALLOW_SMALL_FRAMELENGTH |
1028 | 532 | case 60: cfft->tab = (complex_t*)cfft_tab_60; break; |
1029 | 532 | case 480: cfft->tab = (complex_t*)cfft_tab_480; break; |
1030 | | #ifdef LD_DEC |
1031 | | case 240: cfft->tab = (complex_t*)cfft_tab_240; break; |
1032 | | #endif |
1033 | 0 | #endif |
1034 | 0 | case 128: cfft->tab = (complex_t*)cfft_tab_128; break; |
1035 | 3.25k | } |
1036 | 3.25k | #endif |
1037 | | |
1038 | 3.25k | return cfft; |
1039 | 3.25k | } |
1040 | | |
1041 | | void cfftu(cfft_info *cfft) |
1042 | 27.9k | { |
1043 | 27.9k | if (cfft->work) faad_free(cfft->work); |
1044 | | #ifndef FIXED_POINT |
1045 | | if (cfft->tab) faad_free(cfft->tab); |
1046 | | #endif |
1047 | | |
1048 | 27.9k | if (cfft) faad_free(cfft); |
1049 | 27.9k | } |
1050 | | |