File Coverage

lib/PDL/Ufunc-pp-xorover.c

Criterion	Covered	Total	%
statement	32	174	18.3
branch	45	1080	4.1
condition			n/a
subroutine			n/a
pod			n/a
total	77	1254	6.1

line	stmt	bran	code
1
2			#line 453 "lib/PDL/PP.pm"
3			/*
4			* THIS FILE WAS GENERATED BY PDL::PP from lib/PDL/Ufunc.pd! Do not modify!
5			*/
6
7			#define PDL_FREE_CODE(trans, destroy, comp_free_code, ntpriv_free_code) \
8			if (destroy) { \
9			comp_free_code \
10			} \
11			if ((trans)->dims_redone) { \
12			ntpriv_free_code \
13			}
14
15			#include "EXTERN.h"
16			#include "perl.h"
17			#include "XSUB.h"
18			#include "pdl.h"
19			#include "pdlcore.h"
20			#define PDL PDL_Ufunc
21			extern Core* PDL; /* Structure hold core C functions */
22
23			#line 1857 "lib/PDL/PP.pm"
24			pdl_error pdl_xorover_readdata(pdl_trans *__privtrans) {
25			pdl_error PDL_err = {0, NULL, 0};
26			#line 27 "lib/PDL/Ufunc-pp-xorover.c"
27	3		register PDL_Indx __n_size = __privtrans->ind_sizes[0];
28	3	50	if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in xorover:" "broadcast.incs NULL");
29			/* broadcastloop declarations */
30			int __brcloopval;
31			register PDL_Indx __tind0,__tind1; /* counters along dim */
32	3		register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
33			/* dims here are how many steps along those dims */
34	3		register PDL_Indx __tinc0_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
35	3		register PDL_Indx __tinc0_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
36	3		register PDL_Indx __tinc1_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
37	3		register PDL_Indx __tinc1_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
38			#define PDL_BROADCASTLOOP_START_xorover_readdata PDL_BROADCASTLOOP_START( \
39			readdata, \
40			__privtrans->broadcast, \
41			__privtrans->vtable, \
42			a_datap += __offsp[0]; \
43			b_datap += __offsp[1]; \
44			, \
45			( ,a_datap += __tinc1_a - __tinc0_a * __tdims0 \
46			,b_datap += __tinc1_b - __tinc0_b * __tdims0 \
47			), \
48			( ,a_datap += __tinc0_a \
49			,b_datap += __tinc0_b \
50			) \
51			)
52			#define PDL_BROADCASTLOOP_END_xorover_readdata PDL_BROADCASTLOOP_END( \
53			__privtrans->broadcast, \
54			a_datap -= __tinc1_a * __tdims1 + __offsp[0]; \
55			b_datap -= __tinc1_b * __tdims1 + __offsp[1]; \
56			)
57	3		register PDL_Indx __inc_a_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_a_n;
58			#ifndef PDL_DECLARE_PARAMS_xorover_1
59			#define PDL_DECLARE_PARAMS_xorover_1(PDL_TYPE_OP,PDL_PPSYM_OP) \
60			PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, a, (__privtrans->pdls[0]), 1, PDL_PPSYM_OP) \
61			PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, b, (__privtrans->pdls[1]), 1, PDL_PPSYM_OP)
62			#endif
63	3	100	if ( __privtrans->bvalflag ) { /* do 'bad' Code */
64			#define PDL_BAD_CODE
65			#define PDL_IF_BAD(t,f) t
66	1		switch (__privtrans->__datatype) { /* Start generic switch */
67	0		case PDL_SB: {
68	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_SByte,A)
		0
		0
		0
		0
		0
		0
		0
69	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
70			#line 171 "lib/PDL/Ufunc.pd"
71			char tmp = 0;
72			PDL_IF_BAD(int flag = 0;,)
73			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
74			#line 174 "lib/PDL/Ufunc.pd"
75			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,A,a_badval_isnan) ) continue; flag = 1;,)
76			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
77			if ( 0 ) break;
78			}} /* Close n */
79			#line 178 "lib/PDL/Ufunc.pd"
80			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
81			(b_datap)[0] = tmp;
82			#line 83 "lib/PDL/Ufunc-pp-xorover.c"
83	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
84	0		} break;
85	0		case PDL_B: {
86	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_Byte,B)
		0
		0
		0
		0
		0
		0
		0
87	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
88			#line 171 "lib/PDL/Ufunc.pd"
89			char tmp = 0;
90			PDL_IF_BAD(int flag = 0;,)
91			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
92			#line 174 "lib/PDL/Ufunc.pd"
93			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,B,a_badval_isnan) ) continue; flag = 1;,)
94			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
95			if ( 0 ) break;
96			}} /* Close n */
97			#line 178 "lib/PDL/Ufunc.pd"
98			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
99			(b_datap)[0] = tmp;
100			#line 101 "lib/PDL/Ufunc-pp-xorover.c"
101	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
102	0		} break;
103	0		case PDL_S: {
104	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_Short,S)
		0
		0
		0
		0
		0
		0
		0
105	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
106			#line 171 "lib/PDL/Ufunc.pd"
107			char tmp = 0;
108			PDL_IF_BAD(int flag = 0;,)
109			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
110			#line 174 "lib/PDL/Ufunc.pd"
111			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,S,a_badval_isnan) ) continue; flag = 1;,)
112			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
113			if ( 0 ) break;
114			}} /* Close n */
115			#line 178 "lib/PDL/Ufunc.pd"
116			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
117			(b_datap)[0] = tmp;
118			#line 119 "lib/PDL/Ufunc-pp-xorover.c"
119	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
120	0		} break;
121	0		case PDL_US: {
122	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_Ushort,U)
		0
		0
		0
		0
		0
		0
		0
123	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
124			#line 171 "lib/PDL/Ufunc.pd"
125			char tmp = 0;
126			PDL_IF_BAD(int flag = 0;,)
127			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
128			#line 174 "lib/PDL/Ufunc.pd"
129			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,U,a_badval_isnan) ) continue; flag = 1;,)
130			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
131			if ( 0 ) break;
132			}} /* Close n */
133			#line 178 "lib/PDL/Ufunc.pd"
134			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
135			(b_datap)[0] = tmp;
136			#line 137 "lib/PDL/Ufunc-pp-xorover.c"
137	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
138	0		} break;
139	0		case PDL_L: {
140	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_Long,L)
		0
		0
		0
		0
		0
		0
		0
141	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
142			#line 171 "lib/PDL/Ufunc.pd"
143			char tmp = 0;
144			PDL_IF_BAD(int flag = 0;,)
145			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
146			#line 174 "lib/PDL/Ufunc.pd"
147			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,L,a_badval_isnan) ) continue; flag = 1;,)
148			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
149			if ( 0 ) break;
150			}} /* Close n */
151			#line 178 "lib/PDL/Ufunc.pd"
152			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
153			(b_datap)[0] = tmp;
154			#line 155 "lib/PDL/Ufunc-pp-xorover.c"
155	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
156	0		} break;
157	0		case PDL_UL: {
158	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_ULong,K)
		0
		0
		0
		0
		0
		0
		0
159	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
160			#line 171 "lib/PDL/Ufunc.pd"
161			char tmp = 0;
162			PDL_IF_BAD(int flag = 0;,)
163			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
164			#line 174 "lib/PDL/Ufunc.pd"
165			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,K,a_badval_isnan) ) continue; flag = 1;,)
166			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
167			if ( 0 ) break;
168			}} /* Close n */
169			#line 178 "lib/PDL/Ufunc.pd"
170			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
171			(b_datap)[0] = tmp;
172			#line 173 "lib/PDL/Ufunc-pp-xorover.c"
173	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
174	0		} break;
175	0		case PDL_IND: {
176	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_Indx,N)
		0
		0
		0
		0
		0
		0
		0
177	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
178			#line 171 "lib/PDL/Ufunc.pd"
179			char tmp = 0;
180			PDL_IF_BAD(int flag = 0;,)
181			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
182			#line 174 "lib/PDL/Ufunc.pd"
183			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,N,a_badval_isnan) ) continue; flag = 1;,)
184			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
185			if ( 0 ) break;
186			}} /* Close n */
187			#line 178 "lib/PDL/Ufunc.pd"
188			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
189			(b_datap)[0] = tmp;
190			#line 191 "lib/PDL/Ufunc-pp-xorover.c"
191	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
192	0		} break;
193	0		case PDL_ULL: {
194	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_ULongLong,P)
		0
		0
		0
		0
		0
		0
		0
195	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
196			#line 171 "lib/PDL/Ufunc.pd"
197			char tmp = 0;
198			PDL_IF_BAD(int flag = 0;,)
199			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
200			#line 174 "lib/PDL/Ufunc.pd"
201			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,P,a_badval_isnan) ) continue; flag = 1;,)
202			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
203			if ( 0 ) break;
204			}} /* Close n */
205			#line 178 "lib/PDL/Ufunc.pd"
206			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
207			(b_datap)[0] = tmp;
208			#line 209 "lib/PDL/Ufunc-pp-xorover.c"
209	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
210	0		} break;
211	1		case PDL_LL: {
212	1	50	PDL_DECLARE_PARAMS_xorover_1(PDL_LongLong,Q)
		50
		50
		50
		50
		50
		50
		50
213	4	50	PDL_BROADCASTLOOP_START_xorover_readdata {
		50
		50
		50
		50
		100
		100
214			#line 171 "lib/PDL/Ufunc.pd"
215			char tmp = 0;
216			PDL_IF_BAD(int flag = 0;,)
217			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
218			#line 174 "lib/PDL/Ufunc.pd"
219			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,Q,a_badval_isnan) ) continue; flag = 1;,)
220			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
221			if ( 0 ) break;
222			}} /* Close n */
223			#line 178 "lib/PDL/Ufunc.pd"
224			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
225			(b_datap)[0] = tmp;
226			#line 227 "lib/PDL/Ufunc-pp-xorover.c"
227	1	50	}PDL_BROADCASTLOOP_END_xorover_readdata
		50
228	1		} break;
229	0		case PDL_F: {
230	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_Float,F)
		0
		0
		0
		0
		0
		0
		0
231	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
232			#line 171 "lib/PDL/Ufunc.pd"
233			char tmp = 0;
234			PDL_IF_BAD(int flag = 0;,)
235			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
236			#line 174 "lib/PDL/Ufunc.pd"
237			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,F,a_badval_isnan) ) continue; flag = 1;,)
238			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
239			if ( 0 ) break;
240			}} /* Close n */
241			#line 178 "lib/PDL/Ufunc.pd"
242			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
243			(b_datap)[0] = tmp;
244			#line 245 "lib/PDL/Ufunc-pp-xorover.c"
245	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
246	0		} break;
247	0		case PDL_D: {
248	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_Double,D)
		0
		0
		0
		0
		0
		0
		0
249	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
250			#line 171 "lib/PDL/Ufunc.pd"
251			char tmp = 0;
252			PDL_IF_BAD(int flag = 0;,)
253			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
254			#line 174 "lib/PDL/Ufunc.pd"
255			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,D,a_badval_isnan) ) continue; flag = 1;,)
256			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
257			if ( 0 ) break;
258			}} /* Close n */
259			#line 178 "lib/PDL/Ufunc.pd"
260			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
261			(b_datap)[0] = tmp;
262			#line 263 "lib/PDL/Ufunc-pp-xorover.c"
263	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
264	0		} break;
265	0		case PDL_LD: {
266	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_LDouble,E)
		0
		0
		0
		0
		0
		0
		0
267	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
268			#line 171 "lib/PDL/Ufunc.pd"
269			char tmp = 0;
270			PDL_IF_BAD(int flag = 0;,)
271			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
272			#line 174 "lib/PDL/Ufunc.pd"
273			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,E,a_badval_isnan) ) continue; flag = 1;,)
274			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
275			if ( 0 ) break;
276			}} /* Close n */
277			#line 178 "lib/PDL/Ufunc.pd"
278			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
279			(b_datap)[0] = tmp;
280			#line 281 "lib/PDL/Ufunc-pp-xorover.c"
281	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
282	0		} break;
283	0		case PDL_CF: {
284	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_CFloat,G)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
285	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
286			#line 171 "lib/PDL/Ufunc.pd"
287			char tmp = 0;
288			PDL_IF_BAD(int flag = 0;,)
289			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
290			#line 174 "lib/PDL/Ufunc.pd"
291			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,G,a_badval_isnan) ) continue; flag = 1;,)
292			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
293			if ( 0 ) break;
294			}} /* Close n */
295			#line 178 "lib/PDL/Ufunc.pd"
296			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
297			(b_datap)[0] = tmp;
298			#line 299 "lib/PDL/Ufunc-pp-xorover.c"
299	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
300	0		} break;
301	0		case PDL_CD: {
302	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_CDouble,C)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
303	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
304			#line 171 "lib/PDL/Ufunc.pd"
305			char tmp = 0;
306			PDL_IF_BAD(int flag = 0;,)
307			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
308			#line 174 "lib/PDL/Ufunc.pd"
309			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,C,a_badval_isnan) ) continue; flag = 1;,)
310			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
311			if ( 0 ) break;
312			}} /* Close n */
313			#line 178 "lib/PDL/Ufunc.pd"
314			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
315			(b_datap)[0] = tmp;
316			#line 317 "lib/PDL/Ufunc-pp-xorover.c"
317	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
318	0		} break;
319	0		case PDL_CLD: {
320	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_CLDouble,H)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
321	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
322			#line 171 "lib/PDL/Ufunc.pd"
323			char tmp = 0;
324			PDL_IF_BAD(int flag = 0;,)
325			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
326			#line 174 "lib/PDL/Ufunc.pd"
327			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,H,a_badval_isnan) ) continue; flag = 1;,)
328			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
329			if ( 0 ) break;
330			}} /* Close n */
331			#line 178 "lib/PDL/Ufunc.pd"
332			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
333			(b_datap)[0] = tmp;
334			#line 335 "lib/PDL/Ufunc-pp-xorover.c"
335	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
336	0		} break;
337	0		default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in xorover: unhandled datatype(%d), only handles (ABSULKNPQFDEGCH)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
338			}
339			#undef PDL_BAD_CODE
340			#undef PDL_IF_BAD
341			} else { /* else do 'good' Code */
342			#define PDL_IF_BAD(t,f) f
343	2		switch (__privtrans->__datatype) { /* Start generic switch */
344	0		case PDL_SB: {
345	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_SByte,A)
		0
		0
		0
		0
		0
		0
		0
346	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
347			#line 171 "lib/PDL/Ufunc.pd"
348			char tmp = 0;
349			PDL_IF_BAD(int flag = 0;,)
350			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
351			#line 174 "lib/PDL/Ufunc.pd"
352			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,A,a_badval_isnan) ) continue; flag = 1;,)
353			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
354			if ( 0 ) break;
355			}} /* Close n */
356			#line 178 "lib/PDL/Ufunc.pd"
357			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
358			(b_datap)[0] = tmp;
359			#line 360 "lib/PDL/Ufunc-pp-xorover.c"
360	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
361	0		} break;
362	0		case PDL_B: {
363	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_Byte,B)
		0
		0
		0
		0
		0
		0
		0
364	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
365			#line 171 "lib/PDL/Ufunc.pd"
366			char tmp = 0;
367			PDL_IF_BAD(int flag = 0;,)
368			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
369			#line 174 "lib/PDL/Ufunc.pd"
370			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,B,a_badval_isnan) ) continue; flag = 1;,)
371			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
372			if ( 0 ) break;
373			}} /* Close n */
374			#line 178 "lib/PDL/Ufunc.pd"
375			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
376			(b_datap)[0] = tmp;
377			#line 378 "lib/PDL/Ufunc-pp-xorover.c"
378	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
379	0		} break;
380	0		case PDL_S: {
381	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_Short,S)
		0
		0
		0
		0
		0
		0
		0
382	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
383			#line 171 "lib/PDL/Ufunc.pd"
384			char tmp = 0;
385			PDL_IF_BAD(int flag = 0;,)
386			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
387			#line 174 "lib/PDL/Ufunc.pd"
388			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,S,a_badval_isnan) ) continue; flag = 1;,)
389			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
390			if ( 0 ) break;
391			}} /* Close n */
392			#line 178 "lib/PDL/Ufunc.pd"
393			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
394			(b_datap)[0] = tmp;
395			#line 396 "lib/PDL/Ufunc-pp-xorover.c"
396	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
397	0		} break;
398	0		case PDL_US: {
399	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_Ushort,U)
		0
		0
		0
		0
		0
		0
		0
400	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
401			#line 171 "lib/PDL/Ufunc.pd"
402			char tmp = 0;
403			PDL_IF_BAD(int flag = 0;,)
404			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
405			#line 174 "lib/PDL/Ufunc.pd"
406			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,U,a_badval_isnan) ) continue; flag = 1;,)
407			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
408			if ( 0 ) break;
409			}} /* Close n */
410			#line 178 "lib/PDL/Ufunc.pd"
411			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
412			(b_datap)[0] = tmp;
413			#line 414 "lib/PDL/Ufunc-pp-xorover.c"
414	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
415	0		} break;
416	0		case PDL_L: {
417	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_Long,L)
		0
		0
		0
		0
		0
		0
		0
418	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
419			#line 171 "lib/PDL/Ufunc.pd"
420			char tmp = 0;
421			PDL_IF_BAD(int flag = 0;,)
422			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
423			#line 174 "lib/PDL/Ufunc.pd"
424			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,L,a_badval_isnan) ) continue; flag = 1;,)
425			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
426			if ( 0 ) break;
427			}} /* Close n */
428			#line 178 "lib/PDL/Ufunc.pd"
429			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
430			(b_datap)[0] = tmp;
431			#line 432 "lib/PDL/Ufunc-pp-xorover.c"
432	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
433	0		} break;
434	0		case PDL_UL: {
435	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_ULong,K)
		0
		0
		0
		0
		0
		0
		0
436	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
437			#line 171 "lib/PDL/Ufunc.pd"
438			char tmp = 0;
439			PDL_IF_BAD(int flag = 0;,)
440			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
441			#line 174 "lib/PDL/Ufunc.pd"
442			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,K,a_badval_isnan) ) continue; flag = 1;,)
443			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
444			if ( 0 ) break;
445			}} /* Close n */
446			#line 178 "lib/PDL/Ufunc.pd"
447			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
448			(b_datap)[0] = tmp;
449			#line 450 "lib/PDL/Ufunc-pp-xorover.c"
450	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
451	0		} break;
452	0		case PDL_IND: {
453	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_Indx,N)
		0
		0
		0
		0
		0
		0
		0
454	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
455			#line 171 "lib/PDL/Ufunc.pd"
456			char tmp = 0;
457			PDL_IF_BAD(int flag = 0;,)
458			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
459			#line 174 "lib/PDL/Ufunc.pd"
460			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,N,a_badval_isnan) ) continue; flag = 1;,)
461			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
462			if ( 0 ) break;
463			}} /* Close n */
464			#line 178 "lib/PDL/Ufunc.pd"
465			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
466			(b_datap)[0] = tmp;
467			#line 468 "lib/PDL/Ufunc-pp-xorover.c"
468	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
469	0		} break;
470	0		case PDL_ULL: {
471	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_ULongLong,P)
		0
		0
		0
		0
		0
		0
		0
472	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
473			#line 171 "lib/PDL/Ufunc.pd"
474			char tmp = 0;
475			PDL_IF_BAD(int flag = 0;,)
476			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
477			#line 174 "lib/PDL/Ufunc.pd"
478			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,P,a_badval_isnan) ) continue; flag = 1;,)
479			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
480			if ( 0 ) break;
481			}} /* Close n */
482			#line 178 "lib/PDL/Ufunc.pd"
483			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
484			(b_datap)[0] = tmp;
485			#line 486 "lib/PDL/Ufunc-pp-xorover.c"
486	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
487	0		} break;
488	2		case PDL_LL: {
489	2	50	PDL_DECLARE_PARAMS_xorover_1(PDL_LongLong,Q)
		50
		50
		50
		50
		50
		50
		50
490	8	50	PDL_BROADCASTLOOP_START_xorover_readdata {
		50
		50
		50
		50
		100
		100
491			#line 171 "lib/PDL/Ufunc.pd"
492			char tmp = 0;
493			PDL_IF_BAD(int flag = 0;,)
494			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
495			#line 174 "lib/PDL/Ufunc.pd"
496			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,Q,a_badval_isnan) ) continue; flag = 1;,)
497			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
498			if ( 0 ) break;
499			}} /* Close n */
500			#line 178 "lib/PDL/Ufunc.pd"
501			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
502			(b_datap)[0] = tmp;
503			#line 504 "lib/PDL/Ufunc-pp-xorover.c"
504	2	50	}PDL_BROADCASTLOOP_END_xorover_readdata
		50
505	2		} break;
506	0		case PDL_F: {
507	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_Float,F)
		0
		0
		0
		0
		0
		0
		0
508	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
509			#line 171 "lib/PDL/Ufunc.pd"
510			char tmp = 0;
511			PDL_IF_BAD(int flag = 0;,)
512			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
513			#line 174 "lib/PDL/Ufunc.pd"
514			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,F,a_badval_isnan) ) continue; flag = 1;,)
515			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
516			if ( 0 ) break;
517			}} /* Close n */
518			#line 178 "lib/PDL/Ufunc.pd"
519			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
520			(b_datap)[0] = tmp;
521			#line 522 "lib/PDL/Ufunc-pp-xorover.c"
522	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
523	0		} break;
524	0		case PDL_D: {
525	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_Double,D)
		0
		0
		0
		0
		0
		0
		0
526	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
527			#line 171 "lib/PDL/Ufunc.pd"
528			char tmp = 0;
529			PDL_IF_BAD(int flag = 0;,)
530			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
531			#line 174 "lib/PDL/Ufunc.pd"
532			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,D,a_badval_isnan) ) continue; flag = 1;,)
533			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
534			if ( 0 ) break;
535			}} /* Close n */
536			#line 178 "lib/PDL/Ufunc.pd"
537			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
538			(b_datap)[0] = tmp;
539			#line 540 "lib/PDL/Ufunc-pp-xorover.c"
540	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
541	0		} break;
542	0		case PDL_LD: {
543	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_LDouble,E)
		0
		0
		0
		0
		0
		0
		0
544	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
545			#line 171 "lib/PDL/Ufunc.pd"
546			char tmp = 0;
547			PDL_IF_BAD(int flag = 0;,)
548			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
549			#line 174 "lib/PDL/Ufunc.pd"
550			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,E,a_badval_isnan) ) continue; flag = 1;,)
551			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
552			if ( 0 ) break;
553			}} /* Close n */
554			#line 178 "lib/PDL/Ufunc.pd"
555			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
556			(b_datap)[0] = tmp;
557			#line 558 "lib/PDL/Ufunc-pp-xorover.c"
558	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
559	0		} break;
560	0		case PDL_CF: {
561	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_CFloat,G)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
562	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
563			#line 171 "lib/PDL/Ufunc.pd"
564			char tmp = 0;
565			PDL_IF_BAD(int flag = 0;,)
566			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
567			#line 174 "lib/PDL/Ufunc.pd"
568			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,G,a_badval_isnan) ) continue; flag = 1;,)
569			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
570			if ( 0 ) break;
571			}} /* Close n */
572			#line 178 "lib/PDL/Ufunc.pd"
573			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
574			(b_datap)[0] = tmp;
575			#line 576 "lib/PDL/Ufunc-pp-xorover.c"
576	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
577	0		} break;
578	0		case PDL_CD: {
579	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_CDouble,C)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
580	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
581			#line 171 "lib/PDL/Ufunc.pd"
582			char tmp = 0;
583			PDL_IF_BAD(int flag = 0;,)
584			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
585			#line 174 "lib/PDL/Ufunc.pd"
586			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,C,a_badval_isnan) ) continue; flag = 1;,)
587			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
588			if ( 0 ) break;
589			}} /* Close n */
590			#line 178 "lib/PDL/Ufunc.pd"
591			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
592			(b_datap)[0] = tmp;
593			#line 594 "lib/PDL/Ufunc-pp-xorover.c"
594	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
595	0		} break;
596	0		case PDL_CLD: {
597	0	0	PDL_DECLARE_PARAMS_xorover_1(PDL_CLDouble,H)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
598	0	0	PDL_BROADCASTLOOP_START_xorover_readdata {
		0
		0
		0
		0
		0
		0
599			#line 171 "lib/PDL/Ufunc.pd"
600			char tmp = 0;
601			PDL_IF_BAD(int flag = 0;,)
602			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
603			#line 174 "lib/PDL/Ufunc.pd"
604			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,H,a_badval_isnan) ) continue; flag = 1;,)
605			tmp ^= ((a_datap)[0+(__inc_a_n*(n))] != 0);
606			if ( 0 ) break;
607			}} /* Close n */
608			#line 178 "lib/PDL/Ufunc.pd"
609			PDL_IF_BAD(if (!flag) { (b_datap)[0]=b_badval; __privtrans->pdls[1]->state \|= PDL_BADVAL; } else,)
610			(b_datap)[0] = tmp;
611			#line 612 "lib/PDL/Ufunc-pp-xorover.c"
612	0	0	}PDL_BROADCASTLOOP_END_xorover_readdata
		0
613	0		} break;
614	0		default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in xorover: unhandled datatype(%d), only handles (ABSULKNPQFDEGCH)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
615			}
616			#undef PDL_IF_BAD
617			}
618	3		return PDL_err;
619			}
620
621			static pdl_datatypes pdl_xorover_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, PDL_CF, PDL_CD, PDL_CLD, -1 };
622			static PDL_Indx pdl_xorover_vtable_realdims[] = { 1, 0 };
623			static char *pdl_xorover_vtable_parnames[] = { "a","b" };
624			static short pdl_xorover_vtable_parflags[] = {
625			0,
626			PDL_PARAM_ISCREAT\|PDL_PARAM_ISOUT\|PDL_PARAM_ISWRITE
627			};
628			static pdl_datatypes pdl_xorover_vtable_partypes[] = { -1, -1 };
629			static PDL_Indx pdl_xorover_vtable_realdims_starts[] = { 0, 1 };
630			static PDL_Indx pdl_xorover_vtable_realdims_ind_ids[] = { 0 };
631			static char *pdl_xorover_vtable_indnames[] = { "n" };
632			pdl_transvtable pdl_xorover_vtable = {
633			PDL_TRANS_DO_BROADCAST\|PDL_TRANS_BADPROCESS, 0, pdl_xorover_vtable_gentypes, 1, 2, NULL /CORE21/,
634			pdl_xorover_vtable_realdims, pdl_xorover_vtable_parnames,
635			pdl_xorover_vtable_parflags, pdl_xorover_vtable_partypes,
636			pdl_xorover_vtable_realdims_starts, pdl_xorover_vtable_realdims_ind_ids, 1,
637			1, pdl_xorover_vtable_indnames,
638			NULL, pdl_xorover_readdata, NULL,
639			NULL,
640			0,"PDL::Ufunc::xorover"
641			};
642
643
644	3		pdl_error pdl_run_xorover(pdl a,pdl b) {
645	3		pdl_error PDL_err = {0, NULL, 0};
646	3	50	if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
647	3		pdl_trans *__privtrans = PDL->create_trans(&pdl_xorover_vtable);
648	3	50	if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
649	3		__privtrans->pdls[0] = a;
650	3		__privtrans->pdls[1] = b;
651	3	50	PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
652	3	50	PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
653	3		return PDL_err;
654			}