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