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 32with GNAT.Altivec.Low_Level_Interface; use GNAT.Altivec.Low_Level_Interface; 33 34package 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 11008end GNAT.Altivec.Vector_Operations; 11009