1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
/* { dg-do compile { target { powerpc64le-*-* } } } */
/* { dg-skip-if "do not override -mcpu" { powerpc*-*-* } { "-mcpu=*" } { "-mcpu=power8" } } */
/* { dg-options "-mcpu=power8 -O3" } */
/* { dg-final { scan-assembler "lxvd2x" } } */
/* { dg-final { scan-assembler "stxvd2x" } } */
/* { dg-final { scan-assembler "vspltw" } } */
/* { dg-final { scan-assembler-not "xxpermdi" } } */
#include <altivec.h>
void abort();
typedef struct xx {vector double l; vector double h;} xx;
#define N 4096
#define M 10000000
vector float ca[N][4] = {0};
vector float cb[N][4] = {0};
vector float cc[N][4] = {0};
__attribute__((noinline)) void foo ()
{
int i;
vector float brow;
for (i = 0; i < N; i++) {
brow = cb[i][0];
cc[i][0] = vec_mul(vec_splats(brow[0]), ca[i][0]);
cc[i][0] = vec_madd(cc[i][0],vec_splats(brow[1]), ca[i][1]);
cc[i][0] = vec_madd(cc[i][0],vec_splats(brow[2]), ca[i][2]);
cc[i][0] = vec_madd(cc[i][0],vec_splats(brow[3]), ca[i][3]);
brow = cb[i][1];
cc[i][1] = vec_mul(vec_splats(brow[0]), ca[i][0]);
cc[i][1] = vec_madd(cc[i][0],vec_splats(brow[1]), ca[i][1]);
cc[i][1] = vec_madd(cc[i][0],vec_splats(brow[2]), ca[i][2]);
cc[i][1] = vec_madd(cc[i][0],vec_splats(brow[3]), ca[i][3]);
brow = cb[i][2];
cc[i][2] = vec_mul(vec_splats(brow[0]), ca[i][0]);
cc[i][2] = vec_madd(cc[i][0],vec_splats(brow[1]), ca[i][1]);
cc[i][2] = vec_madd(cc[i][0],vec_splats(brow[2]), ca[i][2]);
cc[i][2] = vec_madd(cc[i][0],vec_splats(brow[3]), ca[i][3]);
brow = cb[i][3];
cc[i][3] = vec_mul(vec_splats(brow[0]), ca[i][0]);
cc[i][3] = vec_madd(cc[i][0],vec_splats(brow[1]), ca[i][1]);
cc[i][3] = vec_madd(cc[i][0],vec_splats(brow[2]), ca[i][2]);
cc[i][3] = vec_madd(cc[i][0],vec_splats(brow[3]), ca[i][3]);
}
}
int main ()
{
foo ();
return 0;
}
|
