[deb_vid.stab.git] / tests / orc_bug / orc_bug_orc.c


/* autogenerated from orc_bug_orc.orc */

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#ifndef _ORC_INTEGER_TYPEDEFS_
#define _ORC_INTEGER_TYPEDEFS_
#if defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
#include <stdint.h>
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 <limits.h>
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 DISABLE_ORC
#include <orc/orc.h>
#endif
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);


/* 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)&0xff)<<8) | (((x)&0xff00)>>8))
#define ORC_SWAP_L(x) ((((x)&0xff)<<24) | (((x)&0xff00)<<8) | (((x)&0xff0000)>>8) | (((x)&0xff000000)>>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 */


/* test_orc */
#ifdef DISABLE_ORC
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){
  int i;
  orc_union32 * ORC_RESTRICT ptr0;
  orc_union32 * ORC_RESTRICT ptr1;
  const orc_union32 * ORC_RESTRICT ptr4;
  orc_union32 var35;
  orc_union32 var36;
  orc_union32 var37;
  orc_union32 var38;
  orc_union32 var39;
  orc_union32 var40;
  orc_union32 var41;
  orc_union32 var42;
  orc_union32 var43;
  orc_union32 var44;
  orc_union32 var45;
  orc_union32 var46;
  orc_union32 var47;
  orc_union32 var48;
  orc_union32 var49;

  ptr0 = (orc_union32 *)d1;
  ptr1 = (orc_union32 *)d2;
  ptr4 = (orc_union32 *)s1;

    /* 1: loadpl */
    var36.i = p2;
    /* 3: loadpl */
    var37.i = p5;
    /* 5: loadpl */
    var38.i = p6;
    /* 6: loadpl */
    var39.i = p1;
    /* 9: loadpl */
    var40.i = p3;
    /* 12: loadpl */
    var42.i = p6;
    /* 14: loadpl */
    var43.i = p4;

  for (i = 0; i < n; i++) {
    /* 0: loadl */
    var35 = ptr4[i];
    /* 2: subl */
    var45.i = var35.i - var36.i;
    /* 4: mulll */
    var46.i = (var37.i * var45.i) & 0xffffffff;
    /* 7: mulll */
    var47.i = (var38.i * var39.i) & 0xffffffff;
    /* 8: addl */
    var48.i = var46.i + var47.i;
    /* 10: addl */
    var41.i = var48.i + var40.i;
    /* 11: storel */
    ptr0[i] = var41;
    /* 13: mulll */
    var49.i = (var45.i * var42.i) & 0xffffffff;
    /* 15: addl */
    var44.i = var49.i + var43.i;
    /* 16: storel */
    ptr1[i] = var44;
  }

}

#else
static void
_backup_test_orc (OrcExecutor * ORC_RESTRICT ex)
{
  int i;
  int n = ex->n;
  orc_union32 * ORC_RESTRICT ptr0;
  orc_union32 * ORC_RESTRICT ptr1;
  const orc_union32 * ORC_RESTRICT ptr4;
  orc_union32 var35;
  orc_union32 var36;
  orc_union32 var37;
  orc_union32 var38;
  orc_union32 var39;
  orc_union32 var40;
  orc_union32 var41;
  orc_union32 var42;
  orc_union32 var43;
  orc_union32 var44;
  orc_union32 var45;
  orc_union32 var46;
  orc_union32 var47;
  orc_union32 var48;
  orc_union32 var49;

  ptr0 = (orc_union32 *)ex->arrays[0];
  ptr1 = (orc_union32 *)ex->arrays[1];
  ptr4 = (orc_union32 *)ex->arrays[4];

    /* 1: loadpl */
    var36.i = ex->params[25];
    /* 3: loadpl */
    var37.i = ex->params[28];
    /* 5: loadpl */
    var38.i = ex->params[29];
    /* 6: loadpl */
    var39.i = ex->params[24];
    /* 9: loadpl */
    var40.i = ex->params[26];
    /* 12: loadpl */
    var42.i = ex->params[29];
    /* 14: loadpl */
    var43.i = ex->params[27];

  for (i = 0; i < n; i++) {
    /* 0: loadl */
    var35 = ptr4[i];
    /* 2: subl */
    var45.i = var35.i - var36.i;
    /* 4: mulll */
    var46.i = (var37.i * var45.i) & 0xffffffff;
    /* 7: mulll */
    var47.i = (var38.i * var39.i) & 0xffffffff;
    /* 8: addl */
    var48.i = var46.i + var47.i;
    /* 10: addl */
    var41.i = var48.i + var40.i;
    /* 11: storel */
    ptr0[i] = var41;
    /* 13: mulll */
    var49.i = (var45.i * var42.i) & 0xffffffff;
    /* 15: addl */
    var44.i = var49.i + var43.i;
    /* 16: storel */
    ptr1[i] = var44;
  }

}

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)
{
  OrcExecutor _ex, *ex = &_ex;
  static int p_inited = 0;
  static OrcCode *c = 0;
  void (*func) (OrcExecutor *);

  if (!p_inited) {
    orc_once_mutex_lock ();
    if (!p_inited) {
      OrcProgram *p;

      p = orc_program_new ();
      orc_program_set_name (p, "test_orc");
      orc_program_set_backup_function (p, _backup_test_orc);
      orc_program_add_destination (p, 4, "d1");
      orc_program_add_destination (p, 4, "d2");
      orc_program_add_source (p, 4, "s1");
      orc_program_add_parameter (p, 4, "p1");
      orc_program_add_parameter (p, 4, "p2");
      orc_program_add_parameter (p, 4, "p3");
      orc_program_add_parameter (p, 4, "p4");
      orc_program_add_parameter (p, 4, "p5");
      orc_program_add_parameter (p, 4, "p6");
      orc_program_add_temporary (p, 4, "t1");
      orc_program_add_temporary (p, 4, "t2");
      orc_program_add_temporary (p, 4, "t3");

      orc_program_append_2 (p, "subl", 0, ORC_VAR_T1, ORC_VAR_S1, ORC_VAR_P2, ORC_VAR_D1);
      orc_program_append_2 (p, "mulll", 0, ORC_VAR_T2, ORC_VAR_P5, ORC_VAR_T1, ORC_VAR_D1);
      orc_program_append_2 (p, "mulll", 0, ORC_VAR_T3, ORC_VAR_P6, ORC_VAR_P1, ORC_VAR_D1);
      orc_program_append_2 (p, "addl", 0, ORC_VAR_T2, ORC_VAR_T2, ORC_VAR_T3, ORC_VAR_D1);
      orc_program_append_2 (p, "addl", 0, ORC_VAR_D1, ORC_VAR_T2, ORC_VAR_P3, ORC_VAR_D1);
      orc_program_append_2 (p, "mulll", 0, ORC_VAR_T2, ORC_VAR_T1, ORC_VAR_P6, ORC_VAR_D1);
      orc_program_append_2 (p, "addl", 0, ORC_VAR_D2, ORC_VAR_T2, ORC_VAR_P4, ORC_VAR_D1);

      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_D2] = d2;
  ex->arrays[ORC_VAR_S1] = (void *)s1;
  ex->params[ORC_VAR_P1] = p1;
  ex->params[ORC_VAR_P2] = p2;
  ex->params[ORC_VAR_P3] = p3;
  ex->params[ORC_VAR_P4] = p4;
  ex->params[ORC_VAR_P5] = p5;
  ex->params[ORC_VAR_P6] = p6;

  func = c->exec;
  func (ex);
}
#endif
Commit	Line	Data
80f575fc DM	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