2016-01-18 05:59:06 +08:00
|
|
|
/* GNU/Linux S/390 specific low level interface, for the in-process
|
|
|
|
agent library for GDB.
|
|
|
|
|
2024-01-12 23:30:44 +08:00
|
|
|
Copyright (C) 2016-2024 Free Software Foundation, Inc.
|
2016-01-18 05:59:06 +08:00
|
|
|
|
|
|
|
This file is part of GDB.
|
|
|
|
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
|
|
it under the terms of the GNU General Public License as published by
|
|
|
|
the Free Software Foundation; either version 3 of the License, or
|
|
|
|
(at your option) any later version.
|
|
|
|
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
|
|
|
|
2016-03-13 07:30:11 +08:00
|
|
|
#include <sys/mman.h>
|
2016-01-18 05:59:06 +08:00
|
|
|
#include "tracepoint.h"
|
|
|
|
#include "linux-s390-tdesc.h"
|
2016-04-03 20:25:25 +08:00
|
|
|
#include <elf.h>
|
2016-03-13 07:30:11 +08:00
|
|
|
#ifdef HAVE_GETAUXVAL
|
|
|
|
#include <sys/auxv.h>
|
|
|
|
#endif
|
2016-01-18 05:59:06 +08:00
|
|
|
|
|
|
|
#define FT_FPR(x) (0x000 + (x) * 0x10)
|
|
|
|
#define FT_VR(x) (0x000 + (x) * 0x10)
|
|
|
|
#define FT_VR_L(x) (0x008 + (x) * 0x10)
|
|
|
|
#define FT_GPR(x) (0x200 + (x) * 8)
|
|
|
|
#define FT_GPR_U(x) (0x200 + (x) * 8)
|
|
|
|
#define FT_GPR_L(x) (0x204 + (x) * 8)
|
|
|
|
#define FT_GPR(x) (0x200 + (x) * 8)
|
|
|
|
#define FT_ACR(x) (0x280 + (x) * 4)
|
|
|
|
#define FT_PSWM 0x2c0
|
|
|
|
#define FT_PSWM_U 0x2c0
|
|
|
|
#define FT_PSWA 0x2c8
|
|
|
|
#define FT_PSWA_L 0x2cc
|
|
|
|
#define FT_FPC 0x2d0
|
|
|
|
|
|
|
|
/* Mappings between registers collected by the jump pad and GDB's register
|
|
|
|
array layout used by regcache.
|
|
|
|
|
|
|
|
See linux-s390-low.c (s390_install_fast_tracepoint_jump_pad) for more
|
|
|
|
details. */
|
|
|
|
|
|
|
|
#ifndef __s390x__
|
|
|
|
|
|
|
|
/* Used for s390-linux32, s390-linux32v1, s390-linux32v2. */
|
|
|
|
|
|
|
|
static const int s390_linux32_ft_collect_regmap[] = {
|
|
|
|
/* 32-bit PSWA and PSWM. */
|
|
|
|
FT_PSWM_U, FT_PSWA_L,
|
|
|
|
/* 32-bit GPRs (mapped to lower halves of 64-bit slots). */
|
|
|
|
FT_GPR_L (0), FT_GPR_L (1), FT_GPR_L (2), FT_GPR_L (3),
|
|
|
|
FT_GPR_L (4), FT_GPR_L (5), FT_GPR_L (6), FT_GPR_L (7),
|
|
|
|
FT_GPR_L (8), FT_GPR_L (9), FT_GPR_L (10), FT_GPR_L (11),
|
|
|
|
FT_GPR_L (12), FT_GPR_L (13), FT_GPR_L (14), FT_GPR_L (15),
|
|
|
|
/* ACRs */
|
|
|
|
FT_ACR (0), FT_ACR (1), FT_ACR (2), FT_ACR (3),
|
|
|
|
FT_ACR (4), FT_ACR (5), FT_ACR (6), FT_ACR (7),
|
|
|
|
FT_ACR (8), FT_ACR (9), FT_ACR (10), FT_ACR (11),
|
|
|
|
FT_ACR (12), FT_ACR (13), FT_ACR (14), FT_ACR (15),
|
|
|
|
/* FPRs (mapped to upper halves of 128-bit VR slots). */
|
|
|
|
FT_FPR (0), FT_FPR (1), FT_FPR (2), FT_FPR (3),
|
|
|
|
FT_FPR (4), FT_FPR (5), FT_FPR (6), FT_FPR (7),
|
|
|
|
FT_FPR (8), FT_FPR (9), FT_FPR (10), FT_FPR (11),
|
|
|
|
FT_FPR (12), FT_FPR (13), FT_FPR (14), FT_FPR (15),
|
|
|
|
/* orig_r2, last_break, system_call */
|
|
|
|
-1, -1, -1,
|
|
|
|
};
|
|
|
|
|
|
|
|
/* Used for s390-linux64, s390-linux64v1, s390-linux64v2, s390-vx-linux64. */
|
|
|
|
|
|
|
|
static const int s390_linux64_ft_collect_regmap[] = {
|
|
|
|
/* 32-bit PSWA and PSWM. */
|
|
|
|
FT_PSWM_U, FT_PSWA_L,
|
|
|
|
/* 32-bit halves of 64-bit GPRs. */
|
|
|
|
FT_GPR_U (0), FT_GPR_L (0),
|
|
|
|
FT_GPR_U (1), FT_GPR_L (1),
|
|
|
|
FT_GPR_U (2), FT_GPR_L (2),
|
|
|
|
FT_GPR_U (3), FT_GPR_L (3),
|
|
|
|
FT_GPR_U (4), FT_GPR_L (4),
|
|
|
|
FT_GPR_U (5), FT_GPR_L (5),
|
|
|
|
FT_GPR_U (6), FT_GPR_L (6),
|
|
|
|
FT_GPR_U (7), FT_GPR_L (7),
|
|
|
|
FT_GPR_U (8), FT_GPR_L (8),
|
|
|
|
FT_GPR_U (9), FT_GPR_L (9),
|
|
|
|
FT_GPR_U (10), FT_GPR_L (10),
|
|
|
|
FT_GPR_U (11), FT_GPR_L (11),
|
|
|
|
FT_GPR_U (12), FT_GPR_L (12),
|
|
|
|
FT_GPR_U (13), FT_GPR_L (13),
|
|
|
|
FT_GPR_U (14), FT_GPR_L (14),
|
|
|
|
FT_GPR_U (15), FT_GPR_L (15),
|
|
|
|
/* ACRs */
|
|
|
|
FT_ACR (0), FT_ACR (1), FT_ACR (2), FT_ACR (3),
|
|
|
|
FT_ACR (4), FT_ACR (5), FT_ACR (6), FT_ACR (7),
|
|
|
|
FT_ACR (8), FT_ACR (9), FT_ACR (10), FT_ACR (11),
|
|
|
|
FT_ACR (12), FT_ACR (13), FT_ACR (14), FT_ACR (15),
|
|
|
|
/* FPRs (mapped to upper halves of 128-bit VR slots). */
|
|
|
|
FT_FPR (0), FT_FPR (1), FT_FPR (2), FT_FPR (3),
|
|
|
|
FT_FPR (4), FT_FPR (5), FT_FPR (6), FT_FPR (7),
|
|
|
|
FT_FPR (8), FT_FPR (9), FT_FPR (10), FT_FPR (11),
|
|
|
|
FT_FPR (12), FT_FPR (13), FT_FPR (14), FT_FPR (15),
|
|
|
|
/* orig_r2, last_break, system_call */
|
|
|
|
-1, -1, -1,
|
|
|
|
/* Lower halves of 128-bit VRs. */
|
|
|
|
FT_VR_L (0), FT_VR_L (1), FT_VR_L (2), FT_VR_L (3),
|
|
|
|
FT_VR_L (4), FT_VR_L (5), FT_VR_L (6), FT_VR_L (7),
|
|
|
|
FT_VR_L (8), FT_VR_L (9), FT_VR_L (10), FT_VR_L (11),
|
|
|
|
FT_VR_L (12), FT_VR_L (13), FT_VR_L (14), FT_VR_L (15),
|
|
|
|
/* And the next 16 VRs. */
|
|
|
|
FT_VR (16), FT_VR (17), FT_VR (18), FT_VR (19),
|
|
|
|
FT_VR (20), FT_VR (21), FT_VR (22), FT_VR (23),
|
|
|
|
FT_VR (24), FT_VR (25), FT_VR (26), FT_VR (27),
|
|
|
|
FT_VR (28), FT_VR (29), FT_VR (30), FT_VR (31),
|
|
|
|
};
|
|
|
|
|
2018-03-22 00:41:45 +08:00
|
|
|
/* Used for s390-te-linux64, s390-tevx-linux64, and s390-gs-linux64. */
|
2016-01-18 05:59:06 +08:00
|
|
|
|
|
|
|
static const int s390_te_linux64_ft_collect_regmap[] = {
|
|
|
|
/* 32-bit PSWA and PSWM. */
|
|
|
|
FT_PSWM_U, FT_PSWA_L,
|
|
|
|
/* 32-bit halves of 64-bit GPRs. */
|
|
|
|
FT_GPR_U (0), FT_GPR_L (0),
|
|
|
|
FT_GPR_U (1), FT_GPR_L (1),
|
|
|
|
FT_GPR_U (2), FT_GPR_L (2),
|
|
|
|
FT_GPR_U (3), FT_GPR_L (3),
|
|
|
|
FT_GPR_U (4), FT_GPR_L (4),
|
|
|
|
FT_GPR_U (5), FT_GPR_L (5),
|
|
|
|
FT_GPR_U (6), FT_GPR_L (6),
|
|
|
|
FT_GPR_U (7), FT_GPR_L (7),
|
|
|
|
FT_GPR_U (8), FT_GPR_L (8),
|
|
|
|
FT_GPR_U (9), FT_GPR_L (9),
|
|
|
|
FT_GPR_U (10), FT_GPR_L (10),
|
|
|
|
FT_GPR_U (11), FT_GPR_L (11),
|
|
|
|
FT_GPR_U (12), FT_GPR_L (12),
|
|
|
|
FT_GPR_U (13), FT_GPR_L (13),
|
|
|
|
FT_GPR_U (14), FT_GPR_L (14),
|
|
|
|
FT_GPR_U (15), FT_GPR_L (15),
|
|
|
|
/* ACRs */
|
|
|
|
FT_ACR (0), FT_ACR (1), FT_ACR (2), FT_ACR (3),
|
|
|
|
FT_ACR (4), FT_ACR (5), FT_ACR (6), FT_ACR (7),
|
|
|
|
FT_ACR (8), FT_ACR (9), FT_ACR (10), FT_ACR (11),
|
|
|
|
FT_ACR (12), FT_ACR (13), FT_ACR (14), FT_ACR (15),
|
|
|
|
/* FPRs (mapped to upper halves of 128-bit VR slots). */
|
|
|
|
FT_FPR (0), FT_FPR (1), FT_FPR (2), FT_FPR (3),
|
|
|
|
FT_FPR (4), FT_FPR (5), FT_FPR (6), FT_FPR (7),
|
|
|
|
FT_FPR (8), FT_FPR (9), FT_FPR (10), FT_FPR (11),
|
|
|
|
FT_FPR (12), FT_FPR (13), FT_FPR (14), FT_FPR (15),
|
|
|
|
/* orig_r2, last_break, system_call */
|
|
|
|
-1, -1, -1,
|
|
|
|
/* TDB */
|
|
|
|
-1, -1, -1, -1,
|
|
|
|
-1, -1, -1, -1,
|
|
|
|
-1, -1, -1, -1,
|
|
|
|
-1, -1, -1, -1,
|
|
|
|
-1, -1, -1, -1,
|
|
|
|
/* Lower halves of 128-bit VRs. */
|
|
|
|
FT_VR_L (0), FT_VR_L (1), FT_VR_L (2), FT_VR_L (3),
|
|
|
|
FT_VR_L (4), FT_VR_L (5), FT_VR_L (6), FT_VR_L (7),
|
|
|
|
FT_VR_L (8), FT_VR_L (9), FT_VR_L (10), FT_VR_L (11),
|
|
|
|
FT_VR_L (12), FT_VR_L (13), FT_VR_L (14), FT_VR_L (15),
|
|
|
|
/* And the next 16 VRs. */
|
|
|
|
FT_VR (16), FT_VR (17), FT_VR (18), FT_VR (19),
|
|
|
|
FT_VR (20), FT_VR (21), FT_VR (22), FT_VR (23),
|
|
|
|
FT_VR (24), FT_VR (25), FT_VR (26), FT_VR (27),
|
|
|
|
FT_VR (28), FT_VR (29), FT_VR (30), FT_VR (31),
|
|
|
|
};
|
|
|
|
|
|
|
|
#else /* __s390x__ */
|
|
|
|
|
|
|
|
/* Used for s390x-linux64, s390x-linux64v1, s390x-linux64v2, s390x-vx-linux64. */
|
|
|
|
|
|
|
|
static const int s390x_ft_collect_regmap[] = {
|
|
|
|
/* 64-bit PSWA and PSWM. */
|
|
|
|
FT_PSWM, FT_PSWA,
|
|
|
|
/* 64-bit GPRs. */
|
|
|
|
FT_GPR (0), FT_GPR (1), FT_GPR (2), FT_GPR (3),
|
|
|
|
FT_GPR (4), FT_GPR (5), FT_GPR (6), FT_GPR (7),
|
|
|
|
FT_GPR (8), FT_GPR (9), FT_GPR (10), FT_GPR (11),
|
|
|
|
FT_GPR (12), FT_GPR (13), FT_GPR (14), FT_GPR (15),
|
|
|
|
/* ACRs */
|
|
|
|
FT_ACR (0), FT_ACR (1), FT_ACR (2), FT_ACR (3),
|
|
|
|
FT_ACR (4), FT_ACR (5), FT_ACR (6), FT_ACR (7),
|
|
|
|
FT_ACR (8), FT_ACR (9), FT_ACR (10), FT_ACR (11),
|
|
|
|
FT_ACR (12), FT_ACR (13), FT_ACR (14), FT_ACR (15),
|
|
|
|
/* FPRs (mapped to upper halves of 128-bit VR slots). */
|
|
|
|
FT_FPR (0), FT_FPR (1), FT_FPR (2), FT_FPR (3),
|
|
|
|
FT_FPR (4), FT_FPR (5), FT_FPR (6), FT_FPR (7),
|
|
|
|
FT_FPR (8), FT_FPR (9), FT_FPR (10), FT_FPR (11),
|
|
|
|
FT_FPR (12), FT_FPR (13), FT_FPR (14), FT_FPR (15),
|
|
|
|
/* orig_r2, last_break, system_call */
|
|
|
|
-1, -1, -1,
|
|
|
|
/* Lower halves of 128-bit VRs. */
|
|
|
|
FT_VR_L (0), FT_VR_L (1), FT_VR_L (2), FT_VR_L (3),
|
|
|
|
FT_VR_L (4), FT_VR_L (5), FT_VR_L (6), FT_VR_L (7),
|
|
|
|
FT_VR_L (8), FT_VR_L (9), FT_VR_L (10), FT_VR_L (11),
|
|
|
|
FT_VR_L (12), FT_VR_L (13), FT_VR_L (14), FT_VR_L (15),
|
|
|
|
/* And the next 16 VRs. */
|
|
|
|
FT_VR (16), FT_VR (17), FT_VR (18), FT_VR (19),
|
|
|
|
FT_VR (20), FT_VR (21), FT_VR (22), FT_VR (23),
|
|
|
|
FT_VR (24), FT_VR (25), FT_VR (26), FT_VR (27),
|
|
|
|
FT_VR (28), FT_VR (29), FT_VR (30), FT_VR (31),
|
|
|
|
};
|
|
|
|
|
2018-03-22 00:41:45 +08:00
|
|
|
/* Used for s390x-te-linux64, s390x-tevx-linux64, and
|
|
|
|
s390x-gs-linux64. */
|
2016-01-18 05:59:06 +08:00
|
|
|
|
|
|
|
static const int s390x_te_ft_collect_regmap[] = {
|
|
|
|
/* 64-bit PSWA and PSWM. */
|
|
|
|
FT_PSWM, FT_PSWA,
|
|
|
|
/* 64-bit GPRs. */
|
|
|
|
FT_GPR (0), FT_GPR (1), FT_GPR (2), FT_GPR (3),
|
|
|
|
FT_GPR (4), FT_GPR (5), FT_GPR (6), FT_GPR (7),
|
|
|
|
FT_GPR (8), FT_GPR (9), FT_GPR (10), FT_GPR (11),
|
|
|
|
FT_GPR (12), FT_GPR (13), FT_GPR (14), FT_GPR (15),
|
|
|
|
/* ACRs */
|
|
|
|
FT_ACR (0), FT_ACR (1), FT_ACR (2), FT_ACR (3),
|
|
|
|
FT_ACR (4), FT_ACR (5), FT_ACR (6), FT_ACR (7),
|
|
|
|
FT_ACR (8), FT_ACR (9), FT_ACR (10), FT_ACR (11),
|
|
|
|
FT_ACR (12), FT_ACR (13), FT_ACR (14), FT_ACR (15),
|
|
|
|
/* FPRs (mapped to upper halves of 128-bit VR slots). */
|
|
|
|
FT_FPR (0), FT_FPR (1), FT_FPR (2), FT_FPR (3),
|
|
|
|
FT_FPR (4), FT_FPR (5), FT_FPR (6), FT_FPR (7),
|
|
|
|
FT_FPR (8), FT_FPR (9), FT_FPR (10), FT_FPR (11),
|
|
|
|
FT_FPR (12), FT_FPR (13), FT_FPR (14), FT_FPR (15),
|
|
|
|
/* orig_r2, last_break, system_call */
|
|
|
|
-1, -1, -1,
|
|
|
|
/* TDB */
|
|
|
|
-1, -1, -1, -1,
|
|
|
|
-1, -1, -1, -1,
|
|
|
|
-1, -1, -1, -1,
|
|
|
|
-1, -1, -1, -1,
|
|
|
|
-1, -1, -1, -1,
|
|
|
|
/* Lower halves of 128-bit VRs. */
|
|
|
|
FT_VR_L (0), FT_VR_L (1), FT_VR_L (2), FT_VR_L (3),
|
|
|
|
FT_VR_L (4), FT_VR_L (5), FT_VR_L (6), FT_VR_L (7),
|
|
|
|
FT_VR_L (8), FT_VR_L (9), FT_VR_L (10), FT_VR_L (11),
|
|
|
|
FT_VR_L (12), FT_VR_L (13), FT_VR_L (14), FT_VR_L (15),
|
|
|
|
/* And the next 16 VRs. */
|
|
|
|
FT_VR (16), FT_VR (17), FT_VR (18), FT_VR (19),
|
|
|
|
FT_VR (20), FT_VR (21), FT_VR (22), FT_VR (23),
|
|
|
|
FT_VR (24), FT_VR (25), FT_VR (26), FT_VR (27),
|
|
|
|
FT_VR (28), FT_VR (29), FT_VR (30), FT_VR (31),
|
|
|
|
};
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/* Initialized by get_ipa_tdesc according to the tdesc in use. */
|
|
|
|
|
|
|
|
static const int *s390_regmap;
|
|
|
|
static int s390_regnum;
|
|
|
|
|
|
|
|
/* Fill in REGCACHE with registers saved by the jump pad in BUF. */
|
|
|
|
|
|
|
|
void
|
|
|
|
supply_fast_tracepoint_registers (struct regcache *regcache,
|
|
|
|
const unsigned char *buf)
|
|
|
|
{
|
|
|
|
int i;
|
|
|
|
for (i = 0; i < s390_regnum; i++)
|
|
|
|
if (s390_regmap[i] != -1)
|
|
|
|
supply_register (regcache, i, ((char *) buf) + s390_regmap[i]);
|
|
|
|
}
|
|
|
|
|
2016-03-11 22:51:29 +08:00
|
|
|
ULONGEST
|
|
|
|
get_raw_reg (const unsigned char *raw_regs, int regnum)
|
2016-01-18 05:59:06 +08:00
|
|
|
{
|
|
|
|
int offset;
|
|
|
|
if (regnum >= s390_regnum)
|
|
|
|
return 0;
|
|
|
|
offset = s390_regmap[regnum];
|
|
|
|
if (offset == -1)
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
/* The regnums are variable, better to figure out size by FT offset. */
|
|
|
|
|
|
|
|
/* 64-bit ones. */
|
|
|
|
if (offset < FT_VR(16)
|
|
|
|
#ifdef __s390x__
|
|
|
|
|| (offset >= FT_GPR(0) && offset < FT_ACR(0))
|
|
|
|
|| offset == FT_PSWM
|
|
|
|
|| offset == FT_PSWA
|
|
|
|
#endif
|
|
|
|
)
|
|
|
|
return *(uint64_t *) (raw_regs + offset);
|
|
|
|
|
|
|
|
if (offset >= FT_ACR(0 && offset < FT_PSWM)
|
|
|
|
|| offset == FT_FPC
|
|
|
|
#ifndef __s390x__
|
|
|
|
|| (offset >= FT_GPR(0) && offset < FT_ACR(0))
|
|
|
|
|| offset == FT_PSWM_U
|
|
|
|
|| offset == FT_PSWA_L
|
|
|
|
#endif
|
|
|
|
)
|
|
|
|
return *(uint32_t *) (raw_regs + offset);
|
|
|
|
|
|
|
|
/* This leaves 128-bit VX. No way to return them. */
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Return target_desc to use for IPA, given the tdesc index passed by
|
|
|
|
gdbserver. For s390, it also sets s390_regmap and s390_regnum. */
|
|
|
|
|
|
|
|
const struct target_desc *
|
|
|
|
get_ipa_tdesc (int idx)
|
|
|
|
{
|
|
|
|
#define SET_REGMAP(regmap, skip_last) \
|
|
|
|
do { \
|
|
|
|
s390_regmap = regmap; \
|
|
|
|
s390_regnum = (sizeof regmap / sizeof regmap[0]) - skip_last; \
|
|
|
|
} while(0)
|
|
|
|
switch (idx)
|
|
|
|
{
|
|
|
|
#ifdef __s390x__
|
|
|
|
case S390_TDESC_64:
|
|
|
|
/* Subtract number of VX regs. */
|
|
|
|
SET_REGMAP(s390x_ft_collect_regmap, 32);
|
|
|
|
return tdesc_s390x_linux64;
|
|
|
|
case S390_TDESC_64V1:
|
|
|
|
SET_REGMAP(s390x_ft_collect_regmap, 32);
|
|
|
|
return tdesc_s390x_linux64v1;
|
|
|
|
case S390_TDESC_64V2:
|
|
|
|
SET_REGMAP(s390x_ft_collect_regmap, 32);
|
|
|
|
return tdesc_s390x_linux64v2;
|
|
|
|
case S390_TDESC_TE:
|
|
|
|
SET_REGMAP(s390x_te_ft_collect_regmap, 32);
|
|
|
|
return tdesc_s390x_te_linux64;
|
|
|
|
case S390_TDESC_VX:
|
|
|
|
SET_REGMAP(s390x_ft_collect_regmap, 0);
|
|
|
|
return tdesc_s390x_vx_linux64;
|
|
|
|
case S390_TDESC_TEVX:
|
|
|
|
SET_REGMAP(s390x_te_ft_collect_regmap, 0);
|
|
|
|
return tdesc_s390x_tevx_linux64;
|
2018-03-22 00:41:45 +08:00
|
|
|
case S390_TDESC_GS:
|
|
|
|
SET_REGMAP(s390x_te_ft_collect_regmap, 0);
|
|
|
|
return tdesc_s390x_gs_linux64;
|
2016-01-18 05:59:06 +08:00
|
|
|
#else
|
|
|
|
case S390_TDESC_32:
|
|
|
|
SET_REGMAP(s390_linux32_ft_collect_regmap, 0);
|
|
|
|
return tdesc_s390_linux32;
|
|
|
|
case S390_TDESC_32V1:
|
|
|
|
SET_REGMAP(s390_linux32_ft_collect_regmap, 0);
|
|
|
|
return tdesc_s390_linux32v1;
|
|
|
|
case S390_TDESC_32V2:
|
|
|
|
SET_REGMAP(s390_linux32_ft_collect_regmap, 0);
|
|
|
|
return tdesc_s390_linux32v2;
|
|
|
|
case S390_TDESC_64:
|
|
|
|
SET_REGMAP(s390_linux64_ft_collect_regmap, 32);
|
|
|
|
return tdesc_s390_linux64;
|
|
|
|
case S390_TDESC_64V1:
|
|
|
|
SET_REGMAP(s390_linux64_ft_collect_regmap, 32);
|
|
|
|
return tdesc_s390_linux64v1;
|
|
|
|
case S390_TDESC_64V2:
|
|
|
|
SET_REGMAP(s390_linux64_ft_collect_regmap, 32);
|
|
|
|
return tdesc_s390_linux64v2;
|
|
|
|
case S390_TDESC_TE:
|
|
|
|
SET_REGMAP(s390_te_linux64_ft_collect_regmap, 32);
|
|
|
|
return tdesc_s390_te_linux64;
|
|
|
|
case S390_TDESC_VX:
|
|
|
|
SET_REGMAP(s390_linux64_ft_collect_regmap, 0);
|
|
|
|
return tdesc_s390_vx_linux64;
|
|
|
|
case S390_TDESC_TEVX:
|
|
|
|
SET_REGMAP(s390_te_linux64_ft_collect_regmap, 0);
|
|
|
|
return tdesc_s390_tevx_linux64;
|
2018-03-22 00:41:45 +08:00
|
|
|
case S390_TDESC_GS:
|
[gdbserver] Fix s390x -m31 gdbserver build
When building gdb on s390x with -m31, we run into this error:
...
gdb/gdbserver/linux-s390-ipa.c: \
In function 'const target_desc* get_ipa_tdesc(int)':
gdb/gdbserver/linux-s390-ipa.c:371:18: error: 's390_te_ft_collect_regmap' \
was not declared in this scope
SET_REGMAP(s390_te_ft_collect_regmap, 0);
The offending line is part of this code snippet:
...
case S390_TDESC_GS:
SET_REGMAP(s390_te_ft_collect_regmap, 0);
return tdesc_s390_gs_linux64;
...
introduced in commit ce29f8439f "S390: Make IPA recognize tdescs with guarded
storage".
The snippet is part of an #ifdef __s390x__ construct, in the false branch, and
in the true branch we find a snippet introduced by the same commit:
...
case S390_TDESC_GS:
SET_REGMAP(s390x_te_ft_collect_regmap, 0);
return tdesc_s390x_gs_linux64;
...
which is paired with a comment update for s390x_te_ft_collect_regmap:
...
-/* Used for s390x-te-linux64, s390x-tevx-linux64. */
+/* Used for s390x-te-linux64, s390x-tevx-linux64, and
+ s390x-gs-linux64. */
static const int s390x_te_ft_collect_regmap[] = {
...
A similar comment update is added in the same commit for
s390_te_linux64_ft_collect_regmap:
...
-/* Used for s390-te-linux64, s390-tevx-linux64. */
+/* Used for s390-te-linux64, s390-tevx-linux64, and s390-gs-linux64. */
static const int s390_te_linux64_ft_collect_regmap[] = {
...
but not paired with any update.
Fix the build breaker by making the offending SET_REGMAP use the regmap
indicated by the comment.
...
- SET_REGMAP(s390_te_ft_collect_regmap, 0);
+ SET_REGMAP(s390_te_linux64_ft_collect_regmap, 0);
...
Build on s390x-linux with -m31.
gdb/gdbserver/ChangeLog:
2019-06-20 Tom de Vries <tdevries@suse.de>
* linux-s390-ipa.c (get_ipa_tdesc)[!__s390x__]: Use
s390_te_linux64_ft_collect_regmap for S390_TDESC_GS.
2019-06-20 17:31:36 +08:00
|
|
|
SET_REGMAP(s390_te_linux64_ft_collect_regmap, 0);
|
2018-03-22 00:41:45 +08:00
|
|
|
return tdesc_s390_gs_linux64;
|
2016-01-18 05:59:06 +08:00
|
|
|
#endif
|
|
|
|
default:
|
internal_error: remove need to pass __FILE__/__LINE__
Currently, every internal_error call must be passed __FILE__/__LINE__
explicitly, like:
internal_error (__FILE__, __LINE__, "foo %d", var);
The need to pass in explicit __FILE__/__LINE__ is there probably
because the function predates widespread and portable variadic macros
availability. We can use variadic macros nowadays, and in fact, we
already use them in several places, including the related
gdb_assert_not_reached.
So this patch renames the internal_error function to something else,
and then reimplements internal_error as a variadic macro that expands
__FILE__/__LINE__ itself.
The result is that we now should call internal_error like so:
internal_error ("foo %d", var);
Likewise for internal_warning.
The patch adjusts all calls sites. 99% of the adjustments were done
with a perl/sed script.
The non-mechanical changes are in gdbsupport/errors.h,
gdbsupport/gdb_assert.h, and gdb/gdbarch.py.
Approved-By: Simon Marchi <simon.marchi@efficios.com>
Change-Id: Ia6f372c11550ca876829e8fd85048f4502bdcf06
2022-10-18 00:12:20 +08:00
|
|
|
internal_error ("unknown ipa tdesc index: %d", idx);
|
2016-01-18 05:59:06 +08:00
|
|
|
#ifdef __s390x__
|
|
|
|
return tdesc_s390x_linux64;
|
|
|
|
#else
|
|
|
|
return tdesc_s390_linux32;
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2016-03-13 07:30:11 +08:00
|
|
|
/* Allocate buffer for the jump pads. On 31-bit, JG reaches everywhere,
|
|
|
|
so just allocate normally. On 64-bit, we have +/-4GiB of reach, and
|
|
|
|
the executable is usually mapped at 0x80000000 - aim for somewhere
|
|
|
|
below it. */
|
|
|
|
|
|
|
|
void *
|
|
|
|
alloc_jump_pad_buffer (size_t size)
|
|
|
|
{
|
|
|
|
#ifdef __s390x__
|
|
|
|
uintptr_t addr;
|
|
|
|
uintptr_t exec_base = getauxval (AT_PHDR);
|
|
|
|
int pagesize;
|
|
|
|
void *res;
|
|
|
|
|
|
|
|
if (exec_base == 0)
|
|
|
|
exec_base = 0x80000000;
|
|
|
|
|
|
|
|
pagesize = sysconf (_SC_PAGE_SIZE);
|
|
|
|
if (pagesize == -1)
|
|
|
|
perror_with_name ("sysconf");
|
|
|
|
|
|
|
|
addr = exec_base - size;
|
|
|
|
|
|
|
|
/* size should already be page-aligned, but this can't hurt. */
|
|
|
|
addr &= ~(pagesize - 1);
|
|
|
|
|
|
|
|
/* Search for a free area. If we hit 0, we're out of luck. */
|
|
|
|
for (; addr; addr -= pagesize)
|
|
|
|
{
|
|
|
|
/* No MAP_FIXED - we don't want to zap someone's mapping. */
|
|
|
|
res = mmap ((void *) addr, size,
|
|
|
|
PROT_READ | PROT_WRITE | PROT_EXEC,
|
|
|
|
MAP_PRIVATE | MAP_ANONYMOUS, -1, 0);
|
|
|
|
|
|
|
|
/* If we got what we wanted, return. */
|
|
|
|
if ((uintptr_t) res == addr)
|
|
|
|
return res;
|
|
|
|
|
|
|
|
/* If we got a mapping, but at a wrong address, undo it. */
|
|
|
|
if (res != MAP_FAILED)
|
|
|
|
munmap (res, size);
|
|
|
|
}
|
|
|
|
|
|
|
|
return NULL;
|
|
|
|
#else
|
|
|
|
void *res = mmap (NULL, size, PROT_READ | PROT_WRITE | PROT_EXEC,
|
|
|
|
MAP_PRIVATE | MAP_ANONYMOUS, -1, 0);
|
|
|
|
|
|
|
|
if (res == MAP_FAILED)
|
|
|
|
return NULL;
|
|
|
|
|
|
|
|
return res;
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
2016-01-18 05:59:06 +08:00
|
|
|
void
|
|
|
|
initialize_low_tracepoint (void)
|
|
|
|
{
|
|
|
|
#ifdef __s390x__
|
|
|
|
init_registers_s390x_linux64 ();
|
|
|
|
init_registers_s390x_linux64v1 ();
|
|
|
|
init_registers_s390x_linux64v2 ();
|
|
|
|
init_registers_s390x_te_linux64 ();
|
|
|
|
init_registers_s390x_vx_linux64 ();
|
|
|
|
init_registers_s390x_tevx_linux64 ();
|
2018-03-22 00:41:45 +08:00
|
|
|
init_registers_s390x_gs_linux64 ();
|
2016-01-18 05:59:06 +08:00
|
|
|
#else
|
|
|
|
init_registers_s390_linux32 ();
|
|
|
|
init_registers_s390_linux32v1 ();
|
|
|
|
init_registers_s390_linux32v2 ();
|
|
|
|
init_registers_s390_linux64 ();
|
|
|
|
init_registers_s390_linux64v1 ();
|
|
|
|
init_registers_s390_linux64v2 ();
|
|
|
|
init_registers_s390_te_linux64 ();
|
|
|
|
init_registers_s390_vx_linux64 ();
|
|
|
|
init_registers_s390_tevx_linux64 ();
|
2018-03-22 00:41:45 +08:00
|
|
|
init_registers_s390_gs_linux64 ();
|
2016-01-18 05:59:06 +08:00
|
|
|
#endif
|
|
|
|
}
|