The STFLE bits for the MSA (extension) facilities simply indicate that the respective instructions can be executed. The QUERY subfunction can then be used to identify which features exactly are available. Availability of subfunctions can also vary on real hardware. For now, we simply implement a CPU model without any available subfunctions except QUERY (which is always around). As all MSA functions behave quite similarly, we can use one translation handler for now. Prepare the code for implementation of actual subfunctions. At least MSA is helpful for now, as older Linux kernels require this facility when compiled for a z9 model. Allow to enable the facilities for the qemu cpu model. Signed-off-by: David Hildenbrand <david@redhat.com> Message-Id: <20170920153016.3858-4-david@redhat.com> Reviewed-by: Richard Henderson <richard.henderson@linaro.org> Signed-off-by: Cornelia Huck <cohuck@redhat.com>
66 lines
1.6 KiB
C
66 lines
1.6 KiB
C
/*
|
|
* s390x crypto helpers
|
|
*
|
|
* Copyright (c) 2017 Red Hat Inc
|
|
*
|
|
* Authors:
|
|
* David Hildenbrand <david@redhat.com>
|
|
*
|
|
* This work is licensed under the terms of the GNU GPL, version 2 or later.
|
|
* See the COPYING file in the top-level directory.
|
|
*/
|
|
|
|
#include "qemu/osdep.h"
|
|
#include "qemu/main-loop.h"
|
|
#include "internal.h"
|
|
#include "exec/helper-proto.h"
|
|
#include "exec/exec-all.h"
|
|
#include "exec/cpu_ldst.h"
|
|
|
|
uint32_t HELPER(msa)(CPUS390XState *env, uint32_t r1, uint32_t r2, uint32_t r3,
|
|
uint32_t type)
|
|
{
|
|
const uintptr_t ra = GETPC();
|
|
const uint8_t mod = env->regs[0] & 0x80ULL;
|
|
const uint8_t fc = env->regs[0] & 0x7fULL;
|
|
CPUState *cs = CPU(s390_env_get_cpu(env));
|
|
uint8_t subfunc[16] = { 0 };
|
|
uint64_t param_addr;
|
|
int i;
|
|
|
|
switch (type) {
|
|
case S390_FEAT_TYPE_KMAC:
|
|
case S390_FEAT_TYPE_KIMD:
|
|
case S390_FEAT_TYPE_KLMD:
|
|
case S390_FEAT_TYPE_PCKMO:
|
|
case S390_FEAT_TYPE_PCC:
|
|
if (mod) {
|
|
cpu_restore_state(cs, ra);
|
|
program_interrupt(env, PGM_SPECIFICATION, 4);
|
|
return 0;
|
|
}
|
|
break;
|
|
}
|
|
|
|
s390_get_feat_block(type, subfunc);
|
|
if (!test_be_bit(fc, subfunc)) {
|
|
cpu_restore_state(cs, ra);
|
|
program_interrupt(env, PGM_SPECIFICATION, 4);
|
|
return 0;
|
|
}
|
|
|
|
switch (fc) {
|
|
case 0: /* query subfunction */
|
|
for (i = 0; i < 16; i++) {
|
|
param_addr = wrap_address(env, env->regs[1] + i);
|
|
cpu_stb_data_ra(env, param_addr, subfunc[i], ra);
|
|
}
|
|
break;
|
|
default:
|
|
/* we don't implement any other subfunction yet */
|
|
g_assert_not_reached();
|
|
}
|
|
|
|
return 0;
|
|
}
|