1 /* 2 * kvm guest debug support 3 * 4 * Copyright IBM Corp. 2014 5 * 6 * This program is free software; you can redistribute it and/or modify 7 * it under the terms of the GNU General Public License (version 2 only) 8 * as published by the Free Software Foundation. 9 * 10 * Author(s): David Hildenbrand <dahi@linux.vnet.ibm.com> 11 */ 12 #include <linux/kvm_host.h> 13 #include <linux/errno.h> 14 #include "kvm-s390.h" 15 #include "gaccess.h" 16 17 /* 18 * Extends the address range given by *start and *stop to include the address 19 * range starting with estart and the length len. Takes care of overflowing 20 * intervals and tries to minimize the overall interval size. 21 */ 22 static void extend_address_range(u64 *start, u64 *stop, u64 estart, int len) 23 { 24 u64 estop; 25 26 if (len > 0) 27 len--; 28 else 29 len = 0; 30 31 estop = estart + len; 32 33 /* 0-0 range represents "not set" */ 34 if ((*start == 0) && (*stop == 0)) { 35 *start = estart; 36 *stop = estop; 37 } else if (*start <= *stop) { 38 /* increase the existing range */ 39 if (estart < *start) 40 *start = estart; 41 if (estop > *stop) 42 *stop = estop; 43 } else { 44 /* "overflowing" interval, whereby *stop > *start */ 45 if (estart <= *stop) { 46 if (estop > *stop) 47 *stop = estop; 48 } else if (estop > *start) { 49 if (estart < *start) 50 *start = estart; 51 } 52 /* minimize the range */ 53 else if ((estop - *stop) < (*start - estart)) 54 *stop = estop; 55 else 56 *start = estart; 57 } 58 } 59 60 #define MAX_INST_SIZE 6 61 62 static void enable_all_hw_bp(struct kvm_vcpu *vcpu) 63 { 64 unsigned long start, len; 65 u64 *cr9 = &vcpu->arch.sie_block->gcr[9]; 66 u64 *cr10 = &vcpu->arch.sie_block->gcr[10]; 67 u64 *cr11 = &vcpu->arch.sie_block->gcr[11]; 68 int i; 69 70 if (vcpu->arch.guestdbg.nr_hw_bp <= 0 || 71 vcpu->arch.guestdbg.hw_bp_info == NULL) 72 return; 73 74 /* 75 * If the guest is not interested in branching events, we can safely 76 * limit them to the PER address range. 77 */ 78 if (!(*cr9 & PER_EVENT_BRANCH)) 79 *cr9 |= PER_CONTROL_BRANCH_ADDRESS; 80 *cr9 |= PER_EVENT_IFETCH | PER_EVENT_BRANCH; 81 82 for (i = 0; i < vcpu->arch.guestdbg.nr_hw_bp; i++) { 83 start = vcpu->arch.guestdbg.hw_bp_info[i].addr; 84 len = vcpu->arch.guestdbg.hw_bp_info[i].len; 85 86 /* 87 * The instruction in front of the desired bp has to 88 * report instruction-fetching events 89 */ 90 if (start < MAX_INST_SIZE) { 91 len += start; 92 start = 0; 93 } else { 94 start -= MAX_INST_SIZE; 95 len += MAX_INST_SIZE; 96 } 97 98 extend_address_range(cr10, cr11, start, len); 99 } 100 } 101 102 static void enable_all_hw_wp(struct kvm_vcpu *vcpu) 103 { 104 unsigned long start, len; 105 u64 *cr9 = &vcpu->arch.sie_block->gcr[9]; 106 u64 *cr10 = &vcpu->arch.sie_block->gcr[10]; 107 u64 *cr11 = &vcpu->arch.sie_block->gcr[11]; 108 int i; 109 110 if (vcpu->arch.guestdbg.nr_hw_wp <= 0 || 111 vcpu->arch.guestdbg.hw_wp_info == NULL) 112 return; 113 114 /* if host uses storage alternation for special address 115 * spaces, enable all events and give all to the guest */ 116 if (*cr9 & PER_EVENT_STORE && *cr9 & PER_CONTROL_ALTERATION) { 117 *cr9 &= ~PER_CONTROL_ALTERATION; 118 *cr10 = 0; 119 *cr11 = -1UL; 120 } else { 121 *cr9 &= ~PER_CONTROL_ALTERATION; 122 *cr9 |= PER_EVENT_STORE; 123 124 for (i = 0; i < vcpu->arch.guestdbg.nr_hw_wp; i++) { 125 start = vcpu->arch.guestdbg.hw_wp_info[i].addr; 126 len = vcpu->arch.guestdbg.hw_wp_info[i].len; 127 128 extend_address_range(cr10, cr11, start, len); 129 } 130 } 131 } 132 133 void kvm_s390_backup_guest_per_regs(struct kvm_vcpu *vcpu) 134 { 135 vcpu->arch.guestdbg.cr0 = vcpu->arch.sie_block->gcr[0]; 136 vcpu->arch.guestdbg.cr9 = vcpu->arch.sie_block->gcr[9]; 137 vcpu->arch.guestdbg.cr10 = vcpu->arch.sie_block->gcr[10]; 138 vcpu->arch.guestdbg.cr11 = vcpu->arch.sie_block->gcr[11]; 139 } 140 141 void kvm_s390_restore_guest_per_regs(struct kvm_vcpu *vcpu) 142 { 143 vcpu->arch.sie_block->gcr[0] = vcpu->arch.guestdbg.cr0; 144 vcpu->arch.sie_block->gcr[9] = vcpu->arch.guestdbg.cr9; 145 vcpu->arch.sie_block->gcr[10] = vcpu->arch.guestdbg.cr10; 146 vcpu->arch.sie_block->gcr[11] = vcpu->arch.guestdbg.cr11; 147 } 148 149 void kvm_s390_patch_guest_per_regs(struct kvm_vcpu *vcpu) 150 { 151 /* 152 * TODO: if guest psw has per enabled, otherwise 0s! 153 * This reduces the amount of reported events. 154 * Need to intercept all psw changes! 155 */ 156 157 if (guestdbg_sstep_enabled(vcpu)) { 158 /* disable timer (clock-comparator) interrupts */ 159 vcpu->arch.sie_block->gcr[0] &= ~0x800ul; 160 vcpu->arch.sie_block->gcr[9] |= PER_EVENT_IFETCH; 161 vcpu->arch.sie_block->gcr[10] = 0; 162 vcpu->arch.sie_block->gcr[11] = -1UL; 163 } 164 165 if (guestdbg_hw_bp_enabled(vcpu)) { 166 enable_all_hw_bp(vcpu); 167 enable_all_hw_wp(vcpu); 168 } 169 170 /* TODO: Instruction-fetching-nullification not allowed for now */ 171 if (vcpu->arch.sie_block->gcr[9] & PER_EVENT_NULLIFICATION) 172 vcpu->arch.sie_block->gcr[9] &= ~PER_EVENT_NULLIFICATION; 173 } 174 175 #define MAX_WP_SIZE 100 176 177 static int __import_wp_info(struct kvm_vcpu *vcpu, 178 struct kvm_hw_breakpoint *bp_data, 179 struct kvm_hw_wp_info_arch *wp_info) 180 { 181 int ret = 0; 182 wp_info->len = bp_data->len; 183 wp_info->addr = bp_data->addr; 184 wp_info->phys_addr = bp_data->phys_addr; 185 wp_info->old_data = NULL; 186 187 if (wp_info->len < 0 || wp_info->len > MAX_WP_SIZE) 188 return -EINVAL; 189 190 wp_info->old_data = kmalloc(bp_data->len, GFP_KERNEL); 191 if (!wp_info->old_data) 192 return -ENOMEM; 193 /* try to backup the original value */ 194 ret = read_guest_abs(vcpu, wp_info->phys_addr, wp_info->old_data, 195 wp_info->len); 196 if (ret) { 197 kfree(wp_info->old_data); 198 wp_info->old_data = NULL; 199 } 200 201 return ret; 202 } 203 204 #define MAX_BP_COUNT 50 205 206 int kvm_s390_import_bp_data(struct kvm_vcpu *vcpu, 207 struct kvm_guest_debug *dbg) 208 { 209 int ret = 0, nr_wp = 0, nr_bp = 0, i; 210 struct kvm_hw_breakpoint *bp_data = NULL; 211 struct kvm_hw_wp_info_arch *wp_info = NULL; 212 struct kvm_hw_bp_info_arch *bp_info = NULL; 213 214 if (dbg->arch.nr_hw_bp <= 0 || !dbg->arch.hw_bp) 215 return 0; 216 else if (dbg->arch.nr_hw_bp > MAX_BP_COUNT) 217 return -EINVAL; 218 219 bp_data = memdup_user(dbg->arch.hw_bp, 220 sizeof(*bp_data) * dbg->arch.nr_hw_bp); 221 if (IS_ERR(bp_data)) 222 return PTR_ERR(bp_data); 223 224 for (i = 0; i < dbg->arch.nr_hw_bp; i++) { 225 switch (bp_data[i].type) { 226 case KVM_HW_WP_WRITE: 227 nr_wp++; 228 break; 229 case KVM_HW_BP: 230 nr_bp++; 231 break; 232 default: 233 break; 234 } 235 } 236 237 if (nr_wp > 0) { 238 wp_info = kmalloc_array(nr_wp, 239 sizeof(*wp_info), 240 GFP_KERNEL); 241 if (!wp_info) { 242 ret = -ENOMEM; 243 goto error; 244 } 245 } 246 if (nr_bp > 0) { 247 bp_info = kmalloc_array(nr_bp, 248 sizeof(*bp_info), 249 GFP_KERNEL); 250 if (!bp_info) { 251 ret = -ENOMEM; 252 goto error; 253 } 254 } 255 256 for (nr_wp = 0, nr_bp = 0, i = 0; i < dbg->arch.nr_hw_bp; i++) { 257 switch (bp_data[i].type) { 258 case KVM_HW_WP_WRITE: 259 ret = __import_wp_info(vcpu, &bp_data[i], 260 &wp_info[nr_wp]); 261 if (ret) 262 goto error; 263 nr_wp++; 264 break; 265 case KVM_HW_BP: 266 bp_info[nr_bp].len = bp_data[i].len; 267 bp_info[nr_bp].addr = bp_data[i].addr; 268 nr_bp++; 269 break; 270 } 271 } 272 273 vcpu->arch.guestdbg.nr_hw_bp = nr_bp; 274 vcpu->arch.guestdbg.hw_bp_info = bp_info; 275 vcpu->arch.guestdbg.nr_hw_wp = nr_wp; 276 vcpu->arch.guestdbg.hw_wp_info = wp_info; 277 return 0; 278 error: 279 kfree(bp_data); 280 kfree(wp_info); 281 kfree(bp_info); 282 return ret; 283 } 284 285 void kvm_s390_clear_bp_data(struct kvm_vcpu *vcpu) 286 { 287 int i; 288 struct kvm_hw_wp_info_arch *hw_wp_info = NULL; 289 290 for (i = 0; i < vcpu->arch.guestdbg.nr_hw_wp; i++) { 291 hw_wp_info = &vcpu->arch.guestdbg.hw_wp_info[i]; 292 kfree(hw_wp_info->old_data); 293 hw_wp_info->old_data = NULL; 294 } 295 kfree(vcpu->arch.guestdbg.hw_wp_info); 296 vcpu->arch.guestdbg.hw_wp_info = NULL; 297 298 kfree(vcpu->arch.guestdbg.hw_bp_info); 299 vcpu->arch.guestdbg.hw_bp_info = NULL; 300 301 vcpu->arch.guestdbg.nr_hw_wp = 0; 302 vcpu->arch.guestdbg.nr_hw_bp = 0; 303 } 304 305 static inline int in_addr_range(u64 addr, u64 a, u64 b) 306 { 307 if (a <= b) 308 return (addr >= a) && (addr <= b); 309 else 310 /* "overflowing" interval */ 311 return (addr <= a) && (addr >= b); 312 } 313 314 #define end_of_range(bp_info) (bp_info->addr + bp_info->len - 1) 315 316 static struct kvm_hw_bp_info_arch *find_hw_bp(struct kvm_vcpu *vcpu, 317 unsigned long addr) 318 { 319 struct kvm_hw_bp_info_arch *bp_info = vcpu->arch.guestdbg.hw_bp_info; 320 int i; 321 322 if (vcpu->arch.guestdbg.nr_hw_bp == 0) 323 return NULL; 324 325 for (i = 0; i < vcpu->arch.guestdbg.nr_hw_bp; i++) { 326 /* addr is directly the start or in the range of a bp */ 327 if (addr == bp_info->addr) 328 goto found; 329 if (bp_info->len > 0 && 330 in_addr_range(addr, bp_info->addr, end_of_range(bp_info))) 331 goto found; 332 333 bp_info++; 334 } 335 336 return NULL; 337 found: 338 return bp_info; 339 } 340 341 static struct kvm_hw_wp_info_arch *any_wp_changed(struct kvm_vcpu *vcpu) 342 { 343 int i; 344 struct kvm_hw_wp_info_arch *wp_info = NULL; 345 void *temp = NULL; 346 347 if (vcpu->arch.guestdbg.nr_hw_wp == 0) 348 return NULL; 349 350 for (i = 0; i < vcpu->arch.guestdbg.nr_hw_wp; i++) { 351 wp_info = &vcpu->arch.guestdbg.hw_wp_info[i]; 352 if (!wp_info || !wp_info->old_data || wp_info->len <= 0) 353 continue; 354 355 temp = kmalloc(wp_info->len, GFP_KERNEL); 356 if (!temp) 357 continue; 358 359 /* refetch the wp data and compare it to the old value */ 360 if (!read_guest_abs(vcpu, wp_info->phys_addr, temp, 361 wp_info->len)) { 362 if (memcmp(temp, wp_info->old_data, wp_info->len)) { 363 kfree(temp); 364 return wp_info; 365 } 366 } 367 kfree(temp); 368 temp = NULL; 369 } 370 371 return NULL; 372 } 373 374 void kvm_s390_prepare_debug_exit(struct kvm_vcpu *vcpu) 375 { 376 vcpu->run->exit_reason = KVM_EXIT_DEBUG; 377 vcpu->guest_debug &= ~KVM_GUESTDBG_EXIT_PENDING; 378 } 379 380 #define PER_CODE_MASK (PER_EVENT_MASK >> 24) 381 #define PER_CODE_BRANCH (PER_EVENT_BRANCH >> 24) 382 #define PER_CODE_IFETCH (PER_EVENT_IFETCH >> 24) 383 #define PER_CODE_STORE (PER_EVENT_STORE >> 24) 384 #define PER_CODE_STORE_REAL (PER_EVENT_STORE_REAL >> 24) 385 386 #define per_bp_event(code) \ 387 (code & (PER_CODE_IFETCH | PER_CODE_BRANCH)) 388 #define per_write_wp_event(code) \ 389 (code & (PER_CODE_STORE | PER_CODE_STORE_REAL)) 390 391 static int debug_exit_required(struct kvm_vcpu *vcpu, u8 perc, 392 unsigned long peraddr) 393 { 394 struct kvm_debug_exit_arch *debug_exit = &vcpu->run->debug.arch; 395 struct kvm_hw_wp_info_arch *wp_info = NULL; 396 struct kvm_hw_bp_info_arch *bp_info = NULL; 397 unsigned long addr = vcpu->arch.sie_block->gpsw.addr; 398 399 if (guestdbg_hw_bp_enabled(vcpu)) { 400 if (per_write_wp_event(perc) && 401 vcpu->arch.guestdbg.nr_hw_wp > 0) { 402 wp_info = any_wp_changed(vcpu); 403 if (wp_info) { 404 debug_exit->addr = wp_info->addr; 405 debug_exit->type = KVM_HW_WP_WRITE; 406 goto exit_required; 407 } 408 } 409 if (per_bp_event(perc) && 410 vcpu->arch.guestdbg.nr_hw_bp > 0) { 411 bp_info = find_hw_bp(vcpu, addr); 412 /* remove duplicate events if PC==PER address */ 413 if (bp_info && (addr != peraddr)) { 414 debug_exit->addr = addr; 415 debug_exit->type = KVM_HW_BP; 416 vcpu->arch.guestdbg.last_bp = addr; 417 goto exit_required; 418 } 419 /* breakpoint missed */ 420 bp_info = find_hw_bp(vcpu, peraddr); 421 if (bp_info && vcpu->arch.guestdbg.last_bp != peraddr) { 422 debug_exit->addr = peraddr; 423 debug_exit->type = KVM_HW_BP; 424 goto exit_required; 425 } 426 } 427 } 428 if (guestdbg_sstep_enabled(vcpu) && per_bp_event(perc)) { 429 debug_exit->addr = addr; 430 debug_exit->type = KVM_SINGLESTEP; 431 goto exit_required; 432 } 433 434 return 0; 435 exit_required: 436 return 1; 437 } 438 439 static int per_fetched_addr(struct kvm_vcpu *vcpu, unsigned long *addr) 440 { 441 u8 exec_ilen = 0; 442 u16 opcode[3]; 443 int rc; 444 445 if (vcpu->arch.sie_block->icptcode == ICPT_PROGI) { 446 /* PER address references the fetched or the execute instr */ 447 *addr = vcpu->arch.sie_block->peraddr; 448 /* 449 * Manually detect if we have an EXECUTE instruction. As 450 * instructions are always 2 byte aligned we can read the 451 * first two bytes unconditionally 452 */ 453 rc = read_guest_instr(vcpu, *addr, &opcode, 2); 454 if (rc) 455 return rc; 456 if (opcode[0] >> 8 == 0x44) 457 exec_ilen = 4; 458 if ((opcode[0] & 0xff0f) == 0xc600) 459 exec_ilen = 6; 460 } else { 461 /* instr was suppressed, calculate the responsible instr */ 462 *addr = __rewind_psw(vcpu->arch.sie_block->gpsw, 463 kvm_s390_get_ilen(vcpu)); 464 if (vcpu->arch.sie_block->icptstatus & 0x01) { 465 exec_ilen = (vcpu->arch.sie_block->icptstatus & 0x60) >> 4; 466 if (!exec_ilen) 467 exec_ilen = 4; 468 } 469 } 470 471 if (exec_ilen) { 472 /* read the complete EXECUTE instr to detect the fetched addr */ 473 rc = read_guest_instr(vcpu, *addr, &opcode, exec_ilen); 474 if (rc) 475 return rc; 476 if (exec_ilen == 6) { 477 /* EXECUTE RELATIVE LONG - RIL-b format */ 478 s32 rl = *((s32 *) (opcode + 1)); 479 480 /* rl is a _signed_ 32 bit value specifying halfwords */ 481 *addr += (u64)(s64) rl * 2; 482 } else { 483 /* EXECUTE - RX-a format */ 484 u32 base = (opcode[1] & 0xf000) >> 12; 485 u32 disp = opcode[1] & 0x0fff; 486 u32 index = opcode[0] & 0x000f; 487 488 *addr = base ? vcpu->run->s.regs.gprs[base] : 0; 489 *addr += index ? vcpu->run->s.regs.gprs[index] : 0; 490 *addr += disp; 491 } 492 *addr = kvm_s390_logical_to_effective(vcpu, *addr); 493 } 494 return 0; 495 } 496 497 #define guest_per_enabled(vcpu) \ 498 (vcpu->arch.sie_block->gpsw.mask & PSW_MASK_PER) 499 500 int kvm_s390_handle_per_ifetch_icpt(struct kvm_vcpu *vcpu) 501 { 502 const u64 cr10 = vcpu->arch.sie_block->gcr[10]; 503 const u64 cr11 = vcpu->arch.sie_block->gcr[11]; 504 const u8 ilen = kvm_s390_get_ilen(vcpu); 505 struct kvm_s390_pgm_info pgm_info = { 506 .code = PGM_PER, 507 .per_code = PER_CODE_IFETCH, 508 .per_address = __rewind_psw(vcpu->arch.sie_block->gpsw, ilen), 509 }; 510 unsigned long fetched_addr; 511 int rc; 512 513 /* 514 * The PSW points to the next instruction, therefore the intercepted 515 * instruction generated a PER i-fetch event. PER address therefore 516 * points at the previous PSW address (could be an EXECUTE function). 517 */ 518 if (!guestdbg_enabled(vcpu)) 519 return kvm_s390_inject_prog_irq(vcpu, &pgm_info); 520 521 if (debug_exit_required(vcpu, pgm_info.per_code, pgm_info.per_address)) 522 vcpu->guest_debug |= KVM_GUESTDBG_EXIT_PENDING; 523 524 if (!guest_per_enabled(vcpu) || 525 !(vcpu->arch.sie_block->gcr[9] & PER_EVENT_IFETCH)) 526 return 0; 527 528 rc = per_fetched_addr(vcpu, &fetched_addr); 529 if (rc < 0) 530 return rc; 531 if (rc) 532 /* instruction-fetching exceptions */ 533 return kvm_s390_inject_program_int(vcpu, PGM_ADDRESSING); 534 535 if (in_addr_range(fetched_addr, cr10, cr11)) 536 return kvm_s390_inject_prog_irq(vcpu, &pgm_info); 537 return 0; 538 } 539 540 static int filter_guest_per_event(struct kvm_vcpu *vcpu) 541 { 542 const u8 perc = vcpu->arch.sie_block->perc; 543 u64 addr = vcpu->arch.sie_block->gpsw.addr; 544 u64 cr9 = vcpu->arch.sie_block->gcr[9]; 545 u64 cr10 = vcpu->arch.sie_block->gcr[10]; 546 u64 cr11 = vcpu->arch.sie_block->gcr[11]; 547 /* filter all events, demanded by the guest */ 548 u8 guest_perc = perc & (cr9 >> 24) & PER_CODE_MASK; 549 unsigned long fetched_addr; 550 int rc; 551 552 if (!guest_per_enabled(vcpu)) 553 guest_perc = 0; 554 555 /* filter "successful-branching" events */ 556 if (guest_perc & PER_CODE_BRANCH && 557 cr9 & PER_CONTROL_BRANCH_ADDRESS && 558 !in_addr_range(addr, cr10, cr11)) 559 guest_perc &= ~PER_CODE_BRANCH; 560 561 /* filter "instruction-fetching" events */ 562 if (guest_perc & PER_CODE_IFETCH) { 563 rc = per_fetched_addr(vcpu, &fetched_addr); 564 if (rc < 0) 565 return rc; 566 /* 567 * Don't inject an irq on exceptions. This would make handling 568 * on icpt code 8 very complex (as PSW was already rewound). 569 */ 570 if (rc || !in_addr_range(fetched_addr, cr10, cr11)) 571 guest_perc &= ~PER_CODE_IFETCH; 572 } 573 574 /* All other PER events will be given to the guest */ 575 /* TODO: Check altered address/address space */ 576 577 vcpu->arch.sie_block->perc = guest_perc; 578 579 if (!guest_perc) 580 vcpu->arch.sie_block->iprcc &= ~PGM_PER; 581 return 0; 582 } 583 584 #define pssec(vcpu) (vcpu->arch.sie_block->gcr[1] & _ASCE_SPACE_SWITCH) 585 #define hssec(vcpu) (vcpu->arch.sie_block->gcr[13] & _ASCE_SPACE_SWITCH) 586 #define old_ssec(vcpu) ((vcpu->arch.sie_block->tecmc >> 31) & 0x1) 587 #define old_as_is_home(vcpu) !(vcpu->arch.sie_block->tecmc & 0xffff) 588 589 int kvm_s390_handle_per_event(struct kvm_vcpu *vcpu) 590 { 591 int rc, new_as; 592 593 if (debug_exit_required(vcpu, vcpu->arch.sie_block->perc, 594 vcpu->arch.sie_block->peraddr)) 595 vcpu->guest_debug |= KVM_GUESTDBG_EXIT_PENDING; 596 597 rc = filter_guest_per_event(vcpu); 598 if (rc) 599 return rc; 600 601 /* 602 * Only RP, SAC, SACF, PT, PTI, PR, PC instructions can trigger 603 * a space-switch event. PER events enforce space-switch events 604 * for these instructions. So if no PER event for the guest is left, 605 * we might have to filter the space-switch element out, too. 606 */ 607 if (vcpu->arch.sie_block->iprcc == PGM_SPACE_SWITCH) { 608 vcpu->arch.sie_block->iprcc = 0; 609 new_as = psw_bits(vcpu->arch.sie_block->gpsw).as; 610 611 /* 612 * If the AS changed from / to home, we had RP, SAC or SACF 613 * instruction. Check primary and home space-switch-event 614 * controls. (theoretically home -> home produced no event) 615 */ 616 if (((new_as == PSW_BITS_AS_HOME) ^ old_as_is_home(vcpu)) && 617 (pssec(vcpu) || hssec(vcpu))) 618 vcpu->arch.sie_block->iprcc = PGM_SPACE_SWITCH; 619 620 /* 621 * PT, PTI, PR, PC instruction operate on primary AS only. Check 622 * if the primary-space-switch-event control was or got set. 623 */ 624 if (new_as == PSW_BITS_AS_PRIMARY && !old_as_is_home(vcpu) && 625 (pssec(vcpu) || old_ssec(vcpu))) 626 vcpu->arch.sie_block->iprcc = PGM_SPACE_SWITCH; 627 } 628 return 0; 629 } 630