/* HOW TO COMPILE: gcc -O -g -Wall -maltivec -mabi=altivec -DALTIVEC -DGCC_COMPILER testVMX.c -o testVMX */ /* * testVMX - A test program to check the correctness of VMX instructions * * Copyright (C) 2004 CEPBA-IBM Research Institute * * Authors: Jose Maria Cela, Raul de la Cruz, * Rogeli Grima, Xavier Saez * * Web page: http://www.ciri.upc.es/cela_pblade/ * * This file is part of testVMX. * * testVMX is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * testVMX is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with testVMX; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 US */ /* * Version 0.2.2 2004/09/02 * Removed some not useful flags for compilation and changed the GPL license * header updating the contact email and adding the web page URL * * Version 0.2.1 2004/07/07 * Some flags added in Makefile for XLC compilation (-qalias, -qinline) * * Version 0.2 2004/07/02 * Makefile and testVMX.c patched to compile with SLES 9 (Linux - GCC 3.3.3), * IBM XLC Enterprise Edition and MacOS X 10.3 (Darwin - GCC 3.3) * * Version 0.1 2004/03/05 * First public version release */ #include #include #include #include #include /* Calloc for align data to 16 bytes boundaries */ /* ----------- BEGIN #include "memoryVector.h" ----------- */ /* * testVMX - A test program to check the correctness of VMX instructions * * Copyright (C) 2004 CEPBA-IBM Research Institute * * Authors: Jose Maria Cela, Raul de la Cruz, * Rogeli Grima, Xavier Saez * * Web page: http://www.ciri.upc.es/cela_pblade/ * * This file is part of testVMX. * * testVMX is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * testVMX is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with testVMX; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 US */ #ifndef MEMORY_VECTOR_H # define MEMORY_VECTOR_H # include void *calloc_vec( size_t nmemb, size_t size ); void free_vec( void *ptr ); #endif /* ----------- END #include "memoryVector.h" ----------- */ /* ----------- BEGIN #include "memoryVector.c" ----------- */ /* * testVMX - A test program to check the correctness of VMX instructions * * Copyright (C) 2004 CEPBA-IBM Research Institute * * Authors: Jose Maria Cela, Raul de la Cruz, * Rogeli Grima, Xavier Saez * * Web page: http://www.ciri.upc.es/cela_pblade/ * * This file is part of testVMX. * * testVMX is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * testVMX is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with testVMX; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 US */ #include #include /* #include "memoryVector.h"*/ typedef struct { char *realAdd; char *returnAdd; } Tmemtab; static Tmemtab *memTab = NULL; static size_t nadd = 0; static size_t MAX_N_ADD = 100; void *calloc_vec( size_t nmemb, size_t size ) { /* ---------------------------------------------------------- Local Variables */ char *realadd; char *retadd; size_t nbytes, cc, rr; /* -------------------------------------------------------------------- BEGIN */ if (memTab == (Tmemtab*)NULL) { memTab = (Tmemtab *) malloc( MAX_N_ADD*sizeof(Tmemtab) ); if (memTab == (Tmemtab*)NULL) { fprintf(stderr, "\n------------ FATAL ERRROR ------------------\n"); fprintf(stderr, "Memory table out of memory\n"); return NULL; } } /* 16 extra bytes are allocated for adjust alignement */ nbytes = (size*nmemb)+16; /* Alloc a block of 'nbytes' */ realadd = (char *) malloc( nbytes ); if (realadd == (char *)NULL) { fprintf(stderr, "\n------------ FATAL ERRROR ------------------\n"); fprintf(stderr, "Out of memory\n"); return NULL; } memset( realadd, 0, nbytes ); cc = ((size_t)realadd)/16; rr = ((size_t)realadd)%16; if (rr == 0) retadd = realadd; else retadd = (char *)((cc+1)*16); if (nadd == MAX_N_ADD) { MAX_N_ADD += 100; memTab = (Tmemtab*) realloc( memTab, MAX_N_ADD*sizeof(Tmemtab) ); if (memTab == (Tmemtab*)NULL) { free( realadd ); fprintf(stderr, "\n------------ FATAL ERRROR ------------------\n"); fprintf(stderr, "Memory table out of memory\n"); return NULL; } } memTab[nadd].realAdd = realadd; memTab[nadd].returnAdd = retadd;; nadd++; return (void*)retadd; /* ---------------------------------------------------------------------- END */ } void free_vec( void *ptr ) { /* ---------------------------------------------------------- Local Variables */ int ii, pos; /* -------------------------------------------------------------------- BEGIN */ pos = -1; for (ii= 0; ii< nadd; ii++) if (memTab[ii].returnAdd == ptr) { pos = ii; break; } if (pos == -1) { fprintf(stderr, "\n------------ WARNING ------------------------\n"); fprintf(stderr, "Pointer not found in memory table\n\n"); } else { free( memTab[ii].realAdd ); for (ii= pos+1; ii< nadd; ii++) memTab[ii-1] = memTab[ii]; nadd--; if (nadd == 0) { free( memTab ); memTab = NULL; MAX_N_ADD = 100; } } /* ---------------------------------------------------------------------- END */ } /* ----------- END #include "memoryVector.c" ----------- */ #ifdef ALTIVEC # ifdef GCC_COMPILER # include # endif //#define TEST_FLOATS /* Redefinition for undefined NAN and xlC compiling C++ code */ # if !defined(NAN) || ( defined(__IBMCPP__) && defined(XLC_COMPILER) ) # undef NAN # define NAN 0x7FC00000 /* # define NAN 0xFFFA5A5A * # define NAN 0x80000000 * # define NAN 0x00008000 */ # endif int part1( ); int part2( ); int part3( ); int part4( ); int part5( ); typedef union { vector signed char v; signed char e[16]; } TvecChar; typedef union { vector unsigned char v; unsigned char e[16]; } TvecUChar; typedef union { vector bool char v; unsigned char e[16]; } TvecBChar; typedef union { vector signed short v; signed short e[8]; } TvecShort; typedef union { vector unsigned short v; unsigned short e[8]; } TvecUShort; typedef union { vector bool short v; unsigned short e[8]; } TvecBShort; typedef union { vector signed int v; signed int e[4]; } TvecInt; typedef union { vector unsigned int v; unsigned int e[4]; } TvecUInt; typedef union { vector bool int v; unsigned int e[4]; } TvecBInt; #if defined TEST_FLOATS typedef union { vector float v; float e[4]; signed int i[4]; } TvecFloat; #endif /* Scalar bool types declaration */ typedef unsigned char TboolChar; typedef unsigned short TboolShort; typedef unsigned int TboolInt; #endif /********************************************************************** Main() **********************************************************************/ int main() { TvecChar Caux1, Caux2, Caux3;//, Caux4; TvecUChar UCaux1, UCaux2, UCaux3;//, UCaux4; TvecBChar BCaux1;//, BCaux2, BCaux3, BCaux4; TvecShort Saux1, Saux2, Saux3;//, Saux4; TvecUShort USaux1, USaux2, USaux3;//, USaux4; TvecBShort BSaux1;//, BSaux2, BSaux3, BSaux4; TvecInt Iaux1, Iaux2, Iaux3;//, Iaux4; TvecUInt UIaux1, UIaux2, UIaux3;//, UIaux4; TvecBInt BIaux1;//, BIaux2, BIaux3, BIaux4; #if defined TEST_FLOATS TvecFloat Faux1, Faux2, Faux3;//, Faux4; #endif int i, err, j;//, b, bAux; #if defined TEST_FLOATS int b; signed int Ivec1, Ivec2, Ivec3; #endif // unsigned char *UCvec1; // signed short *Svec1; // unsigned short *USvec1; // unsigned int *UIvec1; #if defined TEST_FLOATS // float *Fvec1; #endif /* For saturated rutines */ // long long int LLaux; signed char Caux; unsigned char UCaux; signed short Saux; unsigned short USaux; signed int Iaux;//, I1, I2; unsigned int UIaux;//, UI1, UI2; #if defined TEST_FLOATS float Faux; #endif /* Scalar bool types definition */ TboolChar BCaux; TboolShort BSaux; TboolInt BIaux; /* union { float f; signed int si; unsigned int ui; signed short ss[2]; unsigned short us[2]; signed char sc[4]; unsigned char uc[4]; } INTunion1, INTunion2; union { signed short ss; unsigned short us; signed char sc[2]; unsigned char uc[2]; } SHOunion1, SHOunion2; */ #if defined (GCC_COMPILER) vector signed char Ccons1 = (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; vector signed char Ccons2 = (vector signed char){1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}; vector signed char Ccons3 = (vector signed char){-128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127}; vector unsigned char UCcons1 = (vector unsigned char){248, 249, 250, 251, 252, 253, 254, 255, 0, 1, 2, 3, 4, 5, 6, 7}; vector unsigned char UCcons2 = (vector unsigned char){2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2}; vector unsigned char UCcons3 = (vector unsigned char){1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8}; vector signed short Scons1 = (vector signed short){-4, -3, -2, -1, 0, 1, 2, 3}; vector signed short Scons2 = (vector signed short){-32768, 10000, 1, 1, 1, 1, -10000, -10000}; vector signed short Scons3 = (vector signed short){-32768, 32767, -32768, 32767, -32768, 32767, -32768, 32767}; vector unsigned short UScons1 = (vector unsigned short){65532, 65533, 65534, 65535, 0, 1, 2, 3}; vector unsigned short UScons2 = (vector unsigned short){1, 1, 1, 1, 1, 1, 1, 1}; vector unsigned short UScons3 = (vector unsigned short){1, 2, 3, 4, 1, 2, 3, 4}; vector signed int Icons1 = (vector signed int){-4, -1, 1, 4}; vector signed int Icons2 = (vector signed int){1, 1, 1, 1}; vector signed int Icons3 = (vector signed int){0x80000000, 0x7FFFFFFF, 0x80000000, 0x7FFFFFFF}; vector unsigned int UIcons1 = (vector unsigned int){0xFFFFFFFE, 0xFFFFFFFF, 0, 1}; vector unsigned int UIcons2 = (vector unsigned int){1, 1, 1, 1}; vector unsigned int UIcons3 = (vector unsigned int){1, 2, 1, 2}; #if defined TEST_FLOATS vector float Fcons1 = (vector float){-1.5, 1.0, 0.5, -3.999}; vector float Fcons2 = (vector float){1.0, 1.0, 1.0, 1.0}; vector float Fcons3 = (vector float){100000000000.0, 1.0, -1.0, -1234567890.0}; #endif #elif defined (MAC_COMPILER) || defined (XLC_COMPILER) vector signed char Ccons1 = (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); vector signed char Ccons2 = (vector signed char)(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1); vector signed char Ccons3 = (vector signed char)(-128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127); vector unsigned char UCcons1 = (vector unsigned char)(248, 249, 250, 251, 252, 253, 254, 255, 0, 1, 2, 3, 4, 5, 6, 7); vector unsigned char UCcons2 = (vector unsigned char)(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2); vector unsigned char UCcons3 = (vector unsigned char)(1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8); vector signed short Scons1 = (vector signed short)(-4, -3, -2, -1, 0, 1, 2, 3); vector signed short Scons2 = (vector signed short)(-32768, 10000, 1, 1, 1, 1, -10000, -10000); vector signed short Scons3 = (vector signed short)(-32768, 32767, -32768, 32767, -32768, 32767, -32768, 32767); vector unsigned short UScons1 = (vector unsigned short)(65532, 65533, 65534, 65535, 0, 1, 2, 3); vector unsigned short UScons2 = (vector unsigned short)(1, 1, 1, 1, 1, 1, 1, 1); vector unsigned short UScons3 = (vector unsigned short)(1, 2, 3, 4, 1, 2, 3, 4); vector signed int Icons1 = (vector signed int)(-4, -1, 1, 4); vector signed int Icons2 = (vector signed int)(1, 1, 1, 1); vector signed int Icons3 = (vector signed int)(0x80000000, 0x7FFFFFFF, 0x80000000, 0x7FFFFFFF); vector unsigned int UIcons1 = (vector unsigned int)(0xFFFFFFFE, 0xFFFFFFFF, 0, 1); vector unsigned int UIcons2 = (vector unsigned int)(1, 1, 1, 1); vector unsigned int UIcons3 = (vector unsigned int)(1, 2, 1, 2); #if defined TEST_FLOATS vector float Fcons1 = (vector float)(-1.5, 1.0, 0.5, -3.999); vector float Fcons2 = (vector float)(1.0, 1.0, 1.0, 1.0); vector float Fcons3 = (vector float)(100000000000.0, 1.0, -1.0, -1234567890.0); #endif #endif /* Function vec_abs */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_abs( Ccons1 ); Caux2.v = Ccons1; for( i=0; i< 16; i++ ) if (Caux1.e[i] != abs( Caux2.e[i] )) err++; if (err) printf("Function vec_abs [type char] ===> Error\n"); else printf("Function vec_abs [type char] ===> OK\n"); err = 0; Saux1.v = vec_abs( Scons1 ); Saux2.v = Scons1; for( i=0; i< 8; i++ ) if (Saux1.e[i] != abs( Saux2.e[i] )) err++; if (err) printf("Function vec_abs [type short] ===> Error\n"); else printf("Function vec_abs [type short] ===> OK\n"); err = 0; Iaux1.v = vec_abs( Icons1 ); Iaux2.v = Icons1; for( i=0; i< 4; i++ ) if (Iaux1.e[i] != abs( Iaux2.e[i] )) err++; if (err) printf("Function vec_abs [type integer] ===> Error\n"); else printf("Function vec_abs [type integer] ===> OK\n"); #if defined TEST_FLOATS err = 0; Faux1.v = vec_abs( Fcons1 ); Faux2.v = Fcons1; for( i=0; i< 4; i++ ) if (Faux1.e[i] != fabs( Faux2.e[i] )) err++; if (err) printf("Function vec_abs [type float] ===> Error\n"); else printf("Function vec_abs [type float] ===> OK\n"); #endif /* Function vec_abss */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_abss( Ccons1 ); Caux2.v = Ccons1; for( i=0; i< 16; i++ ) if (Caux1.e[i] != abs( Caux2.e[i] )) err++; if (err) printf("Function vec_abss [type char] ===> Error\n"); else printf("Function vec_abss [type char] ===> OK\n"); err = 0; Saux1.v = vec_abss( Scons1 ); Saux2.v = Scons1; for( i=0; i< 8; i++ ) if (Saux1.e[i] != abs( Saux2.e[i] )) err++; if (err) printf("Function vec_abss [type short] ===> Error\n"); else printf("Function vec_abss [type short] ===> OK\n"); err = 0; Iaux1.v = vec_abss( Icons1 ); Iaux2.v = Icons1; for( i=0; i< 4; i++ ) if (Iaux1.e[i] != abs( Iaux2.e[i] )) err++; if (err) printf("Function vec_abss [type integer] ===> Error\n"); else printf("Function vec_abss [type integer] ===> OK\n"); /* Function vec_add */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_add( Ccons1, Ccons2 ); Caux2.v = Ccons1; Caux3.v = Ccons2; for( i=0; i< 16; i++ ) { Caux = Caux2.e[i]+Caux3.e[i]; if (Caux1.e[i] != Caux) err++; } if (err) printf("Function vec_add [type char] ===> Error\n"); else printf("Function vec_add [type char] ===> OK\n"); err = 0; UCaux1.v = vec_add( UCcons1, UCcons2 ); UCaux2.v = UCcons1; UCaux3.v = UCcons2; for( i=0; i< 16; i++ ) { UCaux = UCaux2.e[i]+UCaux3.e[i]; if (UCaux1.e[i] != UCaux) err++; } if (err) printf("Function vec_add [type unsigned char] ===> Error\n"); else printf("Function vec_add [type unsigned char] ===> OK\n"); err = 0; Saux1.v = vec_add( Scons1, Scons2 ); Saux2.v = Scons1; Saux3.v = Scons2; for( i=0; i< 8; i++ ) { Saux = Saux2.e[i]+Saux3.e[i]; if (Saux1.e[i] != Saux) err++; } if (err) printf("Function vec_add [type short] ===> Error\n"); else printf("Function vec_add [type short] ===> OK\n"); err = 0; USaux1.v = vec_add( UScons1, UScons2 ); USaux2.v = UScons1; USaux3.v = UScons2; for( i=0; i< 8; i++ ) { USaux = USaux2.e[i]+USaux3.e[i]; if (USaux1.e[i] != USaux) err++; } if (err) printf("Function vec_add [type unsigned short] ===> Error\n"); else printf("Function vec_add [type unsigned short] ===> OK\n"); err = 0; Iaux1.v = vec_add( Icons1, Icons2 ); Iaux2.v = Icons1; Iaux3.v = Icons2; for( i=0; i< 4; i++ ) { Iaux = Iaux2.e[i]+Iaux3.e[i]; if (Iaux1.e[i] != Iaux) err++; } if (err) printf("Function vec_add [type integer] ===> Error\n"); else printf("Function vec_add [type integer] ===> OK\n"); err = 0; UIaux1.v = vec_add( UIcons1, UIcons3 ); UIaux2.v = UIcons1; UIaux3.v = UIcons3; for( i=0; i< 4; i++ ) { UIaux = UIaux2.e[i]+UIaux3.e[i]; if (UIaux1.e[i] != UIaux) err++; } if (err) printf("Function vec_add [type unsigned int] ===> Error\n"); else printf("Function vec_add [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; Faux1.v = vec_add( Fcons1, Fcons2 ); Faux2.v = Fcons1; Faux3.v = Fcons2; for( i=0; i< 4; i++ ) { Faux = Faux2.e[i]+Faux3.e[i]; if (Faux1.e[i] != Faux) err++; } if (err) printf("Function vec_add [type float] ===> Error\n"); else printf("Function vec_add [type float] ===> OK\n"); #endif /* Function vec_addc */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; UIaux1.v = vec_addc( UIcons1, UIcons3 ); UIaux2.v = UIcons1; UIaux3.v = UIcons3; for( i=0; i< 4; i++ ) { UIaux = (unsigned int)(UIaux2.e[i]+UIaux3.e[i]); if ((UIaux< UIaux2.e[i]) || (UIaux< UIaux3.e[i])) UIaux=1; else UIaux=0; if (UIaux1.e[i] != UIaux) err++; } if (err) printf("Function vec_addc [type unsigned int] ===> Error\n"); else printf("Function vec_addc [type unsigned int] ===> OK\n"); /* Function vec_adds */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_adds( Ccons1, Ccons3 ); Caux2.v = Ccons1; Caux3.v = Ccons3; for( i=0; i< 16; i++ ) { Caux = Caux2.e[i]+Caux3.e[i]; if ((Caux2.e[i]>0)&&(Caux3.e[i]>0)) { if (Caux< 0) Caux=0x7F; } else if ((Caux2.e[i]<0)&&(Caux3.e[i]<0)) { if (Caux> 0) Caux=0x80; } if (Caux1.e[i] != Caux) err++; } if (err) printf("Function vec_adds [type char] ===> Error\n"); else printf("Function vec_adds [type char] ===> OK\n"); err = 0; UCaux1.v = vec_adds( UCcons1, UCcons3 ); UCaux2.v = UCcons1; UCaux3.v = UCcons3; for( i=0; i< 16; i++ ) { UCaux = (unsigned char)(UCaux2.e[i]+UCaux3.e[i]); if ((UCaux< UCaux2.e[i]) || (UCaux< UCaux3.e[i])) UCaux=0xFF; if (UCaux1.e[i] != UCaux) err++; } if (err) printf("Function vec_adds [type unsigned char] ===> Error\n"); else printf("Function vec_adds [type unsigned char] ===> OK\n"); err = 0; Saux1.v = vec_adds( Scons1, Scons3 ); Saux2.v = Scons1; Saux3.v = Scons3; for( i=0; i< 8; i++ ) { Saux = Saux2.e[i]+Saux3.e[i]; if ((Saux2.e[i]>0)&&(Saux3.e[i]>0)) { if (Saux< 0) Saux=0x7FFF; } else if ((Saux2.e[i]<0)&&(Saux3.e[i]<0)) { if (Saux> 0) Saux=0x8000; } if (Saux1.e[i] != Saux) err++; } if (err) printf("Function vec_adds [type short] ===> Error\n"); else printf("Function vec_adds [type short] ===> OK\n"); err = 0; USaux1.v = vec_adds( UScons1, UScons3 ); USaux2.v = UScons1; USaux3.v = UScons3; for( i=0; i< 8; i++ ) { USaux = (unsigned short)(USaux2.e[i]+USaux3.e[i]); if ((USaux< USaux2.e[i]) || (USaux< USaux3.e[i])) USaux=0xFFFF; if (USaux1.e[i] != USaux) err++; } if (err) printf("Function vec_adds [type unsigned short] ===> Error\n"); else printf("Function vec_adds [type unsigned short] ===> OK\n"); err = 0; Iaux1.v = vec_adds( Icons1, Icons3 ); Iaux2.v = Icons1; Iaux3.v = Icons3; for( i=0; i< 4; i++ ) { Iaux = Iaux2.e[i]+Iaux3.e[i]; if ((Iaux2.e[i]>0)&&(Iaux3.e[i]>0)) { if (Iaux< 0) Iaux=0x7FFFFFFF; } else if ((Iaux2.e[i]<0)&&(Iaux3.e[i]<0)) { if (Iaux> 0) Iaux=0x80000000; } if (Iaux1.e[i] != Iaux) err++; } if (err) printf("Function vec_adds [type integer] ===> Error\n"); else printf("Function vec_adds [type integer] ===> OK\n"); err = 0; UIaux1.v = vec_adds( UIcons1, UIcons3 ); UIaux2.v = UIcons1; UIaux3.v = UIcons3; for( i=0; i< 4; i++ ) { UIaux = (unsigned int)(UIaux2.e[i]+UIaux3.e[i]); if ((UIaux< UIaux2.e[i]) || (UIaux< UIaux3.e[i])) UIaux=0xFFFFFFFF; if (UIaux1.e[i] != UIaux) err++; } if (err) printf("Function vec_adds [type unsigned int] ===> Error\n"); else printf("Function vec_adds [type unsigned int] ===> OK\n"); /* Function vec_and */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_and( Ccons1, Ccons2 ); Caux2.v = Ccons1; Caux3.v = Ccons2; for( i=0; i< 16; i++ ) if (Caux1.e[i] != (Caux2.e[i] & Caux3.e[i])) err++; if (err) printf("Function vec_and [type char] ===> Error\n"); else printf("Function vec_and [type char] ===> OK\n"); err = 0; UCaux1.v = vec_and( UCcons1, UCcons2 ); UCaux2.v = UCcons1; UCaux3.v = UCcons2; for( i=0; i< 16; i++ ) if (UCaux1.e[i] != (UCaux2.e[i] & UCaux3.e[i])) err++; if (err) printf("Function vec_and [type unsigned char] ===> Error\n"); else printf("Function vec_and [type unsigned char] ===> OK\n"); err = 0; Saux1.v = vec_and( Scons1, Scons2 ); Saux2.v = Scons1; Saux3.v = Scons2; for( i=0; i< 8; i++ ) if (Saux1.e[i] != (Saux2.e[i] & Saux3.e[i])) err++; if (err) printf("Function vec_and [type short] ===> Error\n"); else printf("Function vec_and [type short] ===> OK\n"); err = 0; USaux1.v = vec_and( UScons1, UScons2 ); USaux2.v = UScons1; USaux3.v = UScons2; for( i=0; i< 8; i++ ) if (USaux1.e[i] != (USaux2.e[i] & USaux3.e[i])) err++; if (err) printf("Function vec_and [type unsigned short] ===> Error\n"); else printf("Function vec_and [type unsigned short] ===> OK\n"); err = 0; Iaux1.v = vec_and( Icons1, Icons2 ); Iaux2.v = Icons1; Iaux3.v = Icons2; for( i=0; i< 4; i++ ) if (Iaux1.e[i] != (Iaux2.e[i] & Iaux3.e[i])) err++; if (err) printf("Function vec_and [type integer] ===> Error\n"); else printf("Function vec_and [type integer] ===> OK\n"); err = 0; UIaux1.v = vec_and( UIcons1, UIcons2 ); UIaux2.v = UIcons1; UIaux3.v = UIcons2; for( i=0; i< 4; i++ ) if (UIaux1.e[i] != (UIaux2.e[i] & UIaux3.e[i])) err++; if (err) printf("Function vec_and [type unsigned int] ===> Error\n"); else printf("Function vec_and [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; Faux1.v = vec_and( Fcons1, Fcons2 ); Faux2.v = Fcons1; Faux3.v = Fcons2; for( i=0; i< 4; i++ ) { Ivec1 = Faux1.i[i]; Ivec2 = Faux2.i[i]; Ivec3 = Faux3.i[i]; if ((Ivec1) != ((Ivec2) & (Ivec3))) err++; } if (err) printf("Function vec_and [type float] ===> Error\n"); else printf("Function vec_and [type float] ===> OK\n"); #endif /* Function vec_andc */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_andc( Ccons1, Ccons2 ); Caux2.v = Ccons1; Caux3.v = Ccons2; for( i=0; i< 16; i++ ) if (Caux1.e[i] != (Caux2.e[i] & ~Caux3.e[i])) err++; if (err) printf("Function vec_andc [type char] ===> Error\n"); else printf("Function vec_andc [type char] ===> OK\n"); err = 0; UCaux1.v = vec_andc( UCcons1, UCcons2 ); UCaux2.v = UCcons1; UCaux3.v = UCcons2; for( i=0; i< 16; i++ ) if (UCaux1.e[i] != (UCaux2.e[i] & ~UCaux3.e[i])) err++; if (err) printf("Function vec_andc [type unsigned char] ===> Error\n"); else printf("Function vec_andc [type unsigned char] ===> OK\n"); err = 0; Saux1.v = vec_andc( Scons1, Scons2 ); Saux2.v = Scons1; Saux3.v = Scons2; for( i=0; i< 8; i++ ) if (Saux1.e[i] != (Saux2.e[i] & ~Saux3.e[i])) err++; if (err) printf("Function vec_andc [type short] ===> Error\n"); else printf("Function vec_andc [type short] ===> OK\n"); err = 0; USaux1.v = vec_andc( UScons1, UScons2 ); USaux2.v = UScons1; USaux3.v = UScons2; for( i=0; i< 8; i++ ) if (USaux1.e[i] != (USaux2.e[i] & ~USaux3.e[i])) err++; if (err) printf("Function vec_andc [type unsigned short] ===> Error\n"); else printf("Function vec_andc [type unsigned short] ===> OK\n"); err = 0; Iaux1.v = vec_andc( Icons1, Icons2 ); Iaux2.v = Icons1; Iaux3.v = Icons2; for( i=0; i< 4; i++ ) if (Iaux1.e[i] != (Iaux2.e[i] & ~Iaux3.e[i])) err++; if (err) printf("Function vec_andc [type integer] ===> Error\n"); else printf("Function vec_andc [type integer] ===> OK\n"); err = 0; UIaux1.v = vec_andc( UIcons1, UIcons2 ); UIaux2.v = UIcons1; UIaux3.v = UIcons2; for( i=0; i< 4; i++ ) if (UIaux1.e[i] != (UIaux2.e[i] & ~UIaux3.e[i])) err++; if (err) printf("Function vec_andc [type unsigned int] ===> Error\n"); else printf("Function vec_andc [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; Faux1.v = vec_andc( Fcons1, Fcons2 ); Faux2.v = Fcons1; Faux3.v = Fcons2; for( i=0; i< 4; i++ ) { Ivec1 = Faux1.i[i]; Ivec2 = Faux2.i[i]; Ivec3 = Faux3.i[i]; if ((Ivec1) != ((Ivec2) & ~(Ivec3))) err++; } if (err) printf("Function vec_andc [type float] ===> Error\n"); else printf("Function vec_andc [type float] ===> OK\n"); #endif /* Function vec_avg */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_avg( Ccons1, Ccons2 ); Caux2.v = Ccons1; Caux3.v = Ccons2; for( i=0; i< 16; i++ ) { j = (Caux2.e[i]+Caux3.e[i]+1) >> 1; if (Caux1.e[i] != j) err++; } if (err) printf("Function vec_avg [type char] ===> Error\n"); else printf("Function vec_avg [type char] ===> OK\n"); err = 0; UCaux1.v = vec_avg( UCcons1, UCcons2 ); UCaux2.v = UCcons1; UCaux3.v = UCcons2; for( i=0; i< 16; i++ ) { j = (UCaux2.e[i]+UCaux3.e[i]+1) >> 1; if (UCaux1.e[i] != j) err++; } if (err) printf("Function vec_avg [type unsigned char] ===> Error\n"); else printf("Function vec_avg [type unsigned char] ===> OK\n"); err = 0; Saux1.v = vec_avg( Scons1, Scons2 ); Saux2.v = Scons1; Saux3.v = Scons2; for( i=0; i< 8; i++ ) { j = (Saux2.e[i]+Saux3.e[i]+1) >> 1; if (Saux1.e[i] != j) err++; } if (err) printf("Function vec_avg [type short] ===> Error\n"); else printf("Function vec_avg [type short] ===> OK\n"); err = 0; USaux1.v = vec_avg( UScons1, UScons2 ); USaux2.v = UScons1; USaux3.v = UScons2; for( i=0; i< 8; i++ ) { j = (USaux2.e[i]+USaux3.e[i]+1) >> 1; if (USaux1.e[i] != j) err++; } if (err) printf("Function vec_avg [type unsigned short] ===> Error\n"); else printf("Function vec_avg [type unsigned short] ===> OK\n"); err = 0; Iaux1.v = vec_avg( Icons1, Icons2 ); Iaux2.v = Icons1; Iaux3.v = Icons2; for( i=0; i< 4; i++ ) { Iaux = Iaux2.e[i]%2; if (Iaux2.e[i]<0) Iaux = -Iaux; if (Iaux3.e[i]<0) Iaux = (Iaux - Iaux3.e[i]%2 + 1)>>1; else Iaux = (Iaux + Iaux3.e[i]%2 + 1)>>1; Iaux = (Iaux2.e[i] >> 1) + (Iaux3.e[i] >> 1) + Iaux; if (Iaux1.e[i] != Iaux) err++; } if (err) printf("Function vec_avg [type integer] ===> Error\n"); else printf("Function vec_avg [type integer] ===> OK\n"); err = 0; UIaux1.v = vec_avg( UIcons1, UIcons2 ); UIaux2.v = UIcons1; UIaux3.v = UIcons2; for( i=0; i< 4; i++ ) { UIaux = (UIaux2.e[i] >> 1) + (UIaux3.e[i] >> 1) + ((UIaux2.e[i]%2 + UIaux3.e[i]%2 + 1 )>>1); if (UIaux1.e[i] != UIaux) err++; } if (err) printf("Function vec_avg [type unsigned int] ===> Error\n"); else printf("Function vec_avg [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS /* Function vec_ceil */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Faux1.v = vec_ceil( Fcons1 ); Faux2.v = Fcons1; for( i=0; i< 4; i++ ) if (Faux1.e[i] != ceil(Faux2.e[i])) err++; if (err) printf("Function vec_ceil [type float] ===> Error\n"); else printf("Function vec_ceil [type float] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_cmpb */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Iaux1.v = vec_cmpb( Fcons1, Fcons2 ); Faux2.v = Fcons1; Faux3.v = Fcons2; for( i=0; i< 4; i++ ) { j = 0; if (Faux2.e[i]>Faux3.e[i]) j+=(1 << 31); if (Faux2.e[i]<-Faux3.e[i]) j+=(1 << 30); if (Iaux1.e[i] != j) err++; } if (err) printf("Function vec_cmpb [type float] ===> Error\n"); else printf("Function vec_cmpb [type float] ===> OK\n"); #endif /* Function vec_cmpeq */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; BCaux1.v = vec_cmpeq( Ccons1, Ccons2 ); Caux2.v = Ccons1; Caux3.v = Ccons2; for( i=0; i< 16; i++ ) { if (Caux2.e[i] == Caux3.e[i]) BCaux = 0xFF; else BCaux = 0; if (BCaux1.e[i] != BCaux) err++; } if (err) printf("Function vec_cmpeq [type char] ===> Error\n"); else printf("Function vec_cmpeq [type char] ===> OK\n"); err = 0; BCaux1.v = vec_cmpeq( UCcons1, UCcons2 ); UCaux2.v = UCcons1; UCaux3.v = UCcons2; for( i=0; i< 16; i++ ) { if (UCaux2.e[i] == UCaux3.e[i]) BCaux = 0xFF; else BCaux = 0; if (BCaux1.e[i] != BCaux) err++; } if (err) printf("Function vec_cmpeq [type unsigned char] ===> Error\n"); else printf("Function vec_cmpeq [type unsigned char] ===> OK\n"); err = 0; BSaux1.v = vec_cmpeq( Scons1, Scons2 ); Saux2.v = Scons1; Saux3.v = Scons2; for( i=0; i< 8; i++ ) { if (Saux2.e[i] == Saux3.e[i]) BSaux = 0xFFFF; else BSaux = 0; if (BSaux1.e[i] != BSaux) err++; } if (err) printf("Function vec_cmpeq [type short] ===> Error\n"); else printf("Function vec_cmpeq [type short] ===> OK\n"); err = 0; BSaux1.v = vec_cmpeq( UScons1, UScons2 ); USaux2.v = UScons1; USaux3.v = UScons2; for( i=0; i< 8; i++ ) { if (USaux2.e[i] == USaux3.e[i]) BSaux = 0xFFFF; else BSaux = 0; if (BSaux1.e[i] != BSaux) err++; } if (err) printf("Function vec_cmpeq [type unsigned short] ===> Error\n"); else printf("Function vec_cmpeq [type unsigned short] ===> OK\n"); err = 0; BIaux1.v = vec_cmpeq( Icons1, Icons2 ); Iaux2.v = Icons1; Iaux3.v = Icons2; for( i=0; i< 4; i++ ) { if (Iaux2.e[i] == Iaux3.e[i]) BIaux = 0xFFFFFFFF; else BIaux = 0; if (BIaux1.e[i] != BIaux) err++; } if (err) printf("Function vec_cmpeq [type integer] ===> Error\n"); else printf("Function vec_cmpeq [type integer] ===> OK\n"); err = 0; BIaux1.v = vec_cmpeq( UIcons1, UIcons2 ); UIaux2.v = UIcons1; UIaux3.v = UIcons2; for( i=0; i< 4; i++ ) { if (UIaux2.e[i] == UIaux3.e[i]) BIaux = 0xFFFFFFFF; else BIaux = 0; if (BIaux1.e[i] != BIaux) err++; } if (err) printf("Function vec_cmpeq [type unsigned int] ===> Error\n"); else printf("Function vec_cmpeq [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; BIaux1.v = vec_cmpeq( Fcons1, Fcons2 ); Faux2.v = Fcons1; Faux3.v = Fcons2; for( i=0; i< 4; i++ ) { if (Faux2.e[i] == Faux3.e[i]) BIaux = 0xFFFFFFFF; else BIaux = 0; if (BIaux1.e[i] != BIaux) err++; } if (err) printf("Function vec_cmpeq [type float] ===> Error\n"); else printf("Function vec_cmpeq [type float] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_cmpge */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; BIaux1.v = vec_cmpge( Fcons1, Fcons2 ); Faux2.v = Fcons1; Faux3.v = Fcons2; for( i=0; i< 4; i++ ) { if (Faux2.e[i] >= Faux3.e[i]) BIaux = 0xFFFFFFFF; else BIaux = 0; if (BIaux1.e[i] != BIaux) err++; } if (err) printf("Function vec_cmpge [type float] ===> Error\n"); else printf("Function vec_cmpge [type float] ===> OK\n"); #endif /* Function vec_cmpgt */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; BCaux1.v = vec_cmpgt( Ccons1, Ccons2 ); Caux2.v = Ccons1; Caux3.v = Ccons2; for( i=0; i< 16; i++ ) { if (Caux2.e[i] > Caux3.e[i]) BCaux = 0xFF; else BCaux = 0; if (BCaux1.e[i] != BCaux) err++; } if (err) printf("Function vec_cmpgt [type char] ===> Error\n"); else printf("Function vec_cmpgt [type char] ===> OK\n"); err = 0; BCaux1.v = vec_cmpgt( UCcons1, UCcons2 ); UCaux2.v = UCcons1; UCaux3.v = UCcons2; for( i=0; i< 16; i++ ) { if (UCaux2.e[i] > UCaux3.e[i]) BCaux = 0xFF; else BCaux = 0; if (BCaux1.e[i] != BCaux) err++; } if (err) printf("Function vec_cmpgt [type unsigned char] ===> Error\n"); else printf("Function vec_cmpgt [type unsigned char] ===> OK\n"); err = 0; BSaux1.v = vec_cmpgt( Scons1, Scons2 ); Saux2.v = Scons1; Saux3.v = Scons2; for( i=0; i< 8; i++ ) { if (Saux2.e[i] > Saux3.e[i]) BSaux = 0xFFFF; else BSaux = 0; if (BSaux1.e[i] != BSaux) err++; } if (err) printf("Function vec_cmpgt [type short] ===> Error\n"); else printf("Function vec_cmpgt [type short] ===> OK\n"); err = 0; BSaux1.v = vec_cmpgt( UScons1, UScons2 ); USaux2.v = UScons1; USaux3.v = UScons2; for( i=0; i< 8; i++ ) { if (USaux2.e[i] > USaux3.e[i]) BSaux = 0xFFFF; else BSaux = 0; if (BSaux1.e[i] != BSaux) err++; } if (err) printf("Function vec_cmpgt [type unsigned short] ===> Error\n"); else printf("Function vec_cmpgt [type unsigned short] ===> OK\n"); err = 0; BIaux1.v = vec_cmpgt( Icons1, Icons2 ); Iaux2.v = Icons1; Iaux3.v = Icons2; for( i=0; i< 4; i++ ) { if (Iaux2.e[i] > Iaux3.e[i]) BIaux = 0xFFFFFFFF; else BIaux = 0; if (BIaux1.e[i] != BIaux) err++; } if (err) printf("Function vec_cmpgt [type integer] ===> Error\n"); else printf("Function vec_cmpgt [type integer] ===> OK\n"); err = 0; BIaux1.v = vec_cmpgt( UIcons1, UIcons2 ); UIaux2.v = UIcons1; UIaux3.v = UIcons2; for( i=0; i< 4; i++ ) { if (UIaux2.e[i] > UIaux3.e[i]) BIaux=0xFFFFFFFF; else BIaux = 0; if (BIaux1.e[i] != BIaux) err++; } if (err) printf("Function vec_cmpgt [type unsigned int] ===> Error\n"); else printf("Function vec_cmpgt [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; BIaux1.v = vec_cmpgt( Fcons1, Fcons2 ); Faux2.v = Fcons1; Faux3.v = Fcons2; for( i=0; i< 4; i++ ) { if (Faux2.e[i] > Faux3.e[i]) BIaux = 0xFFFFFFFF; else BIaux = 0; if (BIaux1.e[i] != BIaux) err++; } if (err) printf("Function vec_cmpgt [type float] ===> Error\n"); else printf("Function vec_cmpgt [type float] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_cmple */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; BIaux1.v = vec_cmple( Fcons1, Fcons2 ); Faux2.v = Fcons1; Faux3.v = Fcons2; for( i=0; i< 4; i++ ) { if (Faux2.e[i] <= Faux3.e[i]) BIaux = 0xFFFFFFFF; else BIaux = 0; if (BIaux1.e[i] != BIaux) err++; } if (err) printf("Function vec_cmple [type float] ===> Error\n"); else printf("Function vec_cmple [type float] ===> OK\n"); #endif /* Function vec_cmplt */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; BCaux1.v = vec_cmplt( Ccons1, Ccons2 ); Caux2.v = Ccons1; Caux3.v = Ccons2; for( i=0; i< 16; i++ ) { if (Caux2.e[i] < Caux3.e[i]) BCaux = 0xFF; else BCaux = 0; if (BCaux1.e[i] != BCaux) err++; } if (err) printf("Function vec_cmplt [type char] ===> Error\n"); else printf("Function vec_cmplt [type char] ===> OK\n"); err = 0; BCaux1.v = vec_cmplt( UCcons1, UCcons2 ); UCaux2.v = UCcons1; UCaux3.v = UCcons2; for( i=0; i< 16; i++ ) { if (UCaux2.e[i] < UCaux3.e[i]) BCaux = 0xFF; else BCaux = 0; if (BCaux1.e[i] != BCaux) err++; } if (err) printf("Function vec_cmplt [type unsigned char] ===> Error\n"); else printf("Function vec_cmplt [type unsigned char] ===> OK\n"); err = 0; BSaux1.v = vec_cmplt( Scons1, Scons2 ); Saux2.v = Scons1; Saux3.v = Scons2; for( i=0; i< 8; i++ ) { if (Saux2.e[i] < Saux3.e[i]) BSaux = 0xFFFF; else BSaux = 0; if (BSaux1.e[i] != BSaux) err++; } if (err) printf("Function vec_cmplt [type short] ===> Error\n"); else printf("Function vec_cmplt [type short] ===> OK\n"); err = 0; BSaux1.v = vec_cmplt( UScons1, UScons2 ); USaux2.v = UScons1; USaux3.v = UScons2; for( i=0; i< 8; i++ ) { if (USaux2.e[i] < USaux3.e[i]) BSaux = 0xFFFF; else BSaux = 0; if (BSaux1.e[i] != BSaux) err++; } if (err) printf("Function vec_cmplt [type unsigned short] ===> Error\n"); else printf("Function vec_cmplt [type unsigned short] ===> OK\n"); err = 0; BIaux1.v = vec_cmplt( Icons1, Icons2 ); Iaux2.v = Icons1; Iaux3.v = Icons2; for( i=0; i< 4; i++ ) { if (Iaux2.e[i] < Iaux3.e[i]) BIaux = 0xFFFFFFFF; else BIaux = 0; if (BIaux1.e[i] != BIaux) err++; } if (err) printf("Function vec_cmplt [type integer] ===> Error\n"); else printf("Function vec_cmplt [type integer] ===> OK\n"); err = 0; BIaux1.v = vec_cmplt( UIcons1, UIcons2 ); UIaux2.v = UIcons1; UIaux3.v = UIcons2; for( i=0; i< 4; i++ ) { if (UIaux2.e[i] < UIaux3.e[i]) BIaux=0xFFFFFFFF; else BIaux = 0; if (BIaux1.e[i] != BIaux) err++; } if (err) printf("Function vec_cmplt [type unsigned int] ===> Error\n"); else printf("Function vec_cmplt [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; BIaux1.v = vec_cmplt( Fcons1, Fcons2 ); Faux2.v = Fcons1; Faux3.v = Fcons2; for( i=0; i< 4; i++ ) { if (Faux2.e[i] < Faux3.e[i]) BIaux = 0xFFFFFFFF; else BIaux = 0; if (BIaux1.e[i] != BIaux) err++; } if (err) printf("Function vec_cmplt [type float] ===> Error\n"); else printf("Function vec_cmplt [type float] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_ctf */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; b = 2; Faux1.v = vec_ctf( Icons1, 2 ); Iaux1.v = Icons1; for( i=0; i< 4; i++ ) if (Faux1.e[i] != (((float)Iaux1.e[i])/(1< Error\n"); else printf("Function vec_ctf [type integer] ===> OK\n"); err = 0; b = 2; Faux1.v = vec_ctf( UIcons1, 2 ); UIaux1.v = UIcons1; for( i=0; i< 4; i++ ) if (Faux1.e[i] != (((float)UIaux1.e[i])/(1< Error\n"); else printf("Function vec_ctf [type unsigned int] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_cts */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; b = 2; Iaux1.v = vec_cts( Fcons3, 2 ); Faux1.v = Fcons3; for( i=0; i< 4; i++ ) if (Iaux1.e[i] != (int)(Faux1.e[i]*(1< Error\n"); else printf("Function vec_cts [type float] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_ctu */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; b = 2; UIaux1.v = vec_ctu( Fcons3, 2 ); Faux1.v = Fcons3; for( i=0; i< 4; i++ ) { double d = Faux1.e[i]*(1< 0xffffffff) d = 0xffffffff; if (d < 0) d = 0; if (UIaux1.e[i] != (unsigned int)(d)) err++; } if (err) printf("Function vec_ctu [type float] ===> Error\n"); else printf("Function vec_ctu [type float] ===> OK\n"); #endif part1(); part2(); part3(); part4(); part5(); return 0; } int part1() { TvecChar Caux1;//, Caux2, Caux3, Caux4; TvecUChar UCaux1;//, UCaux2, UCaux3, UCaux4; TvecShort Saux1;//, Saux2, Saux3, Saux4; TvecUShort USaux1;//, USaux2, USaux3, USaux4; TvecInt Iaux1;//, Iaux2, Iaux3, Iaux4; TvecUInt UIaux1;//, UIaux2, UIaux3, UIaux4; #if defined TEST_FLOATS TvecFloat Faux1, Faux2;//, Faux3, Faux4; #endif int i, err, j;//, b, bAux; // signed int Ivec1, Ivec2, Ivec3; // signed short *Svec1; // unsigned int *UIvec1; // unsigned short *USvec1; // unsigned char *UCvec1; #if defined TEST_FLOATS // float *Fvec1; #endif /* For saturated rutines */ // long long int LLaux; #if defined TEST_FLOATS float Faux; #endif signed int Iaux;//, I1, I2; // unsigned int UIaux, UI1, UI2; // signed short Saux; // unsigned short USaux; // signed char Caux; // unsigned char UCaux; /* union { float f; signed int si; unsigned int ui; signed short ss[2]; unsigned short us[2]; signed char sc[4]; unsigned char uc[4]; } INTunion1, INTunion2; union { signed short ss; unsigned short us; signed char sc[2]; unsigned char uc[2]; } SHOunion1, SHOunion2; */ #if defined (GCC_COMPILER) vector signed char Ccons1 = (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; // vector signed char Ccons2 = (vector signed char){1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}; // vector signed char Ccons3 = (vector signed char){-128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127}; vector unsigned char UCcons1 = (vector unsigned char){248, 249, 250, 251, 252, 253, 254, 255, 0, 1, 2, 3, 4, 5, 6, 7}; // vector unsigned char UCcons2 = (vector unsigned char){2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2}; // vector unsigned char UCcons3 = (vector unsigned char){1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8}; vector signed short Scons1 = (vector signed short){-4, -3, -2, -1, 0, 1, 2, 3}; // vector signed short Scons2 = (vector signed short){-32768, 10000, 1, 1, 1, 1, -10000, -10000}; // vector signed short Scons3 = (vector signed short){-32768, 32767, -32768, 32767, -32768, 32767, -32768, 32767}; // vector unsigned short UScons1 = (vector unsigned short){65532, 65533, 65534, 65535, 0, 1, 2, 3}; // vector unsigned short UScons2 = (vector unsigned short){1, 1, 1, 1, 1, 1, 1, 1}; vector unsigned short UScons3 = (vector unsigned short){1, 2, 3, 4, 1, 2, 3, 4}; vector signed int Icons1 = (vector signed int){-4, -1, 1, 4}; // vector signed int Icons2 = (vector signed int){1, 1, 1, 1}; // vector signed int Icons3 = (vector signed int){0x80000000, 0x7FFFFFFF, 0x80000000, 0x7FFFFFFF}; vector unsigned int UIcons1 = (vector unsigned int){0xFFFFFFFE, 0xFFFFFFFF, 0, 1}; // vector unsigned int UIcons2 = (vector unsigned int){1, 1, 1, 1}; // vector unsigned int UIcons3 = (vector unsigned int){1, 2, 1, 2}; #if defined TEST_FLOATS vector float Fcons1 = (vector float){-1.5, 1.0, 0.5, -3.999}; // vector float Fcons2 = (vector float){1.0, 1.0, 1.0, 1.0}; vector float Fcons3 = (vector float){100000000000.0, 1.0, -1.0, -1234567890.0}; #endif #elif defined (MAC_COMPILER) || defined (XLC_COMPILER) vector signed char Ccons1 = (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); vector signed char Ccons2 = (vector signed char)(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1); vector signed char Ccons3 = (vector signed char)(-128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127); vector unsigned char UCcons1 = (vector unsigned char)(248, 249, 250, 251, 252, 253, 254, 255, 0, 1, 2, 3, 4, 5, 6, 7); vector unsigned char UCcons2 = (vector unsigned char)(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2); vector unsigned char UCcons3 = (vector unsigned char)(1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8); vector signed short Scons1 = (vector signed short)(-4, -3, -2, -1, 0, 1, 2, 3); vector signed short Scons2 = (vector signed short)(-32768, 10000, 1, 1, 1, 1, -10000, -10000); vector signed short Scons3 = (vector signed short)(-32768, 32767, -32768, 32767, -32768, 32767, -32768, 32767); vector unsigned short UScons1 = (vector unsigned short)(65532, 65533, 65534, 65535, 0, 1, 2, 3); vector unsigned short UScons2 = (vector unsigned short)(1, 1, 1, 1, 1, 1, 1, 1); vector unsigned short UScons3 = (vector unsigned short)(1, 2, 3, 4, 1, 2, 3, 4); vector signed int Icons1 = (vector signed int)(-4, -1, 1, 4); vector signed int Icons2 = (vector signed int)(1, 1, 1, 1); vector signed int Icons3 = (vector signed int)(0x80000000, 0x7FFFFFFF, 0x80000000, 0x7FFFFFFF); vector unsigned int UIcons1 = (vector unsigned int)(0xFFFFFFFE, 0xFFFFFFFF, 0, 1); vector unsigned int UIcons2 = (vector unsigned int)(1, 1, 1, 1); vector unsigned int UIcons3 = (vector unsigned int)(1, 2, 1, 2); #if defined TEST_FLOATS vector float Fcons1 = (vector float)(-1.5, 1.0, 0.5, -3.999); vector float Fcons2 = (vector float)(1.0, 1.0, 1.0, 1.0); vector float Fcons3 = (vector float)(100000000000.0, 1.0, -1.0, -1234567890.0); #endif #endif /* Variables to be allocated with calloc_vec (16 bytes aligned) */ unsigned char *UCmem = (unsigned char*)calloc_vec( 1, sizeof(vector unsigned char) ); signed char *Cmem = (signed char*)calloc_vec( 1, sizeof(vector signed char) ); unsigned short *USmem = (unsigned short*)calloc_vec( 1, sizeof(vector unsigned short) ); signed short *Smem = (signed short*)calloc_vec( 1, sizeof(vector signed short) ); unsigned int *UImem = (unsigned int*)calloc_vec( 1, sizeof(vector unsigned int) ); signed int *Imem = (signed int*)calloc_vec( 1, sizeof(vector signed int) ); #if defined TEST_FLOATS float *Fmem = (float*)calloc_vec( 1, sizeof(vector float) ); #endif /* Function vec_dss */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); printf("Function vec_dss [Vector data Stream Stop] not checked\n"); /* Function vec_dssall */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); printf("Function vec_dssall [Vector Stream Stop all] not checked\n"); /* Function vec_dst */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); printf("Function vec_dst [Vector Data Stream Touch] not checked\n"); /* Function vec_dstst */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); printf("Function vec_dstst [Vector Data Stream Touch for Store] not checked\n"); /* Function vec_dststt */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); printf("Function vec_dststt [Vector Data Stream Touch for Store Transient] not checked\n"); /* Function vec_dstt */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); printf("Function vec_dstt [Vector Data Stream Touch Transient] not checked\n"); #if defined TEST_FLOATS /* Function vec_expte */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Faux1.v = vec_expte( Fcons1 ); Faux2.v = Fcons1; for( i=0; i< 4; i++ ) { Faux = pow(2,Faux2.e[i]); /* Ivec1 = (signed int*)(&Faux1.e[i]); Ivec2 = (signed int*)(&Faux); *Ivec1 = (*Ivec1) & 0xFFF00000; *Ivec2 = (*Ivec2) & 0xFFF00000; if (Faux1.e[i] != Faux) err++; */ Faux = (Faux - Faux1.e[i])/Faux; if (Faux>0.1) err++; } if (err) printf("Function vec_expte [type float] ===> Error\n"); else printf("Function vec_expte [type float] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_floor */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Faux1.v = vec_floor( Fcons1 ); Faux2.v = Fcons1; for( i=0; i< 4; i++ ) if (Faux1.e[i] != floor(Faux2.e[i])) err++; if (err) printf("Function vec_floor [type float] ===> Error\n"); else printf("Function vec_floor [type float] ===> OK\n"); #endif /* Function vec_ld */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; memcpy( UCmem, &UCcons1, sizeof(vector unsigned char) ); UCaux1.v = vec_ld( 0, UCmem ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (UCaux1.e[i]==UCmem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_ld [type unsigned char] ===> Error\n"); else printf("Function vec_ld [type unsigned char] ===> OK\n"); err = 0; memcpy( Cmem, &Ccons1, sizeof(vector signed char) ); Caux1.v = vec_ld( 0, Cmem ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (Caux1.e[i]==Cmem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_ld [type char] ===> Error\n"); else printf("Function vec_ld [type char] ===> OK\n"); err = 0; memcpy( USmem, &UScons3, sizeof(vector unsigned short) ); USaux1.v = vec_ld( 0, USmem ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (USaux1.e[i]==USmem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_ld [type unsigned short] ===> Error\n"); else printf("Function vec_ld [type unsigned short] ===> OK\n"); err = 0; memcpy( Smem, &Scons1, sizeof(vector signed short) ); Saux1.v = vec_ld( 0, Smem ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (Saux1.e[i]==Smem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_ld [type short] ===> Error\n"); else printf("Function vec_ld [type short] ===> OK\n"); err = 0; memcpy( UImem, &UIcons1, sizeof(vector unsigned int) ); UIaux1.v = vec_ld( 0, UImem ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (UIaux1.e[i]==UImem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_ld [type unsigned int] ===> Error\n"); else printf("Function vec_ld [type unsigned int] ===> OK\n"); err = 0; memcpy( Imem, &Icons1, sizeof(vector signed int) ); Iaux1.v = vec_ld( 0, Imem ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Iaux1.e[i]==Imem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_ld [type int] ===> Error\n"); else printf("Function vec_ld [type int] ===> OK\n"); #if defined TEST_FLOATS err = 0; memcpy( Fmem, &Fcons1, sizeof(vector float) ); Faux1.v = vec_ld( 0, Fmem ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Faux1.e[i]==Fmem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_ld [type float] ===> Error\n"); else printf("Function vec_ld [type float] ===> OK\n"); #endif /* Function vec_lde */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; for (i= 0; i< 16; i++) UCmem[i] = (unsigned char)i; j = 1; i = j*sizeof(unsigned char); UCaux1.v = vec_lde( i, UCmem ); if (UCaux1.e[j] != UCmem[j]) err++; if (err) printf("Function vec_lde [type unsigned char] ===> Error\n"); else printf("Function vec_lde [type unsigned char] ===> OK\n"); err = 0; for (i= 0; i< 16; i++) Cmem[i] = (char)(-i); j = 1; i = j*sizeof(char); Caux1.v = vec_lde( i, Cmem ); if (Caux1.e[j] != Cmem[j]) err++; if (err) printf("Function vec_lde [type char] ===> Error\n"); else printf("Function vec_lde [type char] ===> OK\n"); err = 0; for (i= 0; i< 8; i++) USmem[i] = (unsigned short)(i); j = 1; i = j*sizeof(unsigned short); USaux1.v = vec_lde( i, USmem ); if (USaux1.e[j] != USmem[j]) err++; if (err) printf("Function vec_lde [type unsigned short] ===> Error\n"); else printf("Function vec_lde [type unsigned short] ===> OK\n"); err = 0; for (i= 0; i< 8; i++) Smem[i] = (short)(-i); j = 1; i = j*sizeof(short); Saux1.v = vec_lde( i, Smem ); if (Saux1.e[j] != Smem[j]) err++; if (err) printf("Function vec_lde [type short] ===> Error\n"); else printf("Function vec_lde [type short] ===> OK\n"); err = 0; for (i= 0; i< 4; i++) UImem[i] = (unsigned int)(i); j = 1; i = j*sizeof(unsigned int); UIaux1.v = vec_lde( i, UImem ); if (UIaux1.e[j] != UImem[j]) err++; if (err) printf("Function vec_lde [type unsigned int] ===> Error\n"); else printf("Function vec_lde [type unsigned int] ===> OK\n"); err = 0; for (i= 0; i< 4; i++) Imem[i] = (int)(-i); j = 1; i = j*sizeof(int); Iaux1.v = vec_lde( i, Imem ); if (Iaux1.e[j] != Imem[j]) err++; if (err) printf("Function vec_lde [type int] ===> Error\n"); else printf("Function vec_lde [type int] ===> OK\n"); #if defined TEST_FLOATS err = 0; for (i= 0; i< 4; i++) Fmem[i] = ((float)(-i)) - 0.5; j = 1; i = j*sizeof(float); Faux1.v = vec_lde( i, Fmem ); if (Faux1.e[j] != Fmem[j]) err++; if (err) printf("Function vec_lde [type float] ===> Error\n"); else printf("Function vec_lde [type float] ===> OK\n"); #endif #if 0 /* Function vec_ldl */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; memcpy( UCmem, &UCcons1, sizeof(vector unsigned char) ); UCaux1.v = vec_ldl( 0, UCmem ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (UCaux1.e[i]==UCmem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_ldl [type unsigned char] ===> Error\n"); else printf("Function vec_ldl [type unsigned char] ===> OK\n"); err = 0; memcpy( Cmem, &Ccons1, sizeof(vector signed char) ); Caux1.v = vec_ldl( 0, Cmem ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (Caux1.e[i]==Cmem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_ldl [type char] ===> Error\n"); else printf("Function vec_ldl [type char] ===> OK\n"); err = 0; memcpy( USmem, &UScons3, sizeof(vector unsigned short) ); USaux1.v = vec_ldl( 0, USmem ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (USaux1.e[i]==USmem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_ldl [type unsigned short] ===> Error\n"); else printf("Function vec_ldl [type unsigned short] ===> OK\n"); err = 0; memcpy( Smem, &Scons1, sizeof(vector signed short) ); Saux1.v = vec_ldl( 0, Smem ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (Saux1.e[i]==Smem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_ldl [type short] ===> Error\n"); else printf("Function vec_ldl [type short] ===> OK\n"); err = 0; memcpy( UImem, &UIcons1, sizeof(vector unsigned int) ); UIaux1.v = vec_ldl( 0, UImem ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (UIaux1.e[i]==UImem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_ldl [type unsigned int] ===> Error\n"); else printf("Function vec_ldl [type unsigned int] ===> OK\n"); err = 0; memcpy( Imem, &Icons1, sizeof(vector signed int) ); Iaux1.v = vec_ldl( 0, Imem ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Iaux1.e[i]==Imem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_ldl [type int] ===> Error\n"); else printf("Function vec_ldl [type int] ===> OK\n"); #if defined TEST_FLOATS err = 0; memcpy( Fmem, &Fcons1, sizeof(vector float) ); Faux1.v = vec_ldl( 0, Fmem ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Faux1.e[i]==Fmem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_ldl [type float] ===> Error\n"); else printf("Function vec_ldl [type float] ===> OK\n"); #endif #endif // #if 0 /* Free dynamic vector variables */ free_vec( UCmem ); free_vec( Cmem ); free_vec( USmem ); free_vec( Smem ); free_vec( UImem ); free_vec( Imem ); #if defined TEST_FLOATS free_vec( Fmem ); #endif #if defined TEST_FLOATS /* Function vec_loge */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Faux1.v = vec_loge( Fcons3 ); Faux2.v = Fcons3; for( i=0; i< 4; i++ ) { Faux = log2(Faux2.e[i]); if (Faux!=0.0) Faux = (Faux - Faux1.e[i])/Faux; else Faux = Faux - Faux1.e[i]; if (Faux>0.1) err++; } if (err) printf("Function vec_loge [type float] ===> Error\n"); else printf("Function vec_loge [type float] ===> OK\n"); #endif return 0; } int part2() { TvecChar Caux1, Caux2, Caux3;//, Caux4; TvecUChar UCaux1, UCaux2, UCaux3;//, UCaux4; TvecShort Saux1, Saux2, Saux3, Saux4; TvecUShort USaux1, USaux2, USaux3, USaux4; TvecInt Iaux1, Iaux2, Iaux3;//, Iaux4; TvecUInt UIaux1, UIaux2, UIaux3;//, UIaux4; #if defined TEST_FLOATS TvecFloat Faux1, Faux2, Faux3, Faux4; #endif int i, err, j, b, bAux; #if defined TEST_FLOATS signed int Ivec1, Ivec2, Ivec3; #endif // signed short *Svec1; // unsigned int *UIvec1; // unsigned short *USvec1; // unsigned char *UCvec1; #if defined TEST_FLOATS // float *Fvec1; #endif /* For saturated rutines */ // long long int LLaux; #if defined TEST_FLOATS float Faux; #endif signed int Iaux, I1, I2; unsigned int UIaux, UI1, UI2; signed short Saux; unsigned short USaux; signed char Caux; unsigned char UCaux; union { float f; signed int si; unsigned int ui; signed short ss[2]; unsigned short us[2]; signed char sc[4]; unsigned char uc[4]; } INTunion1;//, INTunion2; /* union { signed short ss; unsigned short us; signed char sc[2]; unsigned char uc[2]; } SHOunion1, SHOunion2; */ #if defined (GCC_COMPILER) vector signed char Ccons1 = (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; vector signed char Ccons2 = (vector signed char){1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}; // vector signed char Ccons3 = (vector signed char){-128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127}; vector unsigned char UCcons1 = (vector unsigned char){248, 249, 250, 251, 252, 253, 254, 255, 0, 1, 2, 3, 4, 5, 6, 7}; vector unsigned char UCcons2 = (vector unsigned char){2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2}; // vector unsigned char UCcons3 = (vector unsigned char){1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8}; vector signed short Scons1 = (vector signed short){256, 320, 340, -1, 0, 1, 2, 3}; vector signed short Scons2 = (vector signed short){256, 320, 340, 1, 1, 1, -10000, -10000}; vector signed short Scons3 = (vector signed short){256, 320, 340, 32767, -32768, 32767, -32768, 32767}; vector unsigned short UScons1 = (vector unsigned short){65532, 65533, 65534, 65535, 0, 1, 2, 3}; vector unsigned short UScons2 = (vector unsigned short){1, 1, 1, 1, 1, 1, 1, 1}; vector unsigned short UScons3 = (vector unsigned short){1, 2, 3, 4, 1, 2, 3, 4}; vector signed int Icons1 = (vector signed int){-4, -1, 1, 4}; vector signed int Icons2 = (vector signed int){1, 1, 1, 1}; vector signed int Icons3 = (vector signed int){0x80000000, 0x7FFFFFFF, 0x80000000, 0x7FFFFFFF}; vector unsigned int UIcons1 = (vector unsigned int){0xFFFFFFFE, 0xFFFFFFFF, 0, 1}; vector unsigned int UIcons2 = (vector unsigned int){1, 1, 1, 1}; vector unsigned int UIcons3 = (vector unsigned int){1, 2, 1, 2}; #if defined TEST_FLOATS vector float Fcons1 = (vector float){-1.5, 1.0, 0.5, -3.999}; vector float Fcons2 = (vector float){1.0, 1.0, 1.0, 1.0}; vector float Fcons3 = (vector float){100000000000.0, 1.0, -1.0, -1234567890.0}; #endif #elif defined (MAC_COMPILER) || defined (XLC_COMPILER) vector signed char Ccons1 = (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); vector signed char Ccons2 = (vector signed char)(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1); vector signed char Ccons3 = (vector signed char)(-128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127); vector unsigned char UCcons1 = (vector unsigned char)(248, 249, 250, 251, 252, 253, 254, 255, 0, 1, 2, 3, 4, 5, 6, 7); vector unsigned char UCcons2 = (vector unsigned char)(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2); // vector unsigned char UCcons3 = (vector unsigned char)(1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8); vector signed short Scons1 = (vector signed short)(-4, -3, -2, -1, 0, 1, 2, 3); vector signed short Scons2 = (vector signed short)(-32768, 10000, 1, 1, 1, 1, -10000, -10000); vector signed short Scons3 = (vector signed short)(-32768, 32767, -32768, 32767, -32768, 32767, -32768, 32767); vector unsigned short UScons1 = (vector unsigned short)(65532, 65533, 65534, 65535, 0, 1, 2, 3); vector unsigned short UScons2 = (vector unsigned short)(1, 1, 1, 1, 1, 1, 1, 1); vector unsigned short UScons3 = (vector unsigned short)(1, 2, 3, 4, 1, 2, 3, 4); vector signed int Icons1 = (vector signed int)(-4, -1, 1, 4); vector signed int Icons2 = (vector signed int)(1, 1, 1, 1); vector signed int Icons3 = (vector signed int)(0x80000000, 0x7FFFFFFF, 0x80000000, 0x7FFFFFFF); vector unsigned int UIcons1 = (vector unsigned int)(0xFFFFFFFE, 0xFFFFFFFF, 0, 1); vector unsigned int UIcons2 = (vector unsigned int)(1, 1, 1, 1); vector unsigned int UIcons3 = (vector unsigned int)(1, 2, 1, 2); #if defined TEST_FLOATS vector float Fcons1 = (vector float)(-1.5, 1.0, 0.5, -3.999); vector float Fcons2 = (vector float)(1.0, 1.0, 1.0, 1.0); vector float Fcons3 = (vector float)(100000000000.0, 1.0, -1.0, -1234567890.0); #endif #endif /* Function vec_lvsl */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; b = 3; UCaux1.v = vec_lvsl( b, &b); bAux = b + (size_t)(&b); b = bAux & 0xF; # if defined(GCC_COMPILER) UCaux2.v =(vector unsigned char){0x0,0x1,0x2,0x3,0x4,0x5,0x6,0x7,0x8,0x9,0xA,0xB,0xC,0xD,0xE,0xF}; # elif defined(MAC_COMPILER) || defined (XLC_COMPILER) UCaux2.v =(vector unsigned char)(0x0,0x1,0x2,0x3,0x4,0x5,0x6,0x7,0x8,0x9,0xA,0xB,0xC,0xD,0xE,0xF); # endif for( i=0; i< 16; i++ ) { UCaux = UCaux2.e[i]+b; if (UCaux1.e[i] != UCaux) err++; } if (err) printf("Function vec_lvsl [type unsigned char] ===> Error\n"); else printf("Function vec_lvsl [type unsigned char] ===> OK\n"); /* Function vec_lvsr */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; b = 3; UCaux1.v = vec_lvsr( b, &b); bAux = b + (size_t)(&b); b = bAux & 0xF; # if defined (GCC_COMPILER) UCaux2.v =(vector unsigned char){0x10,0x11,0x12,0x13,0x14,0x15,0x16,0x17,0x18,0x19,0x1A,0x1B,0x1C,0x1D,0x1E,0x1F}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UCaux2.v =(vector unsigned char)(0x10,0x11,0x12,0x13,0x14,0x15,0x16,0x17,0x18,0x19,0x1A,0x1B,0x1C,0x1D,0x1E,0x1F); # endif for( i=0; i< 16; i++ ) { UCaux = UCaux2.e[i]-b; if (UCaux1.e[i] != UCaux) err++; } if (err) printf("Function vec_lvsr [type unsigned char] ===> Error\n"); else printf("Function vec_lvsr [type unsigned char] ===> OK\n"); #if defined TEST_FLOATS /* Function vec_madd */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Faux1.v = vec_madd( Fcons1, Fcons2, Fcons3 ); Faux2.v = Fcons1; Faux3.v = Fcons2; Faux4.v = Fcons3; for( i=0; i< 4; i++ ) if (Faux1.e[i] != (Faux2.e[i]*Faux3.e[i]+Faux4.e[i])) err++; if (err) printf("Function vec_madd [type float] ===> Error\n"); else printf("Function vec_madd [type float] ===> OK\n"); #endif /* Function vec_madds */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Saux1.v = vec_madds( Scons1, Scons3, Scons2 ); Saux2.v = Scons1; Saux3.v = Scons3; Saux4.v = Scons2; for( i=0; i< 8; i++ ) { INTunion1.si = Saux2.e[i]*Saux3.e[i]; INTunion1.si = INTunion1.si >> 15; INTunion1.si = INTunion1.si + Saux4.e[i]; if (INTunion1.si>32767) Saux=0x7FFF; else if (INTunion1.si<(-32768)) Saux=0x8000; else Saux= INTunion1.ss[1]; if (Saux1.e[i] != Saux) err++; } if (err) printf("Function vec_madds [type short] ===> Error\n"); else printf("Function vec_madds [type short] ===> OK\n"); /* Function vec_max */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_max( Ccons1, Ccons2 ); Caux2.v = Ccons1; Caux3.v = Ccons2; for( i=0; i< 16; i++ ) { if (Caux2.e[i]>Caux3.e[i]) Caux = Caux2.e[i]; else Caux = Caux3.e[i]; if (Caux1.e[i] != Caux) err++; } if (err) printf("Function vec_max [type char] ===> Error\n"); else printf("Function vec_max [type char] ===> OK\n"); err = 0; UCaux1.v = vec_max( UCcons1, UCcons2 ); UCaux2.v = UCcons1; UCaux3.v = UCcons2; for( i=0; i< 16; i++ ) { if (UCaux2.e[i]>UCaux3.e[i]) UCaux = UCaux2.e[i]; else UCaux = UCaux3.e[i]; if (UCaux1.e[i] != UCaux) err++; } if (err) printf("Function vec_max [type unsigned char] ===> Error\n"); else printf("Function vec_max [type unsigned char] ===> OK\n"); err = 0; Saux1.v = vec_max( Scons1, Scons3 ); Saux2.v = Scons1; Saux3.v = Scons3; for( i=0; i< 8; i++ ) { if (Saux2.e[i]>Saux3.e[i]) Saux = Saux2.e[i]; else Saux = Saux3.e[i]; if (Saux1.e[i] != Saux) err++; } if (err) printf("Function vec_max [type short] ===> Error\n"); else printf("Function vec_max [type short] ===> OK\n"); err = 0; USaux1.v = vec_max( UScons1, UScons2 ); USaux2.v = UScons1; USaux3.v = UScons2; for( i=0; i< 8; i++ ) { if (USaux2.e[i]>USaux3.e[i]) USaux = USaux2.e[i]; else USaux = USaux3.e[i]; if (USaux1.e[i] != USaux) err++; } if (err) printf("Function vec_max [type unsigned short] ===> Error\n"); else printf("Function vec_max [type unsigned short] ===> OK\n"); err = 0; Iaux1.v = vec_max( Icons1, Icons2 ); Iaux2.v = Icons1; Iaux3.v = Icons2; for( i=0; i< 4; i++ ) { if (Iaux2.e[i]>Iaux3.e[i]) Iaux = Iaux2.e[i]; else Iaux = Iaux3.e[i]; if (Iaux1.e[i] != Iaux) err++; } if (err) printf("Function vec_max [type integer] ===> Error\n"); else printf("Function vec_max [type integer] ===> OK\n"); err = 0; UIaux1.v = vec_max( UIcons1, UIcons2 ); UIaux2.v = UIcons1; UIaux3.v = UIcons2; for( i=0; i< 4; i++ ) { if (UIaux2.e[i]>UIaux3.e[i]) UIaux = UIaux2.e[i]; else UIaux = UIaux3.e[i]; if (UIaux1.e[i] != UIaux) err++; } if (err) printf("Function vec_max [type unsigned int] ===> Error\n"); else printf("Function vec_max [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; Faux1.v = vec_max( Fcons1, Fcons2 ); Faux2.v = Fcons1; Faux3.v = Fcons2; for( i=0; i< 4; i++ ) { if (Faux2.e[i]>Faux3.e[i]) Faux = Faux2.e[i]; else Faux = Faux3.e[i]; if (Faux1.e[i] != Faux) err++; } if (err) printf("Function vec_max [type float] ===> Error\n"); else printf("Function vec_max [type float] ===> OK\n"); #endif /* Function vec_mergeh */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_mergeh( Ccons1, Ccons2 ); Caux2.v = Ccons1; Caux3.v = Ccons2; for( i=0; i< 8; i++ ) if ((Caux1.e[2*i] != Caux2.e[i])||(Caux1.e[2*i+1]!=Caux3.e[i])) err++; if (err) printf("Function vec_mergeh [type char] ===> Error\n"); else printf("Function vec_mergeh [type char] ===> OK\n"); err = 0; UCaux1.v = vec_mergeh( UCcons1, UCcons2 ); UCaux2.v = UCcons1; UCaux3.v = UCcons2; for( i=0; i< 8; i++ ) if ((UCaux1.e[2*i] != UCaux2.e[i])||(UCaux1.e[2*i+1]!=UCaux3.e[i])) err++; if (err) printf("Function vec_mergeh [type unsigned char] ===> Error\n"); else printf("Function vec_mergeh [type unsigned char] ===> OK\n"); err = 0; Saux1.v = vec_mergeh( Scons1, Scons2 ); Saux2.v = Scons1; Saux3.v = Scons2; for( i=0; i< 4; i++ ) if ((Saux1.e[2*i] != Saux2.e[i])||(Saux1.e[2*i+1]!=Saux3.e[i])) err++; if (err) printf("Function vec_mergeh [type short] ===> Error\n"); else printf("Function vec_mergeh [type short] ===> OK\n"); err = 0; USaux1.v = vec_mergeh( UScons1, UScons2 ); USaux2.v = UScons1; USaux3.v = UScons2; for( i=0; i< 4; i++ ) if ((USaux1.e[2*i] != USaux2.e[i])||(USaux1.e[2*i+1]!=USaux3.e[i])) err++; if (err) printf("Function vec_mergeh [type unsigned short] ===> Error\n"); else printf("Function vec_mergeh [type unsigned short] ===> OK\n"); err = 0; Iaux1.v = vec_mergeh( Icons1, Icons2 ); Iaux2.v = Icons1; Iaux3.v = Icons2; for( i=0; i< 2; i++ ) if ((Iaux1.e[2*i] != Iaux2.e[i])||(Iaux1.e[2*i+1]!=Iaux3.e[i])) err++; if (err) printf("Function vec_mergeh [type integer] ===> Error\n"); else printf("Function vec_mergeh [type integer] ===> OK\n"); err = 0; UIaux1.v = vec_mergeh( UIcons1, UIcons2 ); UIaux2.v = UIcons1; UIaux3.v = UIcons2; for( i=0; i< 2; i++ ) if ((UIaux1.e[2*i] != UIaux2.e[i])||(UIaux1.e[2*i+1]!=UIaux3.e[i])) err++; if (err) printf("Function vec_mergeh [type unsigned int] ===> Error\n"); else printf("Function vec_mergeh [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; Faux1.v = vec_mergeh( Fcons1, Fcons2 ); Faux2.v = Fcons1; Faux3.v = Fcons2; for( i=0; i< 2; i++ ) if ((Faux1.e[2*i] != Faux2.e[i])||(Faux1.e[2*i+1]!=Faux3.e[i])) err++; if (err) printf("Function vec_mergeh [type float] ===> Error\n"); else printf("Function vec_mergeh [type float] ===> OK\n"); #endif /* Function vec_mergel */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_mergel( Ccons1, Ccons2 ); Caux2.v = Ccons1; Caux3.v = Ccons2; for( i=0; i< 8; i++ ) if ((Caux1.e[2*i] != Caux2.e[i+8])||(Caux1.e[2*i+1]!=Caux3.e[i+8])) err++; if (err) printf("Function vec_mergel [type char] ===> Error\n"); else printf("Function vec_mergel [type char] ===> OK\n"); err = 0; UCaux1.v = vec_mergel( UCcons1, UCcons2 ); UCaux2.v = UCcons1; UCaux3.v = UCcons2; for( i=0; i< 8; i++ ) if ((UCaux1.e[2*i] != UCaux2.e[i+8])||(UCaux1.e[2*i+1]!=UCaux3.e[i+8])) err++; if (err) printf("Function vec_mergel [type unsigned char] ===> Error\n"); else printf("Function vec_mergel [type unsigned char] ===> OK\n"); err = 0; Saux1.v = vec_mergel( Scons1, Scons2 ); Saux2.v = Scons1; Saux3.v = Scons2; for( i=0; i< 4; i++ ) if ((Saux1.e[2*i] != Saux2.e[i+4])||(Saux1.e[2*i+1]!=Saux3.e[i+4])) err++; if (err) printf("Function vec_mergel [type short] ===> Error\n"); else printf("Function vec_mergel [type short] ===> OK\n"); err = 0; USaux1.v = vec_mergel( UScons1, UScons2 ); USaux2.v = UScons1; USaux3.v = UScons2; for( i=0; i< 4; i++ ) if ((USaux1.e[2*i] != USaux2.e[i+4])||(USaux1.e[2*i+1]!=USaux3.e[i+4])) err++; if (err) printf("Function vec_mergel [type unsigned short] ===> Error\n"); else printf("Function vec_mergel [type unsigned short] ===> OK\n"); err = 0; Iaux1.v = vec_mergel( Icons1, Icons2 ); Iaux2.v = Icons1; Iaux3.v = Icons2; for( i=0; i< 2; i++ ) if ((Iaux1.e[2*i] != Iaux2.e[i+2])||(Iaux1.e[2*i+1]!=Iaux3.e[i+2])) err++; if (err) printf("Function vec_mergel [type integer] ===> Error\n"); else printf("Function vec_mergel [type integer] ===> OK\n"); err = 0; UIaux1.v = vec_mergel( UIcons1, UIcons2 ); UIaux2.v = UIcons1; UIaux3.v = UIcons2; for( i=0; i< 2; i++ ) if ((UIaux1.e[2*i] != UIaux2.e[i+2])||(UIaux1.e[2*i+1]!=UIaux3.e[i+2])) err++; if (err) printf("Function vec_mergel [type unsigned int] ===> Error\n"); else printf("Function vec_mergel [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; Faux1.v = vec_mergel( Fcons1, Fcons2 ); Faux2.v = Fcons1; Faux3.v = Fcons2; for( i=0; i< 2; i++ ) if ((Faux1.e[2*i] != Faux2.e[i+2])||(Faux1.e[2*i+1]!=Faux3.e[i+2])) err++; if (err) printf("Function vec_mergel [type float] ===> Error\n"); else printf("Function vec_mergel [type float] ===> OK\n"); #endif /* Function vec_mfvscr */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); printf("Function vec_mfvscr [Vector Move from Vector Status and Control Register] not checked\n"); /* Function vec_min */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); #ifndef XLC_COMPILER err = 0; Caux1.v = vec_min( Ccons1, Ccons2 ); Caux2.v = Ccons1; Caux3.v = Ccons2; for( i=0; i< 8; i++ ) { if (Caux2.e[i] Error\n"); else printf("Function vec_min [type char] ===> OK\n"); #endif err = 0; UCaux1.v = vec_min( UCcons1, UCcons2 ); UCaux2.v = UCcons1; UCaux3.v = UCcons2; for( i=0; i< 8; i++ ) { if (UCaux2.e[i] Error\n"); else printf("Function vec_min [type unsigned char] ===> OK\n"); #ifndef XLC_COMPILER err = 0; Saux1.v = vec_min( Scons1, Scons2 ); Saux2.v = Scons1; Saux3.v = Scons2; for( i=0; i< 8; i++ ) { if (Saux2.e[i] Error\n"); else printf("Function vec_min [type short] ===> OK\n"); err = 0; USaux1.v = vec_min( UScons1, UScons2 ); USaux2.v = UScons1; USaux3.v = UScons2; for( i=0; i< 8; i++ ) { if (USaux2.e[i] Error\n"); else printf("Function vec_min [type unsigned short] ===> OK\n"); err = 0; Iaux1.v = vec_min( Icons1, Icons2 ); Iaux2.v = Icons1; Iaux3.v = Icons2; for( i=0; i< 4; i++ ) { if (Iaux2.e[i] Error\n"); else printf("Function vec_min [type integer] ===> OK\n"); err = 0; UIaux1.v = vec_min( UIcons1, UIcons2 ); UIaux2.v = UIcons1; UIaux3.v = UIcons2; for( i=0; i< 4; i++ ) { if (UIaux2.e[i] Error\n"); else printf("Function vec_min [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; Faux1.v = vec_min( Fcons1, Fcons2 ); Faux2.v = Fcons1; Faux3.v = Fcons2; for( i=0; i< 4; i++ ) { if (Faux2.e[i] Error\n"); else printf("Function vec_min [type float] ===> OK\n"); #endif #endif /* Function vec_mladd */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); #ifndef XLC_COMPILER err = 0; Saux1.v = vec_mladd( Scons1, Scons2, Scons3 ); Saux2.v = Scons1; Saux3.v = Scons2; Saux4.v = Scons3; for( i=0; i< 8; i++ ) { INTunion1.si = Saux2.e[i]*Saux3.e[i]; INTunion1.si = INTunion1.si + Saux4.e[i]; if (Saux1.e[i] != INTunion1.ss[1]) err++; } if (err) printf("Function vec_mladd [type short] ===> Error\n"); else printf("Function vec_mladd [type short] ===> OK\n"); #endif err = 0; USaux1.v = vec_mladd( UScons1, UScons2, UScons3 ); USaux2.v = UScons1; USaux3.v = UScons2; USaux4.v = UScons3; for( i=0; i< 8; i++ ) { INTunion1.ui = USaux2.e[i]*USaux3.e[i]; INTunion1.ui = INTunion1.ui + USaux4.e[i]; if (USaux1.e[i] != INTunion1.us[1]) err++; } if (err) printf("Function vec_mladd [type unsigned short] ===> Error\n"); else printf("Function vec_mladd [type unsigned short] ===> OK\n"); /* Function vec_mradds */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Saux1.v = vec_mradds( Scons1, Scons2, Scons3 ); Saux2.v = Scons1; Saux3.v = Scons2; Saux4.v = Scons3; for( i=0; i< 8; i++ ) { INTunion1.si = Saux2.e[i]*Saux3.e[i]+0x4000; INTunion1.si = INTunion1.si >> 15; INTunion1.si = INTunion1.si + Saux4.e[i]; if (INTunion1.si>32767) Saux = 0x7FFF; else if (INTunion1.si<(-32768)) Saux = 0x8000; else Saux = INTunion1.ss[1]; if (Saux1.e[i] != Saux) err++; printf("vector: %d \n", Saux1.e[i]); printf("scalar: %d \n", Saux); } if (err) printf("Function vec_mradds [type short] ===> Error\n"); else printf("Function vec_mradds [type short] ===> OK\n"); /* Function vec_msum */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); #ifndef XLC_COMPILER err = 0; Iaux1.v = vec_msum( Ccons1, UCcons2, Icons1 ); Caux1.v = Ccons1; UCaux1.v = UCcons2; Iaux2.v = Icons1; for( i=0; i< 4; i++ ) { Iaux = Iaux2.e[i]; for (j=0; j< 4; j++) Iaux = Iaux + Caux1.e[4*i+j]*UCaux1.e[4*i+j]; if (Iaux1.e[i] != Iaux) err++; } if (err) printf("Function vec_msum [type char] ===> Error\n"); else printf("Function vec_msum [type char] ===> OK\n"); #endif err = 0; UIaux1.v = vec_msum( UCcons1, UCcons2, UIcons1 ); UCaux1.v = UCcons1; UCaux2.v = UCcons2; UIaux2.v = UIcons1; for( i=0; i< 4; i++ ) { UIaux = UIaux2.e[i]; for (j=0; j< 4; j++) UIaux = UIaux + UCaux1.e[4*i+j]*UCaux2.e[4*i+j]; if (UIaux1.e[i] != UIaux) err++; } if (err) printf("Function vec_msum [type unsigned char] ===> Error\n"); else printf("Function vec_msum [type unsigned char] ===> OK\n"); #ifndef XLC_COMPILER err = 0; Iaux1.v = vec_msum( Scons1, Scons2, Icons1 ); Saux1.v = Scons1; Saux2.v = Scons2; Iaux2.v = Icons1; for( i=0; i< 4; i++ ) { Iaux = Iaux2.e[i]; for (j=0; j< 2; j++) Iaux = Iaux + Saux1.e[2*i+j]*Saux2.e[2*i+j]; if (Iaux1.e[i] != Iaux) err++; } if (err) printf("Function vec_msum [type short] ===> Error\n"); else printf("Function vec_msum [type short] ===> OK\n"); err = 0; UIaux1.v = vec_msum( UScons1, UScons2, UIcons1 ); USaux1.v = UScons1; USaux2.v = UScons2; UIaux2.v = UIcons1; for( i=0; i< 4; i++ ) { UIaux = UIaux2.e[i]; for (j=0; j< 2; j++) UIaux = UIaux + USaux1.e[2*i+j]*USaux2.e[2*i+j]; if (UIaux1.e[i] != UIaux) err++; } if (err) printf("Function vec_msum [type unsigned short] ===> Error\n"); else printf("Function vec_msum [type unsigned short] ===> OK\n"); #endif /* Function vec_msums */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Iaux1.v = vec_msums( Scons2, Scons3, Icons3 ); Saux1.v = Scons2; Saux2.v = Scons3; Iaux2.v = Icons3; for( i=0; i< 4; i++ ) { I1 = Saux1.e[2*i]*Saux2.e[2*i]; I2 = Saux1.e[2*i+1]*Saux2.e[2*i+1]; Iaux = I1 + I2; if ((I1>0)&&(I2>0)&&(Iaux<0)) Iaux=0x7FFFFFFF; else if ((I1<0)&&(I2<0)&&(Iaux>0)) Iaux=0x80000000; I1 = Iaux2.e[i]; I2 = Iaux; Iaux = I1 + I2; if ((I1>0)&&(I2>0)&&(Iaux<0)) Iaux=0x7FFFFFFF; else if ((I1<0)&&(I2<0)&&(Iaux>0)) Iaux=0x80000000; if (Iaux1.e[i] != Iaux) err++; } if (err) printf("Function vec_msums [type short] ===> Error\n"); else printf("Function vec_msums [type short] ===> OK\n"); err = 0; UIaux1.v = vec_msums( UScons2, UScons3, UIcons3 ); USaux1.v = UScons2; USaux2.v = UScons3; UIaux2.v = UIcons3; for( i=0; i< 4; i++ ) { UI1 = USaux1.e[2*i]*USaux2.e[2*i]; UI2 = USaux1.e[2*i+1]*USaux2.e[2*i+1]; UIaux = UI1 + UI2; if ((UIaux Error\n"); else printf("Function vec_msums [type unsigned short] ===> OK\n"); /* Function vec_mtvscr */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); printf("Function vec_mtvscr [Vector Move to Vector Status and Control Register] not checked\n"); /* Function vec_mule */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Saux1.v = vec_mule( Ccons1, Ccons2 ); Caux1.v = Ccons1; Caux2.v = Ccons2; for( i=0; i< 4; i++ ) if (Saux1.e[i] != (Caux1.e[2*i]*Caux2.e[2*i])) err++; if (err) printf("Function vec_mule [type char] ===> Error\n"); else printf("Function vec_mule [type char] ===> OK\n"); err = 0; USaux1.v = vec_mule( UCcons1, UCcons2 ); UCaux1.v = UCcons1; UCaux2.v = UCcons2; for( i=0; i< 4; i++ ) if (USaux1.e[i] != (UCaux1.e[2*i]*UCaux2.e[2*i])) err++; if (err) printf("Function vec_mule [type unsigned char] ===> Error\n"); else printf("Function vec_mule [type unsigned char] ===> OK\n"); err = 0; Iaux1.v = vec_mule( Scons1, Scons2 ); Saux1.v = Scons1; Saux2.v = Scons2; for( i=0; i< 4; i++ ) if (Iaux1.e[i] != (Saux1.e[2*i]*Saux2.e[2*i])) err++; if (err) printf("Function vec_mule [type short] ===> Error\n"); else printf("Function vec_mule [type short] ===> OK\n"); err = 0; UIaux1.v = vec_mule( UScons1, UScons2 ); USaux1.v = UScons1; USaux2.v = UScons2; for( i=0; i< 4; i++ ) if (UIaux1.e[i] != (USaux1.e[2*i] * USaux2.e[2*i])) err++; if (err) printf("Function vec_mule [type unsigned short] ===> Error\n"); else printf("Function vec_mule [type unsigned short] ===> OK\n"); /* Function vec_mulo */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Saux1.v = vec_mulo( Ccons1, Ccons2 ); Caux1.v = Ccons1; Caux2.v = Ccons2; for( i=0; i< 4; i++ ) if (Saux1.e[i] != (Caux1.e[2*i+1]*Caux2.e[2*i+1])) err++; if (err) printf("Function vec_mulo [type char] ===> Error\n"); else printf("Function vec_mulo [type char] ===> OK\n"); err = 0; USaux1.v = vec_mulo( UCcons1, UCcons2 ); UCaux1.v = UCcons1; UCaux2.v = UCcons2; for( i=0; i< 4; i++ ) if (USaux1.e[i] != (UCaux1.e[2*i+1]*UCaux2.e[2*i+1])) err++; if (err) printf("Function vec_mulo [type unsigned char] ===> Error\n"); else printf("Function vec_mulo [type unsigned char] ===> OK\n"); err = 0; Iaux1.v = vec_mulo( Scons1, Scons2 ); Saux1.v = Scons1; Saux2.v = Scons2; for( i=0; i< 4; i++ ) if (Iaux1.e[i] != (Saux1.e[2*i+1]*Saux2.e[2*i+1])) err++; if (err) printf("Function vec_mulo [type short] ===> Error\n"); else printf("Function vec_mulo [type short] ===> OK\n"); err = 0; UIaux1.v = vec_mulo( UScons1, UScons2 ); USaux1.v = UScons1; USaux2.v = UScons2; for( i=0; i< 4; i++ ) if (UIaux1.e[i] != (USaux1.e[2*i+1]*USaux2.e[2*i+1])) err++; if (err) printf("Function vec_mulo [type unsigned short] ===> Error\n"); else printf("Function vec_mulo [type unsigned short] ===> OK\n"); #if defined TEST_FLOATS /* Function vec_nmsub */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Faux1.v = vec_nmsub( Fcons1, Fcons2, Fcons3 ); Faux2.v = Fcons1; Faux3.v = Fcons2; Faux4.v = Fcons3; for( i=0; i< 4; i++ ) { if (Faux1.e[i] != (-Faux2.e[i]*Faux3.e[i]+Faux4.e[i])) err++; } if (err) printf("Function vec_nmsub [type float] ===> Error\n"); else printf("Function vec_nmsub [type float] ===> OK\n"); #endif /* Function vec_nor */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_nor( Ccons1, Ccons2 ); Caux2.v = Ccons1; Caux3.v = Ccons2; for( i=0; i< 16; i++ ) if (Caux1.e[i] != ~(Caux2.e[i] | Caux3.e[i])) err++; if (err) printf("Function vec_nor [type char] ===> Error\n"); else printf("Function vec_nor [type char] ===> OK\n"); err = 0; UCaux1.v = vec_nor( UCcons1, UCcons2 ); UCaux2.v = UCcons1; UCaux3.v = UCcons2; for( i=0; i< 16; i++ ) { UCaux = UCaux2.e[i] | UCaux3.e[i]; UCaux = ~UCaux; if (UCaux1.e[i] != UCaux ) err++; } if (err) printf("Function vec_nor [type unsigened char] ===> Error\n"); else printf("Function vec_nor [type unsigened char] ===> OK\n"); err = 0; Saux1.v = vec_nor( Scons1, Scons2 ); Saux2.v = Scons1; Saux3.v = Scons2; for( i=0; i< 8; i++ ) if (Saux1.e[i] != ~(Saux2.e[i] | Saux3.e[i])) err++; if (err) printf("Function vec_nor [type short] ===> Error\n"); else printf("Function vec_nor [type short] ===> OK\n"); err = 0; USaux1.v = vec_nor( UScons1, UScons2 ); USaux2.v = UScons1; USaux3.v = UScons2; for( i=0; i< 8; i++ ) { USaux = USaux2.e[i] | USaux3.e[i]; USaux = ~USaux; if (USaux1.e[i] != USaux ) err++; } if (err) printf("Function vec_nor [type unsigned short] ===> Error\n"); else printf("Function vec_nor [type unsigned short] ===> OK\n"); err = 0; Iaux1.v = vec_nor( Icons1, Icons2 ); Iaux2.v = Icons1; Iaux3.v = Icons2; for( i=0; i< 4; i++ ) if (Iaux1.e[i] != ~(Iaux2.e[i] | Iaux3.e[i])) err++; if (err) printf("Function vec_nor [type integer] ===> Error\n"); else printf("Function vec_nor [type integer] ===> OK\n"); err = 0; UIaux1.v = vec_nor( UIcons1, UIcons2 ); UIaux2.v = UIcons1; UIaux3.v = UIcons2; for( i=0; i< 4; i++ ) if (UIaux1.e[i] != ~(UIaux2.e[i] | UIaux3.e[i])) err++; if (err) printf("Function vec_nor [type unsigened int] ===> Error\n"); else printf("Function vec_nor [type unsigened int] ===> OK\n"); #if defined TEST_FLOATS err = 0; Faux1.v = vec_nor( Fcons1, Fcons2 ); Faux2.v = Fcons1; Faux3.v = Fcons2; for( i=0; i< 4; i++ ) { Ivec1 = Faux1.i[i]; Ivec2 = Faux2.i[i]; Ivec3 = Faux3.i[i]; if ((Ivec1) != ~((Ivec2) | (Ivec3))) err++; } if (err) printf("Function vec_nor [type float] ===> Error\n"); else printf("Function vec_nor [type float] ===> OK\n"); #endif /* Function vec_or */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_or( Ccons1, Ccons2 ); Caux2.v = Ccons1; Caux3.v = Ccons2; for( i=0; i< 16; i++ ) if (Caux1.e[i] != (Caux2.e[i] | Caux3.e[i])) err++; if (err) printf("Function vec_or [type char] ===> Error\n"); else printf("Function vec_or [type char] ===> OK\n"); err = 0; UCaux1.v = vec_or( UCcons1, UCcons2 ); UCaux2.v = UCcons1; UCaux3.v = UCcons2; for( i=0; i< 16; i++ ) { UCaux = UCaux2.e[i] | UCaux3.e[i]; if (UCaux1.e[i] != UCaux ) err++; } if (err) printf("Function vec_or [type unsigened char] ===> Error\n"); else printf("Function vec_or [type unsigened char] ===> OK\n"); err = 0; Saux1.v = vec_or( Scons1, Scons2 ); Saux2.v = Scons1; Saux3.v = Scons2; for( i=0; i< 8; i++ ) if (Saux1.e[i] != (Saux2.e[i] | Saux3.e[i])) err++; if (err) printf("Function vec_or [type short] ===> Error\n"); else printf("Function vec_or [type short] ===> OK\n"); err = 0; USaux1.v = vec_or( UScons1, UScons2 ); USaux2.v = UScons1; USaux3.v = UScons2; for( i=0; i< 8; i++ ) { USaux = USaux2.e[i] | USaux3.e[i]; if (USaux1.e[i] != USaux ) err++; } if (err) printf("Function vec_or [type unsigned short] ===> Error\n"); else printf("Function vec_or [type unsigned short] ===> OK\n"); err = 0; Iaux1.v = vec_or( Icons1, Icons2 ); Iaux2.v = Icons1; Iaux3.v = Icons2; for( i=0; i< 4; i++ ) if (Iaux1.e[i] != (Iaux2.e[i] | Iaux3.e[i])) err++; if (err) printf("Function vec_or [type integer] ===> Error\n"); else printf("Function vec_or [type integer] ===> OK\n"); err = 0; UIaux1.v = vec_or( UIcons1, UIcons2 ); UIaux2.v = UIcons1; UIaux3.v = UIcons2; for( i=0; i< 4; i++ ) if (UIaux1.e[i] != (UIaux2.e[i] | UIaux3.e[i])) err++; if (err) printf("Function vec_or [type unsigened int] ===> Error\n"); else printf("Function vec_or [type unsigened int] ===> OK\n"); #if defined TEST_FLOATS err = 0; Faux1.v = vec_or( Fcons1, Fcons2 ); Faux2.v = Fcons1; Faux3.v = Fcons2; for( i=0; i< 4; i++ ) { Ivec1 = Faux1.i[i]; Ivec2 = Faux2.i[i]; Ivec3 = Faux3.i[i]; if ((Ivec1) != ((Ivec2) | (Ivec3))) err++; } if (err) printf("Function vec_or [type float] ===> Error\n"); else printf("Function vec_or [type float] ===> OK\n"); #endif return 0; } int part3( ) { TvecChar Caux1, Caux2, Caux3;//, Caux4; TvecUChar UCaux1, UCaux2, UCaux3, UCaux4; TvecShort Saux1, Saux2, Saux3;//, Saux4; TvecUShort USaux1, USaux2, USaux3, USaux4; TvecInt Iaux1, Iaux2, Iaux3;//, Iaux4; TvecUInt UIaux1, UIaux2, UIaux3, UIaux4; #if defined TEST_FLOATS TvecFloat Faux1, Faux2, Faux3;//, Faux4; #endif int i, err, /*j,*/ b;//, bAux; #if defined TEST_FLOATS signed int Ivec1, Ivec2;//, Ivec3; #endif // signed short *Svec1; unsigned int *UIvec1; unsigned short *USvec1; unsigned char *UCvec1; #if defined TEST_FLOATS // float *Fvec1; #endif /* For saturated rutines */ // long long int LLaux; #if defined TEST_FLOATS float Faux; #endif signed int Iaux;//, I1, I2; unsigned int UIaux;//, UI1, UI2; signed short Saux; unsigned short USaux; signed char Caux; unsigned char UCaux; union { float f; signed int si; unsigned int ui; signed short ss[2]; unsigned short us[2]; signed char sc[4]; unsigned char uc[4]; } INTunion1, INTunion2; union { signed short ss; unsigned short us; signed char sc[2]; unsigned char uc[2]; } SHOunion1, SHOunion2; #if defined (GCC_COMPILER) vector signed char Ccons1 = (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; vector signed char Ccons2 = (vector signed char){1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}; vector signed char Ccons3 = (vector signed char){-128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127}; vector unsigned char UCcons1 = (vector unsigned char){248, 249, 250, 251, 252, 253, 254, 255, 0, 1, 2, 3, 4, 5, 6, 7}; vector unsigned char UCcons2 = (vector unsigned char){2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2}; vector unsigned char UCcons3 = (vector unsigned char){1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8}; vector signed short Scons1 = (vector signed short){-4, -3, -2, -1, 0, 1, 2, 3}; vector signed short Scons2 = (vector signed short){-32768, 10000, 1, 1, 1, 1, -10000, -10000}; vector signed short Scons3 = (vector signed short){-32768, 32767, -32768, 32767, -32768, 32767, -32768, 32767}; vector unsigned short UScons1 = (vector unsigned short){65532, 65533, 65534, 65535, 0, 1, 2, 3}; vector unsigned short UScons2 = (vector unsigned short){1, 1, 1, 1, 1, 1, 1, 1}; vector unsigned short UScons3 = (vector unsigned short){1, 2, 3, 4, 1, 2, 3, 4}; vector signed int Icons1 = (vector signed int){-4, -1, 1, 4}; vector signed int Icons2 = (vector signed int){1, 1, 1, 1}; vector signed int Icons3 = (vector signed int){0x80000000, 0x7FFFFFFF, 0x80000000, 0x7FFFFFFF}; vector unsigned int UIcons1 = (vector unsigned int){0xFFFFFFFE, 0xFFFFFFFF, 0, 1}; vector unsigned int UIcons2 = (vector unsigned int){1, 1, 1, 1}; vector unsigned int UIcons3 = (vector unsigned int){1, 2, 1, 2}; #if defined TEST_FLOATS vector float Fcons1 = (vector float){-1.5, 1.0, 0.5, -3.999}; vector float Fcons2 = (vector float){1.0, 1.0, 1.0, 1.0}; vector float Fcons3 = (vector float){100000000000.0, 1.0, -1.0, -1234567890.0}; #endif #elif defined (MAC_COMPILER) || defined (XLC_COMPILER) vector signed char Ccons1 = (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); vector signed char Ccons2 = (vector signed char)(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1); vector signed char Ccons3 = (vector signed char)(-128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127); vector unsigned char UCcons1 = (vector unsigned char)(248, 249, 250, 251, 252, 253, 254, 255, 0, 1, 2, 3, 4, 5, 6, 7); vector unsigned char UCcons2 = (vector unsigned char)(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2); vector unsigned char UCcons3 = (vector unsigned char)(1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8); vector signed short Scons1 = (vector signed short)(-4, -3, -2, -1, 0, 1, 2, 3); vector signed short Scons2 = (vector signed short)(-32768, 10000, 1, 1, 1, 1, -10000, -10000); vector signed short Scons3 = (vector signed short)(-32768, 32767, -32768, 32767, -32768, 32767, -32768, 32767); vector unsigned short UScons1 = (vector unsigned short)(65532, 65533, 65534, 65535, 0, 1, 2, 3); vector unsigned short UScons2 = (vector unsigned short)(1, 1, 1, 1, 1, 1, 1, 1); vector unsigned short UScons3 = (vector unsigned short)(1, 2, 3, 4, 1, 2, 3, 4); vector signed int Icons1 = (vector signed int)(-4, -1, 1, 4); vector signed int Icons2 = (vector signed int)(1, 1, 1, 1); vector signed int Icons3 = (vector signed int)(0x80000000, 0x7FFFFFFF, 0x80000000, 0x7FFFFFFF); vector unsigned int UIcons1 = (vector unsigned int)(0xFFFFFFFE, 0xFFFFFFFF, 0, 1); vector unsigned int UIcons2 = (vector unsigned int)(1, 1, 1, 1); vector unsigned int UIcons3 = (vector unsigned int)(1, 2, 1, 2); #if defined TEST_FLOATS vector float Fcons1 = (vector float)(-1.5, 1.0, 0.5, -3.999); vector float Fcons2 = (vector float)(1.0, 1.0, 1.0, 1.0); vector float Fcons3 = (vector float)(100000000000.0, 1.0, -1.0, -1234567890.0); #endif #endif /* Variables to be allocated with calloc_vec (16 bytes aligned) */ unsigned char *UCmem = (unsigned char*)calloc_vec( 1, sizeof(vector unsigned char) ); signed char *Cmem = (signed char*)calloc_vec( 1, sizeof(vector signed char) ); unsigned short *USmem = (unsigned short*)calloc_vec( 1, sizeof(vector unsigned short) ); signed short *Smem = (signed short*)calloc_vec( 1, sizeof(vector signed short) ); unsigned int *UImem = (unsigned int*)calloc_vec( 1, sizeof(vector unsigned int) ); signed int *Imem = (signed int*)calloc_vec( 1, sizeof(vector signed int) ); #if defined TEST_FLOATS float *Fmem = (float*)calloc_vec( 1, sizeof(vector float) ); #endif /* Function vec_pack */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_pack( Scons1, Scons2 ); Saux1.v = Scons1; Saux2.v = Scons2; for( i=0; i< 8; i++ ) { SHOunion1.ss = Saux1.e[i]; if (Caux1.e[i] != SHOunion1.sc[1]) err++; SHOunion1.ss = Saux2.e[i]; if (Caux1.e[i+8] != SHOunion1.sc[1]) err++; } if (err) printf("Function vec_pack [type char] ===> Error\n"); else printf("Function vec_pack [type char] ===> OK\n"); err = 0; UCaux1.v = vec_pack( UScons1, UScons2 ); USaux1.v = UScons1; USaux2.v = UScons2; for( i=0; i< 8; i++ ) { SHOunion1.ss = USaux1.e[i]; if (UCaux1.e[i] != SHOunion1.uc[1]) err++; SHOunion1.ss = USaux2.e[i]; if (UCaux1.e[i+8] != SHOunion1.uc[1]) err++; } if (err) printf("Function vec_pack [type unsigned char] ===> Error\n"); else printf("Function vec_pack [type unsigned char] ===> OK\n"); err = 0; Saux1.v = vec_pack( Icons1, Icons2 ); Iaux1.v = Icons1; Iaux2.v = Icons2; for( i=0; i< 4; i++ ) { INTunion1.si = Iaux1.e[i]; if (Saux1.e[i] != INTunion1.ss[1]) err++; INTunion1.si = Iaux2.e[i]; if (Saux1.e[i+4] != INTunion1.ss[1]) err++; } if (err) printf("Function vec_pack [type short] ===> Error\n"); else printf("Function vec_pack [type short] ===> OK\n"); err = 0; USaux1.v = vec_pack( UIcons1, UIcons2 ); UIaux1.v = UIcons1; UIaux2.v = UIcons2; for( i=0; i< 4; i++ ) { INTunion1.ui = UIaux1.e[i]; if (USaux1.e[i] != INTunion1.us[1]) err++; INTunion1.ui = UIaux2.e[i]; if (USaux1.e[i+4] != INTunion1.us[1]) err++; } if (err) printf("Function vec_pack [type unsigned short] ===> Error\n"); else printf("Function vec_pack [type unsigned short] ===> OK\n"); /* Function vec_packpx */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); printf("Function vec_packpx [Vector Pack Pixel] not checked\n"); /* Function vec_packs */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_packs( Scons1, Scons2 ); Saux1.v = Scons1; Saux2.v = Scons2; for( i=0; i< 8; i++ ) { if (Saux1.e[i]>127) Caux = 127; else if (Saux1.e[i]<(-128)) Caux = -128; else Caux = (signed char)Saux1.e[i]; if (Caux1.e[i] != Caux) err++; if (Saux2.e[i]>127) Caux = 127; else if (Saux2.e[i]<(-128)) Caux = -128; else Caux = (signed char)Saux2.e[i]; if (Caux1.e[i+8] != Caux) err++; } if (err) printf("Function vec_packs [type char] ===> Error\n"); else printf("Function vec_packs [type char] ===> OK\n"); err = 0; UCaux1.v = vec_packs( UScons1, UScons2 ); USaux1.v = UScons1; USaux2.v = UScons2; for( i=0; i< 8; i++ ) { if (USaux1.e[i]>255) UCaux = 255; else UCaux = (unsigned char)USaux1.e[i]; if (UCaux1.e[i] != UCaux) err++; if (USaux2.e[i]>255) UCaux = 255; else UCaux = (unsigned char)USaux2.e[i]; if (UCaux1.e[i+8] != UCaux) err++; } if (err) printf("Function vec_packs [type unsigned char] ===> Error\n"); else printf("Function vec_packs [type unsigned char] ===> OK\n"); err = 0; Saux1.v = vec_packs( Icons1, Icons2 ); Iaux1.v = Icons1; Iaux2.v = Icons2; for( i=0; i< 4; i++ ) { if (Iaux1.e[i]>32767) Saux = 32767; else if (Iaux1.e[i]<(-32768)) Saux = -32768; else Saux = (signed char)Iaux1.e[i]; if (Saux1.e[i] != Saux) err++; if (Iaux2.e[i]>32767) Saux = 32767; else if (Iaux2.e[i]<(-32768)) Saux = -32768; else Saux = (signed char)Iaux2.e[i]; if (Saux1.e[i+4] != Saux) err++; } if (err) printf("Function vec_packs [type short] ===> Error\n"); else printf("Function vec_packs [type short] ===> OK\n"); err = 0; USaux1.v = vec_packs( UIcons1, UIcons2 ); UIaux1.v = UIcons1; UIaux2.v = UIcons2; for( i=0; i< 4; i++ ) { if (UIaux1.e[i]>65535) USaux = 65535; else USaux = (unsigned char)UIaux1.e[i]; if (USaux1.e[i] != USaux) err++; if (UIaux2.e[i]>65535) USaux = 65535; else USaux = (unsigned char)UIaux2.e[i]; if (USaux1.e[i+4] != USaux) err++; } if (err) printf("Function vec_packs [type unsigned short] ===> Error\n"); else printf("Function vec_packs [type unsigned short] ===> OK\n"); /* Function vec_packsu */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; UCaux1.v = vec_packsu( Scons1, Scons2 ); Saux1.v = Scons1; Saux2.v = Scons2; for( i=0; i< 8; i++ ) { if (Saux1.e[i]>255) UCaux = 255; else if (Saux1.e[i]<0) UCaux = 0; else UCaux = (unsigned char)Saux1.e[i]; if (UCaux1.e[i] != UCaux) err++; if (Saux2.e[i]>255) UCaux = 255; else if (Saux2.e[i]<0) UCaux = 0; else UCaux = (unsigned char)Saux2.e[i]; if (UCaux1.e[i+8] != UCaux) err++; } if (err) printf("Function vec_packsu [type char] ===> Error\n"); else printf("Function vec_packsu [type char] ===> OK\n"); err = 0; UCaux1.v = vec_packsu( UScons1, UScons2 ); USaux1.v = UScons1; USaux2.v = UScons2; for( i=0; i< 8; i++ ) { if (USaux1.e[i]>255) UCaux = 255; else UCaux = (unsigned char)USaux1.e[i]; if (UCaux1.e[i] != UCaux) err++; if (USaux2.e[i]>255) UCaux = 255; else UCaux = (unsigned char)USaux2.e[i]; if (UCaux1.e[i+8] != UCaux) err++; } if (err) printf("Function vec_packsu [type unsigned char] ===> Error\n"); else printf("Function vec_packsu [type unsigned char] ===> OK\n"); err = 0; USaux1.v = vec_packsu( Icons1, Icons2 ); Iaux1.v = Icons1; Iaux2.v = Icons2; for( i=0; i< 4; i++ ) { if (Iaux1.e[i]>65535) USaux = 65535; else if (Iaux1.e[i]<0) USaux = 0; else USaux = (unsigned short)Iaux1.e[i]; if (USaux1.e[i] != USaux) err++; if (Iaux2.e[i]>65535) USaux = 65535; else if (Iaux2.e[i]<0) USaux = 0; else USaux = (unsigned short)Iaux2.e[i]; if (USaux1.e[i+4] != USaux) err++; } if (err) printf("Function vec_packsu [type short] ===> Error\n"); else printf("Function vec_packsu [type short] ===> OK\n"); err = 0; USaux1.v = vec_packsu( UIcons1, UIcons2 ); UIaux1.v = UIcons1; UIaux2.v = UIcons2; for( i=0; i< 4; i++ ) { if (UIaux1.e[i]>65535) USaux = 65535; else USaux = (unsigned char)UIaux1.e[i]; if (USaux1.e[i] != USaux) err++; if (UIaux2.e[i]>65535) USaux = 65535; else USaux = (unsigned char)UIaux2.e[i]; if (USaux1.e[i+4] != USaux) err++; } if (err) printf("Function vec_packsu [type unsigned short] ===> Error\n"); else printf("Function vec_packsu [type unsigned short] ===> OK\n"); /* Function vec_perm */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); printf("Function vec_perm [Vector Permute] not checked\n"); #if defined TEST_FLOATS /* Function vec_re */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Faux1.v = vec_re( Fcons1 ); Faux2.v = Fcons1; for( i=0; i< 4; i++ ) { Faux = 1/Faux2.e[i]; if (Faux!=0.0) Faux = (Faux - Faux1.e[i])/Faux; else Faux = Faux - Faux1.e[i]; if (Faux>(1.0/4096.0)) err++; } if (err) printf("Function vec_re [type float] ===> Error\n"); else printf("Function vec_re [type float] ===> OK\n"); #endif /* Function vec_rl */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_rl( Ccons1, UCcons3 ); Caux2.v = Ccons1; UCaux1.v = UCcons3; for( i=0; i< 16; i++ ) { b = UCaux1.e[i]; UCvec1 = (unsigned char *)(&Caux2.e[i]); Caux = ((*UCvec1)>>(8-b)) | ((*UCvec1)< Error\n"); else printf("Function vec_rl [type char] ===> OK\n"); err = 0; UCaux1.v = vec_rl( UCcons1, UCcons3 ); UCaux2.v = UCcons1; UCaux3.v = UCcons3; for( i=0; i< 16; i++ ) { b = UCaux3.e[i]; UCaux = (UCaux2.e[i]>>(8-b)) | (UCaux2.e[i]< Error\n"); else printf("Function vec_rl [type unsigned char] ===> OK\n"); err = 0; Saux1.v = vec_rl( Scons1, UScons3 ); Saux2.v = Scons1; USaux1.v = UScons3; for( i=0; i< 8; i++ ) { b = USaux1.e[i]; USvec1 = (unsigned short *)(&Saux2.e[i]); Saux = ((*USvec1)>>(16-b)) | ((*USvec1)< Error\n"); else printf("Function vec_rl [type short] ===> OK\n"); err = 0; USaux1.v = vec_rl( UScons1, UScons3 ); USaux2.v = UScons1; USaux3.v = UScons3; for( i=0; i< 8; i++ ) { b = USaux3.e[i]; USaux = (USaux2.e[i]>>(16-b)) | (USaux2.e[i]< Error\n"); else printf("Function vec_rl [type unsigned short] ===> OK\n"); err = 0; Iaux1.v = vec_rl( Icons1, UIcons3 ); Iaux2.v = Icons1; UIaux1.v = UIcons3; for( i=0; i< 4; i++ ) { b = UIaux1.e[i]; UIvec1 = (unsigned int *)(&Iaux2.e[i]); Iaux = ((*UIvec1)>>(32-b)) | ((*UIvec1)< Error\n"); else printf("Function vec_rl [type integer] ===> OK\n"); err = 0; UIaux1.v = vec_rl( UIcons1, UIcons3 ); UIaux2.v = UIcons1; UIaux3.v = UIcons3; for( i=0; i< 4; i++ ) { b = UIaux3.e[i]; UIaux = (UIaux2.e[i]>>(32-b)) | (UIaux2.e[i]< Error\n"); else printf("Function vec_rl [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS /* Function vec_round */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Faux1.v = vec_round( Fcons1 ); Faux2.v = Fcons1; for( i=0; i< 4; i++ ) { Faux = floor(Faux2.e[i]); if ((Faux2.e[i]-Faux)>0.5) Faux = Faux + 1.0; else if (((Faux2.e[i]-Faux)==0.5)&&(Iaux%2)) Faux = Faux + 1.0; if (Faux1.e[i] != Faux) err++; } if (err) printf("Function vec_round [type float] ===> Error\n"); else printf("Function vec_round [type float] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_rsqrte */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Faux1.v = vec_rsqrte( Fcons1 ); Faux2.v = Fcons1; for( i=0; i< 4; i++ ) { Faux = sqrtf(Faux2.e[i]); if (Faux>0.0) Faux = (Faux - Faux1.e[i])/Faux; else if (Faux==0.0) Faux = Faux - Faux1.e[i]; if (Faux>(1.0/4096.0)) err++; } if (err) printf("Function vec_rsqrte [type float] ===> Error\n"); else printf("Function vec_rsqrte [type float] ===> OK\n"); #endif /* Function vec_sel */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_sel( Ccons1, Ccons2, UCcons1 ); Caux2.v = Ccons1; Caux3.v = Ccons2; UCaux1.v = UCcons1; for( i=0; i< 16; i++ ) { Caux = (Caux2.e[i] & (~UCaux1.e[i])) | (Caux3.e[i] & UCaux1.e[i]); if (Caux1.e[i] != Caux) err++; } if (err) printf("Function vec_sel [type char] ===> Error\n"); else printf("Function vec_sel [type char] ===> OK\n"); err = 0; UCaux1.v = vec_sel( UCcons1, UCcons2, UCcons3 ); UCaux2.v = UCcons1; UCaux3.v = UCcons2; UCaux4.v = UCcons3; for( i=0; i< 16; i++ ) { UCaux = (UCaux2.e[i] & (~UCaux4.e[i])) | (UCaux3.e[i] & UCaux4.e[i]); if (UCaux1.e[i] != UCaux) err++; } if (err) printf("Function vec_sel [type unsigned char] ===> Error\n"); else printf("Function vec_sel [type unsigned char] ===> OK\n"); err = 0; Saux1.v = vec_sel( Scons1, Scons2, UScons1 ); Saux2.v = Scons1; Saux3.v = Scons2; USaux1.v = UScons1; for( i=0; i< 8; i++ ) { Saux = (Saux2.e[i] & (~USaux1.e[i])) | (Saux3.e[i] & USaux1.e[i]); if (Saux1.e[i] != Saux) err++; } if (err) printf("Function vec_sel [type short] ===> Error\n"); else printf("Function vec_sel [type short] ===> OK\n"); err = 0; USaux1.v = vec_sel( UScons1, UScons2, UScons3 ); USaux2.v = UScons1; USaux3.v = UScons2; USaux4.v = UScons3; for( i=0; i< 8; i++ ) { USaux = (USaux2.e[i] & (~USaux4.e[i])) | (USaux3.e[i] & USaux4.e[i]); if (USaux1.e[i] != USaux) err++; } if (err) printf("Function vec_sel [type unsigned short] ===> Error\n"); else printf("Function vec_sel [type unsigned short] ===> OK\n"); err = 0; Iaux1.v = vec_sel( Icons1, Icons2, UIcons1 ); Iaux2.v = Icons1; Iaux3.v = Icons2; UIaux1.v = UIcons1; for( i=0; i< 4; i++ ) { Iaux = (Iaux2.e[i] & (~UIaux1.e[i])) | (Iaux3.e[i] & UIaux1.e[i]); if (Iaux1.e[i] != Iaux) err++; } if (err) printf("Function vec_sel [type integer] ===> Error\n"); else printf("Function vec_sel [type integer] ===> OK\n"); err = 0; UIaux1.v = vec_sel( UIcons1, UIcons2, UIcons3 ); UIaux2.v = UIcons1; UIaux3.v = UIcons2; UIaux4.v = UIcons3; for( i=0; i< 4; i++ ) { UIaux = (UIaux2.e[i] & (~UIaux4.e[i])) | (UIaux3.e[i] & UIaux4.e[i]); if (UIaux1.e[i] != UIaux) err++; } if (err) printf("Function vec_sel [type unsigned int] ===> Error\n"); else printf("Function vec_sel [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; Faux1.v = vec_sel( Fcons1, Fcons2, UIcons1 ); Faux2.v = Fcons1; Faux3.v = Fcons2; UIaux1.v = UIcons1; for( i=0; i< 4; i++ ) { Ivec1 = Faux2.i[i]; Ivec2 = Faux3.i[i]; Iaux = (Ivec1 & (~UIaux1.e[i])) | (Ivec2 & UIaux1.e[i]); Ivec1 = Faux1.i[i]; if ((Ivec1) != Iaux) err++; } if (err) printf("Function vec_sel [type float] ===> Error\n"); else printf("Function vec_sel [type float] ===> OK\n"); #endif /* Function vec_sl */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_sl( Ccons1, UCcons3 ); Caux2.v = Ccons1; UCaux1.v = UCcons3; for( i=0; i< 16; i++ ) { b = UCaux1.e[i]%(128/16); Caux = Caux2.e[i] << b; if (Caux1.e[i] != Caux) err++; } if (err) printf("Function vec_sl [type char] ===> Error\n"); else printf("Function vec_sl [type char] ===> OK\n"); err = 0; UCaux1.v = vec_sl( UCcons1, UCcons3 ); UCaux2.v = UCcons1; UCaux3.v = UCcons3; for( i=0; i< 16; i++ ) { b = UCaux3.e[i]%(128/16); UCaux = UCaux2.e[i] << b; if (UCaux1.e[i] != UCaux) err++; } if (err) printf("Function vec_sl [type unsigned char] ===> Error\n"); else printf("Function vec_sl [type unsigned char] ===> OK\n"); err = 0; Saux1.v = vec_sl( Scons1, UScons3 ); Saux2.v = Scons1; USaux1.v = UScons3; for( i=0; i< 8; i++ ) { b = USaux1.e[i]%(128/8); Saux = Saux2.e[i] << b; if (Saux1.e[i] != Saux) err++; } if (err) printf("Function vec_sl [type short] ===> Error\n"); else printf("Function vec_sl [type short] ===> OK\n"); err = 0; USaux1.v = vec_sl( UScons1, UScons3 ); USaux2.v = UScons1; USaux3.v = UScons3; for( i=0; i< 8; i++ ) { b = USaux3.e[i]%(128/8); USaux = USaux2.e[i] << b; if (USaux1.e[i] != USaux) err++; } if (err) printf("Function vec_sl [type unsigned short] ===> Error\n"); else printf("Function vec_sl [type unsigned short] ===> OK\n"); err = 0; Iaux1.v = vec_sl( Icons1, UIcons3 ); Iaux2.v = Icons1; UIaux1.v = UIcons3; for( i=0; i< 4; i++ ) { b = UIaux1.e[i]%(128/4); Iaux = Iaux2.e[i] << b; if (Iaux1.e[i] != Iaux) err++; } if (err) printf("Function vec_sl [type int] ===> Error\n"); else printf("Function vec_sl [type int] ===> OK\n"); err = 0; UIaux1.v = vec_sl( UIcons1, UIcons3 ); UIaux2.v = UIcons1; UIaux3.v = UIcons3; for( i=0; i< 4; i++ ) { b = UIaux3.e[i]%(128/4); UIaux = UIaux2.e[i] << b; if (UIaux1.e[i] != UIaux) err++; } if (err) printf("Function vec_sl [type unsigned integer] ===> Error\n"); else printf("Function vec_sl [type unsigned integer] ===> OK\n"); /* Function vec_sld */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; b = 3; Caux1.v = vec_sld( Ccons1, Ccons2, 3 ); Caux2.v = Ccons1; Caux3.v = Ccons2; for( i=0; i< 16; i++ ) { if ((i+b)<16) { if (Caux1.e[i] != Caux2.e[i+b]) err++; } else { if (Caux1.e[i] != Caux3.e[i+b-16]) err++; } } if (err) printf("Function vec_sld [type char] ===> Error\n"); else printf("Function vec_sld [type char] ===> OK\n"); err = 0; b = 3; UCaux1.v = vec_sld( UCcons1, UCcons2, 3 ); UCaux2.v = UCcons1; UCaux3.v = UCcons2; for( i=0; i< 16; i++ ) { if ((i+b)<16) { if (UCaux1.e[i] != UCaux2.e[i+b]) err++; } else { if (UCaux1.e[i] != UCaux3.e[i+b-16]) err++; } } if (err) printf("Function vec_sld [type unsigned char] ===> Error\n"); else printf("Function vec_sld [type unsigned char] ===> OK\n"); err = 0; b = 3; Saux1.v = vec_sld( Scons1, Scons2, 3 ); Saux2.v = Scons1; Saux3.v = Scons2; for( i=0; i< 16; i++ ) { SHOunion1.ss = Saux1.e[i/2]; if ((i+b)<16) SHOunion2.ss = Saux2.e[(i+b)/2]; else SHOunion2.ss = Saux3.e[(i+b-16)/2]; if (SHOunion1.sc[i%2] != SHOunion2.sc[(i+b)%2]) err++; } if (err) printf("Function vec_sld [type short] ===> Error\n"); else printf("Function vec_sld [type short] ===> OK\n"); err = 0; b = 3; USaux1.v = vec_sld( UScons1, UScons2, 3 ); USaux2.v = UScons1; USaux3.v = UScons2; for( i=0; i< 16; i++ ) { SHOunion1.us = USaux1.e[i/2]; if ((i+b)<16) SHOunion2.us = USaux2.e[(i+b)/2]; else SHOunion2.us = USaux3.e[(i+b-16)/2]; if (SHOunion1.uc[i%2] != SHOunion2.uc[(i+b)%2]) err++; } if (err) printf("Function vec_sld [type unsigned short] ===> Error\n"); else printf("Function vec_sld [type unsigned short] ===> OK\n"); err = 0; b = 3; Iaux1.v = vec_sld( Icons1, Icons2, 3 ); Iaux2.v = Icons1; Iaux3.v = Icons2; for( i=0; i< 16; i++ ) { INTunion1.si = Iaux1.e[i/4]; if ((i+b)<16) INTunion2.si = Iaux2.e[(i+b)/4]; else INTunion2.si = Iaux3.e[(i+b-16)/4]; if (INTunion1.sc[i%4] != INTunion2.sc[(i+b)%4]) err++; } if (err) printf("Function vec_sld [type integer] ===> Error\n"); else printf("Function vec_sld [type integer] ===> OK\n"); err = 0; b = 3; UIaux1.v = vec_sld( UIcons1, UIcons2, 3 ); UIaux2.v = UIcons1; UIaux3.v = UIcons2; for( i=0; i< 16; i++ ) { INTunion1.ui = UIaux1.e[i/4]; if ((i+b)<16) INTunion2.ui = UIaux2.e[(i+b)/4]; else INTunion2.ui = UIaux3.e[(i+b-16)/4]; if (INTunion1.uc[i%4] != INTunion2.uc[(i+b)%4]) err++; } if (err) printf("Function vec_sld [type unsigned int] ===> Error\n"); else printf("Function vec_sld [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; b = 3; Faux1.v = vec_sld( Fcons1, Fcons2, 3 ); Faux2.v = Fcons1; Faux3.v = Fcons2; for( i=0; i< 16; i++ ) { INTunion1.f = Faux1.e[i/4]; if ((i+b)<16) INTunion2.f = Faux2.e[(i+b)/4]; else INTunion2.f = Faux3.e[(i+b-16)/4]; if (INTunion1.sc[i%4] != INTunion2.sc[(i+b)%4]) err++; } if (err) printf("Function vec_sld [type float] ===> Error\n"); else printf("Function vec_sld [type float] ===> OK\n"); #endif /* Function vec_sll */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_sll( Ccons1, UCcons2 ); Caux2.v = Ccons1; UCaux1.v = UCcons2; b = UCaux1.e[15] & 0x7; for( i=0; i< 15; i++ ) if ((UCaux1.e[i] & 0x7)!=b) err++; if (err) { printf("The three low-order bits of all byte elements in b must be the same\n"); printf("otherwise the value into d is undefined\n"); } else { for( i=0; i< 16; i++ ) { UCvec1 = (unsigned char *)(&Caux2.e[i]); Caux = UCvec1[0]<>(8-b)); if (Caux != Caux1.e[i]) err++; } if (err) printf("Function vec_sll [type char] ===> Error\n"); else printf("Function vec_sll [type char] ===> OK\n"); } UCaux1.v = vec_sll( UCcons1, UCcons2 ); UCaux2.v = UCcons1; UCaux3.v = UCcons2; b = UCaux3.e[15] & 0x7; for( i=0; i< 15; i++ ) if ((UCaux3.e[i] & 0x7)!=b) err++; if (err) { printf("The three low-order bits of all byte elements in b must be the same\n"); printf("otherwise the value into d is undefined\n"); } else { for( i=0; i< 16; i++ ) { UCvec1 = (unsigned char *)(&UCaux2.e[i]); UCaux = UCvec1[0]<>(8-b)); if (UCaux != UCaux1.e[i]) err++; } if (err) printf("Function vec_sll [type unsigned char] ===> Error\n"); else printf("Function vec_sll [type unsigned char] ===> OK\n"); } err = 0; Saux1.v = vec_sll( Scons1, UCcons2 ); Saux2.v = Scons1; UCaux1.v = UCcons2; b = UCaux1.e[15] & 0x7; for( i=0; i< 15; i++ ) if ((UCaux1.e[i] & 0x7)!=b) err++; if (err) { printf("The three low-order bits of all byte elements in b must be the same\n"); printf("otherwise the value into d is undefined\n"); } else { for( i=0; i< 8; i++ ) { USvec1 = (unsigned short *)(&Saux2.e[i]); Saux = USvec1[0]<>(16-b)); if (Saux != Saux1.e[i]) err++; } if (err) printf("Function vec_sll [type short] ===> Error\n"); else printf("Function vec_sll [type short] ===> OK\n"); } USaux1.v = vec_sll( UScons1, UCcons2 ); USaux2.v = UScons1; UCaux1.v = UCcons2; b = UCaux1.e[15] & 0x7; for( i=0; i< 15; i++ ) if ((UCaux1.e[i] & 0x7)!=b) err++; if (err) { printf("The three low-order bits of all byte elements in b must be the same\n"); printf("otherwise the value into d is undefined\n"); } else { for( i=0; i< 8; i++ ) { USvec1 = (unsigned short *)(&USaux2.e[i]); USaux = USvec1[0]<>(16-b)); if (USaux != USaux1.e[i]) err++; } if (err) printf("Function vec_sll [type unsigned char] ===> Error\n"); else printf("Function vec_sll [type unsigned char] ===> OK\n"); } err = 0; Iaux1.v = vec_sll( Icons1, UCcons2 ); Iaux2.v = Icons1; UCaux1.v = UCcons2; b = UCaux1.e[15] & 0x7; for( i=0; i< 15; i++ ) if ((UCaux1.e[i] & 0x7)!=b) err++; if (err) { printf("The three low-order bits of all byte elements in b must be the same\n"); printf("otherwise the value into d is undefined\n"); } else { for( i=0; i< 4; i++ ) { UIvec1 = (unsigned int *)(&Iaux2.e[i]); Iaux = UIvec1[0]<>(32-b)); if (Iaux != Iaux1.e[i]) err++; } if (err) printf("Function vec_sll [type integer] ===> Error\n"); else printf("Function vec_sll [type integer] ===> OK\n"); } UIaux1.v = vec_sll( UIcons1, UCcons2 ); UIaux2.v = UIcons1; UCaux1.v = UCcons2; b = UCaux1.e[15] & 0x7; for( i=0; i< 15; i++ ) if ((UCaux1.e[i] & 0x7)!=b) err++; if (err) { printf("The three low-order bits of all byte elements in b must be the same\n"); printf("otherwise the value into d is undefined\n"); } else { for( i=0; i< 4; i++ ) { UIvec1 = (unsigned int *)(&UIaux2.e[i]); UIaux = UIvec1[0]<>(32-b)); if (UIaux != UIaux1.e[i]) err++; } if (err) printf("Function vec_sll [type unsigned int] ===> Error\n"); else printf("Function vec_sll [type unsigned int] ===> OK\n"); } /* Function vec_slo */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_slo( Ccons3, Ccons1 ); Caux2.v = Ccons3; Caux3.v = Ccons1; b = (Caux3.e[15] & 0x78) >> 3; for( i=0; i< 16; i++ ) { if ((i+b)<16) { if (Caux1.e[i] != Caux2.e[i+b]) err++; } else { if (Caux1.e[i] != 0) err++; } } if (err) printf("Function vec_slo [type char] ===> Error\n"); else printf("Function vec_slo [type char] ===> OK\n"); err = 0; UCaux1.v = vec_slo( UCcons3, UCcons1 ); UCaux2.v = UCcons3; UCaux3.v = UCcons1; b = (UCaux3.e[15] & 0x78) >> 3; for( i=0; i< 16; i++ ) { if ((i+b)<16) { if (UCaux1.e[i] != UCaux2.e[i+b]) err++; } else { if (UCaux1.e[i] != 0) err++; } } if (err) printf("Function vec_slo [type unsigned char] ===> Error\n"); else printf("Function vec_slo [type unsigned char] ===> OK\n"); err = 0; Saux1.v = vec_slo( Scons3, UCcons1 ); Saux2.v = Scons3; UCaux3.v = UCcons1; b = (UCaux3.e[15] & 0x78) >> 3; for( i=0; i< 16; i++ ) { SHOunion1.ss = Saux1.e[i/2]; if ((i+b)<16) SHOunion2.ss = Saux2.e[(i+b)/2]; else SHOunion2.ss = 0; if (SHOunion1.sc[i%2] != SHOunion2.sc[(i+b)%2]) err++; } if (err) printf("Function vec_slo [type short] ===> Error\n"); else printf("Function vec_slo [type short] ===> OK\n"); err = 0; USaux1.v = vec_slo( UScons3, UCcons1 ); USaux2.v = UScons3; UCaux3.v = UCcons1; b = (UCaux3.e[15] & 0x78) >> 3; for( i=0; i< 16; i++ ) { SHOunion1.us = USaux1.e[i/2]; if ((i+b)<16) SHOunion2.us = USaux2.e[(i+b)/2]; else SHOunion2.us = 0; if (SHOunion1.uc[i%2] != SHOunion2.uc[(i+b)%2]) err++; } if (err) printf("Function vec_slo [type unsigned short] ===> Error\n"); else printf("Function vec_slo [type unsigned short] ===> OK\n"); err = 0; Iaux1.v = vec_slo( Icons3, UCcons1 ); Iaux2.v = Icons3; UCaux3.v = UCcons1; b = (UCaux3.e[15] & 0x78) >> 3; for( i=0; i< 16; i++ ) { INTunion1.si = Iaux1.e[i/4]; if ((i+b)<16) INTunion2.si = Iaux2.e[(i+b)/4]; else INTunion2.si = 0; if (INTunion1.sc[i%4] != INTunion2.sc[(i+b)%4]) err++; } if (err) printf("Function vec_slo [type integer] ===> Error\n"); else printf("Function vec_slo [type integer] ===> OK\n"); err = 0; UIaux1.v = vec_slo( UIcons3, UCcons1 ); UIaux2.v = UIcons3; UCaux3.v = UCcons1; b = (UCaux3.e[15] & 0x78) >> 3; for( i=0; i< 16; i++ ) { INTunion1.ui = UIaux1.e[i/4]; if ((i+b)<16) INTunion2.ui = UIaux2.e[(i+b)/4]; else INTunion2.ui = 0; if (INTunion1.uc[i%4] != INTunion2.uc[(i+b)%4]) err++; } if (err) printf("Function vec_slo [type unsigned int] ===> Error\n"); else printf("Function vec_slo [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; Faux1.v = vec_slo( Fcons3, UCcons1 ); Faux2.v = Fcons3; UCaux3.v = UCcons1; b = (UCaux3.e[15] & 0x78) >> 3; for( i=0; i< 16; i++ ) { INTunion1.f = Faux1.e[i/4]; if ((i+b)<16) INTunion2.f = Faux2.e[(i+b)/4]; else INTunion2.si = 0; if (INTunion1.sc[i%4] != INTunion2.sc[(i+b)%4]) err++; } if (err) printf("Function vec_slo [type float] ===> Error\n"); else printf("Function vec_slo [type float] ===> OK\n"); #endif /* Function vec_splat */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; b = 3; Caux1.v = vec_splat( Ccons1, 3 ); Caux2.v = Ccons1; for( i=0; i< 16; i++ ) if (Caux1.e[i] != Caux2.e[b]) err++; if (err) printf("Function vec_splat [type char] ===> Error\n"); else printf("Function vec_splat [type char] ===> OK\n"); err = 0; b = 3; UCaux1.v = vec_splat( UCcons1, 3 ); UCaux2.v = UCcons1; for( i=0; i< 16; i++ ) if (UCaux1.e[i] != UCaux2.e[b]) err++; if (err) printf("Function vec_splat [type unsigned char] ===> Error\n"); else printf("Function vec_splat [type unsigned char] ===> OK\n"); err = 0; b = 3; Saux1.v = vec_splat( Scons1, 3 ); Saux2.v = Scons1; for( i=0; i< 8; i++ ) if (Saux1.e[i] != Saux2.e[b]) err++; if (err) printf("Function vec_splat [type short] ===> Error\n"); else printf("Function vec_splat [type short] ===> OK\n"); err = 0; b = 3; USaux1.v = vec_splat( UScons1, 3 ); USaux2.v = UScons1; for( i=0; i< 8; i++ ) if (USaux1.e[i] != USaux2.e[b]) err++; if (err) printf("Function vec_splat [type unsigned short] ===> Error\n"); else printf("Function vec_splat [type unsigned short] ===> OK\n"); err = 0; b = 3; Iaux1.v = vec_splat( Icons1, 3 ); Iaux2.v = Icons1; for( i=0; i< 4; i++ ) if (Iaux1.e[i] != Iaux2.e[b]) err++; if (err) printf("Function vec_splat [type integer] ===> Error\n"); else printf("Function vec_splat [type integer] ===> OK\n"); err = 0; b = 3; UIaux1.v = vec_splat( UIcons1, 3 ); UIaux2.v = UIcons1; for( i=0; i< 4; i++ ) if (UIaux1.e[i] != UIaux2.e[b]) err++; if (err) printf("Function vec_splat [type unsigned int] ===> Error\n"); else printf("Function vec_splat [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; b = 3; Faux1.v = vec_splat( Fcons1, 3 ); Faux2.v = Fcons1; for( i=0; i< 4; i++ ) if (Faux1.e[i] != Faux2.e[b]) err++; if (err) printf("Function vec_splat [type float] ===> Error\n"); else printf("Function vec_splat [type float] ===> OK\n"); #endif /* Function vec_splat_s8 */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux = 15; Caux1.v = vec_splat_s8( 15 ); for( i=0; i< 16; i++ ) if (Caux1.e[i] != Caux) err++; if (err) printf("Function vec_splat_s8 [type char] ===> Error\n"); else printf("Function vec_splat_s8 [type char] ===> OK\n"); /* Function vec_splat_s16 */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Saux = 15; Saux1.v = vec_splat_s16( 15 ); for( i=0; i< 8; i++ ) if (Saux1.e[i] != Saux) err++; if (err) printf("Function vec_splat_s16 [type short] ===> Error\n"); else printf("Function vec_splat_s16 [type short] ===> OK\n"); /* Function vec_splat_s32 */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Iaux = 15; Iaux1.v = vec_splat_s32( 15 ); for( i=0; i< 4; i++ ) if (Iaux1.e[i] != Iaux) err++; if (err) printf("Function vec_splat_s32 [type integer] ===> Error\n"); else printf("Function vec_splat_s32 [type integer] ===> OK\n"); /* Function vec_splat_u8 */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; UCaux = 15; UCaux1.v = vec_splat_u8( 15 ); for( i=0; i< 16; i++ ) if (UCaux1.e[i] != UCaux) err++; if (err) printf("Function vec_splat_u8 [type unsig. char] ===> Error\n"); else printf("Function vec_splat_u8 [type unsig. char] ===> OK\n"); /* Function vec_splat_u16 */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; USaux = 15; USaux1.v = vec_splat_u16( 15 ); for( i=0; i< 8; i++ ) if (USaux1.e[i] != Saux) err++; if (err) printf("Function vec_splat_u16 [type unsg. short] ===> Error\n"); else printf("Function vec_splat_u16 [type unsg. short] ===> OK\n"); /* Function vec_splat_u32 */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; UIaux = 15; UIaux1.v = vec_splat_u32( 15 ); for( i=0; i< 4; i++ ) if (UIaux1.e[i] != UIaux) err++; if (err) printf("Function vec_splat_u32 [type unsig. int] ===> Error\n"); else printf("Function vec_splat_u32 [type unsig. int] ===> OK\n"); /* Function vec_sr */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_sr( Ccons3, UCcons3 ); Caux2.v = Ccons3; UCaux3.v = UCcons3; for( i=0; i< 16; i++ ) { SHOunion1.sc[0] = Caux2.e[i]; SHOunion1.uc[0] = SHOunion1.uc[0] >> (UCaux3.e[i]%8); if (Caux1.e[i] != SHOunion1.sc[0]) err++; } if (err) printf("Function vec_sr [type char] ===> Error\n"); else printf("Function vec_sr [type char] ===> OK\n"); err = 0; UCaux1.v = vec_sr( UCcons1, UCcons3 ); UCaux2.v = UCcons1; UCaux3.v = UCcons3; for( i=0; i< 16; i++ ) { UCaux = UCaux2.e[i] >> (UCaux3.e[i]%8); if (UCaux1.e[i] != UCaux) err++; } if (err) printf("Function vec_sr [type unsigned char] ===> Error\n"); else printf("Function vec_sr [type unsigned char] ===> OK\n"); err = 0; Saux1.v = vec_sr( Scons3, UScons3 ); Saux2.v = Scons3; USaux3.v = UScons3; for( i=0; i< 8; i++ ) { SHOunion1.ss = Saux2.e[i]; SHOunion1.us = SHOunion1.us >> (USaux3.e[i]%16); if (Saux1.e[i] != SHOunion1.ss) err++; } if (err) printf("Function vec_sr [type short] ===> Error\n"); else printf("Function vec_sr [type short] ===> OK\n"); err = 0; USaux1.v = vec_sr( UScons1, UScons3 ); USaux2.v = UScons1; USaux3.v = UScons3; for( i=0; i< 8; i++ ) { USaux = USaux2.e[i] >> (USaux3.e[i]%16); if (USaux1.e[i] != USaux) err++; } if (err) printf("Function vec_sr [type unsigned short] ===> Error\n"); else printf("Function vec_sr [type unsigned short] ===> OK\n"); err = 0; Iaux1.v = vec_sr( Icons3, UIcons3 ); Iaux2.v = Icons3; UIaux3.v = UIcons3; for( i=0; i< 4; i++ ) { INTunion1.si = Iaux2.e[i]; INTunion1.ui = INTunion1.ui >> (UIaux3.e[i]%32); if (Iaux1.e[i] != INTunion1.si) err++; } if (err) printf("Function vec_sr [type integer] ===> Error\n"); else printf("Function vec_sr [type integer] ===> OK\n"); err = 0; UIaux1.v = vec_sr( UIcons1, UIcons3 ); UIaux2.v = UIcons1; UIaux3.v = UIcons3; for( i=0; i< 4; i++ ) { UIaux = UIaux2.e[i] >> (UIaux3.e[i]%32); if (UIaux1.e[i] != UIaux) err++; } if (err) printf("Function vec_sr [type unsigned int] ===> Error\n"); else printf("Function vec_sr [type unsigned int] ===> OK\n"); /* Function vec_sra */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_sra( Ccons3, UCcons3 ); Caux2.v = Ccons3; UCaux3.v = UCcons3; for( i=0; i< 16; i++ ) { Caux = Caux2.e[i] >> (UCaux3.e[i]%8); if (Caux1.e[i] != Caux) err++; } if (err) printf("Function vec_sra [type char] ===> Error\n"); else printf("Function vec_sra [type char] ===> OK\n"); err = 0; UCaux1.v = vec_sra( UCcons1, UCcons3 ); UCaux2.v = UCcons1; UCaux3.v = UCcons3; for( i=0; i< 16; i++ ) { INTunion1.uc[0] = UCaux2.e[i]; INTunion1.sc[0] = INTunion1.sc[0] >> (UCaux3.e[i]%8); if (UCaux1.e[i] != INTunion1.uc[0]) err++; } if (err) printf("Function vec_sra [type unsigned char] ===> Error\n"); else printf("Function vec_sra [type unsigned char] ===> OK\n"); err = 0; Saux1.v = vec_sra( Scons3, UScons3 ); Saux2.v = Scons3; USaux3.v = UScons3; for( i=0; i< 8; i++ ) { Saux = Saux2.e[i] >> (USaux3.e[i]%16); if (Saux1.e[i] != Saux) err++; } if (err) printf("Function vec_sra [type short] ===> Error\n"); else printf("Function vec_sra [type short] ===> OK\n"); err = 0; USaux1.v = vec_sra( UScons1, UScons3 ); USaux2.v = UScons1; USaux3.v = UScons3; for( i=0; i< 8; i++ ) { INTunion1.us[0] = USaux2.e[i]; INTunion1.ss[0] = INTunion1.ss[0] >> (USaux3.e[i]%16); if (USaux1.e[i] != INTunion1.us[0]) err++; } if (err) printf("Function vec_sra [type unsigned short] ===> Error\n"); else printf("Function vec_sra [type unsigned short] ===> OK\n"); err = 0; Iaux1.v = vec_sra( Icons3, UIcons3 ); Iaux2.v = Icons3; UIaux3.v = UIcons3; for( i=0; i< 4; i++ ) { Iaux = Iaux2.e[i] >> (UIaux3.e[i]%32); if (Iaux1.e[i] != Iaux) err++; } if (err) printf("Function vec_sra [type integer] ===> Error\n"); else printf("Function vec_sra [type integer] ===> OK\n"); err = 0; UIaux1.v = vec_sra( UIcons1, UIcons3 ); UIaux2.v = UIcons1; UIaux3.v = UIcons3; for( i=0; i< 4; i++ ) { INTunion1.ui = UIaux2.e[i]; INTunion1.si = INTunion1.si >> (UIaux3.e[i]%32); if (UIaux1.e[i] != INTunion1.ui) err++; } if (err) printf("Function vec_sra [type unsigned int] ===> Error\n"); else printf("Function vec_sra [type unsigned int] ===> OK\n"); /* Function vec_srl */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_srl( Ccons1, UCcons2 ); Caux2.v = Ccons1; UCaux3.v = UCcons2; b = UCaux3.e[15] & 0x7; for( i=0; i< 15; i++ ) if ((UCaux3.e[i] & 0x7)!=b) err++; if (err) { printf("The three low-order bits of all byte elements in b must be the same\n"); printf("otherwise the value into d is undefined\n"); } else { Caux = 0; for( i=0; i< 16; i++ ) { INTunion1.sc[0] = Caux2.e[i]; Caux = Caux | (INTunion1.uc[0]>>b); if (Caux != Caux1.e[i]) err++; Caux = INTunion1.uc[0]<<(8-b); } if (err) printf("Function vec_srl [type char] ===> Error\n"); else printf("Function vec_srl [type char] ===> OK\n"); } err = 0; UCaux1.v = vec_srl( UCcons1, UCcons2 ); UCaux2.v = UCcons1; UCaux3.v = UCcons2; b = UCaux3.e[15] & 0x7; for( i=0; i< 15; i++ ) if ((UCaux3.e[i] & 0x7)!=b) err++; if (err) { printf("The three low-order bits of all byte elements in b must be the same\n"); printf("otherwise the value into d is undefined\n"); } else { UCaux = 0; for( i=0; i< 16; i++ ) { UCaux = UCaux | (UCaux2.e[i]>>b); if (UCaux != UCaux1.e[i]) err++; UCaux = UCaux2.e[i]<<(8-b); } if (err) printf("Function vec_srl [type unsigned char] ===> Error\n"); else printf("Function vec_srl [type unsigned char] ===> OK\n"); } err = 0; Saux1.v = vec_srl( Scons1, UCcons2 ); Saux2.v = Scons1; UCaux3.v = UCcons2; b = UCaux3.e[15] & 0x7; for( i=0; i< 15; i++ ) if ((UCaux3.e[i] & 0x7)!=b) err++; if (err) { printf("The three low-order bits of all byte elements in b must be the same\n"); printf("otherwise the value into d is undefined\n"); } else { Saux = 0; for( i=0; i< 8; i++ ) { INTunion1.ss[0] = Saux2.e[i]; Saux = Saux | (INTunion1.us[0]>>b); if (Saux != Saux1.e[i]) err++; Saux = INTunion1.us[0]<<(16-b); } if (err) printf("Function vec_srl [type short] ===> Error\n"); else printf("Function vec_srl [type short] ===> OK\n"); } err = 0; USaux1.v = vec_srl( UScons1, UCcons2 ); USaux2.v = UScons1; UCaux3.v = UCcons2; b = UCaux3.e[15] & 0x7; for( i=0; i< 15; i++ ) if ((UCaux3.e[i] & 0x7)!=b) err++; if (err) { printf("The three low-order bits of all byte elements in b must be the same\n"); printf("otherwise the value into d is undefined\n"); } else { USaux = 0; for( i=0; i< 8; i++ ) { USaux = USaux | (USaux2.e[i]>>b); if (USaux != USaux1.e[i]) err++; USaux = USaux2.e[i]<<(16-b); } if (err) printf("Function vec_srl [type unsigned short] ===> Error\n"); else printf("Function vec_srl [type unsigned short] ===> OK\n"); } err = 0; Iaux1.v = vec_srl( Icons1, UCcons2 ); Iaux2.v = Icons1; UCaux3.v = UCcons2; b = UCaux3.e[15] & 0x7; for( i=0; i< 15; i++ ) if ((UCaux3.e[i] & 0x7)!=b) err++; if (err) { printf("The three low-order bits of all byte elements in b must be the same\n"); printf("otherwise the value into d is undefined\n"); } else { Iaux = 0; for( i=0; i< 4; i++ ) { INTunion1.si = Iaux2.e[i]; Iaux = Iaux | (INTunion1.ui>>b); if (Iaux != Iaux1.e[i]) err++; Iaux = INTunion1.ui<<(32-b); } if (err) printf("Function vec_srl [type integer] ===> Error\n"); else printf("Function vec_srl [type integer] ===> OK\n"); } err = 0; UIaux1.v = vec_srl( UIcons1, UCcons2 ); UIaux2.v = UIcons1; UCaux3.v = UCcons2; b = UCaux3.e[15] & 0x7; for( i=0; i< 15; i++ ) if ((UCaux3.e[i] & 0x7)!=b) err++; if (err) { printf("The three low-order bits of all byte elements in b must be the same\n"); printf("otherwise the value into d is undefined\n"); } else { UIaux = 0; for( i=0; i< 4; i++ ) { UIaux = UIaux | (UIaux2.e[i]>>b); if (UIaux != UIaux1.e[i]) err++; UIaux = UIaux2.e[i]<<(32-b); } if (err) printf("Function vec_srl [type unsigned int] ===> Error\n"); else printf("Function vec_srl [type unsigned int] ===> OK\n"); } /* Function vec_sro */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_sro( Ccons3, Ccons1 ); Caux2.v = Ccons3; Caux3.v = Ccons1; b = (Caux3.e[15] & 0x78) >>3; for( i=0; i< 16; i++ ) { if ((i-b)>=0) { if (Caux1.e[i] != Caux2.e[i-b]) err++; } else { if (Caux1.e[i] != 0) err++; } } if (err) printf("Function vec_sro [type char] ===> Error\n"); else printf("Function vec_sro [type char] ===> OK\n"); err = 0; UCaux1.v = vec_sro( UCcons3, UCcons1 ); UCaux2.v = UCcons3; UCaux3.v = UCcons1; b = (UCaux3.e[15] & 0x78) >>3; for( i=0; i< 16; i++ ) { if ((i-b)>=0) { if (UCaux1.e[i] != UCaux2.e[i-b]) err++; } else { if (UCaux1.e[i] != 0) err++; } } if (err) printf("Function vec_sro [type unsigned char] ===> Error\n"); else printf("Function vec_sro [type unsigned char] ===> OK\n"); err = 0; Saux1.v = vec_sro( Scons3, Ccons1 ); Saux2.v = Scons3; Caux3.v = Ccons1; b = (Caux3.e[15] & 0x78) >>3; for( i=0; i< 16; i++ ) { SHOunion1.ss = Saux1.e[i/2]; if ((i-b)>=0) { SHOunion2.ss = Saux2.e[(i-b)/2]; if (SHOunion1.sc[i%2] != SHOunion2.sc[(i-b)%2]) err++; } else { if (SHOunion1.sc[i%2] != 0) err++; } } if (err) printf("Function vec_sro [type short] ===> Error\n"); else printf("Function vec_sro [type short] ===> OK\n"); err = 0; USaux1.v = vec_sro( UScons3, UCcons1 ); USaux2.v = UScons3; UCaux3.v = UCcons1; b = (UCaux3.e[15] & 0x78) >>3; for( i=0; i< 16; i++ ) { SHOunion1.us = USaux1.e[i/2]; if ((i-b)>=0) { SHOunion2.us = USaux2.e[(i-b)/2]; if (SHOunion1.uc[i%2] != SHOunion2.uc[(i-b)%2]) err++; } else { if (SHOunion1.uc[i%2] != 0) err++; } } if (err) printf("Function vec_sro [type unsigned short] ===> Error\n"); else printf("Function vec_sro [type unsigned short] ===> OK\n"); err = 0; Iaux1.v = vec_sro( Icons3, Ccons1 ); Iaux2.v = Icons3; Caux3.v = Ccons1; b = (Caux3.e[15] & 0x78) >>3; for( i=0; i< 16; i++ ) { INTunion1.si = Iaux1.e[i/4]; if ((i-b)>=0) { INTunion2.si = Iaux2.e[(i-b)/4]; if (INTunion1.sc[i%4] != INTunion2.sc[(i-b)%4]) err++; } else { if (INTunion1.sc[i%4] != 0) err++; } } if (err) printf("Function vec_sro [type integer] ===> Error\n"); else printf("Function vec_sro [type integer] ===> OK\n"); err = 0; UIaux1.v = vec_sro( UIcons3, UCcons1 ); UIaux2.v = UIcons3; UCaux3.v = UCcons1; b = (UCaux3.e[15] & 0x78) >>3; for( i=0; i< 16; i++ ) { INTunion1.ui = UIaux1.e[i/4]; if ((i-b)>=0) { INTunion2.ui = UIaux2.e[(i-b)/4]; if (INTunion1.uc[i%4] != INTunion2.sc[(i-b)%4]) err++; } else { if (INTunion1.uc[i%4] != 0) err++; } } if (err) printf("Function vec_sro [type unsigned int] ===> Error\n"); else printf("Function vec_sro [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; Faux1.v = vec_sro( Fcons3, Ccons1 ); Faux2.v = Fcons3; Caux3.v = Ccons1; b = (Caux3.e[15] & 0x78) >>3; for( i=0; i< 16; i++ ) { INTunion1.f = Faux1.e[i/4]; if ((i-b)>=0) { INTunion2.f = Faux2.e[(i-b)/4]; if (INTunion1.sc[i%4] != INTunion2.sc[(i-b)%4]) err++; } else { if (INTunion1.sc[i%4] != 0) err++; } } if (err) printf("Function vec_sro [type float] ===> Error\n"); else printf("Function vec_sro [type float] ===> OK\n"); #endif /* Function vec_st */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; UCaux1.v = UCcons1; vec_st( UCaux1.v, 0, UCmem ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (UCaux1.e[i]==UCmem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_st [type unsigned char] ===> Error\n"); else printf("Function vec_st [type unsigned char] ===> OK\n"); err = 0; Caux1.v = Ccons1; vec_st( Caux1.v, 0, Cmem ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (Caux1.e[i]==Cmem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_st [type char] ===> Error\n"); else printf("Function vec_st [type char] ===> OK\n"); err = 0; USaux1.v = UScons3; vec_st( USaux1.v, 0, USmem ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (USaux1.e[i]==USmem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_st [type unsigned short] ===> Error\n"); else printf("Function vec_st [type unsigned short] ===> OK\n"); err = 0; Saux1.v = Scons1; vec_st( Saux1.v, 0, Smem ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (Saux1.e[i]==Smem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_st [type short] ===> Error\n"); else printf("Function vec_st [type short] ===> OK\n"); err = 0; UIaux1.v = UIcons1; vec_st( UIaux1.v, 0, UImem ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (UIaux1.e[i]==UImem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_st [type unsigned int] ===> Error\n"); else printf("Function vec_st [type unsigned int] ===> OK\n"); err = 0; Iaux1.v = Icons1; vec_st( Iaux1.v, 0, Imem ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Iaux1.e[i]==Imem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_st [type int] ===> Error\n"); else printf("Function vec_st [type int] ===> OK\n"); #if defined TEST_FLOATS err = 0; Faux1.v = Fcons1; vec_st( Faux1.v, 0, Fmem ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Faux1.e[i]==Fmem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_st [type float] ===> Error\n"); else printf("Function vec_st [type float] ===> OK\n"); #endif /* Function vec_ste */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; b = 11; UCaux1.v = UCcons1; vec_ste( UCaux1.v, b, UCmem ); i = b; if (UCaux1.e[i]!=UCmem[i]) err++; if (err) printf("Function vec_ste [type unsigned char] ===> Error\n"); else printf("Function vec_ste [type unsigned char] ===> OK\n"); err = 0; b = 11; Caux1.v = Ccons1; vec_ste( Caux1.v, b, Cmem ); i = b; if (Caux1.e[i]!=Cmem[i]) err++; if (err) printf("Function vec_ste [type char] ===> Error\n"); else printf("Function vec_ste [type char] ===> OK\n"); err = 0; b = 11; USaux1.v = UScons1; vec_ste( USaux1.v, b, USmem ); i = b/2; if (USaux1.e[i]!=USmem[i]) err++; if (err) printf("Function vec_ste [type unsigned short] ===> Error\n"); else printf("Function vec_ste [type unsigned short] ===> OK\n"); err = 0; b = 11; Saux1.v = Scons1; vec_ste( Saux1.v, b, Smem ); i = b/2; if (Saux1.e[i]!=Smem[i]) err++; if (err) printf("Function vec_ste [type short] ===> Error\n"); else printf("Function vec_ste [type short] ===> OK\n"); err = 0; b = 11; UIaux1.v = UIcons1; vec_ste( UIaux1.v, b, UImem ); i = b/4; if (UIaux1.e[i]!=UImem[i]) err++; if (err) printf("Function vec_ste [type unsigned int] ===> Error\n"); else printf("Function vec_ste [type unsigned int] ===> OK\n"); err = 0; b = 11; Iaux1.v = Icons1; vec_ste( Iaux1.v, b, Imem ); i = b/4; if (Iaux1.e[i]!=Imem[i]) err++; if (err) printf("Function vec_ste [type int] ===> Error\n"); else printf("Function vec_ste [type int] ===> OK\n"); #if defined TEST_FLOATS err = 0; b = 11; Faux1.v = Fcons1; vec_ste( Faux1.v, b, Fmem ); i = b/4; if (Faux1.e[i]!=Fmem[i]) err++; if (err) printf("Function vec_ste [type float] ===> Error\n"); else printf("Function vec_ste [type float] ===> OK\n"); #endif #if 0 /* Function vec_stl */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; UCaux1.v = UCcons1; vec_stl( UCaux1.v, 0, UCmem ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (UCaux1.e[i]==UCmem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_stl [type unsigned char] ===> Error\n"); else printf("Function vec_stl [type unsigned char] ===> OK\n"); err = 0; Caux1.v = Ccons1; vec_stl( Caux1.v, 0, Cmem ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (Caux1.e[i]==Cmem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_stl [type char] ===> Error\n"); else printf("Function vec_stl [type char] ===> OK\n"); err = 0; USaux1.v = UScons3; vec_stl( USaux1.v, 0, USmem ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (USaux1.e[i]==USmem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_stl [type unsigned short] ===> Error\n"); else printf("Function vec_stl [type unsigned short] ===> OK\n"); err = 0; Saux1.v = Scons1; vec_stl( Saux1.v, 0, Smem ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (Saux1.e[i]==Smem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_stl [type short] ===> Error\n"); else printf("Function vec_stl [type short] ===> OK\n"); err = 0; UIaux1.v = UIcons1; vec_stl( UIaux1.v, 0, UImem ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (UIaux1.e[i]==UImem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_stl [type unsigned int] ===> Error\n"); else printf("Function vec_stl [type unsigned int] ===> OK\n"); err = 0; Iaux1.v = Icons1; vec_stl( Iaux1.v, 0, Imem ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Iaux1.e[i]==Imem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_stl [type int] ===> Error\n"); else printf("Function vec_stl [type int] ===> OK\n"); #if defined TEST_FLOATS err = 0; Faux1.v = Fcons1; vec_stl( Faux1.v, 0, Fmem ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Faux1.e[i]==Fmem[i]); } if (Iaux!=1) err++; if (err) printf("Function vec_stl [type float] ===> Error\n"); else printf("Function vec_stl [type float] ===> OK\n"); #endif #endif // #if 0 /* Free dynamic vector variables */ free_vec( UCmem ); free_vec( Cmem ); free_vec( USmem ); free_vec( Smem ); free_vec( UImem ); free_vec( Imem ); #if defined TEST_FLOATS free_vec( Fmem ); #endif return 0; } int part4( ) { TvecChar Caux1, Caux2, Caux3;//, Caux4; TvecUChar UCaux1, UCaux2, UCaux3;//, UCaux4; TvecShort Saux1, Saux2, Saux3;//, Saux4; TvecUShort USaux1, USaux2, USaux3;//, USaux4; TvecInt Iaux1, Iaux2, Iaux3;//, Iaux4; TvecUInt UIaux1, UIaux2, UIaux3;//, UIaux4; #if defined TEST_FLOATS TvecFloat Faux1, Faux2, Faux3;//, Faux4; #endif int i, err, j;//, b, bAux; // signed int Ivec1, Ivec2, Ivec3; // signed short *Svec1; // unsigned int *UIvec1; // unsigned short *USvec1; // unsigned char *UCvec1; #if defined TEST_FLOATS // float *Fvec1; #endif /* For saturated rutines */ long long int LLaux; #if defined TEST_FLOATS float Faux; #endif signed int Iaux;//, I1, I2; unsigned int UIaux;//, UI1, UI2; signed short Saux; unsigned short USaux; signed char Caux; unsigned char UCaux; /* union { float f; signed int si; unsigned int ui; signed short ss[2]; unsigned short us[2]; signed char sc[4]; unsigned char uc[4]; } INTunion1, INTunion2; union { signed short ss; unsigned short us; signed char sc[2]; unsigned char uc[2]; } SHOunion1, SHOunion2; */ #if defined (GCC_COMPILER) vector signed char Ccons1 = (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; vector signed char Ccons2 = (vector signed char){1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}; vector signed char Ccons3 = (vector signed char){-128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127}; vector unsigned char UCcons1 = (vector unsigned char){248, 249, 250, 251, 252, 253, 254, 255, 0, 1, 2, 3, 4, 5, 6, 7}; vector unsigned char UCcons2 = (vector unsigned char){2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2}; vector unsigned char UCcons3 = (vector unsigned char){1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8}; vector signed short Scons1 = (vector signed short){-4, -3, -2, -1, 0, 1, 2, 3}; vector signed short Scons2 = (vector signed short){-32768, 10000, 1, 1, 1, 1, -10000, -10000}; vector signed short Scons3 = (vector signed short){-32768, 32767, -32768, 32767, -32768, 32767, -32768, 32767}; vector unsigned short UScons1 = (vector unsigned short){65532, 65533, 65534, 65535, 0, 1, 2, 3}; vector unsigned short UScons2 = (vector unsigned short){1, 1, 1, 1, 1, 1, 1, 1}; vector unsigned short UScons3 = (vector unsigned short){1, 2, 3, 4, 1, 2, 3, 4}; vector signed int Icons1 = (vector signed int){-4, -1, 1, 4}; vector signed int Icons2 = (vector signed int){1, 1, 1, 1}; vector signed int Icons3 = (vector signed int){0x80000000, 0x7FFFFFFF, 0x80000000, 0x7FFFFFFF}; vector unsigned int UIcons1 = (vector unsigned int){0xFFFFFFFE, 0xFFFFFFFF, 0, 1}; vector unsigned int UIcons2 = (vector unsigned int){1, 1, 1, 1}; vector unsigned int UIcons3 = (vector unsigned int){1, 2, 1, 2}; #if defined TEST_FLOATS vector float Fcons1 = (vector float){-1.5, 1.0, 0.5, -3.999}; vector float Fcons2 = (vector float){1.0, 1.0, 1.0, 1.0}; vector float Fcons3 = (vector float){100000000000.0, 1.0, -1.0, -1234567890.0}; #endif #elif defined (MAC_COMPILER) || defined(XLC_COMPILER) vector signed char Ccons1 = (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); vector signed char Ccons2 = (vector signed char)(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1); vector signed char Ccons3 = (vector signed char)(-128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127); vector unsigned char UCcons1 = (vector unsigned char)(248, 249, 250, 251, 252, 253, 254, 255, 0, 1, 2, 3, 4, 5, 6, 7); vector unsigned char UCcons2 = (vector unsigned char)(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2); vector unsigned char UCcons3 = (vector unsigned char)(1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8); vector signed short Scons1 = (vector signed short)(-4, -3, -2, -1, 0, 1, 2, 3); vector signed short Scons2 = (vector signed short)(-32768, 10000, 1, 1, 1, 1, -10000, -10000); vector signed short Scons3 = (vector signed short)(-32768, 32767, -32768, 32767, -32768, 32767, -32768, 32767); vector unsigned short UScons1 = (vector unsigned short)(65532, 65533, 65534, 65535, 0, 1, 2, 3); vector unsigned short UScons2 = (vector unsigned short)(1, 1, 1, 1, 1, 1, 1, 1); vector unsigned short UScons3 = (vector unsigned short)(1, 2, 3, 4, 1, 2, 3, 4); vector signed int Icons1 = (vector signed int)(-4, -1, 1, 4); vector signed int Icons2 = (vector signed int)(1, 1, 1, 1); vector signed int Icons3 = (vector signed int)(0x80000000, 0x7FFFFFFF, 0x80000000, 0x7FFFFFFF); vector unsigned int UIcons1 = (vector unsigned int)(0xFFFFFFFE, 0xFFFFFFFF, 0, 1); vector unsigned int UIcons2 = (vector unsigned int)(1, 1, 1, 1); vector unsigned int UIcons3 = (vector unsigned int)(1, 2, 1, 2); #if defined TEST_FLOATS vector float Fcons1 = (vector float)(-1.5, 1.0, 0.5, -3.999); vector float Fcons2 = (vector float)(1.0, 1.0, 1.0, 1.0); vector float Fcons3 = (vector float)(100000000000.0, 1.0, -1.0, -1234567890.0); #endif #endif /* Function vec_sub */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_sub( Ccons1, Ccons2 ); Caux2.v = Ccons1; Caux3.v = Ccons2; for( i=0; i< 16; i++ ) { Caux = Caux2.e[i] - Caux3.e[i]; if (Caux1.e[i] != Caux) err++; } if (err) printf("Function vec_sub [type char] ===> Error\n"); else printf("Function vec_sub [type char] ===> OK\n"); err = 0; UCaux1.v = vec_sub( UCcons1, UCcons2 ); UCaux2.v = UCcons1; UCaux3.v = UCcons2; for( i=0; i< 16; i++ ) { UCaux = UCaux2.e[i] - UCaux3.e[i]; if (UCaux1.e[i] != UCaux) err++; } if (err) printf("Function vec_sub [type unsigned char] ===> Error\n"); else printf("Function vec_sub [type unsigned char] ===> OK\n"); err = 0; Saux1.v = vec_sub( Scons1, Scons2 ); Saux2.v = Scons1; Saux3.v = Scons2; for( i=0; i< 8; i++ ) { Saux = Saux2.e[i] - Saux3.e[i]; if (Saux1.e[i] != Saux) err++; } if (err) printf("Function vec_sub [type short] ===> Error\n"); else printf("Function vec_sub [type short] ===> OK\n"); err = 0; USaux1.v = vec_sub( UScons1, UScons2 ); USaux2.v = UScons1; USaux3.v = UScons2; for( i=0; i< 8; i++ ) { USaux = USaux2.e[i] - USaux3.e[i]; if (USaux1.e[i] != USaux) err++; } if (err) printf("Function vec_sub [type unsigned short] ===> Error\n"); else printf("Function vec_sub [type unsigned short] ===> OK\n"); err = 0; Iaux1.v = vec_sub( Icons1, Icons2 ); Iaux2.v = Icons1; Iaux3.v = Icons2; for( i=0; i< 4; i++ ) { Iaux = Iaux2.e[i] - Iaux3.e[i]; if (Iaux1.e[i] != Iaux) err++; } if (err) printf("Function vec_sub [type integer] ===> Error\n"); else printf("Function vec_sub [type integer] ===> OK\n"); err = 0; UIaux1.v = vec_sub( UIcons1, UIcons2 ); UIaux2.v = UIcons1; UIaux3.v = UIcons2; for( i=0; i< 4; i++ ) { UIaux = UIaux2.e[i] - UIaux3.e[i]; if (UIaux1.e[i] != UIaux) err++; } if (err) printf("Function vec_sub [type unsigned int] ===> Error\n"); else printf("Function vec_sub [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; Faux1.v = vec_sub( Fcons1, Fcons2 ); Faux2.v = Fcons1; Faux3.v = Fcons2; for( i=0; i< 4; i++ ) { Faux = Faux2.e[i] - Faux3.e[i]; if (Faux1.e[i] != Faux) err++; } if (err) printf("Function vec_sub [type float] ===> Error\n"); else printf("Function vec_sub [type float] ===> OK\n"); #endif /* Function vec_subc */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; UIaux1.v = vec_subc( UIcons2, UIcons3 ); UIaux2.v = UIcons2; UIaux3.v = UIcons3; for( i=0; i< 4; i++ ) { if (UIaux3.e[i]>UIaux2.e[i]) { if (UIaux1.e[i] != 0) err++; } else { if (UIaux1.e[i] != 1) err++; } } if (err) printf("Function vec_subc [type unsigned int] ===> Error\n"); else printf("Function vec_subc [type unsigned int] ===> OK\n"); /* Function vec_subs */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = vec_subs( Ccons1, Ccons3 ); Caux2.v = Ccons1; Caux3.v = Ccons3; for( i=0; i< 16; i++ ) { Caux = (signed char)Caux2.e[i]-Caux3.e[i]; if ((Caux2.e[i]>=0)&&(Caux3.e[i]<0)) { if (Caux< Caux2.e[i]) Caux=0x7F; } else if ((Caux2.e[i]<0)&&(Caux3.e[i]>0)) { if (Caux> Caux2.e[i]) Caux=0x80; } if (Caux1.e[i] != Caux) err++; } if (err) printf("Function vec_subs [type char] ===> Error\n"); else printf("Function vec_subs [type char] ===> OK\n"); err = 0; UCaux1.v = vec_subs( UCcons1, UCcons3 ); UCaux2.v = UCcons1; UCaux3.v = UCcons3; for( i=0; i< 16; i++ ) { UCaux = (unsigned char)(UCaux2.e[i]-UCaux3.e[i]); if (UCaux> UCaux2.e[i]) UCaux=0; if (UCaux1.e[i] != UCaux) err++; } if (err) printf("Function vec_subs [type unsigned char] ===> Error\n"); else printf("Function vec_subs [type unsigned char] ===> OK\n"); err = 0; Saux1.v = vec_subs( Scons1, Scons3 ); Saux2.v = Scons1; Saux3.v = Scons3; for( i=0; i< 8; i++ ) { Saux = (signed short)(Saux2.e[i] - Saux3.e[i]); if ((Saux2.e[i]>=0)&&(Saux3.e[i]<0)) { if (Saux< Saux2.e[i]) Saux=0x7FFF; } else if ((Saux2.e[i]<0)&&(Saux3.e[i]>0)) { if (Saux> Saux2.e[i]) Saux=0x8000; } if (Saux1.e[i] != Saux) err++; } if (err) printf("Function vec_subs [type short] ===> Error\n"); else printf("Function vec_subs [type short] ===> OK\n"); err = 0; USaux1.v = vec_subs( UScons1, UScons3 ); USaux2.v = UScons1; USaux3.v = UScons3; for( i=0; i< 8; i++ ) { USaux = (unsigned short)(USaux2.e[i] - USaux3.e[i]); if (USaux> USaux2.e[i]) USaux=0x0; if (USaux1.e[i] != USaux) err++; } if (err) printf("Function vec_subs [type unsigned short] ===> Error\n"); else printf("Function vec_subs [type unsigned short] ===> OK\n"); err = 0; Iaux1.v = vec_subs( Icons1, Icons3 ); Iaux2.v = Icons1; Iaux3.v = Icons3; for( i=0; i< 4; i++ ) { Iaux = (signed int)(Iaux2.e[i] - Iaux3.e[i]); if ((Iaux2.e[i]>=0)&&(Iaux3.e[i]<0)) { if (Iaux< Iaux2.e[i]) Iaux=0x7FFFFFFF; } else if ((Iaux2.e[i]<0)&&(Iaux3.e[i]>0)) { if (Iaux> Iaux2.e[i]) { printf("%d > %d\n", Iaux, Iaux2.e[i]); Iaux=0x80000000; } } if (Iaux1.e[i] != Iaux) err++; } if (err) printf("Function vec_subs [type integer] ===> Error\n"); else printf("Function vec_subs [type integer] ===> OK\n"); err = 0; UIaux1.v = vec_subs( UIcons1, UIcons3 ); UIaux2.v = UIcons1; UIaux3.v = UIcons3; for( i=0; i< 4; i++ ) { UIaux = (unsigned int)(UIaux2.e[i] - UIaux3.e[i]); if (UIaux> UIaux2.e[i]) UIaux=0x0; if (UIaux1.e[i] != UIaux) err++; } if (err) printf("Function vec_subs [type unsigned int] ===> Error\n"); else printf("Function vec_subs [type unsigned int] ===> OK\n"); /* Function vec_sum4s */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Iaux1.v = vec_sum4s( Ccons2, Icons2 ); Caux1.v = Ccons2; Iaux2.v = Icons2; for( i=0; i< 4; i++ ) { Iaux = Iaux2.e[i]; for( j=0; j< 4; j++ ) Iaux = Iaux + Caux1.e[4*i+j]; if (Iaux1.e[i] != Iaux) err++; } if (err) printf("Function vec_sum4s [type char] ===> Error\n"); else printf("Function vec_sum4s [type char] ===> OK\n"); err = 0; UIaux1.v = vec_sum4s( UCcons2, UIcons2 ); UCaux1.v = UCcons2; UIaux2.v = UIcons2; for( i=0; i< 4; i++ ) { UIaux = UIaux2.e[i]; for( j=0; j< 4; j++ ) UIaux = UIaux + UCaux1.e[4*i+j]; if (UIaux1.e[i] != UIaux) err++; } if (err) printf("Function vec_sum4s [type unsigned char] ===> Error\n"); else printf("Function vec_sum4s [type unsigned char] ===> OK\n"); err = 0; Iaux1.v = vec_sum4s( Scons2, Icons2 ); Saux1.v = Scons2; Iaux2.v = Icons2; for( i=0; i< 4; i++ ) { Iaux = Iaux2.e[i]; for( j=0; j< 2; j++ ) Iaux = Iaux + Saux1.e[2*i+j]; if (Iaux1.e[i] != Iaux) err++; } if (err) printf("Function vec_sum4s [type short] ===> Error\n"); else printf("Function vec_sum4s [type short] ===> OK\n"); /* Function vec_sum2s */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Iaux1.v = Icons1; Iaux2.v = Icons3; Iaux3.v = vec_sum2s( Iaux1.v, Iaux2.v ); for( i=0; i< 2; i++ ) { LLaux = (long long int) Iaux1.e[2*i] + Iaux1.e[(2*i)+1] + Iaux2.e[(2*i)+1]; if (LLaux > INT_MAX) { Iaux=0x7FFFFFFF; /* INT_MAX */ } else if (LLaux < INT_MIN) { Iaux=0x80000000; /* INT_MIN */ } else Iaux = (signed int) LLaux; if ((Iaux3.e[2*i] != 0) || (Iaux3.e[(2*i)+1] != Iaux)) err++; } if (err) printf("Function vec_sum2s [type integer] ===> Error\n"); else printf("Function vec_sum2s [type integer] ===> OK\n"); /* Function vec_sums */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; /* Not saturated test */ Iaux1.v = Icons1; Iaux2.v = Icons3; Iaux3.v = vec_sums( Iaux1.v, Iaux2.v ); LLaux = (long long int) Iaux1.e[0] + Iaux1.e[1] + Iaux1.e[2] + Iaux1.e[3] + Iaux2.e[3]; if (LLaux > INT_MAX) { Iaux=0x7FFFFFFF; /* INT_MAX */ } else if (LLaux < INT_MIN) { Iaux=0x80000000; /* INT_MIN */ } else Iaux = (signed int) LLaux; if ((Iaux3.e[0] != 0) || (Iaux3.e[1] != 0) || (Iaux3.e[2] != 0) || (Iaux3.e[3] != Iaux)) err++; /* Saturated test */ Iaux1.v = Icons2; Iaux2.v = Icons3; Iaux3.v = vec_sums( Iaux1.v, Iaux2.v ); LLaux = (long long int) Iaux1.e[0] + Iaux1.e[1] + Iaux1.e[2] + Iaux1.e[3] + Iaux2.e[3]; if (LLaux > INT_MAX) { Iaux=0x7FFFFFFF; /* INT_MAX */ } else if (LLaux < INT_MIN) { Iaux=0x80000000; /* INT_MIN */ } else Iaux = (signed int) LLaux; if ((Iaux3.e[0] != 0) || (Iaux3.e[1] != 0) || (Iaux3.e[2] != 0) || (Iaux3.e[3] != Iaux)) err++; if (err) printf("Function vec_sums [type integer] ===> Error\n"); else printf("Function vec_sums [type integer] ===> OK\n"); #if defined TEST_FLOATS /* Function vec_trunc */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Faux1.v = Fcons1; Faux2.v = vec_trunc( Faux1.v ); for( i=0; i< 4; i++ ) { Faux = truncf(Faux1.e[i]); if (Faux2.e[i] != Faux) err++; } if (err) printf("Function vec_trunc [type float] ===> Error\n"); else printf("Function vec_trunc [type float] ===> OK\n"); #endif /* Function vec_unpackh */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = Ccons1; Saux1.v = vec_unpackh( Caux1.v ); for ( i=0; i< 8; i++ ) { Saux = (signed short)Caux1.e[i]; if (Saux1.e[i] != Saux) err++; } if (err) printf("Function vec_unpackh [type short-char] ===> Error\n"); else printf("Function vec_unpackh [type short-char] ===> OK\n"); err = 0; Saux1.v = Scons3; Iaux1.v = vec_unpackh( Saux1.v ); for ( i=0; i< 4; i++ ) { Iaux = (signed int)Saux1.e[i]; if (Iaux1.e[i] != Iaux) err++; } if (err) printf("Function vec_unpackh [type int-short] ===> Error\n"); else printf("Function vec_unpackh [type int-short] ===> OK\n"); /* Function vec_unpackl */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v = Ccons3; Saux1.v = vec_unpackl( Caux1.v ); for ( i=0; i< 8; i++ ) { Saux = (signed short)Caux1.e[i+8]; if (Saux1.e[i] != Saux) err++; } if (err) printf("Function vec_unpackl [type short-char] ===> Error\n"); else printf("Function vec_unpackl [type short-char] ===> OK\n"); err = 0; Saux1.v = Scons1; Iaux1.v = vec_unpackl( Saux1.v ); for ( i=0; i< 4; i++ ) { Iaux = (signed int)Saux1.e[i+4]; if (Iaux1.e[i] != Iaux) err++; } if (err) printf("Function vec_unpackl [type int-short] ===> Error\n"); else printf("Function vec_unpackl [type int-short] ===> OK\n"); /* Function vec_xor */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; UCaux1.v = UCcons1; UCaux2.v = UCcons3; UCaux3.v = vec_xor( UCaux1.v, UCaux2.v ); for( i=0; i< 16; i++ ) { UCaux = UCaux1.e[i] ^ UCaux2.e[i]; if (UCaux3.e[i] != UCaux) err++; } if (err) printf("Function vec_xor [type unsigned char] ===> Error\n"); else printf("Function vec_xor [type unsigned char] ===> OK\n"); err = 0; Caux1.v = Ccons1; Caux2.v = Ccons3; Caux3.v = vec_xor( Caux1.v, Caux2.v ); for( i=0; i< 16; i++ ) { Caux = Caux1.e[i] ^ Caux2.e[i]; if (Caux3.e[i] != Caux) err++; } if (err) printf("Function vec_xor [type char] ===> Error\n"); else printf("Function vec_xor [type char] ===> OK\n"); err = 0; USaux1.v = UScons1; USaux2.v = UScons3; USaux3.v = vec_xor( USaux1.v, USaux2.v ); for( i=0; i< 8; i++ ) { USaux = USaux1.e[i] ^ USaux2.e[i]; if (USaux3.e[i] != USaux) err++; } if (err) printf("Function vec_xor [type unsigned short] ===> Error\n"); else printf("Function vec_xor [type unsigned short] ===> OK\n"); err = 0; Saux1.v = Scons1; Saux2.v = Scons3; Saux3.v = vec_xor( Saux1.v, Saux2.v ); for( i=0; i< 8; i++ ) { Saux = Saux1.e[i] ^ Saux2.e[i]; if (Saux3.e[i] != Saux) err++; } if (err) printf("Function vec_xor [type short] ===> Error\n"); else printf("Function vec_xor [type short] ===> OK\n"); err = 0; UIaux1.v = UIcons1; UIaux2.v = UIcons3; UIaux3.v = vec_xor( UIaux1.v, UIaux2.v ); for( i=0; i< 4; i++ ) { UIaux = UIaux1.e[i] ^ UIaux2.e[i]; if (UIaux3.e[i] != UIaux) err++; } if (err) printf("Function vec_xor [type unsigned int] ===> Error\n"); else printf("Function vec_xor [type unsigned int] ===> OK\n"); err = 0; Iaux1.v = Icons1; Iaux2.v = Icons3; Iaux3.v = vec_xor( Iaux1.v, Iaux2.v ); for( i=0; i< 4; i++ ) { Iaux = Iaux1.e[i] ^ Iaux2.e[i]; if (Iaux3.e[i] != Iaux) err++; } if (err) printf("Function vec_xor [type int] ===> Error\n"); else printf("Function vec_xor [type int] ===> OK\n"); #if defined TEST_FLOATS err = 0; Faux1.v = Fcons1; Faux2.v = Fcons3; Faux3.v = vec_xor( Faux1.v, Faux2.v ); for( i=0; i< 4; i++ ) { Iaux = Faux1.i[i] ^ Faux2.i[i]; if (Faux3.i[i] != Iaux) err++; } if (err) printf("Function vec_xor [type float] ===> Error\n"); else printf("Function vec_xor [type float] ===> OK\n"); #endif return 0; } int part5() { TvecChar Caux1, Caux2;//, Caux3, Caux4; TvecUChar UCaux1, UCaux2;//, UCaux3, UCaux4; TvecShort Saux1, Saux2;//, Saux3, Saux4; TvecUShort USaux1, USaux2;//, USaux3, USaux4; TvecInt Iaux1, Iaux2;//, Iaux3, Iaux4; TvecUInt UIaux1, UIaux2;//, UIaux3, UIaux4; #if defined TEST_FLOATS TvecFloat Faux1, Faux2;//, Faux3, Faux4; #endif int i, err, /*j,*/ b, bAux; // signed int Ivec1, Ivec2, Ivec3; // signed short *Svec1; // unsigned int *UIvec1; // unsigned short *USvec1; // unsigned char *UCvec1; #if defined TEST_FLOATS // float *Fvec1; #endif /* For saturated rutines */ // long long int LLaux; #if defined TEST_FLOATS // float Faux; #endif signed int Iaux, I1;//, I2; // unsigned int UIaux, UI1, UI2; // signed short Saux; // unsigned short USaux; // signed char Caux; // unsigned char UCaux; /* union { float f; signed int si; unsigned int ui; signed short ss[2]; unsigned short us[2]; signed char sc[4]; unsigned char uc[4]; } INTunion1, INTunion2; union { signed short ss; unsigned short us; signed char sc[2]; unsigned char uc[2]; } SHOunion1, SHOunion2; */ #if defined (GCC_COMPILER) vector signed char Ccons1 = (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; vector signed char Ccons2 = (vector signed char){1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}; vector signed char Ccons3 = (vector signed char){-128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127}; vector unsigned char UCcons1 = (vector unsigned char){248, 249, 250, 251, 252, 253, 254, 255, 0, 1, 2, 3, 4, 5, 6, 7}; vector unsigned char UCcons2 = (vector unsigned char){2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2}; vector unsigned char UCcons3 = (vector unsigned char){1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8}; vector signed short Scons1 = (vector signed short){-4, -3, -2, -1, 0, 1, 2, 3}; vector signed short Scons2 = (vector signed short){-32768, 10000, 1, 1, 1, 1, -10000, -10000}; vector signed short Scons3 = (vector signed short){-32768, 32767, -32768, 32767, -32768, 32767, -32768, 32767}; vector unsigned short UScons1 = (vector unsigned short){65532, 65533, 65534, 65535, 0, 1, 2, 3}; vector unsigned short UScons2 = (vector unsigned short){1, 1, 1, 1, 1, 1, 1, 1}; vector unsigned short UScons3 = (vector unsigned short){1, 2, 3, 4, 1, 2, 3, 4}; vector signed int Icons1 = (vector signed int){-4, -1, 1, 4}; vector signed int Icons2 = (vector signed int){1, 1, 1, 1}; vector signed int Icons3 = (vector signed int){0x80000000, 0x7FFFFFFF, 0x80000000, 0x7FFFFFFF}; vector unsigned int UIcons1 = (vector unsigned int){0xFFFFFFFE, 0xFFFFFFFF, 0, 1}; vector unsigned int UIcons2 = (vector unsigned int){1, 1, 1, 1}; vector unsigned int UIcons3 = (vector unsigned int){1, 2, 1, 2}; #if defined TEST_FLOATS vector float Fcons1 = (vector float){-1.5, 1.0, 0.5, -3.999}; vector float Fcons2 = (vector float){1.0, 1.0, 1.0, 1.0}; vector float Fcons3 = (vector float){100000000000.0, 1.0, -1.0, -1234567890.0}; #endif #elif defined (MAC_COMPILER) || defined(XLC_COMPILER) vector signed char Ccons1 = (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); vector signed char Ccons2 = (vector signed char)(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1); vector signed char Ccons3 = (vector signed char)(-128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127, -128, 127); vector unsigned char UCcons1 = (vector unsigned char)(248, 249, 250, 251, 252, 253, 254, 255, 0, 1, 2, 3, 4, 5, 6, 7); vector unsigned char UCcons2 = (vector unsigned char)(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2); vector unsigned char UCcons3 = (vector unsigned char)(1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8); vector signed short Scons1 = (vector signed short)(-4, -3, -2, -1, 0, 1, 2, 3); vector signed short Scons2 = (vector signed short)(-32768, 10000, 1, 1, 1, 1, -10000, -10000); vector signed short Scons3 = (vector signed short)(-32768, 32767, -32768, 32767, -32768, 32767, -32768, 32767); vector unsigned short UScons1 = (vector unsigned short)(65532, 65533, 65534, 65535, 0, 1, 2, 3); vector unsigned short UScons2 = (vector unsigned short)(1, 1, 1, 1, 1, 1, 1, 1); vector unsigned short UScons3 = (vector unsigned short)(1, 2, 3, 4, 1, 2, 3, 4); vector signed int Icons1 = (vector signed int)(-4, -1, 1, 4); vector signed int Icons2 = (vector signed int)(1, 1, 1, 1); vector signed int Icons3 = (vector signed int)(0x80000000, 0x7FFFFFFF, 0x80000000, 0x7FFFFFFF); vector unsigned int UIcons1 = (vector unsigned int)(0xFFFFFFFE, 0xFFFFFFFF, 0, 1); vector unsigned int UIcons2 = (vector unsigned int)(1, 1, 1, 1); vector unsigned int UIcons3 = (vector unsigned int)(1, 2, 1, 2); #if defined TEST_FLOATS vector float Fcons1 = (vector float)(-1.5, 1.0, 0.5, -3.999); vector float Fcons2 = (vector float)(1.0, 1.0, 1.0, 1.0); vector float Fcons3 = (vector float)(100000000000.0, 1.0, -1.0, -1234567890.0); #endif #endif /* Function vec_all_eq */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; UCaux1.v = UCcons1; UCaux2.v = UCcons1; I1 = vec_all_eq( UCaux1.v, UCaux2.v ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (UCaux1.e[i]==UCaux2.e[i]); } if (I1 != Iaux) err++; UCaux1.v = UCcons2; UCaux2.v = UCcons3; I1 = vec_all_eq( UCaux1.v, UCaux2.v ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (UCaux1.e[i]==UCaux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_eq [type unsigned char] ===> Error\n"); else printf("Function vec_all_eq [type unsigned char] ===> OK\n"); err = 0; Caux1.v = Ccons1; Caux2.v = Ccons1; I1 = vec_all_eq( Caux1.v, Caux2.v ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (Caux1.e[i]==Caux2.e[i]); } if (I1 != Iaux) err++; Caux1.v = Ccons1; Caux2.v = Ccons2; I1 = vec_all_eq( Caux1.v, Caux2.v ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (Caux1.e[i]==Caux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_eq [type char] ===> Error\n"); else printf("Function vec_all_eq [type char] ===> OK\n"); err = 0; USaux1.v = UScons1; USaux2.v = UScons1; I1 = vec_all_eq( USaux1.v, USaux2.v ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (USaux1.e[i]==USaux2.e[i]); } if (I1 != Iaux) err++; USaux1.v = UScons2; USaux2.v = UScons3; I1 = vec_all_eq( USaux1.v, USaux2.v ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (USaux1.e[i]==USaux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_eq [type unsigned short] ===> Error\n"); else printf("Function vec_all_eq [type unsigned short] ===> OK\n"); err = 0; Saux1.v = Scons1; Saux2.v = Scons1; I1 = vec_all_eq( Saux1.v, Saux2.v ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (Saux1.e[i]==Saux2.e[i]); } if (I1 != Iaux) err++; Saux1.v = Scons2; Saux2.v = Scons3; I1 = vec_all_eq( Saux1.v, Saux2.v ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (Saux1.e[i]==Saux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_eq [type short] ===> Error\n"); else printf("Function vec_all_eq [type short] ===> OK\n"); err = 0; UIaux1.v = UIcons1; UIaux2.v = UIcons1; I1 = vec_all_eq( UIaux1.v, UIaux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (UIaux1.e[i]==UIaux2.e[i]); } if (I1 != Iaux) err++; UIaux1.v = UIcons2; UIaux2.v = UIcons3; I1 = vec_all_eq( UIaux1.v, UIaux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (UIaux1.e[i]==UIaux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_eq [type unsigned int] ===> Error\n"); else printf("Function vec_all_eq [type unsigned int] ===> OK\n"); err = 0; Iaux1.v = Icons1; Iaux2.v = Icons1; I1 = vec_all_eq( Iaux1.v, Iaux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Iaux1.e[i]==Iaux2.e[i]); } if (I1 != Iaux) err++; Iaux1.v = Icons1; Iaux2.v = Icons2; I1 = vec_all_eq( Iaux1.v, Iaux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Iaux1.e[i]==Iaux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_eq [type int] ===> Error\n"); else printf("Function vec_all_eq [type int] ===> OK\n"); #if defined TEST_FLOATS err = 0; Faux1.v = Fcons1; Faux2.v = Fcons1; I1 = vec_all_eq( Faux1.v, Faux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Faux1.e[i]==Faux2.e[i]); } if (I1 != Iaux) err++; Faux1.v = Fcons1; Faux2.v = Fcons2; I1 = vec_all_eq( Faux1.v, Faux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Faux1.e[i]==Faux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_eq [type float] ===> Error\n"); else printf("Function vec_all_eq [type float] ===> OK\n"); #endif /* Function vec_all_ge */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; UCaux1.v = UCcons2; UCaux2.v = UCcons2; I1 = vec_all_ge( UCaux1.v, UCaux2.v ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (UCaux1.e[i]>=UCaux2.e[i]); } if (I1 != Iaux) err++; UCaux1.v = UCcons2; UCaux2.v = UCcons3; I1 = vec_all_ge( UCaux1.v, UCaux2.v ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (UCaux1.e[i]>=UCaux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_ge [type unsigned char] ===> Error\n"); else printf("Function vec_all_ge [type unsigned char] ===> OK\n"); err = 0; Caux1.v = Ccons2; Caux2.v = Ccons2; I1 = vec_all_ge( Caux1.v, Caux2.v ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (Caux1.e[i]>=Caux2.e[i]); } if (I1 != Iaux) err++; Caux1.v = Ccons2; Caux2.v = Ccons3; I1 = vec_all_ge( Caux1.v, Caux2.v ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (Caux1.e[i]>=Caux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_ge [type char] ===> Error\n"); else printf("Function vec_all_ge [type char] ===> OK\n"); err = 0; USaux1.v = UScons3; USaux2.v = UScons2; I1 = vec_all_ge( USaux1.v, USaux2.v ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (USaux1.e[i]>=USaux2.e[i]); } if (I1 != Iaux) err++; USaux1.v = UScons1; USaux2.v = UScons2; I1 = vec_all_ge( USaux1.v, USaux2.v ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (USaux1.e[i]>=USaux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_ge [type unsigned short] ===> Error\n"); else printf("Function vec_all_ge [type unsigned short] ===> OK\n"); err = 0; Saux1.v = Scons1; Saux2.v = Scons1; I1 = vec_all_ge( Saux1.v, Saux2.v ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (Saux1.e[i]>=Saux2.e[i]); } if (I1 != Iaux) err++; Saux1.v = Scons2; Saux2.v = Scons3; I1 = vec_all_ge( Saux1.v, Saux2.v ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (Saux1.e[i]>=Saux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_ge [type short] ===> Error\n"); else printf("Function vec_all_ge [type short] ===> OK\n"); err = 0; UIaux1.v = UIcons3; UIaux2.v = UIcons2; I1 = vec_all_ge( UIaux1.v, UIaux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (UIaux1.e[i]>=UIaux2.e[i]); } if (I1 != Iaux) err++; UIaux1.v = UIcons1; UIaux2.v = UIcons2; I1 = vec_all_ge( UIaux1.v, UIaux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (UIaux1.e[i]>=UIaux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_ge [type unsigned int] ===> Error\n"); else printf("Function vec_all_ge [type unsigned int] ===> OK\n"); err = 0; Iaux1.v = Icons2; Iaux2.v = Icons2; I1 = vec_all_ge( Iaux1.v, Iaux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Iaux1.e[i]>=Iaux2.e[i]); } if (I1 != Iaux) err++; Iaux1.v = Icons2; Iaux2.v = Icons1; I1 = vec_all_ge( Iaux1.v, Iaux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Iaux1.e[i]>=Iaux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_ge [type int] ===> Error\n"); else printf("Function vec_all_ge [type int] ===> OK\n"); #if defined TEST_FLOATS err = 0; Faux1.v = Fcons2; Faux2.v = Fcons1; I1 = vec_all_ge( Faux1.v, Faux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Faux1.e[i]>=Faux2.e[i]); } if (I1 != Iaux) err++; Faux1.v = Fcons2; Faux2.v = Fcons3; I1 = vec_all_ge( Faux1.v, Faux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Faux1.e[i]>=Faux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_ge [type float] ===> Error\n"); else printf("Function vec_all_ge [type float] ===> OK\n"); #endif /* Function vec_all_gt */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; # if defined (GCC_COMPILER) UCaux1.v = (vector unsigned char){248, 249, 250, 251, 252, 253, 254, 255, 2, 3, 4, 5, 6, 7, 8, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UCaux1.v = (vector unsigned char)(248, 249, 250, 251, 252, 253, 254, 255, 2, 3, 4, 5, 6, 7, 8, 9); # endif UCaux2.v = UCcons2; I1 = vec_all_gt( UCaux1.v, UCaux2.v ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (UCaux1.e[i]>UCaux2.e[i]); } if (I1 != Iaux) err++; UCaux1.v = UCcons2; UCaux2.v = UCcons3; I1 = vec_all_gt( UCaux1.v, UCaux2.v ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (UCaux1.e[i]>UCaux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_gt [type unsigned char] ===> Error\n"); else printf("Function vec_all_gt [type unsigned char] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) Caux1.v = (vector signed char){9, 8, 7, 6, 5, 4, 3, 2, 3, 4, 5, 6, 7, 8, 9, 10}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Caux1.v = (vector signed char)(9, 8, 7, 6, 5, 4, 3, 2, 3, 4, 5, 6, 7, 8, 9, 10); # endif Caux2.v = Ccons2; I1 = vec_all_gt( Caux1.v, Caux2.v ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (Caux1.e[i]>Caux2.e[i]); } if (I1 != Iaux) err++; Caux1.v = Ccons2; Caux2.v = Ccons3; I1 = vec_all_gt( Caux1.v, Caux2.v ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (Caux1.e[i]>Caux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_gt [type char] ===> Error\n"); else printf("Function vec_all_gt [type char] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) USaux1.v = (vector unsigned short){65532, 65533, 65534, 65535, 2, 3, 4, 5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) USaux1.v = (vector unsigned short)(65532, 65533, 65534, 65535, 2, 3, 4, 5); # endif USaux2.v = UScons2; I1 = vec_all_gt( USaux1.v, USaux2.v ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (USaux1.e[i]>USaux2.e[i]); } if (I1 != Iaux) err++; USaux1.v = UScons1; USaux2.v = UScons2; I1 = vec_all_gt( USaux1.v, USaux2.v ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (USaux1.e[i]>USaux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_gt [type unsigned short] ===> Error\n"); else printf("Function vec_all_gt [type unsigned short] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) Saux1.v = (vector signed short){4, 3, 2, 1, 2, 3, 4, 5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Saux1.v = (vector signed short)(4, 3, 2, 1, 2, 3, 4, 5); # endif Saux2.v = Scons1; I1 = vec_all_gt( Saux1.v, Saux2.v ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (Saux1.e[i]>Saux2.e[i]); } if (I1 != Iaux) err++; Saux1.v = Scons2; Saux2.v = Scons3; I1 = vec_all_gt( Saux1.v, Saux2.v ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (Saux1.e[i]>Saux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_gt [type short] ===> Error\n"); else printf("Function vec_all_gt [type short] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) UIaux1.v = (vector unsigned int){3, 2, 3, 2}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UIaux1.v = (vector unsigned int)(3, 2, 3, 2); # endif UIaux2.v = UIcons2; I1 = vec_all_gt( UIaux1.v, UIaux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (UIaux1.e[i]>UIaux2.e[i]); } if (I1 != Iaux) err++; UIaux1.v = UIcons1; UIaux2.v = UIcons2; I1 = vec_all_gt( UIaux1.v, UIaux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (UIaux1.e[i]>UIaux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_gt [type unsigned int] ===> Error\n"); else printf("Function vec_all_gt [type unsigned int] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) Iaux1.v = (vector signed int){4, 10, 10, 4}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Iaux1.v = (vector signed int)(4, 10, 10, 4); # endif Iaux2.v = Icons2; I1 = vec_all_gt( Iaux1.v, Iaux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Iaux1.e[i]>Iaux2.e[i]); } if (I1 != Iaux) err++; Iaux1.v = Icons2; Iaux2.v = Icons1; I1 = vec_all_gt( Iaux1.v, Iaux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Iaux1.e[i]>Iaux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_gt [type int] ===> Error\n"); else printf("Function vec_all_gt [type int] ===> OK\n"); #if defined TEST_FLOATS err = 0; # if defined (GCC_COMPILER) Faux1.v = (vector float){100000000000.0, 12.0, 12.0, 1234567890.0}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float)(100000000000.0, 12.0, 12.0, 1234567890.0); # endif Faux2.v = Fcons1; I1 = vec_all_gt( Faux1.v, Faux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Faux1.e[i]>Faux2.e[i]); } if (I1 != Iaux) err++; Faux1.v = Fcons2; Faux2.v = Fcons3; I1 = vec_all_gt( Faux1.v, Faux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Faux1.e[i]>Faux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_gt [type float] ===> Error\n"); else printf("Function vec_all_gt [type float] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_all_in */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Faux1.v = Fcons1; Faux2.v = Fcons2; I1 = vec_all_in( Faux1.v, Faux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && ((Faux1.e[i]<=Faux2.e[i]) && (Faux1.e[i]>=-Faux2.e[i])); } if (I1 != Iaux) err++; Faux1.v = Fcons2; # if defined (GCC_COMPILER) Faux2.v = (vector float){100000000000.0, 1.0, 1.0, 1234567890.0}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux2.v = (vector float)(100000000000.0, 1.0, 1.0, 1234567890.0); # endif I1 = vec_all_in( Faux1.v, Faux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && ((Faux1.e[i]<=Faux2.e[i]) && (Faux1.e[i]>=-Faux2.e[i])); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_in [type float] ===> Error\n"); else printf("Function vec_all_in [type float] ===> OK\n"); #endif /* Function vec_all_le */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; UCaux1.v = UCcons2; UCaux2.v = UCcons3; I1 = vec_all_le( UCaux1.v, UCaux2.v ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (UCaux1.e[i]<=UCaux2.e[i]); } if (I1 != Iaux) err++; UCaux1.v = UCcons1; UCaux2.v = UCcons2; I1 = vec_all_le( UCaux1.v, UCaux2.v ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (UCaux1.e[i]<=UCaux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_le [type unsigned char] ===> Error\n"); else printf("Function vec_all_le [type unsigned char] ===> OK\n"); err = 0; Caux1.v = Ccons2; Caux2.v = Ccons2; I1 = vec_all_le( Caux1.v, Caux2.v ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (Caux1.e[i]<=Caux2.e[i]); } if (I1 != Iaux) err++; Caux1.v = Ccons2; Caux2.v = Ccons3; I1 = vec_all_le( Caux1.v, Caux2.v ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (Caux1.e[i]<=Caux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_le [type char] ===> Error\n"); else printf("Function vec_all_le [type char] ===> OK\n"); err = 0; USaux1.v = UScons2; USaux2.v = UScons3; I1 = vec_all_le( USaux1.v, USaux2.v ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (USaux1.e[i]<=USaux2.e[i]); } if (I1 != Iaux) err++; USaux1.v = UScons1; USaux2.v = UScons2; I1 = vec_all_le( USaux1.v, USaux2.v ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (USaux1.e[i]<=USaux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_le [type unsigned short] ===> Error\n"); else printf("Function vec_all_le [type unsigned short] ===> OK\n"); err = 0; Saux1.v = Scons1; Saux2.v = Scons1; I1 = vec_all_le( Saux1.v, Saux2.v ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (Saux1.e[i]<=Saux2.e[i]); } if (I1 != Iaux) err++; Saux1.v = Scons2; Saux2.v = Scons3; I1 = vec_all_le( Saux1.v, Saux2.v ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (Saux1.e[i]<=Saux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_le [type short] ===> Error\n"); else printf("Function vec_all_le [type short] ===> OK\n"); err = 0; UIaux1.v = UIcons2; UIaux2.v = UIcons3; I1 = vec_all_le( UIaux1.v, UIaux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (UIaux1.e[i]<=UIaux2.e[i]); } if (I1 != Iaux) err++; UIaux1.v = UIcons1; UIaux2.v = UIcons2; I1 = vec_all_le( UIaux1.v, UIaux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (UIaux1.e[i]<=UIaux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_le [type unsigned int] ===> Error\n"); else printf("Function vec_all_le [type unsigned int] ===> OK\n"); err = 0; Iaux1.v = Icons2; Iaux2.v = Icons2; I1 = vec_all_le( Iaux1.v, Iaux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Iaux1.e[i]<=Iaux2.e[i]); } if (I1 != Iaux) err++; Iaux1.v = Icons1; Iaux2.v = Icons2; I1 = vec_all_le( Iaux1.v, Iaux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Iaux1.e[i]<=Iaux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_le [type int] ===> Error\n"); else printf("Function vec_all_le [type int] ===> OK\n"); #if defined TEST_FLOATS err = 0; Faux1.v = Fcons1; Faux2.v = Fcons2; I1 = vec_all_le( Faux1.v, Faux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Faux1.e[i]<=Faux2.e[i]); } if (I1 != Iaux) err++; Faux1.v = Fcons2; Faux2.v = Fcons3; I1 = vec_all_le( Faux1.v, Faux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Faux1.e[i]<=Faux2.e[i]); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_le [type float] ===> Error\n"); else printf("Function vec_all_le [type float] ===> OK\n"); #endif /* Function vec_all_lt */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; UCaux1.v = UCcons2; # if defined (GCC_COMPILER) UCaux2.v = (vector unsigned char){248, 249, 250, 251, 252, 253, 254, 255, 2, 3, 4, 5, 6, 7, 8, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UCaux2.v = (vector unsigned char)(248, 249, 250, 251, 252, 253, 254, 255, 2, 3, 4, 5, 6, 7, 8, 9); # endif I1 = vec_all_lt( UCaux1.v, UCaux2.v ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (UCaux1.e[i] Error\n"); else printf("Function vec_all_lt [type unsigned char] ===> OK\n"); err = 0; Caux1.v = Ccons2; # if defined (GCC_COMPILER) Caux2.v = (vector signed char){9, 8, 7, 6, 5, 4, 3, 2, 3, 4, 5, 6, 7, 8, 9, 10}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Caux2.v = (vector signed char)(9, 8, 7, 6, 5, 4, 3, 2, 3, 4, 5, 6, 7, 8, 9, 10); # endif I1 = vec_all_lt( Caux1.v, Caux2.v ); Iaux = 1; for ( i=0; i< 16; i++ ) { Iaux = Iaux && (Caux1.e[i] Error\n"); else printf("Function vec_all_lt [type char] ===> OK\n"); err = 0; USaux1.v = UScons2; # if defined (GCC_COMPILER) USaux2.v = (vector unsigned short){65532, 65533, 65534, 65535, 2, 3, 4, 5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) USaux2.v = (vector unsigned short)(65532, 65533, 65534, 65535, 2, 3, 4, 5); # endif I1 = vec_all_lt( USaux1.v, USaux2.v ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (USaux1.e[i] Error\n"); else printf("Function vec_all_lt [type unsigned short] ===> OK\n"); err = 0; Saux1.v = Scons1; # if defined (GCC_COMPILER) Saux2.v = (vector signed short){4, 3, 2, 1, 2, 3, 4, 5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Saux2.v = (vector signed short)(4, 3, 2, 1, 2, 3, 4, 5); # endif I1 = vec_all_lt( Saux1.v, Saux2.v ); Iaux = 1; for ( i=0; i< 8; i++ ) { Iaux = Iaux && (Saux1.e[i] Error\n"); else printf("Function vec_all_lt [type short] ===> OK\n"); err = 0; UIaux1.v = UIcons2; # if defined (GCC_COMPILER) UIaux2.v = (vector unsigned int){3, 2, 3, 2}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UIaux2.v = (vector unsigned int)(3, 2, 3, 2); # endif I1 = vec_all_lt( UIaux1.v, UIaux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (UIaux1.e[i] Error\n"); else printf("Function vec_all_lt [type unsigned int] ===> OK\n"); err = 0; Iaux1.v = Icons2; # if defined (GCC_COMPILER) Iaux2.v = (vector signed int){4, 10, 10, 4}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Iaux2.v = (vector signed int)(4, 10, 10, 4); # endif I1 = vec_all_lt( Iaux1.v, Iaux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Iaux1.e[i] Error\n"); else printf("Function vec_all_lt [type int] ===> OK\n"); #if defined TEST_FLOATS err = 0; Faux1.v = Fcons1; # if defined (GCC_COMPILER) Faux2.v = (vector float){100000000000.0, 12.0, 12.0, 1234567890.0}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux2.v = (vector float)(100000000000.0, 12.0, 12.0, 1234567890.0); # endif I1 = vec_all_lt( Faux1.v, Faux2.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (Faux1.e[i] Error\n"); else printf("Function vec_all_lt [type float] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_all_nan */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; # if defined (GCC_COMPILER) Faux1.v = (vector float){NAN, NAN, NAN, NAN}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float)(NAN, NAN, NAN, NAN); # endif I1 = vec_all_nan( Faux1.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (isnan(Faux1.e[i])); } if (I1 != Iaux) err++; Faux1.v = Fcons1; I1 = vec_all_nan( Faux1.v ); Iaux = 1; for ( i=0; i< 4; i++ ) { Iaux = Iaux && (isnan(Faux1.e[i])); } if (I1 != Iaux) err++; if (err) printf("Function vec_all_nan [type float] ===> Error\n"); else printf("Function vec_all_nan [type float] ===> OK\n"); #endif /* Function vec_all_ne */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; # if defined (GCC_COMPILER) Caux1.v = (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; Caux2.v = (vector signed char){-7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, -8}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Caux1.v = (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); Caux2.v = (vector signed char)(-7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, -8); # endif b = vec_all_ne (Caux1.v, Caux2.v); bAux = 1; for (i=0; i<16; i++) bAux = bAux && (Caux1.e[i]!=Caux2.e[i]); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Caux1.v = (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; Caux2.v = (vector signed char){-7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 4, 6, 7, -8}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Caux1.v = (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); Caux2.v = (vector signed char)(-7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 4, 6, 7, -8); # endif b = vec_all_ne (Caux1.v, Caux2.v); bAux= 1; for (i=0; i<16; i++) bAux= bAux && (Caux1.e[i]!=Caux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Caux1.v = (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; Caux2.v = (vector signed char){-7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 4, 6, 7, -8}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Caux1.v = (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); Caux2.v = (vector signed char)(-7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 4, 6, 7, -8); # endif b = vec_all_ne (Caux1.v, Caux2.v); bAux = 1; for (i=0; i<16; i++) bAux = bAux && (Caux1.e[i] != Caux2.e[i]); if (bAux != b) err = 1; if (err) printf("Function vec_all_ne [type char] ===> Error\n"); else printf("Function vec_all_ne [type char] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) UCaux1.v = (vector unsigned char){200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17}; UCaux2.v = (vector unsigned char){201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17,200}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UCaux1.v = (vector unsigned char)(200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17); UCaux2.v = (vector unsigned char)(201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17,200); # endif b = vec_all_ne (UCaux1.v, UCaux2.v); bAux= 1; for (i=0; i<16; i++) bAux= bAux && (UCaux1.e[i]!=UCaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) UCaux1.v = (vector unsigned char){200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17}; UCaux2.v = (vector unsigned char){201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17,200}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UCaux1.v = (vector unsigned char)(200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17); UCaux2.v = (vector unsigned char)(201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17,200); # endif b = vec_all_ne (UCaux1.v, UCaux2.v); bAux = 1; for (i=0; i<16; i++) bAux = bAux && (UCaux1.e[i] != UCaux2.e[i]); if (bAux != b) err = 1; # if defined (GCC_COMPILER) UCaux1.v = (vector unsigned char){200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17}; UCaux2.v = (vector unsigned char){201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17,200}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UCaux1.v = (vector unsigned char)(200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17); UCaux2.v = (vector unsigned char)(201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17,200); # endif b = vec_all_ne (UCaux1.v, UCaux2.v); bAux = 1; for (i=0; i<16; i++) bAux = bAux && (UCaux1.e[i] != UCaux2.e[i]); if (bAux != b) err = 1; if (err) printf("Function vec_all_ne [type unsigned char] ===> Error\n"); else printf("Function vec_all_ne [type unsigned char] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) Saux1.v = (vector signed short){-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100}; Saux2.v = (vector signed short){-3700, -3600, -3500, 0, 3300, 3200, 3100,-3800}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Saux1.v = (vector signed short)(-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100); Saux2.v = (vector signed short)(-3700, -3600, -3500, 0, 3300, 3200, 3100,-3800); # endif b = vec_all_ne (Saux1.v, Saux2.v); bAux = 1; for (i=0; i<8; i++) bAux = bAux && (Saux1.e[i] != Saux2.e[i]); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Saux1.v = (vector signed short){-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100}; Saux2.v = (vector signed short){-3700, -3600, -3500, 0, 3300, 3200, 3100,-3800}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Saux1.v = (vector signed short)(-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100); Saux2.v = (vector signed short)(-3700, -3600, -3500, 0, 3300, 3200, 3100,-3800); # endif b = vec_all_ne (Saux1.v, Saux2.v); bAux = 1; for (i=0; i<8; i++) bAux = bAux && (Saux1.e[i] != Saux2.e[i]); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Saux1.v = (vector signed short){-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100}; Saux2.v = (vector signed short){-3700, -3600, -3500, 0, 3300, 3200, 3100,-3800}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Saux1.v = (vector signed short)(-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100); Saux2.v = (vector signed short)(-3700, -3600, -3500, 0, 3300, 3200, 3100,-3800); # endif b = vec_all_ne (Saux1.v, Saux2.v); bAux = 1; for (i=0; i<8; i++) bAux = bAux && (Saux1.e[i] != Saux2.e[i]); if (bAux != b) err = 1; if (err) printf("Function vec_all_ne [type short] ===> Error\n"); else printf("Function vec_all_ne [type short] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) USaux1.v = (vector unsigned short){48000, 47000, 46000, 45000, 0, 3300, 3200, 3100}; USaux2.v = (vector unsigned short){47000, 46000, 45000, 0, 3300, 3200, 3100,48000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) USaux1.v = (vector unsigned short)(48000, 47000, 46000, 45000, 0, 3300, 3200, 3100); USaux2.v = (vector unsigned short)(47000, 46000, 45000, 0, 3300, 3200, 3100,48000); # endif b = vec_all_ne (USaux1.v, USaux2.v); bAux = 1; for (i=0; i<8; i++) bAux = bAux && (USaux1.e[i] != USaux2.e[i]); if (bAux != b) err = 1; # if defined (GCC_COMPILER) USaux1.v = (vector unsigned short){48000, 47000, 46000, 45000, 0, 3300, 3200, 3100}; USaux2.v = (vector unsigned short){47000, 46000, 45000, 0, 3300, 3200, 3100,48000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) USaux1.v = (vector unsigned short)(48000, 47000, 46000, 45000, 0, 3300, 3200, 3100); USaux2.v = (vector unsigned short)(47000, 46000, 45000, 0, 3300, 3200, 3100,48000); # endif b = vec_all_ne (USaux1.v, USaux2.v); bAux = 1; for (i=0; i<8; i++) bAux = bAux && (USaux1.e[i] != USaux2.e[i]); if (bAux != b) err = 1; # if defined (GCC_COMPILER) USaux1.v = (vector unsigned short){48000, 47000, 46000, 45000, 0, 3300, 3200, 3100}; USaux2.v = (vector unsigned short){47000, 46000, 45000, 0, 3300, 3200, 3100,48000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) USaux1.v = (vector unsigned short)(48000, 47000, 46000, 45000, 0, 3300, 3200, 3100); USaux2.v = (vector unsigned short)(47000, 46000, 45000, 0, 3300, 3200, 3100,48000); # endif b = vec_all_ne (USaux1.v, USaux2.v); bAux = 1; for (i=0; i<8; i++) bAux = bAux && (USaux1.e[i] != USaux2.e[i]); if (bAux != b) err = 1; if (err) printf("Function vec_all_ne [type unsigned short] ===> Error\n"); else printf("Function vec_all_ne [type unsigned short] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) Iaux1.v = (vector signed int){-1003800, -1003700, 0, 1003300}; Iaux2.v = (vector signed int){-1003700, 0, 1003300,-1003800}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Iaux1.v = (vector signed int)(-1003800, -1003700, 0, 1003300); Iaux2.v = (vector signed int)(-1003700, 0, 1003300,-1003800); # endif b = vec_all_ne (Iaux1.v, Iaux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (Iaux1.e[i] != Iaux2.e[i]); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Iaux1.v = (vector signed int){-1003800, -1003700, 0, 1003300}; Iaux2.v = (vector signed int){-1003700, 0, 1003300,-1003800}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Iaux1.v = (vector signed int)(-1003800, -1003700, 0, 1003300); Iaux2.v = (vector signed int)(-1003700, 0, 1003300,-1003800); # endif b = vec_all_ne (Iaux1.v, Iaux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (Iaux1.e[i] != Iaux2.e[i]); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Iaux1.v= (vector signed int){-1003800, -1003700, 0, 1003300}; Iaux2.v= (vector signed int){-1003700, 0, 1003300,-1003800}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Iaux1.v= (vector signed int)(-1003800, -1003700, 0, 1003300); Iaux2.v= (vector signed int)(-1003700, 0, 1003300,-1003800); # endif b = vec_all_ne (Iaux1.v, Iaux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (Iaux1.e[i] != Iaux2.e[i]); if (bAux != b) err = 1; if (err) printf("Function vec_all_ne [type int] ===> Error\n"); else printf("Function vec_all_ne [type int] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) UIaux1.v = (vector unsigned int){0xFFFFF000, 12345678, 0, 1}; UIaux2.v = (vector unsigned int){ 12345678, 0, 1,0xFFFFF000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UIaux1.v = (vector unsigned int)(0xFFFFF000, 12345678, 0, 1); UIaux2.v = (vector unsigned int)( 12345678, 0, 1,0xFFFFF000); # endif b = vec_all_ne (UIaux1.v, UIaux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (UIaux1.e[i] != UIaux2.e[i]); if (bAux != b) err = 1; # if defined (GCC_COMPILER) UIaux1.v = (vector unsigned int){0xFFFFF000, 12345678, 0, 1}; UIaux2.v = (vector unsigned int){ 12345678, 0, 1,0xFFFFF000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UIaux1.v = (vector unsigned int)(0xFFFFF000, 12345678, 0, 1); UIaux2.v = (vector unsigned int)( 12345678, 0, 1,0xFFFFF000); # endif b = vec_all_ne (UIaux1.v, UIaux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (UIaux1.e[i] != UIaux2.e[i]); if (bAux != b) err = 1; # if defined (GCC_COMPILER) UIaux1.v = (vector unsigned int){0xFFFFF000, 12345678, 0, 1}; UIaux2.v = (vector unsigned int){ 12345678, 0, 1,0xFFFFF000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UIaux1.v = (vector unsigned int)(0xFFFFF000, 12345678, 0, 1); UIaux2.v = (vector unsigned int)( 12345678, 0, 1,0xFFFFF000); # endif b = vec_all_ne (UIaux1.v, UIaux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (UIaux1.e[i] != UIaux2.e[i]); if (bAux != b) err = 1; if (err) printf("Function vec_all_ne [type unsigned int] ===> Error\n"); else printf("Function vec_all_ne [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; # if defined (GCC_COMPILER) Faux1.v = (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v = (vector float) { 1.0, 0.5, -3.999, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v = (vector float) ( 1.0, 0.5, -3.999, -1.5); # endif b = vec_all_ne (Faux1.v, Faux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (Faux1.e[i] != Faux2.e[i]); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Faux1.v = (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v = (vector float) { 1.0, 0.5, -3.999, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v = (vector float) ( 1.0, 0.5, -3.999, -1.5); # endif b = vec_all_ne (Faux1.v, Faux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (Faux1.e[i] != Faux2.e[i]); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Faux1.v = (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v = (vector float) { 1.0, 0.5, -3.999, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v = (vector float) ( 1.0, 0.5, -3.999, -1.5); # endif b = vec_all_ne (Faux1.v, Faux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (Faux1.e[i] != Faux2.e[i]); if (bAux != b) err = 1; if (err) printf("Function vec_all_ne [type float] ===> Error\n"); else printf("Function vec_all_ne [type float] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_all_nge */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; # if defined (GCC_COMPILER) Faux1.v = (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v = (vector float) { 0.0, 3.5, 0.55, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v = (vector float) ( 0.0, 3.5, 0.55, -1.5); # endif b = vec_all_nge (Faux1.v, Faux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || (Faux1.e[i] < Faux2.e[i])); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Faux1.v = (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v = (vector float) { 0.0, 3.5, 0.55, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v = (vector float) ( 0.0, 3.5, 0.55, -1.5); # endif b = vec_all_nge (Faux1.v, Faux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || (Faux1.e[i] < Faux2.e[i])); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Faux1.v = (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v = (vector float) { 0.0, 3.5, 0.55, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v = (vector float) ( 0.0, 3.5, 0.55, -1.5); # endif b = vec_all_nge (Faux1.v, Faux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || (Faux1.e[i] < Faux2.e[i])); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Faux1.v = (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v = (vector float) { 0.0, 3.5, 0.55, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v = (vector float) ( 0.0, 3.5, 0.55, -1.5); # endif b = vec_all_nge (Faux1.v, Faux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || (Faux1.e[i] < Faux2.e[i])); if (bAux != b) err = 1; if (err) printf("Function vec_all_nge [type float] ===> Error\n"); else printf("Function vec_all_nge [type float] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_all_ngt */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; # if defined (GCC_COMPILER) Faux1.v = (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v = (vector float) { 0.0, 3.5, 0.55, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v = (vector float) ( 0.0, 3.5, 0.55, -1.5); # endif b = vec_all_ngt (Faux1.v, Faux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || !(Faux1.e[i] > Faux2.e[i])); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Faux1.v = (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v = (vector float) { 0.0, 3.5, 0.55, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v = (vector float) ( 0.0, 3.5, 0.55, -1.5); # endif b = vec_all_ngt (Faux1.v, Faux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || !(Faux1.e[i] > Faux2.e[i])); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Faux1.v = (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v = (vector float) { 0.0, 3.5, 0.55, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v = (vector float) ( 0.0, 3.5, 0.55, -1.5); # endif b = vec_all_ngt (Faux1.v, Faux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || !(Faux1.e[i] > Faux2.e[i])); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Faux1.v = (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v = (vector float) { 0.0, 3.5, 0.55, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v = (vector float) ( 0.0, 3.5, 0.55, -1.5); # endif b = vec_all_ngt (Faux1.v, Faux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || !(Faux1.e[i] > Faux2.e[i])); if (bAux != b) err = 1; if (err) printf("Function vec_all_ngt [type float] ===> Error\n"); else printf("Function vec_all_ngt [type float] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_all_nle */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; # if defined (GCC_COMPILER) Faux1.v = (vector float) { 0.0, 3.5, 0.55, -1.5}; Faux2.v = (vector float) {-1.5, 1.0, 0.5, -3.999}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) ( 0.0, 3.5, 0.55, -1.5); Faux2.v = (vector float) (-1.5, 1.0, 0.5, -3.999); # endif b = vec_all_nle (Faux1.v, Faux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || !(Faux1.e[i] <= Faux2.e[i])); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Faux1.v = (vector float) { 0.0, 3.5, 0.55, -1.5}; Faux2.v = (vector float) {-1.5, 1.0, 0.5, -3.999}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) ( 0.0, 3.5, 0.55, -1.5); Faux2.v = (vector float) (-1.5, 1.0, 0.5, -3.999); # endif b = vec_all_nle (Faux1.v, Faux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || !(Faux1.e[i] <= Faux2.e[i])); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Faux1.v = (vector float) { 0.0, 3.5, 0.55, -1.5}; Faux2.v = (vector float) {-1.5, 1.0, 0.5, -3.999}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) ( 0.0, 3.5, 0.55, -1.5); Faux2.v = (vector float) (-1.5, 1.0, 0.5, -3.999); # endif b = vec_all_nle (Faux1.v, Faux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || !(Faux1.e[i] <=Faux2.e[i])); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Faux1.v = (vector float) { 0.0, 3.5, 0.55, -1.5}; Faux2.v = (vector float) {-1.5, 1.0, NAN, -3.999}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) ( 0.0, 3.5, 0.55, -1.5); Faux2.v = (vector float) (-1.5, 1.0, NAN, -3.999); # endif b = vec_all_nle (Faux1.v, Faux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || !(Faux1.e[i] <= Faux2.e[i])); if (bAux != b) err = 1; if (err) printf("Function vec_all_nle [type float] ===> Error\n"); else printf("Function vec_all_nle [type float] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_all_nlt */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; # if defined (GCC_COMPILER) Faux1.v = (vector float) { 0.0, 3.5, 0.55, -1.5}; Faux2.v = (vector float) {-1.5, 1.0, 0.5, -3.999}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) ( 0.0, 3.5, 0.55, -1.5); Faux2.v = (vector float) (-1.5, 1.0, 0.5, -3.999); # endif b = vec_all_nlt (Faux1.v, Faux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || !(Faux1.e[i] < Faux2.e[i])); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Faux1.v = (vector float) { 0.0, 3.5, 0.55, -1.5}; Faux2.v = (vector float) {-1.5, 5.0, 0.5, -3.999}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) ( 0.0, 3.5, 0.55, -1.5); Faux2.v = (vector float) (-1.5, 5.0, 0.5, -3.999); # endif b = vec_all_nlt (Faux1.v, Faux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || !(Faux1.e[i] < Faux2.e[i])); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Faux1.v = (vector float) { 0.0, 3.5, 0.55, -1.5}; Faux2.v = (vector float) {-1.5, 1.0, 0.55, -3.999}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) ( 0.0, 3.5, 0.55, -1.5); Faux2.v = (vector float) (-1.5, 1.0, 0.55, -3.999); # endif b = vec_all_nlt (Faux1.v, Faux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || !(Faux1.e[i] < Faux2.e[i])); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Faux1.v = (vector float) { 0.0, 3.5, 0.55, -1.5}; Faux2.v = (vector float) {-1.5, 1.0, NAN, -3.999}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) ( 0.0, 3.5, 0.55, -1.5); Faux2.v = (vector float) (-1.5, 1.0, NAN, -3.999); # endif b = vec_all_nlt (Faux1.v, Faux2.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && (isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || !(Faux1.e[i] < Faux2.e[i])); if (bAux != b) err = 1; if (err) printf("Function vec_all_nlt [type float] ===> Error\n"); else printf("Function vec_all_nlt [type float] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_all_numeric */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; # if defined (GCC_COMPILER) Faux1.v = (vector float) {0.0, 3.5, 0.55, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) (0.0, 3.5, 0.55, -1.5); # endif b = vec_all_numeric (Faux1.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && !isnan(Faux1.e[i]); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Faux1.v = (vector float) {0.0, 3.5, 0.5, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) (0.0, 3.5, 0.5, -1.5); # endif b = vec_all_numeric (Faux1.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && !isnan(Faux1.e[i]); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Faux1.v = (vector float) {0.0, 3.5, NAN, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) (0.0, 3.5, NAN, -1.5); # endif b = vec_all_numeric (Faux1.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && !isnan(Faux1.e[i]); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Faux1.v = (vector float) {NAN, NAN, NAN, NAN}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) (NAN, NAN, NAN, NAN); # endif b = vec_all_numeric (Faux1.v); bAux = 1; for (i=0; i<4; i++) bAux = bAux && !isnan(Faux1.e[i]); if (bAux != b) err = 1; if (err) printf("Function vec_all_numeric [type float] ===> Error\n"); else printf("Function vec_all_numeric [type float] ===> OK\n"); #endif /* Function vec_any_eq */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Caux1.v= Ccons1; Caux2.v= Ccons3; b= vec_any_eq (Caux1.v, Caux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (Caux1.e[i]==Caux2.e[i]); if (bAux!=b) err= 1; Caux1.v= Ccons1; Caux2.v= Ccons2; b= vec_any_eq (Caux1.v, Caux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (Caux1.e[i]==Caux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_eq [type char] ===> Error\n"); else printf("Function vec_any_eq [type char] ===> OK\n"); err = 0; UCaux1.v= UCcons1; UCaux2.v= UCcons3; b= vec_any_eq (UCaux1.v, UCaux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (UCaux1.e[i]==UCaux2.e[i]); if (bAux!=b) err= 1; UCaux1.v= UCcons1; UCaux2.v= UCcons2; b= vec_any_eq (UCaux1.v, UCaux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (UCaux1.e[i]==UCaux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_eq [type unsigned char] ===> Error\n"); else printf("Function vec_any_eq [type unsigned char] ===> OK\n"); err = 0; Saux1.v= Scons1; Saux2.v= Scons3; b= vec_any_eq (Saux1.v, Saux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (Saux1.e[i]==Saux2.e[i]); if (bAux!=b) err= 1; Saux1.v= Scons1; Saux2.v= Scons2; b= vec_any_eq (Saux1.v, Saux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (Saux1.e[i]==Saux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_eq [type short] ===> Error\n"); else printf("Function vec_any_eq [type short] ===> OK\n"); err = 0; USaux1.v= UScons1; USaux2.v= UScons3; b= vec_any_eq (USaux1.v, USaux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (USaux1.e[i]==USaux2.e[i]); if (bAux!=b) err= 1; USaux1.v= UScons1; USaux2.v= UScons2; b= vec_any_eq (USaux1.v, USaux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (USaux1.e[i]==USaux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_eq [type unsigned short] ===> Error\n"); else printf("Function vec_any_eq [type unsigned short] ===> OK\n"); err = 0; Iaux1.v= Icons1; Iaux2.v= Icons3; b= vec_any_eq (Iaux1.v, Iaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Iaux1.e[i]==Iaux2.e[i]); if (bAux!=b) err= 1; Iaux1.v= Icons1; Iaux2.v= Icons2; b= vec_any_eq (Iaux1.v, Iaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Iaux1.e[i]==Iaux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_eq [type int] ===> Error\n"); else printf("Function vec_any_eq [type int] ===> OK\n"); err = 0; UIaux1.v= UIcons1; UIaux2.v= UIcons3; b= vec_any_eq (UIaux1.v, UIaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (UIaux1.e[i]==UIaux2.e[i]); if (bAux!=b) err= 1; UIaux1.v= UIcons1; UIaux2.v= UIcons2; b= vec_any_eq (UIaux1.v, UIaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (UIaux1.e[i]==UIaux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_eq [type unsigned int] ===> Error\n"); else printf("Function vec_any_eq [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; # if defined (GCC_COMPILER) Faux1.v = (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v = (vector float) { 0.0, 3.5, 0.55, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v = (vector float) ( 0.0, 3.5, 0.55, -1.5); # endif b = vec_any_eq (Faux1.v, Faux2.v); bAux = 0; for (i=0; i<4; i++) bAux = bAux || (Faux1.e[i] == Faux2.e[i]); if (bAux != b) err = 1; # if defined (GCC_COMPILER) Faux1.v = (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v = (vector float) { 0.0, 3.5, 0.5, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v = (vector float) ( 0.0, 3.5, 0.5, -1.5); # endif b= vec_any_eq (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Faux1.e[i]==Faux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_eq [type float] ===> Error\n"); else printf("Function vec_any_eq [type float] ===> OK\n"); #endif /* Function vec_any_ge */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; # if defined (GCC_COMPILER) Caux1.v= (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; Caux2.v= (vector signed char){ 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Caux1.v= (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); Caux2.v= (vector signed char)( 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9); # endif b= vec_any_ge (Caux1.v, Caux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (Caux1.e[i]>=Caux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Caux1.v= (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; Caux2.v= (vector signed char){ 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Caux1.v= (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); Caux2.v= (vector signed char)( 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9); # endif b= vec_any_ge (Caux1.v, Caux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (Caux1.e[i]>=Caux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Caux1.v= (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; Caux2.v= (vector signed char){ 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Caux1.v= (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); Caux2.v= (vector signed char)( 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9); # endif b= vec_any_ge (Caux1.v, Caux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (Caux1.e[i]>=Caux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_ge [type char] ===> Error\n"); else printf("Function vec_any_ge [type char] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) UCaux1.v= (vector unsigned char){200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17}; UCaux2.v= (vector unsigned char){250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UCaux1.v= (vector unsigned char)(200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17); UCaux2.v= (vector unsigned char)(250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250); # endif b= vec_any_ge (UCaux1.v, UCaux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (UCaux1.e[i]>=UCaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) UCaux1.v= (vector unsigned char){200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17}; UCaux2.v= (vector unsigned char){250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UCaux1.v= (vector unsigned char)(200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17); UCaux2.v= (vector unsigned char)(250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250); # endif b= vec_any_ge (UCaux1.v, UCaux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (UCaux1.e[i]>=UCaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) UCaux1.v= (vector unsigned char){200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17}; UCaux2.v= (vector unsigned char){250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UCaux1.v= (vector unsigned char)(200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17); UCaux2.v= (vector unsigned char)(250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250); # endif b= vec_any_ge (UCaux1.v, UCaux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (UCaux1.e[i]>=UCaux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_ge [type unsigned char] ===> Error\n"); else printf("Function vec_any_ge [type unsigned char] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) Saux1.v= (vector signed short){-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100}; Saux2.v= (vector signed short){ 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Saux1.v= (vector signed short)(-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100); Saux2.v= (vector signed short)( 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000); # endif b= vec_any_ge (Saux1.v, Saux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (Saux1.e[i]>=Saux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Saux1.v= (vector signed short){-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100}; Saux2.v= (vector signed short){ 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Saux1.v= (vector signed short)(-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100); Saux2.v= (vector signed short)( 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000); # endif b= vec_any_ge (Saux1.v, Saux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (Saux1.e[i]>=Saux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Saux1.v= (vector signed short){-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100}; Saux2.v= (vector signed short){ 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Saux1.v= (vector signed short)(-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100); Saux2.v= (vector signed short)( 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000); # endif b= vec_any_ge (Saux1.v, Saux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (Saux1.e[i]>=Saux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_ge [type short] ===> Error\n"); else printf("Function vec_any_ge [type short] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) USaux1.v= (vector unsigned short){48000, 47000, 46000, 45000, 0, 3300, 3200, 3100}; USaux2.v= (vector unsigned short){59000, 59000, 59000, 59000,59000, 9000, 9000, 9000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) USaux1.v= (vector unsigned short)(48000, 47000, 46000, 45000, 0, 3300, 3200, 3100); USaux2.v= (vector unsigned short)(59000, 59000, 59000, 59000,59000, 9000, 9000, 9000); # endif b= vec_any_ge (USaux1.v, USaux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (USaux1.e[i]>=USaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) USaux1.v= (vector unsigned short){48000, 47000, 46000, 45000, 0, 3300, 3200, 3100}; USaux2.v= (vector unsigned short){59000, 59000, 59000, 59000,59000, 9000, 9000, 9000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) USaux1.v= (vector unsigned short)(48000, 47000, 46000, 45000, 0, 3300, 3200, 3100); USaux2.v= (vector unsigned short)(59000, 59000, 59000, 59000,59000, 9000, 9000, 9000); # endif b= vec_any_ge (USaux1.v, USaux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (USaux1.e[i]>=USaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) USaux1.v= (vector unsigned short){48000, 47000, 46000, 45000, 0, 3300, 3200, 3100}; USaux2.v= (vector unsigned short){59000, 59000, 59000, 59000,59000, 9000, 9000, 9000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) USaux1.v= (vector unsigned short)(48000, 47000, 46000, 45000, 0, 3300, 3200, 3100); USaux2.v= (vector unsigned short)(59000, 59000, 59000, 59000,59000, 9000, 9000, 9000); # endif b= vec_any_ge (USaux1.v, USaux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (USaux1.e[i]>=USaux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_ge [type unsigned short] ===> Error\n"); else printf("Function vec_any_ge [type unsigned short] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) Iaux1.v= (vector signed int){-1003800, -1003700, 0,1003300}; Iaux2.v= (vector signed int){ 9000000, 9000000, 9000000,9000000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Iaux1.v= (vector signed int)(-1003800, -1003700, 0,1003300); Iaux2.v= (vector signed int)( 9000000, 9000000, 9000000,9000000); # endif b= vec_any_ge (Iaux1.v, Iaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Iaux1.e[i]>=Iaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Iaux1.v= (vector signed int){-1003800, -1003700, 0,1003300}; Iaux2.v= (vector signed int){ 9000000, 9000000, 9000000,9000000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Iaux1.v= (vector signed int)(-1003800, -1003700, 0,1003300); Iaux2.v= (vector signed int)( 9000000, 9000000, 9000000,9000000); # endif b= vec_any_ge (Iaux1.v, Iaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Iaux1.e[i]>=Iaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Iaux1.v= (vector signed int){-1003800, -1003700, 0,1003300}; Iaux2.v= (vector signed int){ 9000000, 9000000, 9000000,9000000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Iaux1.v= (vector signed int)(-1003800, -1003700, 0,1003300); Iaux2.v= (vector signed int)( 9000000, 9000000, 9000000,9000000); # endif b= vec_any_ge (Iaux1.v, Iaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Iaux1.e[i]>=Iaux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_ge [type int] ===> Error\n"); else printf("Function vec_any_ge [type int] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) UIaux1.v= (vector unsigned int){0xFFFFF000, 12345678, 0, 1}; UIaux2.v= (vector unsigned int){0xFFFFFFF0, 20000000, 9, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UIaux1.v= (vector unsigned int)(0xFFFFF000, 12345678, 0, 1); UIaux2.v= (vector unsigned int)(0xFFFFFFF0, 20000000, 9, 9); # endif b= vec_any_ge (UIaux1.v, UIaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (UIaux1.e[i]>=UIaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) UIaux1.v= (vector unsigned int){0xFFFFF000, 12345678, 0, 1}; UIaux2.v= (vector unsigned int){0xFFFFFFF0, 20000000, 9, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UIaux1.v= (vector unsigned int)(0xFFFFF000, 12345678, 0, 1); UIaux2.v= (vector unsigned int)(0xFFFFFFF0, 20000000, 9, 9); # endif b= vec_any_ge (UIaux1.v, UIaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (UIaux1.e[i]>=UIaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) UIaux1.v= (vector unsigned int){0xFFFFF000, 12345678, 0, 1}; UIaux2.v= (vector unsigned int){0xFFFFFFF0, 20000000, 9, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UIaux1.v= (vector unsigned int)(0xFFFFF000, 12345678, 0, 1); UIaux2.v= (vector unsigned int)(0xFFFFFFF0, 20000000, 9, 9); # endif b= vec_any_ge (UIaux1.v, UIaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (UIaux1.e[i]>=UIaux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_ge [type unsigned int] ===> Error\n"); else printf("Function vec_any_ge [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; # if defined (GCC_COMPILER) Faux1.v= (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v= (vector float) { 0.0, 3.5, 0.55, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v= (vector float) ( 0.0, 3.5, 0.55, -1.5); # endif b= vec_any_ge (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Faux1.e[i]>=Faux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Faux1.v= (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v= (vector float) { 0.0, 3.5, 0.5, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v= (vector float) ( 0.0, 3.5, 0.5, -1.5); # endif b= vec_any_ge (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Faux1.e[i]>=Faux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Faux1.v= (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v= (vector float) { 0.0, 3.5,-0.5, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v= (vector float) ( 0.0, 3.5,-0.5, -1.5); # endif b= vec_any_ge (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Faux1.e[i]>=Faux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_ge [type float] ===> Error\n"); else printf("Function vec_any_ge [type float] ===> OK\n"); #endif /* Function vec_any_gt */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; # if defined (GCC_COMPILER) Caux1.v= (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; Caux2.v= (vector signed char){ 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Caux1.v= (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); Caux2.v= (vector signed char)( 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9); # endif b= vec_any_gt (Caux1.v, Caux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (Caux1.e[i]>Caux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Caux1.v= (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; Caux2.v= (vector signed char){ 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Caux1.v= (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); Caux2.v= (vector signed char)( 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9); # endif b= vec_any_gt (Caux1.v, Caux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (Caux1.e[i]>Caux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Caux1.v= (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; Caux2.v= (vector signed char){ 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Caux1.v= (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); Caux2.v= (vector signed char)( 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9); # endif b= vec_any_gt (Caux1.v, Caux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (Caux1.e[i]>Caux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_gt [type char] ===> Error\n"); else printf("Function vec_any_gt [type char] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) UCaux1.v= (vector unsigned char){200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17}; UCaux2.v= (vector unsigned char){250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UCaux1.v= (vector unsigned char)(200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17); UCaux2.v= (vector unsigned char)(250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250); # endif b= vec_any_gt (UCaux1.v, UCaux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (UCaux1.e[i]>UCaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) UCaux1.v= (vector unsigned char){200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17}; UCaux2.v= (vector unsigned char){250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UCaux1.v= (vector unsigned char)(200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17); UCaux2.v= (vector unsigned char)(250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250); # endif b= vec_any_gt (UCaux1.v, UCaux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (UCaux1.e[i]>UCaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) UCaux1.v= (vector unsigned char){200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17}; UCaux2.v= (vector unsigned char){250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UCaux1.v= (vector unsigned char)(200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17); UCaux2.v= (vector unsigned char)(250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250); # endif b= vec_any_gt (UCaux1.v, UCaux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (UCaux1.e[i]>UCaux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_gt [type unsigned char] ===> Error\n"); else printf("Function vec_any_gt [type unsigned char] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) Saux1.v= (vector signed short){-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100}; Saux2.v= (vector signed short){ 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Saux1.v= (vector signed short)(-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100); Saux2.v= (vector signed short)( 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000); # endif b= vec_any_gt (Saux1.v, Saux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (Saux1.e[i]>Saux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Saux1.v= (vector signed short){-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100}; Saux2.v= (vector signed short){ 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Saux1.v= (vector signed short)(-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100); Saux2.v= (vector signed short)( 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000); # endif b= vec_any_gt (Saux1.v, Saux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (Saux1.e[i]>Saux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Saux1.v= (vector signed short){-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100}; Saux2.v= (vector signed short){ 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Saux1.v= (vector signed short)(-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100); Saux2.v= (vector signed short)( 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000); # endif b= vec_any_gt (Saux1.v, Saux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (Saux1.e[i]>Saux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_gt [type short] ===> Error\n"); else printf("Function vec_any_gt [type short] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) USaux1.v= (vector unsigned short){48000, 47000, 46000, 45000, 0, 3300, 3200, 3100}; USaux2.v= (vector unsigned short){59000, 59000, 59000, 59000,59000, 9000, 9000, 9000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) USaux1.v= (vector unsigned short)(48000, 47000, 46000, 45000, 0, 3300, 3200, 3100); USaux2.v= (vector unsigned short)(59000, 59000, 59000, 59000,59000, 9000, 9000, 9000); # endif b= vec_any_gt (USaux1.v, USaux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (USaux1.e[i]>USaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) USaux1.v= (vector unsigned short){48000, 47000, 46000, 45000, 0, 3300, 3200, 3100}; USaux2.v= (vector unsigned short){59000, 59000, 59000, 59000,59000, 9000, 9000, 9000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) USaux1.v= (vector unsigned short)(48000, 47000, 46000, 45000, 0, 3300, 3200, 3100); USaux2.v= (vector unsigned short)(59000, 59000, 59000, 59000,59000, 9000, 9000, 9000); # endif b= vec_any_gt (USaux1.v, USaux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (USaux1.e[i]>USaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) USaux1.v= (vector unsigned short){48000, 47000, 46000, 45000, 0, 3300, 3200, 3100}; USaux2.v= (vector unsigned short){59000, 59000, 59000, 59000,59000, 9000, 9000, 9000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) USaux1.v= (vector unsigned short)(48000, 47000, 46000, 45000, 0, 3300, 3200, 3100); USaux2.v= (vector unsigned short)(59000, 59000, 59000, 59000,59000, 9000, 9000, 9000); # endif b= vec_any_gt (USaux1.v, USaux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (USaux1.e[i]>USaux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_gt [type unsigned short] ===> Error\n"); else printf("Function vec_any_gt [type unsigned short] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) Iaux1.v= (vector signed int){-1003800, -1003700, 0,1003300}; Iaux2.v= (vector signed int){ 9000000, 9000000, 9000000,9000000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Iaux1.v= (vector signed int)(-1003800, -1003700, 0,1003300); Iaux2.v= (vector signed int)( 9000000, 9000000, 9000000,9000000); # endif b= vec_any_gt (Iaux1.v, Iaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Iaux1.e[i]>Iaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Iaux1.v= (vector signed int){-1003800, -1003700, 0,1003300}; Iaux2.v= (vector signed int){ 9000000, 9000000, 9000000,9000000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Iaux1.v= (vector signed int)(-1003800, -1003700, 0,1003300); Iaux2.v= (vector signed int)( 9000000, 9000000, 9000000,9000000); # endif b= vec_any_gt (Iaux1.v, Iaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Iaux1.e[i]>Iaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Iaux1.v= (vector signed int){-1003800, -1003700, 0,1003300}; Iaux2.v= (vector signed int){ 9000000, 9000000, 9000000,9000000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Iaux1.v= (vector signed int)(-1003800, -1003700, 0,1003300); Iaux2.v= (vector signed int)( 9000000, 9000000, 9000000,9000000); # endif b= vec_any_gt (Iaux1.v, Iaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Iaux1.e[i]>Iaux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_gt [type int] ===> Error\n"); else printf("Function vec_any_gt [type int] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) UIaux1.v= (vector unsigned int){0xFFFFF000, 12345678, 0, 1}; UIaux2.v= (vector unsigned int){0xFFFFFFF0, 20000000, 9, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UIaux1.v= (vector unsigned int)(0xFFFFF000, 12345678, 0, 1); UIaux2.v= (vector unsigned int)(0xFFFFFFF0, 20000000, 9, 9); # endif b= vec_any_gt (UIaux1.v, UIaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (UIaux1.e[i]>UIaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) UIaux1.v= (vector unsigned int){0xFFFFF000, 12345678, 0, 1}; UIaux2.v= (vector unsigned int){0xFFFFFFF0, 20000000, 9, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UIaux1.v= (vector unsigned int)(0xFFFFF000, 12345678, 0, 1); UIaux2.v= (vector unsigned int)(0xFFFFFFF0, 20000000, 9, 9); # endif b= vec_any_gt (UIaux1.v, UIaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (UIaux1.e[i]>UIaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) UIaux1.v= (vector unsigned int){0xFFFFF000, 12345678, 0, 1}; UIaux2.v= (vector unsigned int){0xFFFFFFF0, 20000000, 9, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UIaux1.v= (vector unsigned int)(0xFFFFF000, 12345678, 0, 1); UIaux2.v= (vector unsigned int)(0xFFFFFFF0, 20000000, 9, 9); # endif b= vec_any_gt (UIaux1.v, UIaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (UIaux1.e[i]>UIaux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_gt [type unsigned int] ===> Error\n"); else printf("Function vec_any_gt [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; # if defined (GCC_COMPILER) Faux1.v= (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v= (vector float) { 0.0, 3.5, 0.55, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v= (vector float) ( 0.0, 3.5, 0.55, -1.5); # endif b= vec_any_gt (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Faux1.e[i]>Faux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Faux1.v= (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v= (vector float) { 0.0, 3.5, 0.5, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v= (vector float) ( 0.0, 3.5, 0.5, -1.5); # endif b= vec_any_gt (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Faux1.e[i]>Faux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Faux1.v= (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v= (vector float) { 0.0, 3.5,-0.5, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v= (vector float) ( 0.0, 3.5,-0.5, -1.5); # endif b= vec_any_gt (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Faux1.e[i]>Faux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_gt [type float] ===> Error\n"); else printf("Function vec_any_gt [type float] ===> OK\n"); #endif /* Function vec_any_le */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; # if defined (GCC_COMPILER) Caux2.v= (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; Caux1.v= (vector signed char){ 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Caux2.v= (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); Caux1.v= (vector signed char)( 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9); # endif b= vec_any_le (Caux1.v, Caux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (Caux1.e[i]<=Caux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Caux2.v= (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; Caux1.v= (vector signed char){ 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Caux2.v= (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); Caux1.v= (vector signed char)( 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9); # endif b= vec_any_le (Caux1.v, Caux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (Caux1.e[i]<=Caux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Caux2.v= (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; Caux1.v= (vector signed char){ 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Caux2.v= (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); Caux1.v= (vector signed char)( 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9); # endif b= vec_any_le (Caux1.v, Caux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (Caux1.e[i]<=Caux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_le [type char] ===> Error\n"); else printf("Function vec_any_le [type char] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) UCaux2.v= (vector unsigned char){200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17}; UCaux1.v= (vector unsigned char){250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UCaux2.v= (vector unsigned char)(200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17); UCaux1.v= (vector unsigned char)(250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250); # endif b= vec_any_le (UCaux1.v, UCaux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (UCaux1.e[i]<=UCaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) UCaux2.v= (vector unsigned char){200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17}; UCaux1.v= (vector unsigned char){250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UCaux2.v= (vector unsigned char)(200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17); UCaux1.v= (vector unsigned char)(250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250); # endif b= vec_any_le (UCaux1.v, UCaux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (UCaux1.e[i]<=UCaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) UCaux2.v= (vector unsigned char){200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17}; UCaux1.v= (vector unsigned char){250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UCaux2.v= (vector unsigned char)(200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17); UCaux1.v= (vector unsigned char)(250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250); # endif b= vec_any_le (UCaux1.v, UCaux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (UCaux1.e[i]<=UCaux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_le [type unsigned char] ===> Error\n"); else printf("Function vec_any_le [type unsigned char] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) Saux2.v= (vector signed short){-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100}; Saux1.v= (vector signed short){ 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Saux2.v= (vector signed short)(-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100); Saux1.v= (vector signed short)( 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000); # endif b= vec_any_le (Saux1.v, Saux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (Saux1.e[i]<=Saux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Saux2.v= (vector signed short){-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100}; Saux1.v= (vector signed short){ 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Saux2.v= (vector signed short)(-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100); Saux1.v= (vector signed short)( 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000); # endif b= vec_any_le (Saux1.v, Saux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (Saux1.e[i]<=Saux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Saux2.v= (vector signed short){-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100}; Saux1.v= (vector signed short){ 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Saux2.v= (vector signed short)(-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100); Saux1.v= (vector signed short)( 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000); # endif b= vec_any_le (Saux1.v, Saux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (Saux1.e[i]<=Saux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_le [type short] ===> Error\n"); else printf("Function vec_any_le [type short] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) USaux2.v= (vector unsigned short){48000, 47000, 46000, 45000, 0, 3300, 3200, 3100}; USaux1.v= (vector unsigned short){59000, 59000, 59000, 59000,59000, 9000, 9000, 9000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) USaux2.v= (vector unsigned short)(48000, 47000, 46000, 45000, 0, 3300, 3200, 3100); USaux1.v= (vector unsigned short)(59000, 59000, 59000, 59000,59000, 9000, 9000, 9000); # endif b= vec_any_le (USaux1.v, USaux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (USaux1.e[i]<=USaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) USaux2.v= (vector unsigned short){48000, 47000, 46000, 45000, 0, 3300, 3200, 3100}; USaux1.v= (vector unsigned short){59000, 59000, 59000, 59000,59000, 9000, 9000, 9000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) USaux2.v= (vector unsigned short)(48000, 47000, 46000, 45000, 0, 3300, 3200, 3100); USaux1.v= (vector unsigned short)(59000, 59000, 59000, 59000,59000, 9000, 9000, 9000); # endif b= vec_any_le (USaux1.v, USaux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (USaux1.e[i]<=USaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) USaux2.v= (vector unsigned short){48000, 47000, 46000, 45000, 0, 3300, 3200, 3100}; USaux1.v= (vector unsigned short){59000, 59000, 59000, 59000,59000, 9000, 9000, 9000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) USaux2.v= (vector unsigned short)(48000, 47000, 46000, 45000, 0, 3300, 3200, 3100); USaux1.v= (vector unsigned short)(59000, 59000, 59000, 59000,59000, 9000, 9000, 9000); # endif b= vec_any_le (USaux1.v, USaux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (USaux1.e[i]<=USaux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_le [type unsigned short] ===> Error\n"); else printf("Function vec_any_le [type unsigned short] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) Iaux2.v= (vector signed int){-1003800, -1003700, 0,1003300}; Iaux1.v= (vector signed int){ 9000000, 9000000, 9000000,9000000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Iaux2.v= (vector signed int)(-1003800, -1003700, 0,1003300); Iaux1.v= (vector signed int)( 9000000, 9000000, 9000000,9000000); # endif b= vec_any_le (Iaux1.v, Iaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Iaux1.e[i]<=Iaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Iaux2.v= (vector signed int){-1003800, -1003700, 0,1003300}; Iaux1.v= (vector signed int){ 9000000, 9000000, 9000000,9000000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Iaux2.v= (vector signed int)(-1003800, -1003700, 0,1003300); Iaux1.v= (vector signed int)( 9000000, 9000000, 9000000,9000000); # endif b= vec_any_le (Iaux1.v, Iaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Iaux1.e[i]<=Iaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Iaux2.v= (vector signed int){-1003800, -1003700, 0,1003300}; Iaux1.v= (vector signed int){ 9000000, 9000000, 9000000,9000000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Iaux2.v= (vector signed int)(-1003800, -1003700, 0,1003300); Iaux1.v= (vector signed int)( 9000000, 9000000, 9000000,9000000); # endif b= vec_any_le (Iaux1.v, Iaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Iaux1.e[i]<=Iaux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_le [type int] ===> Error\n"); else printf("Function vec_any_le [type int] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) UIaux2.v= (vector unsigned int){0xFFFFF000, 12345678, 0, 1}; UIaux1.v= (vector unsigned int){0xFFFFFFF0, 20000000, 9, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UIaux2.v= (vector unsigned int)(0xFFFFF000, 12345678, 0, 1); UIaux1.v= (vector unsigned int)(0xFFFFFFF0, 20000000, 9, 9); # endif b= vec_any_le (UIaux1.v, UIaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (UIaux1.e[i]<=UIaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) UIaux2.v= (vector unsigned int){0xFFFFF000, 12345678, 0, 1}; UIaux1.v= (vector unsigned int){0xFFFFFFF0, 20000000, 9, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UIaux2.v= (vector unsigned int)(0xFFFFF000, 12345678, 0, 1); UIaux1.v= (vector unsigned int)(0xFFFFFFF0, 20000000, 9, 9); # endif b= vec_any_le (UIaux1.v, UIaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (UIaux1.e[i]<=UIaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) UIaux2.v= (vector unsigned int){0xFFFFF000, 12345678, 0, 1}; UIaux1.v= (vector unsigned int){0xFFFFFFF0, 20000000, 9, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UIaux2.v= (vector unsigned int)(0xFFFFF000, 12345678, 0, 1); UIaux1.v= (vector unsigned int)(0xFFFFFFF0, 20000000, 9, 9); # endif b= vec_any_le (UIaux1.v, UIaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (UIaux1.e[i]<=UIaux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_le [type unsigned int] ===> Error\n"); else printf("Function vec_any_le [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; # if defined (GCC_COMPILER) Faux2.v= (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux1.v= (vector float) { 0.0, 3.5, 0.55, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux2.v= (vector float) (-1.5, 1.0, 0.5, -3.999); Faux1.v= (vector float) ( 0.0, 3.5, 0.55, -1.5); # endif b= vec_any_le (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Faux1.e[i]<=Faux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Faux2.v= (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux1.v= (vector float) { 0.0, 3.5, 0.5, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux2.v= (vector float) (-1.5, 1.0, 0.5, -3.999); Faux1.v= (vector float) ( 0.0, 3.5, 0.5, -1.5); # endif b= vec_any_le (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Faux1.e[i]<=Faux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Faux2.v= (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux1.v= (vector float) { 0.0, 3.5,-0.5, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux2.v= (vector float) (-1.5, 1.0, 0.5, -3.999); Faux1.v= (vector float) ( 0.0, 3.5,-0.5, -1.5); # endif b= vec_any_le (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Faux1.e[i]<=Faux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_le [type float] ===> Error\n"); else printf("Function vec_any_le [type float] ===> OK\n"); #endif /* Function vec_any_lt */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; # if defined (GCC_COMPILER) Caux2.v= (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; Caux1.v= (vector signed char){ 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Caux2.v= (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); Caux1.v= (vector signed char)( 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9); # endif b= vec_any_lt (Caux1.v, Caux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (Caux1.e[i] Error\n"); else printf("Function vec_any_lt [type char] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) UCaux2.v= (vector unsigned char){200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17}; UCaux1.v= (vector unsigned char){250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UCaux2.v= (vector unsigned char)(200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17); UCaux1.v= (vector unsigned char)(250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250); # endif b= vec_any_lt (UCaux1.v, UCaux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (UCaux1.e[i] Error\n"); else printf("Function vec_any_lt [type unsigned char] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) Saux2.v= (vector signed short){-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100}; Saux1.v= (vector signed short){ 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Saux2.v= (vector signed short)(-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100); Saux1.v= (vector signed short)( 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000); # endif b= vec_any_lt (Saux1.v, Saux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (Saux1.e[i] Error\n"); else printf("Function vec_any_lt [type short] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) USaux2.v= (vector unsigned short){48000, 47000, 46000, 45000, 0, 3300, 3200, 3100}; USaux1.v= (vector unsigned short){59000, 59000, 59000, 59000,59000, 9000, 9000, 9000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) USaux2.v= (vector unsigned short)(48000, 47000, 46000, 45000, 0, 3300, 3200, 3100); USaux1.v= (vector unsigned short)(59000, 59000, 59000, 59000,59000, 9000, 9000, 9000); # endif b= vec_any_lt (USaux1.v, USaux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (USaux1.e[i] Error\n"); else printf("Function vec_any_lt [type unsigned short] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) Iaux2.v= (vector signed int){-1003800, -1003700, 0,1003300}; Iaux1.v= (vector signed int){ 9000000, 9000000, 9000000,9000000}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Iaux2.v= (vector signed int)(-1003800, -1003700, 0,1003300); Iaux1.v= (vector signed int)( 9000000, 9000000, 9000000,9000000); # endif b= vec_any_lt (Iaux1.v, Iaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Iaux1.e[i] Error\n"); else printf("Function vec_any_lt [type int] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) UIaux2.v= (vector unsigned int){0xFFFFF000, 12345678, 0, 1}; UIaux1.v= (vector unsigned int){0xFFFFFFF0, 20000000, 9, 9}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UIaux2.v= (vector unsigned int)(0xFFFFF000, 12345678, 0, 1); UIaux1.v= (vector unsigned int)(0xFFFFFFF0, 20000000, 9, 9); # endif b= vec_any_lt (UIaux1.v, UIaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (UIaux1.e[i] Error\n"); else printf("Function vec_any_lt [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; # if defined (GCC_COMPILER) Faux2.v= (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux1.v= (vector float) { 0.0, 3.5, 0.55, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux2.v= (vector float) (-1.5, 1.0, 0.5, -3.999); Faux1.v= (vector float) ( 0.0, 3.5, 0.55, -1.5); # endif b= vec_any_lt (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Faux1.e[i] Error\n"); else printf("Function vec_any_lt [type float] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_any_nan */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; # if defined (GCC_COMPILER) Faux1.v= (vector float) { 0.0, 3.5, 0.55, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) ( 0.0, 3.5, 0.55, -1.5); # endif b= vec_any_nan (Faux1.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || isnan(Faux1.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Faux1.v= (vector float) { 0.0, 3.5, NAN, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) ( 0.0, 3.5, NAN, -1.5); # endif b= vec_any_nan (Faux1.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || isnan(Faux1.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Faux1.v= (vector float) { NAN, 3.5, NAN, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) ( NAN, 3.5, NAN, -1.5); # endif b= vec_any_nan (Faux1.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || isnan(Faux1.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_nan [type float] ===> Error\n"); else printf("Function vec_any_nan [type float] ===> OK\n"); #endif /* Function vec_any_ne */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; # if defined (GCC_COMPILER) Caux1.v= (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; Caux2.v= (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Caux1.v= (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); Caux2.v= (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); # endif b= vec_any_ne (Caux1.v, Caux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (Caux1.e[i]!=Caux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Caux1.v= (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; Caux2.v= (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Caux1.v= (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); Caux2.v= (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); # endif b= vec_any_ne (Caux1.v, Caux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (Caux1.e[i]!=Caux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Caux1.v= (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; Caux2.v= (vector signed char){-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Caux1.v= (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); Caux2.v= (vector signed char)(-8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7); # endif b= vec_any_ne (Caux1.v, Caux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (Caux1.e[i]!=Caux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_ne [type char] ===> Error\n"); else printf("Function vec_any_ne [type char] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) UCaux1.v= (vector unsigned char){200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17}; UCaux2.v= (vector unsigned char){200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UCaux1.v= (vector unsigned char)(200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17); UCaux2.v= (vector unsigned char)(200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17); # endif b= vec_any_ne (UCaux1.v, UCaux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (UCaux1.e[i]!=UCaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) UCaux1.v= (vector unsigned char){200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17}; UCaux2.v= (vector unsigned char){200, 201, 206, 205, 0, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UCaux1.v= (vector unsigned char)(200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17); UCaux2.v= (vector unsigned char)(200, 201, 206, 205, 0, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17); # endif b= vec_any_ne (UCaux1.v, UCaux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (UCaux1.e[i]!=UCaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) UCaux1.v= (vector unsigned char){200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17}; UCaux2.v= (vector unsigned char){200, 201, 206, 206, 0, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UCaux1.v= (vector unsigned char)(200, 201, 206, 205, 204, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17); UCaux2.v= (vector unsigned char)(200, 201, 206, 206, 0, 203, 202, 201, 200, 101, 102, 13, 14, 15, 16, 17); # endif b= vec_any_ne (UCaux1.v, UCaux2.v); bAux= 0; for (i=0; i<16; i++) bAux= bAux || (UCaux1.e[i]!=UCaux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_ne [type unsigned char] ===> Error\n"); else printf("Function vec_any_ne [type unsigned char] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) Saux1.v= (vector signed short){-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100}; Saux2.v= (vector signed short){-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Saux1.v= (vector signed short)(-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100); Saux2.v= (vector signed short)(-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100); # endif b= vec_any_ne (Saux1.v, Saux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (Saux1.e[i]!=Saux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Saux1.v= (vector signed short){-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100}; Saux2.v= (vector signed short){-3800, 3700, -3600, -3500, 0, 3300, 3200, 3100}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Saux1.v= (vector signed short)(-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100); Saux2.v= (vector signed short)(-3800, 3700, -3600, -3500, 0, 3300, 3200, 3100); # endif b= vec_any_ne (Saux1.v, Saux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (Saux1.e[i]!=Saux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Saux1.v= (vector signed short){-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100}; Saux2.v= (vector signed short){-3800, -3700, -3600, -3500, 0, 3300, 3100, 3100}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Saux1.v= (vector signed short)(-3800, -3700, -3600, -3500, 0, 3300, 3200, 3100); Saux2.v= (vector signed short)(-3800, -3700, -3600, -3500, 0, 3300, 3100, 3100); # endif b= vec_any_ne (Saux1.v, Saux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (Saux1.e[i]!=Saux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_ne [type short] ===> Error\n"); else printf("Function vec_any_ne [type short] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) USaux1.v= (vector unsigned short){48000, 47000, 46000, 45000, 0, 3300, 3200, 3100}; USaux2.v= (vector unsigned short){48000, 47000, 46000, 45000, 0, 3300, 3200, 3100}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) USaux1.v= (vector unsigned short)(48000, 47000, 46000, 45000, 0, 3300, 3200, 3100); USaux2.v= (vector unsigned short)(48000, 47000, 46000, 45000, 0, 3300, 3200, 3100); # endif b= vec_any_ne (USaux1.v, USaux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (USaux1.e[i]!=USaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) USaux1.v= (vector unsigned short){48000, 47000, 46000, 45000, 0, 3300, 3200, 3100}; USaux2.v= (vector unsigned short){48000, 47000, 46000, 45000, 0, 3300, 3100, 3100}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) USaux1.v= (vector unsigned short)(48000, 47000, 46000, 45000, 0, 3300, 3200, 3100); USaux2.v= (vector unsigned short)(48000, 47000, 46000, 45000, 0, 3300, 3100, 3100); # endif b= vec_any_ne (USaux1.v, USaux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (USaux1.e[i]!=USaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) USaux1.v= (vector unsigned short){48000, 47000, 46000, 45000, 0, 3300, 3200, 3100}; USaux2.v= (vector unsigned short){48000, 47000, 46000, 0, 0, 3300, 3100, 3100}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) USaux1.v= (vector unsigned short)(48000, 47000, 46000, 45000, 0, 3300, 3200, 3100); USaux2.v= (vector unsigned short)(48000, 47000, 46000, 0, 0, 3300, 3100, 3100); # endif b= vec_any_ne (USaux1.v, USaux2.v); bAux= 0; for (i=0; i<8; i++) bAux= bAux || (USaux1.e[i]!=USaux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_ne [type unsigned short] ===> Error\n"); else printf("Function vec_any_ne [type unsigned short] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) Iaux1.v= (vector signed int){-1003800, -1003700, 0,1003300}; Iaux2.v= (vector signed int){-1003800, -1003700, 0,1003300}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Iaux1.v= (vector signed int)(-1003800, -1003700, 0,1003300); Iaux2.v= (vector signed int)(-1003800, -1003700, 0,1003300); # endif b= vec_any_ne (Iaux1.v, Iaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Iaux1.e[i]!=Iaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Iaux1.v= (vector signed int){-1003800, -1003700, 0,1003300}; Iaux2.v= (vector signed int){-1003800, -1003700, 0,1113300}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Iaux1.v= (vector signed int)(-1003800, -1003700, 0,1003300); Iaux2.v= (vector signed int)(-1003800, -1003700, 0,1113300); # endif b= vec_any_ne (Iaux1.v, Iaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Iaux1.e[i]!=Iaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Iaux1.v= (vector signed int){-1003800, -1003700, 0,1003300}; Iaux2.v= (vector signed int){-1003800, 10, 0,1113300}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Iaux1.v= (vector signed int)(-1003800, -1003700, 0,1003300); Iaux2.v= (vector signed int)(-1003800, 10, 0,1113300); # endif b= vec_any_ne (Iaux1.v, Iaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Iaux1.e[i]!=Iaux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_ne [type int] ===> Error\n"); else printf("Function vec_any_ne [type int] ===> OK\n"); err = 0; # if defined (GCC_COMPILER) UIaux1.v= (vector unsigned int){0xFFFFF000, 12345678, 0, 1}; UIaux2.v= (vector unsigned int){0xFFFFF000, 12345678, 0, 1}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UIaux1.v= (vector unsigned int)(0xFFFFF000, 12345678, 0, 1); UIaux2.v= (vector unsigned int)(0xFFFFF000, 12345678, 0, 1); # endif b= vec_any_ne (UIaux1.v, UIaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (UIaux1.e[i]!=UIaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) UIaux1.v= (vector unsigned int){0xFFFFF000, 12345678, 0, 1}; UIaux2.v= (vector unsigned int){0xFFFFF000, 12345678, 5, 1}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UIaux1.v= (vector unsigned int)(0xFFFFF000, 12345678, 0, 1); UIaux2.v= (vector unsigned int)(0xFFFFF000, 12345678, 5, 1); # endif b= vec_any_ne (UIaux1.v, UIaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (UIaux1.e[i]!=UIaux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) UIaux1.v= (vector unsigned int){0xFFFFF000, 12345678, 0, 1}; UIaux2.v= (vector unsigned int){0xFFFFFFF0, 12345678, 5, 1}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) UIaux1.v= (vector unsigned int)(0xFFFFF000, 12345678, 0, 1); UIaux2.v= (vector unsigned int)(0xFFFFFFF0, 12345678, 5, 1); # endif b= vec_any_ne (UIaux1.v, UIaux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (UIaux1.e[i]!=UIaux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_ne [type unsigned int] ===> Error\n"); else printf("Function vec_any_ne [type unsigned int] ===> OK\n"); #if defined TEST_FLOATS err = 0; # if defined (GCC_COMPILER) Faux1.v= (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v= (vector float) {-1.5, 1.0, 0.5, -3.999}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v= (vector float) (-1.5, 1.0, 0.5, -3.999); # endif b= vec_any_ne (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Faux1.e[i]!=Faux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Faux1.v= (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v= (vector float) {-1.5, 1.0, 0.5, -3.998}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v= (vector float) (-1.5, 1.0, 0.5, -3.998); # endif b= vec_any_ne (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Faux1.e[i]!=Faux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Faux1.v= (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v= (vector float) {-1.5, 0.0, 0.5, -3.998}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v= (vector float) (-1.5, 0.0, 0.5, -3.998); # endif b= vec_any_ne (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (Faux1.e[i]!=Faux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_ne [type float] ===> Error\n"); else printf("Function vec_any_ne [type float] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_any_nge */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; # if defined (GCC_COMPILER) Faux1.v= (vector float) { 0.0, 3.5, 0.55, -1.5}; Faux2.v= (vector float) {-1.5, 1.0, 0.5, -3.999}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) ( 0.0, 3.5, 0.55, -1.5); Faux2.v= (vector float) (-1.5, 1.0, 0.5, -3.999); # endif b= vec_any_nge (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || (Faux1.e[i] Error\n"); else printf("Function vec_any_nge [type float] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_any_ngt */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; # if defined (GCC_COMPILER) Faux1.v= (vector float) { 0.0, 3.5, 0.55, -1.5}; Faux2.v= (vector float) {-1.5, 1.0, 0.5, -3.999}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) ( 0.0, 3.5, 0.55, -1.5); Faux2.v= (vector float) (-1.5, 1.0, 0.5, -3.999); # endif b= vec_any_ngt (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || !(Faux1.e[i]>Faux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Faux1.v= (vector float) { 0.0, 3.5, 0.55, -1.5}; Faux2.v= (vector float) {-1.5, 1.0, 0.55, -3.999}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) ( 0.0, 3.5, 0.55, -1.5); Faux2.v= (vector float) (-1.5, 1.0, 0.55, -3.999); # endif b= vec_any_ngt (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || !(Faux1.e[i]>Faux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Faux1.v= (vector float) { 0.0, 3.5, 0.55, -1.5}; Faux2.v= (vector float) {-1.5, 5.0, 0.5, -3.999}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) ( 0.0, 3.5, 0.55, -1.5); Faux2.v= (vector float) (-1.5, 5.0, 0.5, -3.999); # endif b= vec_any_ngt (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || !(Faux1.e[i]>Faux2.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Faux1.v= (vector float) { 0.0, 3.5, 0.55, -1.5}; Faux2.v= (vector float) {-1.5, 1.0, NAN, -3.999}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) ( 0.0, 3.5, 0.55, -1.5); Faux2.v= (vector float) (-1.5, 1.0, NAN, -3.999); # endif b= vec_any_ngt (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || !(Faux1.e[i]>Faux2.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_ngt [type float] ===> Error\n"); else printf("Function vec_any_ngt [type float] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_any_nle */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; # if defined (GCC_COMPILER) Faux1.v= (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v= (vector float) { 0.0, 3.5, 0.55, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v= (vector float) ( 0.0, 3.5, 0.55, -1.5); # endif b= vec_any_nle (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || !(Faux1.e[i]<=Faux2.e[i])); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Faux1.v= (vector float) {-1.5, 1.0, 0.55, -3.999}; Faux2.v= (vector float) { 0.0, 3.5, 0.55, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) (-1.5, 1.0, 0.55, -3.999); Faux2.v= (vector float) ( 0.0, 3.5, 0.55, -1.5); # endif b= vec_any_nle (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || !(Faux1.e[i]<=Faux2.e[i])); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Faux1.v= (vector float) {-1.5, 5.0, 0.5, -3.999}; Faux2.v= (vector float) { 0.0, 3.5, 0.55, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) (-1.5, 5.0, 0.5, -3.999); Faux2.v= (vector float) ( 0.0, 3.5, 0.55, -1.5); # endif b= vec_any_nle (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || !(Faux1.e[i]<=Faux2.e[i])); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Faux1.v= (vector float) {-1.5, 1.0, NAN, -3.999}; Faux2.v= (vector float) { 0.0, 3.5, 0.55, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) (-1.5, 1.0, NAN, -3.999); Faux2.v= (vector float) ( 0.0, 3.5, 0.55, -1.5); # endif b= vec_any_nle (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || !(Faux1.e[i]<=Faux2.e[i])); if (bAux!=b) err= 1; if (err) printf("Function vec_any_nle [type float] ===> Error\n"); else printf("Function vec_any_nle [type float] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_any_nlt */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; # if defined (GCC_COMPILER) Faux1.v= (vector float) {-1.5, 1.0, 0.5, -3.999}; Faux2.v= (vector float) { 0.0, 3.5, 0.55, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) (-1.5, 1.0, 0.5, -3.999); Faux2.v= (vector float) ( 0.0, 3.5, 0.55, -1.5); # endif b= vec_any_nlt (Faux1.v, Faux2.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || (isnan(Faux1.e[i]) || isnan(Faux2.e[i]) || !(Faux1.e[i] Error\n"); else printf("Function vec_any_nlt [type float] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_any_numeric */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; # if defined (GCC_COMPILER) Faux1.v= (vector float) { NAN, NAN, NAN, NAN}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) ( NAN, NAN, NAN, NAN); # endif b= vec_any_numeric (Faux1.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || !isnan(Faux1.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Faux1.v= (vector float) { NAN, 3.5, NAN, NAN}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) ( NAN, 3.5, NAN, NAN); # endif b= vec_any_numeric (Faux1.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || !isnan(Faux1.e[i]); if (bAux!=b) err= 1; # if defined (GCC_COMPILER) Faux1.v= (vector float) { -1.5, 3.5, 0.55, -1.5}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v= (vector float) ( -1.5, 3.5, 0.55, -1.5); # endif b= vec_any_numeric (Faux1.v); bAux= 0; for (i=0; i<4; i++) bAux= bAux || !isnan(Faux1.e[i]); if (bAux!=b) err= 1; if (err) printf("Function vec_any_numeric [type float] ===> Error\n"); else printf("Function vec_any_numeric [type float] ===> OK\n"); #endif #if defined TEST_FLOATS /* Function vec_any_out */ printf("\n:::::::::::::::::::::::::::::::::::::::\n"); err = 0; Faux1.v = Fcons1; Faux2.v = Fcons2; I1 = vec_any_out( Faux1.v, Faux2.v ); Iaux = 0; for ( i=0; i< 4; i++ ) { Iaux = Iaux || ((isnan(Faux1.e[i])) || (isnan(Faux2.e[i])) || (Faux1.e[i]>Faux2.e[i]) || (Faux1.e[i]<-Faux2.e[i])); } if (I1 != Iaux) err++; # if defined (GCC_COMPILER) Faux1.v = (vector float){-0.5, 1.0, 0, -0.999}; # elif defined (MAC_COMPILER) || defined (XLC_COMPILER) Faux1.v = (vector float)(-0.5, 1.0, 0, -0.999); # endif Faux2.v = Fcons2; I1 = vec_any_out( Faux1.v, Faux2.v ); Iaux = 0; for ( i=0; i< 4; i++ ) { Iaux = Iaux || ((isnan(Faux1.e[i])) || (isnan(Faux2.e[i])) || (Faux1.e[i]>Faux2.e[i]) || (Faux1.e[i]<-Faux2.e[i])); } if (I1 != Iaux) err++; if (err) printf("Function vec_any_out [type float] ===> Error\n"); else printf("Function vec_any_out [type float] ===> OK\n"); #endif return 0; }