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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
/*
Test of vec_xst_trunc (truncate and store rightmost vector element) */
/* { dg-do run { target power10_hw } } */
/* { dg-do compile { target { ! power10_hw } } } */
/* { dg-require-effective-target power10_ok } */
/* { dg-require-effective-target int128 } */
/* Deliberately set optization to zero for this test to confirm
the stxvr*x instruction is generated. At higher optimization levels
the instruction we are looking for is sometimes replaced by other
store instructions. */
/* { dg-options "-mdejagnu-cpu=power10 -O0 -save-temps" } */
/* { dg-final { scan-assembler-times {\mstxvrbx\M} 2 } } */
/* { dg-final { scan-assembler-times {\mstbx\M} 0 } } */
#include <altivec.h>
#include <stdio.h>
#include <inttypes.h>
#include <string.h>
#include <stdlib.h>
vector signed __int128 store_this_s[4] = {
{ (__int128) 0x7000000000000000 << 64 | (__int128) 0x123456789abcdef8ULL},
{ (__int128) 0x8000000000000000 << 64 | (__int128) 0xfedcba9876543217ULL},
{ (__int128) 0x1000000000000000 << 64 | (__int128) 0xccccccccccccccccULL},
{ (__int128) 0xf000000000000000 << 64 | (__int128) 0xaaaaaaaaaaaaaaaaULL}
};
vector unsigned __int128 store_this_us[4] = {
{ (unsigned __int128) 0x7000000000000000 << 64 | (unsigned __int128) 0x123456789abcdef8ULL},
{ (unsigned __int128) 0x8000000000000000 << 64 | (unsigned __int128) 0xfedcba9876543217ULL},
{ (unsigned __int128) 0x1000000000000000 << 64 | (unsigned __int128) 0xeeeeeeeeeeeeeeeeULL},
{ (unsigned __int128) 0xf000000000000000 << 64 | (unsigned __int128) 0x5555555555555555ULL}
};
#define NUM_VEC_ELEMS 16
vector signed char signed_expected[4] = {
{ 0xf8, 0x0, 0x0, 0x0, 0x0 , 0x0, 0x0, 0x0, 0x0 , 0x0, 0x0, 0x0, 0x0 , 0x0, 0x0, 0x0},
{ 0x0 , 0x0, 0x0, 0x0, 0x17, 0x0, 0x0, 0x0, 0x0 , 0x0, 0x0, 0x0, 0x0 , 0x0, 0x0, 0x0},
{ 0x0 , 0x0, 0x0, 0x0, 0x0 , 0x0, 0x0, 0x0, 0xcc, 0x0, 0x0, 0x0, 0x0 , 0x0, 0x0, 0x0},
{ 0x0 , 0x0, 0x0, 0x0, 0x0 , 0x0, 0x0, 0x0, 0x0 , 0x0, 0x0, 0x0, 0xaa, 0x0, 0x0, 0x0}
};
vector unsigned char unsigned_expected[4] = {
{ 0xf8, 0x0, 0x0, 0x0, 0x0 , 0x0, 0x0, 0x0, 0x0 , 0x0, 0x0, 0x0, 0x0 , 0x0, 0x0, 0x0},
{ 0x0 , 0x0, 0x0, 0x0, 0x17, 0x0, 0x0, 0x0, 0x0 , 0x0, 0x0, 0x0, 0x0 , 0x0, 0x0, 0x0},
{ 0x0 , 0x0, 0x0, 0x0, 0x0 , 0x0, 0x0, 0x0, 0xee, 0x0, 0x0, 0x0, 0x0 , 0x0, 0x0, 0x0},
{ 0x0 , 0x0, 0x0, 0x0, 0x0 , 0x0, 0x0, 0x0, 0x0 , 0x0, 0x0, 0x0, 0x55, 0x0, 0x0, 0x0}
};
unsigned long long rawbuffer[32];
signed char * vsbuffer = (char *)rawbuffer;
unsigned char * vubuffer = (unsigned char *)rawbuffer;
void reset_buffer() {
memset (&rawbuffer,0,sizeof(rawbuffer));
}
#define PRINT_VEC(V) \
for (int j=0;j<NUM_VEC_ELEMS;j++) { printf ("(0x%lx) ", V[j] ); }
void test_signed_store(vector signed __int128 myvec, int offset, signed char * store_data ) {
vec_xst_trunc (myvec, offset, store_data );
}
void test_unsigned_store(vector unsigned __int128 myvec, int offset, unsigned char * store_data ) {
vec_xst_trunc (myvec, offset, store_data );
}
int main (int argc, char *argv [])
{
int i;
int memcmpresult;
int mismatch=0;
int verbose=0;
#if VERBOSE
verbose=1;
printf("%s %s\n", __DATE__, __TIME__);
#endif
if (verbose) {
printf("expected results from signed tests:\n");
for (i = 0; i < 4 ; i++ ) {
PRINT_VEC(signed_expected[i]);
printf("\n");
}
}
for (i = 0; i < 4 ; i++ ) {
reset_buffer();
test_signed_store (store_this_s[i], 4*i, vsbuffer);
memcmpresult = memcmp(rawbuffer,&signed_expected[i],sizeof(vector char));
if (memcmpresult) {
printf("mismatch signed buffer, i %d (memcmpresult:%d) \n",i,memcmpresult);
mismatch++;
if (verbose) {
printf("results: ");
PRINT_VEC(vsbuffer);
printf("\n");
}
}
}
for (i = 0; i < 4 ; i++ ) {
reset_buffer();
test_unsigned_store (store_this_us[i], 4*i, vubuffer);
memcmpresult = memcmp(rawbuffer,&unsigned_expected[i],sizeof(vector char));
if (memcmpresult) {
printf("mismatch unsigned buffer, i %d (memcmpresult:%d) \n",i,memcmpresult);
mismatch++;
if (verbose) {
printf("results :");
PRINT_VEC(vubuffer);
printf("\n");
}
}
}
if (mismatch) {
printf("%d mismatches. \n",mismatch);
abort();
}
return 0;
}
|
