On 23.05.2017 05:03, Richard Henderson wrote:
> Signed-off-by: Richard Henderson <r...@twiddle.net>
> ---
> target/s390x/mem_helper.c | 9 +++++----
> target/s390x/translate.c | 1 -
> 2 files changed, 5 insertions(+), 5 deletions(-)
>
> diff --git a/target/s390x/mem_helper.c b/target/s390x/mem_helper.c
> index 26960e4..b169e0e 100644
> --- a/target/s390x/mem_helper.c
> +++ b/target/s390x/mem_helper.c
> @@ -851,18 +851,19 @@ void HELPER(lctlg)(CPUS390XState *env, uint32_t r1,
> uint64_t a2, uint32_t r3)
>
> void HELPER(lctl)(CPUS390XState *env, uint32_t r1, uint64_t a2, uint32_t r3)
> {
> + uintptr_t ra = GETPC();
> S390CPU *cpu = s390_env_get_cpu(env);
> bool PERchanged = false;
> - int i;
> uint64_t src = a2;
> - uint32_t val;
> + uint32_t i;
>
> for (i = r1;; i = (i + 1) % 16) {
> - val = cpu_ldl_data(env, src);
> + uint32_t val = cpu_ldl_data_ra(env, src, ra);
> if ((uint32_t)env->cregs[i] != val && i >= 9 && i <= 11) {
> PERchanged = true;
> }
> - env->cregs[i] = (env->cregs[i] & 0xFFFFFFFF00000000ULL) | val;
> + env->cregs[i] = deposit64(env->cregs[i], 0, 32, val);
> + HELPER_LOG("load ctl %d from 0x%" PRIx64 " == 0x%x\n", i, src, val);
> src += sizeof(uint32_t);
>
> if (i == r3) {
> diff --git a/target/s390x/translate.c b/target/s390x/translate.c
> index 886991e..4d964a8 100644
> --- a/target/s390x/translate.c
> +++ b/target/s390x/translate.c
> @@ -2545,7 +2545,6 @@ static ExitStatus op_lctl(DisasContext *s, DisasOps *o)
> TCGv_i32 r1 = tcg_const_i32(get_field(s->fields, r1));
> TCGv_i32 r3 = tcg_const_i32(get_field(s->fields, r3));
> check_privileged(s);
> - potential_page_fault(s);
> gen_helper_lctl(cpu_env, r1, o->in2, r3);
> tcg_temp_free_i32(r1);
> tcg_temp_free_i32(r3);
Reviewed-by: Thomas Huth <th...@redhat.com>
