gcc/testsuite/gcc.target/i386/sse-7.c

   1 /* { dg-do run } */
   2 /* { dg-options "-O2 -msse" } */
   3 /* { dg-require-effective-target sse } */
   4
   5 #include "sse-check.h"
   6
   7 #include <xmmintrin.h>
   8 #include <string.h>
   9
  10 #define SHIFT (4)
  11
  12 typedef union {
  13   __m64 v;
  14   unsigned char c[8];
  15   unsigned short int s[4];
  16   unsigned long long t;
  17   unsigned int u[2];
  18 }vecInWord;
  19
  20 void sse_tests (void) __attribute__((noinline));
  21 void dump64_16 (char *, char *, vecInWord);
  22 int check (const char *, const char *[]);
  23
  24 char buf[8000];
  25 char comparison[8000];
  26 static int errors = 0;
  27
  28 vecInWord c64, e64;
  29 __m64 m64_64;
  30
  31 const char *reference_sse[] = {
  32   "_mm_shuffle_pi16 0123 4567 89ab cdef \n",
  33   ""
  34 };
  35
  36 static void
  37 sse_test (void)
  38 {
  39   e64.t  = 0x0123456789abcdefULL;
  40
  41   m64_64 = e64.v;
  42
  43   sse_tests();
  44   check (buf, reference_sse);
  45 #ifdef DEBUG
  46   printf ("sse testing:\n");
  47   printf (buf);
  48   printf ("\ncomparison:\n");
  49   printf (comparison);
  50 #endif
  51   buf[0] = '\0';
  52
  53   if (errors != 0)
  54     abort ();
  55 }
  56
  57 void __attribute__((noinline))
  58 sse_tests (void)
  59 {
  60   /* pshufw */
  61   c64.v = _mm_shuffle_pi16 (m64_64, 0x1b);
  62   dump64_16 (buf, "_mm_shuffle_pi16", c64);
  63 }
  64
  65 void
  66 dump64_16 (char *buf, char *name, vecInWord x)
  67 {
  68   int i;
  69   char *p = buf + strlen (buf);
  70
  71   sprintf (p, "%s ", name);
  72   p += strlen (p);
  73
  74   for (i=0; i<4; i++)
  75     {
  76       sprintf (p, "%4.4x ", x.s[i]);
  77       p += strlen (p);
  78     }
  79   strcat (p, "\n");
  80 }
  81
  82 int
  83 check (const char *input, const char *reference[])
  84 {
  85   int broken, i, j, len;
  86   const char *p_input;
  87   char *p_comparison;
  88   int new_errors = 0;
  89
  90   p_comparison = &comparison[0];
  91   p_input = input;
  92
  93   for (i = 0; *reference[i] != '\0'; i++)
  94     {
  95       broken = 0;
  96       len = strlen (reference[i]);
  97       for (j = 0; j < len; j++)
  98         {
  99           /* Ignore the terminating NUL characters at the end of every string in 'reference[]'.  */
 100           if (!broken && *p_input != reference[i][j])
 101             {
 102               *p_comparison = '\0';
 103               strcat (p_comparison, " >>> ");
 104               p_comparison += strlen (p_comparison);
 105               new_errors++;
 106               broken = 1;
 107             }
 108           *p_comparison = *p_input;
 109           p_comparison++;
 110           p_input++;
 111         }
 112       if (broken)
 113         {
 114           *p_comparison = '\0';
 115           strcat (p_comparison, "expected:\n");
 116           strcat (p_comparison, reference[i]);
 117           p_comparison += strlen (p_comparison);
 118         }
 119     }
 120   *p_comparison = '\0';
 121   strcat (p_comparison, new_errors ? "failure\n\n" : "O.K.\n\n") ;
 122   errors += new_errors;
 123   return 0;
 124 }