103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes/* S390-specific core note handling. 203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Copyright (C) 2012 Red Hat, Inc. 303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes This file is part of elfutils. 403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes This file is free software; you can redistribute it and/or modify 603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes it under the terms of either 703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes * the GNU Lesser General Public License as published by the Free 903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Software Foundation; either version 3 of the License, or (at 1003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes your option) any later version 1103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 1203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes or 1303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 1403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes * the GNU General Public License as published by the Free 1503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Software Foundation; either version 2 of the License, or (at 1603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes your option) any later version 1703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 1803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes or both in parallel, as here. 1903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 2003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes elfutils is distributed in the hope that it will be useful, but 2103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes WITHOUT ANY WARRANTY; without even the implied warranty of 2203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 2303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes General Public License for more details. 2403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 2503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes You should have received copies of the GNU General Public License and 2603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes the GNU Lesser General Public License along with this program. If 2703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes not, see <http://www.gnu.org/licenses/>. */ 2803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 2903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#ifdef HAVE_CONFIG_H 3003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# include <config.h> 3103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#endif 3203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 3303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <elf.h> 3403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <inttypes.h> 3503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <stddef.h> 3603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <stdio.h> 3703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <sys/time.h> 3803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 3903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#ifndef BITS 4003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define BITS 32 4103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define BACKEND s390_ 4203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#else 4303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define BITS 64 4403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define BACKEND s390x_ 4503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#endif 4603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include "libebl_CPU.h" 4703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 4803333823c75a1c1887e923828113a1b0fd12020cElliott Hughesstatic const Ebl_Register_Location prstatus_regs[] = 4903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 5003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#define GR(at, n, dwreg, b...) \ 5103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { .offset = at * BITS/8, .regno = dwreg, .count = n, .bits = b } 5203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 5303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes GR ( 0, 1, 64, BITS), /* pswm */ 5403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes GR ( 1, 1, 65, BITS, .pc_register = true ), /* pswa */ 5503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes GR ( 2, 16, 0, BITS), /* r0-r15 */ 5603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes GR (18, 16, 48, 32), /* ar0-ar15 */ 5703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 5803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#undef GR 5903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes }; 6003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 6103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes /* orig_r2 is at offset (BITS == 32 ? 34 * 4 : 26 * 8). */ 6203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#define PRSTATUS_REGS_SIZE (BITS / 8 * (BITS == 32 ? 35 : 27)) 6303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 6403333823c75a1c1887e923828113a1b0fd12020cElliott Hughesstatic const Ebl_Register_Location fpregset_regs[] = 6503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 6603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#define FPR(at, n, dwreg) \ 6703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { .offset = at * 64/8, .regno = dwreg, .count = n, .bits = 64 } 6803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 6903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes /* fpc is at offset 0, see fpregset_items, it has no assigned DWARF regno. 7003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Bytes at offsets 4 to 7 are unused. */ 7103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes FPR (1 + 0, 1, 16), /* f0 */ 7203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes FPR (1 + 1, 1, 20), /* f1 */ 7303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes FPR (1 + 2, 1, 17), /* f2 */ 7403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes FPR (1 + 3, 1, 21), /* f3 */ 7503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes FPR (1 + 4, 1, 18), /* f4 */ 7603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes FPR (1 + 5, 1, 22), /* f5 */ 7703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes FPR (1 + 6, 1, 19), /* f6 */ 7803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes FPR (1 + 7, 1, 23), /* f7 */ 7903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes FPR (1 + 8, 1, 24), /* f8 */ 8003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes FPR (1 + 9, 1, 28), /* f9 */ 8103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes FPR (1 + 10, 1, 25), /* f10 */ 8203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes FPR (1 + 11, 1, 29), /* f11 */ 8303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes FPR (1 + 12, 1, 26), /* f12 */ 8403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes FPR (1 + 13, 1, 30), /* f13 */ 8503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes FPR (1 + 14, 1, 27), /* f14 */ 8603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes FPR (1 + 15, 1, 31), /* f15 */ 8703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 8803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#undef FPR 8903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes }; 9003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 9103333823c75a1c1887e923828113a1b0fd12020cElliott Hughesstatic const Ebl_Core_Item fpregset_items[] = 9203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 9303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 9403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes .name = "fpc", .group = "register", .offset = 0, .type = ELF_T_WORD, 9503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes .format = 'x', 9603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes }, 9703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes }; 9803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 9903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes/* Do not set FPREGSET_SIZE so that we can supply fpregset_items. */ 10003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#define EXTRA_NOTES_FPREGSET \ 10103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes EXTRA_REGSET_ITEMS (NT_FPREGSET, 17 * 8, fpregset_regs, fpregset_items) 10203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 10303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#if BITS == 32 10403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define ULONG uint32_t 10503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define ALIGN_ULONG 4 10603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define TYPE_ULONG ELF_T_WORD 10703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define TYPE_LONG ELF_T_SWORD 10803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define UID_T uint16_t 10903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define GID_T uint16_t 11003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define ALIGN_UID_T 2 11103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define ALIGN_GID_T 2 11203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define TYPE_UID_T ELF_T_HALF 11303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define TYPE_GID_T ELF_T_HALF 11403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#else 11503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define ULONG uint64_t 11603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define ALIGN_ULONG 8 11703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define TYPE_ULONG ELF_T_XWORD 11803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define TYPE_LONG ELF_T_SXWORD 11903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define UID_T uint32_t 12003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define GID_T uint32_t 12103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define ALIGN_UID_T 4 12203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define ALIGN_GID_T 4 12303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define TYPE_UID_T ELF_T_WORD 12403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes# define TYPE_GID_T ELF_T_WORD 12503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#endif 12603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#define PID_T int32_t 12703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#define ALIGN_PID_T 4 12803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#define TYPE_PID_T ELF_T_SWORD 12903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes/* s390 psw_compat_t has alignment 8 bytes where it is inherited from. */ 13003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#define ALIGN_PR_REG 8 13103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 13203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#define PRSTATUS_REGSET_ITEMS \ 13303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { \ 13403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes .name = "orig_r2", .type = TYPE_LONG, .format = 'd', \ 13503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes .offset = offsetof (struct EBLHOOK(prstatus), \ 13603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes pr_reg[BITS == 32 ? 34 : 26]), \ 13703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes .group = "register" \ 13803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 13903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 14003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#if BITS == 32 14103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 14203333823c75a1c1887e923828113a1b0fd12020cElliott Hughesstatic const Ebl_Core_Item high_regs_items[] = 14303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 14403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#define HR(n) \ 14503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { \ 14603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes .name = "high_r" #n , .group = "register", .offset = (n) * 4, \ 14703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes .type = ELF_T_WORD, .format = 'x', \ 14803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 14903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 15003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes /* Upper halves of r0-r15 are stored here. 15103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes FIXME: They are currently not combined with the r0-r15 lower halves. */ 15203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes HR (0), HR (1), HR (2), HR (3), HR (4), HR (5), HR (6), HR (7), 15303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes HR (8), HR (9), HR (10), HR (11), HR (12), HR (13), HR (14), HR (15) 15403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 15503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#undef HR 15603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes }; 15703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 15803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#define EXTRA_NOTES_HIGH_GPRS \ 15903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes EXTRA_ITEMS (NT_S390_HIGH_GPRS, 16 * 4, high_regs_items) 16003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 16103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#else /* BITS == 64 */ 16203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 16303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#define EXTRA_NOTES_HIGH_GPRS 16403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 16503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#endif /* BITS == 64 */ 16603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 16703333823c75a1c1887e923828113a1b0fd12020cElliott Hughesstatic const Ebl_Core_Item last_break_items[] = 16803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 16903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 17003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes .name = "last_break", .group = "system", .offset = BITS == 32 ? 4 : 0, 17103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes .type = BITS == 32 ? ELF_T_WORD : ELF_T_XWORD, .format = 'x', 17203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes }, 17303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes }; 17403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 17503333823c75a1c1887e923828113a1b0fd12020cElliott Hughesstatic const Ebl_Core_Item system_call_items[] = 17603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 17703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 17803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes .name = "system_call", .group = "system", .offset = 0, .type = ELF_T_WORD, 17903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes .format = 'd', 18003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes }, 18103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes }; 18203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 18303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#define EXTRA_NOTES \ 18403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes EXTRA_NOTES_FPREGSET \ 18503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes EXTRA_NOTES_HIGH_GPRS \ 18603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes EXTRA_ITEMS (NT_S390_LAST_BREAK, 8, last_break_items) \ 18703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes EXTRA_ITEMS (NT_S390_SYSTEM_CALL, 4, system_call_items) 18803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 18903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include "linux-core-note.c" 190