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