Update version for v6.2.0-rc4 release
[qemu.git] / target / s390x / cpu_features.c
1 /*
2 * CPU features/facilities for s390x
3 *
4 * Copyright IBM Corp. 2016, 2018
5 * Copyright Red Hat, Inc. 2019
6 *
7 * Author(s): David Hildenbrand <david@redhat.com>
8 *
9 * This work is licensed under the terms of the GNU GPL, version 2 or (at
10 * your option) any later version. See the COPYING file in the top-level
11 * directory.
12 */
13
14 #include "qemu/osdep.h"
15 #include "qemu/module.h"
16 #include "cpu_features.h"
17 #include "hw/s390x/pv.h"
18
19 #define DEF_FEAT(_FEAT, _NAME, _TYPE, _BIT, _DESC) \
20 [S390_FEAT_##_FEAT] = { \
21 .name = _NAME, \
22 .type = S390_FEAT_TYPE_##_TYPE, \
23 .bit = _BIT, \
24 .desc = _DESC, \
25 },
26 static const S390FeatDef s390_features[S390_FEAT_MAX] = {
27 #include "cpu_features_def.h.inc"
28 };
29 #undef DEF_FEAT
30
31 const S390FeatDef *s390_feat_def(S390Feat feat)
32 {
33 return &s390_features[feat];
34 }
35
36 S390Feat s390_feat_by_type_and_bit(S390FeatType type, int bit)
37 {
38 S390Feat feat;
39
40 for (feat = 0; feat < ARRAY_SIZE(s390_features); feat++) {
41 if (s390_features[feat].type == type &&
42 s390_features[feat].bit == bit) {
43 return feat;
44 }
45 }
46 return S390_FEAT_MAX;
47 }
48
49 void s390_init_feat_bitmap(const S390FeatInit init, S390FeatBitmap bitmap)
50 {
51 int i, j;
52
53 for (i = 0; i < (S390_FEAT_MAX / 64 + 1); i++) {
54 if (init[i]) {
55 for (j = 0; j < 64; j++) {
56 if (init[i] & 1ULL << j) {
57 set_bit(i * 64 + j, bitmap);
58 }
59 }
60 }
61 }
62 }
63
64 void s390_fill_feat_block(const S390FeatBitmap features, S390FeatType type,
65 uint8_t *data)
66 {
67 S390Feat feat;
68 int bit_nr;
69
70 switch (type) {
71 case S390_FEAT_TYPE_STFL:
72 if (test_bit(S390_FEAT_ZARCH, features)) {
73 /* Features that are always active */
74 set_be_bit(2, data); /* z/Architecture */
75 set_be_bit(138, data); /* Configuration-z-architectural-mode */
76 }
77 break;
78 case S390_FEAT_TYPE_PTFF:
79 case S390_FEAT_TYPE_KMAC:
80 case S390_FEAT_TYPE_KMC:
81 case S390_FEAT_TYPE_KM:
82 case S390_FEAT_TYPE_KIMD:
83 case S390_FEAT_TYPE_KLMD:
84 case S390_FEAT_TYPE_PCKMO:
85 case S390_FEAT_TYPE_KMCTR:
86 case S390_FEAT_TYPE_KMF:
87 case S390_FEAT_TYPE_KMO:
88 case S390_FEAT_TYPE_PCC:
89 case S390_FEAT_TYPE_PPNO:
90 case S390_FEAT_TYPE_KMA:
91 case S390_FEAT_TYPE_KDSA:
92 case S390_FEAT_TYPE_SORTL:
93 case S390_FEAT_TYPE_DFLTCC:
94 set_be_bit(0, data); /* query is always available */
95 break;
96 default:
97 break;
98 };
99
100 feat = find_first_bit(features, S390_FEAT_MAX);
101 while (feat < S390_FEAT_MAX) {
102 if (s390_features[feat].type == type) {
103 bit_nr = s390_features[feat].bit;
104 /* big endian on uint8_t array */
105 set_be_bit(bit_nr, data);
106 }
107 feat = find_next_bit(features, S390_FEAT_MAX, feat + 1);
108 }
109
110 if (!s390_is_pv()) {
111 return;
112 }
113
114 /*
115 * Some facilities are not available for CPUs in protected mode:
116 * - All SIE facilities because SIE is not available
117 * - DIAG318
118 *
119 * As VMs can move in and out of protected mode the CPU model
120 * doesn't protect us from that problem because it is only
121 * validated at the start of the VM.
122 */
123 switch (type) {
124 case S390_FEAT_TYPE_SCLP_CPU:
125 clear_be_bit(s390_feat_def(S390_FEAT_SIE_F2)->bit, data);
126 clear_be_bit(s390_feat_def(S390_FEAT_SIE_SKEY)->bit, data);
127 clear_be_bit(s390_feat_def(S390_FEAT_SIE_GPERE)->bit, data);
128 clear_be_bit(s390_feat_def(S390_FEAT_SIE_SIIF)->bit, data);
129 clear_be_bit(s390_feat_def(S390_FEAT_SIE_SIGPIF)->bit, data);
130 clear_be_bit(s390_feat_def(S390_FEAT_SIE_IB)->bit, data);
131 clear_be_bit(s390_feat_def(S390_FEAT_SIE_CEI)->bit, data);
132 break;
133 case S390_FEAT_TYPE_SCLP_CONF_CHAR:
134 clear_be_bit(s390_feat_def(S390_FEAT_SIE_GSLS)->bit, data);
135 clear_be_bit(s390_feat_def(S390_FEAT_HPMA2)->bit, data);
136 clear_be_bit(s390_feat_def(S390_FEAT_SIE_KSS)->bit, data);
137 break;
138 case S390_FEAT_TYPE_SCLP_CONF_CHAR_EXT:
139 clear_be_bit(s390_feat_def(S390_FEAT_SIE_64BSCAO)->bit, data);
140 clear_be_bit(s390_feat_def(S390_FEAT_SIE_CMMA)->bit, data);
141 clear_be_bit(s390_feat_def(S390_FEAT_SIE_PFMFI)->bit, data);
142 clear_be_bit(s390_feat_def(S390_FEAT_SIE_IBS)->bit, data);
143 break;
144 case S390_FEAT_TYPE_SCLP_FAC134:
145 clear_be_bit(s390_feat_def(S390_FEAT_DIAG_318)->bit, data);
146 break;
147 default:
148 return;
149 }
150 }
151
152 void s390_add_from_feat_block(S390FeatBitmap features, S390FeatType type,
153 uint8_t *data)
154 {
155 int nr_bits, le_bit;
156
157 switch (type) {
158 case S390_FEAT_TYPE_STFL:
159 nr_bits = 16384;
160 break;
161 case S390_FEAT_TYPE_PLO:
162 case S390_FEAT_TYPE_SORTL:
163 case S390_FEAT_TYPE_DFLTCC:
164 nr_bits = 256;
165 break;
166 default:
167 /* all cpu subfunctions have 128 bit */
168 nr_bits = 128;
169 };
170
171 le_bit = find_first_bit((unsigned long *) data, nr_bits);
172 while (le_bit < nr_bits) {
173 /* convert the bit number to a big endian bit nr */
174 S390Feat feat = s390_feat_by_type_and_bit(type, BE_BIT_NR(le_bit));
175 /* ignore unknown bits */
176 if (feat < S390_FEAT_MAX) {
177 set_bit(feat, features);
178 }
179 le_bit = find_next_bit((unsigned long *) data, nr_bits, le_bit + 1);
180 }
181 }
182
183 void s390_feat_bitmap_to_ascii(const S390FeatBitmap features, void *opaque,
184 void (*fn)(const char *name, void *opaque))
185 {
186 S390FeatBitmap bitmap, tmp;
187 S390FeatGroup group;
188 S390Feat feat;
189
190 bitmap_copy(bitmap, features, S390_FEAT_MAX);
191
192 /* process whole groups first */
193 for (group = 0; group < S390_FEAT_GROUP_MAX; group++) {
194 const S390FeatGroupDef *def = s390_feat_group_def(group);
195
196 bitmap_and(tmp, bitmap, def->feat, S390_FEAT_MAX);
197 if (bitmap_equal(tmp, def->feat, S390_FEAT_MAX)) {
198 bitmap_andnot(bitmap, bitmap, def->feat, S390_FEAT_MAX);
199 fn(def->name, opaque);
200 }
201 }
202
203 /* report leftovers as separate features */
204 feat = find_first_bit(bitmap, S390_FEAT_MAX);
205 while (feat < S390_FEAT_MAX) {
206 fn(s390_feat_def(feat)->name, opaque);
207 feat = find_next_bit(bitmap, S390_FEAT_MAX, feat + 1);
208 };
209 }
210
211 #define FEAT_GROUP_INIT(_name, _group, _desc) \
212 { \
213 .name = _name, \
214 .desc = _desc, \
215 .init = { S390_FEAT_GROUP_LIST_ ## _group }, \
216 }
217
218 /* indexed by feature group number for easy lookup */
219 static S390FeatGroupDef s390_feature_groups[] = {
220 FEAT_GROUP_INIT("plo", PLO, "Perform-locked-operation facility"),
221 FEAT_GROUP_INIT("tods", TOD_CLOCK_STEERING, "Tod-clock-steering facility"),
222 FEAT_GROUP_INIT("gen13ptff", GEN13_PTFF, "PTFF enhancements introduced with z13"),
223 FEAT_GROUP_INIT("msa", MSA, "Message-security-assist facility"),
224 FEAT_GROUP_INIT("msa1", MSA_EXT_1, "Message-security-assist-extension 1 facility"),
225 FEAT_GROUP_INIT("msa2", MSA_EXT_2, "Message-security-assist-extension 2 facility"),
226 FEAT_GROUP_INIT("msa3", MSA_EXT_3, "Message-security-assist-extension 3 facility"),
227 FEAT_GROUP_INIT("msa4", MSA_EXT_4, "Message-security-assist-extension 4 facility"),
228 FEAT_GROUP_INIT("msa5", MSA_EXT_5, "Message-security-assist-extension 5 facility"),
229 FEAT_GROUP_INIT("msa6", MSA_EXT_6, "Message-security-assist-extension 6 facility"),
230 FEAT_GROUP_INIT("msa7", MSA_EXT_7, "Message-security-assist-extension 7 facility"),
231 FEAT_GROUP_INIT("msa8", MSA_EXT_8, "Message-security-assist-extension 8 facility"),
232 FEAT_GROUP_INIT("msa9", MSA_EXT_9, "Message-security-assist-extension 9 facility"),
233 FEAT_GROUP_INIT("msa9_pckmo", MSA_EXT_9_PCKMO, "Message-security-assist-extension 9 PCKMO subfunctions"),
234 FEAT_GROUP_INIT("mepochptff", MULTIPLE_EPOCH_PTFF, "PTFF enhancements introduced with Multiple-epoch facility"),
235 FEAT_GROUP_INIT("esort", ENH_SORT, "Enhanced-sort facility"),
236 FEAT_GROUP_INIT("deflate", DEFLATE_CONVERSION, "Deflate-conversion facility"),
237 };
238
239 const S390FeatGroupDef *s390_feat_group_def(S390FeatGroup group)
240 {
241 return &s390_feature_groups[group];
242 }
243
244 static void init_groups(void)
245 {
246 int i;
247
248 /* init all bitmaps from gnerated data initially */
249 for (i = 0; i < ARRAY_SIZE(s390_feature_groups); i++) {
250 s390_init_feat_bitmap(s390_feature_groups[i].init,
251 s390_feature_groups[i].feat);
252 }
253 }
254
255 type_init(init_groups)