2  * QEMU TCG support -- s390x vector utilitites
10  * See the COPYING file in the top-level directory.
30  * B:  [ 0][ 1][ 2][ 3][ 4][ 5][ 6][ 7] - [ 8][ 9][10][11][12][13][14][15]
31  * HW: [     0][     1][     2][     3] - [     4][     5][     6][     7]
32  * W:  [             0][             1] - [             2][             3]
33  * DW: [                             0] - [                             1]
36  * B:  [ 7][ 6][ 5][ 4][ 3][ 2][ 1][ 0] - [15][14][13][12][11][10][ 9][ 8]
37  * HW: [     3][     2][     1][     0] - [     7][     6][     5][     4]
38  * W:  [             1][             0] - [             3][             2]
39  * DW: [                             0] - [                             1]
43 #define H2(x)  ((x) ^ 3)
51 static inline uint8_t s390_vec_read_element8(const S390Vector *v, uint8_t enr)  in s390_vec_read_element8()  argument
54     return v->byte[H1(enr)];  in s390_vec_read_element8()
57 static inline uint16_t s390_vec_read_element16(const S390Vector *v, uint8_t enr)  in s390_vec_read_element16()  argument
60     return v->halfword[H2(enr)];  in s390_vec_read_element16()
63 static inline uint32_t s390_vec_read_element32(const S390Vector *v, uint8_t enr)  in s390_vec_read_element32()  argument
66     return v->word[H4(enr)];  in s390_vec_read_element32()
69 static inline uint64_t s390_vec_read_element64(const S390Vector *v, uint8_t enr)  in s390_vec_read_element64()  argument
72     return v->doubleword[enr];  in s390_vec_read_element64()
75 static inline uint64_t s390_vec_read_element(const S390Vector *v, uint8_t enr,  in s390_vec_read_element()  argument
80         return s390_vec_read_element8(v, enr);  in s390_vec_read_element()
82         return s390_vec_read_element16(v, enr);  in s390_vec_read_element()
84         return s390_vec_read_element32(v, enr);  in s390_vec_read_element()
86         return s390_vec_read_element64(v, enr);  in s390_vec_read_element()
92 static inline void s390_vec_write_element8(S390Vector *v, uint8_t enr,  in s390_vec_write_element8()  argument
96     v->byte[H1(enr)] = data;  in s390_vec_write_element8()
99 static inline void s390_vec_write_element16(S390Vector *v, uint8_t enr,  in s390_vec_write_element16()  argument
103     v->halfword[H2(enr)] = data;  in s390_vec_write_element16()
106 static inline void s390_vec_write_element32(S390Vector *v, uint8_t enr,  in s390_vec_write_element32()  argument
110     v->word[H4(enr)] = data;  in s390_vec_write_element32()
113 static inline void s390_vec_write_element64(S390Vector *v, uint8_t enr,  in s390_vec_write_element64()  argument
117     v->doubleword[enr] = data;  in s390_vec_write_element64()
120 static inline void s390_vec_write_element(S390Vector *v, uint8_t enr,  in s390_vec_write_element()  argument
125         s390_vec_write_element8(v, enr, data);  in s390_vec_write_element()
128         s390_vec_write_element16(v, enr, data);  in s390_vec_write_element()
131         s390_vec_write_element32(v, enr, data);  in s390_vec_write_element()
134         s390_vec_write_element64(v, enr, data);  in s390_vec_write_element()