gcc/ada/g-allein.ads

   1 ------------------------------------------------------------------------------
   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 _ I N T E R F A C E      --
   6 --                                                                          --
   7 --                                 S p e c                                  --
   8 --                                                                          --
   9 --          Copyright (C) 2004-2015, Free Software Foundation, Inc.         --
  10 --                                                                          --
  11 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
  12 -- terms of the  GNU General Public License as published  by the Free Soft- --
  13 -- ware  Foundation;  either version 3,  or (at your option) any later ver- --
  14 -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
  15 -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
  16 -- or FITNESS FOR A PARTICULAR PURPOSE.                                     --
  17 --                                                                          --
  18 -- As a special exception under Section 7 of GPL version 3, you are granted --
  19 -- additional permissions described in the GCC Runtime Library Exception,   --
  20 -- version 3.1, as published by the Free Software Foundation.               --
  21 --                                                                          --
  22 -- You should have received a copy of the GNU General Public License and    --
  23 -- a copy of the GCC Runtime Library Exception along with this program;     --
  24 -- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
  25 -- <http://www.gnu.org/licenses/>.                                          --
  26 --                                                                          --
  27 -- GNAT was originally developed  by the GNAT team at  New York University. --
  28 -- Extensive contributions were provided by Ada Core Technologies Inc.      --
  29 --                                                                          --
  30 ------------------------------------------------------------------------------
  31
  32 --  This unit provides entities to be used internally by the units common to
  33 --  both bindings (Hard or Soft), and relevant to the interfacing with the
  34 --  underlying Low Level support.
  35
  36 --  The set of "services" includes:
  37 --
  38 --  o Imports to the low level routines for which a direct binding is
  39 --    mandatory (or just possible when analyzed as such).
  40 --
  41 --  o Conversion routines (unchecked) between low level types, or between
  42 --    various pointer representations.
  43
  44 with GNAT.Altivec.Vector_Types;
  45 with GNAT.Altivec.Low_Level_Vectors;
  46
  47 with Ada.Unchecked_Conversion;
  48
  49 package GNAT.Altivec.Low_Level_Interface is
  50
  51    ----------------------------------------------------------------------------
  52    -- Imports for "argument must be literal" constraints in the Hard binding --
  53    ----------------------------------------------------------------------------
  54
  55    use GNAT.Altivec.Vector_Types;
  56
  57    -- vec_dst --
  58
  59    procedure vec_dst_kvucp_cint_cint
  60      (A : const_vector_unsigned_char_ptr;
  61       B : c_int;
  62       C : c_int);
  63
  64    pragma Import
  65      (LL_Altivec, vec_dst_kvucp_cint_cint, "__builtin_altivec_dst");
  66
  67    procedure vec_dst_kvscp_cint_cint
  68      (A : const_vector_signed_char_ptr;
  69       B : c_int;
  70       C : c_int);
  71
  72    pragma Import
  73      (LL_Altivec, vec_dst_kvscp_cint_cint, "__builtin_altivec_dst");
  74
  75    procedure vec_dst_kvbcp_cint_cint
  76      (A : const_vector_bool_char_ptr;
  77       B : c_int;
  78       C : c_int);
  79
  80    pragma Import
  81      (LL_Altivec, vec_dst_kvbcp_cint_cint, "__builtin_altivec_dst");
  82
  83    procedure vec_dst_kvusp_cint_cint
  84      (A : const_vector_unsigned_short_ptr;
  85       B : c_int;
  86       C : c_int);
  87
  88    pragma Import
  89      (LL_Altivec, vec_dst_kvusp_cint_cint, "__builtin_altivec_dst");
  90
  91    procedure vec_dst_kvssp_cint_cint
  92      (A : const_vector_signed_short_ptr;
  93       B : c_int;
  94       C : c_int);
  95
  96    pragma Import
  97      (LL_Altivec, vec_dst_kvssp_cint_cint, "__builtin_altivec_dst");
  98
  99    procedure vec_dst_kvbsp_cint_cint
 100      (A : const_vector_bool_short_ptr;
 101       B : c_int;
 102       C : c_int);
 103
 104    pragma Import
 105      (LL_Altivec, vec_dst_kvbsp_cint_cint, "__builtin_altivec_dst");
 106
 107    procedure vec_dst_kvxp_cint_cint
 108      (A : const_vector_pixel_ptr;
 109       B : c_int;
 110       C : c_int);
 111
 112    pragma Import
 113      (LL_Altivec, vec_dst_kvxp_cint_cint, "__builtin_altivec_dst");
 114
 115    procedure vec_dst_kvuip_cint_cint
 116      (A : const_vector_unsigned_int_ptr;
 117       B : c_int;
 118       C : c_int);
 119
 120    pragma Import
 121      (LL_Altivec, vec_dst_kvuip_cint_cint, "__builtin_altivec_dst");
 122
 123    procedure vec_dst_kvsip_cint_cint
 124      (A : const_vector_signed_int_ptr;
 125       B : c_int;
 126       C : c_int);
 127
 128    pragma Import
 129      (LL_Altivec, vec_dst_kvsip_cint_cint, "__builtin_altivec_dst");
 130
 131    procedure vec_dst_kvbip_cint_cint
 132      (A : const_vector_bool_int_ptr;
 133       B : c_int;
 134       C : c_int);
 135
 136    pragma Import
 137      (LL_Altivec, vec_dst_kvbip_cint_cint, "__builtin_altivec_dst");
 138
 139    procedure vec_dst_kvfp_cint_cint
 140      (A : const_vector_float_ptr;
 141       B : c_int;
 142       C : c_int);
 143
 144    pragma Import
 145      (LL_Altivec, vec_dst_kvfp_cint_cint, "__builtin_altivec_dst");
 146
 147    procedure vec_dst_kucp_cint_cint
 148      (A : const_unsigned_char_ptr;
 149       B : c_int;
 150       C : c_int);
 151
 152    pragma Import
 153      (LL_Altivec, vec_dst_kucp_cint_cint, "__builtin_altivec_dst");
 154
 155    procedure vec_dst_kscp_cint_cint
 156      (A : const_signed_char_ptr;
 157       B : c_int;
 158       C : c_int);
 159
 160    pragma Import
 161      (LL_Altivec, vec_dst_kscp_cint_cint, "__builtin_altivec_dst");
 162
 163    procedure vec_dst_kusp_cint_cint
 164      (A : const_unsigned_short_ptr;
 165       B : c_int;
 166       C : c_int);
 167
 168    pragma Import
 169      (LL_Altivec, vec_dst_kusp_cint_cint, "__builtin_altivec_dst");
 170
 171    procedure vec_dst_ksp_cint_cint
 172      (A : const_short_ptr;
 173       B : c_int;
 174       C : c_int);
 175
 176    pragma Import
 177      (LL_Altivec, vec_dst_ksp_cint_cint, "__builtin_altivec_dst");
 178
 179    procedure vec_dst_kuip_cint_cint
 180      (A : const_unsigned_int_ptr;
 181       B : c_int;
 182       C : c_int);
 183
 184    pragma Import
 185      (LL_Altivec, vec_dst_kuip_cint_cint, "__builtin_altivec_dst");
 186
 187    procedure vec_dst_kip_cint_cint
 188      (A : const_int_ptr;
 189       B : c_int;
 190       C : c_int);
 191
 192    pragma Import
 193      (LL_Altivec, vec_dst_kip_cint_cint, "__builtin_altivec_dst");
 194
 195    procedure vec_dst_kulongp_cint_cint
 196      (A : const_unsigned_long_ptr;
 197       B : c_int;
 198       C : c_int);
 199
 200    pragma Import
 201      (LL_Altivec, vec_dst_kulongp_cint_cint, "__builtin_altivec_dst");
 202
 203    procedure vec_dst_klongp_cint_cint
 204      (A : const_long_ptr;
 205       B : c_int;
 206       C : c_int);
 207
 208    pragma Import
 209      (LL_Altivec, vec_dst_klongp_cint_cint, "__builtin_altivec_dst");
 210
 211    procedure vec_dst_kfp_cint_cint
 212      (A : const_float_ptr;
 213       B : c_int;
 214       C : c_int);
 215
 216    pragma Import
 217      (LL_Altivec, vec_dst_kfp_cint_cint, "__builtin_altivec_dst");
 218
 219    -- vec_dstst --
 220
 221    procedure vec_dstst_kvucp_cint_cint
 222      (A : const_vector_unsigned_char_ptr;
 223       B : c_int;
 224       C : c_int);
 225
 226    pragma Import
 227      (LL_Altivec, vec_dstst_kvucp_cint_cint, "__builtin_altivec_dstst");
 228
 229    procedure vec_dstst_kvscp_cint_cint
 230      (A : const_vector_signed_char_ptr;
 231       B : c_int;
 232       C : c_int);
 233
 234    pragma Import
 235      (LL_Altivec, vec_dstst_kvscp_cint_cint, "__builtin_altivec_dstst");
 236
 237    procedure vec_dstst_kvbcp_cint_cint
 238      (A : const_vector_bool_char_ptr;
 239       B : c_int;
 240       C : c_int);
 241
 242    pragma Import
 243      (LL_Altivec, vec_dstst_kvbcp_cint_cint, "__builtin_altivec_dstst");
 244
 245    procedure vec_dstst_kvusp_cint_cint
 246      (A : const_vector_unsigned_short_ptr;
 247       B : c_int;
 248       C : c_int);
 249
 250    pragma Import
 251      (LL_Altivec, vec_dstst_kvusp_cint_cint, "__builtin_altivec_dstst");
 252
 253    procedure vec_dstst_kvssp_cint_cint
 254      (A : const_vector_signed_short_ptr;
 255       B : c_int;
 256       C : c_int);
 257
 258    pragma Import
 259      (LL_Altivec, vec_dstst_kvssp_cint_cint, "__builtin_altivec_dstst");
 260
 261    procedure vec_dstst_kvbsp_cint_cint
 262      (A : const_vector_bool_short_ptr;
 263       B : c_int;
 264       C : c_int);
 265
 266    pragma Import
 267      (LL_Altivec, vec_dstst_kvbsp_cint_cint, "__builtin_altivec_dstst");
 268
 269    procedure vec_dstst_kvxp_cint_cint
 270      (A : const_vector_pixel_ptr;
 271       B : c_int;
 272       C : c_int);
 273
 274    pragma Import
 275      (LL_Altivec, vec_dstst_kvxp_cint_cint, "__builtin_altivec_dstst");
 276
 277    procedure vec_dstst_kvuip_cint_cint
 278      (A : const_vector_unsigned_int_ptr;
 279       B : c_int;
 280       C : c_int);
 281
 282    pragma Import
 283      (LL_Altivec, vec_dstst_kvuip_cint_cint, "__builtin_altivec_dstst");
 284
 285    procedure vec_dstst_kvsip_cint_cint
 286      (A : const_vector_signed_int_ptr;
 287       B : c_int;
 288       C : c_int);
 289
 290    pragma Import
 291      (LL_Altivec, vec_dstst_kvsip_cint_cint, "__builtin_altivec_dstst");
 292
 293    procedure vec_dstst_kvbip_cint_cint
 294      (A : const_vector_bool_int_ptr;
 295       B : c_int;
 296       C : c_int);
 297
 298    pragma Import
 299      (LL_Altivec, vec_dstst_kvbip_cint_cint, "__builtin_altivec_dstst");
 300
 301    procedure vec_dstst_kvfp_cint_cint
 302      (A : const_vector_float_ptr;
 303       B : c_int;
 304       C : c_int);
 305
 306    pragma Import
 307      (LL_Altivec, vec_dstst_kvfp_cint_cint, "__builtin_altivec_dstst");
 308
 309    procedure vec_dstst_kucp_cint_cint
 310      (A : const_unsigned_char_ptr;
 311       B : c_int;
 312       C : c_int);
 313
 314    pragma Import
 315      (LL_Altivec, vec_dstst_kucp_cint_cint, "__builtin_altivec_dstst");
 316
 317    procedure vec_dstst_kscp_cint_cint
 318      (A : const_signed_char_ptr;
 319       B : c_int;
 320       C : c_int);
 321
 322    pragma Import
 323      (LL_Altivec, vec_dstst_kscp_cint_cint, "__builtin_altivec_dstst");
 324
 325    procedure vec_dstst_kusp_cint_cint
 326      (A : const_unsigned_short_ptr;
 327       B : c_int;
 328       C : c_int);
 329
 330    pragma Import
 331      (LL_Altivec, vec_dstst_kusp_cint_cint, "__builtin_altivec_dstst");
 332
 333    procedure vec_dstst_ksp_cint_cint
 334      (A : const_short_ptr;
 335       B : c_int;
 336       C : c_int);
 337
 338    pragma Import
 339      (LL_Altivec, vec_dstst_ksp_cint_cint, "__builtin_altivec_dstst");
 340
 341    procedure vec_dstst_kuip_cint_cint
 342      (A : const_unsigned_int_ptr;
 343       B : c_int;
 344       C : c_int);
 345
 346    pragma Import
 347      (LL_Altivec, vec_dstst_kuip_cint_cint, "__builtin_altivec_dstst");
 348
 349    procedure vec_dstst_kip_cint_cint
 350      (A : const_int_ptr;
 351       B : c_int;
 352       C : c_int);
 353
 354    pragma Import
 355      (LL_Altivec, vec_dstst_kip_cint_cint, "__builtin_altivec_dstst");
 356
 357    procedure vec_dstst_kulongp_cint_cint
 358      (A : const_unsigned_long_ptr;
 359       B : c_int;
 360       C : c_int);
 361
 362    pragma Import
 363      (LL_Altivec, vec_dstst_kulongp_cint_cint, "__builtin_altivec_dstst");
 364
 365    procedure vec_dstst_klongp_cint_cint
 366      (A : const_long_ptr;
 367       B : c_int;
 368       C : c_int);
 369
 370    pragma Import
 371      (LL_Altivec, vec_dstst_klongp_cint_cint, "__builtin_altivec_dstst");
 372
 373    procedure vec_dstst_kfp_cint_cint
 374      (A : const_float_ptr;
 375       B : c_int;
 376       C : c_int);
 377
 378    pragma Import
 379      (LL_Altivec, vec_dstst_kfp_cint_cint, "__builtin_altivec_dstst");
 380
 381    -- vec_dststt --
 382
 383    procedure vec_dststt_kvucp_cint_cint
 384      (A : const_vector_unsigned_char_ptr;
 385       B : c_int;
 386       C : c_int);
 387
 388    pragma Import
 389      (LL_Altivec, vec_dststt_kvucp_cint_cint, "__builtin_altivec_dststt");
 390
 391    procedure vec_dststt_kvscp_cint_cint
 392      (A : const_vector_signed_char_ptr;
 393       B : c_int;
 394       C : c_int);
 395
 396    pragma Import
 397      (LL_Altivec, vec_dststt_kvscp_cint_cint, "__builtin_altivec_dststt");
 398
 399    procedure vec_dststt_kvbcp_cint_cint
 400      (A : const_vector_bool_char_ptr;
 401       B : c_int;
 402       C : c_int);
 403
 404    pragma Import
 405      (LL_Altivec, vec_dststt_kvbcp_cint_cint, "__builtin_altivec_dststt");
 406
 407    procedure vec_dststt_kvusp_cint_cint
 408      (A : const_vector_unsigned_short_ptr;
 409       B : c_int;
 410       C : c_int);
 411
 412    pragma Import
 413      (LL_Altivec, vec_dststt_kvusp_cint_cint, "__builtin_altivec_dststt");
 414
 415    procedure vec_dststt_kvssp_cint_cint
 416      (A : const_vector_signed_short_ptr;
 417       B : c_int;
 418       C : c_int);
 419
 420    pragma Import
 421      (LL_Altivec, vec_dststt_kvssp_cint_cint, "__builtin_altivec_dststt");
 422
 423    procedure vec_dststt_kvbsp_cint_cint
 424      (A : const_vector_bool_short_ptr;
 425       B : c_int;
 426       C : c_int);
 427
 428    pragma Import
 429      (LL_Altivec, vec_dststt_kvbsp_cint_cint, "__builtin_altivec_dststt");
 430
 431    procedure vec_dststt_kvxp_cint_cint
 432      (A : const_vector_pixel_ptr;
 433       B : c_int;
 434       C : c_int);
 435
 436    pragma Import
 437      (LL_Altivec, vec_dststt_kvxp_cint_cint, "__builtin_altivec_dststt");
 438
 439    procedure vec_dststt_kvuip_cint_cint
 440      (A : const_vector_unsigned_int_ptr;
 441       B : c_int;
 442       C : c_int);
 443
 444    pragma Import
 445      (LL_Altivec, vec_dststt_kvuip_cint_cint, "__builtin_altivec_dststt");
 446
 447    procedure vec_dststt_kvsip_cint_cint
 448      (A : const_vector_signed_int_ptr;
 449       B : c_int;
 450       C : c_int);
 451
 452    pragma Import
 453      (LL_Altivec, vec_dststt_kvsip_cint_cint, "__builtin_altivec_dststt");
 454
 455    procedure vec_dststt_kvbip_cint_cint
 456      (A : const_vector_bool_int_ptr;
 457       B : c_int;
 458       C : c_int);
 459
 460    pragma Import
 461      (LL_Altivec, vec_dststt_kvbip_cint_cint, "__builtin_altivec_dststt");
 462
 463    procedure vec_dststt_kvfp_cint_cint
 464      (A : const_vector_float_ptr;
 465       B : c_int;
 466       C : c_int);
 467
 468    pragma Import
 469      (LL_Altivec, vec_dststt_kvfp_cint_cint, "__builtin_altivec_dststt");
 470
 471    procedure vec_dststt_kucp_cint_cint
 472      (A : const_unsigned_char_ptr;
 473       B : c_int;
 474       C : c_int);
 475
 476    pragma Import
 477      (LL_Altivec, vec_dststt_kucp_cint_cint, "__builtin_altivec_dststt");
 478
 479    procedure vec_dststt_kscp_cint_cint
 480      (A : const_signed_char_ptr;
 481       B : c_int;
 482       C : c_int);
 483
 484    pragma Import
 485      (LL_Altivec, vec_dststt_kscp_cint_cint, "__builtin_altivec_dststt");
 486
 487    procedure vec_dststt_kusp_cint_cint
 488      (A : const_unsigned_short_ptr;
 489       B : c_int;
 490       C : c_int);
 491
 492    pragma Import
 493      (LL_Altivec, vec_dststt_kusp_cint_cint, "__builtin_altivec_dststt");
 494
 495    procedure vec_dststt_ksp_cint_cint
 496      (A : const_short_ptr;
 497       B : c_int;
 498       C : c_int);
 499
 500    pragma Import
 501      (LL_Altivec, vec_dststt_ksp_cint_cint, "__builtin_altivec_dststt");
 502
 503    procedure vec_dststt_kuip_cint_cint
 504      (A : const_unsigned_int_ptr;
 505       B : c_int;
 506       C : c_int);
 507
 508    pragma Import
 509      (LL_Altivec, vec_dststt_kuip_cint_cint, "__builtin_altivec_dststt");
 510
 511    procedure vec_dststt_kip_cint_cint
 512      (A : const_int_ptr;
 513       B : c_int;
 514       C : c_int);
 515
 516    pragma Import
 517      (LL_Altivec, vec_dststt_kip_cint_cint, "__builtin_altivec_dststt");
 518
 519    procedure vec_dststt_kulongp_cint_cint
 520      (A : const_unsigned_long_ptr;
 521       B : c_int;
 522       C : c_int);
 523
 524    pragma Import
 525      (LL_Altivec, vec_dststt_kulongp_cint_cint, "__builtin_altivec_dststt");
 526
 527    procedure vec_dststt_klongp_cint_cint
 528      (A : const_long_ptr;
 529       B : c_int;
 530       C : c_int);
 531
 532    pragma Import
 533      (LL_Altivec, vec_dststt_klongp_cint_cint, "__builtin_altivec_dststt");
 534
 535    procedure vec_dststt_kfp_cint_cint
 536      (A : const_float_ptr;
 537       B : c_int;
 538       C : c_int);
 539
 540    pragma Import
 541      (LL_Altivec, vec_dststt_kfp_cint_cint, "__builtin_altivec_dststt");
 542
 543    -- vec_dstt --
 544
 545    procedure vec_dstt_kvucp_cint_cint
 546      (A : const_vector_unsigned_char_ptr;
 547       B : c_int;
 548       C : c_int);
 549
 550    pragma Import
 551      (LL_Altivec, vec_dstt_kvucp_cint_cint, "__builtin_altivec_dstt");
 552
 553    procedure vec_dstt_kvscp_cint_cint
 554      (A : const_vector_signed_char_ptr;
 555       B : c_int;
 556       C : c_int);
 557
 558    pragma Import
 559      (LL_Altivec, vec_dstt_kvscp_cint_cint, "__builtin_altivec_dstt");
 560
 561    procedure vec_dstt_kvbcp_cint_cint
 562      (A : const_vector_bool_char_ptr;
 563       B : c_int;
 564       C : c_int);
 565
 566    pragma Import
 567      (LL_Altivec, vec_dstt_kvbcp_cint_cint, "__builtin_altivec_dstt");
 568
 569    procedure vec_dstt_kvusp_cint_cint
 570      (A : const_vector_unsigned_short_ptr;
 571       B : c_int;
 572       C : c_int);
 573
 574    pragma Import
 575      (LL_Altivec, vec_dstt_kvusp_cint_cint, "__builtin_altivec_dstt");
 576
 577    procedure vec_dstt_kvssp_cint_cint
 578      (A : const_vector_signed_short_ptr;
 579       B : c_int;
 580       C : c_int);
 581
 582    pragma Import
 583      (LL_Altivec, vec_dstt_kvssp_cint_cint, "__builtin_altivec_dstt");
 584
 585    procedure vec_dstt_kvbsp_cint_cint
 586      (A : const_vector_bool_short_ptr;
 587       B : c_int;
 588       C : c_int);
 589
 590    pragma Import
 591      (LL_Altivec, vec_dstt_kvbsp_cint_cint, "__builtin_altivec_dstt");
 592
 593    procedure vec_dstt_kvxp_cint_cint
 594      (A : const_vector_pixel_ptr;
 595       B : c_int;
 596       C : c_int);
 597
 598    pragma Import
 599      (LL_Altivec, vec_dstt_kvxp_cint_cint, "__builtin_altivec_dstt");
 600
 601    procedure vec_dstt_kvuip_cint_cint
 602      (A : const_vector_unsigned_int_ptr;
 603       B : c_int;
 604       C : c_int);
 605
 606    pragma Import
 607      (LL_Altivec, vec_dstt_kvuip_cint_cint, "__builtin_altivec_dstt");
 608
 609    procedure vec_dstt_kvsip_cint_cint
 610      (A : const_vector_signed_int_ptr;
 611       B : c_int;
 612       C : c_int);
 613
 614    pragma Import
 615      (LL_Altivec, vec_dstt_kvsip_cint_cint, "__builtin_altivec_dstt");
 616
 617    procedure vec_dstt_kvbip_cint_cint
 618      (A : const_vector_bool_int_ptr;
 619       B : c_int;
 620       C : c_int);
 621
 622    pragma Import
 623      (LL_Altivec, vec_dstt_kvbip_cint_cint, "__builtin_altivec_dstt");
 624
 625    procedure vec_dstt_kvfp_cint_cint
 626      (A : const_vector_float_ptr;
 627       B : c_int;
 628       C : c_int);
 629
 630    pragma Import
 631      (LL_Altivec, vec_dstt_kvfp_cint_cint, "__builtin_altivec_dstt");
 632
 633    procedure vec_dstt_kucp_cint_cint
 634      (A : const_unsigned_char_ptr;
 635       B : c_int;
 636       C : c_int);
 637
 638    pragma Import
 639      (LL_Altivec, vec_dstt_kucp_cint_cint, "__builtin_altivec_dstt");
 640
 641    procedure vec_dstt_kscp_cint_cint
 642      (A : const_signed_char_ptr;
 643       B : c_int;
 644       C : c_int);
 645
 646    pragma Import
 647      (LL_Altivec, vec_dstt_kscp_cint_cint, "__builtin_altivec_dstt");
 648
 649    procedure vec_dstt_kusp_cint_cint
 650      (A : const_unsigned_short_ptr;
 651       B : c_int;
 652       C : c_int);
 653
 654    pragma Import
 655      (LL_Altivec, vec_dstt_kusp_cint_cint, "__builtin_altivec_dstt");
 656
 657    procedure vec_dstt_ksp_cint_cint
 658      (A : const_short_ptr;
 659       B : c_int;
 660       C : c_int);
 661
 662    pragma Import
 663      (LL_Altivec, vec_dstt_ksp_cint_cint, "__builtin_altivec_dstt");
 664
 665    procedure vec_dstt_kuip_cint_cint
 666      (A : const_unsigned_int_ptr;
 667       B : c_int;
 668       C : c_int);
 669
 670    pragma Import
 671      (LL_Altivec, vec_dstt_kuip_cint_cint, "__builtin_altivec_dstt");
 672
 673    procedure vec_dstt_kip_cint_cint
 674      (A : const_int_ptr;
 675       B : c_int;
 676       C : c_int);
 677
 678    pragma Import
 679      (LL_Altivec, vec_dstt_kip_cint_cint, "__builtin_altivec_dstt");
 680
 681    procedure vec_dstt_kulongp_cint_cint
 682      (A : const_unsigned_long_ptr;
 683       B : c_int;
 684       C : c_int);
 685
 686    pragma Import
 687      (LL_Altivec, vec_dstt_kulongp_cint_cint, "__builtin_altivec_dstt");
 688
 689    procedure vec_dstt_klongp_cint_cint
 690      (A : const_long_ptr;
 691       B : c_int;
 692       C : c_int);
 693
 694    pragma Import
 695      (LL_Altivec, vec_dstt_klongp_cint_cint, "__builtin_altivec_dstt");
 696
 697    procedure vec_dstt_kfp_cint_cint
 698      (A : const_float_ptr;
 699       B : c_int;
 700       C : c_int);
 701
 702    pragma Import
 703      (LL_Altivec, vec_dstt_kfp_cint_cint, "__builtin_altivec_dstt");
 704
 705    -- vec_sld --
 706
 707    --  ??? The base GCC implementation maps everything to vsldoi_4si, while
 708    --  it defines builtin variants for all the modes. Adjust here, to avoid
 709    --  the infamous argument mode mismatch.
 710
 711    function vec_sld_vf_vf_cint_r_vf
 712      (A : vector_float;
 713       B : vector_float;
 714       C : c_int) return vector_float;
 715
 716    pragma Import
 717      (LL_Altivec, vec_sld_vf_vf_cint_r_vf, "__builtin_altivec_vsldoi_4sf");
 718
 719    function vec_sld_vsi_vsi_cint_r_vsi
 720      (A : vector_signed_int;
 721       B : vector_signed_int;
 722       C : c_int) return vector_signed_int;
 723
 724    pragma Import
 725      (LL_Altivec, vec_sld_vsi_vsi_cint_r_vsi, "__builtin_altivec_vsldoi_4si");
 726
 727    function vec_sld_vui_vui_cint_r_vui
 728      (A : vector_unsigned_int;
 729       B : vector_unsigned_int;
 730       C : c_int) return vector_unsigned_int;
 731
 732    pragma Import
 733      (LL_Altivec, vec_sld_vui_vui_cint_r_vui, "__builtin_altivec_vsldoi_4si");
 734
 735    function vec_sld_vbi_vbi_cint_r_vbi
 736      (A : vector_bool_int;
 737       B : vector_bool_int;
 738       C : c_int) return vector_bool_int;
 739
 740    pragma Import
 741      (LL_Altivec, vec_sld_vbi_vbi_cint_r_vbi, "__builtin_altivec_vsldoi_4si");
 742
 743    function vec_sld_vss_vss_cint_r_vss
 744      (A : vector_signed_short;
 745       B : vector_signed_short;
 746       C : c_int) return vector_signed_short;
 747
 748    pragma Import
 749      (LL_Altivec, vec_sld_vss_vss_cint_r_vss, "__builtin_altivec_vsldoi_8hi");
 750
 751    function vec_sld_vus_vus_cint_r_vus
 752      (A : vector_unsigned_short;
 753       B : vector_unsigned_short;
 754       C : c_int) return vector_unsigned_short;
 755
 756    pragma Import
 757      (LL_Altivec, vec_sld_vus_vus_cint_r_vus, "__builtin_altivec_vsldoi_8hi");
 758
 759    function vec_sld_vbs_vbs_cint_r_vbs
 760      (A : vector_bool_short;
 761       B : vector_bool_short;
 762       C : c_int) return vector_bool_short;
 763
 764    pragma Import
 765      (LL_Altivec, vec_sld_vbs_vbs_cint_r_vbs, "__builtin_altivec_vsldoi_8hi");
 766
 767    function vec_sld_vx_vx_cint_r_vx
 768      (A : vector_pixel;
 769       B : vector_pixel;
 770       C : c_int) return vector_pixel;
 771
 772    pragma Import
 773      (LL_Altivec, vec_sld_vx_vx_cint_r_vx, "__builtin_altivec_vsldoi_8hi");
 774
 775    function vec_sld_vsc_vsc_cint_r_vsc
 776      (A : vector_signed_char;
 777       B : vector_signed_char;
 778       C : c_int) return vector_signed_char;
 779
 780    pragma Import
 781      (LL_Altivec, vec_sld_vsc_vsc_cint_r_vsc, "__builtin_altivec_vsldoi_16qi");
 782
 783    function vec_sld_vuc_vuc_cint_r_vuc
 784      (A : vector_unsigned_char;
 785       B : vector_unsigned_char;
 786       C : c_int) return vector_unsigned_char;
 787
 788    pragma Import
 789      (LL_Altivec, vec_sld_vuc_vuc_cint_r_vuc, "__builtin_altivec_vsldoi_16qi");
 790
 791    function vec_sld_vbc_vbc_cint_r_vbc
 792      (A : vector_bool_char;
 793       B : vector_bool_char;
 794       C : c_int) return vector_bool_char;
 795
 796    pragma Import
 797      (LL_Altivec, vec_sld_vbc_vbc_cint_r_vbc, "__builtin_altivec_vsldoi_16qi");
 798
 799    -- vec_splat --
 800
 801    function vec_splat_vsc_cint_r_vsc
 802      (A : vector_signed_char;
 803       B : c_int) return vector_signed_char;
 804
 805    pragma Import
 806      (LL_Altivec, vec_splat_vsc_cint_r_vsc, "__builtin_altivec_vspltb");
 807
 808    function vec_splat_vuc_cint_r_vuc
 809      (A : vector_unsigned_char;
 810       B : c_int) return vector_unsigned_char;
 811
 812    pragma Import
 813      (LL_Altivec, vec_splat_vuc_cint_r_vuc, "__builtin_altivec_vspltb");
 814
 815    function vec_splat_vbc_cint_r_vbc
 816      (A : vector_bool_char;
 817       B : c_int) return vector_bool_char;
 818
 819    pragma Import
 820      (LL_Altivec, vec_splat_vbc_cint_r_vbc, "__builtin_altivec_vspltb");
 821
 822    function vec_splat_vss_cint_r_vss
 823      (A : vector_signed_short;
 824       B : c_int) return vector_signed_short;
 825
 826    pragma Import
 827      (LL_Altivec, vec_splat_vss_cint_r_vss, "__builtin_altivec_vsplth");
 828
 829    function vec_splat_vus_cint_r_vus
 830      (A : vector_unsigned_short;
 831       B : c_int) return vector_unsigned_short;
 832
 833    pragma Import
 834      (LL_Altivec, vec_splat_vus_cint_r_vus, "__builtin_altivec_vsplth");
 835
 836    function vec_splat_vbs_cint_r_vbs
 837      (A : vector_bool_short;
 838       B : c_int) return vector_bool_short;
 839
 840    pragma Import
 841      (LL_Altivec, vec_splat_vbs_cint_r_vbs, "__builtin_altivec_vsplth");
 842
 843    function vec_splat_vx_cint_r_vx
 844      (A : vector_pixel;
 845       B : c_int) return vector_pixel;
 846
 847    pragma Import
 848      (LL_Altivec, vec_splat_vx_cint_r_vx, "__builtin_altivec_vsplth");
 849
 850    function vec_splat_vf_cint_r_vf
 851      (A : vector_float;
 852       B : c_int) return vector_float;
 853
 854    pragma Import
 855      (LL_Altivec, vec_splat_vf_cint_r_vf, "__builtin_altivec_vspltw");
 856
 857    function vec_splat_vsi_cint_r_vsi
 858      (A : vector_signed_int;
 859       B : c_int) return vector_signed_int;
 860
 861    pragma Import
 862      (LL_Altivec, vec_splat_vsi_cint_r_vsi, "__builtin_altivec_vspltw");
 863
 864    function vec_splat_vui_cint_r_vui
 865      (A : vector_unsigned_int;
 866       B : c_int) return vector_unsigned_int;
 867
 868    pragma Import
 869      (LL_Altivec, vec_splat_vui_cint_r_vui, "__builtin_altivec_vspltw");
 870
 871    function vec_splat_vbi_cint_r_vbi
 872      (A : vector_bool_int;
 873       B : c_int) return vector_bool_int;
 874
 875    pragma Import
 876      (LL_Altivec, vec_splat_vbi_cint_r_vbi, "__builtin_altivec_vspltw");
 877
 878    -- vec_vspltw --
 879
 880    function vec_vspltw_vf_cint_r_vf
 881      (A : vector_float;
 882       B : c_int) return vector_float;
 883
 884    pragma Import
 885      (LL_Altivec, vec_vspltw_vf_cint_r_vf, "__builtin_altivec_vspltw");
 886
 887    function vec_vspltw_vsi_cint_r_vsi
 888      (A : vector_signed_int;
 889       B : c_int) return vector_signed_int;
 890
 891    pragma Import
 892      (LL_Altivec, vec_vspltw_vsi_cint_r_vsi, "__builtin_altivec_vspltw");
 893
 894    function vec_vspltw_vui_cint_r_vui
 895      (A : vector_unsigned_int;
 896       B : c_int) return vector_unsigned_int;
 897
 898    pragma Import
 899      (LL_Altivec, vec_vspltw_vui_cint_r_vui, "__builtin_altivec_vspltw");
 900
 901    function vec_vspltw_vbi_cint_r_vbi
 902      (A : vector_bool_int;
 903       B : c_int) return vector_bool_int;
 904
 905    pragma Import
 906      (LL_Altivec, vec_vspltw_vbi_cint_r_vbi, "__builtin_altivec_vspltw");
 907
 908    -- vec_vsplth --
 909
 910    function vec_vsplth_vbs_cint_r_vbs
 911      (A : vector_bool_short;
 912       B : c_int) return vector_bool_short;
 913
 914    pragma Import
 915      (LL_Altivec, vec_vsplth_vbs_cint_r_vbs, "__builtin_altivec_vsplth");
 916
 917    function vec_vsplth_vss_cint_r_vss
 918      (A : vector_signed_short;
 919       B : c_int) return vector_signed_short;
 920
 921    pragma Import
 922      (LL_Altivec, vec_vsplth_vss_cint_r_vss, "__builtin_altivec_vsplth");
 923
 924    function vec_vsplth_vus_cint_r_vus
 925      (A : vector_unsigned_short;
 926       B : c_int) return vector_unsigned_short;
 927
 928    pragma Import
 929      (LL_Altivec, vec_vsplth_vus_cint_r_vus, "__builtin_altivec_vsplth");
 930
 931    function vec_vsplth_vx_cint_r_vx
 932      (A : vector_pixel;
 933       B : c_int) return vector_pixel;
 934
 935    pragma Import
 936      (LL_Altivec, vec_vsplth_vx_cint_r_vx, "__builtin_altivec_vsplth");
 937
 938    -- vec_vspltb --
 939
 940    function vec_vspltb_vsc_cint_r_vsc
 941      (A : vector_signed_char;
 942       B : c_int) return vector_signed_char;
 943
 944    pragma Import
 945      (LL_Altivec, vec_vspltb_vsc_cint_r_vsc, "__builtin_altivec_vspltb");
 946
 947    function vec_vspltb_vuc_cint_r_vuc
 948      (A : vector_unsigned_char;
 949       B : c_int) return vector_unsigned_char;
 950
 951    pragma Import
 952      (LL_Altivec, vec_vspltb_vuc_cint_r_vuc, "__builtin_altivec_vspltb");
 953
 954    function vec_vspltb_vbc_cint_r_vbc
 955      (A : vector_bool_char;
 956       B : c_int) return vector_bool_char;
 957
 958    pragma Import
 959      (LL_Altivec, vec_vspltb_vbc_cint_r_vbc, "__builtin_altivec_vspltb");
 960
 961    -- vec_splat_s8 --
 962
 963    function vec_splat_s8_cint_r_vsc
 964      (A : c_int) return vector_signed_char;
 965
 966    pragma Import
 967      (LL_Altivec, vec_splat_s8_cint_r_vsc, "__builtin_altivec_vspltisb");
 968
 969    -- vec_splat_s16 --
 970
 971    function vec_splat_s16_cint_r_vss
 972      (A : c_int) return vector_signed_short;
 973
 974    pragma Import
 975      (LL_Altivec, vec_splat_s16_cint_r_vss, "__builtin_altivec_vspltish");
 976
 977    -- vec_splat_s32 --
 978
 979    function vec_splat_s32_cint_r_vsi
 980      (A : c_int) return vector_signed_int;
 981
 982    pragma Import
 983      (LL_Altivec, vec_splat_s32_cint_r_vsi, "__builtin_altivec_vspltisw");
 984
 985    -- vec_splat_u8 --
 986
 987    function vec_splat_u8_cint_r_vuc
 988      (A : c_int) return vector_unsigned_char;
 989
 990    pragma Import
 991      (LL_Altivec, vec_splat_u8_cint_r_vuc, "__builtin_altivec_vspltisb");
 992
 993    -- vec_splat_u16 --
 994
 995    function vec_splat_u16_cint_r_vus
 996      (A : c_int) return vector_unsigned_short;
 997
 998    pragma Import
 999      (LL_Altivec, vec_splat_u16_cint_r_vus, "__builtin_altivec_vspltish");
1000
1001    -- vec_splat_u32 --
1002
1003    function vec_splat_u32_cint_r_vui
1004      (A : c_int) return vector_unsigned_int;
1005
1006    pragma Import
1007      (LL_Altivec, vec_splat_u32_cint_r_vui, "__builtin_altivec_vspltisw");
1008
1009    ------------------------------------------------------------
1010    -- Imports for low-level signature consistent subprograms --
1011    ------------------------------------------------------------
1012
1013    -----------------------------------------
1014    -- Conversions between low level types --
1015    -----------------------------------------
1016
1017    use GNAT.Altivec.Low_Level_Vectors;
1018
1019    --  Something like...
1020    --
1021    --  TYPES="LL_VBC LL_VUC LL_VSC LL_VBS LL_VUS LL_VSS \
1022    --         LL_VBI LL_VUI LL_VSI LL_VF LL_VP"
1023    --  for TT in `echo $TYPES`; do
1024    --  for ST in `echo $TYPES`; do
1025    --  echo "function To_$TT is new Ada.Unchecked_Conversion ($ST, $TT);"
1026    --  done
1027    --  echo ""
1028    --  done
1029
1030    function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VBC, LL_VBC);
1031    function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VUC, LL_VBC);
1032    function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VSC, LL_VBC);
1033    function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VBS, LL_VBC);
1034    function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VUS, LL_VBC);
1035    function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VSS, LL_VBC);
1036    function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VBI, LL_VBC);
1037    function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VUI, LL_VBC);
1038    function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VSI, LL_VBC);
1039    function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VF, LL_VBC);
1040    function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VP, LL_VBC);
1041
1042    function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VBC, LL_VUC);
1043    function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VUC, LL_VUC);
1044    function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VSC, LL_VUC);
1045    function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VBS, LL_VUC);
1046    function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VUS, LL_VUC);
1047    function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VSS, LL_VUC);
1048    function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VBI, LL_VUC);
1049    function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VUI, LL_VUC);
1050    function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VSI, LL_VUC);
1051    function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VF, LL_VUC);
1052    function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VP, LL_VUC);
1053
1054    function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VBC, LL_VSC);
1055    function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VUC, LL_VSC);
1056    function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VSC, LL_VSC);
1057    function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VBS, LL_VSC);
1058    function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VUS, LL_VSC);
1059    function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VSS, LL_VSC);
1060    function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VBI, LL_VSC);
1061    function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VUI, LL_VSC);
1062    function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VSI, LL_VSC);
1063    function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VF, LL_VSC);
1064    function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VP, LL_VSC);
1065
1066    function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VBC, LL_VBS);
1067    function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VUC, LL_VBS);
1068    function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VSC, LL_VBS);
1069    function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VBS, LL_VBS);
1070    function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VUS, LL_VBS);
1071    function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VSS, LL_VBS);
1072    function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VBI, LL_VBS);
1073    function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VUI, LL_VBS);
1074    function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VSI, LL_VBS);
1075    function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VF, LL_VBS);
1076    function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VP, LL_VBS);
1077
1078    function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VBC, LL_VUS);
1079    function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VUC, LL_VUS);
1080    function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VSC, LL_VUS);
1081    function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VBS, LL_VUS);
1082    function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VUS, LL_VUS);
1083    function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VSS, LL_VUS);
1084    function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VBI, LL_VUS);
1085    function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VUI, LL_VUS);
1086    function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VSI, LL_VUS);
1087    function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VF, LL_VUS);
1088    function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VP, LL_VUS);
1089
1090    function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VBC, LL_VSS);
1091    function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VUC, LL_VSS);
1092    function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VSC, LL_VSS);
1093    function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VBS, LL_VSS);
1094    function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VUS, LL_VSS);
1095    function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VSS, LL_VSS);
1096    function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VBI, LL_VSS);
1097    function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VUI, LL_VSS);
1098    function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VSI, LL_VSS);
1099    function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VF, LL_VSS);
1100    function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VP, LL_VSS);
1101
1102    function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VBC, LL_VBI);
1103    function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VUC, LL_VBI);
1104    function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VSC, LL_VBI);
1105    function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VBS, LL_VBI);
1106    function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VUS, LL_VBI);
1107    function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VSS, LL_VBI);
1108    function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VBI, LL_VBI);
1109    function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VUI, LL_VBI);
1110    function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VSI, LL_VBI);
1111    function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VF, LL_VBI);
1112    function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VP, LL_VBI);
1113
1114    function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VBC, LL_VUI);
1115    function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VUC, LL_VUI);
1116    function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VSC, LL_VUI);
1117    function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VBS, LL_VUI);
1118    function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VUS, LL_VUI);
1119    function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VSS, LL_VUI);
1120    function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VBI, LL_VUI);
1121    function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VUI, LL_VUI);
1122    function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VSI, LL_VUI);
1123    function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VF, LL_VUI);
1124    function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VP, LL_VUI);
1125
1126    function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VBC, LL_VSI);
1127    function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VUC, LL_VSI);
1128    function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VSC, LL_VSI);
1129    function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VBS, LL_VSI);
1130    function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VUS, LL_VSI);
1131    function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VSS, LL_VSI);
1132    function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VBI, LL_VSI);
1133    function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VUI, LL_VSI);
1134    function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VSI, LL_VSI);
1135    function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VF, LL_VSI);
1136    function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VP, LL_VSI);
1137
1138    function To_LL_VF is new Ada.Unchecked_Conversion (LL_VBC, LL_VF);
1139    function To_LL_VF is new Ada.Unchecked_Conversion (LL_VUC, LL_VF);
1140    function To_LL_VF is new Ada.Unchecked_Conversion (LL_VSC, LL_VF);
1141    function To_LL_VF is new Ada.Unchecked_Conversion (LL_VBS, LL_VF);
1142    function To_LL_VF is new Ada.Unchecked_Conversion (LL_VUS, LL_VF);
1143    function To_LL_VF is new Ada.Unchecked_Conversion (LL_VSS, LL_VF);
1144    function To_LL_VF is new Ada.Unchecked_Conversion (LL_VBI, LL_VF);
1145    function To_LL_VF is new Ada.Unchecked_Conversion (LL_VUI, LL_VF);
1146    function To_LL_VF is new Ada.Unchecked_Conversion (LL_VSI, LL_VF);
1147    function To_LL_VF is new Ada.Unchecked_Conversion (LL_VF, LL_VF);
1148    function To_LL_VF is new Ada.Unchecked_Conversion (LL_VP, LL_VF);
1149
1150    function To_LL_VP is new Ada.Unchecked_Conversion (LL_VBC, LL_VP);
1151    function To_LL_VP is new Ada.Unchecked_Conversion (LL_VUC, LL_VP);
1152    function To_LL_VP is new Ada.Unchecked_Conversion (LL_VSC, LL_VP);
1153    function To_LL_VP is new Ada.Unchecked_Conversion (LL_VBS, LL_VP);
1154    function To_LL_VP is new Ada.Unchecked_Conversion (LL_VUS, LL_VP);
1155    function To_LL_VP is new Ada.Unchecked_Conversion (LL_VSS, LL_VP);
1156    function To_LL_VP is new Ada.Unchecked_Conversion (LL_VBI, LL_VP);
1157    function To_LL_VP is new Ada.Unchecked_Conversion (LL_VUI, LL_VP);
1158    function To_LL_VP is new Ada.Unchecked_Conversion (LL_VSI, LL_VP);
1159    function To_LL_VP is new Ada.Unchecked_Conversion (LL_VF, LL_VP);
1160    function To_LL_VP is new Ada.Unchecked_Conversion (LL_VP, LL_VP);
1161
1162    ----------------------------------------------
1163    -- Conversions between pointer/access types --
1164    ----------------------------------------------
1165
1166    function To_PTR is
1167       new Ada.Unchecked_Conversion (vector_unsigned_char_ptr, c_ptr);
1168    function To_PTR is
1169       new Ada.Unchecked_Conversion (vector_signed_char_ptr, c_ptr);
1170    function To_PTR is
1171       new Ada.Unchecked_Conversion (vector_bool_char_ptr, c_ptr);
1172    function To_PTR is
1173       new Ada.Unchecked_Conversion (vector_unsigned_short_ptr, c_ptr);
1174    function To_PTR is
1175       new Ada.Unchecked_Conversion (vector_signed_short_ptr, c_ptr);
1176    function To_PTR is
1177       new Ada.Unchecked_Conversion (vector_bool_short_ptr, c_ptr);
1178    function To_PTR is
1179       new Ada.Unchecked_Conversion (vector_unsigned_int_ptr, c_ptr);
1180    function To_PTR is
1181       new Ada.Unchecked_Conversion (vector_signed_int_ptr, c_ptr);
1182    function To_PTR is
1183       new Ada.Unchecked_Conversion (vector_bool_int_ptr, c_ptr);
1184    function To_PTR is
1185       new Ada.Unchecked_Conversion (vector_float_ptr, c_ptr);
1186    function To_PTR is
1187       new Ada.Unchecked_Conversion (vector_pixel_ptr, c_ptr);
1188    function To_PTR is
1189       new Ada.Unchecked_Conversion (const_vector_bool_char_ptr, c_ptr);
1190    function To_PTR is
1191       new Ada.Unchecked_Conversion (const_vector_signed_char_ptr, c_ptr);
1192    function To_PTR is
1193       new Ada.Unchecked_Conversion (const_vector_unsigned_char_ptr, c_ptr);
1194    function To_PTR is
1195       new Ada.Unchecked_Conversion (const_vector_bool_short_ptr, c_ptr);
1196    function To_PTR is
1197       new Ada.Unchecked_Conversion (const_vector_signed_short_ptr, c_ptr);
1198    function To_PTR is
1199       new Ada.Unchecked_Conversion (const_vector_unsigned_short_ptr, c_ptr);
1200    function To_PTR is
1201       new Ada.Unchecked_Conversion (const_vector_bool_int_ptr, c_ptr);
1202    function To_PTR is
1203       new Ada.Unchecked_Conversion (const_vector_signed_int_ptr, c_ptr);
1204    function To_PTR is
1205       new Ada.Unchecked_Conversion (const_vector_unsigned_int_ptr, c_ptr);
1206    function To_PTR is
1207       new Ada.Unchecked_Conversion (const_vector_float_ptr, c_ptr);
1208    function To_PTR is
1209       new Ada.Unchecked_Conversion (const_vector_pixel_ptr, c_ptr);
1210    function To_PTR is
1211       new Ada.Unchecked_Conversion (c_ptr, c_ptr);
1212    function To_PTR is
1213       new Ada.Unchecked_Conversion (signed_char_ptr, c_ptr);
1214    function To_PTR is
1215       new Ada.Unchecked_Conversion (unsigned_char_ptr, c_ptr);
1216    function To_PTR is
1217       new Ada.Unchecked_Conversion (short_ptr, c_ptr);
1218    function To_PTR is
1219       new Ada.Unchecked_Conversion (signed_short_ptr, c_ptr);
1220    function To_PTR is
1221       new Ada.Unchecked_Conversion (unsigned_short_ptr, c_ptr);
1222    function To_PTR is
1223       new Ada.Unchecked_Conversion (int_ptr, c_ptr);
1224    function To_PTR is
1225       new Ada.Unchecked_Conversion (signed_int_ptr, c_ptr);
1226    function To_PTR is
1227       new Ada.Unchecked_Conversion (unsigned_int_ptr, c_ptr);
1228    function To_PTR is
1229       new Ada.Unchecked_Conversion (long_ptr, c_ptr);
1230    function To_PTR is
1231       new Ada.Unchecked_Conversion (signed_long_ptr, c_ptr);
1232    function To_PTR is
1233       new Ada.Unchecked_Conversion (unsigned_long_ptr, c_ptr);
1234    function To_PTR is
1235       new Ada.Unchecked_Conversion (float_ptr, c_ptr);
1236    function To_PTR is
1237       new Ada.Unchecked_Conversion (const_signed_char_ptr, c_ptr);
1238    function To_PTR is
1239       new Ada.Unchecked_Conversion (const_unsigned_char_ptr, c_ptr);
1240    function To_PTR is
1241       new Ada.Unchecked_Conversion (const_short_ptr, c_ptr);
1242    function To_PTR is
1243       new Ada.Unchecked_Conversion (const_signed_short_ptr, c_ptr);
1244    function To_PTR is
1245       new Ada.Unchecked_Conversion (const_unsigned_short_ptr, c_ptr);
1246    function To_PTR is
1247       new Ada.Unchecked_Conversion (const_int_ptr, c_ptr);
1248    function To_PTR is
1249       new Ada.Unchecked_Conversion (const_signed_int_ptr, c_ptr);
1250    function To_PTR is
1251       new Ada.Unchecked_Conversion (const_unsigned_int_ptr, c_ptr);
1252    function To_PTR is
1253       new Ada.Unchecked_Conversion (const_long_ptr, c_ptr);
1254    function To_PTR is
1255       new Ada.Unchecked_Conversion (const_signed_long_ptr, c_ptr);
1256    function To_PTR is
1257       new Ada.Unchecked_Conversion (const_unsigned_long_ptr, c_ptr);
1258    function To_PTR is
1259       new Ada.Unchecked_Conversion (const_float_ptr, c_ptr);
1260    function To_PTR is
1261       new Ada.Unchecked_Conversion (constv_char_ptr, c_ptr);
1262    function To_PTR is
1263       new Ada.Unchecked_Conversion (constv_signed_char_ptr, c_ptr);
1264    function To_PTR is
1265       new Ada.Unchecked_Conversion (constv_unsigned_char_ptr, c_ptr);
1266    function To_PTR is
1267       new Ada.Unchecked_Conversion (constv_short_ptr, c_ptr);
1268    function To_PTR is
1269       new Ada.Unchecked_Conversion (constv_signed_short_ptr, c_ptr);
1270    function To_PTR is
1271       new Ada.Unchecked_Conversion (constv_unsigned_short_ptr, c_ptr);
1272    function To_PTR is
1273       new Ada.Unchecked_Conversion (constv_int_ptr, c_ptr);
1274    function To_PTR is
1275       new Ada.Unchecked_Conversion (constv_signed_int_ptr, c_ptr);
1276    function To_PTR is
1277       new Ada.Unchecked_Conversion (constv_unsigned_int_ptr, c_ptr);
1278    function To_PTR is
1279       new Ada.Unchecked_Conversion (constv_long_ptr, c_ptr);
1280    function To_PTR is
1281       new Ada.Unchecked_Conversion (constv_signed_long_ptr, c_ptr);
1282    function To_PTR is
1283       new Ada.Unchecked_Conversion (constv_unsigned_long_ptr, c_ptr);
1284    function To_PTR is
1285       new Ada.Unchecked_Conversion (constv_float_ptr, c_ptr);
1286
1287 end GNAT.Altivec.Low_Level_Interface;