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