GCC Code Coverage Report

Directory: ./
File: build/lib/volk_32fc_32f_multiply_32fc_a_orc_impl.c
Date: 2023-10-23 23:10:04
Exec Total Coverage
Lines: 21 43 48.8%
Functions: 1 2 50.0%
Branches: 2 18 11.1%
Line Branch Exec Source
1
2 /* autogenerated from volk_32fc_32f_multiply_32fc_a_orc_impl.orc */
3
4 #ifdef HAVE_CONFIG_H
5 #include "config.h"
6 #endif
7 #include <math.h>
8
9 #ifndef _ORC_INTEGER_TYPEDEFS_
10 #define _ORC_INTEGER_TYPEDEFS_
11 #if defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
12 #include <stdint.h>
13 typedef int8_t orc_int8;
14 typedef int16_t orc_int16;
15 typedef int32_t orc_int32;
16 typedef int64_t orc_int64;
17 typedef uint8_t orc_uint8;
18 typedef uint16_t orc_uint16;
19 typedef uint32_t orc_uint32;
20 typedef uint64_t orc_uint64;
21 #define ORC_UINT64_C(x) UINT64_C(x)
22 #elif defined(_MSC_VER)
23 typedef signed __int8 orc_int8;
24 typedef signed __int16 orc_int16;
25 typedef signed __int32 orc_int32;
26 typedef signed __int64 orc_int64;
27 typedef unsigned __int8 orc_uint8;
28 typedef unsigned __int16 orc_uint16;
29 typedef unsigned __int32 orc_uint32;
30 typedef unsigned __int64 orc_uint64;
31 #define ORC_UINT64_C(x) (x##Ui64)
32 #define inline __inline
33 #else
34 #include <limits.h>
35 typedef signed char orc_int8;
36 typedef short orc_int16;
37 typedef int orc_int32;
38 typedef unsigned char orc_uint8;
39 typedef unsigned short orc_uint16;
40 typedef unsigned int orc_uint32;
41 #if INT_MAX == LONG_MAX
42 typedef long long orc_int64;
43 typedef unsigned long long orc_uint64;
44 #define ORC_UINT64_C(x) (x##ULL)
45 #else
46 typedef long orc_int64;
47 typedef unsigned long orc_uint64;
48 #define ORC_UINT64_C(x) (x##UL)
49 #endif
50 #endif
51 typedef union { orc_int16 i; orc_int8 x2[2]; } orc_union16;
52 typedef union { orc_int32 i; float f; orc_int16 x2[2]; orc_int8 x4[4]; } orc_union32;
53 typedef union { orc_int64 i; double f; orc_int32 x2[2]; float x2f[2]; orc_int16 x4[4]; } orc_union64;
54 #endif
55 #ifndef ORC_RESTRICT
56 #if defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
57 #define ORC_RESTRICT restrict
58 #elif defined(__GNUC__) && __GNUC__ >= 4
59 #define ORC_RESTRICT __restrict__
60 #elif defined(_MSC_VER)
61 #define ORC_RESTRICT __restrict
62 #else
63 #define ORC_RESTRICT
64 #endif
65 #endif
66
67 #ifndef ORC_INTERNAL
68 #if defined(__SUNPRO_C) && (__SUNPRO_C >= 0x590)
69 #define ORC_INTERNAL __attribute__((visibility("hidden")))
70 #elif defined(__SUNPRO_C) && (__SUNPRO_C >= 0x550)
71 #define ORC_INTERNAL __hidden
72 #elif defined (__GNUC__)
73 #define ORC_INTERNAL __attribute__((visibility("hidden")))
74 #else
75 #define ORC_INTERNAL
76 #endif
77 #endif
78
79
80 #ifndef DISABLE_ORC
81 #include <orc/orc.h>
82 #endif
83 void volk_32fc_32f_multiply_32fc_a_orc_impl (orc_uint64 * ORC_RESTRICT d1, const orc_uint64 * ORC_RESTRICT s1, const orc_uint32 * ORC_RESTRICT s2, int n);
84
85
86 /* begin Orc C target preamble */
87 #define ORC_CLAMP(x,a,b) ((x)<(a) ? (a) : ((x)>(b) ? (b) : (x)))
88 #define ORC_ABS(a) ((a)<0 ? -(a) : (a))
89 #define ORC_MIN(a,b) ((a)<(b) ? (a) : (b))
90 #define ORC_MAX(a,b) ((a)>(b) ? (a) : (b))
91 #define ORC_SB_MAX 127
92 #define ORC_SB_MIN (-1-ORC_SB_MAX)
93 #define ORC_UB_MAX (orc_uint8) 255
94 #define ORC_UB_MIN 0
95 #define ORC_SW_MAX 32767
96 #define ORC_SW_MIN (-1-ORC_SW_MAX)
97 #define ORC_UW_MAX (orc_uint16)65535
98 #define ORC_UW_MIN 0
99 #define ORC_SL_MAX 2147483647
100 #define ORC_SL_MIN (-1-ORC_SL_MAX)
101 #define ORC_UL_MAX 4294967295U
102 #define ORC_UL_MIN 0
103 #define ORC_CLAMP_SB(x) ORC_CLAMP(x,ORC_SB_MIN,ORC_SB_MAX)
104 #define ORC_CLAMP_UB(x) ORC_CLAMP(x,ORC_UB_MIN,ORC_UB_MAX)
105 #define ORC_CLAMP_SW(x) ORC_CLAMP(x,ORC_SW_MIN,ORC_SW_MAX)
106 #define ORC_CLAMP_UW(x) ORC_CLAMP(x,ORC_UW_MIN,ORC_UW_MAX)
107 #define ORC_CLAMP_SL(x) ORC_CLAMP(x,ORC_SL_MIN,ORC_SL_MAX)
108 #define ORC_CLAMP_UL(x) ORC_CLAMP(x,ORC_UL_MIN,ORC_UL_MAX)
109 #define ORC_SWAP_W(x) ((((x)&0xffU)<<8) | (((x)&0xff00U)>>8))
110 #define ORC_SWAP_L(x) ((((x)&0xffU)<<24) | (((x)&0xff00U)<<8) | (((x)&0xff0000U)>>8) | (((x)&0xff000000U)>>24))
111 #define ORC_SWAP_Q(x) ((((x)&ORC_UINT64_C(0xff))<<56) | (((x)&ORC_UINT64_C(0xff00))<<40) | (((x)&ORC_UINT64_C(0xff0000))<<24) | (((x)&ORC_UINT64_C(0xff000000))<<8) | (((x)&ORC_UINT64_C(0xff00000000))>>8) | (((x)&ORC_UINT64_C(0xff0000000000))>>24) | (((x)&ORC_UINT64_C(0xff000000000000))>>40) | (((x)&ORC_UINT64_C(0xff00000000000000))>>56))
112 #define ORC_PTR_OFFSET(ptr,offset) ((void *)(((unsigned char *)(ptr)) + (offset)))
113 #define ORC_DENORMAL(x) ((x) & ((((x)&0x7f800000) == 0) ? 0xff800000 : 0xffffffff))
114 #define ORC_ISNAN(x) ((((x)&0x7f800000) == 0x7f800000) && (((x)&0x007fffff) != 0))
115 #define ORC_DENORMAL_DOUBLE(x) ((x) & ((((x)&ORC_UINT64_C(0x7ff0000000000000)) == 0) ? ORC_UINT64_C(0xfff0000000000000) : ORC_UINT64_C(0xffffffffffffffff)))
116 #define ORC_ISNAN_DOUBLE(x) ((((x)&ORC_UINT64_C(0x7ff0000000000000)) == ORC_UINT64_C(0x7ff0000000000000)) && (((x)&ORC_UINT64_C(0x000fffffffffffff)) != 0))
117 #ifndef ORC_RESTRICT
118 #if defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
119 #define ORC_RESTRICT restrict
120 #elif defined(__GNUC__) && __GNUC__ >= 4
121 #define ORC_RESTRICT __restrict__
122 #else
123 #define ORC_RESTRICT
124 #endif
125 #endif
126 /* end Orc C target preamble */
127
128
129
130 /* volk_32fc_32f_multiply_32fc_a_orc_impl */
131 #ifdef DISABLE_ORC
132 void
133 volk_32fc_32f_multiply_32fc_a_orc_impl (orc_uint64 * ORC_RESTRICT d1, const orc_uint64 * ORC_RESTRICT s1, const orc_uint32 * ORC_RESTRICT s2, int n){
134 int i;
135 orc_union64 * ORC_RESTRICT ptr0;
136 const orc_union64 * ORC_RESTRICT ptr4;
137 const orc_union32 * ORC_RESTRICT ptr5;
138 orc_union32 var33;
139 orc_union32 var34;
140 orc_union64 var35;
141 orc_union64 var36;
142 orc_union64 var37;
143
144 ptr0 = (orc_union64 *)d1;
145 ptr4 = (orc_union64 *)s1;
146 ptr5 = (orc_union32 *)s2;
147
148
149 for (i = 0; i < n; i++) {
150 /* 0: loadl */
151 var33 = ptr5[i];
152 /* 1: loadl */
153 var34 = ptr5[i];
154 /* 2: mergelq */
155 {
156 orc_union64 _dest;
157 _dest.x2[0] = var33.i;
158 _dest.x2[1] = var34.i;
159 var37.i = _dest.i;
160 }
161 /* 3: loadq */
162 var35 = ptr4[i];
163 /* 4: mulf */
164 {
165 orc_union32 _src1;
166 orc_union32 _src2;
167 orc_union32 _dest1;
168 _src1.i = ORC_DENORMAL(var35.x2[0]);
169 _src2.i = ORC_DENORMAL(var37.x2[0]);
170 _dest1.f = _src1.f * _src2.f;
171 var36.x2[0] = ORC_DENORMAL(_dest1.i);
172 }
173 {
174 orc_union32 _src1;
175 orc_union32 _src2;
176 orc_union32 _dest1;
177 _src1.i = ORC_DENORMAL(var35.x2[1]);
178 _src2.i = ORC_DENORMAL(var37.x2[1]);
179 _dest1.f = _src1.f * _src2.f;
180 var36.x2[1] = ORC_DENORMAL(_dest1.i);
181 }
182 /* 5: storeq */
183 ptr0[i] = var36;
184 }
185
186 }
187
188 #else
189 static void
190 ✗ _backup_volk_32fc_32f_multiply_32fc_a_orc_impl (OrcExecutor * ORC_RESTRICT ex)
191 {
192 int i;
193 ✗ int n = ex->n;
194 orc_union64 * ORC_RESTRICT ptr0;
195 const orc_union64 * ORC_RESTRICT ptr4;
196 const orc_union32 * ORC_RESTRICT ptr5;
197 orc_union32 var33;
198 orc_union32 var34;
199 orc_union64 var35;
200 orc_union64 var36;
201 orc_union64 var37;
202
203 ✗ ptr0 = (orc_union64 *)ex->arrays[0];
204 ✗ ptr4 = (orc_union64 *)ex->arrays[4];
205 ✗ ptr5 = (orc_union32 *)ex->arrays[5];
206
207
208 ✗ for (i = 0; i < n; i++) {
209 /* 0: loadl */
210 ✗ var33 = ptr5[i];
211 /* 1: loadl */
212 ✗ var34 = ptr5[i];
213 /* 2: mergelq */
214 {
215 orc_union64 _dest;
216 ✗ _dest.x2[0] = var33.i;
217 ✗ _dest.x2[1] = var34.i;
218 ✗ var37.i = _dest.i;
219 }
220 /* 3: loadq */
221 ✗ var35 = ptr4[i];
222 /* 4: mulf */
223 {
224 orc_union32 _src1;
225 orc_union32 _src2;
226 orc_union32 _dest1;
227 ✗ _src1.i = ORC_DENORMAL(var35.x2[0]);
228 ✗ _src2.i = ORC_DENORMAL(var37.x2[0]);
229 ✗ _dest1.f = _src1.f * _src2.f;
230 ✗ var36.x2[0] = ORC_DENORMAL(_dest1.i);
231 }
232 {
233 orc_union32 _src1;
234 orc_union32 _src2;
235 orc_union32 _dest1;
236 ✗ _src1.i = ORC_DENORMAL(var35.x2[1]);
237 ✗ _src2.i = ORC_DENORMAL(var37.x2[1]);
238 ✗ _dest1.f = _src1.f * _src2.f;
239 ✗ var36.x2[1] = ORC_DENORMAL(_dest1.i);
240 }
241 /* 5: storeq */
242 ✗ ptr0[i] = var36;
243 }
244
245 ✗ }
246
247 void
248 2 volk_32fc_32f_multiply_32fc_a_orc_impl (orc_uint64 * ORC_RESTRICT d1, const orc_uint64 * ORC_RESTRICT s1, const orc_uint32 * ORC_RESTRICT s2, int n)
249 {
250 2 OrcExecutor _ex, *ex = &_ex;
251 static volatile int p_inited = 0;
252 static OrcCode *c = 0;
253 void (*func) (OrcExecutor *);
254
255
1/2
✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
 2 if (!p_inited) {
256 2 orc_once_mutex_lock ();
257
1/2
✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
 2 if (!p_inited) {
258 OrcProgram *p;
259
260 #if 1
261 static const orc_uint8 bc[] = {
262 1, 9, 38, 118, 111, 108, 107, 95, 51, 50, 102, 99, 95, 51, 50, 102,
263 95, 109, 117, 108, 116, 105, 112, 108, 121, 95, 51, 50, 102, 99, 95, 97,
264 95, 111, 114, 99, 95, 105, 109, 112, 108, 11, 8, 8, 12, 8, 8, 12,
265 4, 4, 20, 8, 194, 32, 5, 5, 21, 1, 202, 0, 4, 32, 2, 0,
266
267 };
268 2 p = orc_program_new_from_static_bytecode (bc);
269 2 orc_program_set_backup_function (p, _backup_volk_32fc_32f_multiply_32fc_a_orc_impl);
270 #else
271 p = orc_program_new ();
272 orc_program_set_name (p, "volk_32fc_32f_multiply_32fc_a_orc_impl");
273 orc_program_set_backup_function (p, _backup_volk_32fc_32f_multiply_32fc_a_orc_impl);
274 orc_program_add_destination (p, 8, "d1");
275 orc_program_add_source (p, 8, "s1");
276 orc_program_add_source (p, 4, "s2");
277 orc_program_add_temporary (p, 8, "t1");
278
279 orc_program_append_2 (p, "mergelq", 0, ORC_VAR_T1, ORC_VAR_S2, ORC_VAR_S2, ORC_VAR_D1);
280 orc_program_append_2 (p, "mulf", 1, ORC_VAR_D1, ORC_VAR_S1, ORC_VAR_T1, ORC_VAR_D1);
281 #endif
282
283 2 orc_program_compile (p);
284 2 c = orc_program_take_code (p);
285 2 orc_program_free (p);
286 }
287 2 p_inited = TRUE;
288 2 orc_once_mutex_unlock ();
289 }
290 2 ex->arrays[ORC_VAR_A2] = c;
291 2 ex->program = 0;
292
293 2 ex->n = n;
294 2 ex->arrays[ORC_VAR_D1] = d1;
295 2 ex->arrays[ORC_VAR_S1] = (void *)s1;
296 2 ex->arrays[ORC_VAR_S2] = (void *)s2;
297
298 2 func = c->exec;
299 2 func (ex);
300 2 }
301 #endif
302
303
304