Subversion Repositories openrisc

/* { dg-do compile } */
/* { dg-options "-mcpu=ultrasparc -mvis -O1 -fdump-tree-final_cleanup" } */
 
typedef long long int64_t;
typedef unsigned char vec8 __attribute__((vector_size(8)));
 
#define _(A) (unsigned char)A
 
int64_t foo () {
  int64_t d = 2;
  vec8 a = { _(1), _(2), _(3), _(4), _(5), _(6), _(7), _(255) };
  vec8 b = { _(2), _(4), _(8), _(16), _(32), _(64), _(128), _(8) };
  d = __builtin_vis_pdist (a, b, d);
  return d;
}
 
/* { dg-final { scan-assembler-not "pdist\t%" } } */
/* { dg-final { scan-tree-dump "return 475" "final_cleanup" } } */
/* { dg-final { cleanup-tree-dump "final_cleanup" } } */