131 lines
2.5 KiB
C
131 lines
2.5 KiB
C
/* { dg-do run } */
|
|
/* { dg-require-effective-target sse4 } */
|
|
/* { dg-options "-O2 -msse4.1" } */
|
|
|
|
#ifndef CHECK_H
|
|
#define CHECK_H "sse4_1-check.h"
|
|
#endif
|
|
|
|
#ifndef TEST
|
|
#define TEST sse4_1_test
|
|
#endif
|
|
|
|
#include CHECK_H
|
|
|
|
#include <smmintrin.h>
|
|
#include <string.h>
|
|
|
|
#define msk0 0xC0
|
|
#define msk1 0x01
|
|
#define msk2 0xF2
|
|
#define msk3 0x03
|
|
#define msk4 0x84
|
|
#define msk5 0x05
|
|
#define msk6 0xE6
|
|
#define msk7 0x67
|
|
|
|
static __m128i
|
|
compute_mpsadbw (unsigned char *v1, unsigned char *v2, int mask)
|
|
{
|
|
union
|
|
{
|
|
__m128i x;
|
|
unsigned short s[8];
|
|
} ret;
|
|
unsigned char s[4];
|
|
int i, j;
|
|
int offs1, offs2;
|
|
|
|
offs2 = 4 * (mask & 3);
|
|
for (i = 0; i < 4; i++)
|
|
s[i] = v2[offs2 + i];
|
|
|
|
offs1 = 4 * ((mask & 4) >> 2);
|
|
for (j = 0; j < 8; j++)
|
|
{
|
|
ret.s[j] = 0;
|
|
for (i = 0; i < 4; i++)
|
|
ret.s[j] += abs (v1[offs1 + j + i] - s[i]);
|
|
}
|
|
|
|
return ret.x;
|
|
}
|
|
|
|
static void
|
|
TEST (void)
|
|
{
|
|
union
|
|
{
|
|
__m128i x;
|
|
unsigned int i[4];
|
|
unsigned char c[16];
|
|
} val1, val2, val3 [8];
|
|
__m128i res[8], tmp;
|
|
unsigned char masks[8];
|
|
int i;
|
|
|
|
val1.i[0] = 0x35251505;
|
|
val1.i[1] = 0x75655545;
|
|
val1.i[2] = 0xB5A59585;
|
|
val1.i[3] = 0xF5E5D5C5;
|
|
|
|
val2.i[0] = 0x31211101;
|
|
val2.i[1] = 0x71615141;
|
|
val2.i[2] = 0xB1A19181;
|
|
val2.i[3] = 0xF1E1D1C1;
|
|
|
|
for (i=0; i < 8; i++)
|
|
switch (i % 3)
|
|
{
|
|
case 1:
|
|
val3[i].i[0] = 0xF1E1D1C1;
|
|
val3[i].i[1] = 0xB1A19181;
|
|
val3[i].i[2] = 0x71615141;
|
|
val3[i].i[3] = 0x31211101;
|
|
break;
|
|
default:
|
|
val3[i].x = val2.x;
|
|
break;
|
|
}
|
|
|
|
/* Check mpsadbw imm8, xmm, xmm. */
|
|
res[0] = _mm_mpsadbw_epu8 (val1.x, val2.x, msk0);
|
|
res[1] = _mm_mpsadbw_epu8 (val1.x, val2.x, msk1);
|
|
res[2] = _mm_mpsadbw_epu8 (val1.x, val2.x, msk2);
|
|
res[3] = _mm_mpsadbw_epu8 (val1.x, val2.x, msk3);
|
|
res[4] = _mm_mpsadbw_epu8 (val1.x, val2.x, msk4);
|
|
res[5] = _mm_mpsadbw_epu8 (val1.x, val2.x, msk5);
|
|
res[6] = _mm_mpsadbw_epu8 (val1.x, val2.x, msk6);
|
|
res[7] = _mm_mpsadbw_epu8 (val1.x, val2.x, msk7);
|
|
|
|
masks[0] = msk0;
|
|
masks[1] = msk1;
|
|
masks[2] = msk2;
|
|
masks[3] = msk3;
|
|
masks[4] = msk4;
|
|
masks[5] = msk5;
|
|
masks[6] = msk6;
|
|
masks[7] = msk7;
|
|
|
|
for (i=0; i < 8; i++)
|
|
{
|
|
tmp = compute_mpsadbw (val1.c, val2.c, masks[i]);
|
|
if (memcmp (&tmp, &res[i], sizeof (tmp)))
|
|
abort ();
|
|
}
|
|
|
|
/* Check mpsadbw imm8, m128, xmm. */
|
|
for (i=0; i < 8; i++)
|
|
{
|
|
res[i] = _mm_mpsadbw_epu8 (val1.x, val3[i].x, msk4);
|
|
masks[i] = msk4;
|
|
}
|
|
|
|
for (i=0; i < 8; i++)
|
|
{
|
|
tmp = compute_mpsadbw (val1.c, val3[i].c, masks[i]);
|
|
if (memcmp (&tmp, &res[i], sizeof (tmp)))
|
|
abort ();
|
|
}
|
|
}
|