|
Packit Service |
97d2fb |
/* Fetch live process registers from TID.
|
|
Packit Service |
97d2fb |
Copyright (C) 2015 Oracle, In
|
|
Packit Service |
97d2fb |
This file is part of elfutils.
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
This file is free software; you can redistribute it and/or modify
|
|
Packit Service |
97d2fb |
it under the terms of either
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
* the GNU Lesser General Public License as published by the Free
|
|
Packit Service |
97d2fb |
Software Foundation; either version 3 of the License, or (at
|
|
Packit Service |
97d2fb |
your option) any later version
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
or
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
* the GNU General Public License as published by the Free
|
|
Packit Service |
97d2fb |
Software Foundation; either version 2 of the License, or (at
|
|
Packit Service |
97d2fb |
your option) any later version
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
or both in parallel, as here.
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
elfutils is distributed in the hope that it will be useful, but
|
|
Packit Service |
97d2fb |
WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
Packit Service |
97d2fb |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Packit Service |
97d2fb |
General Public License for more details.
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
You should have received copies of the GNU General Public License and
|
|
Packit Service |
97d2fb |
the GNU Lesser General Public License along with this program. If
|
|
Packit Service |
97d2fb |
not, see <http://www.gnu.org/licenses/>. */
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
#ifdef HAVE_CONFIG_H
|
|
Packit Service |
97d2fb |
# include <config.h>
|
|
Packit Service |
97d2fb |
#endif
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
#include "system.h"
|
|
Packit Service |
97d2fb |
#include <stdlib.h>
|
|
Packit Service |
97d2fb |
#ifdef __sparc__
|
|
Packit Service |
97d2fb |
# include <asm/ptrace.h>
|
|
Packit Service |
97d2fb |
# include <sys/ptrace.h>
|
|
Packit Service |
97d2fb |
#endif
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
#define BACKEND sparc_
|
|
Packit Service |
97d2fb |
#include "libebl_CPU.h"
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
bool
|
|
Packit Service |
97d2fb |
EBLHOOK (set_initial_registers_tid) (pid_t tid __attribute__ ((unused)),
|
|
Packit Service |
97d2fb |
ebl_tid_registers_t *setfunc __attribute__ ((unused)),
|
|
Packit Service |
97d2fb |
void *arg __attribute__ ((unused)))
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
#if !defined(__sparc__) || !defined( __arch64__)
|
|
Packit Service |
97d2fb |
return false;
|
|
Packit Service |
97d2fb |
#else /* __sparc__ */
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* The pt_regs structure filled in by PTRACE_GETREGS provides the
|
|
Packit Service |
97d2fb |
PC, the global registers and the output registers. Note how the
|
|
Packit Service |
97d2fb |
%g0 register is not explicitly provided in the structure (it's
|
|
Packit Service |
97d2fb |
value is always 0) and the resulting weird packing in the u_regs
|
|
Packit Service |
97d2fb |
array: the last element is not used. */
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
struct pt_regs regs;
|
|
Packit Service |
97d2fb |
if (ptrace (PTRACE_GETREGS, tid, ®s, 0) == -1)
|
|
Packit Service |
97d2fb |
return false;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* PC: no DWARF number */
|
|
Packit Service |
97d2fb |
if (!setfunc (-1, 1, (Dwarf_Word *) ®s.tpc, arg))
|
|
Packit Service |
97d2fb |
return false;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* Global registers: DWARF 0 .. 7 */
|
|
Packit Service |
97d2fb |
Dwarf_Word zero = 0;
|
|
Packit Service |
97d2fb |
if (!setfunc (0, 1, &zero, arg))
|
|
Packit Service |
97d2fb |
return false;
|
|
Packit Service |
97d2fb |
if (!setfunc (1, 7, (Dwarf_Word *) ®s.u_regs[0], arg))
|
|
Packit Service |
97d2fb |
return false;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* Output registers: DWARF 8 .. 15 */
|
|
Packit Service |
97d2fb |
if (!setfunc (8, 8, (Dwarf_Word *) ®s.u_regs[7], arg))
|
|
Packit Service |
97d2fb |
return false;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* Local and input registers must be read from the stack. They are
|
|
Packit Service |
97d2fb |
saved in the previous stack frame. The stack pointer is %o6,
|
|
Packit Service |
97d2fb |
read above. */
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
Dwarf_Word locals_outs[16];
|
|
Packit Service |
97d2fb |
Dwarf_Word sp = regs.u_regs[13];
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
if (sp & 1)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
/* Registers are 64 bits, and we need to apply the 2047 stack
|
|
Packit Service |
97d2fb |
bias in order to get the real stack pointer. */
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
sp += 2047;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
for (unsigned i = 0; i < 16; i++)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
locals_outs[i] = ptrace (PTRACE_PEEKDATA, tid,
|
|
Packit Service |
97d2fb |
(void *) (uintptr_t) (sp + (i * 8)),
|
|
Packit Service |
97d2fb |
NULL);
|
|
Packit Service |
97d2fb |
if (errno != 0)
|
|
Packit Service |
97d2fb |
return false;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
else
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
/* Registers are 32 bits. */
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
for (unsigned i = 0; i < 8; i++)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
Dwarf_Word tuple = ptrace (PTRACE_PEEKDATA, tid,
|
|
Packit Service |
97d2fb |
(void *) (uintptr_t) (sp + (i * 8)),
|
|
Packit Service |
97d2fb |
NULL);
|
|
Packit Service |
97d2fb |
if (errno != 0)
|
|
Packit Service |
97d2fb |
return false;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
locals_outs[2*i] = (tuple >> 32) & 0xffffffff;
|
|
Packit Service |
97d2fb |
locals_outs[2*i+1] = tuple & 0xffffffff;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* Local registers: DWARF 16 .. 23 */
|
|
Packit Service |
97d2fb |
if (!setfunc (16, 8, &locals_outs[0], arg))
|
|
Packit Service |
97d2fb |
return false;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* Input registers: DWARF 24 .. 31 */
|
|
Packit Service |
97d2fb |
if (!setfunc (24, 8, &locals_outs[8], arg))
|
|
Packit Service |
97d2fb |
return false;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
return true;
|
|
Packit Service |
97d2fb |
#endif
|
|
Packit Service |
97d2fb |
}
|