1 /* 2 * QEMU TCG support -- s390x vector utilitites 3 * 4 * Copyright (C) 2019 Red Hat Inc 5 * 6 * Authors: 7 * David Hildenbrand <david@redhat.com> 8 * 9 * This work is licensed under the terms of the GNU GPL, version 2 or later. 10 * See the COPYING file in the top-level directory. 11 */ 12 #ifndef S390X_VEC_H 13 #define S390X_VEC_H 14 15 #include "tcg/tcg.h" 16 17 typedef union S390Vector { 18 uint64_t doubleword[2]; 19 uint32_t word[4]; 20 uint16_t halfword[8]; 21 uint8_t byte[16]; 22 } S390Vector; 23 24 /* 25 * Each vector is stored as two 64bit host values. So when talking about 26 * byte/halfword/word numbers, we have to take care of proper translation 27 * between element numbers. 28 * 29 * Big Endian (target/possible host) 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] 34 * 35 * Little Endian (possible host) 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] 40 */ 41 #ifndef HOST_WORDS_BIGENDIAN 42 #define H1(x) ((x) ^ 7) 43 #define H2(x) ((x) ^ 3) 44 #define H4(x) ((x) ^ 1) 45 #else 46 #define H1(x) (x) 47 #define H2(x) (x) 48 #define H4(x) (x) 49 #endif 50 51 static inline uint8_t s390_vec_read_element8(const S390Vector *v, uint8_t enr) 52 { 53 g_assert(enr < 16); 54 return v->byte[H1(enr)]; 55 } 56 57 static inline uint16_t s390_vec_read_element16(const S390Vector *v, uint8_t enr) 58 { 59 g_assert(enr < 8); 60 return v->halfword[H2(enr)]; 61 } 62 63 static inline uint32_t s390_vec_read_element32(const S390Vector *v, uint8_t enr) 64 { 65 g_assert(enr < 4); 66 return v->word[H4(enr)]; 67 } 68 69 static inline uint64_t s390_vec_read_element64(const S390Vector *v, uint8_t enr) 70 { 71 g_assert(enr < 2); 72 return v->doubleword[enr]; 73 } 74 75 static inline uint64_t s390_vec_read_element(const S390Vector *v, uint8_t enr, 76 uint8_t es) 77 { 78 switch (es) { 79 case MO_8: 80 return s390_vec_read_element8(v, enr); 81 case MO_16: 82 return s390_vec_read_element16(v, enr); 83 case MO_32: 84 return s390_vec_read_element32(v, enr); 85 case MO_64: 86 return s390_vec_read_element64(v, enr); 87 default: 88 g_assert_not_reached(); 89 } 90 } 91 92 static inline void s390_vec_write_element8(S390Vector *v, uint8_t enr, 93 uint8_t data) 94 { 95 g_assert(enr < 16); 96 v->byte[H1(enr)] = data; 97 } 98 99 static inline void s390_vec_write_element16(S390Vector *v, uint8_t enr, 100 uint16_t data) 101 { 102 g_assert(enr < 8); 103 v->halfword[H2(enr)] = data; 104 } 105 106 static inline void s390_vec_write_element32(S390Vector *v, uint8_t enr, 107 uint32_t data) 108 { 109 g_assert(enr < 4); 110 v->word[H4(enr)] = data; 111 } 112 113 static inline void s390_vec_write_element64(S390Vector *v, uint8_t enr, 114 uint64_t data) 115 { 116 g_assert(enr < 2); 117 v->doubleword[enr] = data; 118 } 119 120 static inline void s390_vec_write_element(S390Vector *v, uint8_t enr, 121 uint8_t es, uint64_t data) 122 { 123 switch (es) { 124 case MO_8: 125 s390_vec_write_element8(v, enr, data); 126 break; 127 case MO_16: 128 s390_vec_write_element16(v, enr, data); 129 break; 130 case MO_32: 131 s390_vec_write_element32(v, enr, data); 132 break; 133 case MO_64: 134 s390_vec_write_element64(v, enr, data); 135 break; 136 default: 137 g_assert_not_reached(); 138 } 139 } 140 141 #endif /* S390X_VEC_H */ 142