diff options
author | Ilya Leoshkevich <iii@linux.ibm.com> | 2021-04-13 22:56:08 +0200 |
---|---|---|
committer | Laurent Vivier <laurent@vivier.eu> | 2021-05-18 07:10:46 +0200 |
commit | 4a1e8931eca05077afd0b7ed092ab0f10c5b457e (patch) | |
tree | 6ed97dfd04e72e2e7d9114e69797d9fe7ae32b0d /linux-user/elfload.c | |
parent | 5f779a3a26a9dcc8072d909b7759bb9fade097a9 (diff) | |
download | qemu-4a1e8931eca05077afd0b7ed092ab0f10c5b457e.zip qemu-4a1e8931eca05077afd0b7ed092ab0f10c5b457e.tar.gz qemu-4a1e8931eca05077afd0b7ed092ab0f10c5b457e.tar.bz2 |
linux-user/elfload: add s390x core dumping support
Provide the following definitions required by the common code:
* ELF_NREG: with the value of sizeof(s390_regs) / sizeof(long).
* target_elf_gregset_t: define it like all the other arches do.
* elf_core_copy_regs(): similar to kernel's s390_regs_get().
* USE_ELF_CORE_DUMP.
* ELF_EXEC_PAGESIZE.
Signed-off-by: Ilya Leoshkevich <iii@linux.ibm.com>
Message-Id: <20210413205608.22587-1-iii@linux.ibm.com>
Signed-off-by: Laurent Vivier <laurent@vivier.eu>
Diffstat (limited to 'linux-user/elfload.c')
-rw-r--r-- | linux-user/elfload.c | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/linux-user/elfload.c b/linux-user/elfload.c index 9779263..0e832b2 100644 --- a/linux-user/elfload.c +++ b/linux-user/elfload.c @@ -1375,6 +1375,39 @@ static inline void init_thread(struct target_pt_regs *regs, struct image_info *i regs->gprs[15] = infop->start_stack; } +/* See linux kernel: arch/s390/include/uapi/asm/ptrace.h (s390_regs). */ +#define ELF_NREG 27 +typedef target_elf_greg_t target_elf_gregset_t[ELF_NREG]; + +enum { + TARGET_REG_PSWM = 0, + TARGET_REG_PSWA = 1, + TARGET_REG_GPRS = 2, + TARGET_REG_ARS = 18, + TARGET_REG_ORIG_R2 = 26, +}; + +static void elf_core_copy_regs(target_elf_gregset_t *regs, + const CPUS390XState *env) +{ + int i; + uint32_t *aregs; + + (*regs)[TARGET_REG_PSWM] = tswapreg(env->psw.mask); + (*regs)[TARGET_REG_PSWA] = tswapreg(env->psw.addr); + for (i = 0; i < 16; i++) { + (*regs)[TARGET_REG_GPRS + i] = tswapreg(env->regs[i]); + } + aregs = (uint32_t *)&((*regs)[TARGET_REG_ARS]); + for (i = 0; i < 16; i++) { + aregs[i] = tswap32(env->aregs[i]); + } + (*regs)[TARGET_REG_ORIG_R2] = 0; +} + +#define USE_ELF_CORE_DUMP +#define ELF_EXEC_PAGESIZE 4096 + #endif /* TARGET_S390X */ #ifdef TARGET_RISCV |