From: David Hildenbrand <david@redhat.com>
Date: Fri, 9 Jun 2017 14:21:55 +0000 (+0200)
Subject: target/s390x: correctly indicate PER nullification
X-Git-Url: http://git.maquefel.me/?a=commitdiff_plain;h=465aec461726d5157d458acee94584f8cdfbe4b7;p=qemu.git

target/s390x: correctly indicate PER nullification

Signed-off-by: David Hildenbrand <david@redhat.com>
Message-Id: <20170609142156.18767-2-david@redhat.com>
Signed-off-by: Richard Henderson <rth@twiddle.net>
---

diff --git a/target/s390x/misc_helper.c b/target/s390x/misc_helper.c
index edcdf17db6..d6eda832eb 100644
--- a/target/s390x/misc_helper.c
+++ b/target/s390x/misc_helper.c
@@ -668,6 +668,7 @@ void HELPER(per_ifetch)(CPUS390XState *env, uint64_t addr)
         if (env->cregs[9] & PER_CR9_EVENT_NULLIFICATION) {
             CPUState *cs = CPU(s390_env_get_cpu(env));
 
+            env->per_perc_atmid |= PER_CODE_EVENT_NULLIFICATION;
             env->int_pgm_code = PGM_PER;
             env->int_pgm_ilen = get_ilen(cpu_ldub_code(env, addr));