/* autogenerated from gstaudioconvertorc.orc */ #ifdef HAVE_CONFIG_H #include "config.h" #endif #include #ifndef _ORC_INTEGER_TYPEDEFS_ #define _ORC_INTEGER_TYPEDEFS_ #if defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L #include typedef int8_t orc_int8; typedef int16_t orc_int16; typedef int32_t orc_int32; typedef int64_t orc_int64; typedef uint8_t orc_uint8; typedef uint16_t orc_uint16; typedef uint32_t orc_uint32; typedef uint64_t orc_uint64; #define ORC_UINT64_C(x) UINT64_C(x) #elif defined(_MSC_VER) typedef signed __int8 orc_int8; typedef signed __int16 orc_int16; typedef signed __int32 orc_int32; typedef signed __int64 orc_int64; typedef unsigned __int8 orc_uint8; typedef unsigned __int16 orc_uint16; typedef unsigned __int32 orc_uint32; typedef unsigned __int64 orc_uint64; #define ORC_UINT64_C(x) (x##Ui64) #define inline __inline #else #include typedef signed char orc_int8; typedef short orc_int16; typedef int orc_int32; typedef unsigned char orc_uint8; typedef unsigned short orc_uint16; typedef unsigned int orc_uint32; #if INT_MAX == LONG_MAX typedef long long orc_int64; typedef unsigned long long orc_uint64; #define ORC_UINT64_C(x) (x##ULL) #else typedef long orc_int64; typedef unsigned long orc_uint64; #define ORC_UINT64_C(x) (x##UL) #endif #endif typedef union { orc_int16 i; orc_int8 x2[2]; } orc_union16; typedef union { orc_int32 i; float f; orc_int16 x2[2]; orc_int8 x4[4]; } orc_union32; typedef union { orc_int64 i; double f; orc_int32 x2[2]; float x2f[2]; orc_int16 x4[4]; } orc_union64; #endif #ifndef ORC_RESTRICT #if defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L #define ORC_RESTRICT restrict #elif defined(__GNUC__) && __GNUC__ >= 4 #define ORC_RESTRICT __restrict__ #else #define ORC_RESTRICT #endif #endif #ifndef ORC_INTERNAL #if defined(__SUNPRO_C) && (__SUNPRO_C >= 0x590) #define ORC_INTERNAL __attribute__((visibility("hidden"))) #elif defined(__SUNPRO_C) && (__SUNPRO_C >= 0x550) #define ORC_INTERNAL __hidden #elif defined (__GNUC__) #define ORC_INTERNAL __attribute__((visibility("hidden"))) #else #define ORC_INTERNAL #endif #endif #ifndef DISABLE_ORC #include #endif void audio_convert_orc_s32_to_double (gdouble * ORC_RESTRICT d1, const gint32 * ORC_RESTRICT s1, int n); void audio_convert_orc_double_to_s32 (gint32 * ORC_RESTRICT d1, const gdouble * ORC_RESTRICT s1, int n); void audio_convert_orc_int_bias (gint32 * ORC_RESTRICT d1, const gint32 * ORC_RESTRICT s1, int p1, int p2, int n); void audio_convert_orc_int_dither (gint32 * ORC_RESTRICT d1, const gint32 * ORC_RESTRICT s1, const gint32 * ORC_RESTRICT s2, int p1, int n); /* begin Orc C target preamble */ #define ORC_CLAMP(x,a,b) ((x)<(a) ? (a) : ((x)>(b) ? (b) : (x))) #define ORC_ABS(a) ((a)<0 ? -(a) : (a)) #define ORC_MIN(a,b) ((a)<(b) ? (a) : (b)) #define ORC_MAX(a,b) ((a)>(b) ? (a) : (b)) #define ORC_SB_MAX 127 #define ORC_SB_MIN (-1-ORC_SB_MAX) #define ORC_UB_MAX 255 #define ORC_UB_MIN 0 #define ORC_SW_MAX 32767 #define ORC_SW_MIN (-1-ORC_SW_MAX) #define ORC_UW_MAX 65535 #define ORC_UW_MIN 0 #define ORC_SL_MAX 2147483647 #define ORC_SL_MIN (-1-ORC_SL_MAX) #define ORC_UL_MAX 4294967295U #define ORC_UL_MIN 0 #define ORC_CLAMP_SB(x) ORC_CLAMP(x,ORC_SB_MIN,ORC_SB_MAX) #define ORC_CLAMP_UB(x) ORC_CLAMP(x,ORC_UB_MIN,ORC_UB_MAX) #define ORC_CLAMP_SW(x) ORC_CLAMP(x,ORC_SW_MIN,ORC_SW_MAX) #define ORC_CLAMP_UW(x) ORC_CLAMP(x,ORC_UW_MIN,ORC_UW_MAX) #define ORC_CLAMP_SL(x) ORC_CLAMP(x,ORC_SL_MIN,ORC_SL_MAX) #define ORC_CLAMP_UL(x) ORC_CLAMP(x,ORC_UL_MIN,ORC_UL_MAX) #define ORC_SWAP_W(x) ((((x)&0xffU)<<8) | (((x)&0xff00U)>>8)) #define ORC_SWAP_L(x) ((((x)&0xffU)<<24) | (((x)&0xff00U)<<8) | (((x)&0xff0000U)>>8) | (((x)&0xff000000U)>>24)) #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)) #define ORC_PTR_OFFSET(ptr,offset) ((void *)(((unsigned char *)(ptr)) + (offset))) #define ORC_DENORMAL(x) ((x) & ((((x)&0x7f800000) == 0) ? 0xff800000 : 0xffffffff)) #define ORC_ISNAN(x) ((((x)&0x7f800000) == 0x7f800000) && (((x)&0x007fffff) != 0)) #define ORC_DENORMAL_DOUBLE(x) ((x) & ((((x)&ORC_UINT64_C(0x7ff0000000000000)) == 0) ? ORC_UINT64_C(0xfff0000000000000) : ORC_UINT64_C(0xffffffffffffffff))) #define ORC_ISNAN_DOUBLE(x) ((((x)&ORC_UINT64_C(0x7ff0000000000000)) == ORC_UINT64_C(0x7ff0000000000000)) && (((x)&ORC_UINT64_C(0x000fffffffffffff)) != 0)) #ifndef ORC_RESTRICT #if defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L #define ORC_RESTRICT restrict #elif defined(__GNUC__) && __GNUC__ >= 4 #define ORC_RESTRICT __restrict__ #else #define ORC_RESTRICT #endif #endif /* end Orc C target preamble */ /* audio_convert_orc_s32_to_double */ #ifdef DISABLE_ORC void audio_convert_orc_s32_to_double (gdouble * ORC_RESTRICT d1, const gint32 * ORC_RESTRICT s1, int n) { int i; orc_union64 *ORC_RESTRICT ptr0; const orc_union32 *ORC_RESTRICT ptr4; orc_union32 var33; #if defined(__APPLE__) && __GNUC__ == 4 && __GNUC_MINOR__ == 2 && defined (__i386__) volatile orc_union64 var34; #else orc_union64 var34; #endif orc_union64 var35; orc_union64 var36; ptr0 = (orc_union64 *) d1; ptr4 = (orc_union32 *) s1; /* 2: loadpq */ var34.i = ORC_UINT64_C (0x41dfffffffc00000); /* 2.14748e+09f */ for (i = 0; i < n; i++) { /* 0: loadl */ var33 = ptr4[i]; /* 1: convld */ var36.f = var33.i; /* 3: divd */ { orc_union64 _src1; orc_union64 _src2; orc_union64 _dest1; _src1.i = ORC_DENORMAL_DOUBLE (var36.i); _src2.i = ORC_DENORMAL_DOUBLE (var34.i); _dest1.f = _src1.f / _src2.f; var35.i = ORC_DENORMAL_DOUBLE (_dest1.i); } /* 4: storeq */ ptr0[i] = var35; } } #else static void _backup_audio_convert_orc_s32_to_double (OrcExecutor * ORC_RESTRICT ex) { int i; int n = ex->n; orc_union64 *ORC_RESTRICT ptr0; const orc_union32 *ORC_RESTRICT ptr4; orc_union32 var33; #if defined(__APPLE__) && __GNUC__ == 4 && __GNUC_MINOR__ == 2 && defined (__i386__) volatile orc_union64 var34; #else orc_union64 var34; #endif orc_union64 var35; orc_union64 var36; ptr0 = (orc_union64 *) ex->arrays[0]; ptr4 = (orc_union32 *) ex->arrays[4]; /* 2: loadpq */ var34.i = ORC_UINT64_C (0x41dfffffffc00000); /* 2.14748e+09f */ for (i = 0; i < n; i++) { /* 0: loadl */ var33 = ptr4[i]; /* 1: convld */ var36.f = var33.i; /* 3: divd */ { orc_union64 _src1; orc_union64 _src2; orc_union64 _dest1; _src1.i = ORC_DENORMAL_DOUBLE (var36.i); _src2.i = ORC_DENORMAL_DOUBLE (var34.i); _dest1.f = _src1.f / _src2.f; var35.i = ORC_DENORMAL_DOUBLE (_dest1.i); } /* 4: storeq */ ptr0[i] = var35; } } void audio_convert_orc_s32_to_double (gdouble * ORC_RESTRICT d1, const gint32 * ORC_RESTRICT s1, int n) { OrcExecutor _ex, *ex = &_ex; static volatile int p_inited = 0; static OrcCode *c = 0; void (*func) (OrcExecutor *); if (!p_inited) { orc_once_mutex_lock (); if (!p_inited) { OrcProgram *p; #if 1 static const orc_uint8 bc[] = { 1, 9, 31, 97, 117, 100, 105, 111, 95, 99, 111, 110, 118, 101, 114, 116, 95, 111, 114, 99, 95, 115, 51, 50, 95, 116, 111, 95, 100, 111, 117, 98, 108, 101, 11, 8, 8, 12, 4, 4, 15, 8, 0, 0, 192, 255, 255, 255, 223, 65, 20, 8, 223, 32, 4, 215, 0, 32, 16, 2, 0, }; p = orc_program_new_from_static_bytecode (bc); orc_program_set_backup_function (p, _backup_audio_convert_orc_s32_to_double); #else p = orc_program_new (); orc_program_set_name (p, "audio_convert_orc_s32_to_double"); orc_program_set_backup_function (p, _backup_audio_convert_orc_s32_to_double); orc_program_add_destination (p, 8, "d1"); orc_program_add_source (p, 4, "s1"); orc_program_add_constant_int64 (p, 8, 0x41dfffffffc00000ULL, "c1"); orc_program_add_temporary (p, 8, "t1"); orc_program_append_2 (p, "convld", 0, ORC_VAR_T1, ORC_VAR_S1, ORC_VAR_D1, ORC_VAR_D1); orc_program_append_2 (p, "divd", 0, ORC_VAR_D1, ORC_VAR_T1, ORC_VAR_C1, ORC_VAR_D1); #endif orc_program_compile (p); c = orc_program_take_code (p); orc_program_free (p); } p_inited = TRUE; orc_once_mutex_unlock (); } ex->arrays[ORC_VAR_A2] = c; ex->program = 0; ex->n = n; ex->arrays[ORC_VAR_D1] = d1; ex->arrays[ORC_VAR_S1] = (void *) s1; func = c->exec; func (ex); } #endif /* audio_convert_orc_double_to_s32 */ #ifdef DISABLE_ORC void audio_convert_orc_double_to_s32 (gint32 * ORC_RESTRICT d1, const gdouble * ORC_RESTRICT s1, int n) { int i; orc_union32 *ORC_RESTRICT ptr0; const orc_union64 *ORC_RESTRICT ptr4; orc_union64 var33; #if defined(__APPLE__) && __GNUC__ == 4 && __GNUC_MINOR__ == 2 && defined (__i386__) volatile orc_union64 var34; #else orc_union64 var34; #endif orc_union32 var35; orc_union64 var36; ptr0 = (orc_union32 *) d1; ptr4 = (orc_union64 *) s1; /* 1: loadpq */ var34.i = ORC_UINT64_C (0x41dfffffffc00000); /* 2.14748e+09f */ for (i = 0; i < n; i++) { /* 0: loadq */ var33 = ptr4[i]; /* 2: muld */ { orc_union64 _src1; orc_union64 _src2; orc_union64 _dest1; _src1.i = ORC_DENORMAL_DOUBLE (var33.i); _src2.i = ORC_DENORMAL_DOUBLE (var34.i); _dest1.f = _src1.f * _src2.f; var36.i = ORC_DENORMAL_DOUBLE (_dest1.i); } /* 3: convdl */ { int tmp; tmp = var36.f; if (tmp == 0x80000000 && !(var36.i & ORC_UINT64_C (0x8000000000000000))) tmp = 0x7fffffff; var35.i = tmp; } /* 4: storel */ ptr0[i] = var35; } } #else static void _backup_audio_convert_orc_double_to_s32 (OrcExecutor * ORC_RESTRICT ex) { int i; int n = ex->n; orc_union32 *ORC_RESTRICT ptr0; const orc_union64 *ORC_RESTRICT ptr4; orc_union64 var33; #if defined(__APPLE__) && __GNUC__ == 4 && __GNUC_MINOR__ == 2 && defined (__i386__) volatile orc_union64 var34; #else orc_union64 var34; #endif orc_union32 var35; orc_union64 var36; ptr0 = (orc_union32 *) ex->arrays[0]; ptr4 = (orc_union64 *) ex->arrays[4]; /* 1: loadpq */ var34.i = ORC_UINT64_C (0x41dfffffffc00000); /* 2.14748e+09f */ for (i = 0; i < n; i++) { /* 0: loadq */ var33 = ptr4[i]; /* 2: muld */ { orc_union64 _src1; orc_union64 _src2; orc_union64 _dest1; _src1.i = ORC_DENORMAL_DOUBLE (var33.i); _src2.i = ORC_DENORMAL_DOUBLE (var34.i); _dest1.f = _src1.f * _src2.f; var36.i = ORC_DENORMAL_DOUBLE (_dest1.i); } /* 3: convdl */ { int tmp; tmp = var36.f; if (tmp == 0x80000000 && !(var36.i & ORC_UINT64_C (0x8000000000000000))) tmp = 0x7fffffff; var35.i = tmp; } /* 4: storel */ ptr0[i] = var35; } } void audio_convert_orc_double_to_s32 (gint32 * ORC_RESTRICT d1, const gdouble * ORC_RESTRICT s1, int n) { OrcExecutor _ex, *ex = &_ex; static volatile int p_inited = 0; static OrcCode *c = 0; void (*func) (OrcExecutor *); if (!p_inited) { orc_once_mutex_lock (); if (!p_inited) { OrcProgram *p; #if 1 static const orc_uint8 bc[] = { 1, 9, 31, 97, 117, 100, 105, 111, 95, 99, 111, 110, 118, 101, 114, 116, 95, 111, 114, 99, 95, 100, 111, 117, 98, 108, 101, 95, 116, 111, 95, 115, 51, 50, 11, 4, 4, 12, 8, 8, 15, 8, 0, 0, 192, 255, 255, 255, 223, 65, 20, 8, 214, 32, 4, 16, 222, 0, 32, 2, 0, }; p = orc_program_new_from_static_bytecode (bc); orc_program_set_backup_function (p, _backup_audio_convert_orc_double_to_s32); #else p = orc_program_new (); orc_program_set_name (p, "audio_convert_orc_double_to_s32"); orc_program_set_backup_function (p, _backup_audio_convert_orc_double_to_s32); orc_program_add_destination (p, 4, "d1"); orc_program_add_source (p, 8, "s1"); orc_program_add_constant_int64 (p, 8, 0x41dfffffffc00000ULL, "c1"); orc_program_add_temporary (p, 8, "t1"); orc_program_append_2 (p, "muld", 0, ORC_VAR_T1, ORC_VAR_S1, ORC_VAR_C1, ORC_VAR_D1); orc_program_append_2 (p, "convdl", 0, ORC_VAR_D1, ORC_VAR_T1, ORC_VAR_D1, ORC_VAR_D1); #endif orc_program_compile (p); c = orc_program_take_code (p); orc_program_free (p); } p_inited = TRUE; orc_once_mutex_unlock (); } ex->arrays[ORC_VAR_A2] = c; ex->program = 0; ex->n = n; ex->arrays[ORC_VAR_D1] = d1; ex->arrays[ORC_VAR_S1] = (void *) s1; func = c->exec; func (ex); } #endif /* audio_convert_orc_int_bias */ #ifdef DISABLE_ORC void audio_convert_orc_int_bias (gint32 * ORC_RESTRICT d1, const gint32 * ORC_RESTRICT s1, int p1, int p2, int n) { int i; orc_union32 *ORC_RESTRICT ptr0; const orc_union32 *ORC_RESTRICT ptr4; orc_union32 var33; orc_union32 var34; orc_union32 var35; orc_union32 var36; orc_union32 var37; ptr0 = (orc_union32 *) d1; ptr4 = (orc_union32 *) s1; /* 1: loadpl */ var34.i = p1; /* 3: loadpl */ var35.i = p2; for (i = 0; i < n; i++) { /* 0: loadl */ var33 = ptr4[i]; /* 2: addssl */ var37.i = ORC_CLAMP_SL ((orc_int64) var33.i + (orc_int64) var34.i); /* 4: andl */ var36.i = var37.i & var35.i; /* 5: storel */ ptr0[i] = var36; } } #else static void _backup_audio_convert_orc_int_bias (OrcExecutor * ORC_RESTRICT ex) { int i; int n = ex->n; orc_union32 *ORC_RESTRICT ptr0; const orc_union32 *ORC_RESTRICT ptr4; orc_union32 var33; orc_union32 var34; orc_union32 var35; orc_union32 var36; orc_union32 var37; ptr0 = (orc_union32 *) ex->arrays[0]; ptr4 = (orc_union32 *) ex->arrays[4]; /* 1: loadpl */ var34.i = ex->params[24]; /* 3: loadpl */ var35.i = ex->params[25]; for (i = 0; i < n; i++) { /* 0: loadl */ var33 = ptr4[i]; /* 2: addssl */ var37.i = ORC_CLAMP_SL ((orc_int64) var33.i + (orc_int64) var34.i); /* 4: andl */ var36.i = var37.i & var35.i; /* 5: storel */ ptr0[i] = var36; } } void audio_convert_orc_int_bias (gint32 * ORC_RESTRICT d1, const gint32 * ORC_RESTRICT s1, int p1, int p2, int n) { OrcExecutor _ex, *ex = &_ex; static volatile int p_inited = 0; static OrcCode *c = 0; void (*func) (OrcExecutor *); if (!p_inited) { orc_once_mutex_lock (); if (!p_inited) { OrcProgram *p; #if 1 static const orc_uint8 bc[] = { 1, 9, 26, 97, 117, 100, 105, 111, 95, 99, 111, 110, 118, 101, 114, 116, 95, 111, 114, 99, 95, 105, 110, 116, 95, 98, 105, 97, 115, 11, 4, 4, 12, 4, 4, 16, 4, 16, 4, 20, 4, 104, 32, 4, 24, 106, 0, 32, 25, 2, 0, }; p = orc_program_new_from_static_bytecode (bc); orc_program_set_backup_function (p, _backup_audio_convert_orc_int_bias); #else p = orc_program_new (); orc_program_set_name (p, "audio_convert_orc_int_bias"); orc_program_set_backup_function (p, _backup_audio_convert_orc_int_bias); orc_program_add_destination (p, 4, "d1"); orc_program_add_source (p, 4, "s1"); orc_program_add_parameter (p, 4, "p1"); orc_program_add_parameter (p, 4, "p2"); orc_program_add_temporary (p, 4, "t1"); orc_program_append_2 (p, "addssl", 0, ORC_VAR_T1, ORC_VAR_S1, ORC_VAR_P1, ORC_VAR_D1); orc_program_append_2 (p, "andl", 0, ORC_VAR_D1, ORC_VAR_T1, ORC_VAR_P2, ORC_VAR_D1); #endif orc_program_compile (p); c = orc_program_take_code (p); orc_program_free (p); } p_inited = TRUE; orc_once_mutex_unlock (); } ex->arrays[ORC_VAR_A2] = c; ex->program = 0; ex->n = n; ex->arrays[ORC_VAR_D1] = d1; ex->arrays[ORC_VAR_S1] = (void *) s1; ex->params[ORC_VAR_P1] = p1; ex->params[ORC_VAR_P2] = p2; func = c->exec; func (ex); } #endif /* audio_convert_orc_int_dither */ #ifdef DISABLE_ORC void audio_convert_orc_int_dither (gint32 * ORC_RESTRICT d1, const gint32 * ORC_RESTRICT s1, const gint32 * ORC_RESTRICT s2, int p1, int n) { int i; orc_union32 *ORC_RESTRICT ptr0; const orc_union32 *ORC_RESTRICT ptr4; const orc_union32 *ORC_RESTRICT ptr5; orc_union32 var33; orc_union32 var34; orc_union32 var35; orc_union32 var36; orc_union32 var37; ptr0 = (orc_union32 *) d1; ptr4 = (orc_union32 *) s1; ptr5 = (orc_union32 *) s2; /* 3: loadpl */ var35.i = p1; for (i = 0; i < n; i++) { /* 0: loadl */ var33 = ptr4[i]; /* 1: loadl */ var34 = ptr5[i]; /* 2: addssl */ var37.i = ORC_CLAMP_SL ((orc_int64) var33.i + (orc_int64) var34.i); /* 4: andl */ var36.i = var37.i & var35.i; /* 5: storel */ ptr0[i] = var36; } } #else static void _backup_audio_convert_orc_int_dither (OrcExecutor * ORC_RESTRICT ex) { int i; int n = ex->n; orc_union32 *ORC_RESTRICT ptr0; const orc_union32 *ORC_RESTRICT ptr4; const orc_union32 *ORC_RESTRICT ptr5; orc_union32 var33; orc_union32 var34; orc_union32 var35; orc_union32 var36; orc_union32 var37; ptr0 = (orc_union32 *) ex->arrays[0]; ptr4 = (orc_union32 *) ex->arrays[4]; ptr5 = (orc_union32 *) ex->arrays[5]; /* 3: loadpl */ var35.i = ex->params[24]; for (i = 0; i < n; i++) { /* 0: loadl */ var33 = ptr4[i]; /* 1: loadl */ var34 = ptr5[i]; /* 2: addssl */ var37.i = ORC_CLAMP_SL ((orc_int64) var33.i + (orc_int64) var34.i); /* 4: andl */ var36.i = var37.i & var35.i; /* 5: storel */ ptr0[i] = var36; } } void audio_convert_orc_int_dither (gint32 * ORC_RESTRICT d1, const gint32 * ORC_RESTRICT s1, const gint32 * ORC_RESTRICT s2, int p1, int n) { OrcExecutor _ex, *ex = &_ex; static volatile int p_inited = 0; static OrcCode *c = 0; void (*func) (OrcExecutor *); if (!p_inited) { orc_once_mutex_lock (); if (!p_inited) { OrcProgram *p; #if 1 static const orc_uint8 bc[] = { 1, 9, 28, 97, 117, 100, 105, 111, 95, 99, 111, 110, 118, 101, 114, 116, 95, 111, 114, 99, 95, 105, 110, 116, 95, 100, 105, 116, 104, 101, 114, 11, 4, 4, 12, 4, 4, 12, 4, 4, 16, 4, 20, 4, 104, 32, 4, 5, 106, 0, 32, 24, 2, 0, }; p = orc_program_new_from_static_bytecode (bc); orc_program_set_backup_function (p, _backup_audio_convert_orc_int_dither); #else p = orc_program_new (); orc_program_set_name (p, "audio_convert_orc_int_dither"); orc_program_set_backup_function (p, _backup_audio_convert_orc_int_dither); orc_program_add_destination (p, 4, "d1"); orc_program_add_source (p, 4, "s1"); orc_program_add_source (p, 4, "s2"); orc_program_add_parameter (p, 4, "p1"); orc_program_add_temporary (p, 4, "t1"); orc_program_append_2 (p, "addssl", 0, ORC_VAR_T1, ORC_VAR_S1, ORC_VAR_S2, ORC_VAR_D1); orc_program_append_2 (p, "andl", 0, ORC_VAR_D1, ORC_VAR_T1, ORC_VAR_P1, ORC_VAR_D1); #endif orc_program_compile (p); c = orc_program_take_code (p); orc_program_free (p); } p_inited = TRUE; orc_once_mutex_unlock (); } ex->arrays[ORC_VAR_A2] = c; ex->program = 0; ex->n = n; ex->arrays[ORC_VAR_D1] = d1; ex->arrays[ORC_VAR_S1] = (void *) s1; ex->arrays[ORC_VAR_S2] = (void *) s2; ex->params[ORC_VAR_P1] = p1; func = c->exec; func (ex); } #endif