/* Target-dependent code for SPARC.
|
/* Target-dependent code for SPARC.
|
|
|
Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
|
Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
|
Free Software Foundation, Inc.
|
Free Software Foundation, Inc.
|
|
|
This file is part of GDB.
|
This file is part of GDB.
|
|
|
This program is free software; you can redistribute it and/or modify
|
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
|
it under the terms of the GNU General Public License as published by
|
the Free Software Foundation; either version 3 of the License, or
|
the Free Software Foundation; either version 3 of the License, or
|
(at your option) any later version.
|
(at your option) any later version.
|
|
|
This program is distributed in the hope that it will be useful,
|
This program is distributed in the hope that it will be useful,
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
GNU General Public License for more details.
|
GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
|
|
#include "defs.h"
|
#include "defs.h"
|
#include "arch-utils.h"
|
#include "arch-utils.h"
|
#include "dis-asm.h"
|
#include "dis-asm.h"
|
#include "dwarf2-frame.h"
|
#include "dwarf2-frame.h"
|
#include "floatformat.h"
|
#include "floatformat.h"
|
#include "frame.h"
|
#include "frame.h"
|
#include "frame-base.h"
|
#include "frame-base.h"
|
#include "frame-unwind.h"
|
#include "frame-unwind.h"
|
#include "gdbcore.h"
|
#include "gdbcore.h"
|
#include "gdbtypes.h"
|
#include "gdbtypes.h"
|
#include "inferior.h"
|
#include "inferior.h"
|
#include "symtab.h"
|
#include "symtab.h"
|
#include "objfiles.h"
|
#include "objfiles.h"
|
#include "osabi.h"
|
#include "osabi.h"
|
#include "regcache.h"
|
#include "regcache.h"
|
#include "target.h"
|
#include "target.h"
|
#include "value.h"
|
#include "value.h"
|
|
|
#include "gdb_assert.h"
|
#include "gdb_assert.h"
|
#include "gdb_string.h"
|
#include "gdb_string.h"
|
|
|
#include "sparc-tdep.h"
|
#include "sparc-tdep.h"
|
|
|
struct regset;
|
struct regset;
|
|
|
/* This file implements the SPARC 32-bit ABI as defined by the section
|
/* This file implements the SPARC 32-bit ABI as defined by the section
|
"Low-Level System Information" of the SPARC Compliance Definition
|
"Low-Level System Information" of the SPARC Compliance Definition
|
(SCD) 2.4.1, which is the 32-bit System V psABI for SPARC. The SCD
|
(SCD) 2.4.1, which is the 32-bit System V psABI for SPARC. The SCD
|
lists changes with respect to the original 32-bit psABI as defined
|
lists changes with respect to the original 32-bit psABI as defined
|
in the "System V ABI, SPARC Processor Supplement".
|
in the "System V ABI, SPARC Processor Supplement".
|
|
|
Note that if we talk about SunOS, we mean SunOS 4.x, which was
|
Note that if we talk about SunOS, we mean SunOS 4.x, which was
|
BSD-based, which is sometimes (retroactively?) referred to as
|
BSD-based, which is sometimes (retroactively?) referred to as
|
Solaris 1.x. If we talk about Solaris we mean Solaris 2.x and
|
Solaris 1.x. If we talk about Solaris we mean Solaris 2.x and
|
above (Solaris 7, 8 and 9 are nothing but Solaris 2.7, 2.8 and 2.9
|
above (Solaris 7, 8 and 9 are nothing but Solaris 2.7, 2.8 and 2.9
|
suffering from severe version number inflation). Solaris 2.x is
|
suffering from severe version number inflation). Solaris 2.x is
|
also known as SunOS 5.x, since that's what uname(1) says. Solaris
|
also known as SunOS 5.x, since that's what uname(1) says. Solaris
|
2.x is SVR4-based. */
|
2.x is SVR4-based. */
|
|
|
/* Please use the sparc32_-prefix for 32-bit specific code, the
|
/* Please use the sparc32_-prefix for 32-bit specific code, the
|
sparc64_-prefix for 64-bit specific code and the sparc_-prefix for
|
sparc64_-prefix for 64-bit specific code and the sparc_-prefix for
|
code that can handle both. The 64-bit specific code lives in
|
code that can handle both. The 64-bit specific code lives in
|
sparc64-tdep.c; don't add any here. */
|
sparc64-tdep.c; don't add any here. */
|
|
|
/* The SPARC Floating-Point Quad-Precision format is similar to
|
/* The SPARC Floating-Point Quad-Precision format is similar to
|
big-endian IA-64 Quad-recision format. */
|
big-endian IA-64 Quad-recision format. */
|
#define floatformats_sparc_quad floatformats_ia64_quad
|
#define floatformats_sparc_quad floatformats_ia64_quad
|
|
|
/* The stack pointer is offset from the stack frame by a BIAS of 2047
|
/* The stack pointer is offset from the stack frame by a BIAS of 2047
|
(0x7ff) for 64-bit code. BIAS is likely to be defined on SPARC
|
(0x7ff) for 64-bit code. BIAS is likely to be defined on SPARC
|
hosts, so undefine it first. */
|
hosts, so undefine it first. */
|
#undef BIAS
|
#undef BIAS
|
#define BIAS 2047
|
#define BIAS 2047
|
|
|
/* Macros to extract fields from SPARC instructions. */
|
/* Macros to extract fields from SPARC instructions. */
|
#define X_OP(i) (((i) >> 30) & 0x3)
|
#define X_OP(i) (((i) >> 30) & 0x3)
|
#define X_RD(i) (((i) >> 25) & 0x1f)
|
#define X_RD(i) (((i) >> 25) & 0x1f)
|
#define X_A(i) (((i) >> 29) & 1)
|
#define X_A(i) (((i) >> 29) & 1)
|
#define X_COND(i) (((i) >> 25) & 0xf)
|
#define X_COND(i) (((i) >> 25) & 0xf)
|
#define X_OP2(i) (((i) >> 22) & 0x7)
|
#define X_OP2(i) (((i) >> 22) & 0x7)
|
#define X_IMM22(i) ((i) & 0x3fffff)
|
#define X_IMM22(i) ((i) & 0x3fffff)
|
#define X_OP3(i) (((i) >> 19) & 0x3f)
|
#define X_OP3(i) (((i) >> 19) & 0x3f)
|
#define X_RS1(i) (((i) >> 14) & 0x1f)
|
#define X_RS1(i) (((i) >> 14) & 0x1f)
|
#define X_RS2(i) ((i) & 0x1f)
|
#define X_RS2(i) ((i) & 0x1f)
|
#define X_I(i) (((i) >> 13) & 1)
|
#define X_I(i) (((i) >> 13) & 1)
|
/* Sign extension macros. */
|
/* Sign extension macros. */
|
#define X_DISP22(i) ((X_IMM22 (i) ^ 0x200000) - 0x200000)
|
#define X_DISP22(i) ((X_IMM22 (i) ^ 0x200000) - 0x200000)
|
#define X_DISP19(i) ((((i) & 0x7ffff) ^ 0x40000) - 0x40000)
|
#define X_DISP19(i) ((((i) & 0x7ffff) ^ 0x40000) - 0x40000)
|
#define X_SIMM13(i) ((((i) & 0x1fff) ^ 0x1000) - 0x1000)
|
#define X_SIMM13(i) ((((i) & 0x1fff) ^ 0x1000) - 0x1000)
|
|
|
/* Fetch the instruction at PC. Instructions are always big-endian
|
/* Fetch the instruction at PC. Instructions are always big-endian
|
even if the processor operates in little-endian mode. */
|
even if the processor operates in little-endian mode. */
|
|
|
unsigned long
|
unsigned long
|
sparc_fetch_instruction (CORE_ADDR pc)
|
sparc_fetch_instruction (CORE_ADDR pc)
|
{
|
{
|
gdb_byte buf[4];
|
gdb_byte buf[4];
|
unsigned long insn;
|
unsigned long insn;
|
int i;
|
int i;
|
|
|
/* If we can't read the instruction at PC, return zero. */
|
/* If we can't read the instruction at PC, return zero. */
|
if (target_read_memory (pc, buf, sizeof (buf)))
|
if (target_read_memory (pc, buf, sizeof (buf)))
|
return 0;
|
return 0;
|
|
|
insn = 0;
|
insn = 0;
|
for (i = 0; i < sizeof (buf); i++)
|
for (i = 0; i < sizeof (buf); i++)
|
insn = (insn << 8) | buf[i];
|
insn = (insn << 8) | buf[i];
|
return insn;
|
return insn;
|
}
|
}
|
|
|
|
|
/* Return non-zero if the instruction corresponding to PC is an "unimp"
|
/* Return non-zero if the instruction corresponding to PC is an "unimp"
|
instruction. */
|
instruction. */
|
|
|
static int
|
static int
|
sparc_is_unimp_insn (CORE_ADDR pc)
|
sparc_is_unimp_insn (CORE_ADDR pc)
|
{
|
{
|
const unsigned long insn = sparc_fetch_instruction (pc);
|
const unsigned long insn = sparc_fetch_instruction (pc);
|
|
|
return ((insn & 0xc1c00000) == 0);
|
return ((insn & 0xc1c00000) == 0);
|
}
|
}
|
|
|
/* OpenBSD/sparc includes StackGhost, which according to the author's
|
/* OpenBSD/sparc includes StackGhost, which according to the author's
|
website http://stackghost.cerias.purdue.edu "... transparently and
|
website http://stackghost.cerias.purdue.edu "... transparently and
|
automatically protects applications' stack frames; more
|
automatically protects applications' stack frames; more
|
specifically, it guards the return pointers. The protection
|
specifically, it guards the return pointers. The protection
|
mechanisms require no application source or binary modification and
|
mechanisms require no application source or binary modification and
|
imposes only a negligible performance penalty."
|
imposes only a negligible performance penalty."
|
|
|
The same website provides the following description of how
|
The same website provides the following description of how
|
StackGhost works:
|
StackGhost works:
|
|
|
"StackGhost interfaces with the kernel trap handler that would
|
"StackGhost interfaces with the kernel trap handler that would
|
normally write out registers to the stack and the handler that
|
normally write out registers to the stack and the handler that
|
would read them back in. By XORing a cookie into the
|
would read them back in. By XORing a cookie into the
|
return-address saved in the user stack when it is actually written
|
return-address saved in the user stack when it is actually written
|
to the stack, and then XOR it out when the return-address is pulled
|
to the stack, and then XOR it out when the return-address is pulled
|
from the stack, StackGhost can cause attacker corrupted return
|
from the stack, StackGhost can cause attacker corrupted return
|
pointers to behave in a manner the attacker cannot predict.
|
pointers to behave in a manner the attacker cannot predict.
|
StackGhost can also use several unused bits in the return pointer
|
StackGhost can also use several unused bits in the return pointer
|
to detect a smashed return pointer and abort the process."
|
to detect a smashed return pointer and abort the process."
|
|
|
For GDB this means that whenever we're reading %i7 from a stack
|
For GDB this means that whenever we're reading %i7 from a stack
|
frame's window save area, we'll have to XOR the cookie.
|
frame's window save area, we'll have to XOR the cookie.
|
|
|
More information on StackGuard can be found on in:
|
More information on StackGuard can be found on in:
|
|
|
Mike Frantzen and Mike Shuey. "StackGhost: Hardware Facilitated
|
Mike Frantzen and Mike Shuey. "StackGhost: Hardware Facilitated
|
Stack Protection." 2001. Published in USENIX Security Symposium
|
Stack Protection." 2001. Published in USENIX Security Symposium
|
'01. */
|
'01. */
|
|
|
/* Fetch StackGhost Per-Process XOR cookie. */
|
/* Fetch StackGhost Per-Process XOR cookie. */
|
|
|
ULONGEST
|
ULONGEST
|
sparc_fetch_wcookie (struct gdbarch *gdbarch)
|
sparc_fetch_wcookie (struct gdbarch *gdbarch)
|
{
|
{
|
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
|
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
|
struct target_ops *ops = ¤t_target;
|
struct target_ops *ops = ¤t_target;
|
gdb_byte buf[8];
|
gdb_byte buf[8];
|
int len;
|
int len;
|
|
|
len = target_read (ops, TARGET_OBJECT_WCOOKIE, NULL, buf, 0, 8);
|
len = target_read (ops, TARGET_OBJECT_WCOOKIE, NULL, buf, 0, 8);
|
if (len == -1)
|
if (len == -1)
|
return 0;
|
return 0;
|
|
|
/* We should have either an 32-bit or an 64-bit cookie. */
|
/* We should have either an 32-bit or an 64-bit cookie. */
|
gdb_assert (len == 4 || len == 8);
|
gdb_assert (len == 4 || len == 8);
|
|
|
return extract_unsigned_integer (buf, len, byte_order);
|
return extract_unsigned_integer (buf, len, byte_order);
|
}
|
}
|
|
|
|
|
/* The functions on this page are intended to be used to classify
|
/* The functions on this page are intended to be used to classify
|
function arguments. */
|
function arguments. */
|
|
|
/* Check whether TYPE is "Integral or Pointer". */
|
/* Check whether TYPE is "Integral or Pointer". */
|
|
|
static int
|
static int
|
sparc_integral_or_pointer_p (const struct type *type)
|
sparc_integral_or_pointer_p (const struct type *type)
|
{
|
{
|
int len = TYPE_LENGTH (type);
|
int len = TYPE_LENGTH (type);
|
|
|
switch (TYPE_CODE (type))
|
switch (TYPE_CODE (type))
|
{
|
{
|
case TYPE_CODE_INT:
|
case TYPE_CODE_INT:
|
case TYPE_CODE_BOOL:
|
case TYPE_CODE_BOOL:
|
case TYPE_CODE_CHAR:
|
case TYPE_CODE_CHAR:
|
case TYPE_CODE_ENUM:
|
case TYPE_CODE_ENUM:
|
case TYPE_CODE_RANGE:
|
case TYPE_CODE_RANGE:
|
/* We have byte, half-word, word and extended-word/doubleword
|
/* We have byte, half-word, word and extended-word/doubleword
|
integral types. The doubleword is an extension to the
|
integral types. The doubleword is an extension to the
|
original 32-bit ABI by the SCD 2.4.x. */
|
original 32-bit ABI by the SCD 2.4.x. */
|
return (len == 1 || len == 2 || len == 4 || len == 8);
|
return (len == 1 || len == 2 || len == 4 || len == 8);
|
case TYPE_CODE_PTR:
|
case TYPE_CODE_PTR:
|
case TYPE_CODE_REF:
|
case TYPE_CODE_REF:
|
/* Allow either 32-bit or 64-bit pointers. */
|
/* Allow either 32-bit or 64-bit pointers. */
|
return (len == 4 || len == 8);
|
return (len == 4 || len == 8);
|
default:
|
default:
|
break;
|
break;
|
}
|
}
|
|
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Check whether TYPE is "Floating". */
|
/* Check whether TYPE is "Floating". */
|
|
|
static int
|
static int
|
sparc_floating_p (const struct type *type)
|
sparc_floating_p (const struct type *type)
|
{
|
{
|
switch (TYPE_CODE (type))
|
switch (TYPE_CODE (type))
|
{
|
{
|
case TYPE_CODE_FLT:
|
case TYPE_CODE_FLT:
|
{
|
{
|
int len = TYPE_LENGTH (type);
|
int len = TYPE_LENGTH (type);
|
return (len == 4 || len == 8 || len == 16);
|
return (len == 4 || len == 8 || len == 16);
|
}
|
}
|
default:
|
default:
|
break;
|
break;
|
}
|
}
|
|
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Check whether TYPE is "Structure or Union".
|
/* Check whether TYPE is "Structure or Union".
|
|
|
In terms of Ada subprogram calls, arrays are treated the same as
|
In terms of Ada subprogram calls, arrays are treated the same as
|
struct and union types. So this function also returns non-zero
|
struct and union types. So this function also returns non-zero
|
for array types. */
|
for array types. */
|
|
|
static int
|
static int
|
sparc_structure_or_union_p (const struct type *type)
|
sparc_structure_or_union_p (const struct type *type)
|
{
|
{
|
switch (TYPE_CODE (type))
|
switch (TYPE_CODE (type))
|
{
|
{
|
case TYPE_CODE_STRUCT:
|
case TYPE_CODE_STRUCT:
|
case TYPE_CODE_UNION:
|
case TYPE_CODE_UNION:
|
case TYPE_CODE_ARRAY:
|
case TYPE_CODE_ARRAY:
|
return 1;
|
return 1;
|
default:
|
default:
|
break;
|
break;
|
}
|
}
|
|
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Register information. */
|
/* Register information. */
|
|
|
static const char *sparc32_register_names[] =
|
static const char *sparc32_register_names[] =
|
{
|
{
|
"g0", "g1", "g2", "g3", "g4", "g5", "g6", "g7",
|
"g0", "g1", "g2", "g3", "g4", "g5", "g6", "g7",
|
"o0", "o1", "o2", "o3", "o4", "o5", "sp", "o7",
|
"o0", "o1", "o2", "o3", "o4", "o5", "sp", "o7",
|
"l0", "l1", "l2", "l3", "l4", "l5", "l6", "l7",
|
"l0", "l1", "l2", "l3", "l4", "l5", "l6", "l7",
|
"i0", "i1", "i2", "i3", "i4", "i5", "fp", "i7",
|
"i0", "i1", "i2", "i3", "i4", "i5", "fp", "i7",
|
|
|
"f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7",
|
"f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7",
|
"f8", "f9", "f10", "f11", "f12", "f13", "f14", "f15",
|
"f8", "f9", "f10", "f11", "f12", "f13", "f14", "f15",
|
"f16", "f17", "f18", "f19", "f20", "f21", "f22", "f23",
|
"f16", "f17", "f18", "f19", "f20", "f21", "f22", "f23",
|
"f24", "f25", "f26", "f27", "f28", "f29", "f30", "f31",
|
"f24", "f25", "f26", "f27", "f28", "f29", "f30", "f31",
|
|
|
"y", "psr", "wim", "tbr", "pc", "npc", "fsr", "csr"
|
"y", "psr", "wim", "tbr", "pc", "npc", "fsr", "csr"
|
};
|
};
|
|
|
/* Total number of registers. */
|
/* Total number of registers. */
|
#define SPARC32_NUM_REGS ARRAY_SIZE (sparc32_register_names)
|
#define SPARC32_NUM_REGS ARRAY_SIZE (sparc32_register_names)
|
|
|
/* We provide the aliases %d0..%d30 for the floating registers as
|
/* We provide the aliases %d0..%d30 for the floating registers as
|
"psuedo" registers. */
|
"psuedo" registers. */
|
|
|
static const char *sparc32_pseudo_register_names[] =
|
static const char *sparc32_pseudo_register_names[] =
|
{
|
{
|
"d0", "d2", "d4", "d6", "d8", "d10", "d12", "d14",
|
"d0", "d2", "d4", "d6", "d8", "d10", "d12", "d14",
|
"d16", "d18", "d20", "d22", "d24", "d26", "d28", "d30"
|
"d16", "d18", "d20", "d22", "d24", "d26", "d28", "d30"
|
};
|
};
|
|
|
/* Total number of pseudo registers. */
|
/* Total number of pseudo registers. */
|
#define SPARC32_NUM_PSEUDO_REGS ARRAY_SIZE (sparc32_pseudo_register_names)
|
#define SPARC32_NUM_PSEUDO_REGS ARRAY_SIZE (sparc32_pseudo_register_names)
|
|
|
/* Return the name of register REGNUM. */
|
/* Return the name of register REGNUM. */
|
|
|
static const char *
|
static const char *
|
sparc32_register_name (struct gdbarch *gdbarch, int regnum)
|
sparc32_register_name (struct gdbarch *gdbarch, int regnum)
|
{
|
{
|
if (regnum >= 0 && regnum < SPARC32_NUM_REGS)
|
if (regnum >= 0 && regnum < SPARC32_NUM_REGS)
|
return sparc32_register_names[regnum];
|
return sparc32_register_names[regnum];
|
|
|
if (regnum < SPARC32_NUM_REGS + SPARC32_NUM_PSEUDO_REGS)
|
if (regnum < SPARC32_NUM_REGS + SPARC32_NUM_PSEUDO_REGS)
|
return sparc32_pseudo_register_names[regnum - SPARC32_NUM_REGS];
|
return sparc32_pseudo_register_names[regnum - SPARC32_NUM_REGS];
|
|
|
return NULL;
|
return NULL;
|
}
|
}
|
|
|
/* Construct types for ISA-specific registers. */
|
/* Construct types for ISA-specific registers. */
|
|
|
static struct type *
|
static struct type *
|
sparc_psr_type (struct gdbarch *gdbarch)
|
sparc_psr_type (struct gdbarch *gdbarch)
|
{
|
{
|
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
|
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
|
|
|
if (!tdep->sparc_psr_type)
|
if (!tdep->sparc_psr_type)
|
{
|
{
|
struct type *type;
|
struct type *type;
|
|
|
type = arch_flags_type (gdbarch, "builtin_type_sparc_psr", 4);
|
type = arch_flags_type (gdbarch, "builtin_type_sparc_psr", 4);
|
append_flags_type_flag (type, 5, "ET");
|
append_flags_type_flag (type, 5, "ET");
|
append_flags_type_flag (type, 6, "PS");
|
append_flags_type_flag (type, 6, "PS");
|
append_flags_type_flag (type, 7, "S");
|
append_flags_type_flag (type, 7, "S");
|
append_flags_type_flag (type, 12, "EF");
|
append_flags_type_flag (type, 12, "EF");
|
append_flags_type_flag (type, 13, "EC");
|
append_flags_type_flag (type, 13, "EC");
|
|
|
tdep->sparc_psr_type = type;
|
tdep->sparc_psr_type = type;
|
}
|
}
|
|
|
return tdep->sparc_psr_type;
|
return tdep->sparc_psr_type;
|
}
|
}
|
|
|
static struct type *
|
static struct type *
|
sparc_fsr_type (struct gdbarch *gdbarch)
|
sparc_fsr_type (struct gdbarch *gdbarch)
|
{
|
{
|
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
|
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
|
|
|
if (!tdep->sparc_fsr_type)
|
if (!tdep->sparc_fsr_type)
|
{
|
{
|
struct type *type;
|
struct type *type;
|
|
|
type = arch_flags_type (gdbarch, "builtin_type_sparc_fsr", 4);
|
type = arch_flags_type (gdbarch, "builtin_type_sparc_fsr", 4);
|
append_flags_type_flag (type, 0, "NXA");
|
append_flags_type_flag (type, 0, "NXA");
|
append_flags_type_flag (type, 1, "DZA");
|
append_flags_type_flag (type, 1, "DZA");
|
append_flags_type_flag (type, 2, "UFA");
|
append_flags_type_flag (type, 2, "UFA");
|
append_flags_type_flag (type, 3, "OFA");
|
append_flags_type_flag (type, 3, "OFA");
|
append_flags_type_flag (type, 4, "NVA");
|
append_flags_type_flag (type, 4, "NVA");
|
append_flags_type_flag (type, 5, "NXC");
|
append_flags_type_flag (type, 5, "NXC");
|
append_flags_type_flag (type, 6, "DZC");
|
append_flags_type_flag (type, 6, "DZC");
|
append_flags_type_flag (type, 7, "UFC");
|
append_flags_type_flag (type, 7, "UFC");
|
append_flags_type_flag (type, 8, "OFC");
|
append_flags_type_flag (type, 8, "OFC");
|
append_flags_type_flag (type, 9, "NVC");
|
append_flags_type_flag (type, 9, "NVC");
|
append_flags_type_flag (type, 22, "NS");
|
append_flags_type_flag (type, 22, "NS");
|
append_flags_type_flag (type, 23, "NXM");
|
append_flags_type_flag (type, 23, "NXM");
|
append_flags_type_flag (type, 24, "DZM");
|
append_flags_type_flag (type, 24, "DZM");
|
append_flags_type_flag (type, 25, "UFM");
|
append_flags_type_flag (type, 25, "UFM");
|
append_flags_type_flag (type, 26, "OFM");
|
append_flags_type_flag (type, 26, "OFM");
|
append_flags_type_flag (type, 27, "NVM");
|
append_flags_type_flag (type, 27, "NVM");
|
|
|
tdep->sparc_fsr_type = type;
|
tdep->sparc_fsr_type = type;
|
}
|
}
|
|
|
return tdep->sparc_fsr_type;
|
return tdep->sparc_fsr_type;
|
}
|
}
|
|
|
/* Return the GDB type object for the "standard" data type of data in
|
/* Return the GDB type object for the "standard" data type of data in
|
register REGNUM. */
|
register REGNUM. */
|
|
|
static struct type *
|
static struct type *
|
sparc32_register_type (struct gdbarch *gdbarch, int regnum)
|
sparc32_register_type (struct gdbarch *gdbarch, int regnum)
|
{
|
{
|
if (regnum >= SPARC_F0_REGNUM && regnum <= SPARC_F31_REGNUM)
|
if (regnum >= SPARC_F0_REGNUM && regnum <= SPARC_F31_REGNUM)
|
return builtin_type (gdbarch)->builtin_float;
|
return builtin_type (gdbarch)->builtin_float;
|
|
|
if (regnum >= SPARC32_D0_REGNUM && regnum <= SPARC32_D30_REGNUM)
|
if (regnum >= SPARC32_D0_REGNUM && regnum <= SPARC32_D30_REGNUM)
|
return builtin_type (gdbarch)->builtin_double;
|
return builtin_type (gdbarch)->builtin_double;
|
|
|
if (regnum == SPARC_SP_REGNUM || regnum == SPARC_FP_REGNUM)
|
if (regnum == SPARC_SP_REGNUM || regnum == SPARC_FP_REGNUM)
|
return builtin_type (gdbarch)->builtin_data_ptr;
|
return builtin_type (gdbarch)->builtin_data_ptr;
|
|
|
if (regnum == SPARC32_PC_REGNUM || regnum == SPARC32_NPC_REGNUM)
|
if (regnum == SPARC32_PC_REGNUM || regnum == SPARC32_NPC_REGNUM)
|
return builtin_type (gdbarch)->builtin_func_ptr;
|
return builtin_type (gdbarch)->builtin_func_ptr;
|
|
|
if (regnum == SPARC32_PSR_REGNUM)
|
if (regnum == SPARC32_PSR_REGNUM)
|
return sparc_psr_type (gdbarch);
|
return sparc_psr_type (gdbarch);
|
|
|
if (regnum == SPARC32_FSR_REGNUM)
|
if (regnum == SPARC32_FSR_REGNUM)
|
return sparc_fsr_type (gdbarch);
|
return sparc_fsr_type (gdbarch);
|
|
|
return builtin_type (gdbarch)->builtin_int32;
|
return builtin_type (gdbarch)->builtin_int32;
|
}
|
}
|
|
|
static void
|
static void
|
sparc32_pseudo_register_read (struct gdbarch *gdbarch,
|
sparc32_pseudo_register_read (struct gdbarch *gdbarch,
|
struct regcache *regcache,
|
struct regcache *regcache,
|
int regnum, gdb_byte *buf)
|
int regnum, gdb_byte *buf)
|
{
|
{
|
gdb_assert (regnum >= SPARC32_D0_REGNUM && regnum <= SPARC32_D30_REGNUM);
|
gdb_assert (regnum >= SPARC32_D0_REGNUM && regnum <= SPARC32_D30_REGNUM);
|
|
|
regnum = SPARC_F0_REGNUM + 2 * (regnum - SPARC32_D0_REGNUM);
|
regnum = SPARC_F0_REGNUM + 2 * (regnum - SPARC32_D0_REGNUM);
|
regcache_raw_read (regcache, regnum, buf);
|
regcache_raw_read (regcache, regnum, buf);
|
regcache_raw_read (regcache, regnum + 1, buf + 4);
|
regcache_raw_read (regcache, regnum + 1, buf + 4);
|
}
|
}
|
|
|
static void
|
static void
|
sparc32_pseudo_register_write (struct gdbarch *gdbarch,
|
sparc32_pseudo_register_write (struct gdbarch *gdbarch,
|
struct regcache *regcache,
|
struct regcache *regcache,
|
int regnum, const gdb_byte *buf)
|
int regnum, const gdb_byte *buf)
|
{
|
{
|
gdb_assert (regnum >= SPARC32_D0_REGNUM && regnum <= SPARC32_D30_REGNUM);
|
gdb_assert (regnum >= SPARC32_D0_REGNUM && regnum <= SPARC32_D30_REGNUM);
|
|
|
regnum = SPARC_F0_REGNUM + 2 * (regnum - SPARC32_D0_REGNUM);
|
regnum = SPARC_F0_REGNUM + 2 * (regnum - SPARC32_D0_REGNUM);
|
regcache_raw_write (regcache, regnum, buf);
|
regcache_raw_write (regcache, regnum, buf);
|
regcache_raw_write (regcache, regnum + 1, buf + 4);
|
regcache_raw_write (regcache, regnum + 1, buf + 4);
|
}
|
}
|
|
|
|
|
static CORE_ADDR
|
static CORE_ADDR
|
sparc32_push_dummy_code (struct gdbarch *gdbarch, CORE_ADDR sp,
|
sparc32_push_dummy_code (struct gdbarch *gdbarch, CORE_ADDR sp,
|
CORE_ADDR funcaddr,
|
CORE_ADDR funcaddr,
|
struct value **args, int nargs,
|
struct value **args, int nargs,
|
struct type *value_type,
|
struct type *value_type,
|
CORE_ADDR *real_pc, CORE_ADDR *bp_addr,
|
CORE_ADDR *real_pc, CORE_ADDR *bp_addr,
|
struct regcache *regcache)
|
struct regcache *regcache)
|
{
|
{
|
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
|
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
|
|
|
*bp_addr = sp - 4;
|
*bp_addr = sp - 4;
|
*real_pc = funcaddr;
|
*real_pc = funcaddr;
|
|
|
if (using_struct_return (gdbarch, NULL, value_type))
|
if (using_struct_return (gdbarch, NULL, value_type))
|
{
|
{
|
gdb_byte buf[4];
|
gdb_byte buf[4];
|
|
|
/* This is an UNIMP instruction. */
|
/* This is an UNIMP instruction. */
|
store_unsigned_integer (buf, 4, byte_order,
|
store_unsigned_integer (buf, 4, byte_order,
|
TYPE_LENGTH (value_type) & 0x1fff);
|
TYPE_LENGTH (value_type) & 0x1fff);
|
write_memory (sp - 8, buf, 4);
|
write_memory (sp - 8, buf, 4);
|
return sp - 8;
|
return sp - 8;
|
}
|
}
|
|
|
return sp - 4;
|
return sp - 4;
|
}
|
}
|
|
|
static CORE_ADDR
|
static CORE_ADDR
|
sparc32_store_arguments (struct regcache *regcache, int nargs,
|
sparc32_store_arguments (struct regcache *regcache, int nargs,
|
struct value **args, CORE_ADDR sp,
|
struct value **args, CORE_ADDR sp,
|
int struct_return, CORE_ADDR struct_addr)
|
int struct_return, CORE_ADDR struct_addr)
|
{
|
{
|
struct gdbarch *gdbarch = get_regcache_arch (regcache);
|
struct gdbarch *gdbarch = get_regcache_arch (regcache);
|
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
|
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
|
/* Number of words in the "parameter array". */
|
/* Number of words in the "parameter array". */
|
int num_elements = 0;
|
int num_elements = 0;
|
int element = 0;
|
int element = 0;
|
int i;
|
int i;
|
|
|
for (i = 0; i < nargs; i++)
|
for (i = 0; i < nargs; i++)
|
{
|
{
|
struct type *type = value_type (args[i]);
|
struct type *type = value_type (args[i]);
|
int len = TYPE_LENGTH (type);
|
int len = TYPE_LENGTH (type);
|
|
|
if (sparc_structure_or_union_p (type)
|
if (sparc_structure_or_union_p (type)
|
|| (sparc_floating_p (type) && len == 16))
|
|| (sparc_floating_p (type) && len == 16))
|
{
|
{
|
/* Structure, Union and Quad-Precision Arguments. */
|
/* Structure, Union and Quad-Precision Arguments. */
|
sp -= len;
|
sp -= len;
|
|
|
/* Use doubleword alignment for these values. That's always
|
/* Use doubleword alignment for these values. That's always
|
correct, and wasting a few bytes shouldn't be a problem. */
|
correct, and wasting a few bytes shouldn't be a problem. */
|
sp &= ~0x7;
|
sp &= ~0x7;
|
|
|
write_memory (sp, value_contents (args[i]), len);
|
write_memory (sp, value_contents (args[i]), len);
|
args[i] = value_from_pointer (lookup_pointer_type (type), sp);
|
args[i] = value_from_pointer (lookup_pointer_type (type), sp);
|
num_elements++;
|
num_elements++;
|
}
|
}
|
else if (sparc_floating_p (type))
|
else if (sparc_floating_p (type))
|
{
|
{
|
/* Floating arguments. */
|
/* Floating arguments. */
|
gdb_assert (len == 4 || len == 8);
|
gdb_assert (len == 4 || len == 8);
|
num_elements += (len / 4);
|
num_elements += (len / 4);
|
}
|
}
|
else
|
else
|
{
|
{
|
/* Integral and pointer arguments. */
|
/* Integral and pointer arguments. */
|
gdb_assert (sparc_integral_or_pointer_p (type));
|
gdb_assert (sparc_integral_or_pointer_p (type));
|
|
|
if (len < 4)
|
if (len < 4)
|
args[i] = value_cast (builtin_type (gdbarch)->builtin_int32,
|
args[i] = value_cast (builtin_type (gdbarch)->builtin_int32,
|
args[i]);
|
args[i]);
|
num_elements += ((len + 3) / 4);
|
num_elements += ((len + 3) / 4);
|
}
|
}
|
}
|
}
|
|
|
/* Always allocate at least six words. */
|
/* Always allocate at least six words. */
|
sp -= max (6, num_elements) * 4;
|
sp -= max (6, num_elements) * 4;
|
|
|
/* The psABI says that "Software convention requires space for the
|
/* The psABI says that "Software convention requires space for the
|
struct/union return value pointer, even if the word is unused." */
|
struct/union return value pointer, even if the word is unused." */
|
sp -= 4;
|
sp -= 4;
|
|
|
/* The psABI says that "Although software convention and the
|
/* The psABI says that "Although software convention and the
|
operating system require every stack frame to be doubleword
|
operating system require every stack frame to be doubleword
|
aligned." */
|
aligned." */
|
sp &= ~0x7;
|
sp &= ~0x7;
|
|
|
for (i = 0; i < nargs; i++)
|
for (i = 0; i < nargs; i++)
|
{
|
{
|
const bfd_byte *valbuf = value_contents (args[i]);
|
const bfd_byte *valbuf = value_contents (args[i]);
|
struct type *type = value_type (args[i]);
|
struct type *type = value_type (args[i]);
|
int len = TYPE_LENGTH (type);
|
int len = TYPE_LENGTH (type);
|
|
|
gdb_assert (len == 4 || len == 8);
|
gdb_assert (len == 4 || len == 8);
|
|
|
if (element < 6)
|
if (element < 6)
|
{
|
{
|
int regnum = SPARC_O0_REGNUM + element;
|
int regnum = SPARC_O0_REGNUM + element;
|
|
|
regcache_cooked_write (regcache, regnum, valbuf);
|
regcache_cooked_write (regcache, regnum, valbuf);
|
if (len > 4 && element < 5)
|
if (len > 4 && element < 5)
|
regcache_cooked_write (regcache, regnum + 1, valbuf + 4);
|
regcache_cooked_write (regcache, regnum + 1, valbuf + 4);
|
}
|
}
|
|
|
/* Always store the argument in memory. */
|
/* Always store the argument in memory. */
|
write_memory (sp + 4 + element * 4, valbuf, len);
|
write_memory (sp + 4 + element * 4, valbuf, len);
|
element += len / 4;
|
element += len / 4;
|
}
|
}
|
|
|
gdb_assert (element == num_elements);
|
gdb_assert (element == num_elements);
|
|
|
if (struct_return)
|
if (struct_return)
|
{
|
{
|
gdb_byte buf[4];
|
gdb_byte buf[4];
|
|
|
store_unsigned_integer (buf, 4, byte_order, struct_addr);
|
store_unsigned_integer (buf, 4, byte_order, struct_addr);
|
write_memory (sp, buf, 4);
|
write_memory (sp, buf, 4);
|
}
|
}
|
|
|
return sp;
|
return sp;
|
}
|
}
|
|
|
static CORE_ADDR
|
static CORE_ADDR
|
sparc32_push_dummy_call (struct gdbarch *gdbarch, struct value *function,
|
sparc32_push_dummy_call (struct gdbarch *gdbarch, struct value *function,
|
struct regcache *regcache, CORE_ADDR bp_addr,
|
struct regcache *regcache, CORE_ADDR bp_addr,
|
int nargs, struct value **args, CORE_ADDR sp,
|
int nargs, struct value **args, CORE_ADDR sp,
|
int struct_return, CORE_ADDR struct_addr)
|
int struct_return, CORE_ADDR struct_addr)
|
{
|
{
|
CORE_ADDR call_pc = (struct_return ? (bp_addr - 12) : (bp_addr - 8));
|
CORE_ADDR call_pc = (struct_return ? (bp_addr - 12) : (bp_addr - 8));
|
|
|
/* Set return address. */
|
/* Set return address. */
|
regcache_cooked_write_unsigned (regcache, SPARC_O7_REGNUM, call_pc);
|
regcache_cooked_write_unsigned (regcache, SPARC_O7_REGNUM, call_pc);
|
|
|
/* Set up function arguments. */
|
/* Set up function arguments. */
|
sp = sparc32_store_arguments (regcache, nargs, args, sp,
|
sp = sparc32_store_arguments (regcache, nargs, args, sp,
|
struct_return, struct_addr);
|
struct_return, struct_addr);
|
|
|
/* Allocate the 16-word window save area. */
|
/* Allocate the 16-word window save area. */
|
sp -= 16 * 4;
|
sp -= 16 * 4;
|
|
|
/* Stack should be doubleword aligned at this point. */
|
/* Stack should be doubleword aligned at this point. */
|
gdb_assert (sp % 8 == 0);
|
gdb_assert (sp % 8 == 0);
|
|
|
/* Finally, update the stack pointer. */
|
/* Finally, update the stack pointer. */
|
regcache_cooked_write_unsigned (regcache, SPARC_SP_REGNUM, sp);
|
regcache_cooked_write_unsigned (regcache, SPARC_SP_REGNUM, sp);
|
|
|
return sp;
|
return sp;
|
}
|
}
|
|
|
|
|
/* Use the program counter to determine the contents and size of a
|
/* Use the program counter to determine the contents and size of a
|
breakpoint instruction. Return a pointer to a string of bytes that
|
breakpoint instruction. Return a pointer to a string of bytes that
|
encode a breakpoint instruction, store the length of the string in
|
encode a breakpoint instruction, store the length of the string in
|
*LEN and optionally adjust *PC to point to the correct memory
|
*LEN and optionally adjust *PC to point to the correct memory
|
location for inserting the breakpoint. */
|
location for inserting the breakpoint. */
|
|
|
static const gdb_byte *
|
static const gdb_byte *
|
sparc_breakpoint_from_pc (struct gdbarch *gdbarch, CORE_ADDR *pc, int *len)
|
sparc_breakpoint_from_pc (struct gdbarch *gdbarch, CORE_ADDR *pc, int *len)
|
{
|
{
|
static const gdb_byte break_insn[] = { 0x91, 0xd0, 0x20, 0x01 };
|
static const gdb_byte break_insn[] = { 0x91, 0xd0, 0x20, 0x01 };
|
|
|
*len = sizeof (break_insn);
|
*len = sizeof (break_insn);
|
return break_insn;
|
return break_insn;
|
}
|
}
|
|
|
|
|
/* Allocate and initialize a frame cache. */
|
/* Allocate and initialize a frame cache. */
|
|
|
static struct sparc_frame_cache *
|
static struct sparc_frame_cache *
|
sparc_alloc_frame_cache (void)
|
sparc_alloc_frame_cache (void)
|
{
|
{
|
struct sparc_frame_cache *cache;
|
struct sparc_frame_cache *cache;
|
int i;
|
int i;
|
|
|
cache = FRAME_OBSTACK_ZALLOC (struct sparc_frame_cache);
|
cache = FRAME_OBSTACK_ZALLOC (struct sparc_frame_cache);
|
|
|
/* Base address. */
|
/* Base address. */
|
cache->base = 0;
|
cache->base = 0;
|
cache->pc = 0;
|
cache->pc = 0;
|
|
|
/* Frameless until proven otherwise. */
|
/* Frameless until proven otherwise. */
|
cache->frameless_p = 1;
|
cache->frameless_p = 1;
|
|
|
cache->struct_return_p = 0;
|
cache->struct_return_p = 0;
|
|
|
return cache;
|
return cache;
|
}
|
}
|
|
|
/* GCC generates several well-known sequences of instructions at the begining
|
/* GCC generates several well-known sequences of instructions at the begining
|
of each function prologue when compiling with -fstack-check. If one of
|
of each function prologue when compiling with -fstack-check. If one of
|
such sequences starts at START_PC, then return the address of the
|
such sequences starts at START_PC, then return the address of the
|
instruction immediately past this sequence. Otherwise, return START_PC. */
|
instruction immediately past this sequence. Otherwise, return START_PC. */
|
|
|
static CORE_ADDR
|
static CORE_ADDR
|
sparc_skip_stack_check (const CORE_ADDR start_pc)
|
sparc_skip_stack_check (const CORE_ADDR start_pc)
|
{
|
{
|
CORE_ADDR pc = start_pc;
|
CORE_ADDR pc = start_pc;
|
unsigned long insn;
|
unsigned long insn;
|
int offset_stack_checking_sequence = 0;
|
int offset_stack_checking_sequence = 0;
|
|
|
/* With GCC, all stack checking sequences begin with the same two
|
/* With GCC, all stack checking sequences begin with the same two
|
instructions. */
|
instructions. */
|
|
|
/* sethi <some immediate>,%g1 */
|
/* sethi <some immediate>,%g1 */
|
insn = sparc_fetch_instruction (pc);
|
insn = sparc_fetch_instruction (pc);
|
pc = pc + 4;
|
pc = pc + 4;
|
if (!(X_OP (insn) == 0 && X_OP2 (insn) == 0x4 && X_RD (insn) == 1))
|
if (!(X_OP (insn) == 0 && X_OP2 (insn) == 0x4 && X_RD (insn) == 1))
|
return start_pc;
|
return start_pc;
|
|
|
/* sub %sp, %g1, %g1 */
|
/* sub %sp, %g1, %g1 */
|
insn = sparc_fetch_instruction (pc);
|
insn = sparc_fetch_instruction (pc);
|
pc = pc + 4;
|
pc = pc + 4;
|
if (!(X_OP (insn) == 2 && X_OP3 (insn) == 0x4 && !X_I(insn)
|
if (!(X_OP (insn) == 2 && X_OP3 (insn) == 0x4 && !X_I(insn)
|
&& X_RD (insn) == 1 && X_RS1 (insn) == 14 && X_RS2 (insn) == 1))
|
&& X_RD (insn) == 1 && X_RS1 (insn) == 14 && X_RS2 (insn) == 1))
|
return start_pc;
|
return start_pc;
|
|
|
insn = sparc_fetch_instruction (pc);
|
insn = sparc_fetch_instruction (pc);
|
pc = pc + 4;
|
pc = pc + 4;
|
|
|
/* First possible sequence:
|
/* First possible sequence:
|
[first two instructions above]
|
[first two instructions above]
|
clr [%g1 - some immediate] */
|
clr [%g1 - some immediate] */
|
|
|
/* clr [%g1 - some immediate] */
|
/* clr [%g1 - some immediate] */
|
if (X_OP (insn) == 3 && X_OP3(insn) == 0x4 && X_I(insn)
|
if (X_OP (insn) == 3 && X_OP3(insn) == 0x4 && X_I(insn)
|
&& X_RS1 (insn) == 1 && X_RD (insn) == 0)
|
&& X_RS1 (insn) == 1 && X_RD (insn) == 0)
|
{
|
{
|
/* Valid stack-check sequence, return the new PC. */
|
/* Valid stack-check sequence, return the new PC. */
|
return pc;
|
return pc;
|
}
|
}
|
|
|
/* Second possible sequence: A small number of probes.
|
/* Second possible sequence: A small number of probes.
|
[first two instructions above]
|
[first two instructions above]
|
clr [%g1]
|
clr [%g1]
|
add %g1, -<some immediate>, %g1
|
add %g1, -<some immediate>, %g1
|
clr [%g1]
|
clr [%g1]
|
[repeat the two instructions above any (small) number of times]
|
[repeat the two instructions above any (small) number of times]
|
clr [%g1 - some immediate] */
|
clr [%g1 - some immediate] */
|
|
|
/* clr [%g1] */
|
/* clr [%g1] */
|
else if (X_OP (insn) == 3 && X_OP3(insn) == 0x4 && !X_I(insn)
|
else if (X_OP (insn) == 3 && X_OP3(insn) == 0x4 && !X_I(insn)
|
&& X_RS1 (insn) == 1 && X_RD (insn) == 0)
|
&& X_RS1 (insn) == 1 && X_RD (insn) == 0)
|
{
|
{
|
while (1)
|
while (1)
|
{
|
{
|
/* add %g1, -<some immediate>, %g1 */
|
/* add %g1, -<some immediate>, %g1 */
|
insn = sparc_fetch_instruction (pc);
|
insn = sparc_fetch_instruction (pc);
|
pc = pc + 4;
|
pc = pc + 4;
|
if (!(X_OP (insn) == 2 && X_OP3(insn) == 0 && X_I(insn)
|
if (!(X_OP (insn) == 2 && X_OP3(insn) == 0 && X_I(insn)
|
&& X_RS1 (insn) == 1 && X_RD (insn) == 1))
|
&& X_RS1 (insn) == 1 && X_RD (insn) == 1))
|
break;
|
break;
|
|
|
/* clr [%g1] */
|
/* clr [%g1] */
|
insn = sparc_fetch_instruction (pc);
|
insn = sparc_fetch_instruction (pc);
|
pc = pc + 4;
|
pc = pc + 4;
|
if (!(X_OP (insn) == 3 && X_OP3(insn) == 0x4 && !X_I(insn)
|
if (!(X_OP (insn) == 3 && X_OP3(insn) == 0x4 && !X_I(insn)
|
&& X_RD (insn) == 0 && X_RS1 (insn) == 1))
|
&& X_RD (insn) == 0 && X_RS1 (insn) == 1))
|
return start_pc;
|
return start_pc;
|
}
|
}
|
|
|
/* clr [%g1 - some immediate] */
|
/* clr [%g1 - some immediate] */
|
if (!(X_OP (insn) == 3 && X_OP3(insn) == 0x4 && X_I(insn)
|
if (!(X_OP (insn) == 3 && X_OP3(insn) == 0x4 && X_I(insn)
|
&& X_RS1 (insn) == 1 && X_RD (insn) == 0))
|
&& X_RS1 (insn) == 1 && X_RD (insn) == 0))
|
return start_pc;
|
return start_pc;
|
|
|
/* We found a valid stack-check sequence, return the new PC. */
|
/* We found a valid stack-check sequence, return the new PC. */
|
return pc;
|
return pc;
|
}
|
}
|
|
|
/* Third sequence: A probing loop.
|
/* Third sequence: A probing loop.
|
[first two instructions above]
|
[first two instructions above]
|
sethi <some immediate>, %g4
|
sethi <some immediate>, %g4
|
sub %g1, %g4, %g4
|
sub %g1, %g4, %g4
|
cmp %g1, %g4
|
cmp %g1, %g4
|
be <disp>
|
be <disp>
|
add %g1, -<some immediate>, %g1
|
add %g1, -<some immediate>, %g1
|
ba <disp>
|
ba <disp>
|
clr [%g1]
|
clr [%g1]
|
clr [%g4 - some immediate] */
|
clr [%g4 - some immediate] */
|
|
|
/* sethi <some immediate>, %g4 */
|
/* sethi <some immediate>, %g4 */
|
else if (X_OP (insn) == 0 && X_OP2 (insn) == 0x4 && X_RD (insn) == 4)
|
else if (X_OP (insn) == 0 && X_OP2 (insn) == 0x4 && X_RD (insn) == 4)
|
{
|
{
|
/* sub %g1, %g4, %g4 */
|
/* sub %g1, %g4, %g4 */
|
insn = sparc_fetch_instruction (pc);
|
insn = sparc_fetch_instruction (pc);
|
pc = pc + 4;
|
pc = pc + 4;
|
if (!(X_OP (insn) == 2 && X_OP3 (insn) == 0x4 && !X_I(insn)
|
if (!(X_OP (insn) == 2 && X_OP3 (insn) == 0x4 && !X_I(insn)
|
&& X_RD (insn) == 4 && X_RS1 (insn) == 1 && X_RS2 (insn) == 4))
|
&& X_RD (insn) == 4 && X_RS1 (insn) == 1 && X_RS2 (insn) == 4))
|
return start_pc;
|
return start_pc;
|
|
|
/* cmp %g1, %g4 */
|
/* cmp %g1, %g4 */
|
insn = sparc_fetch_instruction (pc);
|
insn = sparc_fetch_instruction (pc);
|
pc = pc + 4;
|
pc = pc + 4;
|
if (!(X_OP (insn) == 2 && X_OP3 (insn) == 0x14 && !X_I(insn)
|
if (!(X_OP (insn) == 2 && X_OP3 (insn) == 0x14 && !X_I(insn)
|
&& X_RD (insn) == 0 && X_RS1 (insn) == 1 && X_RS2 (insn) == 4))
|
&& X_RD (insn) == 0 && X_RS1 (insn) == 1 && X_RS2 (insn) == 4))
|
return start_pc;
|
return start_pc;
|
|
|
/* be <disp> */
|
/* be <disp> */
|
insn = sparc_fetch_instruction (pc);
|
insn = sparc_fetch_instruction (pc);
|
pc = pc + 4;
|
pc = pc + 4;
|
if (!(X_OP (insn) == 0 && X_COND (insn) == 0x1))
|
if (!(X_OP (insn) == 0 && X_COND (insn) == 0x1))
|
return start_pc;
|
return start_pc;
|
|
|
/* add %g1, -<some immediate>, %g1 */
|
/* add %g1, -<some immediate>, %g1 */
|
insn = sparc_fetch_instruction (pc);
|
insn = sparc_fetch_instruction (pc);
|
pc = pc + 4;
|
pc = pc + 4;
|
if (!(X_OP (insn) == 2 && X_OP3(insn) == 0 && X_I(insn)
|
if (!(X_OP (insn) == 2 && X_OP3(insn) == 0 && X_I(insn)
|
&& X_RS1 (insn) == 1 && X_RD (insn) == 1))
|
&& X_RS1 (insn) == 1 && X_RD (insn) == 1))
|
return start_pc;
|
return start_pc;
|
|
|
/* ba <disp> */
|
/* ba <disp> */
|
insn = sparc_fetch_instruction (pc);
|
insn = sparc_fetch_instruction (pc);
|
pc = pc + 4;
|
pc = pc + 4;
|
if (!(X_OP (insn) == 0 && X_COND (insn) == 0x8))
|
if (!(X_OP (insn) == 0 && X_COND (insn) == 0x8))
|
return start_pc;
|
return start_pc;
|
|
|
/* clr [%g1] */
|
/* clr [%g1] */
|
insn = sparc_fetch_instruction (pc);
|
insn = sparc_fetch_instruction (pc);
|
pc = pc + 4;
|
pc = pc + 4;
|
if (!(X_OP (insn) == 3 && X_OP3(insn) == 0x4 && !X_I(insn)
|
if (!(X_OP (insn) == 3 && X_OP3(insn) == 0x4 && !X_I(insn)
|
&& X_RD (insn) == 0 && X_RS1 (insn) == 1))
|
&& X_RD (insn) == 0 && X_RS1 (insn) == 1))
|
return start_pc;
|
return start_pc;
|
|
|
/* clr [%g4 - some immediate] */
|
/* clr [%g4 - some immediate] */
|
insn = sparc_fetch_instruction (pc);
|
insn = sparc_fetch_instruction (pc);
|
pc = pc + 4;
|
pc = pc + 4;
|
if (!(X_OP (insn) == 3 && X_OP3(insn) == 0x4 && X_I(insn)
|
if (!(X_OP (insn) == 3 && X_OP3(insn) == 0x4 && X_I(insn)
|
&& X_RS1 (insn) == 4 && X_RD (insn) == 0))
|
&& X_RS1 (insn) == 4 && X_RD (insn) == 0))
|
return start_pc;
|
return start_pc;
|
|
|
/* We found a valid stack-check sequence, return the new PC. */
|
/* We found a valid stack-check sequence, return the new PC. */
|
return pc;
|
return pc;
|
}
|
}
|
|
|
/* No stack check code in our prologue, return the start_pc. */
|
/* No stack check code in our prologue, return the start_pc. */
|
return start_pc;
|
return start_pc;
|
}
|
}
|
|
|
CORE_ADDR
|
CORE_ADDR
|
sparc_analyze_prologue (struct gdbarch *gdbarch, CORE_ADDR pc,
|
sparc_analyze_prologue (struct gdbarch *gdbarch, CORE_ADDR pc,
|
CORE_ADDR current_pc, struct sparc_frame_cache *cache)
|
CORE_ADDR current_pc, struct sparc_frame_cache *cache)
|
{
|
{
|
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
|
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
|
unsigned long insn;
|
unsigned long insn;
|
int offset = 0;
|
int offset = 0;
|
int dest = -1;
|
int dest = -1;
|
|
|
pc = sparc_skip_stack_check (pc);
|
pc = sparc_skip_stack_check (pc);
|
|
|
if (current_pc <= pc)
|
if (current_pc <= pc)
|
return current_pc;
|
return current_pc;
|
|
|
/* We have to handle to "Procedure Linkage Table" (PLT) special. On
|
/* We have to handle to "Procedure Linkage Table" (PLT) special. On
|
SPARC the linker usually defines a symbol (typically
|
SPARC the linker usually defines a symbol (typically
|
_PROCEDURE_LINKAGE_TABLE_) at the start of the .plt section.
|
_PROCEDURE_LINKAGE_TABLE_) at the start of the .plt section.
|
This symbol makes us end up here with PC pointing at the start of
|
This symbol makes us end up here with PC pointing at the start of
|
the PLT and CURRENT_PC probably pointing at a PLT entry. If we
|
the PLT and CURRENT_PC probably pointing at a PLT entry. If we
|
would do our normal prologue analysis, we would probably conclude
|
would do our normal prologue analysis, we would probably conclude
|
that we've got a frame when in reality we don't, since the
|
that we've got a frame when in reality we don't, since the
|
dynamic linker patches up the first PLT with some code that
|
dynamic linker patches up the first PLT with some code that
|
starts with a SAVE instruction. Patch up PC such that it points
|
starts with a SAVE instruction. Patch up PC such that it points
|
at the start of our PLT entry. */
|
at the start of our PLT entry. */
|
if (tdep->plt_entry_size > 0 && in_plt_section (current_pc, NULL))
|
if (tdep->plt_entry_size > 0 && in_plt_section (current_pc, NULL))
|
pc = current_pc - ((current_pc - pc) % tdep->plt_entry_size);
|
pc = current_pc - ((current_pc - pc) % tdep->plt_entry_size);
|
|
|
insn = sparc_fetch_instruction (pc);
|
insn = sparc_fetch_instruction (pc);
|
|
|
/* Recognize a SETHI insn and record its destination. */
|
/* Recognize a SETHI insn and record its destination. */
|
if (X_OP (insn) == 0 && X_OP2 (insn) == 0x04)
|
if (X_OP (insn) == 0 && X_OP2 (insn) == 0x04)
|
{
|
{
|
dest = X_RD (insn);
|
dest = X_RD (insn);
|
offset += 4;
|
offset += 4;
|
|
|
insn = sparc_fetch_instruction (pc + 4);
|
insn = sparc_fetch_instruction (pc + 4);
|
}
|
}
|
|
|
/* Allow for an arithmetic operation on DEST or %g1. */
|
/* Allow for an arithmetic operation on DEST or %g1. */
|
if (X_OP (insn) == 2 && X_I (insn)
|
if (X_OP (insn) == 2 && X_I (insn)
|
&& (X_RD (insn) == 1 || X_RD (insn) == dest))
|
&& (X_RD (insn) == 1 || X_RD (insn) == dest))
|
{
|
{
|
offset += 4;
|
offset += 4;
|
|
|
insn = sparc_fetch_instruction (pc + 8);
|
insn = sparc_fetch_instruction (pc + 8);
|
}
|
}
|
|
|
/* Check for the SAVE instruction that sets up the frame. */
|
/* Check for the SAVE instruction that sets up the frame. */
|
if (X_OP (insn) == 2 && X_OP3 (insn) == 0x3c)
|
if (X_OP (insn) == 2 && X_OP3 (insn) == 0x3c)
|
{
|
{
|
cache->frameless_p = 0;
|
cache->frameless_p = 0;
|
return pc + offset + 4;
|
return pc + offset + 4;
|
}
|
}
|
|
|
return pc;
|
return pc;
|
}
|
}
|
|
|
static CORE_ADDR
|
static CORE_ADDR
|
sparc_unwind_pc (struct gdbarch *gdbarch, struct frame_info *this_frame)
|
sparc_unwind_pc (struct gdbarch *gdbarch, struct frame_info *this_frame)
|
{
|
{
|
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
|
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
|
return frame_unwind_register_unsigned (this_frame, tdep->pc_regnum);
|
return frame_unwind_register_unsigned (this_frame, tdep->pc_regnum);
|
}
|
}
|
|
|
/* Return PC of first real instruction of the function starting at
|
/* Return PC of first real instruction of the function starting at
|
START_PC. */
|
START_PC. */
|
|
|
static CORE_ADDR
|
static CORE_ADDR
|
sparc32_skip_prologue (struct gdbarch *gdbarch, CORE_ADDR start_pc)
|
sparc32_skip_prologue (struct gdbarch *gdbarch, CORE_ADDR start_pc)
|
{
|
{
|
struct symtab_and_line sal;
|
struct symtab_and_line sal;
|
CORE_ADDR func_start, func_end;
|
CORE_ADDR func_start, func_end;
|
struct sparc_frame_cache cache;
|
struct sparc_frame_cache cache;
|
|
|
/* This is the preferred method, find the end of the prologue by
|
/* This is the preferred method, find the end of the prologue by
|
using the debugging information. */
|
using the debugging information. */
|
if (find_pc_partial_function (start_pc, NULL, &func_start, &func_end))
|
if (find_pc_partial_function (start_pc, NULL, &func_start, &func_end))
|
{
|
{
|
sal = find_pc_line (func_start, 0);
|
sal = find_pc_line (func_start, 0);
|
|
|
if (sal.end < func_end
|
if (sal.end < func_end
|
&& start_pc <= sal.end)
|
&& start_pc <= sal.end)
|
return sal.end;
|
return sal.end;
|
}
|
}
|
|
|
start_pc = sparc_analyze_prologue (gdbarch, start_pc, 0xffffffffUL, &cache);
|
start_pc = sparc_analyze_prologue (gdbarch, start_pc, 0xffffffffUL, &cache);
|
|
|
/* The psABI says that "Although the first 6 words of arguments
|
/* The psABI says that "Although the first 6 words of arguments
|
reside in registers, the standard stack frame reserves space for
|
reside in registers, the standard stack frame reserves space for
|
them.". It also suggests that a function may use that space to
|
them.". It also suggests that a function may use that space to
|
"write incoming arguments 0 to 5" into that space, and that's
|
"write incoming arguments 0 to 5" into that space, and that's
|
indeed what GCC seems to be doing. In that case GCC will
|
indeed what GCC seems to be doing. In that case GCC will
|
generate debug information that points to the stack slots instead
|
generate debug information that points to the stack slots instead
|
of the registers, so we should consider the instructions that
|
of the registers, so we should consider the instructions that
|
write out these incoming arguments onto the stack. Of course we
|
write out these incoming arguments onto the stack. Of course we
|
only need to do this if we have a stack frame. */
|
only need to do this if we have a stack frame. */
|
|
|
while (!cache.frameless_p)
|
while (!cache.frameless_p)
|
{
|
{
|
unsigned long insn = sparc_fetch_instruction (start_pc);
|
unsigned long insn = sparc_fetch_instruction (start_pc);
|
|
|
/* Recognize instructions that store incoming arguments in
|
/* Recognize instructions that store incoming arguments in
|
%i0...%i5 into the corresponding stack slot. */
|
%i0...%i5 into the corresponding stack slot. */
|
if (X_OP (insn) == 3 && (X_OP3 (insn) & 0x3c) == 0x04 && X_I (insn)
|
if (X_OP (insn) == 3 && (X_OP3 (insn) & 0x3c) == 0x04 && X_I (insn)
|
&& (X_RD (insn) >= 24 && X_RD (insn) <= 29) && X_RS1 (insn) == 30
|
&& (X_RD (insn) >= 24 && X_RD (insn) <= 29) && X_RS1 (insn) == 30
|
&& X_SIMM13 (insn) == 68 + (X_RD (insn) - 24) * 4)
|
&& X_SIMM13 (insn) == 68 + (X_RD (insn) - 24) * 4)
|
{
|
{
|
start_pc += 4;
|
start_pc += 4;
|
continue;
|
continue;
|
}
|
}
|
|
|
break;
|
break;
|
}
|
}
|
|
|
return start_pc;
|
return start_pc;
|
}
|
}
|
|
|
/* Normal frames. */
|
/* Normal frames. */
|
|
|
struct sparc_frame_cache *
|
struct sparc_frame_cache *
|
sparc_frame_cache (struct frame_info *this_frame, void **this_cache)
|
sparc_frame_cache (struct frame_info *this_frame, void **this_cache)
|
{
|
{
|
struct sparc_frame_cache *cache;
|
struct sparc_frame_cache *cache;
|
|
|
if (*this_cache)
|
if (*this_cache)
|
return *this_cache;
|
return *this_cache;
|
|
|
cache = sparc_alloc_frame_cache ();
|
cache = sparc_alloc_frame_cache ();
|
*this_cache = cache;
|
*this_cache = cache;
|
|
|
cache->pc = get_frame_func (this_frame);
|
cache->pc = get_frame_func (this_frame);
|
if (cache->pc != 0)
|
if (cache->pc != 0)
|
sparc_analyze_prologue (get_frame_arch (this_frame), cache->pc,
|
sparc_analyze_prologue (get_frame_arch (this_frame), cache->pc,
|
get_frame_pc (this_frame), cache);
|
get_frame_pc (this_frame), cache);
|
|
|
if (cache->frameless_p)
|
if (cache->frameless_p)
|
{
|
{
|
/* This function is frameless, so %fp (%i6) holds the frame
|
/* This function is frameless, so %fp (%i6) holds the frame
|
pointer for our calling frame. Use %sp (%o6) as this frame's
|
pointer for our calling frame. Use %sp (%o6) as this frame's
|
base address. */
|
base address. */
|
cache->base =
|
cache->base =
|
get_frame_register_unsigned (this_frame, SPARC_SP_REGNUM);
|
get_frame_register_unsigned (this_frame, SPARC_SP_REGNUM);
|
}
|
}
|
else
|
else
|
{
|
{
|
/* For normal frames, %fp (%i6) holds the frame pointer, the
|
/* For normal frames, %fp (%i6) holds the frame pointer, the
|
base address for the current stack frame. */
|
base address for the current stack frame. */
|
cache->base =
|
cache->base =
|
get_frame_register_unsigned (this_frame, SPARC_FP_REGNUM);
|
get_frame_register_unsigned (this_frame, SPARC_FP_REGNUM);
|
}
|
}
|
|
|
if (cache->base & 1)
|
if (cache->base & 1)
|
cache->base += BIAS;
|
cache->base += BIAS;
|
|
|
return cache;
|
return cache;
|
}
|
}
|
|
|
static int
|
static int
|
sparc32_struct_return_from_sym (struct symbol *sym)
|
sparc32_struct_return_from_sym (struct symbol *sym)
|
{
|
{
|
struct type *type = check_typedef (SYMBOL_TYPE (sym));
|
struct type *type = check_typedef (SYMBOL_TYPE (sym));
|
enum type_code code = TYPE_CODE (type);
|
enum type_code code = TYPE_CODE (type);
|
|
|
if (code == TYPE_CODE_FUNC || code == TYPE_CODE_METHOD)
|
if (code == TYPE_CODE_FUNC || code == TYPE_CODE_METHOD)
|
{
|
{
|
type = check_typedef (TYPE_TARGET_TYPE (type));
|
type = check_typedef (TYPE_TARGET_TYPE (type));
|
if (sparc_structure_or_union_p (type)
|
if (sparc_structure_or_union_p (type)
|
|| (sparc_floating_p (type) && TYPE_LENGTH (type) == 16))
|
|| (sparc_floating_p (type) && TYPE_LENGTH (type) == 16))
|
return 1;
|
return 1;
|
}
|
}
|
|
|
return 0;
|
return 0;
|
}
|
}
|
|
|
struct sparc_frame_cache *
|
struct sparc_frame_cache *
|
sparc32_frame_cache (struct frame_info *this_frame, void **this_cache)
|
sparc32_frame_cache (struct frame_info *this_frame, void **this_cache)
|
{
|
{
|
struct sparc_frame_cache *cache;
|
struct sparc_frame_cache *cache;
|
struct symbol *sym;
|
struct symbol *sym;
|
|
|
if (*this_cache)
|
if (*this_cache)
|
return *this_cache;
|
return *this_cache;
|
|
|
cache = sparc_frame_cache (this_frame, this_cache);
|
cache = sparc_frame_cache (this_frame, this_cache);
|
|
|
sym = find_pc_function (cache->pc);
|
sym = find_pc_function (cache->pc);
|
if (sym)
|
if (sym)
|
{
|
{
|
cache->struct_return_p = sparc32_struct_return_from_sym (sym);
|
cache->struct_return_p = sparc32_struct_return_from_sym (sym);
|
}
|
}
|
else
|
else
|
{
|
{
|
/* There is no debugging information for this function to
|
/* There is no debugging information for this function to
|
help us determine whether this function returns a struct
|
help us determine whether this function returns a struct
|
or not. So we rely on another heuristic which is to check
|
or not. So we rely on another heuristic which is to check
|
the instruction at the return address and see if this is
|
the instruction at the return address and see if this is
|
an "unimp" instruction. If it is, then it is a struct-return
|
an "unimp" instruction. If it is, then it is a struct-return
|
function. */
|
function. */
|
CORE_ADDR pc;
|
CORE_ADDR pc;
|
int regnum = cache->frameless_p ? SPARC_O7_REGNUM : SPARC_I7_REGNUM;
|
int regnum = cache->frameless_p ? SPARC_O7_REGNUM : SPARC_I7_REGNUM;
|
|
|
pc = get_frame_register_unsigned (this_frame, regnum) + 8;
|
pc = get_frame_register_unsigned (this_frame, regnum) + 8;
|
if (sparc_is_unimp_insn (pc))
|
if (sparc_is_unimp_insn (pc))
|
cache->struct_return_p = 1;
|
cache->struct_return_p = 1;
|
}
|
}
|
|
|
return cache;
|
return cache;
|
}
|
}
|
|
|
static void
|
static void
|
sparc32_frame_this_id (struct frame_info *this_frame, void **this_cache,
|
sparc32_frame_this_id (struct frame_info *this_frame, void **this_cache,
|
struct frame_id *this_id)
|
struct frame_id *this_id)
|
{
|
{
|
struct sparc_frame_cache *cache =
|
struct sparc_frame_cache *cache =
|
sparc32_frame_cache (this_frame, this_cache);
|
sparc32_frame_cache (this_frame, this_cache);
|
|
|
/* This marks the outermost frame. */
|
/* This marks the outermost frame. */
|
if (cache->base == 0)
|
if (cache->base == 0)
|
return;
|
return;
|
|
|
(*this_id) = frame_id_build (cache->base, cache->pc);
|
(*this_id) = frame_id_build (cache->base, cache->pc);
|
}
|
}
|
|
|
static struct value *
|
static struct value *
|
sparc32_frame_prev_register (struct frame_info *this_frame,
|
sparc32_frame_prev_register (struct frame_info *this_frame,
|
void **this_cache, int regnum)
|
void **this_cache, int regnum)
|
{
|
{
|
struct gdbarch *gdbarch = get_frame_arch (this_frame);
|
struct gdbarch *gdbarch = get_frame_arch (this_frame);
|
struct sparc_frame_cache *cache =
|
struct sparc_frame_cache *cache =
|
sparc32_frame_cache (this_frame, this_cache);
|
sparc32_frame_cache (this_frame, this_cache);
|
|
|
if (regnum == SPARC32_PC_REGNUM || regnum == SPARC32_NPC_REGNUM)
|
if (regnum == SPARC32_PC_REGNUM || regnum == SPARC32_NPC_REGNUM)
|
{
|
{
|
CORE_ADDR pc = (regnum == SPARC32_NPC_REGNUM) ? 4 : 0;
|
CORE_ADDR pc = (regnum == SPARC32_NPC_REGNUM) ? 4 : 0;
|
|
|
/* If this functions has a Structure, Union or Quad-Precision
|
/* If this functions has a Structure, Union or Quad-Precision
|
return value, we have to skip the UNIMP instruction that encodes
|
return value, we have to skip the UNIMP instruction that encodes
|
the size of the structure. */
|
the size of the structure. */
|
if (cache->struct_return_p)
|
if (cache->struct_return_p)
|
pc += 4;
|
pc += 4;
|
|
|
regnum = cache->frameless_p ? SPARC_O7_REGNUM : SPARC_I7_REGNUM;
|
regnum = cache->frameless_p ? SPARC_O7_REGNUM : SPARC_I7_REGNUM;
|
pc += get_frame_register_unsigned (this_frame, regnum) + 8;
|
pc += get_frame_register_unsigned (this_frame, regnum) + 8;
|
return frame_unwind_got_constant (this_frame, regnum, pc);
|
return frame_unwind_got_constant (this_frame, regnum, pc);
|
}
|
}
|
|
|
/* Handle StackGhost. */
|
/* Handle StackGhost. */
|
{
|
{
|
ULONGEST wcookie = sparc_fetch_wcookie (gdbarch);
|
ULONGEST wcookie = sparc_fetch_wcookie (gdbarch);
|
|
|
if (wcookie != 0 && !cache->frameless_p && regnum == SPARC_I7_REGNUM)
|
if (wcookie != 0 && !cache->frameless_p && regnum == SPARC_I7_REGNUM)
|
{
|
{
|
CORE_ADDR addr = cache->base + (regnum - SPARC_L0_REGNUM) * 4;
|
CORE_ADDR addr = cache->base + (regnum - SPARC_L0_REGNUM) * 4;
|
ULONGEST i7;
|
ULONGEST i7;
|
|
|
/* Read the value in from memory. */
|
/* Read the value in from memory. */
|
i7 = get_frame_memory_unsigned (this_frame, addr, 4);
|
i7 = get_frame_memory_unsigned (this_frame, addr, 4);
|
return frame_unwind_got_constant (this_frame, regnum, i7 ^ wcookie);
|
return frame_unwind_got_constant (this_frame, regnum, i7 ^ wcookie);
|
}
|
}
|
}
|
}
|
|
|
/* The previous frame's `local' and `in' registers have been saved
|
/* The previous frame's `local' and `in' registers have been saved
|
in the register save area. */
|
in the register save area. */
|
if (!cache->frameless_p
|
if (!cache->frameless_p
|
&& regnum >= SPARC_L0_REGNUM && regnum <= SPARC_I7_REGNUM)
|
&& regnum >= SPARC_L0_REGNUM && regnum <= SPARC_I7_REGNUM)
|
{
|
{
|
CORE_ADDR addr = cache->base + (regnum - SPARC_L0_REGNUM) * 4;
|
CORE_ADDR addr = cache->base + (regnum - SPARC_L0_REGNUM) * 4;
|
|
|
return frame_unwind_got_memory (this_frame, regnum, addr);
|
return frame_unwind_got_memory (this_frame, regnum, addr);
|
}
|
}
|
|
|
/* The previous frame's `out' registers are accessible as the
|
/* The previous frame's `out' registers are accessible as the
|
current frame's `in' registers. */
|
current frame's `in' registers. */
|
if (!cache->frameless_p
|
if (!cache->frameless_p
|
&& regnum >= SPARC_O0_REGNUM && regnum <= SPARC_O7_REGNUM)
|
&& regnum >= SPARC_O0_REGNUM && regnum <= SPARC_O7_REGNUM)
|
regnum += (SPARC_I0_REGNUM - SPARC_O0_REGNUM);
|
regnum += (SPARC_I0_REGNUM - SPARC_O0_REGNUM);
|
|
|
return frame_unwind_got_register (this_frame, regnum, regnum);
|
return frame_unwind_got_register (this_frame, regnum, regnum);
|
}
|
}
|
|
|
static const struct frame_unwind sparc32_frame_unwind =
|
static const struct frame_unwind sparc32_frame_unwind =
|
{
|
{
|
NORMAL_FRAME,
|
NORMAL_FRAME,
|
sparc32_frame_this_id,
|
sparc32_frame_this_id,
|
sparc32_frame_prev_register,
|
sparc32_frame_prev_register,
|
NULL,
|
NULL,
|
default_frame_sniffer
|
default_frame_sniffer
|
};
|
};
|
|
|
|
|
static CORE_ADDR
|
static CORE_ADDR
|
sparc32_frame_base_address (struct frame_info *this_frame, void **this_cache)
|
sparc32_frame_base_address (struct frame_info *this_frame, void **this_cache)
|
{
|
{
|
struct sparc_frame_cache *cache =
|
struct sparc_frame_cache *cache =
|
sparc32_frame_cache (this_frame, this_cache);
|
sparc32_frame_cache (this_frame, this_cache);
|
|
|
return cache->base;
|
return cache->base;
|
}
|
}
|
|
|
static const struct frame_base sparc32_frame_base =
|
static const struct frame_base sparc32_frame_base =
|
{
|
{
|
&sparc32_frame_unwind,
|
&sparc32_frame_unwind,
|
sparc32_frame_base_address,
|
sparc32_frame_base_address,
|
sparc32_frame_base_address,
|
sparc32_frame_base_address,
|
sparc32_frame_base_address
|
sparc32_frame_base_address
|
};
|
};
|
|
|
static struct frame_id
|
static struct frame_id
|
sparc_dummy_id (struct gdbarch *gdbarch, struct frame_info *this_frame)
|
sparc_dummy_id (struct gdbarch *gdbarch, struct frame_info *this_frame)
|
{
|
{
|
CORE_ADDR sp;
|
CORE_ADDR sp;
|
|
|
sp = get_frame_register_unsigned (this_frame, SPARC_SP_REGNUM);
|
sp = get_frame_register_unsigned (this_frame, SPARC_SP_REGNUM);
|
if (sp & 1)
|
if (sp & 1)
|
sp += BIAS;
|
sp += BIAS;
|
return frame_id_build (sp, get_frame_pc (this_frame));
|
return frame_id_build (sp, get_frame_pc (this_frame));
|
}
|
}
|
|
|
|
|
/* Extract a function return value of TYPE from REGCACHE, and copy
|
/* Extract a function return value of TYPE from REGCACHE, and copy
|
that into VALBUF. */
|
that into VALBUF. */
|
|
|
static void
|
static void
|
sparc32_extract_return_value (struct type *type, struct regcache *regcache,
|
sparc32_extract_return_value (struct type *type, struct regcache *regcache,
|
gdb_byte *valbuf)
|
gdb_byte *valbuf)
|
{
|
{
|
int len = TYPE_LENGTH (type);
|
int len = TYPE_LENGTH (type);
|
gdb_byte buf[8];
|
gdb_byte buf[8];
|
|
|
gdb_assert (!sparc_structure_or_union_p (type));
|
gdb_assert (!sparc_structure_or_union_p (type));
|
gdb_assert (!(sparc_floating_p (type) && len == 16));
|
gdb_assert (!(sparc_floating_p (type) && len == 16));
|
|
|
if (sparc_floating_p (type))
|
if (sparc_floating_p (type))
|
{
|
{
|
/* Floating return values. */
|
/* Floating return values. */
|
regcache_cooked_read (regcache, SPARC_F0_REGNUM, buf);
|
regcache_cooked_read (regcache, SPARC_F0_REGNUM, buf);
|
if (len > 4)
|
if (len > 4)
|
regcache_cooked_read (regcache, SPARC_F1_REGNUM, buf + 4);
|
regcache_cooked_read (regcache, SPARC_F1_REGNUM, buf + 4);
|
memcpy (valbuf, buf, len);
|
memcpy (valbuf, buf, len);
|
}
|
}
|
else
|
else
|
{
|
{
|
/* Integral and pointer return values. */
|
/* Integral and pointer return values. */
|
gdb_assert (sparc_integral_or_pointer_p (type));
|
gdb_assert (sparc_integral_or_pointer_p (type));
|
|
|
regcache_cooked_read (regcache, SPARC_O0_REGNUM, buf);
|
regcache_cooked_read (regcache, SPARC_O0_REGNUM, buf);
|
if (len > 4)
|
if (len > 4)
|
{
|
{
|
regcache_cooked_read (regcache, SPARC_O1_REGNUM, buf + 4);
|
regcache_cooked_read (regcache, SPARC_O1_REGNUM, buf + 4);
|
gdb_assert (len == 8);
|
gdb_assert (len == 8);
|
memcpy (valbuf, buf, 8);
|
memcpy (valbuf, buf, 8);
|
}
|
}
|
else
|
else
|
{
|
{
|
/* Just stripping off any unused bytes should preserve the
|
/* Just stripping off any unused bytes should preserve the
|
signed-ness just fine. */
|
signed-ness just fine. */
|
memcpy (valbuf, buf + 4 - len, len);
|
memcpy (valbuf, buf + 4 - len, len);
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
/* Store the function return value of type TYPE from VALBUF into
|
/* Store the function return value of type TYPE from VALBUF into
|
REGCACHE. */
|
REGCACHE. */
|
|
|
static void
|
static void
|
sparc32_store_return_value (struct type *type, struct regcache *regcache,
|
sparc32_store_return_value (struct type *type, struct regcache *regcache,
|
const gdb_byte *valbuf)
|
const gdb_byte *valbuf)
|
{
|
{
|
int len = TYPE_LENGTH (type);
|
int len = TYPE_LENGTH (type);
|
gdb_byte buf[8];
|
gdb_byte buf[8];
|
|
|
gdb_assert (!sparc_structure_or_union_p (type));
|
gdb_assert (!sparc_structure_or_union_p (type));
|
gdb_assert (!(sparc_floating_p (type) && len == 16));
|
gdb_assert (!(sparc_floating_p (type) && len == 16));
|
gdb_assert (len <= 8);
|
gdb_assert (len <= 8);
|
|
|
if (sparc_floating_p (type))
|
if (sparc_floating_p (type))
|
{
|
{
|
/* Floating return values. */
|
/* Floating return values. */
|
memcpy (buf, valbuf, len);
|
memcpy (buf, valbuf, len);
|
regcache_cooked_write (regcache, SPARC_F0_REGNUM, buf);
|
regcache_cooked_write (regcache, SPARC_F0_REGNUM, buf);
|
if (len > 4)
|
if (len > 4)
|
regcache_cooked_write (regcache, SPARC_F1_REGNUM, buf + 4);
|
regcache_cooked_write (regcache, SPARC_F1_REGNUM, buf + 4);
|
}
|
}
|
else
|
else
|
{
|
{
|
/* Integral and pointer return values. */
|
/* Integral and pointer return values. */
|
gdb_assert (sparc_integral_or_pointer_p (type));
|
gdb_assert (sparc_integral_or_pointer_p (type));
|
|
|
if (len > 4)
|
if (len > 4)
|
{
|
{
|
gdb_assert (len == 8);
|
gdb_assert (len == 8);
|
memcpy (buf, valbuf, 8);
|
memcpy (buf, valbuf, 8);
|
regcache_cooked_write (regcache, SPARC_O1_REGNUM, buf + 4);
|
regcache_cooked_write (regcache, SPARC_O1_REGNUM, buf + 4);
|
}
|
}
|
else
|
else
|
{
|
{
|
/* ??? Do we need to do any sign-extension here? */
|
/* ??? Do we need to do any sign-extension here? */
|
memcpy (buf + 4 - len, valbuf, len);
|
memcpy (buf + 4 - len, valbuf, len);
|
}
|
}
|
regcache_cooked_write (regcache, SPARC_O0_REGNUM, buf);
|
regcache_cooked_write (regcache, SPARC_O0_REGNUM, buf);
|
}
|
}
|
}
|
}
|
|
|
static enum return_value_convention
|
static enum return_value_convention
|
sparc32_return_value (struct gdbarch *gdbarch, struct type *func_type,
|
sparc32_return_value (struct gdbarch *gdbarch, struct type *func_type,
|
struct type *type, struct regcache *regcache,
|
struct type *type, struct regcache *regcache,
|
gdb_byte *readbuf, const gdb_byte *writebuf)
|
gdb_byte *readbuf, const gdb_byte *writebuf)
|
{
|
{
|
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
|
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
|
|
|
/* The psABI says that "...every stack frame reserves the word at
|
/* The psABI says that "...every stack frame reserves the word at
|
%fp+64. If a function returns a structure, union, or
|
%fp+64. If a function returns a structure, union, or
|
quad-precision value, this word should hold the address of the
|
quad-precision value, this word should hold the address of the
|
object into which the return value should be copied." This
|
object into which the return value should be copied." This
|
guarantees that we can always find the return value, not just
|
guarantees that we can always find the return value, not just
|
before the function returns. */
|
before the function returns. */
|
|
|
if (sparc_structure_or_union_p (type)
|
if (sparc_structure_or_union_p (type)
|
|| (sparc_floating_p (type) && TYPE_LENGTH (type) == 16))
|
|| (sparc_floating_p (type) && TYPE_LENGTH (type) == 16))
|
{
|
{
|
if (readbuf)
|
if (readbuf)
|
{
|
{
|
ULONGEST sp;
|
ULONGEST sp;
|
CORE_ADDR addr;
|
CORE_ADDR addr;
|
|
|
regcache_cooked_read_unsigned (regcache, SPARC_SP_REGNUM, &sp);
|
regcache_cooked_read_unsigned (regcache, SPARC_SP_REGNUM, &sp);
|
addr = read_memory_unsigned_integer (sp + 64, 4, byte_order);
|
addr = read_memory_unsigned_integer (sp + 64, 4, byte_order);
|
read_memory (addr, readbuf, TYPE_LENGTH (type));
|
read_memory (addr, readbuf, TYPE_LENGTH (type));
|
}
|
}
|
|
|
return RETURN_VALUE_ABI_PRESERVES_ADDRESS;
|
return RETURN_VALUE_ABI_PRESERVES_ADDRESS;
|
}
|
}
|
|
|
if (readbuf)
|
if (readbuf)
|
sparc32_extract_return_value (type, regcache, readbuf);
|
sparc32_extract_return_value (type, regcache, readbuf);
|
if (writebuf)
|
if (writebuf)
|
sparc32_store_return_value (type, regcache, writebuf);
|
sparc32_store_return_value (type, regcache, writebuf);
|
|
|
return RETURN_VALUE_REGISTER_CONVENTION;
|
return RETURN_VALUE_REGISTER_CONVENTION;
|
}
|
}
|
|
|
static int
|
static int
|
sparc32_stabs_argument_has_addr (struct gdbarch *gdbarch, struct type *type)
|
sparc32_stabs_argument_has_addr (struct gdbarch *gdbarch, struct type *type)
|
{
|
{
|
return (sparc_structure_or_union_p (type)
|
return (sparc_structure_or_union_p (type)
|
|| (sparc_floating_p (type) && TYPE_LENGTH (type) == 16));
|
|| (sparc_floating_p (type) && TYPE_LENGTH (type) == 16));
|
}
|
}
|
|
|
static int
|
static int
|
sparc32_dwarf2_struct_return_p (struct frame_info *this_frame)
|
sparc32_dwarf2_struct_return_p (struct frame_info *this_frame)
|
{
|
{
|
CORE_ADDR pc = get_frame_address_in_block (this_frame);
|
CORE_ADDR pc = get_frame_address_in_block (this_frame);
|
struct symbol *sym = find_pc_function (pc);
|
struct symbol *sym = find_pc_function (pc);
|
|
|
if (sym)
|
if (sym)
|
return sparc32_struct_return_from_sym (sym);
|
return sparc32_struct_return_from_sym (sym);
|
return 0;
|
return 0;
|
}
|
}
|
|
|
static void
|
static void
|
sparc32_dwarf2_frame_init_reg (struct gdbarch *gdbarch, int regnum,
|
sparc32_dwarf2_frame_init_reg (struct gdbarch *gdbarch, int regnum,
|
struct dwarf2_frame_state_reg *reg,
|
struct dwarf2_frame_state_reg *reg,
|
struct frame_info *this_frame)
|
struct frame_info *this_frame)
|
{
|
{
|
int off;
|
int off;
|
|
|
switch (regnum)
|
switch (regnum)
|
{
|
{
|
case SPARC_G0_REGNUM:
|
case SPARC_G0_REGNUM:
|
/* Since %g0 is always zero, there is no point in saving it, and
|
/* Since %g0 is always zero, there is no point in saving it, and
|
people will be inclined omit it from the CFI. Make sure we
|
people will be inclined omit it from the CFI. Make sure we
|
don't warn about that. */
|
don't warn about that. */
|
reg->how = DWARF2_FRAME_REG_SAME_VALUE;
|
reg->how = DWARF2_FRAME_REG_SAME_VALUE;
|
break;
|
break;
|
case SPARC_SP_REGNUM:
|
case SPARC_SP_REGNUM:
|
reg->how = DWARF2_FRAME_REG_CFA;
|
reg->how = DWARF2_FRAME_REG_CFA;
|
break;
|
break;
|
case SPARC32_PC_REGNUM:
|
case SPARC32_PC_REGNUM:
|
case SPARC32_NPC_REGNUM:
|
case SPARC32_NPC_REGNUM:
|
reg->how = DWARF2_FRAME_REG_RA_OFFSET;
|
reg->how = DWARF2_FRAME_REG_RA_OFFSET;
|
off = 8;
|
off = 8;
|
if (sparc32_dwarf2_struct_return_p (this_frame))
|
if (sparc32_dwarf2_struct_return_p (this_frame))
|
off += 4;
|
off += 4;
|
if (regnum == SPARC32_NPC_REGNUM)
|
if (regnum == SPARC32_NPC_REGNUM)
|
off += 4;
|
off += 4;
|
reg->loc.offset = off;
|
reg->loc.offset = off;
|
break;
|
break;
|
}
|
}
|
}
|
}
|
|
|
|
|
/* The SPARC Architecture doesn't have hardware single-step support,
|
/* The SPARC Architecture doesn't have hardware single-step support,
|
and most operating systems don't implement it either, so we provide
|
and most operating systems don't implement it either, so we provide
|
software single-step mechanism. */
|
software single-step mechanism. */
|
|
|
static CORE_ADDR
|
static CORE_ADDR
|
sparc_analyze_control_transfer (struct frame_info *frame,
|
sparc_analyze_control_transfer (struct frame_info *frame,
|
CORE_ADDR pc, CORE_ADDR *npc)
|
CORE_ADDR pc, CORE_ADDR *npc)
|
{
|
{
|
unsigned long insn = sparc_fetch_instruction (pc);
|
unsigned long insn = sparc_fetch_instruction (pc);
|
int conditional_p = X_COND (insn) & 0x7;
|
int conditional_p = X_COND (insn) & 0x7;
|
int branch_p = 0;
|
int branch_p = 0;
|
long offset = 0; /* Must be signed for sign-extend. */
|
long offset = 0; /* Must be signed for sign-extend. */
|
|
|
if (X_OP (insn) == 0 && X_OP2 (insn) == 3 && (insn & 0x1000000) == 0)
|
if (X_OP (insn) == 0 && X_OP2 (insn) == 3 && (insn & 0x1000000) == 0)
|
{
|
{
|
/* Branch on Integer Register with Prediction (BPr). */
|
/* Branch on Integer Register with Prediction (BPr). */
|
branch_p = 1;
|
branch_p = 1;
|
conditional_p = 1;
|
conditional_p = 1;
|
}
|
}
|
else if (X_OP (insn) == 0 && X_OP2 (insn) == 6)
|
else if (X_OP (insn) == 0 && X_OP2 (insn) == 6)
|
{
|
{
|
/* Branch on Floating-Point Condition Codes (FBfcc). */
|
/* Branch on Floating-Point Condition Codes (FBfcc). */
|
branch_p = 1;
|
branch_p = 1;
|
offset = 4 * X_DISP22 (insn);
|
offset = 4 * X_DISP22 (insn);
|
}
|
}
|
else if (X_OP (insn) == 0 && X_OP2 (insn) == 5)
|
else if (X_OP (insn) == 0 && X_OP2 (insn) == 5)
|
{
|
{
|
/* Branch on Floating-Point Condition Codes with Prediction
|
/* Branch on Floating-Point Condition Codes with Prediction
|
(FBPfcc). */
|
(FBPfcc). */
|
branch_p = 1;
|
branch_p = 1;
|
offset = 4 * X_DISP19 (insn);
|
offset = 4 * X_DISP19 (insn);
|
}
|
}
|
else if (X_OP (insn) == 0 && X_OP2 (insn) == 2)
|
else if (X_OP (insn) == 0 && X_OP2 (insn) == 2)
|
{
|
{
|
/* Branch on Integer Condition Codes (Bicc). */
|
/* Branch on Integer Condition Codes (Bicc). */
|
branch_p = 1;
|
branch_p = 1;
|
offset = 4 * X_DISP22 (insn);
|
offset = 4 * X_DISP22 (insn);
|
}
|
}
|
else if (X_OP (insn) == 0 && X_OP2 (insn) == 1)
|
else if (X_OP (insn) == 0 && X_OP2 (insn) == 1)
|
{
|
{
|
/* Branch on Integer Condition Codes with Prediction (BPcc). */
|
/* Branch on Integer Condition Codes with Prediction (BPcc). */
|
branch_p = 1;
|
branch_p = 1;
|
offset = 4 * X_DISP19 (insn);
|
offset = 4 * X_DISP19 (insn);
|
}
|
}
|
else if (X_OP (insn) == 2 && X_OP3 (insn) == 0x3a)
|
else if (X_OP (insn) == 2 && X_OP3 (insn) == 0x3a)
|
{
|
{
|
/* Trap instruction (TRAP). */
|
/* Trap instruction (TRAP). */
|
return gdbarch_tdep (get_frame_arch (frame))->step_trap (frame, insn);
|
return gdbarch_tdep (get_frame_arch (frame))->step_trap (frame, insn);
|
}
|
}
|
|
|
/* FIXME: Handle DONE and RETRY instructions. */
|
/* FIXME: Handle DONE and RETRY instructions. */
|
|
|
if (branch_p)
|
if (branch_p)
|
{
|
{
|
if (conditional_p)
|
if (conditional_p)
|
{
|
{
|
/* For conditional branches, return nPC + 4 iff the annul
|
/* For conditional branches, return nPC + 4 iff the annul
|
bit is 1. */
|
bit is 1. */
|
return (X_A (insn) ? *npc + 4 : 0);
|
return (X_A (insn) ? *npc + 4 : 0);
|
}
|
}
|
else
|
else
|
{
|
{
|
/* For unconditional branches, return the target if its
|
/* For unconditional branches, return the target if its
|
specified condition is "always" and return nPC + 4 if the
|
specified condition is "always" and return nPC + 4 if the
|
condition is "never". If the annul bit is 1, set *NPC to
|
condition is "never". If the annul bit is 1, set *NPC to
|
zero. */
|
zero. */
|
if (X_COND (insn) == 0x0)
|
if (X_COND (insn) == 0x0)
|
pc = *npc, offset = 4;
|
pc = *npc, offset = 4;
|
if (X_A (insn))
|
if (X_A (insn))
|
*npc = 0;
|
*npc = 0;
|
|
|
gdb_assert (offset != 0);
|
gdb_assert (offset != 0);
|
return pc + offset;
|
return pc + offset;
|
}
|
}
|
}
|
}
|
|
|
return 0;
|
return 0;
|
}
|
}
|
|
|
static CORE_ADDR
|
static CORE_ADDR
|
sparc_step_trap (struct frame_info *frame, unsigned long insn)
|
sparc_step_trap (struct frame_info *frame, unsigned long insn)
|
{
|
{
|
return 0;
|
return 0;
|
}
|
}
|
|
|
int
|
int
|
sparc_software_single_step (struct frame_info *frame)
|
sparc_software_single_step (struct frame_info *frame)
|
{
|
{
|
struct gdbarch *arch = get_frame_arch (frame);
|
struct gdbarch *arch = get_frame_arch (frame);
|
struct gdbarch_tdep *tdep = gdbarch_tdep (arch);
|
struct gdbarch_tdep *tdep = gdbarch_tdep (arch);
|
struct address_space *aspace = get_frame_address_space (frame);
|
struct address_space *aspace = get_frame_address_space (frame);
|
CORE_ADDR npc, nnpc;
|
CORE_ADDR npc, nnpc;
|
|
|
CORE_ADDR pc, orig_npc;
|
CORE_ADDR pc, orig_npc;
|
|
|
pc = get_frame_register_unsigned (frame, tdep->pc_regnum);
|
pc = get_frame_register_unsigned (frame, tdep->pc_regnum);
|
orig_npc = npc = get_frame_register_unsigned (frame, tdep->npc_regnum);
|
orig_npc = npc = get_frame_register_unsigned (frame, tdep->npc_regnum);
|
|
|
/* Analyze the instruction at PC. */
|
/* Analyze the instruction at PC. */
|
nnpc = sparc_analyze_control_transfer (frame, pc, &npc);
|
nnpc = sparc_analyze_control_transfer (frame, pc, &npc);
|
if (npc != 0)
|
if (npc != 0)
|
insert_single_step_breakpoint (arch, aspace, npc);
|
insert_single_step_breakpoint (arch, aspace, npc);
|
|
|
if (nnpc != 0)
|
if (nnpc != 0)
|
insert_single_step_breakpoint (arch, aspace, nnpc);
|
insert_single_step_breakpoint (arch, aspace, nnpc);
|
|
|
/* Assert that we have set at least one breakpoint, and that
|
/* Assert that we have set at least one breakpoint, and that
|
they're not set at the same spot - unless we're going
|
they're not set at the same spot - unless we're going
|
from here straight to NULL, i.e. a call or jump to 0. */
|
from here straight to NULL, i.e. a call or jump to 0. */
|
gdb_assert (npc != 0 || nnpc != 0 || orig_npc == 0);
|
gdb_assert (npc != 0 || nnpc != 0 || orig_npc == 0);
|
gdb_assert (nnpc != npc || orig_npc == 0);
|
gdb_assert (nnpc != npc || orig_npc == 0);
|
|
|
return 1;
|
return 1;
|
}
|
}
|
|
|
static void
|
static void
|
sparc_write_pc (struct regcache *regcache, CORE_ADDR pc)
|
sparc_write_pc (struct regcache *regcache, CORE_ADDR pc)
|
{
|
{
|
struct gdbarch_tdep *tdep = gdbarch_tdep (get_regcache_arch (regcache));
|
struct gdbarch_tdep *tdep = gdbarch_tdep (get_regcache_arch (regcache));
|
|
|
regcache_cooked_write_unsigned (regcache, tdep->pc_regnum, pc);
|
regcache_cooked_write_unsigned (regcache, tdep->pc_regnum, pc);
|
regcache_cooked_write_unsigned (regcache, tdep->npc_regnum, pc + 4);
|
regcache_cooked_write_unsigned (regcache, tdep->npc_regnum, pc + 4);
|
}
|
}
|
|
|
|
|
/* Return the appropriate register set for the core section identified
|
/* Return the appropriate register set for the core section identified
|
by SECT_NAME and SECT_SIZE. */
|
by SECT_NAME and SECT_SIZE. */
|
|
|
static const struct regset *
|
static const struct regset *
|
sparc_regset_from_core_section (struct gdbarch *gdbarch,
|
sparc_regset_from_core_section (struct gdbarch *gdbarch,
|
const char *sect_name, size_t sect_size)
|
const char *sect_name, size_t sect_size)
|
{
|
{
|
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
|
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
|
|
|
if (strcmp (sect_name, ".reg") == 0 && sect_size >= tdep->sizeof_gregset)
|
if (strcmp (sect_name, ".reg") == 0 && sect_size >= tdep->sizeof_gregset)
|
return tdep->gregset;
|
return tdep->gregset;
|
|
|
if (strcmp (sect_name, ".reg2") == 0 && sect_size >= tdep->sizeof_fpregset)
|
if (strcmp (sect_name, ".reg2") == 0 && sect_size >= tdep->sizeof_fpregset)
|
return tdep->fpregset;
|
return tdep->fpregset;
|
|
|
return NULL;
|
return NULL;
|
}
|
}
|
|
|
|
|
static struct gdbarch *
|
static struct gdbarch *
|
sparc32_gdbarch_init (struct gdbarch_info info, struct gdbarch_list *arches)
|
sparc32_gdbarch_init (struct gdbarch_info info, struct gdbarch_list *arches)
|
{
|
{
|
struct gdbarch_tdep *tdep;
|
struct gdbarch_tdep *tdep;
|
struct gdbarch *gdbarch;
|
struct gdbarch *gdbarch;
|
|
|
/* If there is already a candidate, use it. */
|
/* If there is already a candidate, use it. */
|
arches = gdbarch_list_lookup_by_info (arches, &info);
|
arches = gdbarch_list_lookup_by_info (arches, &info);
|
if (arches != NULL)
|
if (arches != NULL)
|
return arches->gdbarch;
|
return arches->gdbarch;
|
|
|
/* Allocate space for the new architecture. */
|
/* Allocate space for the new architecture. */
|
tdep = XZALLOC (struct gdbarch_tdep);
|
tdep = XZALLOC (struct gdbarch_tdep);
|
gdbarch = gdbarch_alloc (&info, tdep);
|
gdbarch = gdbarch_alloc (&info, tdep);
|
|
|
tdep->pc_regnum = SPARC32_PC_REGNUM;
|
tdep->pc_regnum = SPARC32_PC_REGNUM;
|
tdep->npc_regnum = SPARC32_NPC_REGNUM;
|
tdep->npc_regnum = SPARC32_NPC_REGNUM;
|
tdep->step_trap = sparc_step_trap;
|
tdep->step_trap = sparc_step_trap;
|
|
|
set_gdbarch_long_double_bit (gdbarch, 128);
|
set_gdbarch_long_double_bit (gdbarch, 128);
|
set_gdbarch_long_double_format (gdbarch, floatformats_sparc_quad);
|
set_gdbarch_long_double_format (gdbarch, floatformats_sparc_quad);
|
|
|
set_gdbarch_num_regs (gdbarch, SPARC32_NUM_REGS);
|
set_gdbarch_num_regs (gdbarch, SPARC32_NUM_REGS);
|
set_gdbarch_register_name (gdbarch, sparc32_register_name);
|
set_gdbarch_register_name (gdbarch, sparc32_register_name);
|
set_gdbarch_register_type (gdbarch, sparc32_register_type);
|
set_gdbarch_register_type (gdbarch, sparc32_register_type);
|
set_gdbarch_num_pseudo_regs (gdbarch, SPARC32_NUM_PSEUDO_REGS);
|
set_gdbarch_num_pseudo_regs (gdbarch, SPARC32_NUM_PSEUDO_REGS);
|
set_gdbarch_pseudo_register_read (gdbarch, sparc32_pseudo_register_read);
|
set_gdbarch_pseudo_register_read (gdbarch, sparc32_pseudo_register_read);
|
set_gdbarch_pseudo_register_write (gdbarch, sparc32_pseudo_register_write);
|
set_gdbarch_pseudo_register_write (gdbarch, sparc32_pseudo_register_write);
|
|
|
/* Register numbers of various important registers. */
|
/* Register numbers of various important registers. */
|
set_gdbarch_sp_regnum (gdbarch, SPARC_SP_REGNUM); /* %sp */
|
set_gdbarch_sp_regnum (gdbarch, SPARC_SP_REGNUM); /* %sp */
|
set_gdbarch_pc_regnum (gdbarch, SPARC32_PC_REGNUM); /* %pc */
|
set_gdbarch_pc_regnum (gdbarch, SPARC32_PC_REGNUM); /* %pc */
|
set_gdbarch_fp0_regnum (gdbarch, SPARC_F0_REGNUM); /* %f0 */
|
set_gdbarch_fp0_regnum (gdbarch, SPARC_F0_REGNUM); /* %f0 */
|
|
|
/* Call dummy code. */
|
/* Call dummy code. */
|
set_gdbarch_call_dummy_location (gdbarch, ON_STACK);
|
set_gdbarch_call_dummy_location (gdbarch, ON_STACK);
|
set_gdbarch_push_dummy_code (gdbarch, sparc32_push_dummy_code);
|
set_gdbarch_push_dummy_code (gdbarch, sparc32_push_dummy_code);
|
set_gdbarch_push_dummy_call (gdbarch, sparc32_push_dummy_call);
|
set_gdbarch_push_dummy_call (gdbarch, sparc32_push_dummy_call);
|
|
|
set_gdbarch_return_value (gdbarch, sparc32_return_value);
|
set_gdbarch_return_value (gdbarch, sparc32_return_value);
|
set_gdbarch_stabs_argument_has_addr
|
set_gdbarch_stabs_argument_has_addr
|
(gdbarch, sparc32_stabs_argument_has_addr);
|
(gdbarch, sparc32_stabs_argument_has_addr);
|
|
|
set_gdbarch_skip_prologue (gdbarch, sparc32_skip_prologue);
|
set_gdbarch_skip_prologue (gdbarch, sparc32_skip_prologue);
|
|
|
/* Stack grows downward. */
|
/* Stack grows downward. */
|
set_gdbarch_inner_than (gdbarch, core_addr_lessthan);
|
set_gdbarch_inner_than (gdbarch, core_addr_lessthan);
|
|
|
set_gdbarch_breakpoint_from_pc (gdbarch, sparc_breakpoint_from_pc);
|
set_gdbarch_breakpoint_from_pc (gdbarch, sparc_breakpoint_from_pc);
|
|
|
set_gdbarch_frame_args_skip (gdbarch, 8);
|
set_gdbarch_frame_args_skip (gdbarch, 8);
|
|
|
set_gdbarch_print_insn (gdbarch, print_insn_sparc);
|
set_gdbarch_print_insn (gdbarch, print_insn_sparc);
|
|
|
set_gdbarch_software_single_step (gdbarch, sparc_software_single_step);
|
set_gdbarch_software_single_step (gdbarch, sparc_software_single_step);
|
set_gdbarch_write_pc (gdbarch, sparc_write_pc);
|
set_gdbarch_write_pc (gdbarch, sparc_write_pc);
|
|
|
set_gdbarch_dummy_id (gdbarch, sparc_dummy_id);
|
set_gdbarch_dummy_id (gdbarch, sparc_dummy_id);
|
|
|
set_gdbarch_unwind_pc (gdbarch, sparc_unwind_pc);
|
set_gdbarch_unwind_pc (gdbarch, sparc_unwind_pc);
|
|
|
frame_base_set_default (gdbarch, &sparc32_frame_base);
|
frame_base_set_default (gdbarch, &sparc32_frame_base);
|
|
|
/* Hook in the DWARF CFI frame unwinder. */
|
/* Hook in the DWARF CFI frame unwinder. */
|
dwarf2_frame_set_init_reg (gdbarch, sparc32_dwarf2_frame_init_reg);
|
dwarf2_frame_set_init_reg (gdbarch, sparc32_dwarf2_frame_init_reg);
|
/* FIXME: kettenis/20050423: Don't enable the unwinder until the
|
/* FIXME: kettenis/20050423: Don't enable the unwinder until the
|
StackGhost issues have been resolved. */
|
StackGhost issues have been resolved. */
|
|
|
/* Hook in ABI-specific overrides, if they have been registered. */
|
/* Hook in ABI-specific overrides, if they have been registered. */
|
gdbarch_init_osabi (info, gdbarch);
|
gdbarch_init_osabi (info, gdbarch);
|
|
|
frame_unwind_append_unwinder (gdbarch, &sparc32_frame_unwind);
|
frame_unwind_append_unwinder (gdbarch, &sparc32_frame_unwind);
|
|
|
/* If we have register sets, enable the generic core file support. */
|
/* If we have register sets, enable the generic core file support. */
|
if (tdep->gregset)
|
if (tdep->gregset)
|
set_gdbarch_regset_from_core_section (gdbarch,
|
set_gdbarch_regset_from_core_section (gdbarch,
|
sparc_regset_from_core_section);
|
sparc_regset_from_core_section);
|
|
|
return gdbarch;
|
return gdbarch;
|
}
|
}
|
|
|
/* Helper functions for dealing with register windows. */
|
/* Helper functions for dealing with register windows. */
|
|
|
void
|
void
|
sparc_supply_rwindow (struct regcache *regcache, CORE_ADDR sp, int regnum)
|
sparc_supply_rwindow (struct regcache *regcache, CORE_ADDR sp, int regnum)
|
{
|
{
|
struct gdbarch *gdbarch = get_regcache_arch (regcache);
|
struct gdbarch *gdbarch = get_regcache_arch (regcache);
|
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
|
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
|
int offset = 0;
|
int offset = 0;
|
gdb_byte buf[8];
|
gdb_byte buf[8];
|
int i;
|
int i;
|
|
|
if (sp & 1)
|
if (sp & 1)
|
{
|
{
|
/* Registers are 64-bit. */
|
/* Registers are 64-bit. */
|
sp += BIAS;
|
sp += BIAS;
|
|
|
for (i = SPARC_L0_REGNUM; i <= SPARC_I7_REGNUM; i++)
|
for (i = SPARC_L0_REGNUM; i <= SPARC_I7_REGNUM; i++)
|
{
|
{
|
if (regnum == i || regnum == -1)
|
if (regnum == i || regnum == -1)
|
{
|
{
|
target_read_memory (sp + ((i - SPARC_L0_REGNUM) * 8), buf, 8);
|
target_read_memory (sp + ((i - SPARC_L0_REGNUM) * 8), buf, 8);
|
|
|
/* Handle StackGhost. */
|
/* Handle StackGhost. */
|
if (i == SPARC_I7_REGNUM)
|
if (i == SPARC_I7_REGNUM)
|
{
|
{
|
ULONGEST wcookie = sparc_fetch_wcookie (gdbarch);
|
ULONGEST wcookie = sparc_fetch_wcookie (gdbarch);
|
ULONGEST i7;
|
ULONGEST i7;
|
|
|
i7 = extract_unsigned_integer (buf + offset, 8, byte_order);
|
i7 = extract_unsigned_integer (buf + offset, 8, byte_order);
|
store_unsigned_integer (buf + offset, 8, byte_order,
|
store_unsigned_integer (buf + offset, 8, byte_order,
|
i7 ^ wcookie);
|
i7 ^ wcookie);
|
}
|
}
|
|
|
regcache_raw_supply (regcache, i, buf);
|
regcache_raw_supply (regcache, i, buf);
|
}
|
}
|
}
|
}
|
}
|
}
|
else
|
else
|
{
|
{
|
/* Registers are 32-bit. Toss any sign-extension of the stack
|
/* Registers are 32-bit. Toss any sign-extension of the stack
|
pointer. */
|
pointer. */
|
sp &= 0xffffffffUL;
|
sp &= 0xffffffffUL;
|
|
|
/* Clear out the top half of the temporary buffer, and put the
|
/* Clear out the top half of the temporary buffer, and put the
|
register value in the bottom half if we're in 64-bit mode. */
|
register value in the bottom half if we're in 64-bit mode. */
|
if (gdbarch_ptr_bit (get_regcache_arch (regcache)) == 64)
|
if (gdbarch_ptr_bit (get_regcache_arch (regcache)) == 64)
|
{
|
{
|
memset (buf, 0, 4);
|
memset (buf, 0, 4);
|
offset = 4;
|
offset = 4;
|
}
|
}
|
|
|
for (i = SPARC_L0_REGNUM; i <= SPARC_I7_REGNUM; i++)
|
for (i = SPARC_L0_REGNUM; i <= SPARC_I7_REGNUM; i++)
|
{
|
{
|
if (regnum == i || regnum == -1)
|
if (regnum == i || regnum == -1)
|
{
|
{
|
target_read_memory (sp + ((i - SPARC_L0_REGNUM) * 4),
|
target_read_memory (sp + ((i - SPARC_L0_REGNUM) * 4),
|
buf + offset, 4);
|
buf + offset, 4);
|
|
|
/* Handle StackGhost. */
|
/* Handle StackGhost. */
|
if (i == SPARC_I7_REGNUM)
|
if (i == SPARC_I7_REGNUM)
|
{
|
{
|
ULONGEST wcookie = sparc_fetch_wcookie (gdbarch);
|
ULONGEST wcookie = sparc_fetch_wcookie (gdbarch);
|
ULONGEST i7;
|
ULONGEST i7;
|
|
|
i7 = extract_unsigned_integer (buf + offset, 4, byte_order);
|
i7 = extract_unsigned_integer (buf + offset, 4, byte_order);
|
store_unsigned_integer (buf + offset, 4, byte_order,
|
store_unsigned_integer (buf + offset, 4, byte_order,
|
i7 ^ wcookie);
|
i7 ^ wcookie);
|
}
|
}
|
|
|
regcache_raw_supply (regcache, i, buf);
|
regcache_raw_supply (regcache, i, buf);
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
void
|
void
|
sparc_collect_rwindow (const struct regcache *regcache,
|
sparc_collect_rwindow (const struct regcache *regcache,
|
CORE_ADDR sp, int regnum)
|
CORE_ADDR sp, int regnum)
|
{
|
{
|
struct gdbarch *gdbarch = get_regcache_arch (regcache);
|
struct gdbarch *gdbarch = get_regcache_arch (regcache);
|
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
|
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
|
int offset = 0;
|
int offset = 0;
|
gdb_byte buf[8];
|
gdb_byte buf[8];
|
int i;
|
int i;
|
|
|
if (sp & 1)
|
if (sp & 1)
|
{
|
{
|
/* Registers are 64-bit. */
|
/* Registers are 64-bit. */
|
sp += BIAS;
|
sp += BIAS;
|
|
|
for (i = SPARC_L0_REGNUM; i <= SPARC_I7_REGNUM; i++)
|
for (i = SPARC_L0_REGNUM; i <= SPARC_I7_REGNUM; i++)
|
{
|
{
|
if (regnum == -1 || regnum == SPARC_SP_REGNUM || regnum == i)
|
if (regnum == -1 || regnum == SPARC_SP_REGNUM || regnum == i)
|
{
|
{
|
regcache_raw_collect (regcache, i, buf);
|
regcache_raw_collect (regcache, i, buf);
|
|
|
/* Handle StackGhost. */
|
/* Handle StackGhost. */
|
if (i == SPARC_I7_REGNUM)
|
if (i == SPARC_I7_REGNUM)
|
{
|
{
|
ULONGEST wcookie = sparc_fetch_wcookie (gdbarch);
|
ULONGEST wcookie = sparc_fetch_wcookie (gdbarch);
|
ULONGEST i7;
|
ULONGEST i7;
|
|
|
i7 = extract_unsigned_integer (buf + offset, 8, byte_order);
|
i7 = extract_unsigned_integer (buf + offset, 8, byte_order);
|
store_unsigned_integer (buf, 8, byte_order, i7 ^ wcookie);
|
store_unsigned_integer (buf, 8, byte_order, i7 ^ wcookie);
|
}
|
}
|
|
|
target_write_memory (sp + ((i - SPARC_L0_REGNUM) * 8), buf, 8);
|
target_write_memory (sp + ((i - SPARC_L0_REGNUM) * 8), buf, 8);
|
}
|
}
|
}
|
}
|
}
|
}
|
else
|
else
|
{
|
{
|
/* Registers are 32-bit. Toss any sign-extension of the stack
|
/* Registers are 32-bit. Toss any sign-extension of the stack
|
pointer. */
|
pointer. */
|
sp &= 0xffffffffUL;
|
sp &= 0xffffffffUL;
|
|
|
/* Only use the bottom half if we're in 64-bit mode. */
|
/* Only use the bottom half if we're in 64-bit mode. */
|
if (gdbarch_ptr_bit (get_regcache_arch (regcache)) == 64)
|
if (gdbarch_ptr_bit (get_regcache_arch (regcache)) == 64)
|
offset = 4;
|
offset = 4;
|
|
|
for (i = SPARC_L0_REGNUM; i <= SPARC_I7_REGNUM; i++)
|
for (i = SPARC_L0_REGNUM; i <= SPARC_I7_REGNUM; i++)
|
{
|
{
|
if (regnum == -1 || regnum == SPARC_SP_REGNUM || regnum == i)
|
if (regnum == -1 || regnum == SPARC_SP_REGNUM || regnum == i)
|
{
|
{
|
regcache_raw_collect (regcache, i, buf);
|
regcache_raw_collect (regcache, i, buf);
|
|
|
/* Handle StackGhost. */
|
/* Handle StackGhost. */
|
if (i == SPARC_I7_REGNUM)
|
if (i == SPARC_I7_REGNUM)
|
{
|
{
|
ULONGEST wcookie = sparc_fetch_wcookie (gdbarch);
|
ULONGEST wcookie = sparc_fetch_wcookie (gdbarch);
|
ULONGEST i7;
|
ULONGEST i7;
|
|
|
i7 = extract_unsigned_integer (buf + offset, 4, byte_order);
|
i7 = extract_unsigned_integer (buf + offset, 4, byte_order);
|
store_unsigned_integer (buf + offset, 4, byte_order,
|
store_unsigned_integer (buf + offset, 4, byte_order,
|
i7 ^ wcookie);
|
i7 ^ wcookie);
|
}
|
}
|
|
|
target_write_memory (sp + ((i - SPARC_L0_REGNUM) * 4),
|
target_write_memory (sp + ((i - SPARC_L0_REGNUM) * 4),
|
buf + offset, 4);
|
buf + offset, 4);
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
/* Helper functions for dealing with register sets. */
|
/* Helper functions for dealing with register sets. */
|
|
|
void
|
void
|
sparc32_supply_gregset (const struct sparc_gregset *gregset,
|
sparc32_supply_gregset (const struct sparc_gregset *gregset,
|
struct regcache *regcache,
|
struct regcache *regcache,
|
int regnum, const void *gregs)
|
int regnum, const void *gregs)
|
{
|
{
|
const gdb_byte *regs = gregs;
|
const gdb_byte *regs = gregs;
|
int i;
|
int i;
|
|
|
if (regnum == SPARC32_PSR_REGNUM || regnum == -1)
|
if (regnum == SPARC32_PSR_REGNUM || regnum == -1)
|
regcache_raw_supply (regcache, SPARC32_PSR_REGNUM,
|
regcache_raw_supply (regcache, SPARC32_PSR_REGNUM,
|
regs + gregset->r_psr_offset);
|
regs + gregset->r_psr_offset);
|
|
|
if (regnum == SPARC32_PC_REGNUM || regnum == -1)
|
if (regnum == SPARC32_PC_REGNUM || regnum == -1)
|
regcache_raw_supply (regcache, SPARC32_PC_REGNUM,
|
regcache_raw_supply (regcache, SPARC32_PC_REGNUM,
|
regs + gregset->r_pc_offset);
|
regs + gregset->r_pc_offset);
|
|
|
if (regnum == SPARC32_NPC_REGNUM || regnum == -1)
|
if (regnum == SPARC32_NPC_REGNUM || regnum == -1)
|
regcache_raw_supply (regcache, SPARC32_NPC_REGNUM,
|
regcache_raw_supply (regcache, SPARC32_NPC_REGNUM,
|
regs + gregset->r_npc_offset);
|
regs + gregset->r_npc_offset);
|
|
|
if (regnum == SPARC32_Y_REGNUM || regnum == -1)
|
if (regnum == SPARC32_Y_REGNUM || regnum == -1)
|
regcache_raw_supply (regcache, SPARC32_Y_REGNUM,
|
regcache_raw_supply (regcache, SPARC32_Y_REGNUM,
|
regs + gregset->r_y_offset);
|
regs + gregset->r_y_offset);
|
|
|
if (regnum == SPARC_G0_REGNUM || regnum == -1)
|
if (regnum == SPARC_G0_REGNUM || regnum == -1)
|
regcache_raw_supply (regcache, SPARC_G0_REGNUM, NULL);
|
regcache_raw_supply (regcache, SPARC_G0_REGNUM, NULL);
|
|
|
if ((regnum >= SPARC_G1_REGNUM && regnum <= SPARC_O7_REGNUM) || regnum == -1)
|
if ((regnum >= SPARC_G1_REGNUM && regnum <= SPARC_O7_REGNUM) || regnum == -1)
|
{
|
{
|
int offset = gregset->r_g1_offset;
|
int offset = gregset->r_g1_offset;
|
|
|
for (i = SPARC_G1_REGNUM; i <= SPARC_O7_REGNUM; i++)
|
for (i = SPARC_G1_REGNUM; i <= SPARC_O7_REGNUM; i++)
|
{
|
{
|
if (regnum == i || regnum == -1)
|
if (regnum == i || regnum == -1)
|
regcache_raw_supply (regcache, i, regs + offset);
|
regcache_raw_supply (regcache, i, regs + offset);
|
offset += 4;
|
offset += 4;
|
}
|
}
|
}
|
}
|
|
|
if ((regnum >= SPARC_L0_REGNUM && regnum <= SPARC_I7_REGNUM) || regnum == -1)
|
if ((regnum >= SPARC_L0_REGNUM && regnum <= SPARC_I7_REGNUM) || regnum == -1)
|
{
|
{
|
/* Not all of the register set variants include Locals and
|
/* Not all of the register set variants include Locals and
|
Inputs. For those that don't, we read them off the stack. */
|
Inputs. For those that don't, we read them off the stack. */
|
if (gregset->r_l0_offset == -1)
|
if (gregset->r_l0_offset == -1)
|
{
|
{
|
ULONGEST sp;
|
ULONGEST sp;
|
|
|
regcache_cooked_read_unsigned (regcache, SPARC_SP_REGNUM, &sp);
|
regcache_cooked_read_unsigned (regcache, SPARC_SP_REGNUM, &sp);
|
sparc_supply_rwindow (regcache, sp, regnum);
|
sparc_supply_rwindow (regcache, sp, regnum);
|
}
|
}
|
else
|
else
|
{
|
{
|
int offset = gregset->r_l0_offset;
|
int offset = gregset->r_l0_offset;
|
|
|
for (i = SPARC_L0_REGNUM; i <= SPARC_I7_REGNUM; i++)
|
for (i = SPARC_L0_REGNUM; i <= SPARC_I7_REGNUM; i++)
|
{
|
{
|
if (regnum == i || regnum == -1)
|
if (regnum == i || regnum == -1)
|
regcache_raw_supply (regcache, i, regs + offset);
|
regcache_raw_supply (regcache, i, regs + offset);
|
offset += 4;
|
offset += 4;
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
void
|
void
|
sparc32_collect_gregset (const struct sparc_gregset *gregset,
|
sparc32_collect_gregset (const struct sparc_gregset *gregset,
|
const struct regcache *regcache,
|
const struct regcache *regcache,
|
int regnum, void *gregs)
|
int regnum, void *gregs)
|
{
|
{
|
gdb_byte *regs = gregs;
|
gdb_byte *regs = gregs;
|
int i;
|
int i;
|
|
|
if (regnum == SPARC32_PSR_REGNUM || regnum == -1)
|
if (regnum == SPARC32_PSR_REGNUM || regnum == -1)
|
regcache_raw_collect (regcache, SPARC32_PSR_REGNUM,
|
regcache_raw_collect (regcache, SPARC32_PSR_REGNUM,
|
regs + gregset->r_psr_offset);
|
regs + gregset->r_psr_offset);
|
|
|
if (regnum == SPARC32_PC_REGNUM || regnum == -1)
|
if (regnum == SPARC32_PC_REGNUM || regnum == -1)
|
regcache_raw_collect (regcache, SPARC32_PC_REGNUM,
|
regcache_raw_collect (regcache, SPARC32_PC_REGNUM,
|
regs + gregset->r_pc_offset);
|
regs + gregset->r_pc_offset);
|
|
|
if (regnum == SPARC32_NPC_REGNUM || regnum == -1)
|
if (regnum == SPARC32_NPC_REGNUM || regnum == -1)
|
regcache_raw_collect (regcache, SPARC32_NPC_REGNUM,
|
regcache_raw_collect (regcache, SPARC32_NPC_REGNUM,
|
regs + gregset->r_npc_offset);
|
regs + gregset->r_npc_offset);
|
|
|
if (regnum == SPARC32_Y_REGNUM || regnum == -1)
|
if (regnum == SPARC32_Y_REGNUM || regnum == -1)
|
regcache_raw_collect (regcache, SPARC32_Y_REGNUM,
|
regcache_raw_collect (regcache, SPARC32_Y_REGNUM,
|
regs + gregset->r_y_offset);
|
regs + gregset->r_y_offset);
|
|
|
if ((regnum >= SPARC_G1_REGNUM && regnum <= SPARC_O7_REGNUM) || regnum == -1)
|
if ((regnum >= SPARC_G1_REGNUM && regnum <= SPARC_O7_REGNUM) || regnum == -1)
|
{
|
{
|
int offset = gregset->r_g1_offset;
|
int offset = gregset->r_g1_offset;
|
|
|
/* %g0 is always zero. */
|
/* %g0 is always zero. */
|
for (i = SPARC_G1_REGNUM; i <= SPARC_O7_REGNUM; i++)
|
for (i = SPARC_G1_REGNUM; i <= SPARC_O7_REGNUM; i++)
|
{
|
{
|
if (regnum == i || regnum == -1)
|
if (regnum == i || regnum == -1)
|
regcache_raw_collect (regcache, i, regs + offset);
|
regcache_raw_collect (regcache, i, regs + offset);
|
offset += 4;
|
offset += 4;
|
}
|
}
|
}
|
}
|
|
|
if ((regnum >= SPARC_L0_REGNUM && regnum <= SPARC_I7_REGNUM) || regnum == -1)
|
if ((regnum >= SPARC_L0_REGNUM && regnum <= SPARC_I7_REGNUM) || regnum == -1)
|
{
|
{
|
/* Not all of the register set variants include Locals and
|
/* Not all of the register set variants include Locals and
|
Inputs. For those that don't, we read them off the stack. */
|
Inputs. For those that don't, we read them off the stack. */
|
if (gregset->r_l0_offset != -1)
|
if (gregset->r_l0_offset != -1)
|
{
|
{
|
int offset = gregset->r_l0_offset;
|
int offset = gregset->r_l0_offset;
|
|
|
for (i = SPARC_L0_REGNUM; i <= SPARC_I7_REGNUM; i++)
|
for (i = SPARC_L0_REGNUM; i <= SPARC_I7_REGNUM; i++)
|
{
|
{
|
if (regnum == i || regnum == -1)
|
if (regnum == i || regnum == -1)
|
regcache_raw_collect (regcache, i, regs + offset);
|
regcache_raw_collect (regcache, i, regs + offset);
|
offset += 4;
|
offset += 4;
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
void
|
void
|
sparc32_supply_fpregset (struct regcache *regcache,
|
sparc32_supply_fpregset (struct regcache *regcache,
|
int regnum, const void *fpregs)
|
int regnum, const void *fpregs)
|
{
|
{
|
const gdb_byte *regs = fpregs;
|
const gdb_byte *regs = fpregs;
|
int i;
|
int i;
|
|
|
for (i = 0; i < 32; i++)
|
for (i = 0; i < 32; i++)
|
{
|
{
|
if (regnum == (SPARC_F0_REGNUM + i) || regnum == -1)
|
if (regnum == (SPARC_F0_REGNUM + i) || regnum == -1)
|
regcache_raw_supply (regcache, SPARC_F0_REGNUM + i, regs + (i * 4));
|
regcache_raw_supply (regcache, SPARC_F0_REGNUM + i, regs + (i * 4));
|
}
|
}
|
|
|
if (regnum == SPARC32_FSR_REGNUM || regnum == -1)
|
if (regnum == SPARC32_FSR_REGNUM || regnum == -1)
|
regcache_raw_supply (regcache, SPARC32_FSR_REGNUM, regs + (32 * 4) + 4);
|
regcache_raw_supply (regcache, SPARC32_FSR_REGNUM, regs + (32 * 4) + 4);
|
}
|
}
|
|
|
void
|
void
|
sparc32_collect_fpregset (const struct regcache *regcache,
|
sparc32_collect_fpregset (const struct regcache *regcache,
|
int regnum, void *fpregs)
|
int regnum, void *fpregs)
|
{
|
{
|
gdb_byte *regs = fpregs;
|
gdb_byte *regs = fpregs;
|
int i;
|
int i;
|
|
|
for (i = 0; i < 32; i++)
|
for (i = 0; i < 32; i++)
|
{
|
{
|
if (regnum == (SPARC_F0_REGNUM + i) || regnum == -1)
|
if (regnum == (SPARC_F0_REGNUM + i) || regnum == -1)
|
regcache_raw_collect (regcache, SPARC_F0_REGNUM + i, regs + (i * 4));
|
regcache_raw_collect (regcache, SPARC_F0_REGNUM + i, regs + (i * 4));
|
}
|
}
|
|
|
if (regnum == SPARC32_FSR_REGNUM || regnum == -1)
|
if (regnum == SPARC32_FSR_REGNUM || regnum == -1)
|
regcache_raw_collect (regcache, SPARC32_FSR_REGNUM, regs + (32 * 4) + 4);
|
regcache_raw_collect (regcache, SPARC32_FSR_REGNUM, regs + (32 * 4) + 4);
|
}
|
}
|
|
|
|
|
/* SunOS 4. */
|
/* SunOS 4. */
|
|
|
/* From <machine/reg.h>. */
|
/* From <machine/reg.h>. */
|
const struct sparc_gregset sparc32_sunos4_gregset =
|
const struct sparc_gregset sparc32_sunos4_gregset =
|
{
|
{
|
0 * 4, /* %psr */
|
0 * 4, /* %psr */
|
1 * 4, /* %pc */
|
1 * 4, /* %pc */
|
2 * 4, /* %npc */
|
2 * 4, /* %npc */
|
3 * 4, /* %y */
|
3 * 4, /* %y */
|
-1, /* %wim */
|
-1, /* %wim */
|
-1, /* %tbr */
|
-1, /* %tbr */
|
4 * 4, /* %g1 */
|
4 * 4, /* %g1 */
|
-1 /* %l0 */
|
-1 /* %l0 */
|
};
|
};
|
|
|
|
|
/* Provide a prototype to silence -Wmissing-prototypes. */
|
/* Provide a prototype to silence -Wmissing-prototypes. */
|
void _initialize_sparc_tdep (void);
|
void _initialize_sparc_tdep (void);
|
|
|
void
|
void
|
_initialize_sparc_tdep (void)
|
_initialize_sparc_tdep (void)
|
{
|
{
|
register_gdbarch_init (bfd_arch_sparc, sparc32_gdbarch_init);
|
register_gdbarch_init (bfd_arch_sparc, sparc32_gdbarch_init);
|
}
|
}
|
|
|