gcc/ada/g-alveop.adb

   1 ------------------------------------------------------------------------------
   2 --                                                                          --
   3 --                         GNAT COMPILER COMPONENTS                         --
   4 --                                                                          --
   5 --       G N A T . A L T I V E C . V E C T O R _ O P E R A T I O N S        --
   6 --                                                                          --
   7 --                                 B o d y                                  --
   8 --                                                                          --
   9 --           Copyright (C) 2004-2009, 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 with GNAT.Altivec.Low_Level_Vectors; use GNAT.Altivec.Low_Level_Vectors;
  33
  34 package body GNAT.Altivec.Vector_Operations is
  35
  36    --------------------------------------------------------
  37    -- Bodies for generic and specific Altivec operations --
  38    --------------------------------------------------------
  39
  40    -- vec_abs --
  41
  42    function vec_abs
  43      (A : vector_signed_char) return vector_signed_char
  44    is
  45    begin
  46       return To_LL_VSC (abs_v16qi (A));
  47    end vec_abs;
  48
  49    function vec_abs
  50      (A : vector_signed_short) return vector_signed_short
  51    is
  52    begin
  53       return To_LL_VSS (abs_v8hi (A));
  54    end vec_abs;
  55
  56    function vec_abs
  57      (A : vector_signed_int) return vector_signed_int
  58    is
  59    begin
  60       return To_LL_VSI (abs_v4si (A));
  61    end vec_abs;
  62
  63    function vec_abs
  64      (A : vector_float) return vector_float
  65    is
  66    begin
  67       return To_LL_VF (abs_v4sf (A));
  68    end vec_abs;
  69
  70    -- vec_abss --
  71
  72    function vec_abss
  73      (A : vector_signed_char) return vector_signed_char
  74    is
  75    begin
  76       return To_LL_VSC (abss_v16qi (A));
  77    end vec_abss;
  78
  79    function vec_abss
  80      (A : vector_signed_short) return vector_signed_short
  81    is
  82    begin
  83       return To_LL_VSS (abss_v8hi (A));
  84    end vec_abss;
  85
  86    function vec_abss
  87      (A : vector_signed_int) return vector_signed_int
  88    is
  89    begin
  90       return To_LL_VSI (abss_v4si (A));
  91    end vec_abss;
  92
  93    -- vec_add --
  94
  95    function vec_add
  96      (A : vector_bool_char;
  97       B : vector_signed_char) return vector_signed_char
  98    is
  99    begin
 100       return To_LL_VSC (vaddubm (To_LL_VSC (A), To_LL_VSC (B)));
 101    end vec_add;
 102
 103    function vec_add
 104      (A : vector_signed_char;
 105       B : vector_bool_char) return vector_signed_char
 106    is
 107    begin
 108       return To_LL_VSC (vaddubm (To_LL_VSC (A), To_LL_VSC (B)));
 109    end vec_add;
 110
 111    function vec_add
 112      (A : vector_signed_char;
 113       B : vector_signed_char) return vector_signed_char
 114    is
 115    begin
 116       return To_LL_VSC (vaddubm (To_LL_VSC (A), To_LL_VSC (B)));
 117    end vec_add;
 118
 119    function vec_add
 120      (A : vector_bool_char;
 121       B : vector_unsigned_char) return vector_unsigned_char
 122    is
 123    begin
 124       return To_LL_VUC (vaddubm (To_LL_VSC (A), To_LL_VSC (B)));
 125    end vec_add;
 126
 127    function vec_add
 128      (A : vector_unsigned_char;
 129       B : vector_bool_char) return vector_unsigned_char
 130    is
 131    begin
 132       return To_LL_VUC (vaddubm (To_LL_VSC (A), To_LL_VSC (B)));
 133    end vec_add;
 134
 135    function vec_add
 136      (A : vector_unsigned_char;
 137       B : vector_unsigned_char) return vector_unsigned_char
 138    is
 139    begin
 140       return To_LL_VUC (vaddubm (To_LL_VSC (A), To_LL_VSC (B)));
 141    end vec_add;
 142
 143    function vec_add
 144      (A : vector_bool_short;
 145       B : vector_signed_short) return vector_signed_short
 146    is
 147    begin
 148       return To_LL_VSS (vadduhm (To_LL_VSS (A), To_LL_VSS (B)));
 149    end vec_add;
 150
 151    function vec_add
 152      (A : vector_signed_short;
 153       B : vector_bool_short) return vector_signed_short
 154    is
 155    begin
 156       return To_LL_VSS (vadduhm (To_LL_VSS (A), To_LL_VSS (B)));
 157    end vec_add;
 158
 159    function vec_add
 160      (A : vector_signed_short;
 161       B : vector_signed_short) return vector_signed_short
 162    is
 163    begin
 164       return To_LL_VSS (vadduhm (To_LL_VSS (A), To_LL_VSS (B)));
 165    end vec_add;
 166
 167    function vec_add
 168      (A : vector_bool_short;
 169       B : vector_unsigned_short) return vector_unsigned_short
 170    is
 171    begin
 172       return To_LL_VUS (vadduhm (To_LL_VSS (A), To_LL_VSS (B)));
 173    end vec_add;
 174
 175    function vec_add
 176      (A : vector_unsigned_short;
 177       B : vector_bool_short) return vector_unsigned_short
 178    is
 179    begin
 180       return To_LL_VUS (vadduhm (To_LL_VSS (A), To_LL_VSS (B)));
 181    end vec_add;
 182
 183    function vec_add
 184      (A : vector_unsigned_short;
 185       B : vector_unsigned_short) return vector_unsigned_short
 186    is
 187    begin
 188       return To_LL_VUS (vadduhm (To_LL_VSS (A), To_LL_VSS (B)));
 189    end vec_add;
 190
 191    function vec_add
 192      (A : vector_bool_int;
 193       B : vector_signed_int) return vector_signed_int
 194    is
 195    begin
 196       return To_LL_VSI (vadduwm (To_LL_VSI (A), To_LL_VSI (B)));
 197    end vec_add;
 198
 199    function vec_add
 200      (A : vector_signed_int;
 201       B : vector_bool_int) return vector_signed_int
 202    is
 203    begin
 204       return To_LL_VSI (vadduwm (To_LL_VSI (A), To_LL_VSI (B)));
 205    end vec_add;
 206
 207    function vec_add
 208      (A : vector_signed_int;
 209       B : vector_signed_int) return vector_signed_int
 210    is
 211    begin
 212       return To_LL_VSI (vadduwm (To_LL_VSI (A), To_LL_VSI (B)));
 213    end vec_add;
 214
 215    function vec_add
 216      (A : vector_bool_int;
 217       B : vector_unsigned_int) return vector_unsigned_int
 218    is
 219    begin
 220       return To_LL_VUI (vadduwm (To_LL_VSI (A), To_LL_VSI (B)));
 221    end vec_add;
 222
 223    function vec_add
 224      (A : vector_unsigned_int;
 225       B : vector_bool_int) return vector_unsigned_int
 226    is
 227    begin
 228       return To_LL_VUI (vadduwm (To_LL_VSI (A), To_LL_VSI (B)));
 229    end vec_add;
 230
 231    function vec_add
 232      (A : vector_unsigned_int;
 233       B : vector_unsigned_int) return vector_unsigned_int
 234    is
 235    begin
 236       return To_LL_VUI (vadduwm (To_LL_VSI (A), To_LL_VSI (B)));
 237    end vec_add;
 238
 239    function vec_add
 240      (A : vector_float;
 241       B : vector_float) return vector_float
 242    is
 243    begin
 244       return To_LL_VF  (vaddfp (To_LL_VF  (A), To_LL_VF  (B)));
 245    end vec_add;
 246
 247    -- vec_vaddfp --
 248
 249    function vec_vaddfp
 250      (A : vector_float;
 251       B : vector_float) return vector_float
 252    is
 253    begin
 254       return To_LL_VF  (vaddfp (To_LL_VF  (A), To_LL_VF  (B)));
 255    end vec_vaddfp;
 256
 257    -- vec_vadduwm --
 258
 259    function vec_vadduwm
 260      (A : vector_bool_int;
 261       B : vector_signed_int) return vector_signed_int
 262    is
 263    begin
 264       return To_LL_VSI (vadduwm (To_LL_VSI (A), To_LL_VSI (B)));
 265    end vec_vadduwm;
 266
 267    function vec_vadduwm
 268      (A : vector_signed_int;
 269       B : vector_bool_int) return vector_signed_int
 270    is
 271    begin
 272       return To_LL_VSI (vadduwm (To_LL_VSI (A), To_LL_VSI (B)));
 273    end vec_vadduwm;
 274
 275    function vec_vadduwm
 276      (A : vector_signed_int;
 277       B : vector_signed_int) return vector_signed_int
 278    is
 279    begin
 280       return To_LL_VSI (vadduwm (To_LL_VSI (A), To_LL_VSI (B)));
 281    end vec_vadduwm;
 282
 283    function vec_vadduwm
 284      (A : vector_bool_int;
 285       B : vector_unsigned_int) return vector_unsigned_int
 286    is
 287    begin
 288       return To_LL_VUI (vadduwm (To_LL_VSI (A), To_LL_VSI (B)));
 289    end vec_vadduwm;
 290
 291    function vec_vadduwm
 292      (A : vector_unsigned_int;
 293       B : vector_bool_int) return vector_unsigned_int
 294    is
 295    begin
 296       return To_LL_VUI (vadduwm (To_LL_VSI (A), To_LL_VSI (B)));
 297    end vec_vadduwm;
 298
 299    function vec_vadduwm
 300      (A : vector_unsigned_int;
 301       B : vector_unsigned_int) return vector_unsigned_int
 302    is
 303    begin
 304       return To_LL_VUI (vadduwm (To_LL_VSI (A), To_LL_VSI (B)));
 305    end vec_vadduwm;
 306
 307    -- vec_vadduhm --
 308
 309    function vec_vadduhm
 310      (A : vector_bool_short;
 311       B : vector_signed_short) return vector_signed_short
 312    is
 313    begin
 314       return To_LL_VSS (vadduhm (To_LL_VSS (A), To_LL_VSS (B)));
 315    end vec_vadduhm;
 316
 317    function vec_vadduhm
 318      (A : vector_signed_short;
 319       B : vector_bool_short) return vector_signed_short
 320    is
 321    begin
 322       return To_LL_VSS (vadduhm (To_LL_VSS (A), To_LL_VSS (B)));
 323    end vec_vadduhm;
 324
 325    function vec_vadduhm
 326      (A : vector_signed_short;
 327       B : vector_signed_short) return vector_signed_short
 328    is
 329    begin
 330       return To_LL_VSS (vadduhm (To_LL_VSS (A), To_LL_VSS (B)));
 331    end vec_vadduhm;
 332
 333    function vec_vadduhm
 334      (A : vector_bool_short;
 335       B : vector_unsigned_short) return vector_unsigned_short
 336    is
 337    begin
 338       return To_LL_VUS (vadduhm (To_LL_VSS (A), To_LL_VSS (B)));
 339    end vec_vadduhm;
 340
 341    function vec_vadduhm
 342      (A : vector_unsigned_short;
 343       B : vector_bool_short) return vector_unsigned_short
 344    is
 345    begin
 346       return To_LL_VUS (vadduhm (To_LL_VSS (A), To_LL_VSS (B)));
 347    end vec_vadduhm;
 348
 349    function vec_vadduhm
 350      (A : vector_unsigned_short;
 351       B : vector_unsigned_short) return vector_unsigned_short
 352    is
 353    begin
 354       return To_LL_VUS (vadduhm (To_LL_VSS (A), To_LL_VSS (B)));
 355    end vec_vadduhm;
 356
 357    -- vec_vaddubm --
 358
 359    function vec_vaddubm
 360      (A : vector_bool_char;
 361       B : vector_signed_char) return vector_signed_char
 362    is
 363    begin
 364       return To_LL_VSC (vaddubm (To_LL_VSC (A), To_LL_VSC (B)));
 365    end vec_vaddubm;
 366
 367    function vec_vaddubm
 368      (A : vector_signed_char;
 369       B : vector_bool_char) return vector_signed_char
 370    is
 371    begin
 372       return To_LL_VSC (vaddubm (To_LL_VSC (A), To_LL_VSC (B)));
 373    end vec_vaddubm;
 374
 375    function vec_vaddubm
 376      (A : vector_signed_char;
 377       B : vector_signed_char) return vector_signed_char
 378    is
 379    begin
 380       return To_LL_VSC (vaddubm (To_LL_VSC (A), To_LL_VSC (B)));
 381    end vec_vaddubm;
 382
 383    function vec_vaddubm
 384      (A : vector_bool_char;
 385       B : vector_unsigned_char) return vector_unsigned_char
 386    is
 387    begin
 388       return To_LL_VUC (vaddubm (To_LL_VSC (A), To_LL_VSC (B)));
 389    end vec_vaddubm;
 390
 391    function vec_vaddubm
 392      (A : vector_unsigned_char;
 393       B : vector_bool_char) return vector_unsigned_char
 394    is
 395    begin
 396       return To_LL_VUC (vaddubm (To_LL_VSC (A), To_LL_VSC (B)));
 397    end vec_vaddubm;
 398
 399    function vec_vaddubm
 400      (A : vector_unsigned_char;
 401       B : vector_unsigned_char) return vector_unsigned_char
 402    is
 403    begin
 404       return To_LL_VUC (vaddubm (To_LL_VSC (A), To_LL_VSC (B)));
 405    end vec_vaddubm;
 406
 407    -- vec_addc --
 408
 409    function vec_addc
 410      (A : vector_unsigned_int;
 411       B : vector_unsigned_int) return vector_unsigned_int
 412    is
 413    begin
 414       return To_LL_VUI (vaddcuw (To_LL_VSI (A), To_LL_VSI (B)));
 415    end vec_addc;
 416
 417    -- vec_adds --
 418
 419    function vec_adds
 420      (A : vector_bool_char;
 421       B : vector_unsigned_char) return vector_unsigned_char
 422    is
 423    begin
 424       return To_LL_VUC (vaddubs (To_LL_VSC (A), To_LL_VSC (B)));
 425    end vec_adds;
 426
 427    function vec_adds
 428      (A : vector_unsigned_char;
 429       B : vector_bool_char) return vector_unsigned_char
 430    is
 431    begin
 432       return To_LL_VUC (vaddubs (To_LL_VSC (A), To_LL_VSC (B)));
 433    end vec_adds;
 434
 435    function vec_adds
 436      (A : vector_unsigned_char;
 437       B : vector_unsigned_char) return vector_unsigned_char
 438    is
 439    begin
 440       return To_LL_VUC (vaddubs (To_LL_VSC (A), To_LL_VSC (B)));
 441    end vec_adds;
 442
 443    function vec_adds
 444      (A : vector_bool_char;
 445       B : vector_signed_char) return vector_signed_char
 446    is
 447    begin
 448       return To_LL_VSC (vaddsbs (To_LL_VSC (A), To_LL_VSC (B)));
 449    end vec_adds;
 450
 451    function vec_adds
 452      (A : vector_signed_char;
 453       B : vector_bool_char) return vector_signed_char
 454    is
 455    begin
 456       return To_LL_VSC (vaddsbs (To_LL_VSC (A), To_LL_VSC (B)));
 457    end vec_adds;
 458
 459    function vec_adds
 460      (A : vector_signed_char;
 461       B : vector_signed_char) return vector_signed_char
 462    is
 463    begin
 464       return To_LL_VSC (vaddsbs (To_LL_VSC (A), To_LL_VSC (B)));
 465    end vec_adds;
 466
 467    function vec_adds
 468      (A : vector_bool_short;
 469       B : vector_unsigned_short) return vector_unsigned_short
 470    is
 471    begin
 472       return To_LL_VUS (vadduhs (To_LL_VSS (A), To_LL_VSS (B)));
 473    end vec_adds;
 474
 475    function vec_adds
 476      (A : vector_unsigned_short;
 477       B : vector_bool_short) return vector_unsigned_short
 478    is
 479    begin
 480       return To_LL_VUS (vadduhs (To_LL_VSS (A), To_LL_VSS (B)));
 481    end vec_adds;
 482
 483    function vec_adds
 484      (A : vector_unsigned_short;
 485       B : vector_unsigned_short) return vector_unsigned_short
 486    is
 487    begin
 488       return To_LL_VUS (vadduhs (To_LL_VSS (A), To_LL_VSS (B)));
 489    end vec_adds;
 490
 491    function vec_adds
 492      (A : vector_bool_short;
 493       B : vector_signed_short) return vector_signed_short
 494    is
 495    begin
 496       return To_LL_VSS (vaddshs (To_LL_VSS (A), To_LL_VSS (B)));
 497    end vec_adds;
 498
 499    function vec_adds
 500      (A : vector_signed_short;
 501       B : vector_bool_short) return vector_signed_short
 502    is
 503    begin
 504       return To_LL_VSS (vaddshs (To_LL_VSS (A), To_LL_VSS (B)));
 505    end vec_adds;
 506
 507    function vec_adds
 508      (A : vector_signed_short;
 509       B : vector_signed_short) return vector_signed_short
 510    is
 511    begin
 512       return To_LL_VSS (vaddshs (To_LL_VSS (A), To_LL_VSS (B)));
 513    end vec_adds;
 514
 515    function vec_adds
 516      (A : vector_bool_int;
 517       B : vector_unsigned_int) return vector_unsigned_int
 518    is
 519    begin
 520       return To_LL_VUI (vadduws (To_LL_VSI (A), To_LL_VSI (B)));
 521    end vec_adds;
 522
 523    function vec_adds
 524      (A : vector_unsigned_int;
 525       B : vector_bool_int) return vector_unsigned_int
 526    is
 527    begin
 528       return To_LL_VUI (vadduws (To_LL_VSI (A), To_LL_VSI (B)));
 529    end vec_adds;
 530
 531    function vec_adds
 532      (A : vector_unsigned_int;
 533       B : vector_unsigned_int) return vector_unsigned_int
 534    is
 535    begin
 536       return To_LL_VUI (vadduws (To_LL_VSI (A), To_LL_VSI (B)));
 537    end vec_adds;
 538
 539    function vec_adds
 540      (A : vector_bool_int;
 541       B : vector_signed_int) return vector_signed_int
 542    is
 543    begin
 544       return To_LL_VSI (vaddsws (To_LL_VSI (A), To_LL_VSI (B)));
 545    end vec_adds;
 546
 547    function vec_adds
 548      (A : vector_signed_int;
 549       B : vector_bool_int) return vector_signed_int
 550    is
 551    begin
 552       return To_LL_VSI (vaddsws (To_LL_VSI (A), To_LL_VSI (B)));
 553    end vec_adds;
 554
 555    function vec_adds
 556      (A : vector_signed_int;
 557       B : vector_signed_int) return vector_signed_int
 558    is
 559    begin
 560       return To_LL_VSI (vaddsws (To_LL_VSI (A), To_LL_VSI (B)));
 561    end vec_adds;
 562
 563    -- vec_vaddsws --
 564
 565    function vec_vaddsws
 566      (A : vector_bool_int;
 567       B : vector_signed_int) return vector_signed_int
 568    is
 569    begin
 570       return To_LL_VSI (vaddsws (To_LL_VSI (A), To_LL_VSI (B)));
 571    end vec_vaddsws;
 572
 573    function vec_vaddsws
 574      (A : vector_signed_int;
 575       B : vector_bool_int) return vector_signed_int
 576    is
 577    begin
 578       return To_LL_VSI (vaddsws (To_LL_VSI (A), To_LL_VSI (B)));
 579    end vec_vaddsws;
 580
 581    function vec_vaddsws
 582      (A : vector_signed_int;
 583       B : vector_signed_int) return vector_signed_int
 584    is
 585    begin
 586       return To_LL_VSI (vaddsws (To_LL_VSI (A), To_LL_VSI (B)));
 587    end vec_vaddsws;
 588
 589    -- vec_vadduws --
 590
 591    function vec_vadduws
 592      (A : vector_bool_int;
 593       B : vector_unsigned_int) return vector_unsigned_int
 594    is
 595    begin
 596       return To_LL_VUI (vadduws (To_LL_VSI (A), To_LL_VSI (B)));
 597    end vec_vadduws;
 598
 599    function vec_vadduws
 600      (A : vector_unsigned_int;
 601       B : vector_bool_int) return vector_unsigned_int
 602    is
 603    begin
 604       return To_LL_VUI (vadduws (To_LL_VSI (A), To_LL_VSI (B)));
 605    end vec_vadduws;
 606
 607    function vec_vadduws
 608      (A : vector_unsigned_int;
 609       B : vector_unsigned_int) return vector_unsigned_int
 610    is
 611    begin
 612       return To_LL_VUI (vadduws (To_LL_VSI (A), To_LL_VSI (B)));
 613    end vec_vadduws;
 614
 615    -- vec_vaddshs --
 616
 617    function vec_vaddshs
 618      (A : vector_bool_short;
 619       B : vector_signed_short) return vector_signed_short
 620    is
 621    begin
 622       return To_LL_VSS (vaddshs (To_LL_VSS (A), To_LL_VSS (B)));
 623    end vec_vaddshs;
 624
 625    function vec_vaddshs
 626      (A : vector_signed_short;
 627       B : vector_bool_short) return vector_signed_short
 628    is
 629    begin
 630       return To_LL_VSS (vaddshs (To_LL_VSS (A), To_LL_VSS (B)));
 631    end vec_vaddshs;
 632
 633    function vec_vaddshs
 634      (A : vector_signed_short;
 635       B : vector_signed_short) return vector_signed_short
 636    is
 637    begin
 638       return To_LL_VSS (vaddshs (To_LL_VSS (A), To_LL_VSS (B)));
 639    end vec_vaddshs;
 640
 641    -- vec_vadduhs --
 642
 643    function vec_vadduhs
 644      (A : vector_bool_short;
 645       B : vector_unsigned_short) return vector_unsigned_short
 646    is
 647    begin
 648       return To_LL_VUS (vadduhs (To_LL_VSS (A), To_LL_VSS (B)));
 649    end vec_vadduhs;
 650
 651    function vec_vadduhs
 652      (A : vector_unsigned_short;
 653       B : vector_bool_short) return vector_unsigned_short
 654    is
 655    begin
 656       return To_LL_VUS (vadduhs (To_LL_VSS (A), To_LL_VSS (B)));
 657    end vec_vadduhs;
 658
 659    function vec_vadduhs
 660      (A : vector_unsigned_short;
 661       B : vector_unsigned_short) return vector_unsigned_short
 662    is
 663    begin
 664       return To_LL_VUS (vadduhs (To_LL_VSS (A), To_LL_VSS (B)));
 665    end vec_vadduhs;
 666
 667    -- vec_vaddsbs --
 668
 669    function vec_vaddsbs
 670      (A : vector_bool_char;
 671       B : vector_signed_char) return vector_signed_char
 672    is
 673    begin
 674       return To_LL_VSC (vaddsbs (To_LL_VSC (A), To_LL_VSC (B)));
 675    end vec_vaddsbs;
 676
 677    function vec_vaddsbs
 678      (A : vector_signed_char;
 679       B : vector_bool_char) return vector_signed_char
 680    is
 681    begin
 682       return To_LL_VSC (vaddsbs (To_LL_VSC (A), To_LL_VSC (B)));
 683    end vec_vaddsbs;
 684
 685    function vec_vaddsbs
 686      (A : vector_signed_char;
 687       B : vector_signed_char) return vector_signed_char
 688    is
 689    begin
 690       return To_LL_VSC (vaddsbs (To_LL_VSC (A), To_LL_VSC (B)));
 691    end vec_vaddsbs;
 692
 693    -- vec_vaddubs --
 694
 695    function vec_vaddubs
 696      (A : vector_bool_char;
 697       B : vector_unsigned_char) return vector_unsigned_char
 698    is
 699    begin
 700       return To_LL_VUC (vaddubs (To_LL_VSC (A), To_LL_VSC (B)));
 701    end vec_vaddubs;
 702
 703    function vec_vaddubs
 704      (A : vector_unsigned_char;
 705       B : vector_bool_char) return vector_unsigned_char
 706    is
 707    begin
 708       return To_LL_VUC (vaddubs (To_LL_VSC (A), To_LL_VSC (B)));
 709    end vec_vaddubs;
 710
 711    function vec_vaddubs
 712      (A : vector_unsigned_char;
 713       B : vector_unsigned_char) return vector_unsigned_char
 714    is
 715    begin
 716       return To_LL_VUC (vaddubs (To_LL_VSC (A), To_LL_VSC (B)));
 717    end vec_vaddubs;
 718
 719    -- vec_and --
 720
 721    function vec_and
 722      (A : vector_float;
 723       B : vector_float) return vector_float
 724    is
 725    begin
 726       return To_LL_VF  (vand (To_LL_VSI (A), To_LL_VSI (B)));
 727    end vec_and;
 728
 729    function vec_and
 730      (A : vector_float;
 731       B : vector_bool_int) return vector_float
 732    is
 733    begin
 734       return To_LL_VF  (vand (To_LL_VSI (A), To_LL_VSI (B)));
 735    end vec_and;
 736
 737    function vec_and
 738      (A : vector_bool_int;
 739       B : vector_float) return vector_float
 740    is
 741    begin
 742       return To_LL_VF  (vand (To_LL_VSI (A), To_LL_VSI (B)));
 743    end vec_and;
 744
 745    function vec_and
 746      (A : vector_bool_int;
 747       B : vector_bool_int) return vector_bool_int
 748    is
 749    begin
 750       return To_LL_VBI (vand (To_LL_VSI (A), To_LL_VSI (B)));
 751    end vec_and;
 752
 753    function vec_and
 754      (A : vector_bool_int;
 755       B : vector_signed_int) return vector_signed_int
 756    is
 757    begin
 758       return To_LL_VSI (vand (To_LL_VSI (A), To_LL_VSI (B)));
 759    end vec_and;
 760
 761    function vec_and
 762      (A : vector_signed_int;
 763       B : vector_bool_int) return vector_signed_int
 764    is
 765    begin
 766       return To_LL_VSI (vand (To_LL_VSI (A), To_LL_VSI (B)));
 767    end vec_and;
 768
 769    function vec_and
 770      (A : vector_signed_int;
 771       B : vector_signed_int) return vector_signed_int
 772    is
 773    begin
 774       return To_LL_VSI (vand (To_LL_VSI (A), To_LL_VSI (B)));
 775    end vec_and;
 776
 777    function vec_and
 778      (A : vector_bool_int;
 779       B : vector_unsigned_int) return vector_unsigned_int
 780    is
 781    begin
 782       return To_LL_VUI (vand (To_LL_VSI (A), To_LL_VSI (B)));
 783    end vec_and;
 784
 785    function vec_and
 786      (A : vector_unsigned_int;
 787       B : vector_bool_int) return vector_unsigned_int
 788    is
 789    begin
 790       return To_LL_VUI (vand (To_LL_VSI (A), To_LL_VSI (B)));
 791    end vec_and;
 792
 793    function vec_and
 794      (A : vector_unsigned_int;
 795       B : vector_unsigned_int) return vector_unsigned_int
 796    is
 797    begin
 798       return To_LL_VUI (vand (To_LL_VSI (A), To_LL_VSI (B)));
 799    end vec_and;
 800
 801    function vec_and
 802      (A : vector_bool_short;
 803       B : vector_bool_short) return vector_bool_short
 804    is
 805    begin
 806       return To_LL_VBS (vand (To_LL_VSI (A), To_LL_VSI (B)));
 807    end vec_and;
 808
 809    function vec_and
 810      (A : vector_bool_short;
 811       B : vector_signed_short) return vector_signed_short
 812    is
 813    begin
 814       return To_LL_VSS (vand (To_LL_VSI (A), To_LL_VSI (B)));
 815    end vec_and;
 816
 817    function vec_and
 818      (A : vector_signed_short;
 819       B : vector_bool_short) return vector_signed_short
 820    is
 821    begin
 822       return To_LL_VSS (vand (To_LL_VSI (A), To_LL_VSI (B)));
 823    end vec_and;
 824
 825    function vec_and
 826      (A : vector_signed_short;
 827       B : vector_signed_short) return vector_signed_short
 828    is
 829    begin
 830       return To_LL_VSS (vand (To_LL_VSI (A), To_LL_VSI (B)));
 831    end vec_and;
 832
 833    function vec_and
 834      (A : vector_bool_short;
 835       B : vector_unsigned_short) return vector_unsigned_short
 836    is
 837    begin
 838       return To_LL_VUS (vand (To_LL_VSI (A), To_LL_VSI (B)));
 839    end vec_and;
 840
 841    function vec_and
 842      (A : vector_unsigned_short;
 843       B : vector_bool_short) return vector_unsigned_short
 844    is
 845    begin
 846       return To_LL_VUS (vand (To_LL_VSI (A), To_LL_VSI (B)));
 847    end vec_and;
 848
 849    function vec_and
 850      (A : vector_unsigned_short;
 851       B : vector_unsigned_short) return vector_unsigned_short
 852    is
 853    begin
 854       return To_LL_VUS (vand (To_LL_VSI (A), To_LL_VSI (B)));
 855    end vec_and;
 856
 857    function vec_and
 858      (A : vector_bool_char;
 859       B : vector_signed_char) return vector_signed_char
 860    is
 861    begin
 862       return To_LL_VSC (vand (To_LL_VSI (A), To_LL_VSI (B)));
 863    end vec_and;
 864
 865    function vec_and
 866      (A : vector_bool_char;
 867       B : vector_bool_char) return vector_bool_char
 868    is
 869    begin
 870       return To_LL_VBC (vand (To_LL_VSI (A), To_LL_VSI (B)));
 871    end vec_and;
 872
 873    function vec_and
 874      (A : vector_signed_char;
 875       B : vector_bool_char) return vector_signed_char
 876    is
 877    begin
 878       return To_LL_VSC (vand (To_LL_VSI (A), To_LL_VSI (B)));
 879    end vec_and;
 880
 881    function vec_and
 882      (A : vector_signed_char;
 883       B : vector_signed_char) return vector_signed_char
 884    is
 885    begin
 886       return To_LL_VSC (vand (To_LL_VSI (A), To_LL_VSI (B)));
 887    end vec_and;
 888
 889    function vec_and
 890      (A : vector_bool_char;
 891       B : vector_unsigned_char) return vector_unsigned_char
 892    is
 893    begin
 894       return To_LL_VUC (vand (To_LL_VSI (A), To_LL_VSI (B)));
 895    end vec_and;
 896
 897    function vec_and
 898      (A : vector_unsigned_char;
 899       B : vector_bool_char) return vector_unsigned_char
 900    is
 901    begin
 902       return To_LL_VUC (vand (To_LL_VSI (A), To_LL_VSI (B)));
 903    end vec_and;
 904
 905    function vec_and
 906      (A : vector_unsigned_char;
 907       B : vector_unsigned_char) return vector_unsigned_char
 908    is
 909    begin
 910       return To_LL_VUC (vand (To_LL_VSI (A), To_LL_VSI (B)));
 911    end vec_and;
 912
 913    -- vec_andc --
 914
 915    function vec_andc
 916      (A : vector_float;
 917       B : vector_float) return vector_float
 918    is
 919    begin
 920       return To_LL_VF  (vandc (To_LL_VSI (A), To_LL_VSI (B)));
 921    end vec_andc;
 922
 923    function vec_andc
 924      (A : vector_float;
 925       B : vector_bool_int) return vector_float
 926    is
 927    begin
 928       return To_LL_VF  (vandc (To_LL_VSI (A), To_LL_VSI (B)));
 929    end vec_andc;
 930
 931    function vec_andc
 932      (A : vector_bool_int;
 933       B : vector_float) return vector_float
 934    is
 935    begin
 936       return To_LL_VF  (vandc (To_LL_VSI (A), To_LL_VSI (B)));
 937    end vec_andc;
 938
 939    function vec_andc
 940      (A : vector_bool_int;
 941       B : vector_bool_int) return vector_bool_int
 942    is
 943    begin
 944       return To_LL_VBI (vandc (To_LL_VSI (A), To_LL_VSI (B)));
 945    end vec_andc;
 946
 947    function vec_andc
 948      (A : vector_bool_int;
 949       B : vector_signed_int) return vector_signed_int
 950    is
 951    begin
 952       return To_LL_VSI (vandc (To_LL_VSI (A), To_LL_VSI (B)));
 953    end vec_andc;
 954
 955    function vec_andc
 956      (A : vector_signed_int;
 957       B : vector_bool_int) return vector_signed_int
 958    is
 959    begin
 960       return To_LL_VSI (vandc (To_LL_VSI (A), To_LL_VSI (B)));
 961    end vec_andc;
 962
 963    function vec_andc
 964      (A : vector_signed_int;
 965       B : vector_signed_int) return vector_signed_int
 966    is
 967    begin
 968       return To_LL_VSI (vandc (To_LL_VSI (A), To_LL_VSI (B)));
 969    end vec_andc;
 970
 971    function vec_andc
 972      (A : vector_bool_int;
 973       B : vector_unsigned_int) return vector_unsigned_int
 974    is
 975    begin
 976       return To_LL_VUI (vandc (To_LL_VSI (A), To_LL_VSI (B)));
 977    end vec_andc;
 978
 979    function vec_andc
 980      (A : vector_unsigned_int;
 981       B : vector_bool_int) return vector_unsigned_int
 982    is
 983    begin
 984       return To_LL_VUI (vandc (To_LL_VSI (A), To_LL_VSI (B)));
 985    end vec_andc;
 986
 987    function vec_andc
 988      (A : vector_unsigned_int;
 989       B : vector_unsigned_int) return vector_unsigned_int
 990    is
 991    begin
 992       return To_LL_VUI (vandc (To_LL_VSI (A), To_LL_VSI (B)));
 993    end vec_andc;
 994
 995    function vec_andc
 996      (A : vector_bool_short;
 997       B : vector_bool_short) return vector_bool_short
 998    is
 999    begin
1000       return To_LL_VBS (vandc (To_LL_VSI (A), To_LL_VSI (B)));
1001    end vec_andc;
1002
1003    function vec_andc
1004      (A : vector_bool_short;
1005       B : vector_signed_short) return vector_signed_short
1006    is
1007    begin
1008       return To_LL_VSS (vandc (To_LL_VSI (A), To_LL_VSI (B)));
1009    end vec_andc;
1010
1011    function vec_andc
1012      (A : vector_signed_short;
1013       B : vector_bool_short) return vector_signed_short
1014    is
1015    begin
1016       return To_LL_VSS (vandc (To_LL_VSI (A), To_LL_VSI (B)));
1017    end vec_andc;
1018
1019    function vec_andc
1020      (A : vector_signed_short;
1021       B : vector_signed_short) return vector_signed_short
1022    is
1023    begin
1024       return To_LL_VSS (vandc (To_LL_VSI (A), To_LL_VSI (B)));
1025    end vec_andc;
1026
1027    function vec_andc
1028      (A : vector_bool_short;
1029       B : vector_unsigned_short) return vector_unsigned_short
1030    is
1031    begin
1032       return To_LL_VUS (vandc (To_LL_VSI (A), To_LL_VSI (B)));
1033    end vec_andc;
1034
1035    function vec_andc
1036      (A : vector_unsigned_short;
1037       B : vector_bool_short) return vector_unsigned_short
1038    is
1039    begin
1040       return To_LL_VUS (vandc (To_LL_VSI (A), To_LL_VSI (B)));
1041    end vec_andc;
1042
1043    function vec_andc
1044      (A : vector_unsigned_short;
1045       B : vector_unsigned_short) return vector_unsigned_short
1046    is
1047    begin
1048       return To_LL_VUS (vandc (To_LL_VSI (A), To_LL_VSI (B)));
1049    end vec_andc;
1050
1051    function vec_andc
1052      (A : vector_bool_char;
1053       B : vector_signed_char) return vector_signed_char
1054    is
1055    begin
1056       return To_LL_VSC (vandc (To_LL_VSI (A), To_LL_VSI (B)));
1057    end vec_andc;
1058
1059    function vec_andc
1060      (A : vector_bool_char;
1061       B : vector_bool_char) return vector_bool_char
1062    is
1063    begin
1064       return To_LL_VBC (vandc (To_LL_VSI (A), To_LL_VSI (B)));
1065    end vec_andc;
1066
1067    function vec_andc
1068      (A : vector_signed_char;
1069       B : vector_bool_char) return vector_signed_char
1070    is
1071    begin
1072       return To_LL_VSC (vandc (To_LL_VSI (A), To_LL_VSI (B)));
1073    end vec_andc;
1074
1075    function vec_andc
1076      (A : vector_signed_char;
1077       B : vector_signed_char) return vector_signed_char
1078    is
1079    begin
1080       return To_LL_VSC (vandc (To_LL_VSI (A), To_LL_VSI (B)));
1081    end vec_andc;
1082
1083    function vec_andc
1084      (A : vector_bool_char;
1085       B : vector_unsigned_char) return vector_unsigned_char
1086    is
1087    begin
1088       return To_LL_VUC (vandc (To_LL_VSI (A), To_LL_VSI (B)));
1089    end vec_andc;
1090
1091    function vec_andc
1092      (A : vector_unsigned_char;
1093       B : vector_bool_char) return vector_unsigned_char
1094    is
1095    begin
1096       return To_LL_VUC (vandc (To_LL_VSI (A), To_LL_VSI (B)));
1097    end vec_andc;
1098
1099    function vec_andc
1100      (A : vector_unsigned_char;
1101       B : vector_unsigned_char) return vector_unsigned_char
1102    is
1103    begin
1104       return To_LL_VUC (vandc (To_LL_VSI (A), To_LL_VSI (B)));
1105    end vec_andc;
1106
1107    -- vec_avg --
1108
1109    function vec_avg
1110      (A : vector_unsigned_char;
1111       B : vector_unsigned_char) return vector_unsigned_char
1112    is
1113    begin
1114       return To_LL_VUC (vavgub (To_LL_VSC (A), To_LL_VSC (B)));
1115    end vec_avg;
1116
1117    function vec_avg
1118      (A : vector_signed_char;
1119       B : vector_signed_char) return vector_signed_char
1120    is
1121    begin
1122       return To_LL_VSC (vavgsb (To_LL_VSC (A), To_LL_VSC (B)));
1123    end vec_avg;
1124
1125    function vec_avg
1126      (A : vector_unsigned_short;
1127       B : vector_unsigned_short) return vector_unsigned_short
1128    is
1129    begin
1130       return To_LL_VUS (vavguh (To_LL_VSS (A), To_LL_VSS (B)));
1131    end vec_avg;
1132
1133    function vec_avg
1134      (A : vector_signed_short;
1135       B : vector_signed_short) return vector_signed_short
1136    is
1137    begin
1138       return To_LL_VSS (vavgsh (To_LL_VSS (A), To_LL_VSS (B)));
1139    end vec_avg;
1140
1141    function vec_avg
1142      (A : vector_unsigned_int;
1143       B : vector_unsigned_int) return vector_unsigned_int
1144    is
1145    begin
1146       return To_LL_VUI (vavguw (To_LL_VSI (A), To_LL_VSI (B)));
1147    end vec_avg;
1148
1149    function vec_avg
1150      (A : vector_signed_int;
1151       B : vector_signed_int) return vector_signed_int
1152    is
1153    begin
1154       return To_LL_VSI (vavgsw (To_LL_VSI (A), To_LL_VSI (B)));
1155    end vec_avg;
1156
1157    -- vec_vavgsw --
1158
1159    function vec_vavgsw
1160      (A : vector_signed_int;
1161       B : vector_signed_int) return vector_signed_int
1162    is
1163    begin
1164       return To_LL_VSI (vavgsw (To_LL_VSI (A), To_LL_VSI (B)));
1165    end vec_vavgsw;
1166
1167    -- vec_vavguw --
1168
1169    function vec_vavguw
1170      (A : vector_unsigned_int;
1171       B : vector_unsigned_int) return vector_unsigned_int
1172    is
1173    begin
1174       return To_LL_VUI (vavguw (To_LL_VSI (A), To_LL_VSI (B)));
1175    end vec_vavguw;
1176
1177    -- vec_vavgsh --
1178
1179    function vec_vavgsh
1180      (A : vector_signed_short;
1181       B : vector_signed_short) return vector_signed_short
1182    is
1183    begin
1184       return To_LL_VSS (vavgsh (To_LL_VSS (A), To_LL_VSS (B)));
1185    end vec_vavgsh;
1186
1187    -- vec_vavguh --
1188
1189    function vec_vavguh
1190      (A : vector_unsigned_short;
1191       B : vector_unsigned_short) return vector_unsigned_short
1192    is
1193    begin
1194       return To_LL_VUS (vavguh (To_LL_VSS (A), To_LL_VSS (B)));
1195    end vec_vavguh;
1196
1197    -- vec_vavgsb --
1198
1199    function vec_vavgsb
1200      (A : vector_signed_char;
1201       B : vector_signed_char) return vector_signed_char
1202    is
1203    begin
1204       return To_LL_VSC (vavgsb (To_LL_VSC (A), To_LL_VSC (B)));
1205    end vec_vavgsb;
1206
1207    -- vec_vavgub --
1208
1209    function vec_vavgub
1210      (A : vector_unsigned_char;
1211       B : vector_unsigned_char) return vector_unsigned_char
1212    is
1213    begin
1214       return To_LL_VUC (vavgub (To_LL_VSC (A), To_LL_VSC (B)));
1215    end vec_vavgub;
1216
1217    -- vec_ceil --
1218
1219    function vec_ceil
1220      (A : vector_float) return vector_float
1221    is
1222    begin
1223       return To_LL_VF  (vrfip (To_LL_VF  (A)));
1224    end vec_ceil;
1225
1226    -- vec_cmpb --
1227
1228    function vec_cmpb
1229      (A : vector_float;
1230       B : vector_float) return vector_signed_int
1231    is
1232    begin
1233       return To_LL_VSI (vcmpbfp (To_LL_VF  (A), To_LL_VF  (B)));
1234    end vec_cmpb;
1235
1236    -- vec_cmpeq --
1237
1238    function vec_cmpeq
1239      (A : vector_signed_char;
1240       B : vector_signed_char) return vector_bool_char
1241    is
1242    begin
1243       return To_LL_VBC (vcmpequb (To_LL_VSC (A), To_LL_VSC (B)));
1244    end vec_cmpeq;
1245
1246    function vec_cmpeq
1247      (A : vector_unsigned_char;
1248       B : vector_unsigned_char) return vector_bool_char
1249    is
1250    begin
1251       return To_LL_VBC (vcmpequb (To_LL_VSC (A), To_LL_VSC (B)));
1252    end vec_cmpeq;
1253
1254    function vec_cmpeq
1255      (A : vector_signed_short;
1256       B : vector_signed_short) return vector_bool_short
1257    is
1258    begin
1259       return To_LL_VBS (vcmpequh (To_LL_VSS (A), To_LL_VSS (B)));
1260    end vec_cmpeq;
1261
1262    function vec_cmpeq
1263      (A : vector_unsigned_short;
1264       B : vector_unsigned_short) return vector_bool_short
1265    is
1266    begin
1267       return To_LL_VBS (vcmpequh (To_LL_VSS (A), To_LL_VSS (B)));
1268    end vec_cmpeq;
1269
1270    function vec_cmpeq
1271      (A : vector_signed_int;
1272       B : vector_signed_int) return vector_bool_int
1273    is
1274    begin
1275       return To_LL_VBI (vcmpequw (To_LL_VSI (A), To_LL_VSI (B)));
1276    end vec_cmpeq;
1277
1278    function vec_cmpeq
1279      (A : vector_unsigned_int;
1280       B : vector_unsigned_int) return vector_bool_int
1281    is
1282    begin
1283       return To_LL_VBI (vcmpequw (To_LL_VSI (A), To_LL_VSI (B)));
1284    end vec_cmpeq;
1285
1286    function vec_cmpeq
1287      (A : vector_float;
1288       B : vector_float) return vector_bool_int
1289    is
1290    begin
1291       return To_LL_VBI (vcmpeqfp (To_LL_VF  (A), To_LL_VF  (B)));
1292    end vec_cmpeq;
1293
1294    -- vec_vcmpeqfp --
1295
1296    function vec_vcmpeqfp
1297      (A : vector_float;
1298       B : vector_float) return vector_bool_int
1299    is
1300    begin
1301       return To_LL_VBI (vcmpeqfp (To_LL_VF  (A), To_LL_VF  (B)));
1302    end vec_vcmpeqfp;
1303
1304    -- vec_vcmpequw --
1305
1306    function vec_vcmpequw
1307      (A : vector_signed_int;
1308       B : vector_signed_int) return vector_bool_int
1309    is
1310    begin
1311       return To_LL_VBI (vcmpequw (To_LL_VSI (A), To_LL_VSI (B)));
1312    end vec_vcmpequw;
1313
1314    function vec_vcmpequw
1315      (A : vector_unsigned_int;
1316       B : vector_unsigned_int) return vector_bool_int
1317    is
1318    begin
1319       return To_LL_VBI (vcmpequw (To_LL_VSI (A), To_LL_VSI (B)));
1320    end vec_vcmpequw;
1321
1322    -- vec_vcmpequh --
1323
1324    function vec_vcmpequh
1325      (A : vector_signed_short;
1326       B : vector_signed_short) return vector_bool_short
1327    is
1328    begin
1329       return To_LL_VBS (vcmpequh (To_LL_VSS (A), To_LL_VSS (B)));
1330    end vec_vcmpequh;
1331
1332    function vec_vcmpequh
1333      (A : vector_unsigned_short;
1334       B : vector_unsigned_short) return vector_bool_short
1335    is
1336    begin
1337       return To_LL_VBS (vcmpequh (To_LL_VSS (A), To_LL_VSS (B)));
1338    end vec_vcmpequh;
1339
1340    -- vec_vcmpequb --
1341
1342    function vec_vcmpequb
1343      (A : vector_signed_char;
1344       B : vector_signed_char) return vector_bool_char
1345    is
1346    begin
1347       return To_LL_VBC (vcmpequb (To_LL_VSC (A), To_LL_VSC (B)));
1348    end vec_vcmpequb;
1349
1350    function vec_vcmpequb
1351      (A : vector_unsigned_char;
1352       B : vector_unsigned_char) return vector_bool_char
1353    is
1354    begin
1355       return To_LL_VBC (vcmpequb (To_LL_VSC (A), To_LL_VSC (B)));
1356    end vec_vcmpequb;
1357
1358    -- vec_cmpge --
1359
1360    function vec_cmpge
1361      (A : vector_float;
1362       B : vector_float) return vector_bool_int
1363    is
1364    begin
1365       return To_LL_VBI (vcmpgefp (To_LL_VF  (A), To_LL_VF  (B)));
1366    end vec_cmpge;
1367
1368    -- vec_cmpgt --
1369
1370    function vec_cmpgt
1371      (A : vector_unsigned_char;
1372       B : vector_unsigned_char) return vector_bool_char
1373    is
1374    begin
1375       return To_LL_VBC (vcmpgtub (To_LL_VSC (A), To_LL_VSC (B)));
1376    end vec_cmpgt;
1377
1378    function vec_cmpgt
1379      (A : vector_signed_char;
1380       B : vector_signed_char) return vector_bool_char
1381    is
1382    begin
1383       return To_LL_VBC (vcmpgtsb (To_LL_VSC (A), To_LL_VSC (B)));
1384    end vec_cmpgt;
1385
1386    function vec_cmpgt
1387      (A : vector_unsigned_short;
1388       B : vector_unsigned_short) return vector_bool_short
1389    is
1390    begin
1391       return To_LL_VBS (vcmpgtuh (To_LL_VSS (A), To_LL_VSS (B)));
1392    end vec_cmpgt;
1393
1394    function vec_cmpgt
1395      (A : vector_signed_short;
1396       B : vector_signed_short) return vector_bool_short
1397    is
1398    begin
1399       return To_LL_VBS (vcmpgtsh (To_LL_VSS (A), To_LL_VSS (B)));
1400    end vec_cmpgt;
1401
1402    function vec_cmpgt
1403      (A : vector_unsigned_int;
1404       B : vector_unsigned_int) return vector_bool_int
1405    is
1406    begin
1407       return To_LL_VBI (vcmpgtuw (To_LL_VSI (A), To_LL_VSI (B)));
1408    end vec_cmpgt;
1409
1410    function vec_cmpgt
1411      (A : vector_signed_int;
1412       B : vector_signed_int) return vector_bool_int
1413    is
1414    begin
1415       return To_LL_VBI (vcmpgtsw (To_LL_VSI (A), To_LL_VSI (B)));
1416    end vec_cmpgt;
1417
1418    function vec_cmpgt
1419      (A : vector_float;
1420       B : vector_float) return vector_bool_int
1421    is
1422    begin
1423       return To_LL_VBI (vcmpgtfp (To_LL_VF  (A), To_LL_VF  (B)));
1424    end vec_cmpgt;
1425
1426    -- vec_vcmpgtfp --
1427
1428    function vec_vcmpgtfp
1429      (A : vector_float;
1430       B : vector_float) return vector_bool_int
1431    is
1432    begin
1433       return To_LL_VBI (vcmpgtfp (To_LL_VF  (A), To_LL_VF  (B)));
1434    end vec_vcmpgtfp;
1435
1436    -- vec_vcmpgtsw --
1437
1438    function vec_vcmpgtsw
1439      (A : vector_signed_int;
1440       B : vector_signed_int) return vector_bool_int
1441    is
1442    begin
1443       return To_LL_VBI (vcmpgtsw (To_LL_VSI (A), To_LL_VSI (B)));
1444    end vec_vcmpgtsw;
1445
1446    -- vec_vcmpgtuw --
1447
1448    function vec_vcmpgtuw
1449      (A : vector_unsigned_int;
1450       B : vector_unsigned_int) return vector_bool_int
1451    is
1452    begin
1453       return To_LL_VBI (vcmpgtuw (To_LL_VSI (A), To_LL_VSI (B)));
1454    end vec_vcmpgtuw;
1455
1456    -- vec_vcmpgtsh --
1457
1458    function vec_vcmpgtsh
1459      (A : vector_signed_short;
1460       B : vector_signed_short) return vector_bool_short
1461    is
1462    begin
1463       return To_LL_VBS (vcmpgtsh (To_LL_VSS (A), To_LL_VSS (B)));
1464    end vec_vcmpgtsh;
1465
1466    -- vec_vcmpgtuh --
1467
1468    function vec_vcmpgtuh
1469      (A : vector_unsigned_short;
1470       B : vector_unsigned_short) return vector_bool_short
1471    is
1472    begin
1473       return To_LL_VBS (vcmpgtuh (To_LL_VSS (A), To_LL_VSS (B)));
1474    end vec_vcmpgtuh;
1475
1476    -- vec_vcmpgtsb --
1477
1478    function vec_vcmpgtsb
1479      (A : vector_signed_char;
1480       B : vector_signed_char) return vector_bool_char
1481    is
1482    begin
1483       return To_LL_VBC (vcmpgtsb (To_LL_VSC (A), To_LL_VSC (B)));
1484    end vec_vcmpgtsb;
1485
1486    -- vec_vcmpgtub --
1487
1488    function vec_vcmpgtub
1489      (A : vector_unsigned_char;
1490       B : vector_unsigned_char) return vector_bool_char
1491    is
1492    begin
1493       return To_LL_VBC (vcmpgtub (To_LL_VSC (A), To_LL_VSC (B)));
1494    end vec_vcmpgtub;
1495
1496    -- vec_cmple --
1497
1498    function vec_cmple
1499      (A : vector_float;
1500       B : vector_float) return vector_bool_int
1501    is
1502    begin
1503       return To_LL_VBI (vcmpgefp (To_LL_VF  (B), To_LL_VF  (A)));
1504    end vec_cmple;
1505
1506    -- vec_cmplt --
1507
1508    function vec_cmplt
1509      (A : vector_unsigned_char;
1510       B : vector_unsigned_char) return vector_bool_char
1511    is
1512    begin
1513       return To_LL_VBC (vcmpgtub (To_LL_VSC (B), To_LL_VSC (A)));
1514    end vec_cmplt;
1515
1516    function vec_cmplt
1517      (A : vector_signed_char;
1518       B : vector_signed_char) return vector_bool_char
1519    is
1520    begin
1521       return To_LL_VBC (vcmpgtsb (To_LL_VSC (B), To_LL_VSC (A)));
1522    end vec_cmplt;
1523
1524    function vec_cmplt
1525      (A : vector_unsigned_short;
1526       B : vector_unsigned_short) return vector_bool_short
1527    is
1528    begin
1529       return To_LL_VBS (vcmpgtuh (To_LL_VSS (B), To_LL_VSS (A)));
1530    end vec_cmplt;
1531
1532    function vec_cmplt
1533      (A : vector_signed_short;
1534       B : vector_signed_short) return vector_bool_short
1535    is
1536    begin
1537       return To_LL_VBS (vcmpgtsh (To_LL_VSS (B), To_LL_VSS (A)));
1538    end vec_cmplt;
1539
1540    function vec_cmplt
1541      (A : vector_unsigned_int;
1542       B : vector_unsigned_int) return vector_bool_int
1543    is
1544    begin
1545       return To_LL_VBI (vcmpgtuw (To_LL_VSI (B), To_LL_VSI (A)));
1546    end vec_cmplt;
1547
1548    function vec_cmplt
1549      (A : vector_signed_int;
1550       B : vector_signed_int) return vector_bool_int
1551    is
1552    begin
1553       return To_LL_VBI (vcmpgtsw (To_LL_VSI (B), To_LL_VSI (A)));
1554    end vec_cmplt;
1555
1556    function vec_cmplt
1557      (A : vector_float;
1558       B : vector_float) return vector_bool_int
1559    is
1560    begin
1561       return To_LL_VBI (vcmpgtfp (To_LL_VF  (B), To_LL_VF  (A)));
1562    end vec_cmplt;
1563
1564    -- vec_expte --
1565
1566    function vec_expte
1567      (A : vector_float) return vector_float
1568    is
1569    begin
1570       return To_LL_VF (vexptefp (To_LL_VF (A)));
1571    end vec_expte;
1572
1573    -- vec_floor --
1574
1575    function vec_floor
1576      (A : vector_float) return vector_float
1577    is
1578    begin
1579       return To_LL_VF (vrfim (To_LL_VF (A)));
1580    end vec_floor;
1581
1582    -- vec_ld --
1583
1584    function vec_ld
1585      (A : c_long;
1586       B : const_vector_float_ptr) return vector_float
1587    is
1588    begin
1589       return To_LL_VF (lvx (A, To_PTR (B)));
1590    end vec_ld;
1591
1592    function vec_ld
1593      (A : c_long;
1594       B : const_float_ptr) return vector_float
1595    is
1596    begin
1597       return To_LL_VF (lvx (A, To_PTR (B)));
1598    end vec_ld;
1599
1600    function vec_ld
1601      (A : c_long;
1602       B : const_vector_bool_int_ptr) return vector_bool_int
1603    is
1604    begin
1605       return To_LL_VBI (lvx (A, To_PTR (B)));
1606    end vec_ld;
1607
1608    function vec_ld
1609      (A : c_long;
1610       B : const_vector_signed_int_ptr) return vector_signed_int
1611    is
1612    begin
1613       return To_LL_VSI (lvx (A, To_PTR (B)));
1614    end vec_ld;
1615
1616    function vec_ld
1617      (A : c_long;
1618       B : const_int_ptr) return vector_signed_int
1619    is
1620    begin
1621       return To_LL_VSI (lvx (A, To_PTR (B)));
1622    end vec_ld;
1623
1624    function vec_ld
1625      (A : c_long;
1626       B : const_long_ptr) return vector_signed_int
1627    is
1628    begin
1629       return To_LL_VSI (lvx (A, To_PTR (B)));
1630    end vec_ld;
1631
1632    function vec_ld
1633      (A : c_long;
1634       B : const_vector_unsigned_int_ptr) return vector_unsigned_int
1635    is
1636    begin
1637       return To_LL_VUI (lvx (A, To_PTR (B)));
1638    end vec_ld;
1639
1640    function vec_ld
1641      (A : c_long;
1642       B : const_unsigned_int_ptr) return vector_unsigned_int
1643    is
1644    begin
1645       return To_LL_VUI (lvx (A, To_PTR (B)));
1646    end vec_ld;
1647
1648    function vec_ld
1649      (A : c_long;
1650       B : const_unsigned_long_ptr) return vector_unsigned_int
1651    is
1652    begin
1653       return To_LL_VUI (lvx (A, To_PTR (B)));
1654    end vec_ld;
1655
1656    function vec_ld
1657      (A : c_long;
1658       B : const_vector_bool_short_ptr) return vector_bool_short
1659    is
1660    begin
1661       return To_LL_VBS (lvx (A, To_PTR (B)));
1662    end vec_ld;
1663
1664    function vec_ld
1665      (A : c_long;
1666       B : const_vector_pixel_ptr) return vector_pixel
1667    is
1668    begin
1669       return To_LL_VP (lvx (A, To_PTR (B)));
1670    end vec_ld;
1671
1672    function vec_ld
1673      (A : c_long;
1674       B : const_vector_signed_short_ptr) return vector_signed_short
1675    is
1676    begin
1677       return To_LL_VSS (lvx (A, To_PTR (B)));
1678    end vec_ld;
1679
1680    function vec_ld
1681      (A : c_long;
1682       B : const_short_ptr) return vector_signed_short
1683    is
1684    begin
1685       return To_LL_VSS (lvx (A, To_PTR (B)));
1686    end vec_ld;
1687
1688    function vec_ld
1689      (A : c_long;
1690       B : const_vector_unsigned_short_ptr) return vector_unsigned_short
1691    is
1692    begin
1693       return To_LL_VUS (lvx (A, To_PTR (B)));
1694    end vec_ld;
1695
1696    function vec_ld
1697      (A : c_long;
1698       B : const_unsigned_short_ptr) return vector_unsigned_short
1699    is
1700    begin
1701       return To_LL_VUS (lvx (A, To_PTR (B)));
1702    end vec_ld;
1703
1704    function vec_ld
1705      (A : c_long;
1706       B : const_vector_bool_char_ptr) return vector_bool_char
1707    is
1708    begin
1709       return To_LL_VBC (lvx (A, To_PTR (B)));
1710    end vec_ld;
1711
1712    function vec_ld
1713      (A : c_long;
1714       B : const_vector_signed_char_ptr) return vector_signed_char
1715    is
1716    begin
1717       return To_LL_VSC (lvx (A, To_PTR (B)));
1718    end vec_ld;
1719
1720    function vec_ld
1721      (A : c_long;
1722       B : const_signed_char_ptr) return vector_signed_char
1723    is
1724    begin
1725       return To_LL_VSC (lvx (A, To_PTR (B)));
1726    end vec_ld;
1727
1728    function vec_ld
1729      (A : c_long;
1730       B : const_vector_unsigned_char_ptr) return vector_unsigned_char
1731    is
1732    begin
1733       return To_LL_VUC (lvx (A, To_PTR (B)));
1734    end vec_ld;
1735
1736    function vec_ld
1737      (A : c_long;
1738       B : const_unsigned_char_ptr) return vector_unsigned_char
1739    is
1740    begin
1741       return To_LL_VUC (lvx (A, To_PTR (B)));
1742    end vec_ld;
1743
1744    -- vec_lde --
1745
1746    function vec_lde
1747      (A : c_long;
1748       B : const_signed_char_ptr) return vector_signed_char
1749    is
1750    begin
1751       return To_LL_VSC (lvebx (A, To_PTR (B)));
1752    end vec_lde;
1753
1754    function vec_lde
1755      (A : c_long;
1756       B : const_unsigned_char_ptr) return vector_unsigned_char
1757    is
1758    begin
1759       return To_LL_VUC (lvebx (A, To_PTR (B)));
1760    end vec_lde;
1761
1762    function vec_lde
1763      (A : c_long;
1764       B : const_short_ptr) return vector_signed_short
1765    is
1766    begin
1767       return To_LL_VSS (lvehx (A, To_PTR (B)));
1768    end vec_lde;
1769
1770    function vec_lde
1771      (A : c_long;
1772       B : const_unsigned_short_ptr) return vector_unsigned_short
1773    is
1774    begin
1775       return To_LL_VUS (lvehx (A, To_PTR (B)));
1776    end vec_lde;
1777
1778    function vec_lde
1779      (A : c_long;
1780       B : const_float_ptr) return vector_float
1781    is
1782    begin
1783       return To_LL_VF (lvewx (A, To_PTR (B)));
1784    end vec_lde;
1785
1786    function vec_lde
1787      (A : c_long;
1788       B : const_int_ptr) return vector_signed_int
1789    is
1790    begin
1791       return To_LL_VSI (lvewx (A, To_PTR (B)));
1792    end vec_lde;
1793
1794    function vec_lde
1795      (A : c_long;
1796       B : const_unsigned_int_ptr) return vector_unsigned_int
1797    is
1798    begin
1799       return To_LL_VUI (lvewx (A, To_PTR (B)));
1800    end vec_lde;
1801
1802    function vec_lde
1803      (A : c_long;
1804       B : const_long_ptr) return vector_signed_int
1805    is
1806    begin
1807       return To_LL_VSI (lvewx (A, To_PTR (B)));
1808    end vec_lde;
1809
1810    function vec_lde
1811      (A : c_long;
1812       B : const_unsigned_long_ptr) return vector_unsigned_int
1813    is
1814    begin
1815       return To_LL_VUI (lvewx (A, To_PTR (B)));
1816    end vec_lde;
1817
1818    -- vec_lvewx --
1819
1820    function vec_lvewx
1821      (A : c_long;
1822       B : float_ptr) return vector_float
1823    is
1824    begin
1825       return To_LL_VF (lvewx (A, To_PTR (B)));
1826    end vec_lvewx;
1827
1828    function vec_lvewx
1829      (A : c_long;
1830       B : int_ptr) return vector_signed_int
1831    is
1832    begin
1833       return To_LL_VSI (lvewx (A, To_PTR (B)));
1834    end vec_lvewx;
1835
1836    function vec_lvewx
1837      (A : c_long;
1838       B : unsigned_int_ptr) return vector_unsigned_int
1839    is
1840    begin
1841       return To_LL_VUI (lvewx (A, To_PTR (B)));
1842    end vec_lvewx;
1843
1844    function vec_lvewx
1845      (A : c_long;
1846       B : long_ptr) return vector_signed_int
1847    is
1848    begin
1849       return To_LL_VSI (lvewx (A, To_PTR (B)));
1850    end vec_lvewx;
1851
1852    function vec_lvewx
1853      (A : c_long;
1854       B : unsigned_long_ptr) return vector_unsigned_int
1855    is
1856    begin
1857       return To_LL_VUI (lvewx (A, To_PTR (B)));
1858    end vec_lvewx;
1859
1860    -- vec_lvehx --
1861
1862    function vec_lvehx
1863      (A : c_long;
1864       B : short_ptr) return vector_signed_short
1865    is
1866    begin
1867       return To_LL_VSS (lvehx (A, To_PTR (B)));
1868    end vec_lvehx;
1869
1870    function vec_lvehx
1871      (A : c_long;
1872       B : unsigned_short_ptr) return vector_unsigned_short
1873    is
1874    begin
1875       return To_LL_VUS (lvehx (A, To_PTR (B)));
1876    end vec_lvehx;
1877
1878    -- vec_lvebx --
1879
1880    function vec_lvebx
1881      (A : c_long;
1882       B : signed_char_ptr) return vector_signed_char
1883    is
1884    begin
1885       return To_LL_VSC (lvebx (A, To_PTR (B)));
1886    end vec_lvebx;
1887
1888    function vec_lvebx
1889      (A : c_long;
1890       B : unsigned_char_ptr) return vector_unsigned_char
1891    is
1892    begin
1893       return To_LL_VUC (lvebx (A, To_PTR (B)));
1894    end vec_lvebx;
1895
1896    -- vec_ldl --
1897
1898    function vec_ldl
1899      (A : c_long;
1900       B : const_vector_float_ptr) return vector_float
1901    is
1902    begin
1903       return To_LL_VF (lvxl (A, To_PTR (B)));
1904    end vec_ldl;
1905
1906    function vec_ldl
1907      (A : c_long;
1908       B : const_float_ptr) return vector_float
1909    is
1910    begin
1911       return To_LL_VF (lvxl (A, To_PTR (B)));
1912    end vec_ldl;
1913
1914    function vec_ldl
1915      (A : c_long;
1916       B : const_vector_bool_int_ptr) return vector_bool_int
1917    is
1918    begin
1919       return To_LL_VBI (lvxl (A, To_PTR (B)));
1920    end vec_ldl;
1921
1922    function vec_ldl
1923      (A : c_long;
1924       B : const_vector_signed_int_ptr) return vector_signed_int
1925    is
1926    begin
1927       return To_LL_VSI (lvxl (A, To_PTR (B)));
1928    end vec_ldl;
1929
1930    function vec_ldl
1931      (A : c_long;
1932       B : const_int_ptr) return vector_signed_int
1933    is
1934    begin
1935       return To_LL_VSI (lvxl (A, To_PTR (B)));
1936    end vec_ldl;
1937
1938    function vec_ldl
1939      (A : c_long;
1940       B : const_long_ptr) return vector_signed_int
1941    is
1942    begin
1943       return To_LL_VSI (lvxl (A, To_PTR (B)));
1944    end vec_ldl;
1945
1946    function vec_ldl
1947      (A : c_long;
1948       B : const_vector_unsigned_int_ptr) return vector_unsigned_int
1949    is
1950    begin
1951       return To_LL_VUI (lvxl (A, To_PTR (B)));
1952    end vec_ldl;
1953
1954    function vec_ldl
1955      (A : c_long;
1956       B : const_unsigned_int_ptr) return vector_unsigned_int
1957    is
1958    begin
1959       return To_LL_VUI (lvxl (A, To_PTR (B)));
1960    end vec_ldl;
1961
1962    function vec_ldl
1963      (A : c_long;
1964       B : const_unsigned_long_ptr) return vector_unsigned_int
1965    is
1966    begin
1967       return To_LL_VUI (lvxl (A, To_PTR (B)));
1968    end vec_ldl;
1969
1970    function vec_ldl
1971      (A : c_long;
1972       B : const_vector_bool_short_ptr) return vector_bool_short
1973    is
1974    begin
1975       return To_LL_VBS (lvxl (A, To_PTR (B)));
1976    end vec_ldl;
1977
1978    function vec_ldl
1979      (A : c_long;
1980       B : const_vector_pixel_ptr) return vector_pixel
1981    is
1982    begin
1983       return To_LL_VP (lvxl (A, To_PTR (B)));
1984    end vec_ldl;
1985
1986    function vec_ldl
1987      (A : c_long;
1988       B : const_vector_signed_short_ptr) return vector_signed_short
1989    is
1990    begin
1991       return To_LL_VSS (lvxl (A, To_PTR (B)));
1992    end vec_ldl;
1993
1994    function vec_ldl
1995      (A : c_long;
1996       B : const_short_ptr) return vector_signed_short
1997    is
1998    begin
1999       return To_LL_VSS (lvxl (A, To_PTR (B)));
2000    end vec_ldl;
2001
2002    function vec_ldl
2003      (A : c_long;
2004       B : const_vector_unsigned_short_ptr) return vector_unsigned_short
2005    is
2006    begin
2007       return To_LL_VUS (lvxl (A, To_PTR (B)));
2008    end vec_ldl;
2009
2010    function vec_ldl
2011      (A : c_long;
2012       B : const_unsigned_short_ptr) return vector_unsigned_short
2013    is
2014    begin
2015       return To_LL_VUS (lvxl (A, To_PTR (B)));
2016    end vec_ldl;
2017
2018    function vec_ldl
2019      (A : c_long;
2020       B : const_vector_bool_char_ptr) return vector_bool_char
2021    is
2022    begin
2023       return To_LL_VBC (lvxl (A, To_PTR (B)));
2024    end vec_ldl;
2025
2026    function vec_ldl
2027      (A : c_long;
2028       B : const_vector_signed_char_ptr) return vector_signed_char
2029    is
2030    begin
2031       return To_LL_VSC (lvxl (A, To_PTR (B)));
2032    end vec_ldl;
2033
2034    function vec_ldl
2035      (A : c_long;
2036       B : const_signed_char_ptr) return vector_signed_char
2037    is
2038    begin
2039       return To_LL_VSC (lvxl (A, To_PTR (B)));
2040    end vec_ldl;
2041
2042    function vec_ldl
2043      (A : c_long;
2044       B : const_vector_unsigned_char_ptr) return vector_unsigned_char
2045    is
2046    begin
2047       return To_LL_VUC (lvxl (A, To_PTR (B)));
2048    end vec_ldl;
2049
2050    function vec_ldl
2051      (A : c_long;
2052       B : const_unsigned_char_ptr) return vector_unsigned_char
2053    is
2054    begin
2055       return To_LL_VUC (lvxl (A, To_PTR (B)));
2056    end vec_ldl;
2057
2058    -- vec_loge --
2059
2060    function vec_loge
2061      (A : vector_float) return vector_float
2062    is
2063    begin
2064       return To_LL_VF (vlogefp (To_LL_VF (A)));
2065    end vec_loge;
2066
2067    -- vec_lvsl --
2068
2069    function vec_lvsl
2070      (A : c_long;
2071       B : constv_unsigned_char_ptr) return vector_unsigned_char
2072    is
2073    begin
2074       return To_LL_VUC (lvsl (A, To_PTR (B)));
2075    end vec_lvsl;
2076
2077    function vec_lvsl
2078      (A : c_long;
2079       B : constv_signed_char_ptr) return vector_unsigned_char
2080    is
2081    begin
2082       return To_LL_VUC (lvsl (A, To_PTR (B)));
2083    end vec_lvsl;
2084
2085    function vec_lvsl
2086      (A : c_long;
2087       B : constv_unsigned_short_ptr) return vector_unsigned_char
2088    is
2089    begin
2090       return To_LL_VUC (lvsl (A, To_PTR (B)));
2091    end vec_lvsl;
2092
2093    function vec_lvsl
2094      (A : c_long;
2095       B : constv_short_ptr) return vector_unsigned_char
2096    is
2097    begin
2098       return To_LL_VUC (lvsl (A, To_PTR (B)));
2099    end vec_lvsl;
2100
2101    function vec_lvsl
2102      (A : c_long;
2103       B : constv_unsigned_int_ptr) return vector_unsigned_char
2104    is
2105    begin
2106       return To_LL_VUC (lvsl (A, To_PTR (B)));
2107    end vec_lvsl;
2108
2109    function vec_lvsl
2110      (A : c_long;
2111       B : constv_int_ptr) return vector_unsigned_char
2112    is
2113    begin
2114       return To_LL_VUC (lvsl (A, To_PTR (B)));
2115    end vec_lvsl;
2116
2117    function vec_lvsl
2118      (A : c_long;
2119       B : constv_unsigned_long_ptr) return vector_unsigned_char
2120    is
2121    begin
2122       return To_LL_VUC (lvsl (A, To_PTR (B)));
2123    end vec_lvsl;
2124
2125    function vec_lvsl
2126      (A : c_long;
2127       B : constv_long_ptr) return vector_unsigned_char
2128    is
2129    begin
2130       return To_LL_VUC (lvsl (A, To_PTR (B)));
2131    end vec_lvsl;
2132
2133    function vec_lvsl
2134      (A : c_long;
2135       B : constv_float_ptr) return vector_unsigned_char
2136    is
2137    begin
2138       return To_LL_VUC (lvsl (A, To_PTR (B)));
2139    end vec_lvsl;
2140
2141    -- vec_lvsr --
2142
2143    function vec_lvsr
2144      (A : c_long;
2145       B : constv_unsigned_char_ptr) return vector_unsigned_char
2146    is
2147    begin
2148       return To_LL_VUC (lvsr (A, To_PTR (B)));
2149    end vec_lvsr;
2150
2151    function vec_lvsr
2152      (A : c_long;
2153       B : constv_signed_char_ptr) return vector_unsigned_char
2154    is
2155    begin
2156       return To_LL_VUC (lvsr (A, To_PTR (B)));
2157    end vec_lvsr;
2158
2159    function vec_lvsr
2160      (A : c_long;
2161       B : constv_unsigned_short_ptr) return vector_unsigned_char
2162    is
2163    begin
2164       return To_LL_VUC (lvsr (A, To_PTR (B)));
2165    end vec_lvsr;
2166
2167    function vec_lvsr
2168      (A : c_long;
2169       B : constv_short_ptr) return vector_unsigned_char
2170    is
2171    begin
2172       return To_LL_VUC (lvsr (A, To_PTR (B)));
2173    end vec_lvsr;
2174
2175    function vec_lvsr
2176      (A : c_long;
2177       B : constv_unsigned_int_ptr) return vector_unsigned_char
2178    is
2179    begin
2180       return To_LL_VUC (lvsr (A, To_PTR (B)));
2181    end vec_lvsr;
2182
2183    function vec_lvsr
2184      (A : c_long;
2185       B : constv_int_ptr) return vector_unsigned_char
2186    is
2187    begin
2188       return To_LL_VUC (lvsr (A, To_PTR (B)));
2189    end vec_lvsr;
2190
2191    function vec_lvsr
2192      (A : c_long;
2193       B : constv_unsigned_long_ptr) return vector_unsigned_char
2194    is
2195    begin
2196       return To_LL_VUC (lvsr (A, To_PTR (B)));
2197    end vec_lvsr;
2198
2199    function vec_lvsr
2200      (A : c_long;
2201       B : constv_long_ptr) return vector_unsigned_char
2202    is
2203    begin
2204       return To_LL_VUC (lvsr (A, To_PTR (B)));
2205    end vec_lvsr;
2206
2207    function vec_lvsr
2208      (A : c_long;
2209       B : constv_float_ptr) return vector_unsigned_char
2210    is
2211    begin
2212       return To_LL_VUC (lvsr (A, To_PTR (B)));
2213    end vec_lvsr;
2214
2215    -- vec_madd --
2216
2217    function vec_madd
2218      (A : vector_float;
2219       B : vector_float;
2220       C : vector_float) return vector_float
2221    is
2222    begin
2223       return vmaddfp (A, B, C);
2224    end vec_madd;
2225
2226    -- vec_madds --
2227
2228    function vec_madds
2229      (A : vector_signed_short;
2230       B : vector_signed_short;
2231       C : vector_signed_short) return vector_signed_short
2232    is
2233    begin
2234       return vmhaddshs (A, B, C);
2235    end vec_madds;
2236
2237    -- vec_max --
2238
2239    function vec_max
2240      (A : vector_bool_char;
2241       B : vector_unsigned_char) return vector_unsigned_char
2242    is
2243    begin
2244       return To_LL_VUC (vmaxub (To_LL_VSC (A), To_LL_VSC (B)));
2245    end vec_max;
2246
2247    function vec_max
2248      (A : vector_unsigned_char;
2249       B : vector_bool_char) return vector_unsigned_char
2250    is
2251    begin
2252       return To_LL_VUC (vmaxub (To_LL_VSC (A), To_LL_VSC (B)));
2253    end vec_max;
2254
2255    function vec_max
2256      (A : vector_unsigned_char;
2257       B : vector_unsigned_char) return vector_unsigned_char
2258    is
2259    begin
2260       return To_LL_VUC (vmaxub (To_LL_VSC (A), To_LL_VSC (B)));
2261    end vec_max;
2262
2263    function vec_max
2264      (A : vector_bool_char;
2265       B : vector_signed_char) return vector_signed_char
2266    is
2267    begin
2268       return To_LL_VSC (vmaxsb (To_LL_VSC (A), To_LL_VSC (B)));
2269    end vec_max;
2270
2271    function vec_max
2272      (A : vector_signed_char;
2273       B : vector_bool_char) return vector_signed_char
2274    is
2275    begin
2276       return To_LL_VSC (vmaxsb (To_LL_VSC (A), To_LL_VSC (B)));
2277    end vec_max;
2278
2279    function vec_max
2280      (A : vector_signed_char;
2281       B : vector_signed_char) return vector_signed_char
2282    is
2283    begin
2284       return To_LL_VSC (vmaxsb (To_LL_VSC (A), To_LL_VSC (B)));
2285    end vec_max;
2286
2287    function vec_max
2288      (A : vector_bool_short;
2289       B : vector_unsigned_short) return vector_unsigned_short
2290    is
2291    begin
2292       return To_LL_VUS (vmaxuh (To_LL_VSS (A), To_LL_VSS (B)));
2293    end vec_max;
2294
2295    function vec_max
2296      (A : vector_unsigned_short;
2297       B : vector_bool_short) return vector_unsigned_short
2298    is
2299    begin
2300       return To_LL_VUS (vmaxuh (To_LL_VSS (A), To_LL_VSS (B)));
2301    end vec_max;
2302
2303    function vec_max
2304      (A : vector_unsigned_short;
2305       B : vector_unsigned_short) return vector_unsigned_short
2306    is
2307    begin
2308       return To_LL_VUS (vmaxuh (To_LL_VSS (A), To_LL_VSS (B)));
2309    end vec_max;
2310
2311    function vec_max
2312      (A : vector_bool_short;
2313       B : vector_signed_short) return vector_signed_short
2314    is
2315    begin
2316       return To_LL_VSS (vmaxsh (To_LL_VSS (A), To_LL_VSS (B)));
2317    end vec_max;
2318
2319    function vec_max
2320      (A : vector_signed_short;
2321       B : vector_bool_short) return vector_signed_short
2322    is
2323    begin
2324       return To_LL_VSS (vmaxsh (To_LL_VSS (A), To_LL_VSS (B)));
2325    end vec_max;
2326
2327    function vec_max
2328      (A : vector_signed_short;
2329       B : vector_signed_short) return vector_signed_short
2330    is
2331    begin
2332       return To_LL_VSS (vmaxsh (To_LL_VSS (A), To_LL_VSS (B)));
2333    end vec_max;
2334
2335    function vec_max
2336      (A : vector_bool_int;
2337       B : vector_unsigned_int) return vector_unsigned_int
2338    is
2339    begin
2340       return To_LL_VUI (vmaxuw (To_LL_VSI (A), To_LL_VSI (B)));
2341    end vec_max;
2342
2343    function vec_max
2344      (A : vector_unsigned_int;
2345       B : vector_bool_int) return vector_unsigned_int
2346    is
2347    begin
2348       return To_LL_VUI (vmaxuw (To_LL_VSI (A), To_LL_VSI (B)));
2349    end vec_max;
2350
2351    function vec_max
2352      (A : vector_unsigned_int;
2353       B : vector_unsigned_int) return vector_unsigned_int
2354    is
2355    begin
2356       return To_LL_VUI (vmaxuw (To_LL_VSI (A), To_LL_VSI (B)));
2357    end vec_max;
2358
2359    function vec_max
2360      (A : vector_bool_int;
2361       B : vector_signed_int) return vector_signed_int
2362    is
2363    begin
2364       return To_LL_VSI (vmaxsw (To_LL_VSI (A), To_LL_VSI (B)));
2365    end vec_max;
2366
2367    function vec_max
2368      (A : vector_signed_int;
2369       B : vector_bool_int) return vector_signed_int
2370    is
2371    begin
2372       return To_LL_VSI (vmaxsw (To_LL_VSI (A), To_LL_VSI (B)));
2373    end vec_max;
2374
2375    function vec_max
2376      (A : vector_signed_int;
2377       B : vector_signed_int) return vector_signed_int
2378    is
2379    begin
2380       return To_LL_VSI (vmaxsw (To_LL_VSI (A), To_LL_VSI (B)));
2381    end vec_max;
2382
2383    function vec_max
2384      (A : vector_float;
2385       B : vector_float) return vector_float
2386    is
2387    begin
2388       return To_LL_VF (vmaxfp (To_LL_VF (A), To_LL_VF (B)));
2389    end vec_max;
2390
2391    -- vec_vmaxfp --
2392
2393    function vec_vmaxfp
2394      (A : vector_float;
2395       B : vector_float) return vector_float
2396    is
2397    begin
2398       return To_LL_VF (vmaxfp (To_LL_VF (A), To_LL_VF (B)));
2399    end vec_vmaxfp;
2400
2401    -- vec_vmaxsw --
2402
2403    function vec_vmaxsw
2404      (A : vector_bool_int;
2405       B : vector_signed_int) return vector_signed_int
2406    is
2407    begin
2408       return To_LL_VSI (vmaxsw (To_LL_VSI (A), To_LL_VSI (B)));
2409    end vec_vmaxsw;
2410
2411    function vec_vmaxsw
2412      (A : vector_signed_int;
2413       B : vector_bool_int) return vector_signed_int
2414    is
2415    begin
2416       return To_LL_VSI (vmaxsw (To_LL_VSI (A), To_LL_VSI (B)));
2417    end vec_vmaxsw;
2418
2419    function vec_vmaxsw
2420      (A : vector_signed_int;
2421       B : vector_signed_int) return vector_signed_int
2422    is
2423    begin
2424       return To_LL_VSI (vmaxsw (To_LL_VSI (A), To_LL_VSI (B)));
2425    end vec_vmaxsw;
2426
2427    -- vec_vmaxuw --
2428
2429    function vec_vmaxuw
2430      (A : vector_bool_int;
2431       B : vector_unsigned_int) return vector_unsigned_int
2432    is
2433    begin
2434       return To_LL_VUI (vmaxuw (To_LL_VSI (A), To_LL_VSI (B)));
2435    end vec_vmaxuw;
2436
2437    function vec_vmaxuw
2438      (A : vector_unsigned_int;
2439       B : vector_bool_int) return vector_unsigned_int
2440    is
2441    begin
2442       return To_LL_VUI (vmaxuw (To_LL_VSI (A), To_LL_VSI (B)));
2443    end vec_vmaxuw;
2444
2445    function vec_vmaxuw
2446      (A : vector_unsigned_int;
2447       B : vector_unsigned_int) return vector_unsigned_int
2448    is
2449    begin
2450       return To_LL_VUI (vmaxuw (To_LL_VSI (A), To_LL_VSI (B)));
2451    end vec_vmaxuw;
2452
2453    -- vec_vmaxsh --
2454
2455    function vec_vmaxsh
2456      (A : vector_bool_short;
2457       B : vector_signed_short) return vector_signed_short
2458    is
2459    begin
2460       return To_LL_VSS (vmaxsh (To_LL_VSS (A), To_LL_VSS (B)));
2461    end vec_vmaxsh;
2462
2463    function vec_vmaxsh
2464      (A : vector_signed_short;
2465       B : vector_bool_short) return vector_signed_short
2466    is
2467    begin
2468       return To_LL_VSS (vmaxsh (To_LL_VSS (A), To_LL_VSS (B)));
2469    end vec_vmaxsh;
2470
2471    function vec_vmaxsh
2472      (A : vector_signed_short;
2473       B : vector_signed_short) return vector_signed_short
2474    is
2475    begin
2476       return To_LL_VSS (vmaxsh (To_LL_VSS (A), To_LL_VSS (B)));
2477    end vec_vmaxsh;
2478
2479    -- vec_vmaxuh --
2480
2481    function vec_vmaxuh
2482      (A : vector_bool_short;
2483       B : vector_unsigned_short) return vector_unsigned_short
2484    is
2485    begin
2486       return To_LL_VUS (vmaxuh (To_LL_VSS (A), To_LL_VSS (B)));
2487    end vec_vmaxuh;
2488
2489    function vec_vmaxuh
2490      (A : vector_unsigned_short;
2491       B : vector_bool_short) return vector_unsigned_short
2492    is
2493    begin
2494       return To_LL_VUS (vmaxuh (To_LL_VSS (A), To_LL_VSS (B)));
2495    end vec_vmaxuh;
2496
2497    function vec_vmaxuh
2498      (A : vector_unsigned_short;
2499       B : vector_unsigned_short) return vector_unsigned_short
2500    is
2501    begin
2502       return To_LL_VUS (vmaxuh (To_LL_VSS (A), To_LL_VSS (B)));
2503    end vec_vmaxuh;
2504
2505    -- vec_vmaxsb --
2506
2507    function vec_vmaxsb
2508      (A : vector_bool_char;
2509       B : vector_signed_char) return vector_signed_char
2510    is
2511    begin
2512       return To_LL_VSC (vmaxsb (To_LL_VSC (A), To_LL_VSC (B)));
2513    end vec_vmaxsb;
2514
2515    function vec_vmaxsb
2516      (A : vector_signed_char;
2517       B : vector_bool_char) return vector_signed_char
2518    is
2519    begin
2520       return To_LL_VSC (vmaxsb (To_LL_VSC (A), To_LL_VSC (B)));
2521    end vec_vmaxsb;
2522
2523    function vec_vmaxsb
2524      (A : vector_signed_char;
2525       B : vector_signed_char) return vector_signed_char
2526    is
2527    begin
2528       return To_LL_VSC (vmaxsb (To_LL_VSC (A), To_LL_VSC (B)));
2529    end vec_vmaxsb;
2530
2531    -- vec_vmaxub --
2532
2533    function vec_vmaxub
2534      (A : vector_bool_char;
2535       B : vector_unsigned_char) return vector_unsigned_char
2536    is
2537    begin
2538       return To_LL_VUC (vmaxub (To_LL_VSC (A), To_LL_VSC (B)));
2539    end vec_vmaxub;
2540
2541    function vec_vmaxub
2542      (A : vector_unsigned_char;
2543       B : vector_bool_char) return vector_unsigned_char
2544    is
2545    begin
2546       return To_LL_VUC (vmaxub (To_LL_VSC (A), To_LL_VSC (B)));
2547    end vec_vmaxub;
2548
2549    function vec_vmaxub
2550      (A : vector_unsigned_char;
2551       B : vector_unsigned_char) return vector_unsigned_char
2552    is
2553    begin
2554       return To_LL_VUC (vmaxub (To_LL_VSC (A), To_LL_VSC (B)));
2555    end vec_vmaxub;
2556
2557    -- vec_mergeh --
2558
2559    function vec_mergeh
2560      (A : vector_bool_char;
2561       B : vector_bool_char) return vector_bool_char
2562    is
2563    begin
2564       return To_LL_VBC (vmrghb (To_LL_VSC (A), To_LL_VSC (B)));
2565    end vec_mergeh;
2566
2567    function vec_mergeh
2568      (A : vector_signed_char;
2569       B : vector_signed_char) return vector_signed_char
2570    is
2571    begin
2572       return To_LL_VSC (vmrghb (To_LL_VSC (A), To_LL_VSC (B)));
2573    end vec_mergeh;
2574
2575    function vec_mergeh
2576      (A : vector_unsigned_char;
2577       B : vector_unsigned_char) return vector_unsigned_char
2578    is
2579    begin
2580       return To_LL_VUC (vmrghb (To_LL_VSC (A), To_LL_VSC (B)));
2581    end vec_mergeh;
2582
2583    function vec_mergeh
2584      (A : vector_bool_short;
2585       B : vector_bool_short) return vector_bool_short
2586    is
2587    begin
2588       return To_LL_VBS (vmrghh (To_LL_VSS (A), To_LL_VSS (B)));
2589    end vec_mergeh;
2590
2591    function vec_mergeh
2592      (A : vector_pixel;
2593       B : vector_pixel) return vector_pixel
2594    is
2595    begin
2596       return To_LL_VP (vmrghh (To_LL_VSS (A), To_LL_VSS (B)));
2597    end vec_mergeh;
2598
2599    function vec_mergeh
2600      (A : vector_signed_short;
2601       B : vector_signed_short) return vector_signed_short
2602    is
2603    begin
2604       return To_LL_VSS (vmrghh (To_LL_VSS (A), To_LL_VSS (B)));
2605    end vec_mergeh;
2606
2607    function vec_mergeh
2608      (A : vector_unsigned_short;
2609       B : vector_unsigned_short) return vector_unsigned_short
2610    is
2611    begin
2612       return To_LL_VUS (vmrghh (To_LL_VSS (A), To_LL_VSS (B)));
2613    end vec_mergeh;
2614
2615    function vec_mergeh
2616      (A : vector_float;
2617       B : vector_float) return vector_float
2618    is
2619    begin
2620       return To_LL_VF (vmrghw (To_LL_VSI (A), To_LL_VSI (B)));
2621    end vec_mergeh;
2622
2623    function vec_mergeh
2624      (A : vector_bool_int;
2625       B : vector_bool_int) return vector_bool_int
2626    is
2627    begin
2628       return To_LL_VBI (vmrghw (To_LL_VSI (A), To_LL_VSI (B)));
2629    end vec_mergeh;
2630
2631    function vec_mergeh
2632      (A : vector_signed_int;
2633       B : vector_signed_int) return vector_signed_int
2634    is
2635    begin
2636       return To_LL_VSI (vmrghw (To_LL_VSI (A), To_LL_VSI (B)));
2637    end vec_mergeh;
2638
2639    function vec_mergeh
2640      (A : vector_unsigned_int;
2641       B : vector_unsigned_int) return vector_unsigned_int
2642    is
2643    begin
2644       return To_LL_VUI (vmrghw (To_LL_VSI (A), To_LL_VSI (B)));
2645    end vec_mergeh;
2646
2647    -- vec_vmrghw --
2648
2649    function vec_vmrghw
2650      (A : vector_float;
2651       B : vector_float) return vector_float
2652    is
2653    begin
2654       return To_LL_VF (vmrghw (To_LL_VSI (A), To_LL_VSI (B)));
2655    end vec_vmrghw;
2656
2657    function vec_vmrghw
2658      (A : vector_bool_int;
2659       B : vector_bool_int) return vector_bool_int
2660    is
2661    begin
2662       return To_LL_VBI (vmrghw (To_LL_VSI (A), To_LL_VSI (B)));
2663    end vec_vmrghw;
2664
2665    function vec_vmrghw
2666      (A : vector_signed_int;
2667       B : vector_signed_int) return vector_signed_int
2668    is
2669    begin
2670       return To_LL_VSI (vmrghw (To_LL_VSI (A), To_LL_VSI (B)));
2671    end vec_vmrghw;
2672
2673    function vec_vmrghw
2674      (A : vector_unsigned_int;
2675       B : vector_unsigned_int) return vector_unsigned_int
2676    is
2677    begin
2678       return To_LL_VUI (vmrghw (To_LL_VSI (A), To_LL_VSI (B)));
2679    end vec_vmrghw;
2680
2681    -- vec_vmrghh --
2682
2683    function vec_vmrghh
2684      (A : vector_bool_short;
2685       B : vector_bool_short) return vector_bool_short
2686    is
2687    begin
2688       return To_LL_VBS (vmrghh (To_LL_VSS (A), To_LL_VSS (B)));
2689    end vec_vmrghh;
2690
2691    function vec_vmrghh
2692      (A : vector_signed_short;
2693       B : vector_signed_short) return vector_signed_short
2694    is
2695    begin
2696       return To_LL_VSS (vmrghh (To_LL_VSS (A), To_LL_VSS (B)));
2697    end vec_vmrghh;
2698
2699    function vec_vmrghh
2700      (A : vector_unsigned_short;
2701       B : vector_unsigned_short) return vector_unsigned_short
2702    is
2703    begin
2704       return To_LL_VUS (vmrghh (To_LL_VSS (A), To_LL_VSS (B)));
2705    end vec_vmrghh;
2706
2707    function vec_vmrghh
2708      (A : vector_pixel;
2709       B : vector_pixel) return vector_pixel
2710    is
2711    begin
2712       return To_LL_VP (vmrghh (To_LL_VSS (A), To_LL_VSS (B)));
2713    end vec_vmrghh;
2714
2715    -- vec_vmrghb --
2716
2717    function vec_vmrghb
2718      (A : vector_bool_char;
2719       B : vector_bool_char) return vector_bool_char
2720    is
2721    begin
2722       return To_LL_VBC (vmrghb (To_LL_VSC (A), To_LL_VSC (B)));
2723    end vec_vmrghb;
2724
2725    function vec_vmrghb
2726      (A : vector_signed_char;
2727       B : vector_signed_char) return vector_signed_char
2728    is
2729    begin
2730       return To_LL_VSC (vmrghb (To_LL_VSC (A), To_LL_VSC (B)));
2731    end vec_vmrghb;
2732
2733    function vec_vmrghb
2734      (A : vector_unsigned_char;
2735       B : vector_unsigned_char) return vector_unsigned_char
2736    is
2737    begin
2738       return To_LL_VUC (vmrghb (To_LL_VSC (A), To_LL_VSC (B)));
2739    end vec_vmrghb;
2740
2741    -- vec_mergel --
2742
2743    function vec_mergel
2744      (A : vector_bool_char;
2745       B : vector_bool_char) return vector_bool_char
2746    is
2747    begin
2748       return To_LL_VBC (vmrglb (To_LL_VSC (A), To_LL_VSC (B)));
2749    end vec_mergel;
2750
2751    function vec_mergel
2752      (A : vector_signed_char;
2753       B : vector_signed_char) return vector_signed_char
2754    is
2755    begin
2756       return To_LL_VSC (vmrglb (To_LL_VSC (A), To_LL_VSC (B)));
2757    end vec_mergel;
2758
2759    function vec_mergel
2760      (A : vector_unsigned_char;
2761       B : vector_unsigned_char) return vector_unsigned_char
2762    is
2763    begin
2764       return To_LL_VUC (vmrglb (To_LL_VSC (A), To_LL_VSC (B)));
2765    end vec_mergel;
2766
2767    function vec_mergel
2768      (A : vector_bool_short;
2769       B : vector_bool_short) return vector_bool_short
2770    is
2771    begin
2772       return To_LL_VBS (vmrglh (To_LL_VSS (A), To_LL_VSS (B)));
2773    end vec_mergel;
2774
2775    function vec_mergel
2776      (A : vector_pixel;
2777       B : vector_pixel) return vector_pixel
2778    is
2779    begin
2780       return To_LL_VP (vmrglh (To_LL_VSS (A), To_LL_VSS (B)));
2781    end vec_mergel;
2782
2783    function vec_mergel
2784      (A : vector_signed_short;
2785       B : vector_signed_short) return vector_signed_short
2786    is
2787    begin
2788       return To_LL_VSS (vmrglh (To_LL_VSS (A), To_LL_VSS (B)));
2789    end vec_mergel;
2790
2791    function vec_mergel
2792      (A : vector_unsigned_short;
2793       B : vector_unsigned_short) return vector_unsigned_short
2794    is
2795    begin
2796       return To_LL_VUS (vmrglh (To_LL_VSS (A), To_LL_VSS (B)));
2797    end vec_mergel;
2798
2799    function vec_mergel
2800      (A : vector_float;
2801       B : vector_float) return vector_float
2802    is
2803    begin
2804       return To_LL_VF (vmrglw (To_LL_VSI (A), To_LL_VSI (B)));
2805    end vec_mergel;
2806
2807    function vec_mergel
2808      (A : vector_bool_int;
2809       B : vector_bool_int) return vector_bool_int
2810    is
2811    begin
2812       return To_LL_VBI (vmrglw (To_LL_VSI (A), To_LL_VSI (B)));
2813    end vec_mergel;
2814
2815    function vec_mergel
2816      (A : vector_signed_int;
2817       B : vector_signed_int) return vector_signed_int
2818    is
2819    begin
2820       return To_LL_VSI (vmrglw (To_LL_VSI (A), To_LL_VSI (B)));
2821    end vec_mergel;
2822
2823    function vec_mergel
2824      (A : vector_unsigned_int;
2825       B : vector_unsigned_int) return vector_unsigned_int
2826    is
2827    begin
2828       return To_LL_VUI (vmrglw (To_LL_VSI (A), To_LL_VSI (B)));
2829    end vec_mergel;
2830
2831    -- vec_vmrglw --
2832
2833    function vec_vmrglw
2834      (A : vector_float;
2835       B : vector_float) return vector_float
2836    is
2837    begin
2838       return To_LL_VF (vmrglw (To_LL_VSI (A), To_LL_VSI (B)));
2839    end vec_vmrglw;
2840
2841    function vec_vmrglw
2842      (A : vector_signed_int;
2843       B : vector_signed_int) return vector_signed_int
2844    is
2845    begin
2846       return To_LL_VSI (vmrglw (To_LL_VSI (A), To_LL_VSI (B)));
2847    end vec_vmrglw;
2848
2849    function vec_vmrglw
2850      (A : vector_unsigned_int;
2851       B : vector_unsigned_int) return vector_unsigned_int
2852    is
2853    begin
2854       return To_LL_VUI (vmrglw (To_LL_VSI (A), To_LL_VSI (B)));
2855    end vec_vmrglw;
2856
2857    function vec_vmrglw
2858      (A : vector_bool_int;
2859       B : vector_bool_int) return vector_bool_int
2860    is
2861    begin
2862       return To_LL_VBI (vmrglw (To_LL_VSI (A), To_LL_VSI (B)));
2863    end vec_vmrglw;
2864
2865    -- vec_vmrglh --
2866
2867    function vec_vmrglh
2868      (A : vector_bool_short;
2869       B : vector_bool_short) return vector_bool_short
2870    is
2871    begin
2872       return To_LL_VBS (vmrglh (To_LL_VSS (A), To_LL_VSS (B)));
2873    end vec_vmrglh;
2874
2875    function vec_vmrglh
2876      (A : vector_signed_short;
2877       B : vector_signed_short) return vector_signed_short
2878    is
2879    begin
2880       return To_LL_VSS (vmrglh (To_LL_VSS (A), To_LL_VSS (B)));
2881    end vec_vmrglh;
2882
2883    function vec_vmrglh
2884      (A : vector_unsigned_short;
2885       B : vector_unsigned_short) return vector_unsigned_short
2886    is
2887    begin
2888       return To_LL_VUS (vmrglh (To_LL_VSS (A), To_LL_VSS (B)));
2889    end vec_vmrglh;
2890
2891    function vec_vmrglh
2892      (A : vector_pixel;
2893       B : vector_pixel) return vector_pixel
2894    is
2895    begin
2896       return To_LL_VP (vmrglh (To_LL_VSS (A), To_LL_VSS (B)));
2897    end vec_vmrglh;
2898
2899    -- vec_vmrglb --
2900
2901    function vec_vmrglb
2902      (A : vector_bool_char;
2903       B : vector_bool_char) return vector_bool_char
2904    is
2905    begin
2906       return To_LL_VBC (vmrglb (To_LL_VSC (A), To_LL_VSC (B)));
2907    end vec_vmrglb;
2908
2909    function vec_vmrglb
2910      (A : vector_signed_char;
2911       B : vector_signed_char) return vector_signed_char
2912    is
2913    begin
2914       return To_LL_VSC (vmrglb (To_LL_VSC (A), To_LL_VSC (B)));
2915    end vec_vmrglb;
2916
2917    function vec_vmrglb
2918      (A : vector_unsigned_char;
2919       B : vector_unsigned_char) return vector_unsigned_char
2920    is
2921    begin
2922       return To_LL_VUC (vmrglb (To_LL_VSC (A), To_LL_VSC (B)));
2923    end vec_vmrglb;
2924
2925    -- vec_mfvscr --
2926
2927    function vec_mfvscr return vector_unsigned_short
2928    is
2929    begin
2930       return To_LL_VUS (mfvscr);
2931    end vec_mfvscr;
2932
2933    -- vec_min --
2934
2935    function vec_min
2936      (A : vector_bool_char;
2937       B : vector_unsigned_char) return vector_unsigned_char
2938    is
2939    begin
2940       return To_LL_VUC (vminub (To_LL_VSC (A), To_LL_VSC (B)));
2941    end vec_min;
2942
2943    function vec_min
2944      (A : vector_unsigned_char;
2945       B : vector_bool_char) return vector_unsigned_char
2946    is
2947    begin
2948       return To_LL_VUC (vminub (To_LL_VSC (A), To_LL_VSC (B)));
2949    end vec_min;
2950
2951    function vec_min
2952      (A : vector_unsigned_char;
2953       B : vector_unsigned_char) return vector_unsigned_char
2954    is
2955    begin
2956       return To_LL_VUC (vminub (To_LL_VSC (A), To_LL_VSC (B)));
2957    end vec_min;
2958
2959    function vec_min
2960      (A : vector_bool_char;
2961       B : vector_signed_char) return vector_signed_char
2962    is
2963    begin
2964       return To_LL_VSC (vminsb (To_LL_VSC (A), To_LL_VSC (B)));
2965    end vec_min;
2966
2967    function vec_min
2968      (A : vector_signed_char;
2969       B : vector_bool_char) return vector_signed_char
2970    is
2971    begin
2972       return To_LL_VSC (vminsb (To_LL_VSC (A), To_LL_VSC (B)));
2973    end vec_min;
2974
2975    function vec_min
2976      (A : vector_signed_char;
2977       B : vector_signed_char) return vector_signed_char
2978    is
2979    begin
2980       return To_LL_VSC (vminsb (To_LL_VSC (A), To_LL_VSC (B)));
2981    end vec_min;
2982
2983    function vec_min
2984      (A : vector_bool_short;
2985       B : vector_unsigned_short) return vector_unsigned_short
2986    is
2987    begin
2988       return To_LL_VUS (vminuh (To_LL_VSS (A), To_LL_VSS (B)));
2989    end vec_min;
2990
2991    function vec_min
2992      (A : vector_unsigned_short;
2993       B : vector_bool_short) return vector_unsigned_short
2994    is
2995    begin
2996       return To_LL_VUS (vminuh (To_LL_VSS (A), To_LL_VSS (B)));
2997    end vec_min;
2998
2999    function vec_min
3000      (A : vector_unsigned_short;
3001       B : vector_unsigned_short) return vector_unsigned_short
3002    is
3003    begin
3004       return To_LL_VUS (vminuh (To_LL_VSS (A), To_LL_VSS (B)));
3005    end vec_min;
3006
3007    function vec_min
3008      (A : vector_bool_short;
3009       B : vector_signed_short) return vector_signed_short
3010    is
3011    begin
3012       return To_LL_VSS (vminsh (To_LL_VSS (A), To_LL_VSS (B)));
3013    end vec_min;
3014
3015    function vec_min
3016      (A : vector_signed_short;
3017       B : vector_bool_short) return vector_signed_short
3018    is
3019    begin
3020       return To_LL_VSS (vminsh (To_LL_VSS (A), To_LL_VSS (B)));
3021    end vec_min;
3022
3023    function vec_min
3024      (A : vector_signed_short;
3025       B : vector_signed_short) return vector_signed_short
3026    is
3027    begin
3028       return To_LL_VSS (vminsh (To_LL_VSS (A), To_LL_VSS (B)));
3029    end vec_min;
3030
3031    function vec_min
3032      (A : vector_bool_int;
3033       B : vector_unsigned_int) return vector_unsigned_int
3034    is
3035    begin
3036       return To_LL_VUI (vminuw (To_LL_VSI (A), To_LL_VSI (B)));
3037    end vec_min;
3038
3039    function vec_min
3040      (A : vector_unsigned_int;
3041       B : vector_bool_int) return vector_unsigned_int
3042    is
3043    begin
3044       return To_LL_VUI (vminuw (To_LL_VSI (A), To_LL_VSI (B)));
3045    end vec_min;
3046
3047    function vec_min
3048      (A : vector_unsigned_int;
3049       B : vector_unsigned_int) return vector_unsigned_int
3050    is
3051    begin
3052       return To_LL_VUI (vminuw (To_LL_VSI (A), To_LL_VSI (B)));
3053    end vec_min;
3054
3055    function vec_min
3056      (A : vector_bool_int;
3057       B : vector_signed_int) return vector_signed_int
3058    is
3059    begin
3060       return To_LL_VSI (vminsw (To_LL_VSI (A), To_LL_VSI (B)));
3061    end vec_min;
3062
3063    function vec_min
3064      (A : vector_signed_int;
3065       B : vector_bool_int) return vector_signed_int
3066    is
3067    begin
3068       return To_LL_VSI (vminsw (To_LL_VSI (A), To_LL_VSI (B)));
3069    end vec_min;
3070
3071    function vec_min
3072      (A : vector_signed_int;
3073       B : vector_signed_int) return vector_signed_int
3074    is
3075    begin
3076       return To_LL_VSI (vminsw (To_LL_VSI (A), To_LL_VSI (B)));
3077    end vec_min;
3078
3079    function vec_min
3080      (A : vector_float;
3081       B : vector_float) return vector_float
3082    is
3083    begin
3084       return To_LL_VF (vminfp (To_LL_VF (A), To_LL_VF (B)));
3085    end vec_min;
3086
3087    -- vec_vminfp --
3088
3089    function vec_vminfp
3090      (A : vector_float;
3091       B : vector_float) return vector_float
3092    is
3093    begin
3094       return To_LL_VF (vminfp (To_LL_VF (A), To_LL_VF (B)));
3095    end vec_vminfp;
3096
3097    -- vec_vminsw --
3098
3099    function vec_vminsw
3100      (A : vector_bool_int;
3101       B : vector_signed_int) return vector_signed_int
3102    is
3103    begin
3104       return To_LL_VSI (vminsw (To_LL_VSI (A), To_LL_VSI (B)));
3105    end vec_vminsw;
3106
3107    function vec_vminsw
3108      (A : vector_signed_int;
3109       B : vector_bool_int) return vector_signed_int
3110    is
3111    begin
3112       return To_LL_VSI (vminsw (To_LL_VSI (A), To_LL_VSI (B)));
3113    end vec_vminsw;
3114
3115    function vec_vminsw
3116      (A : vector_signed_int;
3117       B : vector_signed_int) return vector_signed_int
3118    is
3119    begin
3120       return To_LL_VSI (vminsw (To_LL_VSI (A), To_LL_VSI (B)));
3121    end vec_vminsw;
3122
3123    -- vec_vminuw --
3124
3125    function vec_vminuw
3126      (A : vector_bool_int;
3127       B : vector_unsigned_int) return vector_unsigned_int
3128    is
3129    begin
3130       return To_LL_VUI (vminuw (To_LL_VSI (A), To_LL_VSI (B)));
3131    end vec_vminuw;
3132
3133    function vec_vminuw
3134      (A : vector_unsigned_int;
3135       B : vector_bool_int) return vector_unsigned_int
3136    is
3137    begin
3138       return To_LL_VUI (vminuw (To_LL_VSI (A), To_LL_VSI (B)));
3139    end vec_vminuw;
3140
3141    function vec_vminuw
3142      (A : vector_unsigned_int;
3143       B : vector_unsigned_int) return vector_unsigned_int
3144    is
3145    begin
3146       return To_LL_VUI (vminuw (To_LL_VSI (A), To_LL_VSI (B)));
3147    end vec_vminuw;
3148
3149    -- vec_vminsh --
3150
3151    function vec_vminsh
3152      (A : vector_bool_short;
3153       B : vector_signed_short) return vector_signed_short
3154    is
3155    begin
3156       return To_LL_VSS (vminsh (To_LL_VSS (A), To_LL_VSS (B)));
3157    end vec_vminsh;
3158
3159    function vec_vminsh
3160      (A : vector_signed_short;
3161       B : vector_bool_short) return vector_signed_short
3162    is
3163    begin
3164       return To_LL_VSS (vminsh (To_LL_VSS (A), To_LL_VSS (B)));
3165    end vec_vminsh;
3166
3167    function vec_vminsh
3168      (A : vector_signed_short;
3169       B : vector_signed_short) return vector_signed_short
3170    is
3171    begin
3172       return To_LL_VSS (vminsh (To_LL_VSS (A), To_LL_VSS (B)));
3173    end vec_vminsh;
3174
3175    -- vec_vminuh --
3176
3177    function vec_vminuh
3178      (A : vector_bool_short;
3179       B : vector_unsigned_short) return vector_unsigned_short
3180    is
3181    begin
3182       return To_LL_VUS (vminuh (To_LL_VSS (A), To_LL_VSS (B)));
3183    end vec_vminuh;
3184
3185    function vec_vminuh
3186      (A : vector_unsigned_short;
3187       B : vector_bool_short) return vector_unsigned_short
3188    is
3189    begin
3190       return To_LL_VUS (vminuh (To_LL_VSS (A), To_LL_VSS (B)));
3191    end vec_vminuh;
3192
3193    function vec_vminuh
3194      (A : vector_unsigned_short;
3195       B : vector_unsigned_short) return vector_unsigned_short
3196    is
3197    begin
3198       return To_LL_VUS (vminuh (To_LL_VSS (A), To_LL_VSS (B)));
3199    end vec_vminuh;
3200
3201    -- vec_vminsb --
3202
3203    function vec_vminsb
3204      (A : vector_bool_char;
3205       B : vector_signed_char) return vector_signed_char
3206    is
3207    begin
3208       return To_LL_VSC (vminsb (To_LL_VSC (A), To_LL_VSC (B)));
3209    end vec_vminsb;
3210
3211    function vec_vminsb
3212      (A : vector_signed_char;
3213       B : vector_bool_char) return vector_signed_char
3214    is
3215    begin
3216       return To_LL_VSC (vminsb (To_LL_VSC (A), To_LL_VSC (B)));
3217    end vec_vminsb;
3218
3219    function vec_vminsb
3220      (A : vector_signed_char;
3221       B : vector_signed_char) return vector_signed_char
3222    is
3223    begin
3224       return To_LL_VSC (vminsb (To_LL_VSC (A), To_LL_VSC (B)));
3225    end vec_vminsb;
3226
3227    -- vec_vminub --
3228
3229    function vec_vminub
3230      (A : vector_bool_char;
3231       B : vector_unsigned_char) return vector_unsigned_char
3232    is
3233    begin
3234       return To_LL_VUC (vminub (To_LL_VSC (A), To_LL_VSC (B)));
3235    end vec_vminub;
3236
3237    function vec_vminub
3238      (A : vector_unsigned_char;
3239       B : vector_bool_char) return vector_unsigned_char
3240    is
3241    begin
3242       return To_LL_VUC (vminub (To_LL_VSC (A), To_LL_VSC (B)));
3243    end vec_vminub;
3244
3245    function vec_vminub
3246      (A : vector_unsigned_char;
3247       B : vector_unsigned_char) return vector_unsigned_char
3248    is
3249    begin
3250       return To_LL_VUC (vminub (To_LL_VSC (A), To_LL_VSC (B)));
3251    end vec_vminub;
3252
3253    -- vec_mladd --
3254
3255    function vec_mladd
3256      (A : vector_signed_short;
3257       B : vector_signed_short;
3258       C : vector_signed_short) return vector_signed_short
3259    is
3260    begin
3261       return vmladduhm (A, B, C);
3262    end vec_mladd;
3263
3264    function vec_mladd
3265      (A : vector_signed_short;
3266       B : vector_unsigned_short;
3267       C : vector_unsigned_short) return vector_signed_short
3268    is
3269    begin
3270       return vmladduhm (A, To_LL_VSS (B), To_LL_VSS (C));
3271    end vec_mladd;
3272
3273    function vec_mladd
3274      (A : vector_unsigned_short;
3275       B : vector_signed_short;
3276       C : vector_signed_short) return vector_signed_short
3277    is
3278    begin
3279       return vmladduhm (To_LL_VSS (A), B, C);
3280    end vec_mladd;
3281
3282    function vec_mladd
3283      (A : vector_unsigned_short;
3284       B : vector_unsigned_short;
3285       C : vector_unsigned_short) return vector_unsigned_short
3286    is
3287    begin
3288       return
3289         To_LL_VUS (vmladduhm (To_LL_VSS (A), To_LL_VSS (B), To_LL_VSS (C)));
3290    end vec_mladd;
3291
3292    -- vec_mradds --
3293
3294    function vec_mradds
3295      (A : vector_signed_short;
3296       B : vector_signed_short;
3297       C : vector_signed_short) return vector_signed_short
3298    is
3299    begin
3300       return vmhraddshs (A, B, C);
3301    end vec_mradds;
3302
3303    -- vec_msum --
3304
3305    function vec_msum
3306      (A : vector_unsigned_char;
3307       B : vector_unsigned_char;
3308       C : vector_unsigned_int) return vector_unsigned_int
3309    is
3310    begin
3311       return
3312         To_LL_VUI (vmsumubm (To_LL_VSC (A), To_LL_VSC (B), To_LL_VSI (C)));
3313    end vec_msum;
3314
3315    function vec_msum
3316      (A : vector_signed_char;
3317       B : vector_unsigned_char;
3318       C : vector_signed_int) return vector_signed_int
3319    is
3320    begin
3321       return
3322         To_LL_VSI (vmsummbm (To_LL_VSC (A), To_LL_VSC (B), To_LL_VSI (C)));
3323    end vec_msum;
3324
3325    function vec_msum
3326      (A : vector_unsigned_short;
3327       B : vector_unsigned_short;
3328       C : vector_unsigned_int) return vector_unsigned_int
3329    is
3330    begin
3331       return
3332         To_LL_VUI (vmsumuhm (To_LL_VSS (A), To_LL_VSS (B), To_LL_VSI (C)));
3333    end vec_msum;
3334
3335    function vec_msum
3336      (A : vector_signed_short;
3337       B : vector_signed_short;
3338       C : vector_signed_int) return vector_signed_int
3339    is
3340    begin
3341       return
3342         To_LL_VSI (vmsumshm (To_LL_VSS (A), To_LL_VSS (B), To_LL_VSI (C)));
3343    end vec_msum;
3344
3345    -- vec_vmsumshm --
3346
3347    function vec_vmsumshm
3348      (A : vector_signed_short;
3349       B : vector_signed_short;
3350       C : vector_signed_int) return vector_signed_int
3351    is
3352    begin
3353       return
3354         To_LL_VSI (vmsumshm (To_LL_VSS (A), To_LL_VSS (B), To_LL_VSI (C)));
3355    end vec_vmsumshm;
3356
3357    -- vec_vmsumuhm --
3358
3359    function vec_vmsumuhm
3360      (A : vector_unsigned_short;
3361       B : vector_unsigned_short;
3362       C : vector_unsigned_int) return vector_unsigned_int
3363    is
3364    begin
3365       return
3366         To_LL_VUI (vmsumuhm (To_LL_VSS (A), To_LL_VSS (B), To_LL_VSI (C)));
3367    end vec_vmsumuhm;
3368
3369    -- vec_vmsummbm --
3370
3371    function vec_vmsummbm
3372      (A : vector_signed_char;
3373       B : vector_unsigned_char;
3374       C : vector_signed_int) return vector_signed_int
3375    is
3376    begin
3377       return
3378         To_LL_VSI (vmsummbm (To_LL_VSC (A), To_LL_VSC (B), To_LL_VSI (C)));
3379    end vec_vmsummbm;
3380
3381    -- vec_vmsumubm --
3382
3383    function vec_vmsumubm
3384      (A : vector_unsigned_char;
3385       B : vector_unsigned_char;
3386       C : vector_unsigned_int) return vector_unsigned_int
3387    is
3388    begin
3389       return
3390         To_LL_VUI (vmsumubm (To_LL_VSC (A), To_LL_VSC (B), To_LL_VSI (C)));
3391    end vec_vmsumubm;
3392
3393    -- vec_msums --
3394
3395    function vec_msums
3396      (A : vector_unsigned_short;
3397       B : vector_unsigned_short;
3398       C : vector_unsigned_int) return vector_unsigned_int
3399    is
3400    begin
3401       return
3402         To_LL_VUI (vmsumuhs (To_LL_VSS (A), To_LL_VSS (B), To_LL_VSI (C)));
3403    end vec_msums;
3404
3405    function vec_msums
3406      (A : vector_signed_short;
3407       B : vector_signed_short;
3408       C : vector_signed_int) return vector_signed_int
3409    is
3410    begin
3411       return
3412         To_LL_VSI (vmsumshs (To_LL_VSS (A), To_LL_VSS (B), To_LL_VSI (C)));
3413    end vec_msums;
3414
3415    -- vec_vmsumshs --
3416
3417    function vec_vmsumshs
3418      (A : vector_signed_short;
3419       B : vector_signed_short;
3420       C : vector_signed_int) return vector_signed_int
3421    is
3422    begin
3423       return
3424         To_LL_VSI (vmsumshs (To_LL_VSS (A), To_LL_VSS (B), To_LL_VSI (C)));
3425    end vec_vmsumshs;
3426
3427    -- vec_vmsumuhs --
3428
3429    function vec_vmsumuhs
3430      (A : vector_unsigned_short;
3431       B : vector_unsigned_short;
3432       C : vector_unsigned_int) return vector_unsigned_int
3433    is
3434    begin
3435       return
3436         To_LL_VUI (vmsumuhs (To_LL_VSS (A), To_LL_VSS (B), To_LL_VSI (C)));
3437    end vec_vmsumuhs;
3438
3439    -- vec_mtvscr --
3440
3441    procedure vec_mtvscr
3442      (A : vector_signed_int)
3443    is
3444    begin
3445       mtvscr (To_LL_VSI (A));
3446    end vec_mtvscr;
3447
3448    procedure vec_mtvscr
3449      (A : vector_unsigned_int)
3450    is
3451    begin
3452       mtvscr (To_LL_VSI (A));
3453    end vec_mtvscr;
3454
3455    procedure vec_mtvscr
3456      (A : vector_bool_int)
3457    is
3458    begin
3459       mtvscr (To_LL_VSI (A));
3460    end vec_mtvscr;
3461
3462    procedure vec_mtvscr
3463      (A : vector_signed_short)
3464    is
3465    begin
3466       mtvscr (To_LL_VSI (A));
3467    end vec_mtvscr;
3468
3469    procedure vec_mtvscr
3470      (A : vector_unsigned_short)
3471    is
3472    begin
3473       mtvscr (To_LL_VSI (A));
3474    end vec_mtvscr;
3475
3476    procedure vec_mtvscr
3477      (A : vector_bool_short)
3478    is
3479    begin
3480       mtvscr (To_LL_VSI (A));
3481    end vec_mtvscr;
3482
3483    procedure vec_mtvscr
3484      (A : vector_pixel)
3485    is
3486    begin
3487       mtvscr (To_LL_VSI (A));
3488    end vec_mtvscr;
3489
3490    procedure vec_mtvscr
3491      (A : vector_signed_char)
3492    is
3493    begin
3494       mtvscr (To_LL_VSI (A));
3495    end vec_mtvscr;
3496
3497    procedure vec_mtvscr
3498      (A : vector_unsigned_char)
3499    is
3500    begin
3501       mtvscr (To_LL_VSI (A));
3502    end vec_mtvscr;
3503
3504    procedure vec_mtvscr
3505      (A : vector_bool_char)
3506    is
3507    begin
3508       mtvscr (To_LL_VSI (A));
3509    end vec_mtvscr;
3510
3511    -- vec_mule --
3512
3513    function vec_mule
3514      (A : vector_unsigned_char;
3515       B : vector_unsigned_char) return vector_unsigned_short
3516    is
3517    begin
3518       return To_LL_VUS (vmuleub (To_LL_VSC (A), To_LL_VSC (B)));
3519    end vec_mule;
3520
3521    function vec_mule
3522      (A : vector_signed_char;
3523       B : vector_signed_char) return vector_signed_short
3524    is
3525    begin
3526       return To_LL_VSS (vmulesb (To_LL_VSC (A), To_LL_VSC (B)));
3527    end vec_mule;
3528
3529    function vec_mule
3530      (A : vector_unsigned_short;
3531       B : vector_unsigned_short) return vector_unsigned_int
3532    is
3533    begin
3534       return To_LL_VUI (vmuleuh (To_LL_VSS (A), To_LL_VSS (B)));
3535    end vec_mule;
3536
3537    function vec_mule
3538      (A : vector_signed_short;
3539       B : vector_signed_short) return vector_signed_int
3540    is
3541    begin
3542       return To_LL_VSI (vmulesh (To_LL_VSS (A), To_LL_VSS (B)));
3543    end vec_mule;
3544
3545    -- vec_vmulesh --
3546
3547    function vec_vmulesh
3548      (A : vector_signed_short;
3549       B : vector_signed_short) return vector_signed_int
3550    is
3551    begin
3552       return To_LL_VSI (vmulesh (To_LL_VSS (A), To_LL_VSS (B)));
3553    end vec_vmulesh;
3554
3555    -- vec_vmuleuh --
3556
3557    function vec_vmuleuh
3558      (A : vector_unsigned_short;
3559       B : vector_unsigned_short) return vector_unsigned_int
3560    is
3561    begin
3562       return To_LL_VUI (vmuleuh (To_LL_VSS (A), To_LL_VSS (B)));
3563    end vec_vmuleuh;
3564
3565    -- vec_vmulesb --
3566
3567    function vec_vmulesb
3568      (A : vector_signed_char;
3569       B : vector_signed_char) return vector_signed_short
3570    is
3571    begin
3572       return To_LL_VSS (vmuleub (To_LL_VSC (A), To_LL_VSC (B)));
3573    end vec_vmulesb;
3574
3575    -- vec_vmuleub --
3576
3577    function vec_vmuleub
3578      (A : vector_unsigned_char;
3579       B : vector_unsigned_char) return vector_unsigned_short
3580    is
3581    begin
3582       return To_LL_VUS (vmuleub (To_LL_VSC (A), To_LL_VSC (B)));
3583    end vec_vmuleub;
3584
3585    -- vec_mulo --
3586
3587    function vec_mulo
3588      (A : vector_unsigned_char;
3589       B : vector_unsigned_char) return vector_unsigned_short
3590    is
3591    begin
3592       return To_LL_VUS (vmuloub (To_LL_VSC (A), To_LL_VSC (B)));
3593    end vec_mulo;
3594
3595    function vec_mulo
3596      (A : vector_signed_char;
3597       B : vector_signed_char) return vector_signed_short
3598    is
3599    begin
3600       return To_LL_VSS (vmulosb (To_LL_VSC (A), To_LL_VSC (B)));
3601    end vec_mulo;
3602
3603    function vec_mulo
3604      (A : vector_unsigned_short;
3605       B : vector_unsigned_short) return vector_unsigned_int
3606    is
3607    begin
3608       return To_LL_VUI (vmulouh (To_LL_VSS (A), To_LL_VSS (B)));
3609    end vec_mulo;
3610
3611    function vec_mulo
3612      (A : vector_signed_short;
3613       B : vector_signed_short) return vector_signed_int
3614    is
3615    begin
3616       return To_LL_VSI (vmulosh (To_LL_VSS (A), To_LL_VSS (B)));
3617    end vec_mulo;
3618
3619    -- vec_vmulosh --
3620
3621    function vec_vmulosh
3622      (A : vector_signed_short;
3623       B : vector_signed_short) return vector_signed_int
3624    is
3625    begin
3626       return To_LL_VSI (vmulosh (To_LL_VSS (A), To_LL_VSS (B)));
3627    end vec_vmulosh;
3628
3629    -- vec_vmulouh --
3630
3631    function vec_vmulouh
3632      (A : vector_unsigned_short;
3633       B : vector_unsigned_short) return vector_unsigned_int
3634    is
3635    begin
3636       return To_LL_VUI (vmulouh (To_LL_VSS (A), To_LL_VSS (B)));
3637    end vec_vmulouh;
3638
3639    -- vec_vmulosb --
3640
3641    function vec_vmulosb
3642      (A : vector_signed_char;
3643       B : vector_signed_char) return vector_signed_short
3644    is
3645    begin
3646       return To_LL_VSS (vmulosb (To_LL_VSC (A), To_LL_VSC (B)));
3647    end vec_vmulosb;
3648
3649    -- vec_vmuloub --
3650
3651    function vec_vmuloub
3652      (A : vector_unsigned_char;
3653       B : vector_unsigned_char) return vector_unsigned_short
3654    is
3655    begin
3656       return To_LL_VUS (vmuloub (To_LL_VSC (A), To_LL_VSC (B)));
3657    end vec_vmuloub;
3658
3659    -- vec_nmsub --
3660
3661    function vec_nmsub
3662      (A : vector_float;
3663       B : vector_float;
3664       C : vector_float) return vector_float
3665    is
3666    begin
3667       return To_LL_VF (vnmsubfp (To_LL_VF (A), To_LL_VF (B), To_LL_VF (C)));
3668    end vec_nmsub;
3669
3670    -- vec_nor --
3671
3672    function vec_nor
3673      (A : vector_float;
3674       B : vector_float) return vector_float
3675    is
3676    begin
3677       return To_LL_VF (vnor (To_LL_VSI (A), To_LL_VSI (B)));
3678    end vec_nor;
3679
3680    function vec_nor
3681      (A : vector_signed_int;
3682       B : vector_signed_int) return vector_signed_int
3683    is
3684    begin
3685       return To_LL_VSI (vnor (To_LL_VSI (A), To_LL_VSI (B)));
3686    end vec_nor;
3687
3688    function vec_nor
3689      (A : vector_unsigned_int;
3690       B : vector_unsigned_int) return vector_unsigned_int
3691    is
3692    begin
3693       return To_LL_VUI (vnor (To_LL_VSI (A), To_LL_VSI (B)));
3694    end vec_nor;
3695
3696    function vec_nor
3697      (A : vector_bool_int;
3698       B : vector_bool_int) return vector_bool_int
3699    is
3700    begin
3701       return To_LL_VBI (vnor (To_LL_VSI (A), To_LL_VSI (B)));
3702    end vec_nor;
3703
3704    function vec_nor
3705      (A : vector_signed_short;
3706       B : vector_signed_short) return vector_signed_short
3707    is
3708    begin
3709       return To_LL_VSS (vnor (To_LL_VSI (A), To_LL_VSI (B)));
3710    end vec_nor;
3711
3712    function vec_nor
3713      (A : vector_unsigned_short;
3714       B : vector_unsigned_short) return vector_unsigned_short
3715    is
3716    begin
3717       return To_LL_VUS (vnor (To_LL_VSI (A), To_LL_VSI (B)));
3718    end vec_nor;
3719
3720    function vec_nor
3721      (A : vector_bool_short;
3722       B : vector_bool_short) return vector_bool_short
3723    is
3724    begin
3725       return To_LL_VBS (vnor (To_LL_VSI (A), To_LL_VSI (B)));
3726    end vec_nor;
3727
3728    function vec_nor
3729      (A : vector_signed_char;
3730       B : vector_signed_char) return vector_signed_char
3731    is
3732    begin
3733       return To_LL_VSC (vnor (To_LL_VSI (A), To_LL_VSI (B)));
3734    end vec_nor;
3735
3736    function vec_nor
3737      (A : vector_unsigned_char;
3738       B : vector_unsigned_char) return vector_unsigned_char
3739    is
3740    begin
3741       return To_LL_VUC (vnor (To_LL_VSI (A), To_LL_VSI (B)));
3742    end vec_nor;
3743
3744    function vec_nor
3745      (A : vector_bool_char;
3746       B : vector_bool_char) return vector_bool_char
3747    is
3748    begin
3749       return To_LL_VBC (vnor (To_LL_VSI (A), To_LL_VSI (B)));
3750    end vec_nor;
3751
3752    -- vec_or --
3753
3754    function vec_or
3755      (A : vector_float;
3756       B : vector_float) return vector_float
3757    is
3758    begin
3759       return To_LL_VF (vor (To_LL_VSI (A), To_LL_VSI (B)));
3760    end vec_or;
3761
3762    function vec_or
3763      (A : vector_float;
3764       B : vector_bool_int) return vector_float
3765    is
3766    begin
3767       return To_LL_VF (vor (To_LL_VSI (A), To_LL_VSI (B)));
3768    end vec_or;
3769
3770    function vec_or
3771      (A : vector_bool_int;
3772       B : vector_float) return vector_float
3773    is
3774    begin
3775       return To_LL_VF (vor (To_LL_VSI (A), To_LL_VSI (B)));
3776    end vec_or;
3777
3778    function vec_or
3779      (A : vector_bool_int;
3780       B : vector_bool_int) return vector_bool_int
3781    is
3782    begin
3783       return To_LL_VBI (vor (To_LL_VSI (A), To_LL_VSI (B)));
3784    end vec_or;
3785
3786    function vec_or
3787      (A : vector_bool_int;
3788       B : vector_signed_int) return vector_signed_int
3789    is
3790    begin
3791       return To_LL_VSI (vor (To_LL_VSI (A), To_LL_VSI (B)));
3792    end vec_or;
3793
3794    function vec_or
3795      (A : vector_signed_int;
3796       B : vector_bool_int) return vector_signed_int
3797    is
3798    begin
3799       return To_LL_VSI (vor (To_LL_VSI (A), To_LL_VSI (B)));
3800    end vec_or;
3801
3802    function vec_or
3803      (A : vector_signed_int;
3804       B : vector_signed_int) return vector_signed_int
3805    is
3806    begin
3807       return To_LL_VSI (vor (To_LL_VSI (A), To_LL_VSI (B)));
3808    end vec_or;
3809
3810    function vec_or
3811      (A : vector_bool_int;
3812       B : vector_unsigned_int) return vector_unsigned_int
3813    is
3814    begin
3815       return To_LL_VUI (vor (To_LL_VSI (A), To_LL_VSI (B)));
3816    end vec_or;
3817
3818    function vec_or
3819      (A : vector_unsigned_int;
3820       B : vector_bool_int) return vector_unsigned_int
3821    is
3822    begin
3823       return To_LL_VUI (vor (To_LL_VSI (A), To_LL_VSI (B)));
3824    end vec_or;
3825
3826    function vec_or
3827      (A : vector_unsigned_int;
3828       B : vector_unsigned_int) return vector_unsigned_int
3829    is
3830    begin
3831       return To_LL_VUI (vor (To_LL_VSI (A), To_LL_VSI (B)));
3832    end vec_or;
3833
3834    function vec_or
3835      (A : vector_bool_short;
3836       B : vector_bool_short) return vector_bool_short
3837    is
3838    begin
3839       return To_LL_VBS (vor (To_LL_VSI (A), To_LL_VSI (B)));
3840    end vec_or;
3841
3842    function vec_or
3843      (A : vector_bool_short;
3844       B : vector_signed_short) return vector_signed_short
3845    is
3846    begin
3847       return To_LL_VSS (vor (To_LL_VSI (A), To_LL_VSI (B)));
3848    end vec_or;
3849
3850    function vec_or
3851      (A : vector_signed_short;
3852       B : vector_bool_short) return vector_signed_short
3853    is
3854    begin
3855       return To_LL_VSS (vor (To_LL_VSI (A), To_LL_VSI (B)));
3856    end vec_or;
3857
3858    function vec_or
3859      (A : vector_signed_short;
3860       B : vector_signed_short) return vector_signed_short
3861    is
3862    begin
3863       return To_LL_VSS (vor (To_LL_VSI (A), To_LL_VSI (B)));
3864    end vec_or;
3865
3866    function vec_or
3867      (A : vector_bool_short;
3868       B : vector_unsigned_short) return vector_unsigned_short
3869    is
3870    begin
3871       return To_LL_VUS (vor (To_LL_VSI (A), To_LL_VSI (B)));
3872    end vec_or;
3873
3874    function vec_or
3875      (A : vector_unsigned_short;
3876       B : vector_bool_short) return vector_unsigned_short
3877    is
3878    begin
3879       return To_LL_VUS (vor (To_LL_VSI (A), To_LL_VSI (B)));
3880    end vec_or;
3881
3882    function vec_or
3883      (A : vector_unsigned_short;
3884       B : vector_unsigned_short) return vector_unsigned_short
3885    is
3886    begin
3887       return To_LL_VUS (vor (To_LL_VSI (A), To_LL_VSI (B)));
3888    end vec_or;
3889
3890    function vec_or
3891      (A : vector_bool_char;
3892       B : vector_signed_char) return vector_signed_char
3893    is
3894    begin
3895       return To_LL_VSC (vor (To_LL_VSI (A), To_LL_VSI (B)));
3896    end vec_or;
3897
3898    function vec_or
3899      (A : vector_bool_char;
3900       B : vector_bool_char) return vector_bool_char
3901    is
3902    begin
3903       return To_LL_VBC (vor (To_LL_VSI (A), To_LL_VSI (B)));
3904    end vec_or;
3905
3906    function vec_or
3907      (A : vector_signed_char;
3908       B : vector_bool_char) return vector_signed_char
3909    is
3910    begin
3911       return To_LL_VSC (vor (To_LL_VSI (A), To_LL_VSI (B)));
3912    end vec_or;
3913
3914    function vec_or
3915      (A : vector_signed_char;
3916       B : vector_signed_char) return vector_signed_char
3917    is
3918    begin
3919       return To_LL_VSC (vor (To_LL_VSI (A), To_LL_VSI (B)));
3920    end vec_or;
3921
3922    function vec_or
3923      (A : vector_bool_char;
3924       B : vector_unsigned_char) return vector_unsigned_char
3925    is
3926    begin
3927       return To_LL_VUC (vor (To_LL_VSI (A), To_LL_VSI (B)));
3928    end vec_or;
3929
3930    function vec_or
3931      (A : vector_unsigned_char;
3932       B : vector_bool_char) return vector_unsigned_char
3933    is
3934    begin
3935       return To_LL_VUC (vor (To_LL_VSI (A), To_LL_VSI (B)));
3936    end vec_or;
3937
3938    function vec_or
3939      (A : vector_unsigned_char;
3940       B : vector_unsigned_char) return vector_unsigned_char
3941    is
3942    begin
3943       return To_LL_VUC (vor (To_LL_VSI (A), To_LL_VSI (B)));
3944    end vec_or;
3945
3946    -- vec_pack --
3947
3948    function vec_pack
3949      (A : vector_signed_short;
3950       B : vector_signed_short) return vector_signed_char
3951    is
3952    begin
3953       return To_LL_VSC (vpkuhum (To_LL_VSS (A), To_LL_VSS (B)));
3954    end vec_pack;
3955
3956    function vec_pack
3957      (A : vector_unsigned_short;
3958       B : vector_unsigned_short) return vector_unsigned_char
3959    is
3960    begin
3961       return To_LL_VUC (vpkuhum (To_LL_VSS (A), To_LL_VSS (B)));
3962    end vec_pack;
3963
3964    function vec_pack
3965      (A : vector_bool_short;
3966       B : vector_bool_short) return vector_bool_char
3967    is
3968    begin
3969       return To_LL_VBC (vpkuhum (To_LL_VSS (A), To_LL_VSS (B)));
3970    end vec_pack;
3971
3972    function vec_pack
3973      (A : vector_signed_int;
3974       B : vector_signed_int) return vector_signed_short
3975    is
3976    begin
3977       return To_LL_VSS (vpkuwum (To_LL_VSI (A), To_LL_VSI (B)));
3978    end vec_pack;
3979
3980    function vec_pack
3981      (A : vector_unsigned_int;
3982       B : vector_unsigned_int) return vector_unsigned_short
3983    is
3984    begin
3985       return To_LL_VUS (vpkuwum (To_LL_VSI (A), To_LL_VSI (B)));
3986    end vec_pack;
3987
3988    function vec_pack
3989      (A : vector_bool_int;
3990       B : vector_bool_int) return vector_bool_short
3991    is
3992    begin
3993       return To_LL_VBS (vpkuwum (To_LL_VSI (A), To_LL_VSI (B)));
3994    end vec_pack;
3995
3996    -- vec_vpkuwum --
3997
3998    function vec_vpkuwum
3999      (A : vector_bool_int;
4000       B : vector_bool_int) return vector_bool_short
4001    is
4002    begin
4003       return To_LL_VBS (vpkuwum (To_LL_VSI (A), To_LL_VSI (B)));
4004    end vec_vpkuwum;
4005
4006    function vec_vpkuwum
4007      (A : vector_signed_int;
4008       B : vector_signed_int) return vector_signed_short
4009    is
4010    begin
4011       return To_LL_VSS (vpkuwum (To_LL_VSI (A), To_LL_VSI (B)));
4012    end vec_vpkuwum;
4013
4014    function vec_vpkuwum
4015      (A : vector_unsigned_int;
4016       B : vector_unsigned_int) return vector_unsigned_short
4017    is
4018    begin
4019       return To_LL_VUS (vpkuwum (To_LL_VSI (A), To_LL_VSI (B)));
4020    end vec_vpkuwum;
4021
4022    -- vec_vpkuhum --
4023
4024    function vec_vpkuhum
4025      (A : vector_bool_short;
4026       B : vector_bool_short) return vector_bool_char
4027    is
4028    begin
4029       return To_LL_VBC (vpkuhum (To_LL_VSS (A), To_LL_VSS (B)));
4030    end vec_vpkuhum;
4031
4032    function vec_vpkuhum
4033      (A : vector_signed_short;
4034       B : vector_signed_short) return vector_signed_char
4035    is
4036    begin
4037       return To_LL_VSC (vpkuhum (To_LL_VSS (A), To_LL_VSS (B)));
4038    end vec_vpkuhum;
4039
4040    function vec_vpkuhum
4041      (A : vector_unsigned_short;
4042       B : vector_unsigned_short) return vector_unsigned_char
4043    is
4044    begin
4045       return To_LL_VUC (vpkuhum (To_LL_VSS (A), To_LL_VSS (B)));
4046    end vec_vpkuhum;
4047
4048    -- vec_packpx --
4049
4050    function vec_packpx
4051      (A : vector_unsigned_int;
4052       B : vector_unsigned_int) return vector_pixel
4053    is
4054    begin
4055       return To_LL_VP (vpkpx (To_LL_VSI (A), To_LL_VSI (B)));
4056    end vec_packpx;
4057
4058    -- vec_packs --
4059
4060    function vec_packs
4061      (A : vector_unsigned_short;
4062       B : vector_unsigned_short) return vector_unsigned_char
4063    is
4064    begin
4065       return To_LL_VUC (vpkuhus (To_LL_VSS (A), To_LL_VSS (B)));
4066    end vec_packs;
4067
4068    function vec_packs
4069      (A : vector_signed_short;
4070       B : vector_signed_short) return vector_signed_char
4071    is
4072    begin
4073       return To_LL_VSC (vpkshss (To_LL_VSS (A), To_LL_VSS (B)));
4074    end vec_packs;
4075
4076    function vec_packs
4077      (A : vector_unsigned_int;
4078       B : vector_unsigned_int) return vector_unsigned_short
4079    is
4080    begin
4081       return To_LL_VUS (vpkuwus (To_LL_VSI (A), To_LL_VSI (B)));
4082    end vec_packs;
4083
4084    function vec_packs
4085      (A : vector_signed_int;
4086       B : vector_signed_int) return vector_signed_short
4087    is
4088    begin
4089       return To_LL_VSS (vpkswss (To_LL_VSI (A), To_LL_VSI (B)));
4090    end vec_packs;
4091
4092    -- vec_vpkswss --
4093
4094    function vec_vpkswss
4095      (A : vector_signed_int;
4096       B : vector_signed_int) return vector_signed_short
4097    is
4098    begin
4099       return To_LL_VSS (vpkswss (To_LL_VSI (A), To_LL_VSI (B)));
4100    end vec_vpkswss;
4101
4102    -- vec_vpkuwus --
4103
4104    function vec_vpkuwus
4105      (A : vector_unsigned_int;
4106       B : vector_unsigned_int) return vector_unsigned_short
4107    is
4108    begin
4109       return To_LL_VUS (vpkuwus (To_LL_VSI (A), To_LL_VSI (B)));
4110    end vec_vpkuwus;
4111
4112    -- vec_vpkshss --
4113
4114    function vec_vpkshss
4115      (A : vector_signed_short;
4116       B : vector_signed_short) return vector_signed_char
4117    is
4118    begin
4119       return To_LL_VSC (vpkshss (To_LL_VSS (A), To_LL_VSS (B)));
4120    end vec_vpkshss;
4121
4122    -- vec_vpkuhus --
4123
4124    function vec_vpkuhus
4125      (A : vector_unsigned_short;
4126       B : vector_unsigned_short) return vector_unsigned_char
4127    is
4128    begin
4129       return To_LL_VUC (vpkuhus (To_LL_VSS (A), To_LL_VSS (B)));
4130    end vec_vpkuhus;
4131
4132    -- vec_packsu --
4133
4134    function vec_packsu
4135      (A : vector_unsigned_short;
4136       B : vector_unsigned_short) return vector_unsigned_char
4137    is
4138    begin
4139       return To_LL_VUC (vpkuhus (To_LL_VSS (A), To_LL_VSS (B)));
4140    end vec_packsu;
4141
4142    function vec_packsu
4143      (A : vector_signed_short;
4144       B : vector_signed_short) return vector_unsigned_char
4145    is
4146    begin
4147       return To_LL_VUC (vpkshus (To_LL_VSS (A), To_LL_VSS (B)));
4148    end vec_packsu;
4149
4150    function vec_packsu
4151      (A : vector_unsigned_int;
4152       B : vector_unsigned_int) return vector_unsigned_short
4153    is
4154    begin
4155       return To_LL_VUS (vpkuwus (To_LL_VSI (A), To_LL_VSI (B)));
4156    end vec_packsu;
4157
4158    function vec_packsu
4159      (A : vector_signed_int;
4160       B : vector_signed_int) return vector_unsigned_short
4161    is
4162    begin
4163       return To_LL_VUS (vpkswus (To_LL_VSI (A), To_LL_VSI (B)));
4164    end vec_packsu;
4165
4166    -- vec_vpkswus --
4167
4168    function vec_vpkswus
4169      (A : vector_signed_int;
4170       B : vector_signed_int) return vector_unsigned_short
4171    is
4172    begin
4173       return To_LL_VUS (vpkswus (To_LL_VSI (A), To_LL_VSI (B)));
4174    end vec_vpkswus;
4175
4176    -- vec_vpkshus --
4177
4178    function vec_vpkshus
4179      (A : vector_signed_short;
4180       B : vector_signed_short) return vector_unsigned_char
4181    is
4182    begin
4183       return To_LL_VUC (vpkshus (To_LL_VSS (A), To_LL_VSS (B)));
4184    end vec_vpkshus;
4185
4186    -- vec_perm --
4187
4188    function vec_perm
4189      (A : vector_float;
4190       B : vector_float;
4191       C : vector_unsigned_char) return vector_float
4192    is
4193    begin
4194       return
4195         To_LL_VF (vperm_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSC (C)));
4196    end vec_perm;
4197
4198    function vec_perm
4199      (A : vector_signed_int;
4200       B : vector_signed_int;
4201       C : vector_unsigned_char) return vector_signed_int
4202    is
4203    begin
4204       return
4205         To_LL_VSI (vperm_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSC (C)));
4206    end vec_perm;
4207
4208    function vec_perm
4209      (A : vector_unsigned_int;
4210       B : vector_unsigned_int;
4211       C : vector_unsigned_char) return vector_unsigned_int
4212    is
4213    begin
4214       return
4215         To_LL_VUI (vperm_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSC (C)));
4216    end vec_perm;
4217
4218    function vec_perm
4219      (A : vector_bool_int;
4220       B : vector_bool_int;
4221       C : vector_unsigned_char) return vector_bool_int
4222    is
4223    begin
4224       return
4225         To_LL_VBI (vperm_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSC (C)));
4226    end vec_perm;
4227
4228    function vec_perm
4229      (A : vector_signed_short;
4230       B : vector_signed_short;
4231       C : vector_unsigned_char) return vector_signed_short
4232    is
4233    begin
4234       return
4235         To_LL_VSS (vperm_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSC (C)));
4236    end vec_perm;
4237
4238    function vec_perm
4239      (A : vector_unsigned_short;
4240       B : vector_unsigned_short;
4241       C : vector_unsigned_char) return vector_unsigned_short
4242    is
4243    begin
4244       return
4245         To_LL_VUS (vperm_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSC (C)));
4246    end vec_perm;
4247
4248    function vec_perm
4249      (A : vector_bool_short;
4250       B : vector_bool_short;
4251       C : vector_unsigned_char) return vector_bool_short
4252    is
4253    begin
4254       return
4255         To_LL_VBS (vperm_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSC (C)));
4256    end vec_perm;
4257
4258    function vec_perm
4259      (A : vector_pixel;
4260       B : vector_pixel;
4261       C : vector_unsigned_char) return vector_pixel
4262    is
4263    begin
4264       return To_LL_VP
4265         (vperm_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSC (C)));
4266    end vec_perm;
4267
4268    function vec_perm
4269      (A : vector_signed_char;
4270       B : vector_signed_char;
4271       C : vector_unsigned_char) return vector_signed_char
4272    is
4273    begin
4274       return To_LL_VSC
4275         (vperm_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSC (C)));
4276    end vec_perm;
4277
4278    function vec_perm
4279      (A : vector_unsigned_char;
4280       B : vector_unsigned_char;
4281       C : vector_unsigned_char) return vector_unsigned_char
4282    is
4283    begin
4284       return
4285         To_LL_VUC (vperm_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSC (C)));
4286    end vec_perm;
4287
4288    function vec_perm
4289      (A : vector_bool_char;
4290       B : vector_bool_char;
4291       C : vector_unsigned_char) return vector_bool_char
4292    is
4293    begin
4294       return
4295         To_LL_VBC (vperm_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSC (C)));
4296    end vec_perm;
4297
4298    -- vec_re --
4299
4300    function vec_re
4301      (A : vector_float) return vector_float
4302    is
4303    begin
4304       return To_LL_VF (vrefp (To_LL_VF (A)));
4305    end vec_re;
4306
4307    -- vec_rl --
4308
4309    function vec_rl
4310      (A : vector_signed_char;
4311       B : vector_unsigned_char) return vector_signed_char
4312    is
4313    begin
4314       return To_LL_VSC (vrlb (To_LL_VSC (A), To_LL_VSC (B)));
4315    end vec_rl;
4316
4317    function vec_rl
4318      (A : vector_unsigned_char;
4319       B : vector_unsigned_char) return vector_unsigned_char
4320    is
4321    begin
4322       return To_LL_VUC (vrlb (To_LL_VSC (A), To_LL_VSC (B)));
4323    end vec_rl;
4324
4325    function vec_rl
4326      (A : vector_signed_short;
4327       B : vector_unsigned_short) return vector_signed_short
4328    is
4329    begin
4330       return To_LL_VSS (vrlh (To_LL_VSS (A), To_LL_VSS (B)));
4331    end vec_rl;
4332
4333    function vec_rl
4334      (A : vector_unsigned_short;
4335       B : vector_unsigned_short) return vector_unsigned_short
4336    is
4337    begin
4338       return To_LL_VUS (vrlh (To_LL_VSS (A), To_LL_VSS (B)));
4339    end vec_rl;
4340
4341    function vec_rl
4342      (A : vector_signed_int;
4343       B : vector_unsigned_int) return vector_signed_int
4344    is
4345    begin
4346       return To_LL_VSI (vrlw (To_LL_VSI (A), To_LL_VSI (B)));
4347    end vec_rl;
4348
4349    function vec_rl
4350      (A : vector_unsigned_int;
4351       B : vector_unsigned_int) return vector_unsigned_int
4352    is
4353    begin
4354       return To_LL_VUI (vrlw (To_LL_VSI (A), To_LL_VSI (B)));
4355    end vec_rl;
4356
4357    -- vec_vrlw --
4358
4359    function vec_vrlw
4360      (A : vector_signed_int;
4361       B : vector_unsigned_int) return vector_signed_int
4362    is
4363    begin
4364       return To_LL_VSI (vrlw (To_LL_VSI (A), To_LL_VSI (B)));
4365    end vec_vrlw;
4366
4367    function vec_vrlw
4368      (A : vector_unsigned_int;
4369       B : vector_unsigned_int) return vector_unsigned_int
4370    is
4371    begin
4372       return To_LL_VUI (vrlw (To_LL_VSI (A), To_LL_VSI (B)));
4373    end vec_vrlw;
4374
4375    -- vec_vrlh --
4376
4377    function vec_vrlh
4378      (A : vector_signed_short;
4379       B : vector_unsigned_short) return vector_signed_short
4380    is
4381    begin
4382       return To_LL_VSS (vrlh (To_LL_VSS (A), To_LL_VSS (B)));
4383    end vec_vrlh;
4384
4385    function vec_vrlh
4386      (A : vector_unsigned_short;
4387       B : vector_unsigned_short) return vector_unsigned_short
4388    is
4389    begin
4390       return To_LL_VUS (vrlh (To_LL_VSS (A), To_LL_VSS (B)));
4391    end vec_vrlh;
4392
4393    -- vec_vrlb --
4394
4395    function vec_vrlb
4396      (A : vector_signed_char;
4397       B : vector_unsigned_char) return vector_signed_char
4398    is
4399    begin
4400       return To_LL_VSC (vrlb (To_LL_VSC (A), To_LL_VSC (B)));
4401    end vec_vrlb;
4402
4403    function vec_vrlb
4404      (A : vector_unsigned_char;
4405       B : vector_unsigned_char) return vector_unsigned_char
4406    is
4407    begin
4408       return To_LL_VUC (vrlb (To_LL_VSC (A), To_LL_VSC (B)));
4409    end vec_vrlb;
4410
4411    -- vec_round --
4412
4413    function vec_round
4414      (A : vector_float) return vector_float
4415    is
4416    begin
4417       return To_LL_VF (vrfin (To_LL_VF (A)));
4418    end vec_round;
4419
4420    -- vec_rsqrte --
4421
4422    function vec_rsqrte
4423      (A : vector_float) return vector_float
4424    is
4425    begin
4426       return To_LL_VF (vrsqrtefp (To_LL_VF (A)));
4427    end vec_rsqrte;
4428
4429    -- vec_sel --
4430
4431    function vec_sel
4432      (A : vector_float;
4433       B : vector_float;
4434       C : vector_bool_int) return vector_float
4435    is
4436    begin
4437       return To_LL_VF (vsel_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSI (C)));
4438    end vec_sel;
4439
4440    function vec_sel
4441      (A : vector_float;
4442       B : vector_float;
4443       C : vector_unsigned_int) return vector_float
4444    is
4445    begin
4446       return To_LL_VF (vsel_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSI (C)));
4447    end vec_sel;
4448
4449    function vec_sel
4450      (A : vector_signed_int;
4451       B : vector_signed_int;
4452       C : vector_bool_int) return vector_signed_int
4453    is
4454    begin
4455       return
4456         To_LL_VSI (vsel_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSI (C)));
4457    end vec_sel;
4458
4459    function vec_sel
4460      (A : vector_signed_int;
4461       B : vector_signed_int;
4462       C : vector_unsigned_int) return vector_signed_int
4463    is
4464    begin
4465       return
4466         To_LL_VSI (vsel_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSI (C)));
4467    end vec_sel;
4468
4469    function vec_sel
4470      (A : vector_unsigned_int;
4471       B : vector_unsigned_int;
4472       C : vector_bool_int) return vector_unsigned_int
4473    is
4474    begin
4475       return
4476         To_LL_VUI (vsel_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSI (C)));
4477    end vec_sel;
4478
4479    function vec_sel
4480      (A : vector_unsigned_int;
4481       B : vector_unsigned_int;
4482       C : vector_unsigned_int) return vector_unsigned_int
4483    is
4484    begin
4485       return
4486         To_LL_VUI (vsel_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSI (C)));
4487    end vec_sel;
4488
4489    function vec_sel
4490      (A : vector_bool_int;
4491       B : vector_bool_int;
4492       C : vector_bool_int) return vector_bool_int
4493    is
4494    begin
4495       return
4496         To_LL_VBI (vsel_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSI (C)));
4497    end vec_sel;
4498
4499    function vec_sel
4500      (A : vector_bool_int;
4501       B : vector_bool_int;
4502       C : vector_unsigned_int) return vector_bool_int
4503    is
4504    begin
4505       return
4506         To_LL_VBI (vsel_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSI (C)));
4507    end vec_sel;
4508
4509    function vec_sel
4510      (A : vector_signed_short;
4511       B : vector_signed_short;
4512       C : vector_bool_short) return vector_signed_short
4513    is
4514    begin
4515       return
4516         To_LL_VSS (vsel_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSI (C)));
4517    end vec_sel;
4518
4519    function vec_sel
4520      (A : vector_signed_short;
4521       B : vector_signed_short;
4522       C : vector_unsigned_short) return vector_signed_short
4523    is
4524    begin
4525       return
4526         To_LL_VSS (vsel_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSI (C)));
4527    end vec_sel;
4528
4529    function vec_sel
4530      (A : vector_unsigned_short;
4531       B : vector_unsigned_short;
4532       C : vector_bool_short) return vector_unsigned_short
4533    is
4534    begin
4535       return
4536         To_LL_VUS (vsel_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSI (C)));
4537    end vec_sel;
4538
4539    function vec_sel
4540      (A : vector_unsigned_short;
4541       B : vector_unsigned_short;
4542       C : vector_unsigned_short) return vector_unsigned_short
4543    is
4544    begin
4545       return
4546         To_LL_VUS (vsel_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSI (C)));
4547    end vec_sel;
4548
4549    function vec_sel
4550      (A : vector_bool_short;
4551       B : vector_bool_short;
4552       C : vector_bool_short) return vector_bool_short
4553    is
4554    begin
4555       return
4556         To_LL_VBS (vsel_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSI (C)));
4557    end vec_sel;
4558
4559    function vec_sel
4560      (A : vector_bool_short;
4561       B : vector_bool_short;
4562       C : vector_unsigned_short) return vector_bool_short
4563    is
4564    begin
4565       return
4566         To_LL_VBS (vsel_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSI (C)));
4567    end vec_sel;
4568
4569    function vec_sel
4570      (A : vector_signed_char;
4571       B : vector_signed_char;
4572       C : vector_bool_char) return vector_signed_char
4573    is
4574    begin
4575       return
4576         To_LL_VSC (vsel_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSI (C)));
4577    end vec_sel;
4578
4579    function vec_sel
4580      (A : vector_signed_char;
4581       B : vector_signed_char;
4582       C : vector_unsigned_char) return vector_signed_char
4583    is
4584    begin
4585       return
4586         To_LL_VSC (vsel_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSI (C)));
4587    end vec_sel;
4588
4589    function vec_sel
4590      (A : vector_unsigned_char;
4591       B : vector_unsigned_char;
4592       C : vector_bool_char) return vector_unsigned_char
4593    is
4594    begin
4595       return
4596         To_LL_VUC (vsel_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSI (C)));
4597    end vec_sel;
4598
4599    function vec_sel
4600      (A : vector_unsigned_char;
4601       B : vector_unsigned_char;
4602       C : vector_unsigned_char) return vector_unsigned_char
4603    is
4604    begin
4605       return
4606         To_LL_VUC (vsel_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSI (C)));
4607    end vec_sel;
4608
4609    function vec_sel
4610      (A : vector_bool_char;
4611       B : vector_bool_char;
4612       C : vector_bool_char) return vector_bool_char
4613    is
4614    begin
4615       return
4616         To_LL_VBC (vsel_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSI (C)));
4617    end vec_sel;
4618
4619    function vec_sel
4620      (A : vector_bool_char;
4621       B : vector_bool_char;
4622       C : vector_unsigned_char) return vector_bool_char
4623    is
4624    begin
4625       return
4626         To_LL_VBC (vsel_4si (To_LL_VSI (A), To_LL_VSI (B), To_LL_VSI (C)));
4627    end vec_sel;
4628
4629    -- vec_sl --
4630
4631    function vec_sl
4632      (A : vector_signed_char;
4633       B : vector_unsigned_char) return vector_signed_char
4634    is
4635    begin
4636       return To_LL_VSC (vslb (To_LL_VSC (A), To_LL_VSC (B)));
4637    end vec_sl;
4638
4639    function vec_sl
4640      (A : vector_unsigned_char;
4641       B : vector_unsigned_char) return vector_unsigned_char
4642    is
4643    begin
4644       return To_LL_VUC (vslb (To_LL_VSC (A), To_LL_VSC (B)));
4645    end vec_sl;
4646
4647    function vec_sl
4648      (A : vector_signed_short;
4649       B : vector_unsigned_short) return vector_signed_short
4650    is
4651    begin
4652       return To_LL_VSS (vslh (To_LL_VSS (A), To_LL_VSS (B)));
4653    end vec_sl;
4654
4655    function vec_sl
4656      (A : vector_unsigned_short;
4657       B : vector_unsigned_short) return vector_unsigned_short
4658    is
4659    begin
4660       return To_LL_VUS (vslh (To_LL_VSS (A), To_LL_VSS (B)));
4661    end vec_sl;
4662
4663    function vec_sl
4664      (A : vector_signed_int;
4665       B : vector_unsigned_int) return vector_signed_int
4666    is
4667    begin
4668       return To_LL_VSI (vslw (To_LL_VSI (A), To_LL_VSI (B)));
4669    end vec_sl;
4670
4671    function vec_sl
4672      (A : vector_unsigned_int;
4673       B : vector_unsigned_int) return vector_unsigned_int
4674    is
4675    begin
4676       return To_LL_VUI (vslw (To_LL_VSI (A), To_LL_VSI (B)));
4677    end vec_sl;
4678
4679    -- vec_vslw --
4680
4681    function vec_vslw
4682      (A : vector_signed_int;
4683       B : vector_unsigned_int) return vector_signed_int
4684    is
4685    begin
4686       return To_LL_VSI (vslw (To_LL_VSI (A), To_LL_VSI (B)));
4687    end vec_vslw;
4688
4689    function vec_vslw
4690      (A : vector_unsigned_int;
4691       B : vector_unsigned_int) return vector_unsigned_int
4692    is
4693    begin
4694       return To_LL_VUI (vslw (To_LL_VSI (A), To_LL_VSI (B)));
4695    end vec_vslw;
4696
4697    -- vec_vslh --
4698
4699    function vec_vslh
4700      (A : vector_signed_short;
4701       B : vector_unsigned_short) return vector_signed_short
4702    is
4703    begin
4704       return To_LL_VSS (vslh (To_LL_VSS (A), To_LL_VSS (B)));
4705    end vec_vslh;
4706
4707    function vec_vslh
4708      (A : vector_unsigned_short;
4709       B : vector_unsigned_short) return vector_unsigned_short
4710    is
4711    begin
4712       return To_LL_VUS (vslh (To_LL_VSS (A), To_LL_VSS (B)));
4713    end vec_vslh;
4714
4715    -- vec_vslb --
4716
4717    function vec_vslb
4718      (A : vector_signed_char;
4719       B : vector_unsigned_char) return vector_signed_char
4720    is
4721    begin
4722       return To_LL_VSC (vslb (To_LL_VSC (A), To_LL_VSC (B)));
4723    end vec_vslb;
4724
4725    function vec_vslb
4726      (A : vector_unsigned_char;
4727       B : vector_unsigned_char) return vector_unsigned_char
4728    is
4729    begin
4730       return To_LL_VUC (vslb (To_LL_VSC (A), To_LL_VSC (B)));
4731    end vec_vslb;
4732
4733    -- vec_sll --
4734
4735    function vec_sll
4736      (A : vector_signed_int;
4737       B : vector_unsigned_int) return vector_signed_int
4738    is
4739    begin
4740       return To_LL_VSI (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4741    end vec_sll;
4742
4743    function vec_sll
4744      (A : vector_signed_int;
4745       B : vector_unsigned_short) return vector_signed_int
4746    is
4747    begin
4748       return To_LL_VSI (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4749    end vec_sll;
4750
4751    function vec_sll
4752      (A : vector_signed_int;
4753       B : vector_unsigned_char) return vector_signed_int
4754    is
4755    begin
4756       return To_LL_VSI (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4757    end vec_sll;
4758
4759    function vec_sll
4760      (A : vector_unsigned_int;
4761       B : vector_unsigned_int) return vector_unsigned_int
4762    is
4763    begin
4764       return To_LL_VUI (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4765    end vec_sll;
4766
4767    function vec_sll
4768      (A : vector_unsigned_int;
4769       B : vector_unsigned_short) return vector_unsigned_int
4770    is
4771    begin
4772       return To_LL_VUI (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4773    end vec_sll;
4774
4775    function vec_sll
4776      (A : vector_unsigned_int;
4777       B : vector_unsigned_char) return vector_unsigned_int
4778    is
4779    begin
4780       return To_LL_VUI (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4781    end vec_sll;
4782
4783    function vec_sll
4784      (A : vector_bool_int;
4785       B : vector_unsigned_int) return vector_bool_int
4786    is
4787    begin
4788       return To_LL_VBI (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4789    end vec_sll;
4790
4791    function vec_sll
4792      (A : vector_bool_int;
4793       B : vector_unsigned_short) return vector_bool_int
4794    is
4795    begin
4796       return To_LL_VBI (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4797    end vec_sll;
4798
4799    function vec_sll
4800      (A : vector_bool_int;
4801       B : vector_unsigned_char) return vector_bool_int
4802    is
4803    begin
4804       return To_LL_VBI (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4805    end vec_sll;
4806
4807    function vec_sll
4808      (A : vector_signed_short;
4809       B : vector_unsigned_int) return vector_signed_short
4810    is
4811    begin
4812       return To_LL_VSS (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4813    end vec_sll;
4814
4815    function vec_sll
4816      (A : vector_signed_short;
4817       B : vector_unsigned_short) return vector_signed_short
4818    is
4819    begin
4820       return To_LL_VSS (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4821    end vec_sll;
4822
4823    function vec_sll
4824      (A : vector_signed_short;
4825       B : vector_unsigned_char) return vector_signed_short
4826    is
4827    begin
4828       return To_LL_VSS (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4829    end vec_sll;
4830
4831    function vec_sll
4832      (A : vector_unsigned_short;
4833       B : vector_unsigned_int) return vector_unsigned_short
4834    is
4835    begin
4836       return To_LL_VUS (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4837    end vec_sll;
4838
4839    function vec_sll
4840      (A : vector_unsigned_short;
4841       B : vector_unsigned_short) return vector_unsigned_short
4842    is
4843    begin
4844       return To_LL_VUS (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4845    end vec_sll;
4846
4847    function vec_sll
4848      (A : vector_unsigned_short;
4849       B : vector_unsigned_char) return vector_unsigned_short
4850    is
4851    begin
4852       return To_LL_VUS (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4853    end vec_sll;
4854
4855    function vec_sll
4856      (A : vector_bool_short;
4857       B : vector_unsigned_int) return vector_bool_short
4858    is
4859    begin
4860       return To_LL_VBS (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4861    end vec_sll;
4862
4863    function vec_sll
4864      (A : vector_bool_short;
4865       B : vector_unsigned_short) return vector_bool_short
4866    is
4867    begin
4868       return To_LL_VBS (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4869    end vec_sll;
4870
4871    function vec_sll
4872      (A : vector_bool_short;
4873       B : vector_unsigned_char) return vector_bool_short
4874    is
4875    begin
4876       return To_LL_VBS (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4877    end vec_sll;
4878
4879    function vec_sll
4880      (A : vector_pixel;
4881       B : vector_unsigned_int) return vector_pixel
4882    is
4883    begin
4884       return To_LL_VP (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4885    end vec_sll;
4886
4887    function vec_sll
4888      (A : vector_pixel;
4889       B : vector_unsigned_short) return vector_pixel
4890    is
4891    begin
4892       return To_LL_VP (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4893    end vec_sll;
4894
4895    function vec_sll
4896      (A : vector_pixel;
4897       B : vector_unsigned_char) return vector_pixel
4898    is
4899    begin
4900       return To_LL_VP (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4901    end vec_sll;
4902
4903    function vec_sll
4904      (A : vector_signed_char;
4905       B : vector_unsigned_int) return vector_signed_char
4906    is
4907    begin
4908       return To_LL_VSC (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4909    end vec_sll;
4910
4911    function vec_sll
4912      (A : vector_signed_char;
4913       B : vector_unsigned_short) return vector_signed_char
4914    is
4915    begin
4916       return To_LL_VSC (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4917    end vec_sll;
4918
4919    function vec_sll
4920      (A : vector_signed_char;
4921       B : vector_unsigned_char) return vector_signed_char
4922    is
4923    begin
4924       return To_LL_VSC (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4925    end vec_sll;
4926
4927    function vec_sll
4928      (A : vector_unsigned_char;
4929       B : vector_unsigned_int) return vector_unsigned_char
4930    is
4931    begin
4932       return To_LL_VUC (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4933    end vec_sll;
4934
4935    function vec_sll
4936      (A : vector_unsigned_char;
4937       B : vector_unsigned_short) return vector_unsigned_char
4938    is
4939    begin
4940       return To_LL_VUC (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4941    end vec_sll;
4942
4943    function vec_sll
4944      (A : vector_unsigned_char;
4945       B : vector_unsigned_char) return vector_unsigned_char
4946    is
4947    begin
4948       return To_LL_VUC (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4949    end vec_sll;
4950
4951    function vec_sll
4952      (A : vector_bool_char;
4953       B : vector_unsigned_int) return vector_bool_char
4954    is
4955    begin
4956       return To_LL_VBC (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4957    end vec_sll;
4958
4959    function vec_sll
4960      (A : vector_bool_char;
4961       B : vector_unsigned_short) return vector_bool_char
4962    is
4963    begin
4964       return To_LL_VBC (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4965    end vec_sll;
4966
4967    function vec_sll
4968      (A : vector_bool_char;
4969       B : vector_unsigned_char) return vector_bool_char
4970    is
4971    begin
4972       return To_LL_VBC (vsl (To_LL_VSI (A), To_LL_VSI (B)));
4973    end vec_sll;
4974
4975    -- vec_slo --
4976
4977    function vec_slo
4978      (A : vector_float;
4979       B : vector_signed_char) return vector_float
4980    is
4981    begin
4982       return To_LL_VF (vslo (To_LL_VSI (A), To_LL_VSI (B)));
4983    end vec_slo;
4984
4985    function vec_slo
4986      (A : vector_float;
4987       B : vector_unsigned_char) return vector_float
4988    is
4989    begin
4990       return To_LL_VF (vslo (To_LL_VSI (A), To_LL_VSI (B)));
4991    end vec_slo;
4992
4993    function vec_slo
4994      (A : vector_signed_int;
4995       B : vector_signed_char) return vector_signed_int
4996    is
4997    begin
4998       return To_LL_VSI (vslo (To_LL_VSI (A), To_LL_VSI (B)));
4999    end vec_slo;
5000
5001    function vec_slo
5002      (A : vector_signed_int;
5003       B : vector_unsigned_char) return vector_signed_int
5004    is
5005    begin
5006       return To_LL_VSI (vslo (To_LL_VSI (A), To_LL_VSI (B)));
5007    end vec_slo;
5008
5009    function vec_slo
5010      (A : vector_unsigned_int;
5011       B : vector_signed_char) return vector_unsigned_int
5012    is
5013    begin
5014       return To_LL_VUI (vslo (To_LL_VSI (A), To_LL_VSI (B)));
5015    end vec_slo;
5016
5017    function vec_slo
5018      (A : vector_unsigned_int;
5019       B : vector_unsigned_char) return vector_unsigned_int
5020    is
5021    begin
5022       return To_LL_VUI (vslo (To_LL_VSI (A), To_LL_VSI (B)));
5023    end vec_slo;
5024
5025    function vec_slo
5026      (A : vector_signed_short;
5027       B : vector_signed_char) return vector_signed_short
5028    is
5029    begin
5030       return To_LL_VSS (vslo (To_LL_VSI (A), To_LL_VSI (B)));
5031    end vec_slo;
5032
5033    function vec_slo
5034      (A : vector_signed_short;
5035       B : vector_unsigned_char) return vector_signed_short
5036    is
5037    begin
5038       return To_LL_VSS (vslo (To_LL_VSI (A), To_LL_VSI (B)));
5039    end vec_slo;
5040
5041    function vec_slo
5042      (A : vector_unsigned_short;
5043       B : vector_signed_char) return vector_unsigned_short
5044    is
5045    begin
5046       return To_LL_VUS (vslo (To_LL_VSI (A), To_LL_VSI (B)));
5047    end vec_slo;
5048
5049    function vec_slo
5050      (A : vector_unsigned_short;
5051       B : vector_unsigned_char) return vector_unsigned_short
5052    is
5053    begin
5054       return To_LL_VUS (vslo (To_LL_VSI (A), To_LL_VSI (B)));
5055    end vec_slo;
5056
5057    function vec_slo
5058      (A : vector_pixel;
5059       B : vector_signed_char) return vector_pixel
5060    is
5061    begin
5062       return To_LL_VP (vslo (To_LL_VSI (A), To_LL_VSI (B)));
5063    end vec_slo;
5064
5065    function vec_slo
5066      (A : vector_pixel;
5067       B : vector_unsigned_char) return vector_pixel
5068    is
5069    begin
5070       return To_LL_VP (vslo (To_LL_VSI (A), To_LL_VSI (B)));
5071    end vec_slo;
5072
5073    function vec_slo
5074      (A : vector_signed_char;
5075       B : vector_signed_char) return vector_signed_char
5076    is
5077    begin
5078       return To_LL_VSC (vslo (To_LL_VSI (A), To_LL_VSI (B)));
5079    end vec_slo;
5080
5081    function vec_slo
5082      (A : vector_signed_char;
5083       B : vector_unsigned_char) return vector_signed_char
5084    is
5085    begin
5086       return To_LL_VSC (vslo (To_LL_VSI (A), To_LL_VSI (B)));
5087    end vec_slo;
5088
5089    function vec_slo
5090      (A : vector_unsigned_char;
5091       B : vector_signed_char) return vector_unsigned_char
5092    is
5093    begin
5094       return To_LL_VUC (vslo (To_LL_VSI (A), To_LL_VSI (B)));
5095    end vec_slo;
5096
5097    function vec_slo
5098      (A : vector_unsigned_char;
5099       B : vector_unsigned_char) return vector_unsigned_char
5100    is
5101    begin
5102       return To_LL_VUC (vslo (To_LL_VSI (A), To_LL_VSI (B)));
5103    end vec_slo;
5104
5105    -- vec_sr --
5106
5107    function vec_sr
5108      (A : vector_signed_char;
5109       B : vector_unsigned_char) return vector_signed_char
5110    is
5111    begin
5112       return To_LL_VSC (vsrb (To_LL_VSC (A), To_LL_VSC (B)));
5113    end vec_sr;
5114
5115    function vec_sr
5116      (A : vector_unsigned_char;
5117       B : vector_unsigned_char) return vector_unsigned_char
5118    is
5119    begin
5120       return To_LL_VUC (vsrb (To_LL_VSC (A), To_LL_VSC (B)));
5121    end vec_sr;
5122
5123    function vec_sr
5124      (A : vector_signed_short;
5125       B : vector_unsigned_short) return vector_signed_short
5126    is
5127    begin
5128       return To_LL_VSS (vsrh (To_LL_VSS (A), To_LL_VSS (B)));
5129    end vec_sr;
5130
5131    function vec_sr
5132      (A : vector_unsigned_short;
5133       B : vector_unsigned_short) return vector_unsigned_short
5134    is
5135    begin
5136       return To_LL_VUS (vsrh (To_LL_VSS (A), To_LL_VSS (B)));
5137    end vec_sr;
5138
5139    function vec_sr
5140      (A : vector_signed_int;
5141       B : vector_unsigned_int) return vector_signed_int
5142    is
5143    begin
5144       return To_LL_VSI (vsrw (To_LL_VSI (A), To_LL_VSI (B)));
5145    end vec_sr;
5146
5147    function vec_sr
5148      (A : vector_unsigned_int;
5149       B : vector_unsigned_int) return vector_unsigned_int
5150    is
5151    begin
5152       return To_LL_VUI (vsrw (To_LL_VSI (A), To_LL_VSI (B)));
5153    end vec_sr;
5154
5155    -- vec_vsrw --
5156
5157    function vec_vsrw
5158      (A : vector_signed_int;
5159       B : vector_unsigned_int) return vector_signed_int
5160    is
5161    begin
5162       return To_LL_VSI (vsrw (To_LL_VSI (A), To_LL_VSI (B)));
5163    end vec_vsrw;
5164
5165    function vec_vsrw
5166      (A : vector_unsigned_int;
5167       B : vector_unsigned_int) return vector_unsigned_int
5168    is
5169    begin
5170       return To_LL_VUI (vsrw (To_LL_VSI (A), To_LL_VSI (B)));
5171    end vec_vsrw;
5172
5173    -- vec_vsrh --
5174
5175    function vec_vsrh
5176      (A : vector_signed_short;
5177       B : vector_unsigned_short) return vector_signed_short
5178    is
5179    begin
5180       return To_LL_VSS (vsrh (To_LL_VSS (A), To_LL_VSS (B)));
5181    end vec_vsrh;
5182
5183    function vec_vsrh
5184      (A : vector_unsigned_short;
5185       B : vector_unsigned_short) return vector_unsigned_short
5186    is
5187    begin
5188       return To_LL_VUS (vsrh (To_LL_VSS (A), To_LL_VSS (B)));
5189    end vec_vsrh;
5190
5191    -- vec_vsrb --
5192
5193    function vec_vsrb
5194      (A : vector_signed_char;
5195       B : vector_unsigned_char) return vector_signed_char
5196    is
5197    begin
5198       return To_LL_VSC (vsrb (To_LL_VSC (A), To_LL_VSC (B)));
5199    end vec_vsrb;
5200
5201    function vec_vsrb
5202      (A : vector_unsigned_char;
5203       B : vector_unsigned_char) return vector_unsigned_char
5204    is
5205    begin
5206       return To_LL_VUC (vsrb (To_LL_VSC (A), To_LL_VSC (B)));
5207    end vec_vsrb;
5208
5209    -- vec_sra --
5210
5211    function vec_sra
5212      (A : vector_signed_char;
5213       B : vector_unsigned_char) return vector_signed_char
5214    is
5215    begin
5216       return To_LL_VSC (vsrab (To_LL_VSC (A), To_LL_VSC (B)));
5217    end vec_sra;
5218
5219    function vec_sra
5220      (A : vector_unsigned_char;
5221       B : vector_unsigned_char) return vector_unsigned_char
5222    is
5223    begin
5224       return To_LL_VUC (vsrab (To_LL_VSC (A), To_LL_VSC (B)));
5225    end vec_sra;
5226
5227    function vec_sra
5228      (A : vector_signed_short;
5229       B : vector_unsigned_short) return vector_signed_short
5230    is
5231    begin
5232       return To_LL_VSS (vsrah (To_LL_VSS (A), To_LL_VSS (B)));
5233    end vec_sra;
5234
5235    function vec_sra
5236      (A : vector_unsigned_short;
5237       B : vector_unsigned_short) return vector_unsigned_short
5238    is
5239    begin
5240       return To_LL_VUS (vsrah (To_LL_VSS (A), To_LL_VSS (B)));
5241    end vec_sra;
5242
5243    function vec_sra
5244      (A : vector_signed_int;
5245       B : vector_unsigned_int) return vector_signed_int
5246    is
5247    begin
5248       return To_LL_VSI (vsraw (To_LL_VSI (A), To_LL_VSI (B)));
5249    end vec_sra;
5250
5251    function vec_sra
5252      (A : vector_unsigned_int;
5253       B : vector_unsigned_int) return vector_unsigned_int
5254    is
5255    begin
5256       return To_LL_VUI (vsraw (To_LL_VSI (A), To_LL_VSI (B)));
5257    end vec_sra;
5258
5259    -- vec_vsraw --
5260
5261    function vec_vsraw
5262      (A : vector_signed_int;
5263       B : vector_unsigned_int) return vector_signed_int
5264    is
5265    begin
5266       return To_LL_VSI (vsraw (To_LL_VSI (A), To_LL_VSI (B)));
5267    end vec_vsraw;
5268
5269    function vec_vsraw
5270      (A : vector_unsigned_int;
5271       B : vector_unsigned_int) return vector_unsigned_int
5272    is
5273    begin
5274       return To_LL_VUI (vsraw (To_LL_VSI (A), To_LL_VSI (B)));
5275    end vec_vsraw;
5276
5277    -- vec_vsrah --
5278
5279    function vec_vsrah
5280      (A : vector_signed_short;
5281       B : vector_unsigned_short) return vector_signed_short
5282    is
5283    begin
5284       return To_LL_VSS (vsrah (To_LL_VSS (A), To_LL_VSS (B)));
5285    end vec_vsrah;
5286
5287    function vec_vsrah
5288      (A : vector_unsigned_short;
5289       B : vector_unsigned_short) return vector_unsigned_short
5290    is
5291    begin
5292       return To_LL_VUS (vsrah (To_LL_VSS (A), To_LL_VSS (B)));
5293    end vec_vsrah;
5294
5295    -- vec_vsrab --
5296
5297    function vec_vsrab
5298      (A : vector_signed_char;
5299       B : vector_unsigned_char) return vector_signed_char
5300    is
5301    begin
5302       return To_LL_VSC (vsrab (To_LL_VSC (A), To_LL_VSC (B)));
5303    end vec_vsrab;
5304
5305    function vec_vsrab
5306      (A : vector_unsigned_char;
5307       B : vector_unsigned_char) return vector_unsigned_char
5308    is
5309    begin
5310       return To_LL_VUC (vsrab (To_LL_VSC (A), To_LL_VSC (B)));
5311    end vec_vsrab;
5312
5313    -- vec_srl --
5314
5315    function vec_srl
5316      (A : vector_signed_int;
5317       B : vector_unsigned_int) return vector_signed_int
5318    is
5319    begin
5320       return To_LL_VSI (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5321    end vec_srl;
5322
5323    function vec_srl
5324      (A : vector_signed_int;
5325       B : vector_unsigned_short) return vector_signed_int
5326    is
5327    begin
5328       return To_LL_VSI (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5329    end vec_srl;
5330
5331    function vec_srl
5332      (A : vector_signed_int;
5333       B : vector_unsigned_char) return vector_signed_int
5334    is
5335    begin
5336       return To_LL_VSI (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5337    end vec_srl;
5338
5339    function vec_srl
5340      (A : vector_unsigned_int;
5341       B : vector_unsigned_int) return vector_unsigned_int
5342    is
5343    begin
5344       return To_LL_VUI (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5345    end vec_srl;
5346
5347    function vec_srl
5348      (A : vector_unsigned_int;
5349       B : vector_unsigned_short) return vector_unsigned_int
5350    is
5351    begin
5352       return To_LL_VUI (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5353    end vec_srl;
5354
5355    function vec_srl
5356      (A : vector_unsigned_int;
5357       B : vector_unsigned_char) return vector_unsigned_int
5358    is
5359    begin
5360       return To_LL_VUI (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5361    end vec_srl;
5362
5363    function vec_srl
5364      (A : vector_bool_int;
5365       B : vector_unsigned_int) return vector_bool_int
5366    is
5367    begin
5368       return To_LL_VBI (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5369    end vec_srl;
5370
5371    function vec_srl
5372      (A : vector_bool_int;
5373       B : vector_unsigned_short) return vector_bool_int
5374    is
5375    begin
5376       return To_LL_VBI (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5377    end vec_srl;
5378
5379    function vec_srl
5380      (A : vector_bool_int;
5381       B : vector_unsigned_char) return vector_bool_int
5382    is
5383    begin
5384       return To_LL_VBI (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5385    end vec_srl;
5386
5387    function vec_srl
5388      (A : vector_signed_short;
5389       B : vector_unsigned_int) return vector_signed_short
5390    is
5391    begin
5392       return To_LL_VSS (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5393    end vec_srl;
5394
5395    function vec_srl
5396      (A : vector_signed_short;
5397       B : vector_unsigned_short) return vector_signed_short
5398    is
5399    begin
5400       return To_LL_VSS (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5401    end vec_srl;
5402
5403    function vec_srl
5404      (A : vector_signed_short;
5405       B : vector_unsigned_char) return vector_signed_short
5406    is
5407    begin
5408       return To_LL_VSS (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5409    end vec_srl;
5410
5411    function vec_srl
5412      (A : vector_unsigned_short;
5413       B : vector_unsigned_int) return vector_unsigned_short
5414    is
5415    begin
5416       return To_LL_VUS (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5417    end vec_srl;
5418
5419    function vec_srl
5420      (A : vector_unsigned_short;
5421       B : vector_unsigned_short) return vector_unsigned_short
5422    is
5423    begin
5424       return To_LL_VUS (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5425    end vec_srl;
5426
5427    function vec_srl
5428      (A : vector_unsigned_short;
5429       B : vector_unsigned_char) return vector_unsigned_short
5430    is
5431    begin
5432       return To_LL_VUS (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5433    end vec_srl;
5434
5435    function vec_srl
5436      (A : vector_bool_short;
5437       B : vector_unsigned_int) return vector_bool_short
5438    is
5439    begin
5440       return To_LL_VBS (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5441    end vec_srl;
5442
5443    function vec_srl
5444      (A : vector_bool_short;
5445       B : vector_unsigned_short) return vector_bool_short
5446    is
5447    begin
5448       return To_LL_VBS (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5449    end vec_srl;
5450
5451    function vec_srl
5452      (A : vector_bool_short;
5453       B : vector_unsigned_char) return vector_bool_short
5454    is
5455    begin
5456       return To_LL_VBS (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5457    end vec_srl;
5458
5459    function vec_srl
5460      (A : vector_pixel;
5461       B : vector_unsigned_int) return vector_pixel
5462    is
5463    begin
5464       return To_LL_VP (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5465    end vec_srl;
5466
5467    function vec_srl
5468      (A : vector_pixel;
5469       B : vector_unsigned_short) return vector_pixel
5470    is
5471    begin
5472       return To_LL_VP (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5473    end vec_srl;
5474
5475    function vec_srl
5476      (A : vector_pixel;
5477       B : vector_unsigned_char) return vector_pixel
5478    is
5479    begin
5480       return To_LL_VP (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5481    end vec_srl;
5482
5483    function vec_srl
5484      (A : vector_signed_char;
5485       B : vector_unsigned_int) return vector_signed_char
5486    is
5487    begin
5488       return To_LL_VSC (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5489    end vec_srl;
5490
5491    function vec_srl
5492      (A : vector_signed_char;
5493       B : vector_unsigned_short) return vector_signed_char
5494    is
5495    begin
5496       return To_LL_VSC (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5497    end vec_srl;
5498
5499    function vec_srl
5500      (A : vector_signed_char;
5501       B : vector_unsigned_char) return vector_signed_char
5502    is
5503    begin
5504       return To_LL_VSC (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5505    end vec_srl;
5506
5507    function vec_srl
5508      (A : vector_unsigned_char;
5509       B : vector_unsigned_int) return vector_unsigned_char
5510    is
5511    begin
5512       return To_LL_VUC (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5513    end vec_srl;
5514
5515    function vec_srl
5516      (A : vector_unsigned_char;
5517       B : vector_unsigned_short) return vector_unsigned_char
5518    is
5519    begin
5520       return To_LL_VUC (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5521    end vec_srl;
5522
5523    function vec_srl
5524      (A : vector_unsigned_char;
5525       B : vector_unsigned_char) return vector_unsigned_char
5526    is
5527    begin
5528       return To_LL_VUC (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5529    end vec_srl;
5530
5531    function vec_srl
5532      (A : vector_bool_char;
5533       B : vector_unsigned_int) return vector_bool_char
5534    is
5535    begin
5536       return To_LL_VBC (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5537    end vec_srl;
5538
5539    function vec_srl
5540      (A : vector_bool_char;
5541       B : vector_unsigned_short) return vector_bool_char
5542    is
5543    begin
5544       return To_LL_VBC (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5545    end vec_srl;
5546
5547    function vec_srl
5548      (A : vector_bool_char;
5549       B : vector_unsigned_char) return vector_bool_char
5550    is
5551    begin
5552       return To_LL_VBC (vsr (To_LL_VSI (A), To_LL_VSI (B)));
5553    end vec_srl;
5554
5555    -- vec_sro --
5556
5557    function vec_sro
5558      (A : vector_float;
5559       B : vector_signed_char) return vector_float
5560    is
5561    begin
5562       return To_LL_VF (vsro (To_LL_VSI (A), To_LL_VSI (B)));
5563    end vec_sro;
5564
5565    function vec_sro
5566      (A : vector_float;
5567       B : vector_unsigned_char) return vector_float
5568    is
5569    begin
5570       return To_LL_VF (vsro (To_LL_VSI (A), To_LL_VSI (B)));
5571    end vec_sro;
5572
5573    function vec_sro
5574      (A : vector_signed_int;
5575       B : vector_signed_char) return vector_signed_int
5576    is
5577    begin
5578       return To_LL_VSI (vsro (To_LL_VSI (A), To_LL_VSI (B)));
5579    end vec_sro;
5580
5581    function vec_sro
5582      (A : vector_signed_int;
5583       B : vector_unsigned_char) return vector_signed_int
5584    is
5585    begin
5586       return To_LL_VSI (vsro (To_LL_VSI (A), To_LL_VSI (B)));
5587    end vec_sro;
5588
5589    function vec_sro
5590      (A : vector_unsigned_int;
5591       B : vector_signed_char) return vector_unsigned_int
5592    is
5593    begin
5594       return To_LL_VUI (vsro (To_LL_VSI (A), To_LL_VSI (B)));
5595    end vec_sro;
5596
5597    function vec_sro
5598      (A : vector_unsigned_int;
5599       B : vector_unsigned_char) return vector_unsigned_int
5600    is
5601    begin
5602       return To_LL_VUI (vsro (To_LL_VSI (A), To_LL_VSI (B)));
5603    end vec_sro;
5604
5605    function vec_sro
5606      (A : vector_signed_short;
5607       B : vector_signed_char) return vector_signed_short
5608    is
5609    begin
5610       return To_LL_VSS (vsro (To_LL_VSI (A), To_LL_VSI (B)));
5611    end vec_sro;
5612
5613    function vec_sro
5614      (A : vector_signed_short;
5615       B : vector_unsigned_char) return vector_signed_short
5616    is
5617    begin
5618       return To_LL_VSS (vsro (To_LL_VSI (A), To_LL_VSI (B)));
5619    end vec_sro;
5620
5621    function vec_sro
5622      (A : vector_unsigned_short;
5623       B : vector_signed_char) return vector_unsigned_short
5624    is
5625    begin
5626       return To_LL_VUS (vsro (To_LL_VSI (A), To_LL_VSI (B)));
5627    end vec_sro;
5628
5629    function vec_sro
5630      (A : vector_unsigned_short;
5631       B : vector_unsigned_char) return vector_unsigned_short
5632    is
5633    begin
5634       return To_LL_VUS (vsro (To_LL_VSI (A), To_LL_VSI (B)));
5635    end vec_sro;
5636
5637    function vec_sro
5638      (A : vector_pixel;
5639       B : vector_signed_char) return vector_pixel
5640    is
5641    begin
5642       return To_LL_VP (vsro (To_LL_VSI (A), To_LL_VSI (B)));
5643    end vec_sro;
5644
5645    function vec_sro
5646      (A : vector_pixel;
5647       B : vector_unsigned_char) return vector_pixel
5648    is
5649    begin
5650       return To_LL_VP (vsro (To_LL_VSI (A), To_LL_VSI (B)));
5651    end vec_sro;
5652
5653    function vec_sro
5654      (A : vector_signed_char;
5655       B : vector_signed_char) return vector_signed_char
5656    is
5657    begin
5658       return To_LL_VSC (vsro (To_LL_VSI (A), To_LL_VSI (B)));
5659    end vec_sro;
5660
5661    function vec_sro
5662      (A : vector_signed_char;
5663       B : vector_unsigned_char) return vector_signed_char
5664    is
5665    begin
5666       return To_LL_VSC (vsro (To_LL_VSI (A), To_LL_VSI (B)));
5667    end vec_sro;
5668
5669    function vec_sro
5670      (A : vector_unsigned_char;
5671       B : vector_signed_char) return vector_unsigned_char
5672    is
5673    begin
5674       return To_LL_VUC (vsro (To_LL_VSI (A), To_LL_VSI (B)));
5675    end vec_sro;
5676
5677    function vec_sro
5678      (A : vector_unsigned_char;
5679       B : vector_unsigned_char) return vector_unsigned_char
5680    is
5681    begin
5682       return To_LL_VUC (vsro (To_LL_VSI (A), To_LL_VSI (B)));
5683    end vec_sro;
5684
5685    -- vec_st --
5686
5687    procedure vec_st
5688      (A : vector_float;
5689       B : c_int;
5690       C : vector_float_ptr)
5691    is
5692    begin
5693       stvx (To_LL_VSI (A), B, To_PTR (C));
5694    end vec_st;
5695
5696    procedure vec_st
5697      (A : vector_float;
5698       B : c_int;
5699       C : float_ptr)
5700    is
5701    begin
5702       stvx (To_LL_VSI (A), B, To_PTR (C));
5703    end vec_st;
5704
5705    procedure vec_st
5706      (A : vector_signed_int;
5707       B : c_int;
5708       C : vector_signed_int_ptr)
5709    is
5710    begin
5711       stvx (To_LL_VSI (A), B, To_PTR (C));
5712    end vec_st;
5713
5714    procedure vec_st
5715      (A : vector_signed_int;
5716       B : c_int;
5717       C : int_ptr)
5718    is
5719    begin
5720       stvx (To_LL_VSI (A), B, To_PTR (C));
5721    end vec_st;
5722
5723    procedure vec_st
5724      (A : vector_unsigned_int;
5725       B : c_int;
5726       C : vector_unsigned_int_ptr)
5727    is
5728    begin
5729       stvx (To_LL_VSI (A), B, To_PTR (C));
5730    end vec_st;
5731
5732    procedure vec_st
5733      (A : vector_unsigned_int;
5734       B : c_int;
5735       C : unsigned_int_ptr)
5736    is
5737    begin
5738       stvx (To_LL_VSI (A), B, To_PTR (C));
5739    end vec_st;
5740
5741    procedure vec_st
5742      (A : vector_bool_int;
5743       B : c_int;
5744       C : vector_bool_int_ptr)
5745    is
5746    begin
5747       stvx (To_LL_VSI (A), B, To_PTR (C));
5748    end vec_st;
5749
5750    procedure vec_st
5751      (A : vector_bool_int;
5752       B : c_int;
5753       C : unsigned_int_ptr)
5754    is
5755    begin
5756       stvx (To_LL_VSI (A), B, To_PTR (C));
5757    end vec_st;
5758
5759    procedure vec_st
5760      (A : vector_bool_int;
5761       B : c_int;
5762       C : int_ptr)
5763    is
5764    begin
5765       stvx (To_LL_VSI (A), B, To_PTR (C));
5766    end vec_st;
5767
5768    procedure vec_st
5769      (A : vector_signed_short;
5770       B : c_int;
5771       C : vector_signed_short_ptr)
5772    is
5773    begin
5774       stvx (To_LL_VSI (A), B, To_PTR (C));
5775    end vec_st;
5776
5777    procedure vec_st
5778      (A : vector_signed_short;
5779       B : c_int;
5780       C : short_ptr)
5781    is
5782    begin
5783       stvx (To_LL_VSI (A), B, To_PTR (C));
5784    end vec_st;
5785
5786    procedure vec_st
5787      (A : vector_unsigned_short;
5788       B : c_int;
5789       C : vector_unsigned_short_ptr)
5790    is
5791    begin
5792       stvx (To_LL_VSI (A), B, To_PTR (C));
5793    end vec_st;
5794
5795    procedure vec_st
5796      (A : vector_unsigned_short;
5797       B : c_int;
5798       C : unsigned_short_ptr)
5799    is
5800    begin
5801       stvx (To_LL_VSI (A), B, To_PTR (C));
5802    end vec_st;
5803
5804    procedure vec_st
5805      (A : vector_bool_short;
5806       B : c_int;
5807       C : vector_bool_short_ptr)
5808    is
5809    begin
5810       stvx (To_LL_VSI (A), B, To_PTR (C));
5811    end vec_st;
5812
5813    procedure vec_st
5814      (A : vector_bool_short;
5815       B : c_int;
5816       C : unsigned_short_ptr)
5817    is
5818    begin
5819       stvx (To_LL_VSI (A), B, To_PTR (C));
5820    end vec_st;
5821
5822    procedure vec_st
5823      (A : vector_pixel;
5824       B : c_int;
5825       C : vector_pixel_ptr)
5826    is
5827    begin
5828       stvx (To_LL_VSI (A), B, To_PTR (C));
5829    end vec_st;
5830
5831    procedure vec_st
5832      (A : vector_pixel;
5833       B : c_int;
5834       C : unsigned_short_ptr)
5835    is
5836    begin
5837       stvx (To_LL_VSI (A), B, To_PTR (C));
5838    end vec_st;
5839
5840    procedure vec_st
5841      (A : vector_pixel;
5842       B : c_int;
5843       C : short_ptr)
5844    is
5845    begin
5846       stvx (To_LL_VSI (A), B, To_PTR (C));
5847    end vec_st;
5848
5849    procedure vec_st
5850      (A : vector_bool_short;
5851       B : c_int;
5852       C : short_ptr)
5853    is
5854    begin
5855       stvx (To_LL_VSI (A), B, To_PTR (C));
5856    end vec_st;
5857
5858    procedure vec_st
5859      (A : vector_signed_char;
5860       B : c_int;
5861       C : vector_signed_char_ptr)
5862    is
5863    begin
5864       stvx (To_LL_VSI (A), B, To_PTR (C));
5865    end vec_st;
5866
5867    procedure vec_st
5868      (A : vector_signed_char;
5869       B : c_int;
5870       C : signed_char_ptr)
5871    is
5872    begin
5873       stvx (To_LL_VSI (A), B, To_PTR (C));
5874    end vec_st;
5875
5876    procedure vec_st
5877      (A : vector_unsigned_char;
5878       B : c_int;
5879       C : vector_unsigned_char_ptr)
5880    is
5881    begin
5882       stvx (To_LL_VSI (A), B, To_PTR (C));
5883    end vec_st;
5884
5885    procedure vec_st
5886      (A : vector_unsigned_char;
5887       B : c_int;
5888       C : unsigned_char_ptr)
5889    is
5890    begin
5891       stvx (To_LL_VSI (A), B, To_PTR (C));
5892    end vec_st;
5893
5894    procedure vec_st
5895      (A : vector_bool_char;
5896       B : c_int;
5897       C : vector_bool_char_ptr)
5898    is
5899    begin
5900       stvx (To_LL_VSI (A), B, To_PTR (C));
5901    end vec_st;
5902
5903    procedure vec_st
5904      (A : vector_bool_char;
5905       B : c_int;
5906       C : unsigned_char_ptr)
5907    is
5908    begin
5909       stvx (To_LL_VSI (A), B, To_PTR (C));
5910    end vec_st;
5911
5912    procedure vec_st
5913      (A : vector_bool_char;
5914       B : c_int;
5915       C : signed_char_ptr)
5916    is
5917    begin
5918       stvx (To_LL_VSI (A), B, To_PTR (C));
5919    end vec_st;
5920
5921    -- vec_ste --
5922
5923    procedure vec_ste
5924      (A : vector_signed_char;
5925       B : c_int;
5926       C : signed_char_ptr)
5927    is
5928    begin
5929       stvebx (To_LL_VSC (A), B, To_PTR (C));
5930    end vec_ste;
5931
5932    procedure vec_ste
5933      (A : vector_unsigned_char;
5934       B : c_int;
5935       C : unsigned_char_ptr)
5936    is
5937    begin
5938       stvebx (To_LL_VSC (A), B, To_PTR (C));
5939    end vec_ste;
5940
5941    procedure vec_ste
5942      (A : vector_bool_char;
5943       B : c_int;
5944       C : signed_char_ptr)
5945    is
5946    begin
5947       stvebx (To_LL_VSC (A), B, To_PTR (C));
5948    end vec_ste;
5949
5950    procedure vec_ste
5951      (A : vector_bool_char;
5952       B : c_int;
5953       C : unsigned_char_ptr)
5954    is
5955    begin
5956       stvebx (To_LL_VSC (A), B, To_PTR (C));
5957    end vec_ste;
5958
5959    procedure vec_ste
5960      (A : vector_signed_short;
5961       B : c_int;
5962       C : short_ptr)
5963    is
5964    begin
5965       stvehx (To_LL_VSS (A), B, To_PTR (C));
5966    end vec_ste;
5967
5968    procedure vec_ste
5969      (A : vector_unsigned_short;
5970       B : c_int;
5971       C : unsigned_short_ptr)
5972    is
5973    begin
5974       stvehx (To_LL_VSS (A), B, To_PTR (C));
5975    end vec_ste;
5976
5977    procedure vec_ste
5978      (A : vector_bool_short;
5979       B : c_int;
5980       C : short_ptr)
5981    is
5982    begin
5983       stvehx (To_LL_VSS (A), B, To_PTR (C));
5984    end vec_ste;
5985
5986    procedure vec_ste
5987      (A : vector_bool_short;
5988       B : c_int;
5989       C : unsigned_short_ptr)
5990    is
5991    begin
5992       stvehx (To_LL_VSS (A), B, To_PTR (C));
5993    end vec_ste;
5994
5995    procedure vec_ste
5996      (A : vector_pixel;
5997       B : c_int;
5998       C : short_ptr)
5999    is
6000    begin
6001       stvehx (To_LL_VSS (A), B, To_PTR (C));
6002    end vec_ste;
6003
6004    procedure vec_ste
6005      (A : vector_pixel;
6006       B : c_int;
6007       C : unsigned_short_ptr)
6008    is
6009    begin
6010       stvehx (To_LL_VSS (A), B, To_PTR (C));
6011    end vec_ste;
6012
6013    procedure vec_ste
6014      (A : vector_float;
6015       B : c_int;
6016       C : float_ptr)
6017    is
6018    begin
6019       stvewx (To_LL_VSI (A), B, To_PTR (C));
6020    end vec_ste;
6021
6022    procedure vec_ste
6023      (A : vector_signed_int;
6024       B : c_int;
6025       C : int_ptr)
6026    is
6027    begin
6028       stvewx (To_LL_VSI (A), B, To_PTR (C));
6029    end vec_ste;
6030
6031    procedure vec_ste
6032      (A : vector_unsigned_int;
6033       B : c_int;
6034       C : unsigned_int_ptr)
6035    is
6036    begin
6037       stvewx (To_LL_VSI (A), B, To_PTR (C));
6038    end vec_ste;
6039
6040    procedure vec_ste
6041      (A : vector_bool_int;
6042       B : c_int;
6043       C : int_ptr)
6044    is
6045    begin
6046       stvewx (To_LL_VSI (A), B, To_PTR (C));
6047    end vec_ste;
6048
6049    procedure vec_ste
6050      (A : vector_bool_int;
6051       B : c_int;
6052       C : unsigned_int_ptr)
6053    is
6054    begin
6055       stvewx (To_LL_VSI (A), B, To_PTR (C));
6056    end vec_ste;
6057
6058    -- vec_stvewx --
6059
6060    procedure vec_stvewx
6061      (A : vector_float;
6062       B : c_int;
6063       C : float_ptr)
6064    is
6065    begin
6066       stvewx (To_LL_VSI (A), B, To_PTR (C));
6067    end vec_stvewx;
6068
6069    procedure vec_stvewx
6070      (A : vector_signed_int;
6071       B : c_int;
6072       C : int_ptr)
6073    is
6074    begin
6075       stvewx (To_LL_VSI (A), B, To_PTR (C));
6076    end vec_stvewx;
6077
6078    procedure vec_stvewx
6079      (A : vector_unsigned_int;
6080       B : c_int;
6081       C : unsigned_int_ptr)
6082    is
6083    begin
6084       stvewx (To_LL_VSI (A), B, To_PTR (C));
6085    end vec_stvewx;
6086
6087    procedure vec_stvewx
6088      (A : vector_bool_int;
6089       B : c_int;
6090       C : int_ptr)
6091    is
6092    begin
6093       stvewx (To_LL_VSI (A), B, To_PTR (C));
6094    end vec_stvewx;
6095
6096    procedure vec_stvewx
6097      (A : vector_bool_int;
6098       B : c_int;
6099       C : unsigned_int_ptr)
6100    is
6101    begin
6102       stvewx (To_LL_VSI (A), B, To_PTR (C));
6103    end vec_stvewx;
6104
6105    -- vec_stvehx --
6106
6107    procedure vec_stvehx
6108      (A : vector_signed_short;
6109       B : c_int;
6110       C : short_ptr)
6111    is
6112    begin
6113       stvehx (To_LL_VSS (A), B, To_PTR (C));
6114    end vec_stvehx;
6115
6116    procedure vec_stvehx
6117      (A : vector_unsigned_short;
6118       B : c_int;
6119       C : unsigned_short_ptr)
6120    is
6121    begin
6122       stvehx (To_LL_VSS (A), B, To_PTR (C));
6123    end vec_stvehx;
6124
6125    procedure vec_stvehx
6126      (A : vector_bool_short;
6127       B : c_int;
6128       C : short_ptr)
6129    is
6130    begin
6131       stvehx (To_LL_VSS (A), B, To_PTR (C));
6132    end vec_stvehx;
6133
6134    procedure vec_stvehx
6135      (A : vector_bool_short;
6136       B : c_int;
6137       C : unsigned_short_ptr)
6138    is
6139    begin
6140       stvehx (To_LL_VSS (A), B, To_PTR (C));
6141    end vec_stvehx;
6142
6143    procedure vec_stvehx
6144      (A : vector_pixel;
6145       B : c_int;
6146       C : short_ptr)
6147    is
6148    begin
6149       stvehx (To_LL_VSS (A), B, To_PTR (C));
6150    end vec_stvehx;
6151
6152    procedure vec_stvehx
6153      (A : vector_pixel;
6154       B : c_int;
6155       C : unsigned_short_ptr)
6156    is
6157    begin
6158       stvehx (To_LL_VSS (A), B, To_PTR (C));
6159    end vec_stvehx;
6160
6161    -- vec_stvebx --
6162
6163    procedure vec_stvebx
6164      (A : vector_signed_char;
6165       B : c_int;
6166       C : signed_char_ptr)
6167    is
6168    begin
6169       stvebx (To_LL_VSC (A), B, To_PTR (C));
6170    end vec_stvebx;
6171
6172    procedure vec_stvebx
6173      (A : vector_unsigned_char;
6174       B : c_int;
6175       C : unsigned_char_ptr)
6176    is
6177    begin
6178       stvebx (To_LL_VSC (A), B, To_PTR (C));
6179    end vec_stvebx;
6180
6181    procedure vec_stvebx
6182      (A : vector_bool_char;
6183       B : c_int;
6184       C : signed_char_ptr)
6185    is
6186    begin
6187       stvebx (To_LL_VSC (A), B, To_PTR (C));
6188    end vec_stvebx;
6189
6190    procedure vec_stvebx
6191      (A : vector_bool_char;
6192       B : c_int;
6193       C : unsigned_char_ptr)
6194    is
6195    begin
6196       stvebx (To_LL_VSC (A), B, To_PTR (C));
6197    end vec_stvebx;
6198
6199    -- vec_stl --
6200
6201    procedure vec_stl
6202      (A : vector_float;
6203       B : c_int;
6204       C : vector_float_ptr)
6205    is
6206    begin
6207       stvxl (To_LL_VSI (A), B, To_PTR (C));
6208    end vec_stl;
6209
6210    procedure vec_stl
6211      (A : vector_float;
6212       B : c_int;
6213       C : float_ptr)
6214    is
6215    begin
6216       stvxl (To_LL_VSI (A), B, To_PTR (C));
6217    end vec_stl;
6218
6219    procedure vec_stl
6220      (A : vector_signed_int;
6221       B : c_int;
6222       C : vector_signed_int_ptr)
6223    is
6224    begin
6225       stvxl (To_LL_VSI (A), B, To_PTR (C));
6226    end vec_stl;
6227
6228    procedure vec_stl
6229      (A : vector_signed_int;
6230       B : c_int;
6231       C : int_ptr)
6232    is
6233    begin
6234       stvxl (To_LL_VSI (A), B, To_PTR (C));
6235    end vec_stl;
6236
6237    procedure vec_stl
6238      (A : vector_unsigned_int;
6239       B : c_int;
6240       C : vector_unsigned_int_ptr)
6241    is
6242    begin
6243       stvxl (To_LL_VSI (A), B, To_PTR (C));
6244    end vec_stl;
6245
6246    procedure vec_stl
6247      (A : vector_unsigned_int;
6248       B : c_int;
6249       C : unsigned_int_ptr)
6250    is
6251    begin
6252       stvxl (To_LL_VSI (A), B, To_PTR (C));
6253    end vec_stl;
6254
6255    procedure vec_stl
6256      (A : vector_bool_int;
6257       B : c_int;
6258       C : vector_bool_int_ptr)
6259    is
6260    begin
6261       stvxl (To_LL_VSI (A), B, To_PTR (C));
6262    end vec_stl;
6263
6264    procedure vec_stl
6265      (A : vector_bool_int;
6266       B : c_int;
6267       C : unsigned_int_ptr)
6268    is
6269    begin
6270       stvxl (To_LL_VSI (A), B, To_PTR (C));
6271    end vec_stl;
6272
6273    procedure vec_stl
6274      (A : vector_bool_int;
6275       B : c_int;
6276       C : int_ptr)
6277    is
6278    begin
6279       stvxl (To_LL_VSI (A), B, To_PTR (C));
6280    end vec_stl;
6281
6282    procedure vec_stl
6283      (A : vector_signed_short;
6284       B : c_int;
6285       C : vector_signed_short_ptr)
6286    is
6287    begin
6288       stvxl (To_LL_VSI (A), B, To_PTR (C));
6289    end vec_stl;
6290
6291    procedure vec_stl
6292      (A : vector_signed_short;
6293       B : c_int;
6294       C : short_ptr)
6295    is
6296    begin
6297       stvxl (To_LL_VSI (A), B, To_PTR (C));
6298    end vec_stl;
6299
6300    procedure vec_stl
6301      (A : vector_unsigned_short;
6302       B : c_int;
6303       C : vector_unsigned_short_ptr)
6304    is
6305    begin
6306       stvxl (To_LL_VSI (A), B, To_PTR (C));
6307    end vec_stl;
6308
6309    procedure vec_stl
6310      (A : vector_unsigned_short;
6311       B : c_int;
6312       C : unsigned_short_ptr)
6313    is
6314    begin
6315       stvxl (To_LL_VSI (A), B, To_PTR (C));
6316    end vec_stl;
6317
6318    procedure vec_stl
6319      (A : vector_bool_short;
6320       B : c_int;
6321       C : vector_bool_short_ptr)
6322    is
6323    begin
6324       stvxl (To_LL_VSI (A), B, To_PTR (C));
6325    end vec_stl;
6326
6327    procedure vec_stl
6328      (A : vector_bool_short;
6329       B : c_int;
6330       C : unsigned_short_ptr)
6331    is
6332    begin
6333       stvxl (To_LL_VSI (A), B, To_PTR (C));
6334    end vec_stl;
6335
6336    procedure vec_stl
6337      (A : vector_bool_short;
6338       B : c_int;
6339       C : short_ptr)
6340    is
6341    begin
6342       stvxl (To_LL_VSI (A), B, To_PTR (C));
6343    end vec_stl;
6344
6345    procedure vec_stl
6346      (A : vector_pixel;
6347       B : c_int;
6348       C : vector_pixel_ptr)
6349    is
6350    begin
6351       stvxl (To_LL_VSI (A), B, To_PTR (C));
6352    end vec_stl;
6353
6354    procedure vec_stl
6355      (A : vector_pixel;
6356       B : c_int;
6357       C : unsigned_short_ptr)
6358    is
6359    begin
6360       stvxl (To_LL_VSI (A), B, To_PTR (C));
6361    end vec_stl;
6362
6363    procedure vec_stl
6364      (A : vector_pixel;
6365       B : c_int;
6366       C : short_ptr)
6367    is
6368    begin
6369       stvxl (To_LL_VSI (A), B, To_PTR (C));
6370    end vec_stl;
6371
6372    procedure vec_stl
6373      (A : vector_signed_char;
6374       B : c_int;
6375       C : vector_signed_char_ptr)
6376    is
6377    begin
6378       stvxl (To_LL_VSI (A), B, To_PTR (C));
6379    end vec_stl;
6380
6381    procedure vec_stl
6382      (A : vector_signed_char;
6383       B : c_int;
6384       C : signed_char_ptr)
6385    is
6386    begin
6387       stvxl (To_LL_VSI (A), B, To_PTR (C));
6388    end vec_stl;
6389
6390    procedure vec_stl
6391      (A : vector_unsigned_char;
6392       B : c_int;
6393       C : vector_unsigned_char_ptr)
6394    is
6395    begin
6396       stvxl (To_LL_VSI (A), B, To_PTR (C));
6397    end vec_stl;
6398
6399    procedure vec_stl
6400      (A : vector_unsigned_char;
6401       B : c_int;
6402       C : unsigned_char_ptr)
6403    is
6404    begin
6405       stvxl (To_LL_VSI (A), B, To_PTR (C));
6406    end vec_stl;
6407
6408    procedure vec_stl
6409      (A : vector_bool_char;
6410       B : c_int;
6411       C : vector_bool_char_ptr)
6412    is
6413    begin
6414       stvxl (To_LL_VSI (A), B, To_PTR (C));
6415    end vec_stl;
6416
6417    procedure vec_stl
6418      (A : vector_bool_char;
6419       B : c_int;
6420       C : unsigned_char_ptr)
6421    is
6422    begin
6423       stvxl (To_LL_VSI (A), B, To_PTR (C));
6424    end vec_stl;
6425
6426    procedure vec_stl
6427      (A : vector_bool_char;
6428       B : c_int;
6429       C : signed_char_ptr)
6430    is
6431    begin
6432       stvxl (To_LL_VSI (A), B, To_PTR (C));
6433    end vec_stl;
6434
6435    -- vec_sub --
6436
6437    function vec_sub
6438      (A : vector_bool_char;
6439       B : vector_signed_char) return vector_signed_char
6440    is
6441    begin
6442       return To_LL_VSC (vsububm (To_LL_VSC (A), To_LL_VSC (B)));
6443    end vec_sub;
6444
6445    function vec_sub
6446      (A : vector_signed_char;
6447       B : vector_bool_char) return vector_signed_char
6448    is
6449    begin
6450       return To_LL_VSC (vsububm (To_LL_VSC (A), To_LL_VSC (B)));
6451    end vec_sub;
6452
6453    function vec_sub
6454      (A : vector_signed_char;
6455       B : vector_signed_char) return vector_signed_char
6456    is
6457    begin
6458       return To_LL_VSC (vsububm (To_LL_VSC (A), To_LL_VSC (B)));
6459    end vec_sub;
6460
6461    function vec_sub
6462      (A : vector_bool_char;
6463       B : vector_unsigned_char) return vector_unsigned_char
6464    is
6465    begin
6466       return To_LL_VUC (vsububm (To_LL_VSC (A), To_LL_VSC (B)));
6467    end vec_sub;
6468
6469    function vec_sub
6470      (A : vector_unsigned_char;
6471       B : vector_bool_char) return vector_unsigned_char
6472    is
6473    begin
6474       return To_LL_VUC (vsububm (To_LL_VSC (A), To_LL_VSC (B)));
6475    end vec_sub;
6476
6477    function vec_sub
6478      (A : vector_unsigned_char;
6479       B : vector_unsigned_char) return vector_unsigned_char
6480    is
6481    begin
6482       return To_LL_VUC (vsububm (To_LL_VSC (A), To_LL_VSC (B)));
6483    end vec_sub;
6484
6485    function vec_sub
6486      (A : vector_bool_short;
6487       B : vector_signed_short) return vector_signed_short
6488    is
6489    begin
6490       return To_LL_VSS (vsubuhm (To_LL_VSS (A), To_LL_VSS (B)));
6491    end vec_sub;
6492
6493    function vec_sub
6494      (A : vector_signed_short;
6495       B : vector_bool_short) return vector_signed_short
6496    is
6497    begin
6498       return To_LL_VSS (vsubuhm (To_LL_VSS (A), To_LL_VSS (B)));
6499    end vec_sub;
6500
6501    function vec_sub
6502      (A : vector_signed_short;
6503       B : vector_signed_short) return vector_signed_short
6504    is
6505    begin
6506       return To_LL_VSS (vsubuhm (To_LL_VSS (A), To_LL_VSS (B)));
6507    end vec_sub;
6508
6509    function vec_sub
6510      (A : vector_bool_short;
6511       B : vector_unsigned_short) return vector_unsigned_short
6512    is
6513    begin
6514       return To_LL_VUS (vsubuhm (To_LL_VSS (A), To_LL_VSS (B)));
6515    end vec_sub;
6516
6517    function vec_sub
6518      (A : vector_unsigned_short;
6519       B : vector_bool_short) return vector_unsigned_short
6520    is
6521    begin
6522       return To_LL_VUS (vsubuhm (To_LL_VSS (A), To_LL_VSS (B)));
6523    end vec_sub;
6524
6525    function vec_sub
6526      (A : vector_unsigned_short;
6527       B : vector_unsigned_short) return vector_unsigned_short
6528    is
6529    begin
6530       return To_LL_VUS (vsubuhm (To_LL_VSS (A), To_LL_VSS (B)));
6531    end vec_sub;
6532
6533    function vec_sub
6534      (A : vector_bool_int;
6535       B : vector_signed_int) return vector_signed_int
6536    is
6537    begin
6538       return To_LL_VSI (vsubuwm (To_LL_VSI (A), To_LL_VSI (B)));
6539    end vec_sub;
6540
6541    function vec_sub
6542      (A : vector_signed_int;
6543       B : vector_bool_int) return vector_signed_int
6544    is
6545    begin
6546       return To_LL_VSI (vsubuwm (To_LL_VSI (A), To_LL_VSI (B)));
6547    end vec_sub;
6548
6549    function vec_sub
6550      (A : vector_signed_int;
6551       B : vector_signed_int) return vector_signed_int
6552    is
6553    begin
6554       return To_LL_VSI (vsubuwm (To_LL_VSI (A), To_LL_VSI (B)));
6555    end vec_sub;
6556
6557    function vec_sub
6558      (A : vector_bool_int;
6559       B : vector_unsigned_int) return vector_unsigned_int
6560    is
6561    begin
6562       return To_LL_VUI (vsubuwm (To_LL_VSI (A), To_LL_VSI (B)));
6563    end vec_sub;
6564
6565    function vec_sub
6566      (A : vector_unsigned_int;
6567       B : vector_bool_int) return vector_unsigned_int
6568    is
6569    begin
6570       return To_LL_VUI (vsubuwm (To_LL_VSI (A), To_LL_VSI (B)));
6571    end vec_sub;
6572
6573    function vec_sub
6574      (A : vector_unsigned_int;
6575       B : vector_unsigned_int) return vector_unsigned_int
6576    is
6577    begin
6578       return To_LL_VUI (vsubuwm (To_LL_VSI (A), To_LL_VSI (B)));
6579    end vec_sub;
6580
6581    function vec_sub
6582      (A : vector_float;
6583       B : vector_float) return vector_float
6584    is
6585    begin
6586       return To_LL_VF (vsubfp (To_LL_VF (A), To_LL_VF (B)));
6587    end vec_sub;
6588
6589    -- vec_vsubfp --
6590
6591    function vec_vsubfp
6592      (A : vector_float;
6593       B : vector_float) return vector_float
6594    is
6595    begin
6596       return To_LL_VF (vsubfp (To_LL_VF (A), To_LL_VF (B)));
6597    end vec_vsubfp;
6598
6599    -- vec_vsubuwm --
6600
6601    function vec_vsubuwm
6602      (A : vector_bool_int;
6603       B : vector_signed_int) return vector_signed_int
6604    is
6605    begin
6606       return To_LL_VSI (vsubuwm (To_LL_VSI (A), To_LL_VSI (B)));
6607    end vec_vsubuwm;
6608
6609    function vec_vsubuwm
6610      (A : vector_signed_int;
6611       B : vector_bool_int) return vector_signed_int
6612    is
6613    begin
6614       return To_LL_VSI (vsubuwm (To_LL_VSI (A), To_LL_VSI (B)));
6615    end vec_vsubuwm;
6616
6617    function vec_vsubuwm
6618      (A : vector_signed_int;
6619       B : vector_signed_int) return vector_signed_int
6620    is
6621    begin
6622       return To_LL_VSI (vsubuwm (To_LL_VSI (A), To_LL_VSI (B)));
6623    end vec_vsubuwm;
6624
6625    function vec_vsubuwm
6626      (A : vector_bool_int;
6627       B : vector_unsigned_int) return vector_unsigned_int
6628    is
6629    begin
6630       return To_LL_VUI (vsubuwm (To_LL_VSI (A), To_LL_VSI (B)));
6631    end vec_vsubuwm;
6632
6633    function vec_vsubuwm
6634      (A : vector_unsigned_int;
6635       B : vector_bool_int) return vector_unsigned_int
6636    is
6637    begin
6638       return To_LL_VUI (vsubuwm (To_LL_VSI (A), To_LL_VSI (B)));
6639    end vec_vsubuwm;
6640
6641    function vec_vsubuwm
6642      (A : vector_unsigned_int;
6643       B : vector_unsigned_int) return vector_unsigned_int
6644    is
6645    begin
6646       return To_LL_VUI (vsubuwm (To_LL_VSI (A), To_LL_VSI (B)));
6647    end vec_vsubuwm;
6648
6649    -- vec_vsubuhm --
6650
6651    function vec_vsubuhm
6652      (A : vector_bool_short;
6653       B : vector_signed_short) return vector_signed_short
6654    is
6655    begin
6656       return To_LL_VSS (vsubuhm (To_LL_VSS (A), To_LL_VSS (B)));
6657    end vec_vsubuhm;
6658
6659    function vec_vsubuhm
6660      (A : vector_signed_short;
6661       B : vector_bool_short) return vector_signed_short
6662    is
6663    begin
6664       return To_LL_VSS (vsubuhm (To_LL_VSS (A), To_LL_VSS (B)));
6665    end vec_vsubuhm;
6666
6667    function vec_vsubuhm
6668      (A : vector_signed_short;
6669       B : vector_signed_short) return vector_signed_short
6670    is
6671    begin
6672       return To_LL_VSS (vsubuhm (To_LL_VSS (A), To_LL_VSS (B)));
6673    end vec_vsubuhm;
6674
6675    function vec_vsubuhm
6676      (A : vector_bool_short;
6677       B : vector_unsigned_short) return vector_unsigned_short
6678    is
6679    begin
6680       return To_LL_VUS (vsubuhm (To_LL_VSS (A), To_LL_VSS (B)));
6681    end vec_vsubuhm;
6682
6683    function vec_vsubuhm
6684      (A : vector_unsigned_short;
6685       B : vector_bool_short) return vector_unsigned_short
6686    is
6687    begin
6688       return To_LL_VUS (vsubuhm (To_LL_VSS (A), To_LL_VSS (B)));
6689    end vec_vsubuhm;
6690
6691    function vec_vsubuhm
6692      (A : vector_unsigned_short;
6693       B : vector_unsigned_short) return vector_unsigned_short
6694    is
6695    begin
6696       return To_LL_VUS (vsubuhm (To_LL_VSS (A), To_LL_VSS (B)));
6697    end vec_vsubuhm;
6698
6699    -- vec_vsububm --
6700
6701    function vec_vsububm
6702      (A : vector_bool_char;
6703       B : vector_signed_char) return vector_signed_char
6704    is
6705    begin
6706       return To_LL_VSC (vsububm (To_LL_VSC (A), To_LL_VSC (B)));
6707    end vec_vsububm;
6708
6709    function vec_vsububm
6710      (A : vector_signed_char;
6711       B : vector_bool_char) return vector_signed_char
6712    is
6713    begin
6714       return To_LL_VSC (vsububm (To_LL_VSC (A), To_LL_VSC (B)));
6715    end vec_vsububm;
6716
6717    function vec_vsububm
6718      (A : vector_signed_char;
6719       B : vector_signed_char) return vector_signed_char
6720    is
6721    begin
6722       return To_LL_VSC (vsububm (To_LL_VSC (A), To_LL_VSC (B)));
6723    end vec_vsububm;
6724
6725    function vec_vsububm
6726      (A : vector_bool_char;
6727       B : vector_unsigned_char) return vector_unsigned_char
6728    is
6729    begin
6730       return To_LL_VUC (vsububm (To_LL_VSC (A), To_LL_VSC (B)));
6731    end vec_vsububm;
6732
6733    function vec_vsububm
6734      (A : vector_unsigned_char;
6735       B : vector_bool_char) return vector_unsigned_char
6736    is
6737    begin
6738       return To_LL_VUC (vsububm (To_LL_VSC (A), To_LL_VSC (B)));
6739    end vec_vsububm;
6740
6741    function vec_vsububm
6742      (A : vector_unsigned_char;
6743       B : vector_unsigned_char) return vector_unsigned_char
6744    is
6745    begin
6746       return To_LL_VUC (vsububm (To_LL_VSC (A), To_LL_VSC (B)));
6747    end vec_vsububm;
6748
6749    -- vec_subc --
6750
6751    function vec_subc
6752      (A : vector_unsigned_int;
6753       B : vector_unsigned_int) return vector_unsigned_int
6754    is
6755    begin
6756       return To_LL_VUI (vsubcuw (To_LL_VSI (A), To_LL_VSI (B)));
6757    end vec_subc;
6758
6759    -- vec_subs --
6760
6761    function vec_subs
6762      (A : vector_bool_char;
6763       B : vector_unsigned_char) return vector_unsigned_char
6764    is
6765    begin
6766       return To_LL_VUC (vsububs (To_LL_VSC (A), To_LL_VSC (B)));
6767    end vec_subs;
6768
6769    function vec_subs
6770      (A : vector_unsigned_char;
6771       B : vector_bool_char) return vector_unsigned_char
6772    is
6773    begin
6774       return To_LL_VUC (vsububs (To_LL_VSC (A), To_LL_VSC (B)));
6775    end vec_subs;
6776
6777    function vec_subs
6778      (A : vector_unsigned_char;
6779       B : vector_unsigned_char) return vector_unsigned_char
6780    is
6781    begin
6782       return To_LL_VUC (vsububs (To_LL_VSC (A), To_LL_VSC (B)));
6783    end vec_subs;
6784
6785    function vec_subs
6786      (A : vector_bool_char;
6787       B : vector_signed_char) return vector_signed_char
6788    is
6789    begin
6790       return To_LL_VSC (vsubsbs (To_LL_VSC (A), To_LL_VSC (B)));
6791    end vec_subs;
6792
6793    function vec_subs
6794      (A : vector_signed_char;
6795       B : vector_bool_char) return vector_signed_char
6796    is
6797    begin
6798       return To_LL_VSC (vsubsbs (To_LL_VSC (A), To_LL_VSC (B)));
6799    end vec_subs;
6800
6801    function vec_subs
6802      (A : vector_signed_char;
6803       B : vector_signed_char) return vector_signed_char
6804    is
6805    begin
6806       return To_LL_VSC (vsubsbs (To_LL_VSC (A), To_LL_VSC (B)));
6807    end vec_subs;
6808
6809    function vec_subs
6810      (A : vector_bool_short;
6811       B : vector_unsigned_short) return vector_unsigned_short
6812    is
6813    begin
6814       return To_LL_VUS (vsubuhs (To_LL_VSS (A), To_LL_VSS (B)));
6815    end vec_subs;
6816
6817    function vec_subs
6818      (A : vector_unsigned_short;
6819       B : vector_bool_short) return vector_unsigned_short
6820    is
6821    begin
6822       return To_LL_VUS (vsubuhs (To_LL_VSS (A), To_LL_VSS (B)));
6823    end vec_subs;
6824
6825    function vec_subs
6826      (A : vector_unsigned_short;
6827       B : vector_unsigned_short) return vector_unsigned_short
6828    is
6829    begin
6830       return To_LL_VUS (vsubuhs (To_LL_VSS (A), To_LL_VSS (B)));
6831    end vec_subs;
6832
6833    function vec_subs
6834      (A : vector_bool_short;
6835       B : vector_signed_short) return vector_signed_short
6836    is
6837    begin
6838       return To_LL_VSS (vsubshs (To_LL_VSS (A), To_LL_VSS (B)));
6839    end vec_subs;
6840
6841    function vec_subs
6842      (A : vector_signed_short;
6843       B : vector_bool_short) return vector_signed_short
6844    is
6845    begin
6846       return To_LL_VSS (vsubshs (To_LL_VSS (A), To_LL_VSS (B)));
6847    end vec_subs;
6848
6849    function vec_subs
6850      (A : vector_signed_short;
6851       B : vector_signed_short) return vector_signed_short
6852    is
6853    begin
6854       return To_LL_VSS (vsubshs (To_LL_VSS (A), To_LL_VSS (B)));
6855    end vec_subs;
6856
6857    function vec_subs
6858      (A : vector_bool_int;
6859       B : vector_unsigned_int) return vector_unsigned_int
6860    is
6861    begin
6862       return To_LL_VUI (vsubuws (To_LL_VSI (A), To_LL_VSI (B)));
6863    end vec_subs;
6864
6865    function vec_subs
6866      (A : vector_unsigned_int;
6867       B : vector_bool_int) return vector_unsigned_int
6868    is
6869    begin
6870       return To_LL_VUI (vsubuws (To_LL_VSI (A), To_LL_VSI (B)));
6871    end vec_subs;
6872
6873    function vec_subs
6874      (A : vector_unsigned_int;
6875       B : vector_unsigned_int) return vector_unsigned_int
6876    is
6877    begin
6878       return To_LL_VUI (vsubuws (To_LL_VSI (A), To_LL_VSI (B)));
6879    end vec_subs;
6880
6881    function vec_subs
6882      (A : vector_bool_int;
6883       B : vector_signed_int) return vector_signed_int
6884    is
6885    begin
6886       return To_LL_VSI (vsubsws (To_LL_VSI (A), To_LL_VSI (B)));
6887    end vec_subs;
6888
6889    function vec_subs
6890      (A : vector_signed_int;
6891       B : vector_bool_int) return vector_signed_int
6892    is
6893    begin
6894       return To_LL_VSI (vsubsws (To_LL_VSI (A), To_LL_VSI (B)));
6895    end vec_subs;
6896
6897    function vec_subs
6898      (A : vector_signed_int;
6899       B : vector_signed_int) return vector_signed_int
6900    is
6901    begin
6902       return To_LL_VSI (vsubsws (To_LL_VSI (A), To_LL_VSI (B)));
6903    end vec_subs;
6904
6905    -- vec_vsubsws --
6906
6907    function vec_vsubsws
6908      (A : vector_bool_int;
6909       B : vector_signed_int) return vector_signed_int
6910    is
6911    begin
6912       return To_LL_VSI (vsubsws (To_LL_VSI (A), To_LL_VSI (B)));
6913    end vec_vsubsws;
6914
6915    function vec_vsubsws
6916      (A : vector_signed_int;
6917       B : vector_bool_int) return vector_signed_int
6918    is
6919    begin
6920       return To_LL_VSI (vsubsws (To_LL_VSI (A), To_LL_VSI (B)));
6921    end vec_vsubsws;
6922
6923    function vec_vsubsws
6924      (A : vector_signed_int;
6925       B : vector_signed_int) return vector_signed_int
6926    is
6927    begin
6928       return To_LL_VSI (vsubsws (To_LL_VSI (A), To_LL_VSI (B)));
6929    end vec_vsubsws;
6930
6931    -- vec_vsubuws --
6932
6933    function vec_vsubuws
6934      (A : vector_bool_int;
6935       B : vector_unsigned_int) return vector_unsigned_int
6936    is
6937    begin
6938       return To_LL_VUI (vsubuws (To_LL_VSI (A), To_LL_VSI (B)));
6939    end vec_vsubuws;
6940
6941    function vec_vsubuws
6942      (A : vector_unsigned_int;
6943       B : vector_bool_int) return vector_unsigned_int
6944    is
6945    begin
6946       return To_LL_VUI (vsubuws (To_LL_VSI (A), To_LL_VSI (B)));
6947    end vec_vsubuws;
6948
6949    function vec_vsubuws
6950      (A : vector_unsigned_int;
6951       B : vector_unsigned_int) return vector_unsigned_int
6952    is
6953    begin
6954       return To_LL_VUI (vsubuws (To_LL_VSI (A), To_LL_VSI (B)));
6955    end vec_vsubuws;
6956
6957    -- vec_vsubshs --
6958
6959    function vec_vsubshs
6960      (A : vector_bool_short;
6961       B : vector_signed_short) return vector_signed_short
6962    is
6963    begin
6964       return To_LL_VSS (vsubshs (To_LL_VSS (A), To_LL_VSS (B)));
6965    end vec_vsubshs;
6966
6967    function vec_vsubshs
6968      (A : vector_signed_short;
6969       B : vector_bool_short) return vector_signed_short
6970    is
6971    begin
6972       return To_LL_VSS (vsubshs (To_LL_VSS (A), To_LL_VSS (B)));
6973    end vec_vsubshs;
6974
6975    function vec_vsubshs
6976      (A : vector_signed_short;
6977       B : vector_signed_short) return vector_signed_short
6978    is
6979    begin
6980       return To_LL_VSS (vsubshs (To_LL_VSS (A), To_LL_VSS (B)));
6981    end vec_vsubshs;
6982
6983    -- vec_vsubuhs --
6984
6985    function vec_vsubuhs
6986      (A : vector_bool_short;
6987       B : vector_unsigned_short) return vector_unsigned_short
6988    is
6989    begin
6990       return To_LL_VUS (vsubuhs (To_LL_VSS (A), To_LL_VSS (B)));
6991    end vec_vsubuhs;
6992
6993    function vec_vsubuhs
6994      (A : vector_unsigned_short;
6995       B : vector_bool_short) return vector_unsigned_short
6996    is
6997    begin
6998       return To_LL_VUS (vsubuhs (To_LL_VSS (A), To_LL_VSS (B)));
6999    end vec_vsubuhs;
7000
7001    function vec_vsubuhs
7002      (A : vector_unsigned_short;
7003       B : vector_unsigned_short) return vector_unsigned_short
7004    is
7005    begin
7006       return To_LL_VUS (vsubuhs (To_LL_VSS (A), To_LL_VSS (B)));
7007    end vec_vsubuhs;
7008
7009    -- vec_vsubsbs --
7010
7011    function vec_vsubsbs
7012      (A : vector_bool_char;
7013       B : vector_signed_char) return vector_signed_char
7014    is
7015    begin
7016       return To_LL_VSC (vsubsbs (To_LL_VSC (A), To_LL_VSC (B)));
7017    end vec_vsubsbs;
7018
7019    function vec_vsubsbs
7020      (A : vector_signed_char;
7021       B : vector_bool_char) return vector_signed_char
7022    is
7023    begin
7024       return To_LL_VSC (vsubsbs (To_LL_VSC (A), To_LL_VSC (B)));
7025    end vec_vsubsbs;
7026
7027    function vec_vsubsbs
7028      (A : vector_signed_char;
7029       B : vector_signed_char) return vector_signed_char
7030    is
7031    begin
7032       return To_LL_VSC (vsubsbs (To_LL_VSC (A), To_LL_VSC (B)));
7033    end vec_vsubsbs;
7034
7035    -- vec_vsububs --
7036
7037    function vec_vsububs
7038      (A : vector_bool_char;
7039       B : vector_unsigned_char) return vector_unsigned_char
7040    is
7041    begin
7042       return To_LL_VUC (vsububs (To_LL_VSC (A), To_LL_VSC (B)));
7043    end vec_vsububs;
7044
7045    function vec_vsububs
7046      (A : vector_unsigned_char;
7047       B : vector_bool_char) return vector_unsigned_char
7048    is
7049    begin
7050       return To_LL_VUC (vsububs (To_LL_VSC (A), To_LL_VSC (B)));
7051    end vec_vsububs;
7052
7053    function vec_vsububs
7054      (A : vector_unsigned_char;
7055       B : vector_unsigned_char) return vector_unsigned_char
7056    is
7057    begin
7058       return To_LL_VUC (vsububs (To_LL_VSC (A), To_LL_VSC (B)));
7059    end vec_vsububs;
7060
7061    -- vec_sum4s --
7062
7063    function vec_sum4s
7064      (A : vector_unsigned_char;
7065       B : vector_unsigned_int) return vector_unsigned_int
7066    is
7067    begin
7068       return To_LL_VUI (vsum4ubs (To_LL_VSC (A), To_LL_VSI (B)));
7069    end vec_sum4s;
7070
7071    function vec_sum4s
7072      (A : vector_signed_char;
7073       B : vector_signed_int) return vector_signed_int
7074    is
7075    begin
7076       return To_LL_VSI (vsum4sbs (To_LL_VSC (A), To_LL_VSI (B)));
7077    end vec_sum4s;
7078
7079    function vec_sum4s
7080      (A : vector_signed_short;
7081       B : vector_signed_int) return vector_signed_int
7082    is
7083    begin
7084       return To_LL_VSI (vsum4shs (To_LL_VSS (A), To_LL_VSI (B)));
7085    end vec_sum4s;
7086
7087    -- vec_vsum4shs --
7088
7089    function vec_vsum4shs
7090      (A : vector_signed_short;
7091       B : vector_signed_int) return vector_signed_int
7092    is
7093    begin
7094       return To_LL_VSI (vsum4shs (To_LL_VSS (A), To_LL_VSI (B)));
7095    end vec_vsum4shs;
7096
7097    -- vec_vsum4sbs --
7098
7099    function vec_vsum4sbs
7100      (A : vector_signed_char;
7101       B : vector_signed_int) return vector_signed_int
7102    is
7103    begin
7104       return To_LL_VSI (vsum4sbs (To_LL_VSC (A), To_LL_VSI (B)));
7105    end vec_vsum4sbs;
7106
7107    -- vec_vsum4ubs --
7108
7109    function vec_vsum4ubs
7110      (A : vector_unsigned_char;
7111       B : vector_unsigned_int) return vector_unsigned_int
7112    is
7113    begin
7114       return To_LL_VUI (vsum4ubs (To_LL_VSC (A), To_LL_VSI (B)));
7115    end vec_vsum4ubs;
7116
7117    -- vec_sum2s --
7118
7119    function vec_sum2s
7120      (A : vector_signed_int;
7121       B : vector_signed_int) return vector_signed_int
7122    is
7123    begin
7124       return To_LL_VSI (vsum2sws (To_LL_VSI (A), To_LL_VSI (B)));
7125    end vec_sum2s;
7126
7127    -- vec_sums --
7128
7129    function vec_sums
7130      (A : vector_signed_int;
7131       B : vector_signed_int) return vector_signed_int
7132    is
7133    begin
7134       return To_LL_VSI (vsumsws (To_LL_VSI (A), To_LL_VSI (B)));
7135    end vec_sums;
7136
7137    -- vec_trunc --
7138
7139    function vec_trunc
7140      (A : vector_float) return vector_float
7141    is
7142    begin
7143       return To_LL_VF (vrfiz (To_LL_VF (A)));
7144    end vec_trunc;
7145
7146    -- vec_unpackh --
7147
7148    function vec_unpackh
7149      (A : vector_signed_char) return vector_signed_short
7150    is
7151    begin
7152       return To_LL_VSS (vupkhsb (To_LL_VSC (A)));
7153    end vec_unpackh;
7154
7155    function vec_unpackh
7156      (A : vector_bool_char) return vector_bool_short
7157    is
7158    begin
7159       return To_LL_VBS (vupkhsb (To_LL_VSC (A)));
7160    end vec_unpackh;
7161
7162    function vec_unpackh
7163      (A : vector_signed_short) return vector_signed_int
7164    is
7165    begin
7166       return To_LL_VSI (vupkhsh (To_LL_VSS (A)));
7167    end vec_unpackh;
7168
7169    function vec_unpackh
7170      (A : vector_bool_short) return vector_bool_int
7171    is
7172    begin
7173       return To_LL_VBI (vupkhsh (To_LL_VSS (A)));
7174    end vec_unpackh;
7175
7176    function vec_unpackh
7177      (A : vector_pixel) return vector_unsigned_int
7178    is
7179    begin
7180       return To_LL_VUI (vupkhpx (To_LL_VSS (A)));
7181    end vec_unpackh;
7182
7183    -- vec_vupkhsh --
7184
7185    function vec_vupkhsh
7186      (A : vector_bool_short) return vector_bool_int
7187    is
7188    begin
7189       return To_LL_VBI (vupkhsh (To_LL_VSS (A)));
7190    end vec_vupkhsh;
7191
7192    function vec_vupkhsh
7193      (A : vector_signed_short) return vector_signed_int
7194    is
7195    begin
7196       return To_LL_VSI (vupkhsh (To_LL_VSS (A)));
7197    end vec_vupkhsh;
7198
7199    -- vec_vupkhpx --
7200
7201    function vec_vupkhpx
7202      (A : vector_pixel) return vector_unsigned_int
7203    is
7204    begin
7205       return To_LL_VUI (vupkhpx (To_LL_VSS (A)));
7206    end vec_vupkhpx;
7207
7208    -- vec_vupkhsb --
7209
7210    function vec_vupkhsb
7211      (A : vector_bool_char) return vector_bool_short
7212    is
7213    begin
7214       return To_LL_VBS (vupkhsb (To_LL_VSC (A)));
7215    end vec_vupkhsb;
7216
7217    function vec_vupkhsb
7218      (A : vector_signed_char) return vector_signed_short
7219    is
7220    begin
7221       return To_LL_VSS (vupkhsb (To_LL_VSC (A)));
7222    end vec_vupkhsb;
7223
7224    -- vec_unpackl --
7225
7226    function vec_unpackl
7227      (A : vector_signed_char) return vector_signed_short
7228    is
7229    begin
7230       return To_LL_VSS (vupklsb (To_LL_VSC (A)));
7231    end vec_unpackl;
7232
7233    function vec_unpackl
7234      (A : vector_bool_char) return vector_bool_short
7235    is
7236    begin
7237       return To_LL_VBS (vupklsb (To_LL_VSC (A)));
7238    end vec_unpackl;
7239
7240    function vec_unpackl
7241      (A : vector_pixel) return vector_unsigned_int
7242    is
7243    begin
7244       return To_LL_VUI (vupklpx (To_LL_VSS (A)));
7245    end vec_unpackl;
7246
7247    function vec_unpackl
7248      (A : vector_signed_short) return vector_signed_int
7249    is
7250    begin
7251       return To_LL_VSI (vupklsh (To_LL_VSS (A)));
7252    end vec_unpackl;
7253
7254    function vec_unpackl
7255      (A : vector_bool_short) return vector_bool_int
7256    is
7257    begin
7258       return To_LL_VBI (vupklsh (To_LL_VSS (A)));
7259    end vec_unpackl;
7260
7261    -- vec_vupklpx --
7262
7263    function vec_vupklpx
7264      (A : vector_pixel) return vector_unsigned_int
7265    is
7266    begin
7267       return To_LL_VUI (vupklpx (To_LL_VSS (A)));
7268    end vec_vupklpx;
7269
7270    -- vec_upklsh --
7271
7272    function vec_vupklsh
7273      (A : vector_bool_short) return vector_bool_int
7274    is
7275    begin
7276       return To_LL_VBI (vupklsh (To_LL_VSS (A)));
7277    end vec_vupklsh;
7278
7279    function vec_vupklsh
7280      (A : vector_signed_short) return vector_signed_int
7281    is
7282    begin
7283       return To_LL_VSI (vupklsh (To_LL_VSS (A)));
7284    end vec_vupklsh;
7285
7286    -- vec_vupklsb --
7287
7288    function vec_vupklsb
7289      (A : vector_bool_char) return vector_bool_short
7290    is
7291    begin
7292       return To_LL_VBS (vupklsb (To_LL_VSC (A)));
7293    end vec_vupklsb;
7294
7295    function vec_vupklsb
7296      (A : vector_signed_char) return vector_signed_short
7297    is
7298    begin
7299       return To_LL_VSS (vupklsb (To_LL_VSC (A)));
7300    end vec_vupklsb;
7301
7302    -- vec_xor --
7303
7304    function vec_xor
7305      (A : vector_float;
7306       B : vector_float) return vector_float
7307    is
7308    begin
7309       return To_LL_VF (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7310    end vec_xor;
7311
7312    function vec_xor
7313      (A : vector_float;
7314       B : vector_bool_int) return vector_float
7315    is
7316    begin
7317       return To_LL_VF (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7318    end vec_xor;
7319
7320    function vec_xor
7321      (A : vector_bool_int;
7322       B : vector_float) return vector_float
7323    is
7324    begin
7325       return To_LL_VF (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7326    end vec_xor;
7327
7328    function vec_xor
7329      (A : vector_bool_int;
7330       B : vector_bool_int) return vector_bool_int
7331    is
7332    begin
7333       return To_LL_VBI (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7334    end vec_xor;
7335
7336    function vec_xor
7337      (A : vector_bool_int;
7338       B : vector_signed_int) return vector_signed_int
7339    is
7340    begin
7341       return To_LL_VSI (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7342    end vec_xor;
7343
7344    function vec_xor
7345      (A : vector_signed_int;
7346       B : vector_bool_int) return vector_signed_int
7347    is
7348    begin
7349       return To_LL_VSI (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7350    end vec_xor;
7351
7352    function vec_xor
7353      (A : vector_signed_int;
7354       B : vector_signed_int) return vector_signed_int
7355    is
7356    begin
7357       return To_LL_VSI (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7358    end vec_xor;
7359
7360    function vec_xor
7361      (A : vector_bool_int;
7362       B : vector_unsigned_int) return vector_unsigned_int
7363    is
7364    begin
7365       return To_LL_VUI (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7366    end vec_xor;
7367
7368    function vec_xor
7369      (A : vector_unsigned_int;
7370       B : vector_bool_int) return vector_unsigned_int
7371    is
7372    begin
7373       return To_LL_VUI (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7374    end vec_xor;
7375
7376    function vec_xor
7377      (A : vector_unsigned_int;
7378       B : vector_unsigned_int) return vector_unsigned_int
7379    is
7380    begin
7381       return To_LL_VUI (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7382    end vec_xor;
7383
7384    function vec_xor
7385      (A : vector_bool_short;
7386       B : vector_bool_short) return vector_bool_short
7387    is
7388    begin
7389       return To_LL_VBS (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7390    end vec_xor;
7391
7392    function vec_xor
7393      (A : vector_bool_short;
7394       B : vector_signed_short) return vector_signed_short
7395    is
7396    begin
7397       return To_LL_VSS (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7398    end vec_xor;
7399
7400    function vec_xor
7401      (A : vector_signed_short;
7402       B : vector_bool_short) return vector_signed_short
7403    is
7404    begin
7405       return To_LL_VSS (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7406    end vec_xor;
7407
7408    function vec_xor
7409      (A : vector_signed_short;
7410       B : vector_signed_short) return vector_signed_short
7411    is
7412    begin
7413       return To_LL_VSS (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7414    end vec_xor;
7415
7416    function vec_xor
7417      (A : vector_bool_short;
7418       B : vector_unsigned_short) return vector_unsigned_short
7419    is
7420    begin
7421       return To_LL_VUS (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7422    end vec_xor;
7423
7424    function vec_xor
7425      (A : vector_unsigned_short;
7426       B : vector_bool_short) return vector_unsigned_short
7427    is
7428    begin
7429       return To_LL_VUS (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7430    end vec_xor;
7431
7432    function vec_xor
7433      (A : vector_unsigned_short;
7434       B : vector_unsigned_short) return vector_unsigned_short
7435    is
7436    begin
7437       return To_LL_VUS (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7438    end vec_xor;
7439
7440    function vec_xor
7441      (A : vector_bool_char;
7442       B : vector_signed_char) return vector_signed_char
7443    is
7444    begin
7445       return To_LL_VSC (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7446    end vec_xor;
7447
7448    function vec_xor
7449      (A : vector_bool_char;
7450       B : vector_bool_char) return vector_bool_char
7451    is
7452    begin
7453       return To_LL_VBC (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7454    end vec_xor;
7455
7456    function vec_xor
7457      (A : vector_signed_char;
7458       B : vector_bool_char) return vector_signed_char
7459    is
7460    begin
7461       return To_LL_VSC (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7462    end vec_xor;
7463
7464    function vec_xor
7465      (A : vector_signed_char;
7466       B : vector_signed_char) return vector_signed_char
7467    is
7468    begin
7469       return To_LL_VSC (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7470    end vec_xor;
7471
7472    function vec_xor
7473      (A : vector_bool_char;
7474       B : vector_unsigned_char) return vector_unsigned_char
7475    is
7476    begin
7477       return To_LL_VUC (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7478    end vec_xor;
7479
7480    function vec_xor
7481      (A : vector_unsigned_char;
7482       B : vector_bool_char) return vector_unsigned_char
7483    is
7484    begin
7485       return To_LL_VUC (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7486    end vec_xor;
7487
7488    function vec_xor
7489      (A : vector_unsigned_char;
7490       B : vector_unsigned_char) return vector_unsigned_char
7491    is
7492    begin
7493       return To_LL_VUC (vxor (To_LL_VSI (A), To_LL_VSI (B)));
7494    end vec_xor;
7495
7496    -----------------------------------
7497    -- Bodies for Altivec predicates --
7498    -----------------------------------
7499
7500    -- vec_all_eq --
7501
7502    function vec_all_eq
7503      (A : vector_signed_char;
7504       B : vector_bool_char) return c_int
7505    is
7506    begin
7507       return vcmpequb_p (CR6_LT, To_LL_VSC (A), To_LL_VSC (B));
7508    end vec_all_eq;
7509
7510    function vec_all_eq
7511      (A : vector_signed_char;
7512       B : vector_signed_char) return c_int
7513    is
7514    begin
7515       return vcmpequb_p (CR6_LT, To_LL_VSC (A), To_LL_VSC (B));
7516    end vec_all_eq;
7517
7518    function vec_all_eq
7519      (A : vector_unsigned_char;
7520       B : vector_bool_char) return c_int
7521    is
7522    begin
7523       return vcmpequb_p (CR6_LT, To_LL_VSC (A), To_LL_VSC (B));
7524    end vec_all_eq;
7525
7526    function vec_all_eq
7527      (A : vector_unsigned_char;
7528       B : vector_unsigned_char) return c_int
7529    is
7530    begin
7531       return vcmpequb_p (CR6_LT, To_LL_VSC (A), To_LL_VSC (B));
7532    end vec_all_eq;
7533
7534    function vec_all_eq
7535      (A : vector_bool_char;
7536       B : vector_bool_char) return c_int
7537    is
7538    begin
7539       return vcmpequb_p (CR6_LT, To_LL_VSC (A), To_LL_VSC (B));
7540    end vec_all_eq;
7541
7542    function vec_all_eq
7543      (A : vector_bool_char;
7544       B : vector_unsigned_char) return c_int
7545    is
7546    begin
7547       return vcmpequb_p (CR6_LT, To_LL_VSC (A), To_LL_VSC (B));
7548    end vec_all_eq;
7549
7550    function vec_all_eq
7551      (A : vector_bool_char;
7552       B : vector_signed_char) return c_int
7553    is
7554    begin
7555       return vcmpequb_p (CR6_LT, To_LL_VSC (A), To_LL_VSC (B));
7556    end vec_all_eq;
7557
7558    function vec_all_eq
7559      (A : vector_signed_short;
7560       B : vector_bool_short) return c_int
7561    is
7562    begin
7563       return vcmpequh_p (CR6_LT, To_LL_VSS (A), To_LL_VSS (B));
7564    end vec_all_eq;
7565
7566    function vec_all_eq
7567      (A : vector_signed_short;
7568       B : vector_signed_short) return c_int
7569    is
7570    begin
7571       return vcmpequh_p (CR6_LT, To_LL_VSS (A), To_LL_VSS (B));
7572    end vec_all_eq;
7573
7574    function vec_all_eq
7575      (A : vector_unsigned_short;
7576       B : vector_bool_short) return c_int
7577    is
7578    begin
7579       return vcmpequh_p (CR6_LT, To_LL_VSS (A), To_LL_VSS (B));
7580    end vec_all_eq;
7581
7582    function vec_all_eq
7583      (A : vector_unsigned_short;
7584       B : vector_unsigned_short) return c_int
7585    is
7586    begin
7587       return vcmpequh_p (CR6_LT, To_LL_VSS (A), To_LL_VSS (B));
7588    end vec_all_eq;
7589
7590    function vec_all_eq
7591      (A : vector_bool_short;
7592       B : vector_bool_short) return c_int
7593    is
7594    begin
7595       return vcmpequh_p (CR6_LT, To_LL_VSS (A), To_LL_VSS (B));
7596    end vec_all_eq;
7597
7598    function vec_all_eq
7599      (A : vector_bool_short;
7600       B : vector_unsigned_short) return c_int
7601    is
7602    begin
7603       return vcmpequh_p (CR6_LT, To_LL_VSS (A), To_LL_VSS (B));
7604    end vec_all_eq;
7605
7606    function vec_all_eq
7607      (A : vector_bool_short;
7608       B : vector_signed_short) return c_int
7609    is
7610    begin
7611       return vcmpequh_p (CR6_LT, To_LL_VSS (A), To_LL_VSS (B));
7612    end vec_all_eq;
7613
7614    function vec_all_eq
7615      (A : vector_pixel;
7616       B : vector_pixel) return c_int
7617    is
7618    begin
7619       return vcmpequh_p (CR6_LT, To_LL_VSS (A), To_LL_VSS (B));
7620    end vec_all_eq;
7621
7622    function vec_all_eq
7623      (A : vector_signed_int;
7624       B : vector_bool_int) return c_int
7625    is
7626    begin
7627       return vcmpequw_p (CR6_LT, To_LL_VSI (A), To_LL_VSI (B));
7628    end vec_all_eq;
7629
7630    function vec_all_eq
7631      (A : vector_signed_int;
7632       B : vector_signed_int) return c_int
7633    is
7634    begin
7635       return vcmpequw_p (CR6_LT, To_LL_VSI (A), To_LL_VSI (B));
7636    end vec_all_eq;
7637
7638    function vec_all_eq
7639      (A : vector_unsigned_int;
7640       B : vector_bool_int) return c_int
7641    is
7642    begin
7643       return vcmpequw_p (CR6_LT, To_LL_VSI (A), To_LL_VSI (B));
7644    end vec_all_eq;
7645
7646    function vec_all_eq
7647      (A : vector_unsigned_int;
7648       B : vector_unsigned_int) return c_int
7649    is
7650    begin
7651       return vcmpequw_p (CR6_LT, To_LL_VSI (A), To_LL_VSI (B));
7652    end vec_all_eq;
7653
7654    function vec_all_eq
7655      (A : vector_bool_int;
7656       B : vector_bool_int) return c_int
7657    is
7658    begin
7659       return vcmpequw_p (CR6_LT, To_LL_VSI (A), To_LL_VSI (B));
7660    end vec_all_eq;
7661
7662    function vec_all_eq
7663      (A : vector_bool_int;
7664       B : vector_unsigned_int) return c_int
7665    is
7666    begin
7667       return vcmpequw_p (CR6_LT, To_LL_VSI (A), To_LL_VSI (B));
7668    end vec_all_eq;
7669
7670    function vec_all_eq
7671      (A : vector_bool_int;
7672       B : vector_signed_int) return c_int
7673    is
7674    begin
7675       return vcmpequw_p (CR6_LT, To_LL_VSI (A), To_LL_VSI (B));
7676    end vec_all_eq;
7677
7678    function vec_all_eq
7679      (A : vector_float;
7680       B : vector_float) return c_int
7681    is
7682    begin
7683       return vcmpeqfp_p (CR6_LT, To_LL_VF (A), To_LL_VF (B));
7684    end vec_all_eq;
7685
7686    -- vec_all_ge --
7687
7688    function vec_all_ge
7689      (A : vector_bool_char;
7690       B : vector_unsigned_char) return c_int
7691    is
7692    begin
7693       return vcmpgtub_p (CR6_EQ, To_LL_VSC (B), To_LL_VSC (A));
7694    end vec_all_ge;
7695
7696    function vec_all_ge
7697      (A : vector_unsigned_char;
7698       B : vector_bool_char) return c_int
7699    is
7700    begin
7701       return vcmpgtub_p (CR6_EQ, To_LL_VSC (B), To_LL_VSC (A));
7702    end vec_all_ge;
7703
7704    function vec_all_ge
7705      (A : vector_unsigned_char;
7706       B : vector_unsigned_char) return c_int
7707    is
7708    begin
7709       return vcmpgtub_p (CR6_EQ, To_LL_VSC (B), To_LL_VSC (A));
7710    end vec_all_ge;
7711
7712    function vec_all_ge
7713      (A : vector_bool_char;
7714       B : vector_signed_char) return c_int
7715    is
7716    begin
7717       return vcmpgtsb_p (CR6_EQ, To_LL_VSC (B), To_LL_VSC (A));
7718    end vec_all_ge;
7719
7720    function vec_all_ge
7721      (A : vector_signed_char;
7722       B : vector_bool_char) return c_int
7723    is
7724    begin
7725       return vcmpgtsb_p (CR6_EQ, To_LL_VSC (B), To_LL_VSC (A));
7726    end vec_all_ge;
7727
7728    function vec_all_ge
7729      (A : vector_signed_char;
7730       B : vector_signed_char) return c_int
7731    is
7732    begin
7733       return vcmpgtsb_p (CR6_EQ, To_LL_VSC (B), To_LL_VSC (A));
7734    end vec_all_ge;
7735
7736    function vec_all_ge
7737      (A : vector_bool_short;
7738       B : vector_unsigned_short) return c_int
7739    is
7740    begin
7741       return vcmpgtuh_p (CR6_EQ, To_LL_VSS (B), To_LL_VSS (A));
7742    end vec_all_ge;
7743
7744    function vec_all_ge
7745      (A : vector_unsigned_short;
7746       B : vector_bool_short) return c_int
7747    is
7748    begin
7749       return vcmpgtuh_p (CR6_EQ, To_LL_VSS (B), To_LL_VSS (A));
7750    end vec_all_ge;
7751
7752    function vec_all_ge
7753      (A : vector_unsigned_short;
7754       B : vector_unsigned_short) return c_int
7755    is
7756    begin
7757       return vcmpgtuh_p (CR6_EQ, To_LL_VSS (B), To_LL_VSS (A));
7758    end vec_all_ge;
7759
7760    function vec_all_ge
7761      (A : vector_signed_short;
7762       B : vector_signed_short) return c_int
7763    is
7764    begin
7765       return vcmpgtsh_p (CR6_EQ, To_LL_VSS (B), To_LL_VSS (A));
7766    end vec_all_ge;
7767
7768    function vec_all_ge
7769      (A : vector_bool_short;
7770       B : vector_signed_short) return c_int
7771    is
7772    begin
7773       return vcmpgtsh_p (CR6_EQ, To_LL_VSS (B), To_LL_VSS (A));
7774    end vec_all_ge;
7775
7776    function vec_all_ge
7777      (A : vector_signed_short;
7778       B : vector_bool_short) return c_int
7779    is
7780    begin
7781       return vcmpgtsh_p (CR6_EQ, To_LL_VSS (B), To_LL_VSS (A));
7782    end vec_all_ge;
7783
7784    function vec_all_ge
7785      (A : vector_bool_int;
7786       B : vector_unsigned_int) return c_int
7787    is
7788    begin
7789       return vcmpgtuw_p (CR6_EQ, To_LL_VSI (B), To_LL_VSI (A));
7790    end vec_all_ge;
7791
7792    function vec_all_ge
7793      (A : vector_unsigned_int;
7794       B : vector_bool_int) return c_int
7795    is
7796    begin
7797       return vcmpgtuw_p (CR6_EQ, To_LL_VSI (B), To_LL_VSI (A));
7798    end vec_all_ge;
7799
7800    function vec_all_ge
7801      (A : vector_unsigned_int;
7802       B : vector_unsigned_int) return c_int
7803    is
7804    begin
7805       return vcmpgtuw_p (CR6_EQ, To_LL_VSI (B), To_LL_VSI (A));
7806    end vec_all_ge;
7807
7808    function vec_all_ge
7809      (A : vector_bool_int;
7810       B : vector_signed_int) return c_int
7811    is
7812    begin
7813       return vcmpgtsw_p (CR6_EQ, To_LL_VSI (B), To_LL_VSI (A));
7814    end vec_all_ge;
7815
7816    function vec_all_ge
7817      (A : vector_signed_int;
7818       B : vector_bool_int) return c_int
7819    is
7820    begin
7821       return vcmpgtsw_p (CR6_EQ, To_LL_VSI (B), To_LL_VSI (A));
7822    end vec_all_ge;
7823
7824    function vec_all_ge
7825      (A : vector_signed_int;
7826       B : vector_signed_int) return c_int
7827    is
7828    begin
7829       return vcmpgtsw_p (CR6_EQ, To_LL_VSI (B), To_LL_VSI (A));
7830    end vec_all_ge;
7831
7832    function vec_all_ge
7833      (A : vector_float;
7834       B : vector_float) return c_int
7835    is
7836    begin
7837       return vcmpgefp_p (CR6_LT, To_LL_VF (A), To_LL_VF (B));
7838    end vec_all_ge;
7839
7840    -- vec_all_gt --
7841
7842    function vec_all_gt
7843      (A : vector_bool_char;
7844       B : vector_unsigned_char) return c_int
7845    is
7846    begin
7847       return vcmpgtub_p (CR6_LT, To_LL_VSC (A), To_LL_VSC (B));
7848    end vec_all_gt;
7849
7850    function vec_all_gt
7851      (A : vector_unsigned_char;
7852       B : vector_bool_char) return c_int
7853    is
7854    begin
7855       return vcmpgtub_p (CR6_LT, To_LL_VSC (A), To_LL_VSC (B));
7856    end vec_all_gt;
7857
7858    function vec_all_gt
7859      (A : vector_unsigned_char;
7860       B : vector_unsigned_char) return c_int
7861    is
7862    begin
7863       return vcmpgtub_p (CR6_LT, To_LL_VSC (A), To_LL_VSC (B));
7864    end vec_all_gt;
7865
7866    function vec_all_gt
7867      (A : vector_bool_char;
7868       B : vector_signed_char) return c_int
7869    is
7870    begin
7871       return vcmpgtsb_p (CR6_LT, To_LL_VSC (A), To_LL_VSC (B));
7872    end vec_all_gt;
7873
7874    function vec_all_gt
7875      (A : vector_signed_char;
7876       B : vector_bool_char) return c_int
7877    is
7878    begin
7879       return vcmpgtsb_p (CR6_LT, To_LL_VSC (A), To_LL_VSC (B));
7880    end vec_all_gt;
7881
7882    function vec_all_gt
7883      (A : vector_signed_char;
7884       B : vector_signed_char) return c_int
7885    is
7886    begin
7887       return vcmpgtsb_p (CR6_LT, To_LL_VSC (A), To_LL_VSC (B));
7888    end vec_all_gt;
7889
7890    function vec_all_gt
7891      (A : vector_bool_short;
7892       B : vector_unsigned_short) return c_int
7893    is
7894    begin
7895       return vcmpgtuh_p (CR6_LT, To_LL_VSS (A), To_LL_VSS (B));
7896    end vec_all_gt;
7897
7898    function vec_all_gt
7899      (A : vector_unsigned_short;
7900       B : vector_bool_short) return c_int
7901    is
7902    begin
7903       return vcmpgtuh_p (CR6_LT, To_LL_VSS (A), To_LL_VSS (B));
7904    end vec_all_gt;
7905
7906    function vec_all_gt
7907      (A : vector_unsigned_short;
7908       B : vector_unsigned_short) return c_int
7909    is
7910    begin
7911       return vcmpgtuh_p (CR6_LT, To_LL_VSS (A), To_LL_VSS (B));
7912    end vec_all_gt;
7913
7914    function vec_all_gt
7915      (A : vector_bool_short;
7916       B : vector_signed_short) return c_int
7917    is
7918    begin
7919       return vcmpgtsh_p (CR6_LT, To_LL_VSS (A), To_LL_VSS (B));
7920    end vec_all_gt;
7921
7922    function vec_all_gt
7923      (A : vector_signed_short;
7924       B : vector_bool_short) return c_int
7925    is
7926    begin
7927       return vcmpgtsh_p (CR6_LT, To_LL_VSS (A), To_LL_VSS (B));
7928    end vec_all_gt;
7929
7930    function vec_all_gt
7931      (A : vector_signed_short;
7932       B : vector_signed_short) return c_int
7933    is
7934    begin
7935       return vcmpgtsh_p (CR6_LT, To_LL_VSS (A), To_LL_VSS (B));
7936    end vec_all_gt;
7937
7938    function vec_all_gt
7939      (A : vector_bool_int;
7940       B : vector_unsigned_int) return c_int
7941    is
7942    begin
7943       return vcmpgtuw_p (CR6_LT, To_LL_VSI (A), To_LL_VSI (B));
7944    end vec_all_gt;
7945
7946    function vec_all_gt
7947      (A : vector_unsigned_int;
7948       B : vector_bool_int) return c_int
7949    is
7950    begin
7951       return vcmpgtuw_p (CR6_LT, To_LL_VSI (A), To_LL_VSI (B));
7952    end vec_all_gt;
7953
7954    function vec_all_gt
7955      (A : vector_unsigned_int;
7956       B : vector_unsigned_int) return c_int
7957    is
7958    begin
7959       return vcmpgtuw_p (CR6_LT, To_LL_VSI (A), To_LL_VSI (B));
7960    end vec_all_gt;
7961
7962    function vec_all_gt
7963      (A : vector_bool_int;
7964       B : vector_signed_int) return c_int
7965    is
7966    begin
7967       return vcmpgtsw_p (CR6_LT, To_LL_VSI (A), To_LL_VSI (B));
7968    end vec_all_gt;
7969
7970    function vec_all_gt
7971      (A : vector_signed_int;
7972       B : vector_bool_int) return c_int
7973    is
7974    begin
7975       return vcmpgtsw_p (CR6_LT, To_LL_VSI (A), To_LL_VSI (B));
7976    end vec_all_gt;
7977
7978    function vec_all_gt
7979      (A : vector_signed_int;
7980       B : vector_signed_int) return c_int
7981    is
7982    begin
7983       return vcmpgtsw_p (CR6_LT, To_LL_VSI (A), To_LL_VSI (B));
7984    end vec_all_gt;
7985
7986    function vec_all_gt
7987      (A : vector_float;
7988       B : vector_float) return c_int
7989    is
7990    begin
7991       return vcmpgtfp_p (CR6_LT, To_LL_VF (A), To_LL_VF (B));
7992    end vec_all_gt;
7993
7994    -- vec_all_in --
7995
7996    function vec_all_in
7997      (A : vector_float;
7998       B : vector_float) return c_int
7999    is
8000    begin
8001       return vcmpbfp_p (CR6_EQ, To_LL_VF (A), To_LL_VF (B));
8002    end vec_all_in;
8003
8004    -- vec_all_le --
8005
8006    function vec_all_le
8007      (A : vector_bool_char;
8008       B : vector_unsigned_char) return c_int
8009    is
8010    begin
8011       return vcmpgtub_p (CR6_EQ, To_LL_VSC (A), To_LL_VSC (B));
8012    end vec_all_le;
8013
8014    function vec_all_le
8015      (A : vector_unsigned_char;
8016       B : vector_bool_char) return c_int
8017    is
8018    begin
8019       return vcmpgtub_p (CR6_EQ, To_LL_VSC (A), To_LL_VSC (B));
8020    end vec_all_le;
8021
8022    function vec_all_le
8023      (A : vector_unsigned_char;
8024       B : vector_unsigned_char) return c_int
8025    is
8026    begin
8027       return vcmpgtub_p (CR6_EQ, To_LL_VSC (A), To_LL_VSC (B));
8028    end vec_all_le;
8029
8030    function vec_all_le
8031      (A : vector_bool_char;
8032       B : vector_signed_char) return c_int
8033    is
8034    begin
8035       return vcmpgtsb_p (CR6_EQ, To_LL_VSC (A), To_LL_VSC (B));
8036    end vec_all_le;
8037
8038    function vec_all_le
8039      (A : vector_signed_char;
8040       B : vector_bool_char) return c_int
8041    is
8042    begin
8043       return vcmpgtsb_p (CR6_EQ, To_LL_VSC (A), To_LL_VSC (B));
8044    end vec_all_le;
8045
8046    function vec_all_le
8047      (A : vector_signed_char;
8048       B : vector_signed_char) return c_int
8049    is
8050    begin
8051       return vcmpgtsb_p (CR6_EQ, To_LL_VSC (A), To_LL_VSC (B));
8052    end vec_all_le;
8053
8054    function vec_all_le
8055      (A : vector_bool_short;
8056       B : vector_unsigned_short) return c_int
8057    is
8058    begin
8059       return vcmpgtuh_p (CR6_EQ, To_LL_VSS (A), To_LL_VSS (B));
8060    end vec_all_le;
8061
8062    function vec_all_le
8063      (A : vector_unsigned_short;
8064       B : vector_bool_short) return c_int
8065    is
8066    begin
8067       return vcmpgtuh_p (CR6_EQ, To_LL_VSS (A), To_LL_VSS (B));
8068    end vec_all_le;
8069
8070    function vec_all_le
8071      (A : vector_unsigned_short;
8072       B : vector_unsigned_short) return c_int
8073    is
8074    begin
8075       return vcmpgtuh_p (CR6_EQ, To_LL_VSS (A), To_LL_VSS (B));
8076    end vec_all_le;
8077
8078    function vec_all_le
8079      (A : vector_bool_short;
8080       B : vector_signed_short) return c_int
8081    is
8082    begin
8083       return vcmpgtsh_p (CR6_EQ, To_LL_VSS (A), To_LL_VSS (B));
8084    end vec_all_le;
8085
8086    function vec_all_le
8087      (A : vector_signed_short;
8088       B : vector_bool_short) return c_int
8089    is
8090    begin
8091       return vcmpgtsh_p (CR6_EQ, To_LL_VSS (A), To_LL_VSS (B));
8092    end vec_all_le;
8093
8094    function vec_all_le
8095      (A : vector_signed_short;
8096       B : vector_signed_short) return c_int
8097    is
8098    begin
8099       return vcmpgtsh_p (CR6_EQ, To_LL_VSS (A), To_LL_VSS (B));
8100    end vec_all_le;
8101
8102    function vec_all_le
8103      (A : vector_bool_int;
8104       B : vector_unsigned_int) return c_int
8105    is
8106    begin
8107       return vcmpgtuw_p (CR6_EQ, To_LL_VSI (A), To_LL_VSI (B));
8108    end vec_all_le;
8109
8110    function vec_all_le
8111      (A : vector_unsigned_int;
8112       B : vector_bool_int) return c_int
8113    is
8114    begin
8115       return vcmpgtuw_p (CR6_EQ, To_LL_VSI (A), To_LL_VSI (B));
8116    end vec_all_le;
8117
8118    function vec_all_le
8119      (A : vector_unsigned_int;
8120       B : vector_unsigned_int) return c_int
8121    is
8122    begin
8123       return vcmpgtuw_p (CR6_EQ, To_LL_VSI (A), To_LL_VSI (B));
8124    end vec_all_le;
8125
8126    function vec_all_le
8127      (A : vector_bool_int;
8128       B : vector_signed_int) return c_int
8129    is
8130    begin
8131       return vcmpgtsw_p (CR6_EQ, To_LL_VSI (A), To_LL_VSI (B));
8132    end vec_all_le;
8133
8134    function vec_all_le
8135      (A : vector_signed_int;
8136       B : vector_bool_int) return c_int
8137    is
8138    begin
8139       return vcmpgtsw_p (CR6_EQ, To_LL_VSI (A), To_LL_VSI (B));
8140    end vec_all_le;
8141
8142    function vec_all_le
8143      (A : vector_signed_int;
8144       B : vector_signed_int) return c_int
8145    is
8146    begin
8147       return vcmpgtsw_p (CR6_EQ, To_LL_VSI (A), To_LL_VSI (B));
8148    end vec_all_le;
8149
8150    function vec_all_le
8151      (A : vector_float;
8152       B : vector_float) return c_int
8153    is
8154    begin
8155       return vcmpgefp_p (CR6_LT, To_LL_VF (B), To_LL_VF (A));
8156    end vec_all_le;
8157
8158    -- vec_all_lt --
8159
8160    function vec_all_lt
8161      (A : vector_bool_char;
8162       B : vector_unsigned_char) return c_int
8163    is
8164    begin
8165       return vcmpgtub_p (CR6_LT, To_LL_VSC (B), To_LL_VSC (A));
8166    end vec_all_lt;
8167
8168    function vec_all_lt
8169      (A : vector_unsigned_char;
8170       B : vector_bool_char) return c_int
8171    is
8172    begin
8173       return vcmpgtub_p (CR6_LT, To_LL_VSC (B), To_LL_VSC (A));
8174    end vec_all_lt;
8175
8176    function vec_all_lt
8177      (A : vector_unsigned_char;
8178       B : vector_unsigned_char) return c_int
8179    is
8180    begin
8181       return vcmpgtub_p (CR6_LT, To_LL_VSC (B), To_LL_VSC (A));
8182    end vec_all_lt;
8183
8184    function vec_all_lt
8185      (A : vector_bool_char;
8186       B : vector_signed_char) return c_int
8187    is
8188    begin
8189       return vcmpgtsb_p (CR6_LT, To_LL_VSC (B), To_LL_VSC (A));
8190    end vec_all_lt;
8191
8192    function vec_all_lt
8193      (A : vector_signed_char;
8194       B : vector_bool_char) return c_int
8195    is
8196    begin
8197       return vcmpgtsb_p (CR6_LT, To_LL_VSC (B), To_LL_VSC (A));
8198    end vec_all_lt;
8199
8200    function vec_all_lt
8201      (A : vector_signed_char;
8202       B : vector_signed_char) return c_int
8203    is
8204    begin
8205       return vcmpgtsb_p (CR6_LT, To_LL_VSC (B), To_LL_VSC (A));
8206    end vec_all_lt;
8207
8208    function vec_all_lt
8209      (A : vector_bool_short;
8210       B : vector_unsigned_short) return c_int
8211    is
8212    begin
8213       return vcmpgtuh_p (CR6_LT, To_LL_VSS (B), To_LL_VSS (A));
8214    end vec_all_lt;
8215
8216    function vec_all_lt
8217      (A : vector_unsigned_short;
8218       B : vector_bool_short) return c_int
8219    is
8220    begin
8221       return vcmpgtuh_p (CR6_LT, To_LL_VSS (B), To_LL_VSS (A));
8222    end vec_all_lt;
8223
8224    function vec_all_lt
8225      (A : vector_unsigned_short;
8226       B : vector_unsigned_short) return c_int
8227    is
8228    begin
8229       return vcmpgtuh_p (CR6_LT, To_LL_VSS (B), To_LL_VSS (A));
8230    end vec_all_lt;
8231
8232    function vec_all_lt
8233      (A : vector_bool_short;
8234       B : vector_signed_short) return c_int
8235    is
8236    begin
8237       return vcmpgtsh_p (CR6_LT, To_LL_VSS (B), To_LL_VSS (A));
8238    end vec_all_lt;
8239
8240    function vec_all_lt
8241      (A : vector_signed_short;
8242       B : vector_bool_short) return c_int
8243    is
8244    begin
8245       return vcmpgtsh_p (CR6_LT, To_LL_VSS (B), To_LL_VSS (A));
8246    end vec_all_lt;
8247
8248    function vec_all_lt
8249      (A : vector_signed_short;
8250       B : vector_signed_short) return c_int
8251    is
8252    begin
8253       return vcmpgtsh_p (CR6_LT, To_LL_VSS (B), To_LL_VSS (A));
8254    end vec_all_lt;
8255
8256    function vec_all_lt
8257      (A : vector_bool_int;
8258       B : vector_unsigned_int) return c_int
8259    is
8260    begin
8261       return vcmpgtuw_p (CR6_LT, To_LL_VSI (B), To_LL_VSI (A));
8262    end vec_all_lt;
8263
8264    function vec_all_lt
8265      (A : vector_unsigned_int;
8266       B : vector_bool_int) return c_int
8267    is
8268    begin
8269       return vcmpgtuw_p (CR6_LT, To_LL_VSI (B), To_LL_VSI (A));
8270    end vec_all_lt;
8271
8272    function vec_all_lt
8273      (A : vector_unsigned_int;
8274       B : vector_unsigned_int) return c_int
8275    is
8276    begin
8277       return vcmpgtuw_p (CR6_LT, To_LL_VSI (B), To_LL_VSI (A));
8278    end vec_all_lt;
8279
8280    function vec_all_lt
8281      (A : vector_bool_int;
8282       B : vector_signed_int) return c_int
8283    is
8284    begin
8285       return vcmpgtsw_p (CR6_LT, To_LL_VSI (B), To_LL_VSI (A));
8286    end vec_all_lt;
8287
8288    function vec_all_lt
8289      (A : vector_signed_int;
8290       B : vector_bool_int) return c_int
8291    is
8292    begin
8293       return vcmpgtsw_p (CR6_LT, To_LL_VSI (B), To_LL_VSI (A));
8294    end vec_all_lt;
8295
8296    function vec_all_lt
8297      (A : vector_signed_int;
8298       B : vector_signed_int) return c_int
8299    is
8300    begin
8301       return vcmpgtsw_p (CR6_LT, To_LL_VSI (B), To_LL_VSI (A));
8302    end vec_all_lt;
8303
8304    function vec_all_lt
8305      (A : vector_float;
8306       B : vector_float) return c_int
8307    is
8308    begin
8309       return vcmpgtfp_p (CR6_LT, To_LL_VF (B), To_LL_VF (A));
8310    end vec_all_lt;
8311
8312    -- vec_all_nan --
8313
8314    function vec_all_nan
8315      (A : vector_float) return c_int
8316    is
8317    begin
8318       return vcmpeqfp_p (CR6_EQ, To_LL_VF (A), To_LL_VF (A));
8319    end vec_all_nan;
8320
8321    -- vec_all_ne --
8322
8323    function vec_all_ne
8324      (A : vector_signed_char;
8325       B : vector_bool_char) return c_int
8326    is
8327    begin
8328       return vcmpequb_p (CR6_EQ, To_LL_VSC (A), To_LL_VSC (B));
8329    end vec_all_ne;
8330
8331    function vec_all_ne
8332      (A : vector_signed_char;
8333       B : vector_signed_char) return c_int
8334    is
8335    begin
8336       return vcmpequb_p (CR6_EQ, To_LL_VSC (A), To_LL_VSC (B));
8337    end vec_all_ne;
8338
8339    function vec_all_ne
8340      (A : vector_unsigned_char;
8341       B : vector_bool_char) return c_int
8342    is
8343    begin
8344       return vcmpequb_p (CR6_EQ, To_LL_VSC (A), To_LL_VSC (B));
8345    end vec_all_ne;
8346
8347    function vec_all_ne
8348      (A : vector_unsigned_char;
8349       B : vector_unsigned_char) return c_int
8350    is
8351    begin
8352       return vcmpequb_p (CR6_EQ, To_LL_VSC (A), To_LL_VSC (B));
8353    end vec_all_ne;
8354
8355    function vec_all_ne
8356      (A : vector_bool_char;
8357       B : vector_bool_char) return c_int
8358    is
8359    begin
8360       return vcmpequb_p (CR6_EQ, To_LL_VSC (A), To_LL_VSC (B));
8361    end vec_all_ne;
8362
8363    function vec_all_ne
8364      (A : vector_bool_char;
8365       B : vector_unsigned_char) return c_int
8366    is
8367    begin
8368       return vcmpequb_p (CR6_EQ, To_LL_VSC (A), To_LL_VSC (B));
8369    end vec_all_ne;
8370
8371    function vec_all_ne
8372      (A : vector_bool_char;
8373       B : vector_signed_char) return c_int
8374    is
8375    begin
8376       return vcmpequb_p (CR6_EQ, To_LL_VSC (A), To_LL_VSC (B));
8377    end vec_all_ne;
8378
8379    function vec_all_ne
8380      (A : vector_signed_short;
8381       B : vector_bool_short) return c_int
8382    is
8383    begin
8384       return vcmpequh_p (CR6_EQ, To_LL_VSS (A), To_LL_VSS (B));
8385    end vec_all_ne;
8386
8387    function vec_all_ne
8388      (A : vector_signed_short;
8389       B : vector_signed_short) return c_int
8390    is
8391    begin
8392       return vcmpequh_p (CR6_EQ, To_LL_VSS (A), To_LL_VSS (B));
8393    end vec_all_ne;
8394
8395    function vec_all_ne
8396      (A : vector_unsigned_short;
8397       B : vector_bool_short) return c_int
8398    is
8399    begin
8400       return vcmpequh_p (CR6_EQ, To_LL_VSS (A), To_LL_VSS (B));
8401    end vec_all_ne;
8402
8403    function vec_all_ne
8404      (A : vector_unsigned_short;
8405       B : vector_unsigned_short) return c_int
8406    is
8407    begin
8408       return vcmpequh_p (CR6_EQ, To_LL_VSS (A), To_LL_VSS (B));
8409    end vec_all_ne;
8410
8411    function vec_all_ne
8412      (A : vector_bool_short;
8413       B : vector_bool_short) return c_int
8414    is
8415    begin
8416       return vcmpequh_p (CR6_EQ, To_LL_VSS (A), To_LL_VSS (B));
8417    end vec_all_ne;
8418
8419    function vec_all_ne
8420      (A : vector_bool_short;
8421       B : vector_unsigned_short) return c_int
8422    is
8423    begin
8424       return vcmpequh_p (CR6_EQ, To_LL_VSS (A), To_LL_VSS (B));
8425    end vec_all_ne;
8426
8427    function vec_all_ne
8428      (A : vector_bool_short;
8429       B : vector_signed_short) return c_int
8430    is
8431    begin
8432       return vcmpequh_p (CR6_EQ, To_LL_VSS (A), To_LL_VSS (B));
8433    end vec_all_ne;
8434
8435    function vec_all_ne
8436      (A : vector_pixel;
8437       B : vector_pixel) return c_int
8438    is
8439    begin
8440       return vcmpequh_p (CR6_EQ, To_LL_VSS (A), To_LL_VSS (B));
8441    end vec_all_ne;
8442
8443    function vec_all_ne
8444      (A : vector_signed_int;
8445       B : vector_bool_int) return c_int
8446    is
8447    begin
8448       return vcmpequw_p (CR6_EQ, To_LL_VSI (A), To_LL_VSI (B));
8449    end vec_all_ne;
8450
8451    function vec_all_ne
8452      (A : vector_signed_int;
8453       B : vector_signed_int) return c_int
8454    is
8455    begin
8456       return vcmpequw_p (CR6_EQ, To_LL_VSI (A), To_LL_VSI (B));
8457    end vec_all_ne;
8458
8459    function vec_all_ne
8460      (A : vector_unsigned_int;
8461       B : vector_bool_int) return c_int
8462    is
8463    begin
8464       return vcmpequw_p (CR6_EQ, To_LL_VSI (A), To_LL_VSI (B));
8465    end vec_all_ne;
8466
8467    function vec_all_ne
8468      (A : vector_unsigned_int;
8469       B : vector_unsigned_int) return c_int
8470    is
8471    begin
8472       return vcmpequw_p (CR6_EQ, To_LL_VSI (A), To_LL_VSI (B));
8473    end vec_all_ne;
8474
8475    function vec_all_ne
8476      (A : vector_bool_int;
8477       B : vector_bool_int) return c_int
8478    is
8479    begin
8480       return vcmpequw_p (CR6_EQ, To_LL_VSI (A), To_LL_VSI (B));
8481    end vec_all_ne;
8482
8483    function vec_all_ne
8484      (A : vector_bool_int;
8485       B : vector_unsigned_int) return c_int
8486    is
8487    begin
8488       return vcmpequw_p (CR6_EQ, To_LL_VSI (A), To_LL_VSI (B));
8489    end vec_all_ne;
8490
8491    function vec_all_ne
8492      (A : vector_bool_int;
8493       B : vector_signed_int) return c_int
8494    is
8495    begin
8496       return vcmpequw_p (CR6_EQ, To_LL_VSI (A), To_LL_VSI (B));
8497    end vec_all_ne;
8498
8499    function vec_all_ne
8500      (A : vector_float;
8501       B : vector_float) return c_int
8502    is
8503    begin
8504       return vcmpeqfp_p (CR6_EQ, To_LL_VF (A), To_LL_VF (B));
8505    end vec_all_ne;
8506
8507    -- vec_all_nge --
8508
8509    function vec_all_nge
8510      (A : vector_float;
8511       B : vector_float) return c_int
8512    is
8513    begin
8514       return vcmpgefp_p (CR6_EQ, To_LL_VF (A), To_LL_VF (B));
8515    end vec_all_nge;
8516
8517    -- vec_all_ngt --
8518
8519    function vec_all_ngt
8520      (A : vector_float;
8521       B : vector_float) return c_int
8522    is
8523    begin
8524       return vcmpgtfp_p (CR6_EQ, To_LL_VF (A), To_LL_VF (B));
8525    end vec_all_ngt;
8526
8527    -- vec_all_nle --
8528
8529    function vec_all_nle
8530      (A : vector_float;
8531       B : vector_float) return c_int
8532    is
8533    begin
8534       return vcmpgefp_p (CR6_EQ, To_LL_VF (B), To_LL_VF (A));
8535    end vec_all_nle;
8536
8537    -- vec_all_nlt --
8538
8539    function vec_all_nlt
8540      (A : vector_float;
8541       B : vector_float) return c_int
8542    is
8543    begin
8544       return vcmpgtfp_p (CR6_EQ, To_LL_VF (B), To_LL_VF (A));
8545    end vec_all_nlt;
8546
8547    -- vec_all_numeric --
8548
8549    function vec_all_numeric
8550      (A : vector_float) return c_int
8551    is
8552    begin
8553       return vcmpeqfp_p (CR6_LT, To_LL_VF (A), To_LL_VF (A));
8554    end vec_all_numeric;
8555
8556    -- vec_any_eq --
8557
8558    function vec_any_eq
8559      (A : vector_signed_char;
8560       B : vector_bool_char) return c_int
8561    is
8562    begin
8563       return vcmpequb_p (CR6_EQ_REV, To_LL_VSC (A), To_LL_VSC (B));
8564    end vec_any_eq;
8565
8566    function vec_any_eq
8567      (A : vector_signed_char;
8568       B : vector_signed_char) return c_int
8569    is
8570    begin
8571       return vcmpequb_p (CR6_EQ_REV, To_LL_VSC (A), To_LL_VSC (B));
8572    end vec_any_eq;
8573
8574    function vec_any_eq
8575      (A : vector_unsigned_char;
8576       B : vector_bool_char) return c_int
8577    is
8578    begin
8579       return vcmpequb_p (CR6_EQ_REV, To_LL_VSC (A), To_LL_VSC (B));
8580    end vec_any_eq;
8581
8582    function vec_any_eq
8583      (A : vector_unsigned_char;
8584       B : vector_unsigned_char) return c_int
8585    is
8586    begin
8587       return vcmpequb_p (CR6_EQ_REV, To_LL_VSC (A), To_LL_VSC (B));
8588    end vec_any_eq;
8589
8590    function vec_any_eq
8591      (A : vector_bool_char;
8592       B : vector_bool_char) return c_int
8593    is
8594    begin
8595       return vcmpequb_p (CR6_EQ_REV, To_LL_VSC (A), To_LL_VSC (B));
8596    end vec_any_eq;
8597
8598    function vec_any_eq
8599      (A : vector_bool_char;
8600       B : vector_unsigned_char) return c_int
8601    is
8602    begin
8603       return vcmpequb_p (CR6_EQ_REV, To_LL_VSC (A), To_LL_VSC (B));
8604    end vec_any_eq;
8605
8606    function vec_any_eq
8607      (A : vector_bool_char;
8608       B : vector_signed_char) return c_int
8609    is
8610    begin
8611       return vcmpequb_p (CR6_EQ_REV, To_LL_VSC (A), To_LL_VSC (B));
8612    end vec_any_eq;
8613
8614    function vec_any_eq
8615      (A : vector_signed_short;
8616       B : vector_bool_short) return c_int
8617    is
8618    begin
8619       return vcmpequh_p (CR6_EQ_REV, To_LL_VSS (A), To_LL_VSS (B));
8620    end vec_any_eq;
8621
8622    function vec_any_eq
8623      (A : vector_signed_short;
8624       B : vector_signed_short) return c_int
8625    is
8626    begin
8627       return vcmpequh_p (CR6_EQ_REV, To_LL_VSS (A), To_LL_VSS (B));
8628    end vec_any_eq;
8629
8630    function vec_any_eq
8631      (A : vector_unsigned_short;
8632       B : vector_bool_short) return c_int
8633    is
8634    begin
8635       return vcmpequh_p (CR6_EQ_REV, To_LL_VSS (A), To_LL_VSS (B));
8636    end vec_any_eq;
8637
8638    function vec_any_eq
8639      (A : vector_unsigned_short;
8640       B : vector_unsigned_short) return c_int
8641    is
8642    begin
8643       return vcmpequh_p (CR6_EQ_REV, To_LL_VSS (A), To_LL_VSS (B));
8644    end vec_any_eq;
8645
8646    function vec_any_eq
8647      (A : vector_bool_short;
8648       B : vector_bool_short) return c_int
8649    is
8650    begin
8651       return vcmpequh_p (CR6_EQ_REV, To_LL_VSS (A), To_LL_VSS (B));
8652    end vec_any_eq;
8653
8654    function vec_any_eq
8655      (A : vector_bool_short;
8656       B : vector_unsigned_short) return c_int
8657    is
8658    begin
8659       return vcmpequh_p (CR6_EQ_REV, To_LL_VSS (A), To_LL_VSS (B));
8660    end vec_any_eq;
8661
8662    function vec_any_eq
8663      (A : vector_bool_short;
8664       B : vector_signed_short) return c_int
8665    is
8666    begin
8667       return vcmpequh_p (CR6_EQ_REV, To_LL_VSS (A), To_LL_VSS (B));
8668    end vec_any_eq;
8669
8670    function vec_any_eq
8671      (A : vector_pixel;
8672       B : vector_pixel) return c_int
8673    is
8674    begin
8675       return vcmpequh_p (CR6_EQ_REV, To_LL_VSS (A), To_LL_VSS (B));
8676    end vec_any_eq;
8677
8678    function vec_any_eq
8679      (A : vector_signed_int;
8680       B : vector_bool_int) return c_int
8681    is
8682    begin
8683       return vcmpequw_p (CR6_EQ_REV, To_LL_VSI (A), To_LL_VSI (B));
8684    end vec_any_eq;
8685
8686    function vec_any_eq
8687      (A : vector_signed_int;
8688       B : vector_signed_int) return c_int
8689    is
8690    begin
8691       return vcmpequw_p (CR6_EQ_REV, To_LL_VSI (A), To_LL_VSI (B));
8692    end vec_any_eq;
8693
8694    function vec_any_eq
8695      (A : vector_unsigned_int;
8696       B : vector_bool_int) return c_int
8697    is
8698    begin
8699       return vcmpequw_p (CR6_EQ_REV, To_LL_VSI (A), To_LL_VSI (B));
8700    end vec_any_eq;
8701
8702    function vec_any_eq
8703      (A : vector_unsigned_int;
8704       B : vector_unsigned_int) return c_int
8705    is
8706    begin
8707       return vcmpequw_p (CR6_EQ_REV, To_LL_VSI (A), To_LL_VSI (B));
8708    end vec_any_eq;
8709
8710    function vec_any_eq
8711      (A : vector_bool_int;
8712       B : vector_bool_int) return c_int
8713    is
8714    begin
8715       return vcmpequw_p (CR6_EQ_REV, To_LL_VSI (A), To_LL_VSI (B));
8716    end vec_any_eq;
8717
8718    function vec_any_eq
8719      (A : vector_bool_int;
8720       B : vector_unsigned_int) return c_int
8721    is
8722    begin
8723       return vcmpequw_p (CR6_EQ_REV, To_LL_VSI (A), To_LL_VSI (B));
8724    end vec_any_eq;
8725
8726    function vec_any_eq
8727      (A : vector_bool_int;
8728       B : vector_signed_int) return c_int
8729    is
8730    begin
8731       return vcmpequw_p (CR6_EQ_REV, To_LL_VSI (A), To_LL_VSI (B));
8732    end vec_any_eq;
8733
8734    function vec_any_eq
8735      (A : vector_float;
8736       B : vector_float) return c_int
8737    is
8738    begin
8739       return vcmpeqfp_p (CR6_EQ_REV, To_LL_VF (A), To_LL_VF (B));
8740    end vec_any_eq;
8741
8742    -- vec_any_ge --
8743
8744    function vec_any_ge
8745      (A : vector_signed_char;
8746       B : vector_bool_char) return c_int
8747    is
8748    begin
8749       return vcmpgtub_p (CR6_LT_REV, To_LL_VSC (B), To_LL_VSC (A));
8750    end vec_any_ge;
8751
8752    function vec_any_ge
8753      (A : vector_unsigned_char;
8754       B : vector_bool_char) return c_int
8755    is
8756    begin
8757       return vcmpgtub_p (CR6_LT_REV, To_LL_VSC (B), To_LL_VSC (A));
8758    end vec_any_ge;
8759
8760    function vec_any_ge
8761      (A : vector_unsigned_char;
8762       B : vector_unsigned_char) return c_int
8763    is
8764    begin
8765       return vcmpgtub_p (CR6_LT_REV, To_LL_VSC (B), To_LL_VSC (A));
8766    end vec_any_ge;
8767
8768    function vec_any_ge
8769      (A : vector_signed_char;
8770       B : vector_signed_char) return c_int
8771    is
8772    begin
8773       return vcmpgtsb_p (CR6_LT_REV, To_LL_VSC (B), To_LL_VSC (A));
8774    end vec_any_ge;
8775
8776    function vec_any_ge
8777      (A : vector_bool_char;
8778       B : vector_unsigned_char) return c_int
8779    is
8780    begin
8781       return vcmpgtub_p (CR6_LT_REV, To_LL_VSC (B), To_LL_VSC (A));
8782    end vec_any_ge;
8783
8784    function vec_any_ge
8785      (A : vector_bool_char;
8786       B : vector_signed_char) return c_int
8787    is
8788    begin
8789       return vcmpgtub_p (CR6_LT_REV, To_LL_VSC (B), To_LL_VSC (A));
8790    end vec_any_ge;
8791
8792    function vec_any_ge
8793      (A : vector_unsigned_short;
8794       B : vector_bool_short) return c_int
8795    is
8796    begin
8797       return vcmpgtuh_p (CR6_LT_REV, To_LL_VSS (B), To_LL_VSS (A));
8798    end vec_any_ge;
8799
8800    function vec_any_ge
8801      (A : vector_unsigned_short;
8802       B : vector_unsigned_short) return c_int
8803    is
8804    begin
8805       return vcmpgtuh_p (CR6_LT_REV, To_LL_VSS (B), To_LL_VSS (A));
8806    end vec_any_ge;
8807
8808    function vec_any_ge
8809      (A : vector_signed_short;
8810       B : vector_signed_short) return c_int
8811    is
8812    begin
8813       return vcmpgtsh_p (CR6_LT_REV, To_LL_VSS (B), To_LL_VSS (A));
8814    end vec_any_ge;
8815
8816    function vec_any_ge
8817      (A : vector_signed_short;
8818       B : vector_bool_short) return c_int
8819    is
8820    begin
8821       return vcmpgtsh_p (CR6_LT_REV, To_LL_VSS (B), To_LL_VSS (A));
8822    end vec_any_ge;
8823
8824    function vec_any_ge
8825      (A : vector_bool_short;
8826       B : vector_unsigned_short) return c_int
8827    is
8828    begin
8829       return vcmpgtuh_p (CR6_LT_REV, To_LL_VSS (B), To_LL_VSS (A));
8830    end vec_any_ge;
8831
8832    function vec_any_ge
8833      (A : vector_bool_short;
8834       B : vector_signed_short) return c_int
8835    is
8836    begin
8837       return vcmpgtuh_p (CR6_LT_REV, To_LL_VSS (B), To_LL_VSS (A));
8838    end vec_any_ge;
8839
8840    function vec_any_ge
8841      (A : vector_signed_int;
8842       B : vector_bool_int) return c_int
8843    is
8844    begin
8845       return vcmpgtuw_p (CR6_LT_REV, To_LL_VSI (B), To_LL_VSI (A));
8846    end vec_any_ge;
8847
8848    function vec_any_ge
8849      (A : vector_unsigned_int;
8850       B : vector_bool_int) return c_int
8851    is
8852    begin
8853       return vcmpgtuw_p (CR6_LT_REV, To_LL_VSI (B), To_LL_VSI (A));
8854    end vec_any_ge;
8855
8856    function vec_any_ge
8857      (A : vector_unsigned_int;
8858       B : vector_unsigned_int) return c_int
8859    is
8860    begin
8861       return vcmpgtuw_p (CR6_LT_REV, To_LL_VSI (B), To_LL_VSI (A));
8862    end vec_any_ge;
8863
8864    function vec_any_ge
8865      (A : vector_signed_int;
8866       B : vector_signed_int) return c_int
8867    is
8868    begin
8869       return vcmpgtsw_p (CR6_LT_REV, To_LL_VSI (B), To_LL_VSI (A));
8870    end vec_any_ge;
8871
8872    function vec_any_ge
8873      (A : vector_bool_int;
8874       B : vector_unsigned_int) return c_int
8875    is
8876    begin
8877       return vcmpgtuw_p (CR6_LT_REV, To_LL_VSI (B), To_LL_VSI (A));
8878    end vec_any_ge;
8879
8880    function vec_any_ge
8881      (A : vector_bool_int;
8882       B : vector_signed_int) return c_int
8883    is
8884    begin
8885       return vcmpgtuw_p (CR6_LT_REV, To_LL_VSI (B), To_LL_VSI (A));
8886    end vec_any_ge;
8887
8888    function vec_any_ge
8889      (A : vector_float;
8890       B : vector_float) return c_int
8891    is
8892    begin
8893       return vcmpgefp_p (CR6_EQ_REV, To_LL_VF (A), To_LL_VF (B));
8894    end vec_any_ge;
8895
8896    -- vec_any_gt --
8897
8898    function vec_any_gt
8899      (A : vector_bool_char;
8900       B : vector_unsigned_char) return c_int
8901    is
8902    begin
8903       return vcmpgtub_p (CR6_EQ_REV, To_LL_VSC (A), To_LL_VSC (B));
8904    end vec_any_gt;
8905
8906    function vec_any_gt
8907      (A : vector_unsigned_char;
8908       B : vector_bool_char) return c_int
8909    is
8910    begin
8911       return vcmpgtub_p (CR6_EQ_REV, To_LL_VSC (A), To_LL_VSC (B));
8912    end vec_any_gt;
8913
8914    function vec_any_gt
8915      (A : vector_unsigned_char;
8916       B : vector_unsigned_char) return c_int
8917    is
8918    begin
8919       return vcmpgtub_p (CR6_EQ_REV, To_LL_VSC (A), To_LL_VSC (B));
8920    end vec_any_gt;
8921
8922    function vec_any_gt
8923      (A : vector_bool_char;
8924       B : vector_signed_char) return c_int
8925    is
8926    begin
8927       return vcmpgtsb_p (CR6_EQ_REV, To_LL_VSC (A), To_LL_VSC (B));
8928    end vec_any_gt;
8929
8930    function vec_any_gt
8931      (A : vector_signed_char;
8932       B : vector_bool_char) return c_int
8933    is
8934    begin
8935       return vcmpgtsb_p (CR6_EQ_REV, To_LL_VSC (A), To_LL_VSC (B));
8936    end vec_any_gt;
8937
8938    function vec_any_gt
8939      (A : vector_signed_char;
8940       B : vector_signed_char) return c_int
8941    is
8942    begin
8943       return vcmpgtsb_p (CR6_EQ_REV, To_LL_VSC (A), To_LL_VSC (B));
8944    end vec_any_gt;
8945
8946    function vec_any_gt
8947      (A : vector_bool_short;
8948       B : vector_unsigned_short) return c_int
8949    is
8950    begin
8951       return vcmpgtuh_p (CR6_EQ_REV, To_LL_VSS (A), To_LL_VSS (B));
8952    end vec_any_gt;
8953
8954    function vec_any_gt
8955      (A : vector_unsigned_short;
8956       B : vector_bool_short) return c_int
8957    is
8958    begin
8959       return vcmpgtuh_p (CR6_EQ_REV, To_LL_VSS (A), To_LL_VSS (B));
8960    end vec_any_gt;
8961
8962    function vec_any_gt
8963      (A : vector_unsigned_short;
8964       B : vector_unsigned_short) return c_int
8965    is
8966    begin
8967       return vcmpgtuh_p (CR6_EQ_REV, To_LL_VSS (A), To_LL_VSS (B));
8968    end vec_any_gt;
8969
8970    function vec_any_gt
8971      (A : vector_bool_short;
8972       B : vector_signed_short) return c_int
8973    is
8974    begin
8975       return vcmpgtsh_p (CR6_EQ_REV, To_LL_VSS (A), To_LL_VSS (B));
8976    end vec_any_gt;
8977
8978    function vec_any_gt
8979      (A : vector_signed_short;
8980       B : vector_bool_short) return c_int
8981    is
8982    begin
8983       return vcmpgtsh_p (CR6_EQ_REV, To_LL_VSS (A), To_LL_VSS (B));
8984    end vec_any_gt;
8985
8986    function vec_any_gt
8987      (A : vector_signed_short;
8988       B : vector_signed_short) return c_int
8989    is
8990    begin
8991       return vcmpgtsh_p (CR6_EQ_REV, To_LL_VSS (A), To_LL_VSS (B));
8992    end vec_any_gt;
8993
8994    function vec_any_gt
8995      (A : vector_bool_int;
8996       B : vector_unsigned_int) return c_int
8997    is
8998    begin
8999       return vcmpgtuw_p (CR6_EQ_REV, To_LL_VSI (A), To_LL_VSI (B));
9000    end vec_any_gt;
9001
9002    function vec_any_gt
9003      (A : vector_unsigned_int;
9004       B : vector_bool_int) return c_int
9005    is
9006    begin
9007       return vcmpgtuw_p (CR6_EQ_REV, To_LL_VSI (A), To_LL_VSI (B));
9008    end vec_any_gt;
9009
9010    function vec_any_gt
9011      (A : vector_unsigned_int;
9012       B : vector_unsigned_int) return c_int
9013    is
9014    begin
9015       return vcmpgtuw_p (CR6_EQ_REV, To_LL_VSI (A), To_LL_VSI (B));
9016    end vec_any_gt;
9017
9018    function vec_any_gt
9019      (A : vector_bool_int;
9020       B : vector_signed_int) return c_int
9021    is
9022    begin
9023       return vcmpgtsw_p (CR6_EQ_REV, To_LL_VSI (A), To_LL_VSI (B));
9024    end vec_any_gt;
9025
9026    function vec_any_gt
9027      (A : vector_signed_int;
9028       B : vector_bool_int) return c_int
9029    is
9030    begin
9031       return vcmpgtsw_p (CR6_EQ_REV, To_LL_VSI (A), To_LL_VSI (B));
9032    end vec_any_gt;
9033
9034    function vec_any_gt
9035      (A : vector_signed_int;
9036       B : vector_signed_int) return c_int
9037    is
9038    begin
9039       return vcmpgtsw_p (CR6_EQ_REV, To_LL_VSI (A), To_LL_VSI (B));
9040    end vec_any_gt;
9041
9042    function vec_any_gt
9043      (A : vector_float;
9044       B : vector_float) return c_int
9045    is
9046    begin
9047       return vcmpgtfp_p (CR6_EQ_REV, To_LL_VF (A), To_LL_VF (B));
9048    end vec_any_gt;
9049
9050    -- vec_any_le --
9051
9052    function vec_any_le
9053      (A : vector_bool_char;
9054       B : vector_unsigned_char) return c_int
9055    is
9056    begin
9057       return vcmpgtub_p (CR6_LT_REV, To_LL_VSC (A), To_LL_VSC (B));
9058    end vec_any_le;
9059
9060    function vec_any_le
9061      (A : vector_unsigned_char;
9062       B : vector_bool_char) return c_int
9063    is
9064    begin
9065       return vcmpgtub_p (CR6_LT_REV, To_LL_VSC (A), To_LL_VSC (B));
9066    end vec_any_le;
9067
9068    function vec_any_le
9069      (A : vector_unsigned_char;
9070       B : vector_unsigned_char) return c_int
9071    is
9072    begin
9073       return vcmpgtub_p (CR6_LT_REV, To_LL_VSC (A), To_LL_VSC (B));
9074    end vec_any_le;
9075
9076    function vec_any_le
9077      (A : vector_bool_char;
9078       B : vector_signed_char) return c_int
9079    is
9080    begin
9081       return vcmpgtsb_p (CR6_LT_REV, To_LL_VSC (A), To_LL_VSC (B));
9082    end vec_any_le;
9083
9084    function vec_any_le
9085      (A : vector_signed_char;
9086       B : vector_bool_char) return c_int
9087    is
9088    begin
9089       return vcmpgtsb_p (CR6_LT_REV, To_LL_VSC (A), To_LL_VSC (B));
9090    end vec_any_le;
9091
9092    function vec_any_le
9093      (A : vector_signed_char;
9094       B : vector_signed_char) return c_int
9095    is
9096    begin
9097       return vcmpgtsb_p (CR6_LT_REV, To_LL_VSC (A), To_LL_VSC (B));
9098    end vec_any_le;
9099
9100    function vec_any_le
9101      (A : vector_bool_short;
9102       B : vector_unsigned_short) return c_int
9103    is
9104    begin
9105       return vcmpgtuh_p (CR6_LT_REV, To_LL_VSS (A), To_LL_VSS (B));
9106    end vec_any_le;
9107
9108    function vec_any_le
9109      (A : vector_unsigned_short;
9110       B : vector_bool_short) return c_int
9111    is
9112    begin
9113       return vcmpgtuh_p (CR6_LT_REV, To_LL_VSS (A), To_LL_VSS (B));
9114    end vec_any_le;
9115
9116    function vec_any_le
9117      (A : vector_unsigned_short;
9118       B : vector_unsigned_short) return c_int
9119    is
9120    begin
9121       return vcmpgtuh_p (CR6_LT_REV, To_LL_VSS (A), To_LL_VSS (B));
9122    end vec_any_le;
9123
9124    function vec_any_le
9125      (A : vector_bool_short;
9126       B : vector_signed_short) return c_int
9127    is
9128    begin
9129       return vcmpgtsh_p (CR6_LT_REV, To_LL_VSS (A), To_LL_VSS (B));
9130    end vec_any_le;
9131
9132    function vec_any_le
9133      (A : vector_signed_short;
9134       B : vector_bool_short) return c_int
9135    is
9136    begin
9137       return vcmpgtsh_p (CR6_LT_REV, To_LL_VSS (A), To_LL_VSS (B));
9138    end vec_any_le;
9139
9140    function vec_any_le
9141      (A : vector_signed_short;
9142       B : vector_signed_short) return c_int
9143    is
9144    begin
9145       return vcmpgtsh_p (CR6_LT_REV, To_LL_VSS (A), To_LL_VSS (B));
9146    end vec_any_le;
9147
9148    function vec_any_le
9149      (A : vector_bool_int;
9150       B : vector_unsigned_int) return c_int
9151    is
9152    begin
9153       return vcmpgtuw_p (CR6_LT_REV, To_LL_VSI (A), To_LL_VSI (B));
9154    end vec_any_le;
9155
9156    function vec_any_le
9157      (A : vector_unsigned_int;
9158       B : vector_bool_int) return c_int
9159    is
9160    begin
9161       return vcmpgtuw_p (CR6_LT_REV, To_LL_VSI (A), To_LL_VSI (B));
9162    end vec_any_le;
9163
9164    function vec_any_le
9165      (A : vector_unsigned_int;
9166       B : vector_unsigned_int) return c_int
9167    is
9168    begin
9169       return vcmpgtuw_p (CR6_LT_REV, To_LL_VSI (A), To_LL_VSI (B));
9170    end vec_any_le;
9171
9172    function vec_any_le
9173      (A : vector_bool_int;
9174       B : vector_signed_int) return c_int
9175    is
9176    begin
9177       return vcmpgtsw_p (CR6_LT_REV, To_LL_VSI (A), To_LL_VSI (B));
9178    end vec_any_le;
9179
9180    function vec_any_le
9181      (A : vector_signed_int;
9182       B : vector_bool_int) return c_int
9183    is
9184    begin
9185       return vcmpgtsw_p (CR6_LT_REV, To_LL_VSI (A), To_LL_VSI (B));
9186    end vec_any_le;
9187
9188    function vec_any_le
9189      (A : vector_signed_int;
9190       B : vector_signed_int) return c_int
9191    is
9192    begin
9193       return vcmpgtsw_p (CR6_LT_REV, To_LL_VSI (A), To_LL_VSI (B));
9194    end vec_any_le;
9195
9196    function vec_any_le
9197      (A : vector_float;
9198       B : vector_float) return c_int
9199    is
9200    begin
9201       return vcmpgefp_p (CR6_EQ_REV, To_LL_VF (B), To_LL_VF (A));
9202    end vec_any_le;
9203
9204    -- vec_any_lt --
9205
9206    function vec_any_lt
9207      (A : vector_bool_char;
9208       B : vector_unsigned_char) return c_int
9209    is
9210    begin
9211       return vcmpgtub_p (CR6_EQ_REV, To_LL_VSC (B), To_LL_VSC (A));
9212    end vec_any_lt;
9213
9214    function vec_any_lt
9215      (A : vector_unsigned_char;
9216       B : vector_bool_char) return c_int
9217    is
9218    begin
9219       return vcmpgtub_p (CR6_EQ_REV, To_LL_VSC (B), To_LL_VSC (A));
9220    end vec_any_lt;
9221
9222    function vec_any_lt
9223      (A : vector_unsigned_char;
9224       B : vector_unsigned_char) return c_int
9225    is
9226    begin
9227       return vcmpgtub_p (CR6_EQ_REV, To_LL_VSC (B), To_LL_VSC (A));
9228    end vec_any_lt;
9229
9230    function vec_any_lt
9231      (A : vector_bool_char;
9232       B : vector_signed_char) return c_int
9233    is
9234    begin
9235       return vcmpgtsb_p (CR6_EQ_REV, To_LL_VSC (B), To_LL_VSC (A));
9236    end vec_any_lt;
9237
9238    function vec_any_lt
9239      (A : vector_signed_char;
9240       B : vector_bool_char) return c_int
9241    is
9242    begin
9243       return vcmpgtsb_p (CR6_EQ_REV, To_LL_VSC (B), To_LL_VSC (A));
9244    end vec_any_lt;
9245
9246    function vec_any_lt
9247      (A : vector_signed_char;
9248       B : vector_signed_char) return c_int
9249    is
9250    begin
9251       return vcmpgtsb_p (CR6_EQ_REV, To_LL_VSC (B), To_LL_VSC (A));
9252    end vec_any_lt;
9253
9254    function vec_any_lt
9255      (A : vector_bool_short;
9256       B : vector_unsigned_short) return c_int
9257    is
9258    begin
9259       return vcmpgtuh_p (CR6_EQ_REV, To_LL_VSS (B), To_LL_VSS (A));
9260    end vec_any_lt;
9261
9262    function vec_any_lt
9263      (A : vector_unsigned_short;
9264       B : vector_bool_short) return c_int
9265    is
9266    begin
9267       return vcmpgtuh_p (CR6_EQ_REV, To_LL_VSS (B), To_LL_VSS (A));
9268    end vec_any_lt;
9269
9270    function vec_any_lt
9271      (A : vector_unsigned_short;
9272       B : vector_unsigned_short) return c_int
9273    is
9274    begin
9275       return vcmpgtuh_p (CR6_EQ_REV, To_LL_VSS (B), To_LL_VSS (A));
9276    end vec_any_lt;
9277
9278    function vec_any_lt
9279      (A : vector_bool_short;
9280       B : vector_signed_short) return c_int
9281    is
9282    begin
9283       return vcmpgtsh_p (CR6_EQ_REV, To_LL_VSS (B), To_LL_VSS (A));
9284    end vec_any_lt;
9285
9286    function vec_any_lt
9287      (A : vector_signed_short;
9288       B : vector_bool_short) return c_int
9289    is
9290    begin
9291       return vcmpgtsh_p (CR6_EQ_REV, To_LL_VSS (B), To_LL_VSS (A));
9292    end vec_any_lt;
9293
9294    function vec_any_lt
9295      (A : vector_signed_short;
9296       B : vector_signed_short) return c_int
9297    is
9298    begin
9299       return vcmpgtsh_p (CR6_EQ_REV, To_LL_VSS (B), To_LL_VSS (A));
9300    end vec_any_lt;
9301
9302    function vec_any_lt
9303      (A : vector_bool_int;
9304       B : vector_unsigned_int) return c_int
9305    is
9306    begin
9307       return vcmpgtuw_p (CR6_EQ_REV, To_LL_VSI (B), To_LL_VSI (A));
9308    end vec_any_lt;
9309
9310    function vec_any_lt
9311      (A : vector_unsigned_int;
9312       B : vector_bool_int) return c_int
9313    is
9314    begin
9315       return vcmpgtuw_p (CR6_EQ_REV, To_LL_VSI (B), To_LL_VSI (A));
9316    end vec_any_lt;
9317
9318    function vec_any_lt
9319      (A : vector_unsigned_int;
9320       B : vector_unsigned_int) return c_int
9321    is
9322    begin
9323       return vcmpgtuw_p (CR6_EQ_REV, To_LL_VSI (B), To_LL_VSI (A));
9324    end vec_any_lt;
9325
9326    function vec_any_lt
9327      (A : vector_bool_int;
9328       B : vector_signed_int) return c_int
9329    is
9330    begin
9331       return vcmpgtsw_p (CR6_EQ_REV, To_LL_VSI (B), To_LL_VSI (A));
9332    end vec_any_lt;
9333
9334    function vec_any_lt
9335      (A : vector_signed_int;
9336       B : vector_bool_int) return c_int
9337    is
9338    begin
9339       return vcmpgtsw_p (CR6_EQ_REV, To_LL_VSI (B), To_LL_VSI (A));
9340    end vec_any_lt;
9341
9342    function vec_any_lt
9343      (A : vector_signed_int;
9344       B : vector_signed_int) return c_int
9345    is
9346    begin
9347       return vcmpgtsw_p (CR6_EQ_REV, To_LL_VSI (B), To_LL_VSI (A));
9348    end vec_any_lt;
9349
9350    function vec_any_lt
9351      (A : vector_float;
9352       B : vector_float) return c_int
9353    is
9354    begin
9355       return vcmpgtfp_p (CR6_EQ_REV, To_LL_VF (B), To_LL_VF (A));
9356    end vec_any_lt;
9357
9358    -- vec_any_nan --
9359
9360    function vec_any_nan
9361      (A : vector_float) return c_int
9362    is
9363    begin
9364       return vcmpeqfp_p (CR6_LT_REV, To_LL_VF (A), To_LL_VF (A));
9365    end vec_any_nan;
9366
9367    -- vec_any_ne --
9368
9369    function vec_any_ne
9370      (A : vector_signed_char;
9371       B : vector_bool_char) return c_int
9372    is
9373    begin
9374       return vcmpequb_p (CR6_LT_REV, To_LL_VSC (A), To_LL_VSC (B));
9375    end vec_any_ne;
9376
9377    function vec_any_ne
9378      (A : vector_signed_char;
9379       B : vector_signed_char) return c_int
9380    is
9381    begin
9382       return vcmpequb_p (CR6_LT_REV, To_LL_VSC (A), To_LL_VSC (B));
9383    end vec_any_ne;
9384
9385    function vec_any_ne
9386      (A : vector_unsigned_char;
9387       B : vector_bool_char) return c_int
9388    is
9389    begin
9390       return vcmpequb_p (CR6_LT_REV, To_LL_VSC (A), To_LL_VSC (B));
9391    end vec_any_ne;
9392
9393    function vec_any_ne
9394      (A : vector_unsigned_char;
9395       B : vector_unsigned_char) return c_int
9396    is
9397    begin
9398       return vcmpequb_p (CR6_LT_REV, To_LL_VSC (A), To_LL_VSC (B));
9399    end vec_any_ne;
9400
9401    function vec_any_ne
9402      (A : vector_bool_char;
9403       B : vector_bool_char) return c_int
9404    is
9405    begin
9406       return vcmpequb_p (CR6_LT_REV, To_LL_VSC (A), To_LL_VSC (B));
9407    end vec_any_ne;
9408
9409    function vec_any_ne
9410      (A : vector_bool_char;
9411       B : vector_unsigned_char) return c_int
9412    is
9413    begin
9414       return vcmpequb_p (CR6_LT_REV, To_LL_VSC (A), To_LL_VSC (B));
9415    end vec_any_ne;
9416
9417    function vec_any_ne
9418      (A : vector_bool_char;
9419       B : vector_signed_char) return c_int
9420    is
9421    begin
9422       return vcmpequb_p (CR6_LT_REV, To_LL_VSC (A), To_LL_VSC (B));
9423    end vec_any_ne;
9424
9425    function vec_any_ne
9426      (A : vector_signed_short;
9427       B : vector_bool_short) return c_int
9428    is
9429    begin
9430       return vcmpequh_p (CR6_LT_REV, To_LL_VSS (A), To_LL_VSS (B));
9431    end vec_any_ne;
9432
9433    function vec_any_ne
9434      (A : vector_signed_short;
9435       B : vector_signed_short) return c_int
9436    is
9437    begin
9438       return vcmpequh_p (CR6_LT_REV, To_LL_VSS (A), To_LL_VSS (B));
9439    end vec_any_ne;
9440
9441    function vec_any_ne
9442      (A : vector_unsigned_short;
9443       B : vector_bool_short) return c_int
9444    is
9445    begin
9446       return vcmpequh_p (CR6_LT_REV, To_LL_VSS (A), To_LL_VSS (B));
9447    end vec_any_ne;
9448
9449    function vec_any_ne
9450      (A : vector_unsigned_short;
9451       B : vector_unsigned_short) return c_int
9452    is
9453    begin
9454       return vcmpequh_p (CR6_LT_REV, To_LL_VSS (A), To_LL_VSS (B));
9455    end vec_any_ne;
9456
9457    function vec_any_ne
9458      (A : vector_bool_short;
9459       B : vector_bool_short) return c_int
9460    is
9461    begin
9462       return vcmpequh_p (CR6_LT_REV, To_LL_VSS (A), To_LL_VSS (B));
9463    end vec_any_ne;
9464
9465    function vec_any_ne
9466      (A : vector_bool_short;
9467       B : vector_unsigned_short) return c_int
9468    is
9469    begin
9470       return vcmpequh_p (CR6_LT_REV, To_LL_VSS (A), To_LL_VSS (B));
9471    end vec_any_ne;
9472
9473    function vec_any_ne
9474      (A : vector_bool_short;
9475       B : vector_signed_short) return c_int
9476    is
9477    begin
9478       return vcmpequh_p (CR6_LT_REV, To_LL_VSS (A), To_LL_VSS (B));
9479    end vec_any_ne;
9480
9481    function vec_any_ne
9482      (A : vector_pixel;
9483       B : vector_pixel) return c_int
9484    is
9485    begin
9486       return vcmpequh_p (CR6_LT_REV, To_LL_VSS (A), To_LL_VSS (B));
9487    end vec_any_ne;
9488
9489    function vec_any_ne
9490      (A : vector_signed_int;
9491       B : vector_bool_int) return c_int
9492    is
9493    begin
9494       return vcmpequw_p (CR6_LT_REV, To_LL_VSI (A), To_LL_VSI (B));
9495    end vec_any_ne;
9496
9497    function vec_any_ne
9498      (A : vector_signed_int;
9499       B : vector_signed_int) return c_int
9500    is
9501    begin
9502       return vcmpequw_p (CR6_LT_REV, To_LL_VSI (A), To_LL_VSI (B));
9503    end vec_any_ne;
9504
9505    function vec_any_ne
9506      (A : vector_unsigned_int;
9507       B : vector_bool_int) return c_int
9508    is
9509    begin
9510       return vcmpequw_p (CR6_LT_REV, To_LL_VSI (A), To_LL_VSI (B));
9511    end vec_any_ne;
9512
9513    function vec_any_ne
9514      (A : vector_unsigned_int;
9515       B : vector_unsigned_int) return c_int
9516    is
9517    begin
9518       return vcmpequw_p (CR6_LT_REV, To_LL_VSI (A), To_LL_VSI (B));
9519    end vec_any_ne;
9520
9521    function vec_any_ne
9522      (A : vector_bool_int;
9523       B : vector_bool_int) return c_int
9524    is
9525    begin
9526       return vcmpequw_p (CR6_LT_REV, To_LL_VSI (A), To_LL_VSI (B));
9527    end vec_any_ne;
9528
9529    function vec_any_ne
9530      (A : vector_bool_int;
9531       B : vector_unsigned_int) return c_int
9532    is
9533    begin
9534       return vcmpequw_p (CR6_LT_REV, To_LL_VSI (A), To_LL_VSI (B));
9535    end vec_any_ne;
9536
9537    function vec_any_ne
9538      (A : vector_bool_int;
9539       B : vector_signed_int) return c_int
9540    is
9541    begin
9542       return vcmpequw_p (CR6_LT_REV, To_LL_VSI (A), To_LL_VSI (B));
9543    end vec_any_ne;
9544
9545    function vec_any_ne
9546      (A : vector_float;
9547       B : vector_float) return c_int
9548    is
9549    begin
9550       return vcmpeqfp_p (CR6_LT_REV, To_LL_VF (A), To_LL_VF (B));
9551    end vec_any_ne;
9552
9553    -- vec_any_nge --
9554
9555    function vec_any_nge
9556      (A : vector_float;
9557       B : vector_float) return c_int
9558    is
9559    begin
9560       return vcmpgefp_p (CR6_LT_REV, To_LL_VF (A), To_LL_VF (B));
9561    end vec_any_nge;
9562
9563    -- vec_any_ngt --
9564
9565    function vec_any_ngt
9566      (A : vector_float;
9567       B : vector_float) return c_int
9568    is
9569    begin
9570       return vcmpgtfp_p (CR6_LT_REV, To_LL_VF (A), To_LL_VF (B));
9571    end vec_any_ngt;
9572
9573    -- vec_any_nle --
9574
9575    function vec_any_nle
9576      (A : vector_float;
9577       B : vector_float) return c_int
9578    is
9579    begin
9580       return vcmpgefp_p (CR6_LT_REV, To_LL_VF (B), To_LL_VF (A));
9581    end vec_any_nle;
9582
9583    -- vec_any_nlt --
9584
9585    function vec_any_nlt
9586      (A : vector_float;
9587       B : vector_float) return c_int
9588    is
9589    begin
9590       return vcmpgtfp_p (CR6_LT_REV, To_LL_VF (B), To_LL_VF (A));
9591    end vec_any_nlt;
9592
9593    -- vec_any_numeric --
9594
9595    function vec_any_numeric
9596      (A : vector_float) return c_int
9597    is
9598    begin
9599       return vcmpeqfp_p (CR6_EQ_REV, To_LL_VF (A), To_LL_VF (A));
9600    end vec_any_numeric;
9601
9602    -- vec_any_out --
9603
9604    function vec_any_out
9605      (A : vector_float;
9606       B : vector_float) return c_int
9607    is
9608    begin
9609       return vcmpbfp_p (CR6_EQ_REV, To_LL_VF (A), To_LL_VF (B));
9610    end vec_any_out;
9611
9612    -- vec_step --
9613
9614    function vec_step
9615      (V : vector_unsigned_char) return Integer
9616    is
9617       pragma Unreferenced (V);
9618    begin
9619       return 16;
9620    end vec_step;
9621
9622    function vec_step
9623      (V : vector_signed_char) return Integer
9624    is
9625       pragma Unreferenced (V);
9626    begin
9627       return 16;
9628    end vec_step;
9629
9630    function vec_step
9631      (V : vector_bool_char) return Integer
9632    is
9633       pragma Unreferenced (V);
9634    begin
9635       return 16;
9636    end vec_step;
9637
9638    function vec_step
9639      (V : vector_unsigned_short) return Integer
9640    is
9641       pragma Unreferenced (V);
9642    begin
9643       return 8;
9644    end vec_step;
9645
9646    function vec_step
9647      (V : vector_signed_short) return Integer
9648    is
9649       pragma Unreferenced (V);
9650    begin
9651       return 8;
9652    end vec_step;
9653
9654    function vec_step
9655      (V : vector_bool_short) return Integer
9656    is
9657       pragma Unreferenced (V);
9658    begin
9659       return 8;
9660    end vec_step;
9661
9662    function vec_step
9663      (V : vector_unsigned_int) return Integer
9664    is
9665       pragma Unreferenced (V);
9666    begin
9667       return 4;
9668    end vec_step;
9669
9670    function vec_step
9671      (V : vector_signed_int) return Integer
9672    is
9673       pragma Unreferenced (V);
9674    begin
9675       return 4;
9676    end vec_step;
9677
9678    function vec_step
9679      (V : vector_bool_int) return Integer
9680    is
9681       pragma Unreferenced (V);
9682    begin
9683       return 4;
9684    end vec_step;
9685
9686    function vec_step
9687      (V : vector_float) return Integer
9688    is
9689       pragma Unreferenced (V);
9690    begin
9691       return 4;
9692    end vec_step;
9693
9694    function vec_step
9695      (V : vector_pixel) return Integer
9696    is
9697       pragma Unreferenced (V);
9698    begin
9699       return 4;
9700    end vec_step;
9701
9702 end GNAT.Altivec.Vector_Operations;