1 /* This test is included into builtins-1-be.c and builtins-1-le.c to test on
2 Big Endian and Little Endian machines. */
3 /* This file is based on builtins-1.h. In this variant, most variables have
4 been marked as extern to prevent optimization-away. */
5
6 #include <altivec.h>
7
8 vector double y = { 2.0, 4.0 };
9 extern vector double z;
10
11 int main ()
12 {
13 vector float fa = {1.0, 2.0, 3.0, -4.0};
14 vector float fb = {-2.0, -3.0, -4.0, -5.0};
15 extern vector float fd; fd = vec_and (fa, fb);
16 extern vector float fc; fc = vec_cpsgn (fa, fb);
17 extern vector float fe; fe = vec_mergeh (fa, fb);
18 extern vector float ff; ff = vec_mergel (fa, fb);
19
20 vector double da = {1.0, 2.0};
21 vector double db = {-2.0, -3.0};
22 extern vector double dz; dz = vec_and (da, db);
23
24 vector long long la = {5L, 14L};
25 vector long long lb = {3L, 86L};
26 extern vector long long lc; lc = vec_and (la, lb);
27 vector bool long long ld = {0, -1};
28 extern vector long long le; le = vec_and (la, ld);
29 extern vector long long lf; lf = vec_and (ld, lb);
30
31 vector unsigned long long ua = {5L, 14L};
32 vector unsigned long long ub = {3L, 86L};
33 extern vector unsigned long long uc; uc = vec_and (ua, ub);
34 vector bool long long ud = {0, -1};
35 extern vector unsigned long long ue; ue = vec_and (ua, ud);
36 extern vector unsigned long long uf; uf = vec_and (ud, ub);
37
38 extern vector long long lg; lg = vec_andc (la, lb);
39 extern vector long long lh; lh = vec_andc (la, ld);
40 extern vector long long li; li = vec_andc (ld, lb);
41
42 extern vector unsigned long long ug; ug = vec_andc (ua, ub);
43 extern vector unsigned long long uh; uh = vec_andc (ua, ud);
44 extern vector unsigned long long ui; ui = vec_andc (ud, ub);
45
46 vector double de = {1.0, -4.0};
47 vector double df = {-2.0, 5.0};
48 extern vector double dg; dg = vec_cpsgn (de, df);
49 extern vector double dzw; dzw = vec_mergeh (de, df);
50 extern vector double dze; dze = vec_mergel (de, df);
51
52 extern vector long long lj; lj = vec_mergeh (la, lb);
53 extern vector long long lk; lk = vec_mergeh (la, ld);
54 extern vector long long ll; ll = vec_mergeh (ld, la);
55
56 extern vector unsigned long long uj; uj = vec_mergeh (ua, ub);
57 extern vector unsigned long long uk; uk = vec_mergeh (ua, ud);
58 extern vector unsigned long long ul; ul = vec_mergeh (ud, ua);
59
60 vector pixel pa = {9, 16, 25, 36, 1, 2, 3, 4};
61 vector pixel pb = {25, 36, 1, 2, 45, 3, 4, 99};
62 extern vector pixel pc; pc = vec_mergeh (pa, pb);
63 extern vector pixel pd; pd = vec_mergel (pa, pb);
64
65 extern vector long long lm; lm = vec_mergel (la, lb);
66 extern vector long long ln; ln = vec_mergel (la, ld);
67 extern vector long long lo; lo = vec_mergel (ld, la);
68
69 extern vector unsigned long long um; um = vec_mergel (ua, ub);
70 extern vector unsigned long long un; un = vec_mergel (ua, ud);
71 extern vector unsigned long long uo; uo = vec_mergel (ud, ua);
72
73 extern vector long long lp; lp = vec_nor (la, lb);
74 extern vector long long lq; lq = vec_nor (la, ld);
75 extern vector long long lr; lr = vec_nor (ld, la);
76
77 extern vector unsigned long long up; up = vec_nor (ua, ub);
78 extern vector unsigned long long uq; uq = vec_nor (ua, ud);
79 extern vector unsigned long long ur; ur = vec_nor (ud, ua);
80
81 extern vector long long ls; ls = vec_or (la, lb);
82 extern vector long long lt; lt = vec_or (la, ld);
83 extern vector long long lu; lu = vec_or (ld, la);
84
85 extern vector unsigned long long us; us = vec_or (ua, ub);
86 extern vector unsigned long long ut; ut = vec_or (ua, ud);
87 extern vector unsigned long long uu; uu = vec_or (ud, ua);
88
89 vector unsigned char ca = {0,4,8,1,5,9,2,6,10,3,7,11,15,12,14,13};
90 vector unsigned char cbb = {5,4,8,3,1,9,2,6,10,3,7,11,15,12,14,13};
91
92 extern vector long long lv; lv = vec_perm (la, lb, ca);
93
94 extern vector unsigned char ucm; ucm = vec_and (ca, cbb);
95 extern vector unsigned char ucn; ucn = vec_andc (ca, cbb);
96 extern vector unsigned char uco; uco = vec_mergel (ca, cbb);
97
98 extern vector unsigned long long uv; uv = vec_perm (ua, ub, ca);
99
100 extern vector long long lw; lw = vec_sel (la, lb, lc);
101 extern vector long long lx; lx = vec_sel (la, lb, uc);
102 extern vector long long ly; ly = vec_sel (la, lb, ld);
103
104 extern vector unsigned long long uw; uw = vec_sel (ua, ub, lc);
105 extern vector unsigned long long ux; ux = vec_sel (ua, ub, uc);
106 extern vector unsigned long long uy; uy = vec_sel (ua, ub, ld);
107
108 extern vector long long lz; lz = vec_xor (la, lb);
109 extern vector long long l0; l0 = vec_xor (la, ld);
110 extern vector long long l1; l1 = vec_xor (ld, la);
111
112 extern vector unsigned long long uz; uz = vec_xor (ua, ub);
113 extern vector unsigned long long u0; u0 = vec_xor (ua, ud);
114 extern vector unsigned long long u1; u1 = vec_xor (ud, ua);
115
116 extern int ia; ia = vec_all_eq (ua, ub);
117 extern int ib; ib = vec_all_ge (ua, ub);
118 extern int ic; ic = vec_all_gt (ua, ub);
119 extern int id; id = vec_all_le (ua, ub);
120 extern int ie; ie = vec_all_lt (ua, ub);
121 extern int ig; ig = vec_all_ne (ua, ub);
122
123 extern int ih; ih = vec_any_eq (ua, ub);
124 extern int ii; ii = vec_any_ge (ua, ub);
125 extern int ij; ij = vec_any_gt (ua, ub);
126 extern int ik; ik = vec_any_le (ua, ub);
127 extern int il; il = vec_any_lt (ua, ub);
128 extern int im; im = vec_any_ne (ua, ub);
129
130 vector short ssa = {9, 16, 25, 36, 1, 2, 3, 4};
131 vector short ssb = {-8, -27, -64, -125, 2, 3, 5, 3};
132 extern vector short sscc; sscc = vec_and (ssa, ssb);
133 extern vector short sscd; sscd = vec_mergeh (ssa, ssb);
134 extern vector short ssce; ssce = vec_mergel (ssa, ssb);
135
136 vector int sia = {9, 16, 25, 36};
137 vector int sib = {-8, -27, -64, -125};
138 extern vector int sicc; sicc = vec_and (sia, sib);
139 extern vector int sicd; sicd = vec_andc (sia, sib);
140 extern vector int sig; sig = vec_mergel (sia, sib);
141
142 vector unsigned int uia = {9, 16, 25, 36};
143 vector unsigned int uib = {8, 27, 64, 125};
144 extern vector unsigned int uicc; uicc = vec_and (uia, uib);
145 extern vector unsigned int uidd; uidd = vec_andc (uia, uib);
146 extern vector unsigned int uig; uig = vec_mergel (uia, uib);
147
148 vector bool char bca = {0, 1, 4, 7};
149 vector bool char bcb = {-8, 9, 2, 9};
150 extern vector bool char bcc; bcc= vec_and (bca, bcb);
151 extern vector bool char bcd; bcd = vec_andc (bca, bcb);
152 extern vector bool char bce; bce = vec_mergel (bca, bcb);
153
154 vector bool short bsa = {0, -1, -1, 0, 3, 4, 6, 7};
155 vector bool short bsb = {-1, -1, 0, -1, 0, 0, 0, 0};
156 extern vector bool short bscc; bscc = vec_and (bsa, bsb);
157 extern vector bool short bscd; bscd = vec_andc (bsa, bsb);
158 extern vector bool short bsce; bsce = vec_mergel (bsa, bsb);
159
160 vector bool int bia = {0, -1, -1, 0};
161 vector bool int bib = {-1, -1, 0, -1};
162 extern vector bool int bicc; bicc = vec_and (bia, bib);
163 extern vector bool int bicd; bicd = vec_andc (bia, bib);
164 extern vector bool int bide; bide = vec_mergel (bia, bib);
165
166 extern vector unsigned int uie; uie = vec_packsu (ua, ub);
167
168 extern vector long long l2; l2 = vec_cntlz (la);
169 extern vector unsigned long long u2; u2 = vec_cntlz (ua);
170 extern vector int sie; sie = vec_cntlz (sia);
171 extern vector unsigned int uif; uif = vec_cntlz (uia);
172 extern vector short sszz; sszz = vec_cntlz (ssa);
173
174 vector unsigned short usa = {81, 72, 63, 54, 45, 36, 27, 18};
175 vector unsigned short usb = {81, 72, 63, 54, 45, 36, 27, 18};
176 extern vector unsigned short usd; usd = vec_and (usa, usb);
177 extern vector unsigned short use; use = vec_andc (usa, usb);
178 extern vector unsigned short usc; usc = vec_cntlz (usa);
179 extern vector unsigned short uscd; uscd = vec_mergeh (usa, usb);
180 extern vector unsigned short usce; usce = vec_mergel (usa, usb);
181
182 vector signed char sca = {-4, 3, -9, 15, -31, 31, 0, 0,
183 1, 117, -36, 99, 98, 97, 96, 95};
184 extern vector signed char scb; scb = vec_cntlz (sca);
185 extern vector signed char scc; scc = vec_mergel (sca, scb);
186
187 extern vector unsigned char cb; cb = vec_cntlz (ca);
188
189 extern vector double dd; dd = vec_xl (0, &y);
190 vec_xst (dd, 0, &z);
191
192 extern vector double dzz; dzz = vec_round (dd);
193 extern vector double dzz1; dzz1 = vec_rsqrt (dd);
194 extern vector double dzz2; dzz2 = vec_rsqrte (dd);
195
196 extern vector double dff; dff = vec_splat (de, 0);
197 extern vector double dgg; dgg = vec_splat (de, 1);
198 extern vector long long l3; l3 = vec_splat (l2, 0);
199 extern vector long long l4; l4 = vec_splat (l2, 1);
200 extern vector unsigned long long u3; u3 = vec_splat (u2, 0);
201 extern vector unsigned long long u4; u4 = vec_splat (u2, 1);
202 extern vector bool long long l5; l5 = vec_splat (ld, 0);
203 extern vector bool long long l6; l6 = vec_splat (ld, 1);
204 extern vector bool long long l10; l10 = vec_mergee (ld, ld);
205 extern vector bool long long l11; l11 = vec_mergeo (ld, ld);
206
207 extern vector long long l7; l7 = vec_div (l3, l4);
208 extern vector unsigned long long u5; u5 = vec_div (u3, u4);
209 extern vector long long l12; l12 = vec_mergee (la, lb);
210 extern vector long long l13; l13 = vec_mergeo (la, lb);
211 extern vector unsigned long long u8; u8 = vec_mergee (u3, u4);
212 extern vector unsigned long long u9; u9 = vec_mergeo (u3, u4);
213
214 extern vector long long l8; l8 = vec_mul (l3, l4);
215 extern vector unsigned long long u6; u6 = vec_mul (u3, u4);
216
217 extern vector double dh; dh = vec_ctf (la, 2);
218 extern vector double di; di = vec_ctf (ua, 2);
219 extern vector int sz; sz = vec_cts (fa, 0x1F);
220 extern vector long long l9; l9 = vec_cts (dh, 2);
221 extern vector unsigned long long u7; u7 = vec_ctu (di, 2);
222 extern vector unsigned int usz; usz = vec_ctu (fa, 0x1F);
223
224 extern vector float f1; f1 = vec_mergee (fa, fb);
225 extern vector float f2; f2 = vec_mergeo (fa, fb);
226
227 extern vector double d1; d1 = vec_mergee (da, db);
228 extern vector double d2; d2 = vec_mergeo (da, db);
229
230 return 0;
231 }
232