OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [ada/] [g-alleve.ads] - Blame information for rev 706

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 706 jeremybenn
------------------------------------------------------------------------------
2
--                                                                          --
3
--                         GNAT COMPILER COMPONENTS                         --
4
--                                                                          --
5
--       G N A T . A L T I V E C . L O W _ L E V E L _ V E C T O R S        --
6
--                                                                          --
7
--                                 S p e c                                  --
8
--                         (Soft Binding Version)                           --
9
--                                                                          --
10
--          Copyright (C) 2004-2009, Free Software Foundation, Inc.         --
11
--                                                                          --
12
-- GNAT is free software;  you can  redistribute it  and/or modify it under --
13
-- terms of the  GNU General Public License as published  by the Free Soft- --
14
-- ware  Foundation;  either version 3,  or (at your option) any later ver- --
15
-- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
16
-- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
17
-- or FITNESS FOR A PARTICULAR PURPOSE.                                     --
18
--                                                                          --
19
-- As a special exception under Section 7 of GPL version 3, you are granted --
20
-- additional permissions described in the GCC Runtime Library Exception,   --
21
-- version 3.1, as published by the Free Software Foundation.               --
22
--                                                                          --
23
-- You should have received a copy of the GNU General Public License and    --
24
-- a copy of the GCC Runtime Library Exception along with this program;     --
25
-- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
26
-- <http://www.gnu.org/licenses/>.                                          --
27
--                                                                          --
28
-- GNAT was originally developed  by the GNAT team at  New York University. --
29
-- Extensive contributions were provided by Ada Core Technologies Inc.      --
30
--                                                                          --
31
------------------------------------------------------------------------------
32
 
33
--  This unit exposes the low level vector support for the Soft binding,
34
--  intended for non AltiVec capable targets. See Altivec.Design for a
35
--  description of what is expected to be exposed.
36
 
37
with GNAT.Altivec.Vector_Views; use GNAT.Altivec.Vector_Views;
38
 
39
package GNAT.Altivec.Low_Level_Vectors is
40
 
41
   ----------------------------------------
42
   -- Low level vector type declarations --
43
   ----------------------------------------
44
 
45
   type LL_VUC is private;
46
   type LL_VSC is private;
47
   type LL_VBC is private;
48
 
49
   type LL_VUS is private;
50
   type LL_VSS is private;
51
   type LL_VBS is private;
52
 
53
   type LL_VUI is private;
54
   type LL_VSI is private;
55
   type LL_VBI is private;
56
 
57
   type LL_VF  is private;
58
   type LL_VP  is private;
59
 
60
   ------------------------------------
61
   -- Low level functional interface --
62
   ------------------------------------
63
 
64
   function abs_v16qi (A : LL_VSC) return LL_VSC;
65
   function abs_v8hi  (A : LL_VSS) return LL_VSS;
66
   function abs_v4si  (A : LL_VSI) return LL_VSI;
67
   function abs_v4sf  (A : LL_VF)  return LL_VF;
68
 
69
   function abss_v16qi (A : LL_VSC) return LL_VSC;
70
   function abss_v8hi  (A : LL_VSS) return LL_VSS;
71
   function abss_v4si  (A : LL_VSI) return LL_VSI;
72
 
73
   function vaddubm (A : LL_VSC; B : LL_VSC) return LL_VSC;
74
   function vadduhm (A : LL_VSS; B : LL_VSS) return LL_VSS;
75
   function vadduwm (A : LL_VSI; B : LL_VSI) return LL_VSI;
76
   function vaddfp  (A : LL_VF;  B : LL_VF)  return LL_VF;
77
 
78
   function vaddcuw (A : LL_VSI; B : LL_VSI) return LL_VSI;
79
 
80
   function vaddubs (A : LL_VSC; B : LL_VSC) return LL_VSC;
81
   function vaddsbs (A : LL_VSC; B : LL_VSC) return LL_VSC;
82
   function vadduhs (A : LL_VSS; B : LL_VSS) return LL_VSS;
83
   function vaddshs (A : LL_VSS; B : LL_VSS) return LL_VSS;
84
   function vadduws (A : LL_VSI; B : LL_VSI) return LL_VSI;
85
   function vaddsws (A : LL_VSI; B : LL_VSI) return LL_VSI;
86
 
87
   function vand  (A : LL_VSI; B : LL_VSI) return LL_VSI;
88
   function vandc (A : LL_VSI; B : LL_VSI) return LL_VSI;
89
 
90
   function vavgub (A : LL_VSC; B : LL_VSC) return LL_VSC;
91
   function vavgsb (A : LL_VSC; B : LL_VSC) return LL_VSC;
92
   function vavguh (A : LL_VSS; B : LL_VSS) return LL_VSS;
93
   function vavgsh (A : LL_VSS; B : LL_VSS) return LL_VSS;
94
   function vavguw (A : LL_VSI; B : LL_VSI) return LL_VSI;
95
   function vavgsw (A : LL_VSI; B : LL_VSI) return LL_VSI;
96
 
97
   function vcmpbfp (A : LL_VF; B : LL_VF) return LL_VSI;
98
 
99
   function vcmpequb (A : LL_VSC; B : LL_VSC) return LL_VSC;
100
   function vcmpequh (A : LL_VSS; B : LL_VSS) return LL_VSS;
101
   function vcmpequw (A : LL_VSI; B : LL_VSI) return LL_VSI;
102
   function vcmpeqfp (A : LL_VF; B : LL_VF) return LL_VSI;
103
 
104
   function vcmpgefp (A : LL_VF; B : LL_VF) return LL_VSI;
105
 
106
   function vcmpgtub (A : LL_VSC; B : LL_VSC) return LL_VSC;
107
   function vcmpgtsb (A : LL_VSC; B : LL_VSC) return LL_VSC;
108
   function vcmpgtuh (A : LL_VSS; B : LL_VSS) return LL_VSS;
109
   function vcmpgtsh (A : LL_VSS; B : LL_VSS) return LL_VSS;
110
   function vcmpgtuw (A : LL_VSI; B : LL_VSI) return LL_VSI;
111
   function vcmpgtsw (A : LL_VSI; B : LL_VSI) return LL_VSI;
112
   function vcmpgtfp (A : LL_VF; B : LL_VF) return LL_VSI;
113
 
114
   function vcfux (A : LL_VSI; B : c_int) return LL_VF;
115
   function vcfsx (A : LL_VSI; B : c_int) return LL_VF;
116
 
117
   function vctsxs (A : LL_VF; B : c_int) return LL_VSI;
118
   function vctuxs (A : LL_VF; B : c_int) return LL_VSI;
119
 
120
   procedure dss (A : c_int);
121
   procedure dssall;
122
 
123
   procedure dst    (A : c_ptr; B : c_int; C : c_int);
124
   procedure dstst  (A : c_ptr; B : c_int; C : c_int);
125
   procedure dststt (A : c_ptr; B : c_int; C : c_int);
126
   procedure dstt   (A : c_ptr; B : c_int; C : c_int);
127
 
128
   function vexptefp (A : LL_VF) return LL_VF;
129
 
130
   function vrfim (A : LL_VF) return LL_VF;
131
 
132
   function lvx   (A : c_long; B : c_ptr) return LL_VSI;
133
   function lvebx (A : c_long; B : c_ptr) return LL_VSC;
134
   function lvehx (A : c_long; B : c_ptr) return LL_VSS;
135
   function lvewx (A : c_long; B : c_ptr) return LL_VSI;
136
   function lvxl  (A : c_long; B : c_ptr) return LL_VSI;
137
 
138
   function vlogefp (A : LL_VF) return LL_VF;
139
 
140
   function lvsl  (A : c_long; B : c_ptr) return LL_VSC;
141
   function lvsr  (A : c_long; B : c_ptr) return LL_VSC;
142
 
143
   function vmaddfp (A : LL_VF; B : LL_VF; C : LL_VF) return LL_VF;
144
 
145
   function vmhaddshs  (A : LL_VSS; B : LL_VSS; C : LL_VSS) return LL_VSS;
146
 
147
   function vmaxub (A : LL_VSC; B : LL_VSC) return LL_VSC;
148
   function vmaxsb (A : LL_VSC; B : LL_VSC) return LL_VSC;
149
   function vmaxuh (A : LL_VSS; B : LL_VSS) return LL_VSS;
150
   function vmaxsh (A : LL_VSS; B : LL_VSS) return LL_VSS;
151
   function vmaxuw (A : LL_VSI; B : LL_VSI) return LL_VSI;
152
   function vmaxsw (A : LL_VSI; B : LL_VSI) return LL_VSI;
153
   function vmaxfp (A : LL_VF;  B : LL_VF)  return LL_VF;
154
 
155
   function vmrghb (A : LL_VSC; B : LL_VSC) return LL_VSC;
156
   function vmrghh (A : LL_VSS; B : LL_VSS) return LL_VSS;
157
   function vmrghw (A : LL_VSI; B : LL_VSI) return LL_VSI;
158
   function vmrglb (A : LL_VSC; B : LL_VSC) return LL_VSC;
159
   function vmrglh (A : LL_VSS; B : LL_VSS) return LL_VSS;
160
   function vmrglw (A : LL_VSI; B : LL_VSI) return LL_VSI;
161
 
162
   function mfvscr return LL_VSS;
163
 
164
   function vminfp (A : LL_VF;  B : LL_VF)  return LL_VF;
165
   function vminsb (A : LL_VSC; B : LL_VSC) return LL_VSC;
166
   function vminsh (A : LL_VSS; B : LL_VSS) return LL_VSS;
167
   function vminsw (A : LL_VSI; B : LL_VSI) return LL_VSI;
168
   function vminub (A : LL_VSC; B : LL_VSC) return LL_VSC;
169
   function vminuh (A : LL_VSS; B : LL_VSS) return LL_VSS;
170
   function vminuw (A : LL_VSI; B : LL_VSI) return LL_VSI;
171
 
172
   function vmladduhm (A : LL_VSS; B : LL_VSS; C : LL_VSS) return LL_VSS;
173
 
174
   function vmhraddshs (A : LL_VSS; B : LL_VSS; C : LL_VSS) return LL_VSS;
175
 
176
   function vmsumubm (A : LL_VSC; B : LL_VSC; C : LL_VSI) return LL_VSI;
177
   function vmsummbm (A : LL_VSC; B : LL_VSC; C : LL_VSI) return LL_VSI;
178
   function vmsumuhm (A : LL_VSS; B : LL_VSS; C : LL_VSI) return LL_VSI;
179
   function vmsumshm (A : LL_VSS; B : LL_VSS; C : LL_VSI) return LL_VSI;
180
   function vmsumuhs (A : LL_VSS; B : LL_VSS; C : LL_VSI) return LL_VSI;
181
   function vmsumshs (A : LL_VSS; B : LL_VSS; C : LL_VSI) return LL_VSI;
182
 
183
   procedure mtvscr (A : LL_VSI);
184
 
185
   function vmuleub (A : LL_VSC; B : LL_VSC) return LL_VSS;
186
   function vmuleuh (A : LL_VSS; B : LL_VSS) return LL_VSI;
187
   function vmulesb (A : LL_VSC; B : LL_VSC) return LL_VSS;
188
   function vmulesh (A : LL_VSS; B : LL_VSS) return LL_VSI;
189
 
190
   function vmulosb (A : LL_VSC; B : LL_VSC) return LL_VSS;
191
   function vmulosh (A : LL_VSS; B : LL_VSS) return LL_VSI;
192
   function vmuloub (A : LL_VSC; B : LL_VSC) return LL_VSS;
193
   function vmulouh (A : LL_VSS; B : LL_VSS) return LL_VSI;
194
 
195
   function vnmsubfp (A : LL_VF; B : LL_VF; C : LL_VF) return LL_VF;
196
 
197
   function vxor (A : LL_VSI; B : LL_VSI) return LL_VSI;
198
   function vnor (A : LL_VSI; B : LL_VSI) return LL_VSI;
199
   function vor  (A : LL_VSI; B : LL_VSI) return LL_VSI;
200
 
201
   function vpkuhum (A : LL_VSS; B : LL_VSS) return LL_VSC;
202
   function vpkuwum (A : LL_VSI; B : LL_VSI) return LL_VSS;
203
   function vpkpx   (A : LL_VSI; B : LL_VSI) return LL_VSS;
204
   function vpkuhus (A : LL_VSS; B : LL_VSS) return LL_VSC;
205
   function vpkuwus (A : LL_VSI; B : LL_VSI) return LL_VSS;
206
   function vpkshss (A : LL_VSS; B : LL_VSS) return LL_VSC;
207
   function vpkswss (A : LL_VSI; B : LL_VSI) return LL_VSS;
208
   function vpkshus (A : LL_VSS; B : LL_VSS) return LL_VSC;
209
   function vpkswus (A : LL_VSI; B : LL_VSI) return LL_VSS;
210
 
211
   function vperm_4si (A : LL_VSI; B : LL_VSI; C : LL_VSC) return LL_VSI;
212
 
213
   function vrefp (A : LL_VF) return LL_VF;
214
 
215
   function vrlb (A : LL_VSC; B : LL_VSC) return LL_VSC;
216
   function vrlh (A : LL_VSS; B : LL_VSS) return LL_VSS;
217
   function vrlw (A : LL_VSI; B : LL_VSI) return LL_VSI;
218
 
219
   function vrfin (A : LL_VF) return LL_VF;
220
   function vrfip (A : LL_VF) return LL_VF;
221
   function vrfiz (A : LL_VF) return LL_VF;
222
 
223
   function vrsqrtefp (A : LL_VF) return LL_VF;
224
 
225
   function vsel_4si (A : LL_VSI; B : LL_VSI; C : LL_VSI) return LL_VSI;
226
 
227
   function vslb (A : LL_VSC; B : LL_VSC) return LL_VSC;
228
   function vslh (A : LL_VSS; B : LL_VSS) return LL_VSS;
229
   function vslw (A : LL_VSI; B : LL_VSI) return LL_VSI;
230
 
231
   function vsldoi_4si  (A : LL_VSI; B : LL_VSI; C : c_int) return LL_VSI;
232
   function vsldoi_8hi  (A : LL_VSS; B : LL_VSS; C : c_int) return LL_VSS;
233
   function vsldoi_16qi (A : LL_VSC; B : LL_VSC; C : c_int) return LL_VSC;
234
   function vsldoi_4sf  (A : LL_VF;  B : LL_VF;  C : c_int) return LL_VF;
235
 
236
   function vsl  (A : LL_VSI; B : LL_VSI) return LL_VSI;
237
   function vslo (A : LL_VSI; B : LL_VSI) return LL_VSI;
238
 
239
   function vspltb (A : LL_VSC; B : c_int) return LL_VSC;
240
   function vsplth (A : LL_VSS; B : c_int) return LL_VSS;
241
   function vspltw (A : LL_VSI; B : c_int) return LL_VSI;
242
 
243
   function vspltisb (A : c_int) return LL_VSC;
244
   function vspltish (A : c_int) return LL_VSS;
245
   function vspltisw (A : c_int) return LL_VSI;
246
 
247
   function vsrb  (A : LL_VSC; B : LL_VSC) return LL_VSC;
248
   function vsrh  (A : LL_VSS; B : LL_VSS) return LL_VSS;
249
   function vsrw  (A : LL_VSI; B : LL_VSI) return LL_VSI;
250
 
251
   function vsrab (A : LL_VSC; B : LL_VSC) return LL_VSC;
252
   function vsrah (A : LL_VSS; B : LL_VSS) return LL_VSS;
253
   function vsraw (A : LL_VSI; B : LL_VSI) return LL_VSI;
254
 
255
   function vsr   (A : LL_VSI; B : LL_VSI) return LL_VSI;
256
   function vsro  (A : LL_VSI; B : LL_VSI) return LL_VSI;
257
 
258
   procedure stvx   (A : LL_VSI; B : c_int; C : c_ptr);
259
   procedure stvebx (A : LL_VSC; B : c_int; C : c_ptr);
260
   procedure stvehx (A : LL_VSS; B : c_int; C : c_ptr);
261
   procedure stvewx (A : LL_VSI; B : c_int; C : c_ptr);
262
   procedure stvxl  (A : LL_VSI; B : c_int; C : c_ptr);
263
 
264
   function vsububm (A : LL_VSC; B : LL_VSC) return LL_VSC;
265
   function vsubuhm (A : LL_VSS; B : LL_VSS) return LL_VSS;
266
   function vsubuwm (A : LL_VSI; B : LL_VSI) return LL_VSI;
267
   function vsubfp  (A : LL_VF;  B : LL_VF)  return LL_VF;
268
 
269
   function vsubcuw (A : LL_VSI; B : LL_VSI) return LL_VSI;
270
 
271
   function vsububs (A : LL_VSC; B : LL_VSC) return LL_VSC;
272
   function vsubsbs (A : LL_VSC; B : LL_VSC) return LL_VSC;
273
   function vsubuhs (A : LL_VSS; B : LL_VSS) return LL_VSS;
274
   function vsubshs (A : LL_VSS; B : LL_VSS) return LL_VSS;
275
   function vsubuws (A : LL_VSI; B : LL_VSI) return LL_VSI;
276
   function vsubsws (A : LL_VSI; B : LL_VSI) return LL_VSI;
277
 
278
   function vsum4ubs (A : LL_VSC; B : LL_VSI) return LL_VSI;
279
   function vsum4sbs (A : LL_VSC; B : LL_VSI) return LL_VSI;
280
   function vsum4shs (A : LL_VSS; B : LL_VSI) return LL_VSI;
281
 
282
   function vsum2sws (A : LL_VSI; B : LL_VSI) return LL_VSI;
283
   function vsumsws  (A : LL_VSI; B : LL_VSI) return LL_VSI;
284
 
285
   function vupkhsb (A : LL_VSC) return LL_VSS;
286
   function vupkhsh (A : LL_VSS) return LL_VSI;
287
   function vupkhpx (A : LL_VSS) return LL_VSI;
288
 
289
   function vupklsb (A : LL_VSC) return LL_VSS;
290
   function vupklsh (A : LL_VSS) return LL_VSI;
291
   function vupklpx (A : LL_VSS) return LL_VSI;
292
 
293
   function vcmpequb_p (A : c_int; B : LL_VSC; C : LL_VSC) return c_int;
294
   function vcmpequh_p (A : c_int; B : LL_VSS; C : LL_VSS) return c_int;
295
   function vcmpequw_p (A : c_int; B : LL_VSI; C : LL_VSI) return c_int;
296
   function vcmpeqfp_p (A : c_int; B : LL_VF; C : LL_VF) return c_int;
297
 
298
   function vcmpgtub_p (A : c_int; B : LL_VSC; C : LL_VSC) return c_int;
299
   function vcmpgtuh_p (A : c_int; B : LL_VSS; C : LL_VSS) return c_int;
300
   function vcmpgtuw_p (A : c_int; B : LL_VSI; C : LL_VSI) return c_int;
301
   function vcmpgtsb_p (A : c_int; B : LL_VSC; C : LL_VSC) return c_int;
302
   function vcmpgtsh_p (A : c_int; B : LL_VSS; C : LL_VSS) return c_int;
303
   function vcmpgtsw_p (A : c_int; B : LL_VSI; C : LL_VSI) return c_int;
304
   function vcmpgtfp_p (A : c_int; B : LL_VF; C : LL_VF) return c_int;
305
 
306
   function vcmpgefp_p (A : c_int; B : LL_VF; C : LL_VF) return c_int;
307
   function vcmpbfp_p  (A : c_int; B : LL_VF; C : LL_VF) return c_int;
308
 
309
private
310
 
311
   ---------------------------------------
312
   -- Low level vector type definitions --
313
   ---------------------------------------
314
 
315
   --  We simply use the natural array definitions corresponding to each
316
   --  user-level vector type.
317
 
318
   type LL_VUI is new VUI_View;
319
   type LL_VSI is new VSI_View;
320
   type LL_VBI is new VBI_View;
321
 
322
   type LL_VUS is new VUS_View;
323
   type LL_VSS is new VSS_View;
324
   type LL_VBS is new VBS_View;
325
 
326
   type LL_VUC is new VUC_View;
327
   type LL_VSC is new VSC_View;
328
   type LL_VBC is new VBC_View;
329
 
330
   type LL_VF is new VF_View;
331
   type LL_VP is new VP_View;
332
 
333
   ------------------------------------
334
   -- Low level functional interface --
335
   ------------------------------------
336
 
337
   pragma Convention_Identifier (LL_Altivec, C);
338
 
339
   pragma Export (LL_Altivec, dss,         "__builtin_altivec_dss");
340
   pragma Export (LL_Altivec, dssall,      "__builtin_altivec_dssall");
341
   pragma Export (LL_Altivec, dst,         "__builtin_altivec_dst");
342
   pragma Export (LL_Altivec, dstst,       "__builtin_altivec_dstst");
343
   pragma Export (LL_Altivec, dststt,      "__builtin_altivec_dststt");
344
   pragma Export (LL_Altivec, dstt,        "__builtin_altivec_dstt");
345
   pragma Export (LL_Altivec, mtvscr,      "__builtin_altivec_mtvscr");
346
   pragma Export (LL_Altivec, mfvscr,      "__builtin_altivec_mfvscr");
347
   pragma Export (LL_Altivec, stvebx,      "__builtin_altivec_stvebx");
348
   pragma Export (LL_Altivec, stvehx,      "__builtin_altivec_stvehx");
349
   pragma Export (LL_Altivec, stvewx,      "__builtin_altivec_stvewx");
350
   pragma Export (LL_Altivec, stvx,        "__builtin_altivec_stvx");
351
   pragma Export (LL_Altivec, stvxl,       "__builtin_altivec_stvxl");
352
   pragma Export (LL_Altivec, lvebx,       "__builtin_altivec_lvebx");
353
   pragma Export (LL_Altivec, lvehx,       "__builtin_altivec_lvehx");
354
   pragma Export (LL_Altivec, lvewx,       "__builtin_altivec_lvewx");
355
   pragma Export (LL_Altivec, lvx,         "__builtin_altivec_lvx");
356
   pragma Export (LL_Altivec, lvxl,        "__builtin_altivec_lvxl");
357
   pragma Export (LL_Altivec, lvsl,        "__builtin_altivec_lvsl");
358
   pragma Export (LL_Altivec, lvsr,        "__builtin_altivec_lvsr");
359
   pragma Export (LL_Altivec, abs_v16qi,   "__builtin_altivec_abs_v16qi");
360
   pragma Export (LL_Altivec, abs_v8hi,    "__builtin_altivec_abs_v8hi");
361
   pragma Export (LL_Altivec, abs_v4si,    "__builtin_altivec_abs_v4si");
362
   pragma Export (LL_Altivec, abs_v4sf,    "__builtin_altivec_abs_v4sf");
363
   pragma Export (LL_Altivec, abss_v16qi,  "__builtin_altivec_abss_v16qi");
364
   pragma Export (LL_Altivec, abss_v8hi,   "__builtin_altivec_abss_v8hi");
365
   pragma Export (LL_Altivec, abss_v4si,   "__builtin_altivec_abss_v4si");
366
   pragma Export (LL_Altivec, vaddcuw,     "__builtin_altivec_vaddcuw");
367
   pragma Export (LL_Altivec, vaddfp,      "__builtin_altivec_vaddfp");
368
   pragma Export (LL_Altivec, vaddsbs,     "__builtin_altivec_vaddsbs");
369
   pragma Export (LL_Altivec, vaddshs,     "__builtin_altivec_vaddshs");
370
   pragma Export (LL_Altivec, vaddsws,     "__builtin_altivec_vaddsws");
371
   pragma Export (LL_Altivec, vaddubm,     "__builtin_altivec_vaddubm");
372
   pragma Export (LL_Altivec, vaddubs,     "__builtin_altivec_vaddubs");
373
   pragma Export (LL_Altivec, vadduhm,     "__builtin_altivec_vadduhm");
374
   pragma Export (LL_Altivec, vadduhs,     "__builtin_altivec_vadduhs");
375
   pragma Export (LL_Altivec, vadduwm,     "__builtin_altivec_vadduwm");
376
   pragma Export (LL_Altivec, vadduws,     "__builtin_altivec_vadduws");
377
   pragma Export (LL_Altivec, vand,        "__builtin_altivec_vand");
378
   pragma Export (LL_Altivec, vandc,       "__builtin_altivec_vandc");
379
   pragma Export (LL_Altivec, vavgsb,      "__builtin_altivec_vavgsb");
380
   pragma Export (LL_Altivec, vavgsh,      "__builtin_altivec_vavgsh");
381
   pragma Export (LL_Altivec, vavgsw,      "__builtin_altivec_vavgsw");
382
   pragma Export (LL_Altivec, vavgub,      "__builtin_altivec_vavgub");
383
   pragma Export (LL_Altivec, vavguh,      "__builtin_altivec_vavguh");
384
   pragma Export (LL_Altivec, vavguw,      "__builtin_altivec_vavguw");
385
   pragma Export (LL_Altivec, vcfsx,       "__builtin_altivec_vcfsx");
386
   pragma Export (LL_Altivec, vcfux,       "__builtin_altivec_vcfux");
387
   pragma Export (LL_Altivec, vcmpbfp,     "__builtin_altivec_vcmpbfp");
388
   pragma Export (LL_Altivec, vcmpeqfp,    "__builtin_altivec_vcmpeqfp");
389
   pragma Export (LL_Altivec, vcmpequb,    "__builtin_altivec_vcmpequb");
390
   pragma Export (LL_Altivec, vcmpequh,    "__builtin_altivec_vcmpequh");
391
   pragma Export (LL_Altivec, vcmpequw,    "__builtin_altivec_vcmpequw");
392
   pragma Export (LL_Altivec, vcmpgefp,    "__builtin_altivec_vcmpgefp");
393
   pragma Export (LL_Altivec, vcmpgtfp,    "__builtin_altivec_vcmpgtfp");
394
   pragma Export (LL_Altivec, vcmpgtsb,    "__builtin_altivec_vcmpgtsb");
395
   pragma Export (LL_Altivec, vcmpgtsh,    "__builtin_altivec_vcmpgtsh");
396
   pragma Export (LL_Altivec, vcmpgtsw,    "__builtin_altivec_vcmpgtsw");
397
   pragma Export (LL_Altivec, vcmpgtub,    "__builtin_altivec_vcmpgtub");
398
   pragma Export (LL_Altivec, vcmpgtuh,    "__builtin_altivec_vcmpgtuh");
399
   pragma Export (LL_Altivec, vcmpgtuw,    "__builtin_altivec_vcmpgtuw");
400
   pragma Export (LL_Altivec, vctsxs,      "__builtin_altivec_vctsxs");
401
   pragma Export (LL_Altivec, vctuxs,      "__builtin_altivec_vctuxs");
402
   pragma Export (LL_Altivec, vexptefp,    "__builtin_altivec_vexptefp");
403
   pragma Export (LL_Altivec, vlogefp,     "__builtin_altivec_vlogefp");
404
   pragma Export (LL_Altivec, vmaddfp,     "__builtin_altivec_vmaddfp");
405
   pragma Export (LL_Altivec, vmaxfp,      "__builtin_altivec_vmaxfp");
406
   pragma Export (LL_Altivec, vmaxsb,      "__builtin_altivec_vmaxsb");
407
   pragma Export (LL_Altivec, vmaxsh,      "__builtin_altivec_vmaxsh");
408
   pragma Export (LL_Altivec, vmaxsw,      "__builtin_altivec_vmaxsw");
409
   pragma Export (LL_Altivec, vmaxub,      "__builtin_altivec_vmaxub");
410
   pragma Export (LL_Altivec, vmaxuh,      "__builtin_altivec_vmaxuh");
411
   pragma Export (LL_Altivec, vmaxuw,      "__builtin_altivec_vmaxuw");
412
   pragma Export (LL_Altivec, vmhaddshs,   "__builtin_altivec_vmhaddshs");
413
   pragma Export (LL_Altivec, vmhraddshs,  "__builtin_altivec_vmhraddshs");
414
   pragma Export (LL_Altivec, vminfp,      "__builtin_altivec_vminfp");
415
   pragma Export (LL_Altivec, vminsb,      "__builtin_altivec_vminsb");
416
   pragma Export (LL_Altivec, vminsh,      "__builtin_altivec_vminsh");
417
   pragma Export (LL_Altivec, vminsw,      "__builtin_altivec_vminsw");
418
   pragma Export (LL_Altivec, vminub,      "__builtin_altivec_vminub");
419
   pragma Export (LL_Altivec, vminuh,      "__builtin_altivec_vminuh");
420
   pragma Export (LL_Altivec, vminuw,      "__builtin_altivec_vminuw");
421
   pragma Export (LL_Altivec, vmladduhm,   "__builtin_altivec_vmladduhm");
422
   pragma Export (LL_Altivec, vmrghb,      "__builtin_altivec_vmrghb");
423
   pragma Export (LL_Altivec, vmrghh,      "__builtin_altivec_vmrghh");
424
   pragma Export (LL_Altivec, vmrghw,      "__builtin_altivec_vmrghw");
425
   pragma Export (LL_Altivec, vmrglb,      "__builtin_altivec_vmrglb");
426
   pragma Export (LL_Altivec, vmrglh,      "__builtin_altivec_vmrglh");
427
   pragma Export (LL_Altivec, vmrglw,      "__builtin_altivec_vmrglw");
428
   pragma Export (LL_Altivec, vmsummbm,    "__builtin_altivec_vmsummbm");
429
   pragma Export (LL_Altivec, vmsumshm,    "__builtin_altivec_vmsumshm");
430
   pragma Export (LL_Altivec, vmsumshs,    "__builtin_altivec_vmsumshs");
431
   pragma Export (LL_Altivec, vmsumubm,    "__builtin_altivec_vmsumubm");
432
   pragma Export (LL_Altivec, vmsumuhm,    "__builtin_altivec_vmsumuhm");
433
   pragma Export (LL_Altivec, vmsumuhs,    "__builtin_altivec_vmsumuhs");
434
   pragma Export (LL_Altivec, vmulesb,     "__builtin_altivec_vmulesb");
435
   pragma Export (LL_Altivec, vmulesh,     "__builtin_altivec_vmulesh");
436
   pragma Export (LL_Altivec, vmuleub,     "__builtin_altivec_vmuleub");
437
   pragma Export (LL_Altivec, vmuleuh,     "__builtin_altivec_vmuleuh");
438
   pragma Export (LL_Altivec, vmulosb,     "__builtin_altivec_vmulosb");
439
   pragma Export (LL_Altivec, vmulosh,     "__builtin_altivec_vmulosh");
440
   pragma Export (LL_Altivec, vmuloub,     "__builtin_altivec_vmuloub");
441
   pragma Export (LL_Altivec, vmulouh,     "__builtin_altivec_vmulouh");
442
   pragma Export (LL_Altivec, vnmsubfp,    "__builtin_altivec_vnmsubfp");
443
   pragma Export (LL_Altivec, vnor,        "__builtin_altivec_vnor");
444
   pragma Export (LL_Altivec, vxor,        "__builtin_altivec_vxor");
445
   pragma Export (LL_Altivec, vor,         "__builtin_altivec_vor");
446
   pragma Export (LL_Altivec, vperm_4si,   "__builtin_altivec_vperm_4si");
447
   pragma Export (LL_Altivec, vpkpx,       "__builtin_altivec_vpkpx");
448
   pragma Export (LL_Altivec, vpkshss,     "__builtin_altivec_vpkshss");
449
   pragma Export (LL_Altivec, vpkshus,     "__builtin_altivec_vpkshus");
450
   pragma Export (LL_Altivec, vpkswss,     "__builtin_altivec_vpkswss");
451
   pragma Export (LL_Altivec, vpkswus,     "__builtin_altivec_vpkswus");
452
   pragma Export (LL_Altivec, vpkuhum,     "__builtin_altivec_vpkuhum");
453
   pragma Export (LL_Altivec, vpkuhus,     "__builtin_altivec_vpkuhus");
454
   pragma Export (LL_Altivec, vpkuwum,     "__builtin_altivec_vpkuwum");
455
   pragma Export (LL_Altivec, vpkuwus,     "__builtin_altivec_vpkuwus");
456
   pragma Export (LL_Altivec, vrefp,       "__builtin_altivec_vrefp");
457
   pragma Export (LL_Altivec, vrfim,       "__builtin_altivec_vrfim");
458
   pragma Export (LL_Altivec, vrfin,       "__builtin_altivec_vrfin");
459
   pragma Export (LL_Altivec, vrfip,       "__builtin_altivec_vrfip");
460
   pragma Export (LL_Altivec, vrfiz,       "__builtin_altivec_vrfiz");
461
   pragma Export (LL_Altivec, vrlb,        "__builtin_altivec_vrlb");
462
   pragma Export (LL_Altivec, vrlh,        "__builtin_altivec_vrlh");
463
   pragma Export (LL_Altivec, vrlw,        "__builtin_altivec_vrlw");
464
   pragma Export (LL_Altivec, vrsqrtefp,   "__builtin_altivec_vrsqrtefp");
465
   pragma Export (LL_Altivec, vsel_4si,    "__builtin_altivec_vsel_4si");
466
   pragma Export (LL_Altivec, vsldoi_4si,  "__builtin_altivec_vsldoi_4si");
467
   pragma Export (LL_Altivec, vsldoi_8hi,  "__builtin_altivec_vsldoi_8hi");
468
   pragma Export (LL_Altivec, vsldoi_16qi, "__builtin_altivec_vsldoi_16qi");
469
   pragma Export (LL_Altivec, vsldoi_4sf,  "__builtin_altivec_vsldoi_4sf");
470
   pragma Export (LL_Altivec, vsl,         "__builtin_altivec_vsl");
471
   pragma Export (LL_Altivec, vslb,        "__builtin_altivec_vslb");
472
   pragma Export (LL_Altivec, vslh,        "__builtin_altivec_vslh");
473
   pragma Export (LL_Altivec, vslo,        "__builtin_altivec_vslo");
474
   pragma Export (LL_Altivec, vslw,        "__builtin_altivec_vslw");
475
   pragma Export (LL_Altivec, vspltb,      "__builtin_altivec_vspltb");
476
   pragma Export (LL_Altivec, vsplth,      "__builtin_altivec_vsplth");
477
   pragma Export (LL_Altivec, vspltisb,    "__builtin_altivec_vspltisb");
478
   pragma Export (LL_Altivec, vspltish,    "__builtin_altivec_vspltish");
479
   pragma Export (LL_Altivec, vspltisw,    "__builtin_altivec_vspltisw");
480
   pragma Export (LL_Altivec, vspltw,      "__builtin_altivec_vspltw");
481
   pragma Export (LL_Altivec, vsr,         "__builtin_altivec_vsr");
482
   pragma Export (LL_Altivec, vsrab,       "__builtin_altivec_vsrab");
483
   pragma Export (LL_Altivec, vsrah,       "__builtin_altivec_vsrah");
484
   pragma Export (LL_Altivec, vsraw,       "__builtin_altivec_vsraw");
485
   pragma Export (LL_Altivec, vsrb,        "__builtin_altivec_vsrb");
486
   pragma Export (LL_Altivec, vsrh,        "__builtin_altivec_vsrh");
487
   pragma Export (LL_Altivec, vsro,        "__builtin_altivec_vsro");
488
   pragma Export (LL_Altivec, vsrw,        "__builtin_altivec_vsrw");
489
   pragma Export (LL_Altivec, vsubcuw,     "__builtin_altivec_vsubcuw");
490
   pragma Export (LL_Altivec, vsubfp,      "__builtin_altivec_vsubfp");
491
   pragma Export (LL_Altivec, vsubsbs,     "__builtin_altivec_vsubsbs");
492
   pragma Export (LL_Altivec, vsubshs,     "__builtin_altivec_vsubshs");
493
   pragma Export (LL_Altivec, vsubsws,     "__builtin_altivec_vsubsws");
494
   pragma Export (LL_Altivec, vsububm,     "__builtin_altivec_vsububm");
495
   pragma Export (LL_Altivec, vsububs,     "__builtin_altivec_vsububs");
496
   pragma Export (LL_Altivec, vsubuhm,     "__builtin_altivec_vsubuhm");
497
   pragma Export (LL_Altivec, vsubuhs,     "__builtin_altivec_vsubuhs");
498
   pragma Export (LL_Altivec, vsubuwm,     "__builtin_altivec_vsubuwm");
499
   pragma Export (LL_Altivec, vsubuws,     "__builtin_altivec_vsubuws");
500
   pragma Export (LL_Altivec, vsum2sws,    "__builtin_altivec_vsum2sws");
501
   pragma Export (LL_Altivec, vsum4sbs,    "__builtin_altivec_vsum4sbs");
502
   pragma Export (LL_Altivec, vsum4shs,    "__builtin_altivec_vsum4shs");
503
   pragma Export (LL_Altivec, vsum4ubs,    "__builtin_altivec_vsum4ubs");
504
   pragma Export (LL_Altivec, vsumsws,     "__builtin_altivec_vsumsws");
505
   pragma Export (LL_Altivec, vupkhpx,     "__builtin_altivec_vupkhpx");
506
   pragma Export (LL_Altivec, vupkhsb,     "__builtin_altivec_vupkhsb");
507
   pragma Export (LL_Altivec, vupkhsh,     "__builtin_altivec_vupkhsh");
508
   pragma Export (LL_Altivec, vupklpx,     "__builtin_altivec_vupklpx");
509
   pragma Export (LL_Altivec, vupklsb,     "__builtin_altivec_vupklsb");
510
   pragma Export (LL_Altivec, vupklsh,     "__builtin_altivec_vupklsh");
511
   pragma Export (LL_Altivec, vcmpbfp_p,   "__builtin_altivec_vcmpbfp_p");
512
   pragma Export (LL_Altivec, vcmpeqfp_p,  "__builtin_altivec_vcmpeqfp_p");
513
   pragma Export (LL_Altivec, vcmpgefp_p,  "__builtin_altivec_vcmpgefp_p");
514
   pragma Export (LL_Altivec, vcmpgtfp_p,  "__builtin_altivec_vcmpgtfp_p");
515
   pragma Export (LL_Altivec, vcmpequw_p,  "__builtin_altivec_vcmpequw_p");
516
   pragma Export (LL_Altivec, vcmpgtsw_p,  "__builtin_altivec_vcmpgtsw_p");
517
   pragma Export (LL_Altivec, vcmpgtuw_p,  "__builtin_altivec_vcmpgtuw_p");
518
   pragma Export (LL_Altivec, vcmpgtuh_p,  "__builtin_altivec_vcmpgtuh_p");
519
   pragma Export (LL_Altivec, vcmpgtsh_p,  "__builtin_altivec_vcmpgtsh_p");
520
   pragma Export (LL_Altivec, vcmpequh_p,  "__builtin_altivec_vcmpequh_p");
521
   pragma Export (LL_Altivec, vcmpequb_p,  "__builtin_altivec_vcmpequb_p");
522
   pragma Export (LL_Altivec, vcmpgtsb_p,  "__builtin_altivec_vcmpgtsb_p");
523
   pragma Export (LL_Altivec, vcmpgtub_p,  "__builtin_altivec_vcmpgtub_p");
524
 
525
end GNAT.Altivec.Low_Level_Vectors;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.