mirror of
https://github.com/JakeHillion/drgn.git
synced 2024-12-23 17:53:07 +00:00
1cedca8ff4
Based on: c950e8a9 config: Fix spec file, add manpages and new GFDL license. With the following patches: configure: Add --disable-programs configure: Add --disable-shared configure: Fix -D_FORTIFY_SOURCE=2 check when CFLAGS contains -Wno-error libcpu: compile i386_lex.c with -Wno-implicit-fallthrough The plan is to stop relying on the distribution's version of elfutils and instead ship our own. This gives us freedom to assume that we're using the latest version and even ship our own patches (starting with a few build system improvements). More details are in scripts/update-elfutils.sh, which was used to generate this commit.
147 lines
3.1 KiB
C
147 lines
3.1 KiB
C
/* Register names and numbers for S/390 DWARF.
|
|
Copyright (C) 2006 Red Hat, Inc.
|
|
This file is part of elfutils.
|
|
|
|
This file is free software; you can redistribute it and/or modify
|
|
it under the terms of either
|
|
|
|
* the GNU Lesser General Public License as published by the Free
|
|
Software Foundation; either version 3 of the License, or (at
|
|
your option) any later version
|
|
|
|
or
|
|
|
|
* the GNU General Public License as published by the Free
|
|
Software Foundation; either version 2 of the License, or (at
|
|
your option) any later version
|
|
|
|
or both in parallel, as here.
|
|
|
|
elfutils 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 copies of the GNU General Public License and
|
|
the GNU Lesser General Public License along with this program. If
|
|
not, see <http://www.gnu.org/licenses/>. */
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
# include <config.h>
|
|
#endif
|
|
|
|
#include <string.h>
|
|
#include <dwarf.h>
|
|
|
|
#define BACKEND s390_
|
|
#include "libebl_CPU.h"
|
|
|
|
|
|
/*
|
|
zseries (64)
|
|
|
|
0-15 gpr0-gpr15 x
|
|
16-19 fpr[0246]
|
|
20-24 fpr[13578]
|
|
25-27 fpr1[024]
|
|
28 fpr9
|
|
29-31 fpr1[135]
|
|
32-47 cr0-cr15 x
|
|
48-63 ar0-ar15 x
|
|
64 psw_mask
|
|
65 psw_address
|
|
*/
|
|
|
|
|
|
ssize_t
|
|
s390_register_info (Ebl *ebl __attribute__ ((unused)),
|
|
int regno, char *name, size_t namelen,
|
|
const char **prefix, const char **setname,
|
|
int *bits, int *type)
|
|
{
|
|
if (name == NULL)
|
|
return 66;
|
|
|
|
if (regno < 0 || regno > 65 || namelen < 7)
|
|
return -1;
|
|
|
|
*prefix = "%";
|
|
|
|
*bits = ebl->class == ELFCLASS64 ? 64 : 32;
|
|
*type = DW_ATE_unsigned;
|
|
if (regno < 16)
|
|
{
|
|
*setname = "integer";
|
|
*type = DW_ATE_signed;
|
|
}
|
|
else if (regno < 32)
|
|
{
|
|
*setname = "FPU";
|
|
*type = DW_ATE_float;
|
|
*bits = 64;
|
|
}
|
|
else if (regno < 48 || regno > 63)
|
|
*setname = "control";
|
|
else
|
|
{
|
|
*setname = "access";
|
|
*bits = 32;
|
|
}
|
|
|
|
switch (regno)
|
|
{
|
|
case 0 ... 9:
|
|
name[0] = 'r';
|
|
name[1] = regno + '0';
|
|
namelen = 2;
|
|
break;
|
|
|
|
case 10 ... 15:
|
|
name[0] = 'r';
|
|
name[1] = '1';
|
|
name[2] = regno - 10 + '0';
|
|
namelen = 3;
|
|
break;
|
|
|
|
case 16 ... 31:
|
|
name[0] = 'f';
|
|
regno = (regno & 8) | ((regno & 4) >> 2) | ((regno & 3) << 1);
|
|
namelen = 1;
|
|
if (regno >= 10)
|
|
{
|
|
regno -= 10;
|
|
name[namelen++] = '1';
|
|
}
|
|
name[namelen++] = regno + '0';
|
|
break;
|
|
|
|
case 32 + 0 ... 32 + 9:
|
|
case 48 + 0 ... 48 + 9:
|
|
name[0] = regno < 48 ? 'c' : 'a';
|
|
name[1] = (regno & 15) + '0';
|
|
namelen = 2;
|
|
break;
|
|
|
|
case 32 + 10 ... 32 + 15:
|
|
case 48 + 10 ... 48 + 15:
|
|
name[0] = regno < 48 ? 'c' : 'a';
|
|
name[1] = '1';
|
|
name[2] = (regno & 15) - 10 + '0';
|
|
namelen = 3;
|
|
break;
|
|
|
|
case 64:
|
|
return stpcpy (name, "pswm") + 1 - name;
|
|
case 65:
|
|
*type = DW_ATE_address;
|
|
return stpcpy (name, "pswa") + 1 - name;
|
|
|
|
default:
|
|
*setname = NULL;
|
|
return 0;
|
|
}
|
|
|
|
name[namelen++] = '\0';
|
|
return namelen;
|
|
}
|