Subversion Repositories openrisc

/* Driver fragment for __builtin_shuffle of any vector shape.  */

extern void abort (void);

#ifndef UNSUPPORTED

V a, b, c, d;

#define T(num, msk...) \

__attribute__((noinline, noclone)) void         \

test_##num (void)                               \

{                                               \

  VI mask = { msk };                            \

  int i;                                        \

  c = __builtin_shuffle (a, mask);              \

  d = __builtin_shuffle (a, b, mask);           \

  __asm ("" : : "r" (&c), "r" (&d) : "memory");  \

  for (i = 0; i < N; ++i)                       \

    if (c[i] != a[mask[i] & (N - 1)])           \

      abort ();                                 \

    else if ((mask[i] & N))                     \

      {                                         \

        if (d[i] != b[mask[i] & (N - 1)])       \

          abort ();                             \

      }                                         \

    else if (d[i] != a[mask[i] & (N - 1)])      \

      abort ();                                 \

}

TESTS

#ifdef EXPENSIVE

EXPTESTS

#endif

#endif

int

main ()

{

#ifndef UNSUPPORTED

  int i;

  for (i = 0; i < N; ++i)

    {

      a[i] = i + 2;

      b[i] = N + i + 2;

    }

#undef T

#define T(num, msk...) \

  test_##num ();

  TESTS

#ifdef EXPENSIVE

  EXPTESTS

#endif

#endif

  return 0;

}