/* Target-dependent code for the ALPHA architecture, for GDB, the GNU Debugger.
|
/* Target-dependent code for the ALPHA architecture, for GDB, the GNU Debugger.
|
|
|
Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
|
Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
|
2003, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
|
2003, 2005, 2006, 2007, 2008 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 "doublest.h"
|
#include "doublest.h"
|
#include "frame.h"
|
#include "frame.h"
|
#include "frame-unwind.h"
|
#include "frame-unwind.h"
|
#include "frame-base.h"
|
#include "frame-base.h"
|
#include "dwarf2-frame.h"
|
#include "dwarf2-frame.h"
|
#include "inferior.h"
|
#include "inferior.h"
|
#include "symtab.h"
|
#include "symtab.h"
|
#include "value.h"
|
#include "value.h"
|
#include "gdbcmd.h"
|
#include "gdbcmd.h"
|
#include "gdbcore.h"
|
#include "gdbcore.h"
|
#include "dis-asm.h"
|
#include "dis-asm.h"
|
#include "symfile.h"
|
#include "symfile.h"
|
#include "objfiles.h"
|
#include "objfiles.h"
|
#include "gdb_string.h"
|
#include "gdb_string.h"
|
#include "linespec.h"
|
#include "linespec.h"
|
#include "regcache.h"
|
#include "regcache.h"
|
#include "reggroups.h"
|
#include "reggroups.h"
|
#include "arch-utils.h"
|
#include "arch-utils.h"
|
#include "osabi.h"
|
#include "osabi.h"
|
#include "block.h"
|
#include "block.h"
|
#include "infcall.h"
|
#include "infcall.h"
|
#include "trad-frame.h"
|
#include "trad-frame.h"
|
|
|
#include "elf-bfd.h"
|
#include "elf-bfd.h"
|
|
|
#include "alpha-tdep.h"
|
#include "alpha-tdep.h"
|
|
|
|
|
/* Return the name of the REGNO register.
|
/* Return the name of the REGNO register.
|
|
|
An empty name corresponds to a register number that used to
|
An empty name corresponds to a register number that used to
|
be used for a virtual register. That virtual register has
|
be used for a virtual register. That virtual register has
|
been removed, but the index is still reserved to maintain
|
been removed, but the index is still reserved to maintain
|
compatibility with existing remote alpha targets. */
|
compatibility with existing remote alpha targets. */
|
|
|
static const char *
|
static const char *
|
alpha_register_name (struct gdbarch *gdbarch, int regno)
|
alpha_register_name (struct gdbarch *gdbarch, int regno)
|
{
|
{
|
static const char * const register_names[] =
|
static const char * const register_names[] =
|
{
|
{
|
"v0", "t0", "t1", "t2", "t3", "t4", "t5", "t6",
|
"v0", "t0", "t1", "t2", "t3", "t4", "t5", "t6",
|
"t7", "s0", "s1", "s2", "s3", "s4", "s5", "fp",
|
"t7", "s0", "s1", "s2", "s3", "s4", "s5", "fp",
|
"a0", "a1", "a2", "a3", "a4", "a5", "t8", "t9",
|
"a0", "a1", "a2", "a3", "a4", "a5", "t8", "t9",
|
"t10", "t11", "ra", "t12", "at", "gp", "sp", "zero",
|
"t10", "t11", "ra", "t12", "at", "gp", "sp", "zero",
|
"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", "fpcr",
|
"f24", "f25", "f26", "f27", "f28", "f29", "f30", "fpcr",
|
"pc", "", "unique"
|
"pc", "", "unique"
|
};
|
};
|
|
|
if (regno < 0)
|
if (regno < 0)
|
return NULL;
|
return NULL;
|
if (regno >= ARRAY_SIZE(register_names))
|
if (regno >= ARRAY_SIZE(register_names))
|
return NULL;
|
return NULL;
|
return register_names[regno];
|
return register_names[regno];
|
}
|
}
|
|
|
static int
|
static int
|
alpha_cannot_fetch_register (struct gdbarch *gdbarch, int regno)
|
alpha_cannot_fetch_register (struct gdbarch *gdbarch, int regno)
|
{
|
{
|
return (regno == ALPHA_ZERO_REGNUM
|
return (regno == ALPHA_ZERO_REGNUM
|
|| strlen (alpha_register_name (gdbarch, regno)) == 0);
|
|| strlen (alpha_register_name (gdbarch, regno)) == 0);
|
}
|
}
|
|
|
static int
|
static int
|
alpha_cannot_store_register (struct gdbarch *gdbarch, int regno)
|
alpha_cannot_store_register (struct gdbarch *gdbarch, int regno)
|
{
|
{
|
return (regno == ALPHA_ZERO_REGNUM
|
return (regno == ALPHA_ZERO_REGNUM
|
|| strlen (alpha_register_name (gdbarch, regno)) == 0);
|
|| strlen (alpha_register_name (gdbarch, regno)) == 0);
|
}
|
}
|
|
|
static struct type *
|
static struct type *
|
alpha_register_type (struct gdbarch *gdbarch, int regno)
|
alpha_register_type (struct gdbarch *gdbarch, int regno)
|
{
|
{
|
if (regno == ALPHA_SP_REGNUM || regno == ALPHA_GP_REGNUM)
|
if (regno == ALPHA_SP_REGNUM || regno == ALPHA_GP_REGNUM)
|
return builtin_type_void_data_ptr;
|
return builtin_type_void_data_ptr;
|
if (regno == ALPHA_PC_REGNUM)
|
if (regno == ALPHA_PC_REGNUM)
|
return builtin_type_void_func_ptr;
|
return builtin_type_void_func_ptr;
|
|
|
/* Don't need to worry about little vs big endian until
|
/* Don't need to worry about little vs big endian until
|
some jerk tries to port to alpha-unicosmk. */
|
some jerk tries to port to alpha-unicosmk. */
|
if (regno >= ALPHA_FP0_REGNUM && regno < ALPHA_FP0_REGNUM + 31)
|
if (regno >= ALPHA_FP0_REGNUM && regno < ALPHA_FP0_REGNUM + 31)
|
return builtin_type_ieee_double;
|
return builtin_type_ieee_double;
|
|
|
return builtin_type_int64;
|
return builtin_type_int64;
|
}
|
}
|
|
|
/* Is REGNUM a member of REGGROUP? */
|
/* Is REGNUM a member of REGGROUP? */
|
|
|
static int
|
static int
|
alpha_register_reggroup_p (struct gdbarch *gdbarch, int regnum,
|
alpha_register_reggroup_p (struct gdbarch *gdbarch, int regnum,
|
struct reggroup *group)
|
struct reggroup *group)
|
{
|
{
|
/* Filter out any registers eliminated, but whose regnum is
|
/* Filter out any registers eliminated, but whose regnum is
|
reserved for backward compatibility, e.g. the vfp. */
|
reserved for backward compatibility, e.g. the vfp. */
|
if (gdbarch_register_name (gdbarch, regnum) == NULL
|
if (gdbarch_register_name (gdbarch, regnum) == NULL
|
|| *gdbarch_register_name (gdbarch, regnum) == '\0')
|
|| *gdbarch_register_name (gdbarch, regnum) == '\0')
|
return 0;
|
return 0;
|
|
|
if (group == all_reggroup)
|
if (group == all_reggroup)
|
return 1;
|
return 1;
|
|
|
/* Zero should not be saved or restored. Technically it is a general
|
/* Zero should not be saved or restored. Technically it is a general
|
register (just as $f31 would be a float if we represented it), but
|
register (just as $f31 would be a float if we represented it), but
|
there's no point displaying it during "info regs", so leave it out
|
there's no point displaying it during "info regs", so leave it out
|
of all groups except for "all". */
|
of all groups except for "all". */
|
if (regnum == ALPHA_ZERO_REGNUM)
|
if (regnum == ALPHA_ZERO_REGNUM)
|
return 0;
|
return 0;
|
|
|
/* All other registers are saved and restored. */
|
/* All other registers are saved and restored. */
|
if (group == save_reggroup || group == restore_reggroup)
|
if (group == save_reggroup || group == restore_reggroup)
|
return 1;
|
return 1;
|
|
|
/* All other groups are non-overlapping. */
|
/* All other groups are non-overlapping. */
|
|
|
/* Since this is really a PALcode memory slot... */
|
/* Since this is really a PALcode memory slot... */
|
if (regnum == ALPHA_UNIQUE_REGNUM)
|
if (regnum == ALPHA_UNIQUE_REGNUM)
|
return group == system_reggroup;
|
return group == system_reggroup;
|
|
|
/* Force the FPCR to be considered part of the floating point state. */
|
/* Force the FPCR to be considered part of the floating point state. */
|
if (regnum == ALPHA_FPCR_REGNUM)
|
if (regnum == ALPHA_FPCR_REGNUM)
|
return group == float_reggroup;
|
return group == float_reggroup;
|
|
|
if (regnum >= ALPHA_FP0_REGNUM && regnum < ALPHA_FP0_REGNUM + 31)
|
if (regnum >= ALPHA_FP0_REGNUM && regnum < ALPHA_FP0_REGNUM + 31)
|
return group == float_reggroup;
|
return group == float_reggroup;
|
else
|
else
|
return group == general_reggroup;
|
return group == general_reggroup;
|
}
|
}
|
|
|
/* The following represents exactly the conversion performed by
|
/* The following represents exactly the conversion performed by
|
the LDS instruction. This applies to both single-precision
|
the LDS instruction. This applies to both single-precision
|
floating point and 32-bit integers. */
|
floating point and 32-bit integers. */
|
|
|
static void
|
static void
|
alpha_lds (void *out, const void *in)
|
alpha_lds (void *out, const void *in)
|
{
|
{
|
ULONGEST mem = extract_unsigned_integer (in, 4);
|
ULONGEST mem = extract_unsigned_integer (in, 4);
|
ULONGEST frac = (mem >> 0) & 0x7fffff;
|
ULONGEST frac = (mem >> 0) & 0x7fffff;
|
ULONGEST sign = (mem >> 31) & 1;
|
ULONGEST sign = (mem >> 31) & 1;
|
ULONGEST exp_msb = (mem >> 30) & 1;
|
ULONGEST exp_msb = (mem >> 30) & 1;
|
ULONGEST exp_low = (mem >> 23) & 0x7f;
|
ULONGEST exp_low = (mem >> 23) & 0x7f;
|
ULONGEST exp, reg;
|
ULONGEST exp, reg;
|
|
|
exp = (exp_msb << 10) | exp_low;
|
exp = (exp_msb << 10) | exp_low;
|
if (exp_msb)
|
if (exp_msb)
|
{
|
{
|
if (exp_low == 0x7f)
|
if (exp_low == 0x7f)
|
exp = 0x7ff;
|
exp = 0x7ff;
|
}
|
}
|
else
|
else
|
{
|
{
|
if (exp_low != 0x00)
|
if (exp_low != 0x00)
|
exp |= 0x380;
|
exp |= 0x380;
|
}
|
}
|
|
|
reg = (sign << 63) | (exp << 52) | (frac << 29);
|
reg = (sign << 63) | (exp << 52) | (frac << 29);
|
store_unsigned_integer (out, 8, reg);
|
store_unsigned_integer (out, 8, reg);
|
}
|
}
|
|
|
/* Similarly, this represents exactly the conversion performed by
|
/* Similarly, this represents exactly the conversion performed by
|
the STS instruction. */
|
the STS instruction. */
|
|
|
static void
|
static void
|
alpha_sts (void *out, const void *in)
|
alpha_sts (void *out, const void *in)
|
{
|
{
|
ULONGEST reg, mem;
|
ULONGEST reg, mem;
|
|
|
reg = extract_unsigned_integer (in, 8);
|
reg = extract_unsigned_integer (in, 8);
|
mem = ((reg >> 32) & 0xc0000000) | ((reg >> 29) & 0x3fffffff);
|
mem = ((reg >> 32) & 0xc0000000) | ((reg >> 29) & 0x3fffffff);
|
store_unsigned_integer (out, 4, mem);
|
store_unsigned_integer (out, 4, mem);
|
}
|
}
|
|
|
/* The alpha needs a conversion between register and memory format if the
|
/* The alpha needs a conversion between register and memory format if the
|
register is a floating point register and memory format is float, as the
|
register is a floating point register and memory format is float, as the
|
register format must be double or memory format is an integer with 4
|
register format must be double or memory format is an integer with 4
|
bytes or less, as the representation of integers in floating point
|
bytes or less, as the representation of integers in floating point
|
registers is different. */
|
registers is different. */
|
|
|
static int
|
static int
|
alpha_convert_register_p (struct gdbarch *gdbarch, int regno, struct type *type)
|
alpha_convert_register_p (struct gdbarch *gdbarch, int regno, struct type *type)
|
{
|
{
|
return (regno >= ALPHA_FP0_REGNUM && regno < ALPHA_FP0_REGNUM + 31
|
return (regno >= ALPHA_FP0_REGNUM && regno < ALPHA_FP0_REGNUM + 31
|
&& TYPE_LENGTH (type) != 8);
|
&& TYPE_LENGTH (type) != 8);
|
}
|
}
|
|
|
static void
|
static void
|
alpha_register_to_value (struct frame_info *frame, int regnum,
|
alpha_register_to_value (struct frame_info *frame, int regnum,
|
struct type *valtype, gdb_byte *out)
|
struct type *valtype, gdb_byte *out)
|
{
|
{
|
gdb_byte in[MAX_REGISTER_SIZE];
|
gdb_byte in[MAX_REGISTER_SIZE];
|
|
|
frame_register_read (frame, regnum, in);
|
frame_register_read (frame, regnum, in);
|
switch (TYPE_LENGTH (valtype))
|
switch (TYPE_LENGTH (valtype))
|
{
|
{
|
case 4:
|
case 4:
|
alpha_sts (out, in);
|
alpha_sts (out, in);
|
break;
|
break;
|
default:
|
default:
|
error (_("Cannot retrieve value from floating point register"));
|
error (_("Cannot retrieve value from floating point register"));
|
}
|
}
|
}
|
}
|
|
|
static void
|
static void
|
alpha_value_to_register (struct frame_info *frame, int regnum,
|
alpha_value_to_register (struct frame_info *frame, int regnum,
|
struct type *valtype, const gdb_byte *in)
|
struct type *valtype, const gdb_byte *in)
|
{
|
{
|
gdb_byte out[MAX_REGISTER_SIZE];
|
gdb_byte out[MAX_REGISTER_SIZE];
|
|
|
switch (TYPE_LENGTH (valtype))
|
switch (TYPE_LENGTH (valtype))
|
{
|
{
|
case 4:
|
case 4:
|
alpha_lds (out, in);
|
alpha_lds (out, in);
|
break;
|
break;
|
default:
|
default:
|
error (_("Cannot store value in floating point register"));
|
error (_("Cannot store value in floating point register"));
|
}
|
}
|
put_frame_register (frame, regnum, out);
|
put_frame_register (frame, regnum, out);
|
}
|
}
|
|
|
|
|
/* The alpha passes the first six arguments in the registers, the rest on
|
/* The alpha passes the first six arguments in the registers, the rest on
|
the stack. The register arguments are stored in ARG_REG_BUFFER, and
|
the stack. The register arguments are stored in ARG_REG_BUFFER, and
|
then moved into the register file; this simplifies the passing of a
|
then moved into the register file; this simplifies the passing of a
|
large struct which extends from the registers to the stack, plus avoids
|
large struct which extends from the registers to the stack, plus avoids
|
three ptrace invocations per word.
|
three ptrace invocations per word.
|
|
|
We don't bother tracking which register values should go in integer
|
We don't bother tracking which register values should go in integer
|
regs or fp regs; we load the same values into both.
|
regs or fp regs; we load the same values into both.
|
|
|
If the called function is returning a structure, the address of the
|
If the called function is returning a structure, the address of the
|
structure to be returned is passed as a hidden first argument. */
|
structure to be returned is passed as a hidden first argument. */
|
|
|
static CORE_ADDR
|
static CORE_ADDR
|
alpha_push_dummy_call (struct gdbarch *gdbarch, struct value *function,
|
alpha_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)
|
{
|
{
|
int i;
|
int i;
|
int accumulate_size = struct_return ? 8 : 0;
|
int accumulate_size = struct_return ? 8 : 0;
|
struct alpha_arg
|
struct alpha_arg
|
{
|
{
|
gdb_byte *contents;
|
gdb_byte *contents;
|
int len;
|
int len;
|
int offset;
|
int offset;
|
};
|
};
|
struct alpha_arg *alpha_args
|
struct alpha_arg *alpha_args
|
= (struct alpha_arg *) alloca (nargs * sizeof (struct alpha_arg));
|
= (struct alpha_arg *) alloca (nargs * sizeof (struct alpha_arg));
|
struct alpha_arg *m_arg;
|
struct alpha_arg *m_arg;
|
gdb_byte arg_reg_buffer[ALPHA_REGISTER_SIZE * ALPHA_NUM_ARG_REGS];
|
gdb_byte arg_reg_buffer[ALPHA_REGISTER_SIZE * ALPHA_NUM_ARG_REGS];
|
int required_arg_regs;
|
int required_arg_regs;
|
CORE_ADDR func_addr = find_function_addr (function, NULL);
|
CORE_ADDR func_addr = find_function_addr (function, NULL);
|
|
|
/* The ABI places the address of the called function in T12. */
|
/* The ABI places the address of the called function in T12. */
|
regcache_cooked_write_signed (regcache, ALPHA_T12_REGNUM, func_addr);
|
regcache_cooked_write_signed (regcache, ALPHA_T12_REGNUM, func_addr);
|
|
|
/* Set the return address register to point to the entry point
|
/* Set the return address register to point to the entry point
|
of the program, where a breakpoint lies in wait. */
|
of the program, where a breakpoint lies in wait. */
|
regcache_cooked_write_signed (regcache, ALPHA_RA_REGNUM, bp_addr);
|
regcache_cooked_write_signed (regcache, ALPHA_RA_REGNUM, bp_addr);
|
|
|
/* Lay out the arguments in memory. */
|
/* Lay out the arguments in memory. */
|
for (i = 0, m_arg = alpha_args; i < nargs; i++, m_arg++)
|
for (i = 0, m_arg = alpha_args; i < nargs; i++, m_arg++)
|
{
|
{
|
struct value *arg = args[i];
|
struct value *arg = args[i];
|
struct type *arg_type = check_typedef (value_type (arg));
|
struct type *arg_type = check_typedef (value_type (arg));
|
|
|
/* Cast argument to long if necessary as the compiler does it too. */
|
/* Cast argument to long if necessary as the compiler does it too. */
|
switch (TYPE_CODE (arg_type))
|
switch (TYPE_CODE (arg_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_RANGE:
|
case TYPE_CODE_RANGE:
|
case TYPE_CODE_ENUM:
|
case TYPE_CODE_ENUM:
|
if (TYPE_LENGTH (arg_type) == 4)
|
if (TYPE_LENGTH (arg_type) == 4)
|
{
|
{
|
/* 32-bit values must be sign-extended to 64 bits
|
/* 32-bit values must be sign-extended to 64 bits
|
even if the base data type is unsigned. */
|
even if the base data type is unsigned. */
|
arg_type = builtin_type_int32;
|
arg_type = builtin_type_int32;
|
arg = value_cast (arg_type, arg);
|
arg = value_cast (arg_type, arg);
|
}
|
}
|
if (TYPE_LENGTH (arg_type) < ALPHA_REGISTER_SIZE)
|
if (TYPE_LENGTH (arg_type) < ALPHA_REGISTER_SIZE)
|
{
|
{
|
arg_type = builtin_type_int64;
|
arg_type = builtin_type_int64;
|
arg = value_cast (arg_type, arg);
|
arg = value_cast (arg_type, arg);
|
}
|
}
|
break;
|
break;
|
|
|
case TYPE_CODE_FLT:
|
case TYPE_CODE_FLT:
|
/* "float" arguments loaded in registers must be passed in
|
/* "float" arguments loaded in registers must be passed in
|
register format, aka "double". */
|
register format, aka "double". */
|
if (accumulate_size < sizeof (arg_reg_buffer)
|
if (accumulate_size < sizeof (arg_reg_buffer)
|
&& TYPE_LENGTH (arg_type) == 4)
|
&& TYPE_LENGTH (arg_type) == 4)
|
{
|
{
|
arg_type = builtin_type_ieee_double;
|
arg_type = builtin_type_ieee_double;
|
arg = value_cast (arg_type, arg);
|
arg = value_cast (arg_type, arg);
|
}
|
}
|
/* Tru64 5.1 has a 128-bit long double, and passes this by
|
/* Tru64 5.1 has a 128-bit long double, and passes this by
|
invisible reference. No one else uses this data type. */
|
invisible reference. No one else uses this data type. */
|
else if (TYPE_LENGTH (arg_type) == 16)
|
else if (TYPE_LENGTH (arg_type) == 16)
|
{
|
{
|
/* Allocate aligned storage. */
|
/* Allocate aligned storage. */
|
sp = (sp & -16) - 16;
|
sp = (sp & -16) - 16;
|
|
|
/* Write the real data into the stack. */
|
/* Write the real data into the stack. */
|
write_memory (sp, value_contents (arg), 16);
|
write_memory (sp, value_contents (arg), 16);
|
|
|
/* Construct the indirection. */
|
/* Construct the indirection. */
|
arg_type = lookup_pointer_type (arg_type);
|
arg_type = lookup_pointer_type (arg_type);
|
arg = value_from_pointer (arg_type, sp);
|
arg = value_from_pointer (arg_type, sp);
|
}
|
}
|
break;
|
break;
|
|
|
case TYPE_CODE_COMPLEX:
|
case TYPE_CODE_COMPLEX:
|
/* ??? The ABI says that complex values are passed as two
|
/* ??? The ABI says that complex values are passed as two
|
separate scalar values. This distinction only matters
|
separate scalar values. This distinction only matters
|
for complex float. However, GCC does not implement this. */
|
for complex float. However, GCC does not implement this. */
|
|
|
/* Tru64 5.1 has a 128-bit long double, and passes this by
|
/* Tru64 5.1 has a 128-bit long double, and passes this by
|
invisible reference. */
|
invisible reference. */
|
if (TYPE_LENGTH (arg_type) == 32)
|
if (TYPE_LENGTH (arg_type) == 32)
|
{
|
{
|
/* Allocate aligned storage. */
|
/* Allocate aligned storage. */
|
sp = (sp & -16) - 16;
|
sp = (sp & -16) - 16;
|
|
|
/* Write the real data into the stack. */
|
/* Write the real data into the stack. */
|
write_memory (sp, value_contents (arg), 32);
|
write_memory (sp, value_contents (arg), 32);
|
|
|
/* Construct the indirection. */
|
/* Construct the indirection. */
|
arg_type = lookup_pointer_type (arg_type);
|
arg_type = lookup_pointer_type (arg_type);
|
arg = value_from_pointer (arg_type, sp);
|
arg = value_from_pointer (arg_type, sp);
|
}
|
}
|
break;
|
break;
|
|
|
default:
|
default:
|
break;
|
break;
|
}
|
}
|
m_arg->len = TYPE_LENGTH (arg_type);
|
m_arg->len = TYPE_LENGTH (arg_type);
|
m_arg->offset = accumulate_size;
|
m_arg->offset = accumulate_size;
|
accumulate_size = (accumulate_size + m_arg->len + 7) & ~7;
|
accumulate_size = (accumulate_size + m_arg->len + 7) & ~7;
|
m_arg->contents = value_contents_writeable (arg);
|
m_arg->contents = value_contents_writeable (arg);
|
}
|
}
|
|
|
/* Determine required argument register loads, loading an argument register
|
/* Determine required argument register loads, loading an argument register
|
is expensive as it uses three ptrace calls. */
|
is expensive as it uses three ptrace calls. */
|
required_arg_regs = accumulate_size / 8;
|
required_arg_regs = accumulate_size / 8;
|
if (required_arg_regs > ALPHA_NUM_ARG_REGS)
|
if (required_arg_regs > ALPHA_NUM_ARG_REGS)
|
required_arg_regs = ALPHA_NUM_ARG_REGS;
|
required_arg_regs = ALPHA_NUM_ARG_REGS;
|
|
|
/* Make room for the arguments on the stack. */
|
/* Make room for the arguments on the stack. */
|
if (accumulate_size < sizeof(arg_reg_buffer))
|
if (accumulate_size < sizeof(arg_reg_buffer))
|
accumulate_size = 0;
|
accumulate_size = 0;
|
else
|
else
|
accumulate_size -= sizeof(arg_reg_buffer);
|
accumulate_size -= sizeof(arg_reg_buffer);
|
sp -= accumulate_size;
|
sp -= accumulate_size;
|
|
|
/* Keep sp aligned to a multiple of 16 as the ABI requires. */
|
/* Keep sp aligned to a multiple of 16 as the ABI requires. */
|
sp &= ~15;
|
sp &= ~15;
|
|
|
/* `Push' arguments on the stack. */
|
/* `Push' arguments on the stack. */
|
for (i = nargs; m_arg--, --i >= 0;)
|
for (i = nargs; m_arg--, --i >= 0;)
|
{
|
{
|
gdb_byte *contents = m_arg->contents;
|
gdb_byte *contents = m_arg->contents;
|
int offset = m_arg->offset;
|
int offset = m_arg->offset;
|
int len = m_arg->len;
|
int len = m_arg->len;
|
|
|
/* Copy the bytes destined for registers into arg_reg_buffer. */
|
/* Copy the bytes destined for registers into arg_reg_buffer. */
|
if (offset < sizeof(arg_reg_buffer))
|
if (offset < sizeof(arg_reg_buffer))
|
{
|
{
|
if (offset + len <= sizeof(arg_reg_buffer))
|
if (offset + len <= sizeof(arg_reg_buffer))
|
{
|
{
|
memcpy (arg_reg_buffer + offset, contents, len);
|
memcpy (arg_reg_buffer + offset, contents, len);
|
continue;
|
continue;
|
}
|
}
|
else
|
else
|
{
|
{
|
int tlen = sizeof(arg_reg_buffer) - offset;
|
int tlen = sizeof(arg_reg_buffer) - offset;
|
memcpy (arg_reg_buffer + offset, contents, tlen);
|
memcpy (arg_reg_buffer + offset, contents, tlen);
|
offset += tlen;
|
offset += tlen;
|
contents += tlen;
|
contents += tlen;
|
len -= tlen;
|
len -= tlen;
|
}
|
}
|
}
|
}
|
|
|
/* Everything else goes to the stack. */
|
/* Everything else goes to the stack. */
|
write_memory (sp + offset - sizeof(arg_reg_buffer), contents, len);
|
write_memory (sp + offset - sizeof(arg_reg_buffer), contents, len);
|
}
|
}
|
if (struct_return)
|
if (struct_return)
|
store_unsigned_integer (arg_reg_buffer, ALPHA_REGISTER_SIZE, struct_addr);
|
store_unsigned_integer (arg_reg_buffer, ALPHA_REGISTER_SIZE, struct_addr);
|
|
|
/* Load the argument registers. */
|
/* Load the argument registers. */
|
for (i = 0; i < required_arg_regs; i++)
|
for (i = 0; i < required_arg_regs; i++)
|
{
|
{
|
regcache_cooked_write (regcache, ALPHA_A0_REGNUM + i,
|
regcache_cooked_write (regcache, ALPHA_A0_REGNUM + i,
|
arg_reg_buffer + i*ALPHA_REGISTER_SIZE);
|
arg_reg_buffer + i*ALPHA_REGISTER_SIZE);
|
regcache_cooked_write (regcache, ALPHA_FPA0_REGNUM + i,
|
regcache_cooked_write (regcache, ALPHA_FPA0_REGNUM + i,
|
arg_reg_buffer + i*ALPHA_REGISTER_SIZE);
|
arg_reg_buffer + i*ALPHA_REGISTER_SIZE);
|
}
|
}
|
|
|
/* Finally, update the stack pointer. */
|
/* Finally, update the stack pointer. */
|
regcache_cooked_write_signed (regcache, ALPHA_SP_REGNUM, sp);
|
regcache_cooked_write_signed (regcache, ALPHA_SP_REGNUM, sp);
|
|
|
return sp;
|
return sp;
|
}
|
}
|
|
|
/* Extract from REGCACHE the value about to be returned from a function
|
/* Extract from REGCACHE the value about to be returned from a function
|
and copy it into VALBUF. */
|
and copy it into VALBUF. */
|
|
|
static void
|
static void
|
alpha_extract_return_value (struct type *valtype, struct regcache *regcache,
|
alpha_extract_return_value (struct type *valtype, struct regcache *regcache,
|
gdb_byte *valbuf)
|
gdb_byte *valbuf)
|
{
|
{
|
int length = TYPE_LENGTH (valtype);
|
int length = TYPE_LENGTH (valtype);
|
gdb_byte raw_buffer[ALPHA_REGISTER_SIZE];
|
gdb_byte raw_buffer[ALPHA_REGISTER_SIZE];
|
ULONGEST l;
|
ULONGEST l;
|
|
|
switch (TYPE_CODE (valtype))
|
switch (TYPE_CODE (valtype))
|
{
|
{
|
case TYPE_CODE_FLT:
|
case TYPE_CODE_FLT:
|
switch (length)
|
switch (length)
|
{
|
{
|
case 4:
|
case 4:
|
regcache_cooked_read (regcache, ALPHA_FP0_REGNUM, raw_buffer);
|
regcache_cooked_read (regcache, ALPHA_FP0_REGNUM, raw_buffer);
|
alpha_sts (valbuf, raw_buffer);
|
alpha_sts (valbuf, raw_buffer);
|
break;
|
break;
|
|
|
case 8:
|
case 8:
|
regcache_cooked_read (regcache, ALPHA_FP0_REGNUM, valbuf);
|
regcache_cooked_read (regcache, ALPHA_FP0_REGNUM, valbuf);
|
break;
|
break;
|
|
|
case 16:
|
case 16:
|
regcache_cooked_read_unsigned (regcache, ALPHA_V0_REGNUM, &l);
|
regcache_cooked_read_unsigned (regcache, ALPHA_V0_REGNUM, &l);
|
read_memory (l, valbuf, 16);
|
read_memory (l, valbuf, 16);
|
break;
|
break;
|
|
|
default:
|
default:
|
internal_error (__FILE__, __LINE__, _("unknown floating point width"));
|
internal_error (__FILE__, __LINE__, _("unknown floating point width"));
|
}
|
}
|
break;
|
break;
|
|
|
case TYPE_CODE_COMPLEX:
|
case TYPE_CODE_COMPLEX:
|
switch (length)
|
switch (length)
|
{
|
{
|
case 8:
|
case 8:
|
/* ??? This isn't correct wrt the ABI, but it's what GCC does. */
|
/* ??? This isn't correct wrt the ABI, but it's what GCC does. */
|
regcache_cooked_read (regcache, ALPHA_FP0_REGNUM, valbuf);
|
regcache_cooked_read (regcache, ALPHA_FP0_REGNUM, valbuf);
|
break;
|
break;
|
|
|
case 16:
|
case 16:
|
regcache_cooked_read (regcache, ALPHA_FP0_REGNUM, valbuf);
|
regcache_cooked_read (regcache, ALPHA_FP0_REGNUM, valbuf);
|
regcache_cooked_read (regcache, ALPHA_FP0_REGNUM + 1, valbuf + 8);
|
regcache_cooked_read (regcache, ALPHA_FP0_REGNUM + 1, valbuf + 8);
|
break;
|
break;
|
|
|
case 32:
|
case 32:
|
regcache_cooked_read_signed (regcache, ALPHA_V0_REGNUM, &l);
|
regcache_cooked_read_signed (regcache, ALPHA_V0_REGNUM, &l);
|
read_memory (l, valbuf, 32);
|
read_memory (l, valbuf, 32);
|
break;
|
break;
|
|
|
default:
|
default:
|
internal_error (__FILE__, __LINE__, _("unknown floating point width"));
|
internal_error (__FILE__, __LINE__, _("unknown floating point width"));
|
}
|
}
|
break;
|
break;
|
|
|
default:
|
default:
|
/* Assume everything else degenerates to an integer. */
|
/* Assume everything else degenerates to an integer. */
|
regcache_cooked_read_unsigned (regcache, ALPHA_V0_REGNUM, &l);
|
regcache_cooked_read_unsigned (regcache, ALPHA_V0_REGNUM, &l);
|
store_unsigned_integer (valbuf, length, l);
|
store_unsigned_integer (valbuf, length, l);
|
break;
|
break;
|
}
|
}
|
}
|
}
|
|
|
/* Insert the given value into REGCACHE as if it was being
|
/* Insert the given value into REGCACHE as if it was being
|
returned by a function. */
|
returned by a function. */
|
|
|
static void
|
static void
|
alpha_store_return_value (struct type *valtype, struct regcache *regcache,
|
alpha_store_return_value (struct type *valtype, struct regcache *regcache,
|
const gdb_byte *valbuf)
|
const gdb_byte *valbuf)
|
{
|
{
|
int length = TYPE_LENGTH (valtype);
|
int length = TYPE_LENGTH (valtype);
|
gdb_byte raw_buffer[ALPHA_REGISTER_SIZE];
|
gdb_byte raw_buffer[ALPHA_REGISTER_SIZE];
|
ULONGEST l;
|
ULONGEST l;
|
|
|
switch (TYPE_CODE (valtype))
|
switch (TYPE_CODE (valtype))
|
{
|
{
|
case TYPE_CODE_FLT:
|
case TYPE_CODE_FLT:
|
switch (length)
|
switch (length)
|
{
|
{
|
case 4:
|
case 4:
|
alpha_lds (raw_buffer, valbuf);
|
alpha_lds (raw_buffer, valbuf);
|
regcache_cooked_write (regcache, ALPHA_FP0_REGNUM, raw_buffer);
|
regcache_cooked_write (regcache, ALPHA_FP0_REGNUM, raw_buffer);
|
break;
|
break;
|
|
|
case 8:
|
case 8:
|
regcache_cooked_write (regcache, ALPHA_FP0_REGNUM, valbuf);
|
regcache_cooked_write (regcache, ALPHA_FP0_REGNUM, valbuf);
|
break;
|
break;
|
|
|
case 16:
|
case 16:
|
/* FIXME: 128-bit long doubles are returned like structures:
|
/* FIXME: 128-bit long doubles are returned like structures:
|
by writing into indirect storage provided by the caller
|
by writing into indirect storage provided by the caller
|
as the first argument. */
|
as the first argument. */
|
error (_("Cannot set a 128-bit long double return value."));
|
error (_("Cannot set a 128-bit long double return value."));
|
|
|
default:
|
default:
|
internal_error (__FILE__, __LINE__, _("unknown floating point width"));
|
internal_error (__FILE__, __LINE__, _("unknown floating point width"));
|
}
|
}
|
break;
|
break;
|
|
|
case TYPE_CODE_COMPLEX:
|
case TYPE_CODE_COMPLEX:
|
switch (length)
|
switch (length)
|
{
|
{
|
case 8:
|
case 8:
|
/* ??? This isn't correct wrt the ABI, but it's what GCC does. */
|
/* ??? This isn't correct wrt the ABI, but it's what GCC does. */
|
regcache_cooked_write (regcache, ALPHA_FP0_REGNUM, valbuf);
|
regcache_cooked_write (regcache, ALPHA_FP0_REGNUM, valbuf);
|
break;
|
break;
|
|
|
case 16:
|
case 16:
|
regcache_cooked_write (regcache, ALPHA_FP0_REGNUM, valbuf);
|
regcache_cooked_write (regcache, ALPHA_FP0_REGNUM, valbuf);
|
regcache_cooked_write (regcache, ALPHA_FP0_REGNUM + 1, valbuf + 8);
|
regcache_cooked_write (regcache, ALPHA_FP0_REGNUM + 1, valbuf + 8);
|
break;
|
break;
|
|
|
case 32:
|
case 32:
|
/* FIXME: 128-bit long doubles are returned like structures:
|
/* FIXME: 128-bit long doubles are returned like structures:
|
by writing into indirect storage provided by the caller
|
by writing into indirect storage provided by the caller
|
as the first argument. */
|
as the first argument. */
|
error (_("Cannot set a 128-bit long double return value."));
|
error (_("Cannot set a 128-bit long double return value."));
|
|
|
default:
|
default:
|
internal_error (__FILE__, __LINE__, _("unknown floating point width"));
|
internal_error (__FILE__, __LINE__, _("unknown floating point width"));
|
}
|
}
|
break;
|
break;
|
|
|
default:
|
default:
|
/* Assume everything else degenerates to an integer. */
|
/* Assume everything else degenerates to an integer. */
|
/* 32-bit values must be sign-extended to 64 bits
|
/* 32-bit values must be sign-extended to 64 bits
|
even if the base data type is unsigned. */
|
even if the base data type is unsigned. */
|
if (length == 4)
|
if (length == 4)
|
valtype = builtin_type_int32;
|
valtype = builtin_type_int32;
|
l = unpack_long (valtype, valbuf);
|
l = unpack_long (valtype, valbuf);
|
regcache_cooked_write_unsigned (regcache, ALPHA_V0_REGNUM, l);
|
regcache_cooked_write_unsigned (regcache, ALPHA_V0_REGNUM, l);
|
break;
|
break;
|
}
|
}
|
}
|
}
|
|
|
static enum return_value_convention
|
static enum return_value_convention
|
alpha_return_value (struct gdbarch *gdbarch, struct type *type,
|
alpha_return_value (struct gdbarch *gdbarch, struct type *type,
|
struct regcache *regcache, gdb_byte *readbuf,
|
struct regcache *regcache, gdb_byte *readbuf,
|
const gdb_byte *writebuf)
|
const gdb_byte *writebuf)
|
{
|
{
|
enum type_code code = TYPE_CODE (type);
|
enum type_code code = TYPE_CODE (type);
|
|
|
if ((code == TYPE_CODE_STRUCT
|
if ((code == TYPE_CODE_STRUCT
|
|| code == TYPE_CODE_UNION
|
|| code == TYPE_CODE_UNION
|
|| code == TYPE_CODE_ARRAY)
|
|| code == TYPE_CODE_ARRAY)
|
&& gdbarch_tdep (gdbarch)->return_in_memory (type))
|
&& gdbarch_tdep (gdbarch)->return_in_memory (type))
|
{
|
{
|
if (readbuf)
|
if (readbuf)
|
{
|
{
|
ULONGEST addr;
|
ULONGEST addr;
|
regcache_raw_read_unsigned (regcache, ALPHA_V0_REGNUM, &addr);
|
regcache_raw_read_unsigned (regcache, ALPHA_V0_REGNUM, &addr);
|
read_memory (addr, readbuf, TYPE_LENGTH (type));
|
read_memory (addr, readbuf, TYPE_LENGTH (type));
|
}
|
}
|
|
|
return RETURN_VALUE_ABI_RETURNS_ADDRESS;
|
return RETURN_VALUE_ABI_RETURNS_ADDRESS;
|
}
|
}
|
|
|
if (readbuf)
|
if (readbuf)
|
alpha_extract_return_value (type, regcache, readbuf);
|
alpha_extract_return_value (type, regcache, readbuf);
|
if (writebuf)
|
if (writebuf)
|
alpha_store_return_value (type, regcache, writebuf);
|
alpha_store_return_value (type, regcache, writebuf);
|
|
|
return RETURN_VALUE_REGISTER_CONVENTION;
|
return RETURN_VALUE_REGISTER_CONVENTION;
|
}
|
}
|
|
|
static int
|
static int
|
alpha_return_in_memory_always (struct type *type)
|
alpha_return_in_memory_always (struct type *type)
|
{
|
{
|
return 1;
|
return 1;
|
}
|
}
|
|
|
static const gdb_byte *
|
static const gdb_byte *
|
alpha_breakpoint_from_pc (struct gdbarch *gdbarch, CORE_ADDR *pc, int *len)
|
alpha_breakpoint_from_pc (struct gdbarch *gdbarch, CORE_ADDR *pc, int *len)
|
{
|
{
|
static const gdb_byte break_insn[] = { 0x80, 0, 0, 0 }; /* call_pal bpt */
|
static const gdb_byte break_insn[] = { 0x80, 0, 0, 0 }; /* call_pal bpt */
|
|
|
*len = sizeof(break_insn);
|
*len = sizeof(break_insn);
|
return break_insn;
|
return break_insn;
|
}
|
}
|
|
|
|
|
/* This returns the PC of the first insn after the prologue.
|
/* This returns the PC of the first insn after the prologue.
|
If we can't find the prologue, then return 0. */
|
If we can't find the prologue, then return 0. */
|
|
|
CORE_ADDR
|
CORE_ADDR
|
alpha_after_prologue (CORE_ADDR pc)
|
alpha_after_prologue (CORE_ADDR pc)
|
{
|
{
|
struct symtab_and_line sal;
|
struct symtab_and_line sal;
|
CORE_ADDR func_addr, func_end;
|
CORE_ADDR func_addr, func_end;
|
|
|
if (!find_pc_partial_function (pc, NULL, &func_addr, &func_end))
|
if (!find_pc_partial_function (pc, NULL, &func_addr, &func_end))
|
return 0;
|
return 0;
|
|
|
sal = find_pc_line (func_addr, 0);
|
sal = find_pc_line (func_addr, 0);
|
if (sal.end < func_end)
|
if (sal.end < func_end)
|
return sal.end;
|
return sal.end;
|
|
|
/* The line after the prologue is after the end of the function. In this
|
/* The line after the prologue is after the end of the function. In this
|
case, tell the caller to find the prologue the hard way. */
|
case, tell the caller to find the prologue the hard way. */
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Read an instruction from memory at PC, looking through breakpoints. */
|
/* Read an instruction from memory at PC, looking through breakpoints. */
|
|
|
unsigned int
|
unsigned int
|
alpha_read_insn (CORE_ADDR pc)
|
alpha_read_insn (CORE_ADDR pc)
|
{
|
{
|
gdb_byte buf[ALPHA_INSN_SIZE];
|
gdb_byte buf[ALPHA_INSN_SIZE];
|
int status;
|
int status;
|
|
|
status = read_memory_nobpt (pc, buf, sizeof (buf));
|
status = read_memory_nobpt (pc, buf, sizeof (buf));
|
if (status)
|
if (status)
|
memory_error (status, pc);
|
memory_error (status, pc);
|
return extract_unsigned_integer (buf, sizeof (buf));
|
return extract_unsigned_integer (buf, sizeof (buf));
|
}
|
}
|
|
|
/* To skip prologues, I use this predicate. Returns either PC itself
|
/* To skip prologues, I use this predicate. Returns either PC itself
|
if the code at PC does not look like a function prologue; otherwise
|
if the code at PC does not look like a function prologue; otherwise
|
returns an address that (if we're lucky) follows the prologue. If
|
returns an address that (if we're lucky) follows the prologue. If
|
LENIENT, then we must skip everything which is involved in setting
|
LENIENT, then we must skip everything which is involved in setting
|
up the frame (it's OK to skip more, just so long as we don't skip
|
up the frame (it's OK to skip more, just so long as we don't skip
|
anything which might clobber the registers which are being saved. */
|
anything which might clobber the registers which are being saved. */
|
|
|
static CORE_ADDR
|
static CORE_ADDR
|
alpha_skip_prologue (struct gdbarch *gdbarch, CORE_ADDR pc)
|
alpha_skip_prologue (struct gdbarch *gdbarch, CORE_ADDR pc)
|
{
|
{
|
unsigned long inst;
|
unsigned long inst;
|
int offset;
|
int offset;
|
CORE_ADDR post_prologue_pc;
|
CORE_ADDR post_prologue_pc;
|
gdb_byte buf[ALPHA_INSN_SIZE];
|
gdb_byte buf[ALPHA_INSN_SIZE];
|
|
|
/* Silently return the unaltered pc upon memory errors.
|
/* Silently return the unaltered pc upon memory errors.
|
This could happen on OSF/1 if decode_line_1 tries to skip the
|
This could happen on OSF/1 if decode_line_1 tries to skip the
|
prologue for quickstarted shared library functions when the
|
prologue for quickstarted shared library functions when the
|
shared library is not yet mapped in.
|
shared library is not yet mapped in.
|
Reading target memory is slow over serial lines, so we perform
|
Reading target memory is slow over serial lines, so we perform
|
this check only if the target has shared libraries (which all
|
this check only if the target has shared libraries (which all
|
Alpha targets do). */
|
Alpha targets do). */
|
if (target_read_memory (pc, buf, sizeof (buf)))
|
if (target_read_memory (pc, buf, sizeof (buf)))
|
return pc;
|
return pc;
|
|
|
/* See if we can determine the end of the prologue via the symbol table.
|
/* See if we can determine the end of the prologue via the symbol table.
|
If so, then return either PC, or the PC after the prologue, whichever
|
If so, then return either PC, or the PC after the prologue, whichever
|
is greater. */
|
is greater. */
|
|
|
post_prologue_pc = alpha_after_prologue (pc);
|
post_prologue_pc = alpha_after_prologue (pc);
|
if (post_prologue_pc != 0)
|
if (post_prologue_pc != 0)
|
return max (pc, post_prologue_pc);
|
return max (pc, post_prologue_pc);
|
|
|
/* Can't determine prologue from the symbol table, need to examine
|
/* Can't determine prologue from the symbol table, need to examine
|
instructions. */
|
instructions. */
|
|
|
/* Skip the typical prologue instructions. These are the stack adjustment
|
/* Skip the typical prologue instructions. These are the stack adjustment
|
instruction and the instructions that save registers on the stack
|
instruction and the instructions that save registers on the stack
|
or in the gcc frame. */
|
or in the gcc frame. */
|
for (offset = 0; offset < 100; offset += ALPHA_INSN_SIZE)
|
for (offset = 0; offset < 100; offset += ALPHA_INSN_SIZE)
|
{
|
{
|
inst = alpha_read_insn (pc + offset);
|
inst = alpha_read_insn (pc + offset);
|
|
|
if ((inst & 0xffff0000) == 0x27bb0000) /* ldah $gp,n($t12) */
|
if ((inst & 0xffff0000) == 0x27bb0000) /* ldah $gp,n($t12) */
|
continue;
|
continue;
|
if ((inst & 0xffff0000) == 0x23bd0000) /* lda $gp,n($gp) */
|
if ((inst & 0xffff0000) == 0x23bd0000) /* lda $gp,n($gp) */
|
continue;
|
continue;
|
if ((inst & 0xffff0000) == 0x23de0000) /* lda $sp,n($sp) */
|
if ((inst & 0xffff0000) == 0x23de0000) /* lda $sp,n($sp) */
|
continue;
|
continue;
|
if ((inst & 0xffe01fff) == 0x43c0153e) /* subq $sp,n,$sp */
|
if ((inst & 0xffe01fff) == 0x43c0153e) /* subq $sp,n,$sp */
|
continue;
|
continue;
|
|
|
if (((inst & 0xfc1f0000) == 0xb41e0000 /* stq reg,n($sp) */
|
if (((inst & 0xfc1f0000) == 0xb41e0000 /* stq reg,n($sp) */
|
|| (inst & 0xfc1f0000) == 0x9c1e0000) /* stt reg,n($sp) */
|
|| (inst & 0xfc1f0000) == 0x9c1e0000) /* stt reg,n($sp) */
|
&& (inst & 0x03e00000) != 0x03e00000) /* reg != $zero */
|
&& (inst & 0x03e00000) != 0x03e00000) /* reg != $zero */
|
continue;
|
continue;
|
|
|
if (inst == 0x47de040f) /* bis sp,sp,fp */
|
if (inst == 0x47de040f) /* bis sp,sp,fp */
|
continue;
|
continue;
|
if (inst == 0x47fe040f) /* bis zero,sp,fp */
|
if (inst == 0x47fe040f) /* bis zero,sp,fp */
|
continue;
|
continue;
|
|
|
break;
|
break;
|
}
|
}
|
return pc + offset;
|
return pc + offset;
|
}
|
}
|
|
|
|
|
/* Figure out where the longjmp will land.
|
/* Figure out where the longjmp will land.
|
We expect the first arg to be a pointer to the jmp_buf structure from
|
We expect the first arg to be a pointer to the jmp_buf structure from
|
which we extract the PC (JB_PC) that we will land at. The PC is copied
|
which we extract the PC (JB_PC) that we will land at. The PC is copied
|
into the "pc". This routine returns true on success. */
|
into the "pc". This routine returns true on success. */
|
|
|
static int
|
static int
|
alpha_get_longjmp_target (struct frame_info *frame, CORE_ADDR *pc)
|
alpha_get_longjmp_target (struct frame_info *frame, CORE_ADDR *pc)
|
{
|
{
|
struct gdbarch_tdep *tdep = gdbarch_tdep (get_frame_arch (frame));
|
struct gdbarch_tdep *tdep = gdbarch_tdep (get_frame_arch (frame));
|
CORE_ADDR jb_addr;
|
CORE_ADDR jb_addr;
|
gdb_byte raw_buffer[ALPHA_REGISTER_SIZE];
|
gdb_byte raw_buffer[ALPHA_REGISTER_SIZE];
|
|
|
jb_addr = get_frame_register_unsigned (frame, ALPHA_A0_REGNUM);
|
jb_addr = get_frame_register_unsigned (frame, ALPHA_A0_REGNUM);
|
|
|
if (target_read_memory (jb_addr + (tdep->jb_pc * tdep->jb_elt_size),
|
if (target_read_memory (jb_addr + (tdep->jb_pc * tdep->jb_elt_size),
|
raw_buffer, tdep->jb_elt_size))
|
raw_buffer, tdep->jb_elt_size))
|
return 0;
|
return 0;
|
|
|
*pc = extract_unsigned_integer (raw_buffer, tdep->jb_elt_size);
|
*pc = extract_unsigned_integer (raw_buffer, tdep->jb_elt_size);
|
return 1;
|
return 1;
|
}
|
}
|
|
|
|
|
/* Frame unwinder for signal trampolines. We use alpha tdep bits that
|
/* Frame unwinder for signal trampolines. We use alpha tdep bits that
|
describe the location and shape of the sigcontext structure. After
|
describe the location and shape of the sigcontext structure. After
|
that, all registers are in memory, so it's easy. */
|
that, all registers are in memory, so it's easy. */
|
/* ??? Shouldn't we be able to do this generically, rather than with
|
/* ??? Shouldn't we be able to do this generically, rather than with
|
OSABI data specific to Alpha? */
|
OSABI data specific to Alpha? */
|
|
|
struct alpha_sigtramp_unwind_cache
|
struct alpha_sigtramp_unwind_cache
|
{
|
{
|
CORE_ADDR sigcontext_addr;
|
CORE_ADDR sigcontext_addr;
|
};
|
};
|
|
|
static struct alpha_sigtramp_unwind_cache *
|
static struct alpha_sigtramp_unwind_cache *
|
alpha_sigtramp_frame_unwind_cache (struct frame_info *next_frame,
|
alpha_sigtramp_frame_unwind_cache (struct frame_info *next_frame,
|
void **this_prologue_cache)
|
void **this_prologue_cache)
|
{
|
{
|
struct alpha_sigtramp_unwind_cache *info;
|
struct alpha_sigtramp_unwind_cache *info;
|
struct gdbarch_tdep *tdep;
|
struct gdbarch_tdep *tdep;
|
|
|
if (*this_prologue_cache)
|
if (*this_prologue_cache)
|
return *this_prologue_cache;
|
return *this_prologue_cache;
|
|
|
info = FRAME_OBSTACK_ZALLOC (struct alpha_sigtramp_unwind_cache);
|
info = FRAME_OBSTACK_ZALLOC (struct alpha_sigtramp_unwind_cache);
|
*this_prologue_cache = info;
|
*this_prologue_cache = info;
|
|
|
tdep = gdbarch_tdep (get_frame_arch (next_frame));
|
tdep = gdbarch_tdep (get_frame_arch (next_frame));
|
info->sigcontext_addr = tdep->sigcontext_addr (next_frame);
|
info->sigcontext_addr = tdep->sigcontext_addr (next_frame);
|
|
|
return info;
|
return info;
|
}
|
}
|
|
|
/* Return the address of REGNUM in a sigtramp frame. Since this is
|
/* Return the address of REGNUM in a sigtramp frame. Since this is
|
all arithmetic, it doesn't seem worthwhile to cache it. */
|
all arithmetic, it doesn't seem worthwhile to cache it. */
|
|
|
static CORE_ADDR
|
static CORE_ADDR
|
alpha_sigtramp_register_address (struct gdbarch *gdbarch,
|
alpha_sigtramp_register_address (struct gdbarch *gdbarch,
|
CORE_ADDR sigcontext_addr, int regnum)
|
CORE_ADDR sigcontext_addr, int regnum)
|
{
|
{
|
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
|
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
|
|
|
if (regnum >= 0 && regnum < 32)
|
if (regnum >= 0 && regnum < 32)
|
return sigcontext_addr + tdep->sc_regs_offset + regnum * 8;
|
return sigcontext_addr + tdep->sc_regs_offset + regnum * 8;
|
else if (regnum >= ALPHA_FP0_REGNUM && regnum < ALPHA_FP0_REGNUM + 32)
|
else if (regnum >= ALPHA_FP0_REGNUM && regnum < ALPHA_FP0_REGNUM + 32)
|
return sigcontext_addr + tdep->sc_fpregs_offset + regnum * 8;
|
return sigcontext_addr + tdep->sc_fpregs_offset + regnum * 8;
|
else if (regnum == ALPHA_PC_REGNUM)
|
else if (regnum == ALPHA_PC_REGNUM)
|
return sigcontext_addr + tdep->sc_pc_offset;
|
return sigcontext_addr + tdep->sc_pc_offset;
|
|
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Given a GDB frame, determine the address of the calling function's
|
/* Given a GDB frame, determine the address of the calling function's
|
frame. This will be used to create a new GDB frame struct. */
|
frame. This will be used to create a new GDB frame struct. */
|
|
|
static void
|
static void
|
alpha_sigtramp_frame_this_id (struct frame_info *next_frame,
|
alpha_sigtramp_frame_this_id (struct frame_info *next_frame,
|
void **this_prologue_cache,
|
void **this_prologue_cache,
|
struct frame_id *this_id)
|
struct frame_id *this_id)
|
{
|
{
|
struct gdbarch *gdbarch = get_frame_arch (next_frame);
|
struct gdbarch *gdbarch = get_frame_arch (next_frame);
|
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
|
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
|
struct alpha_sigtramp_unwind_cache *info
|
struct alpha_sigtramp_unwind_cache *info
|
= alpha_sigtramp_frame_unwind_cache (next_frame, this_prologue_cache);
|
= alpha_sigtramp_frame_unwind_cache (next_frame, this_prologue_cache);
|
CORE_ADDR stack_addr, code_addr;
|
CORE_ADDR stack_addr, code_addr;
|
|
|
/* If the OSABI couldn't locate the sigcontext, give up. */
|
/* If the OSABI couldn't locate the sigcontext, give up. */
|
if (info->sigcontext_addr == 0)
|
if (info->sigcontext_addr == 0)
|
return;
|
return;
|
|
|
/* If we have dynamic signal trampolines, find their start.
|
/* If we have dynamic signal trampolines, find their start.
|
If we do not, then we must assume there is a symbol record
|
If we do not, then we must assume there is a symbol record
|
that can provide the start address. */
|
that can provide the start address. */
|
if (tdep->dynamic_sigtramp_offset)
|
if (tdep->dynamic_sigtramp_offset)
|
{
|
{
|
int offset;
|
int offset;
|
code_addr = frame_pc_unwind (next_frame);
|
code_addr = frame_pc_unwind (next_frame);
|
offset = tdep->dynamic_sigtramp_offset (code_addr);
|
offset = tdep->dynamic_sigtramp_offset (code_addr);
|
if (offset >= 0)
|
if (offset >= 0)
|
code_addr -= offset;
|
code_addr -= offset;
|
else
|
else
|
code_addr = 0;
|
code_addr = 0;
|
}
|
}
|
else
|
else
|
code_addr = frame_func_unwind (next_frame, SIGTRAMP_FRAME);
|
code_addr = frame_func_unwind (next_frame, SIGTRAMP_FRAME);
|
|
|
/* The stack address is trivially read from the sigcontext. */
|
/* The stack address is trivially read from the sigcontext. */
|
stack_addr = alpha_sigtramp_register_address (gdbarch, info->sigcontext_addr,
|
stack_addr = alpha_sigtramp_register_address (gdbarch, info->sigcontext_addr,
|
ALPHA_SP_REGNUM);
|
ALPHA_SP_REGNUM);
|
stack_addr = get_frame_memory_unsigned (next_frame, stack_addr,
|
stack_addr = get_frame_memory_unsigned (next_frame, stack_addr,
|
ALPHA_REGISTER_SIZE);
|
ALPHA_REGISTER_SIZE);
|
|
|
*this_id = frame_id_build (stack_addr, code_addr);
|
*this_id = frame_id_build (stack_addr, code_addr);
|
}
|
}
|
|
|
/* Retrieve the value of REGNUM in FRAME. Don't give up! */
|
/* Retrieve the value of REGNUM in FRAME. Don't give up! */
|
|
|
static void
|
static void
|
alpha_sigtramp_frame_prev_register (struct frame_info *next_frame,
|
alpha_sigtramp_frame_prev_register (struct frame_info *next_frame,
|
void **this_prologue_cache,
|
void **this_prologue_cache,
|
int regnum, int *optimizedp,
|
int regnum, int *optimizedp,
|
enum lval_type *lvalp, CORE_ADDR *addrp,
|
enum lval_type *lvalp, CORE_ADDR *addrp,
|
int *realnump, gdb_byte *bufferp)
|
int *realnump, gdb_byte *bufferp)
|
{
|
{
|
struct alpha_sigtramp_unwind_cache *info
|
struct alpha_sigtramp_unwind_cache *info
|
= alpha_sigtramp_frame_unwind_cache (next_frame, this_prologue_cache);
|
= alpha_sigtramp_frame_unwind_cache (next_frame, this_prologue_cache);
|
CORE_ADDR addr;
|
CORE_ADDR addr;
|
|
|
if (info->sigcontext_addr != 0)
|
if (info->sigcontext_addr != 0)
|
{
|
{
|
/* All integer and fp registers are stored in memory. */
|
/* All integer and fp registers are stored in memory. */
|
addr = alpha_sigtramp_register_address (get_frame_arch (next_frame),
|
addr = alpha_sigtramp_register_address (get_frame_arch (next_frame),
|
info->sigcontext_addr, regnum);
|
info->sigcontext_addr, regnum);
|
if (addr != 0)
|
if (addr != 0)
|
{
|
{
|
*optimizedp = 0;
|
*optimizedp = 0;
|
*lvalp = lval_memory;
|
*lvalp = lval_memory;
|
*addrp = addr;
|
*addrp = addr;
|
*realnump = -1;
|
*realnump = -1;
|
if (bufferp != NULL)
|
if (bufferp != NULL)
|
get_frame_memory (next_frame, addr, bufferp, ALPHA_REGISTER_SIZE);
|
get_frame_memory (next_frame, addr, bufferp, ALPHA_REGISTER_SIZE);
|
return;
|
return;
|
}
|
}
|
}
|
}
|
|
|
/* This extra register may actually be in the sigcontext, but our
|
/* This extra register may actually be in the sigcontext, but our
|
current description of it in alpha_sigtramp_frame_unwind_cache
|
current description of it in alpha_sigtramp_frame_unwind_cache
|
doesn't include it. Too bad. Fall back on whatever's in the
|
doesn't include it. Too bad. Fall back on whatever's in the
|
outer frame. */
|
outer frame. */
|
*optimizedp = 0;
|
*optimizedp = 0;
|
*lvalp = lval_register;
|
*lvalp = lval_register;
|
*addrp = 0;
|
*addrp = 0;
|
*realnump = regnum;
|
*realnump = regnum;
|
if (bufferp)
|
if (bufferp)
|
frame_unwind_register (next_frame, *realnump, bufferp);
|
frame_unwind_register (next_frame, *realnump, bufferp);
|
}
|
}
|
|
|
static const struct frame_unwind alpha_sigtramp_frame_unwind = {
|
static const struct frame_unwind alpha_sigtramp_frame_unwind = {
|
SIGTRAMP_FRAME,
|
SIGTRAMP_FRAME,
|
alpha_sigtramp_frame_this_id,
|
alpha_sigtramp_frame_this_id,
|
alpha_sigtramp_frame_prev_register
|
alpha_sigtramp_frame_prev_register
|
};
|
};
|
|
|
static const struct frame_unwind *
|
static const struct frame_unwind *
|
alpha_sigtramp_frame_sniffer (struct frame_info *next_frame)
|
alpha_sigtramp_frame_sniffer (struct frame_info *next_frame)
|
{
|
{
|
struct gdbarch *gdbarch = get_frame_arch (next_frame);
|
struct gdbarch *gdbarch = get_frame_arch (next_frame);
|
CORE_ADDR pc = frame_pc_unwind (next_frame);
|
CORE_ADDR pc = frame_pc_unwind (next_frame);
|
char *name;
|
char *name;
|
|
|
/* NOTE: cagney/2004-04-30: Do not copy/clone this code. Instead
|
/* NOTE: cagney/2004-04-30: Do not copy/clone this code. Instead
|
look at tramp-frame.h and other simplier per-architecture
|
look at tramp-frame.h and other simplier per-architecture
|
sigtramp unwinders. */
|
sigtramp unwinders. */
|
|
|
/* We shouldn't even bother to try if the OSABI didn't register a
|
/* We shouldn't even bother to try if the OSABI didn't register a
|
sigcontext_addr handler or pc_in_sigtramp hander. */
|
sigcontext_addr handler or pc_in_sigtramp hander. */
|
if (gdbarch_tdep (gdbarch)->sigcontext_addr == NULL)
|
if (gdbarch_tdep (gdbarch)->sigcontext_addr == NULL)
|
return NULL;
|
return NULL;
|
if (gdbarch_tdep (gdbarch)->pc_in_sigtramp == NULL)
|
if (gdbarch_tdep (gdbarch)->pc_in_sigtramp == NULL)
|
return NULL;
|
return NULL;
|
|
|
/* Otherwise we should be in a signal frame. */
|
/* Otherwise we should be in a signal frame. */
|
find_pc_partial_function (pc, &name, NULL, NULL);
|
find_pc_partial_function (pc, &name, NULL, NULL);
|
if (gdbarch_tdep (gdbarch)->pc_in_sigtramp (pc, name))
|
if (gdbarch_tdep (gdbarch)->pc_in_sigtramp (pc, name))
|
return &alpha_sigtramp_frame_unwind;
|
return &alpha_sigtramp_frame_unwind;
|
|
|
return NULL;
|
return NULL;
|
}
|
}
|
|
|
|
|
/* Heuristic_proc_start may hunt through the text section for a long
|
/* Heuristic_proc_start may hunt through the text section for a long
|
time across a 2400 baud serial line. Allows the user to limit this
|
time across a 2400 baud serial line. Allows the user to limit this
|
search. */
|
search. */
|
static unsigned int heuristic_fence_post = 0;
|
static unsigned int heuristic_fence_post = 0;
|
|
|
/* Attempt to locate the start of the function containing PC. We assume that
|
/* Attempt to locate the start of the function containing PC. We assume that
|
the previous function ends with an about_to_return insn. Not foolproof by
|
the previous function ends with an about_to_return insn. Not foolproof by
|
any means, since gcc is happy to put the epilogue in the middle of a
|
any means, since gcc is happy to put the epilogue in the middle of a
|
function. But we're guessing anyway... */
|
function. But we're guessing anyway... */
|
|
|
static CORE_ADDR
|
static CORE_ADDR
|
alpha_heuristic_proc_start (struct gdbarch *gdbarch, CORE_ADDR pc)
|
alpha_heuristic_proc_start (struct gdbarch *gdbarch, CORE_ADDR pc)
|
{
|
{
|
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
|
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
|
CORE_ADDR last_non_nop = pc;
|
CORE_ADDR last_non_nop = pc;
|
CORE_ADDR fence = pc - heuristic_fence_post;
|
CORE_ADDR fence = pc - heuristic_fence_post;
|
CORE_ADDR orig_pc = pc;
|
CORE_ADDR orig_pc = pc;
|
CORE_ADDR func;
|
CORE_ADDR func;
|
|
|
if (pc == 0)
|
if (pc == 0)
|
return 0;
|
return 0;
|
|
|
/* First see if we can find the start of the function from minimal
|
/* First see if we can find the start of the function from minimal
|
symbol information. This can succeed with a binary that doesn't
|
symbol information. This can succeed with a binary that doesn't
|
have debug info, but hasn't been stripped. */
|
have debug info, but hasn't been stripped. */
|
func = get_pc_function_start (pc);
|
func = get_pc_function_start (pc);
|
if (func)
|
if (func)
|
return func;
|
return func;
|
|
|
if (heuristic_fence_post == UINT_MAX
|
if (heuristic_fence_post == UINT_MAX
|
|| fence < tdep->vm_min_address)
|
|| fence < tdep->vm_min_address)
|
fence = tdep->vm_min_address;
|
fence = tdep->vm_min_address;
|
|
|
/* Search back for previous return; also stop at a 0, which might be
|
/* Search back for previous return; also stop at a 0, which might be
|
seen for instance before the start of a code section. Don't include
|
seen for instance before the start of a code section. Don't include
|
nops, since this usually indicates padding between functions. */
|
nops, since this usually indicates padding between functions. */
|
for (pc -= ALPHA_INSN_SIZE; pc >= fence; pc -= ALPHA_INSN_SIZE)
|
for (pc -= ALPHA_INSN_SIZE; pc >= fence; pc -= ALPHA_INSN_SIZE)
|
{
|
{
|
unsigned int insn = alpha_read_insn (pc);
|
unsigned int insn = alpha_read_insn (pc);
|
switch (insn)
|
switch (insn)
|
{
|
{
|
case 0: /* invalid insn */
|
case 0: /* invalid insn */
|
case 0x6bfa8001: /* ret $31,($26),1 */
|
case 0x6bfa8001: /* ret $31,($26),1 */
|
return last_non_nop;
|
return last_non_nop;
|
|
|
case 0x2ffe0000: /* unop: ldq_u $31,0($30) */
|
case 0x2ffe0000: /* unop: ldq_u $31,0($30) */
|
case 0x47ff041f: /* nop: bis $31,$31,$31 */
|
case 0x47ff041f: /* nop: bis $31,$31,$31 */
|
break;
|
break;
|
|
|
default:
|
default:
|
last_non_nop = pc;
|
last_non_nop = pc;
|
break;
|
break;
|
}
|
}
|
}
|
}
|
|
|
/* It's not clear to me why we reach this point when stopping quietly,
|
/* It's not clear to me why we reach this point when stopping quietly,
|
but with this test, at least we don't print out warnings for every
|
but with this test, at least we don't print out warnings for every
|
child forked (eg, on decstation). 22apr93 rich@cygnus.com. */
|
child forked (eg, on decstation). 22apr93 rich@cygnus.com. */
|
if (stop_soon == NO_STOP_QUIETLY)
|
if (stop_soon == NO_STOP_QUIETLY)
|
{
|
{
|
static int blurb_printed = 0;
|
static int blurb_printed = 0;
|
|
|
if (fence == tdep->vm_min_address)
|
if (fence == tdep->vm_min_address)
|
warning (_("Hit beginning of text section without finding \
|
warning (_("Hit beginning of text section without finding \
|
enclosing function for address 0x%s"), paddr_nz (orig_pc));
|
enclosing function for address 0x%s"), paddr_nz (orig_pc));
|
else
|
else
|
warning (_("Hit heuristic-fence-post without finding \
|
warning (_("Hit heuristic-fence-post without finding \
|
enclosing function for address 0x%s"), paddr_nz (orig_pc));
|
enclosing function for address 0x%s"), paddr_nz (orig_pc));
|
|
|
if (!blurb_printed)
|
if (!blurb_printed)
|
{
|
{
|
printf_filtered (_("\
|
printf_filtered (_("\
|
This warning occurs if you are debugging a function without any symbols\n\
|
This warning occurs if you are debugging a function without any symbols\n\
|
(for example, in a stripped executable). In that case, you may wish to\n\
|
(for example, in a stripped executable). In that case, you may wish to\n\
|
increase the size of the search with the `set heuristic-fence-post' command.\n\
|
increase the size of the search with the `set heuristic-fence-post' command.\n\
|
\n\
|
\n\
|
Otherwise, you told GDB there was a function where there isn't one, or\n\
|
Otherwise, you told GDB there was a function where there isn't one, or\n\
|
(more likely) you have encountered a bug in GDB.\n"));
|
(more likely) you have encountered a bug in GDB.\n"));
|
blurb_printed = 1;
|
blurb_printed = 1;
|
}
|
}
|
}
|
}
|
|
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Fallback alpha frame unwinder. Uses instruction scanning and knows
|
/* Fallback alpha frame unwinder. Uses instruction scanning and knows
|
something about the traditional layout of alpha stack frames. */
|
something about the traditional layout of alpha stack frames. */
|
|
|
struct alpha_heuristic_unwind_cache
|
struct alpha_heuristic_unwind_cache
|
{
|
{
|
CORE_ADDR vfp;
|
CORE_ADDR vfp;
|
CORE_ADDR start_pc;
|
CORE_ADDR start_pc;
|
struct trad_frame_saved_reg *saved_regs;
|
struct trad_frame_saved_reg *saved_regs;
|
int return_reg;
|
int return_reg;
|
};
|
};
|
|
|
static struct alpha_heuristic_unwind_cache *
|
static struct alpha_heuristic_unwind_cache *
|
alpha_heuristic_frame_unwind_cache (struct frame_info *next_frame,
|
alpha_heuristic_frame_unwind_cache (struct frame_info *next_frame,
|
void **this_prologue_cache,
|
void **this_prologue_cache,
|
CORE_ADDR start_pc)
|
CORE_ADDR start_pc)
|
{
|
{
|
struct gdbarch *gdbarch = get_frame_arch (next_frame);
|
struct gdbarch *gdbarch = get_frame_arch (next_frame);
|
struct alpha_heuristic_unwind_cache *info;
|
struct alpha_heuristic_unwind_cache *info;
|
ULONGEST val;
|
ULONGEST val;
|
CORE_ADDR limit_pc, cur_pc;
|
CORE_ADDR limit_pc, cur_pc;
|
int frame_reg, frame_size, return_reg, reg;
|
int frame_reg, frame_size, return_reg, reg;
|
|
|
if (*this_prologue_cache)
|
if (*this_prologue_cache)
|
return *this_prologue_cache;
|
return *this_prologue_cache;
|
|
|
info = FRAME_OBSTACK_ZALLOC (struct alpha_heuristic_unwind_cache);
|
info = FRAME_OBSTACK_ZALLOC (struct alpha_heuristic_unwind_cache);
|
*this_prologue_cache = info;
|
*this_prologue_cache = info;
|
info->saved_regs = trad_frame_alloc_saved_regs (next_frame);
|
info->saved_regs = trad_frame_alloc_saved_regs (next_frame);
|
|
|
limit_pc = frame_pc_unwind (next_frame);
|
limit_pc = frame_pc_unwind (next_frame);
|
if (start_pc == 0)
|
if (start_pc == 0)
|
start_pc = alpha_heuristic_proc_start (gdbarch, limit_pc);
|
start_pc = alpha_heuristic_proc_start (gdbarch, limit_pc);
|
info->start_pc = start_pc;
|
info->start_pc = start_pc;
|
|
|
frame_reg = ALPHA_SP_REGNUM;
|
frame_reg = ALPHA_SP_REGNUM;
|
frame_size = 0;
|
frame_size = 0;
|
return_reg = -1;
|
return_reg = -1;
|
|
|
/* If we've identified a likely place to start, do code scanning. */
|
/* If we've identified a likely place to start, do code scanning. */
|
if (start_pc != 0)
|
if (start_pc != 0)
|
{
|
{
|
/* Limit the forward search to 50 instructions. */
|
/* Limit the forward search to 50 instructions. */
|
if (start_pc + 200 < limit_pc)
|
if (start_pc + 200 < limit_pc)
|
limit_pc = start_pc + 200;
|
limit_pc = start_pc + 200;
|
|
|
for (cur_pc = start_pc; cur_pc < limit_pc; cur_pc += ALPHA_INSN_SIZE)
|
for (cur_pc = start_pc; cur_pc < limit_pc; cur_pc += ALPHA_INSN_SIZE)
|
{
|
{
|
unsigned int word = alpha_read_insn (cur_pc);
|
unsigned int word = alpha_read_insn (cur_pc);
|
|
|
if ((word & 0xffff0000) == 0x23de0000) /* lda $sp,n($sp) */
|
if ((word & 0xffff0000) == 0x23de0000) /* lda $sp,n($sp) */
|
{
|
{
|
if (word & 0x8000)
|
if (word & 0x8000)
|
{
|
{
|
/* Consider only the first stack allocation instruction
|
/* Consider only the first stack allocation instruction
|
to contain the static size of the frame. */
|
to contain the static size of the frame. */
|
if (frame_size == 0)
|
if (frame_size == 0)
|
frame_size = (-word) & 0xffff;
|
frame_size = (-word) & 0xffff;
|
}
|
}
|
else
|
else
|
{
|
{
|
/* Exit loop if a positive stack adjustment is found, which
|
/* Exit loop if a positive stack adjustment is found, which
|
usually means that the stack cleanup code in the function
|
usually means that the stack cleanup code in the function
|
epilogue is reached. */
|
epilogue is reached. */
|
break;
|
break;
|
}
|
}
|
}
|
}
|
else if ((word & 0xfc1f0000) == 0xb41e0000) /* stq reg,n($sp) */
|
else if ((word & 0xfc1f0000) == 0xb41e0000) /* stq reg,n($sp) */
|
{
|
{
|
reg = (word & 0x03e00000) >> 21;
|
reg = (word & 0x03e00000) >> 21;
|
|
|
/* Ignore this instruction if we have already encountered
|
/* Ignore this instruction if we have already encountered
|
an instruction saving the same register earlier in the
|
an instruction saving the same register earlier in the
|
function code. The current instruction does not tell
|
function code. The current instruction does not tell
|
us where the original value upon function entry is saved.
|
us where the original value upon function entry is saved.
|
All it says is that the function we are scanning reused
|
All it says is that the function we are scanning reused
|
that register for some computation of its own, and is now
|
that register for some computation of its own, and is now
|
saving its result. */
|
saving its result. */
|
if (trad_frame_addr_p(info->saved_regs, reg))
|
if (trad_frame_addr_p(info->saved_regs, reg))
|
continue;
|
continue;
|
|
|
if (reg == 31)
|
if (reg == 31)
|
continue;
|
continue;
|
|
|
/* Do not compute the address where the register was saved yet,
|
/* Do not compute the address where the register was saved yet,
|
because we don't know yet if the offset will need to be
|
because we don't know yet if the offset will need to be
|
relative to $sp or $fp (we can not compute the address
|
relative to $sp or $fp (we can not compute the address
|
relative to $sp if $sp is updated during the execution of
|
relative to $sp if $sp is updated during the execution of
|
the current subroutine, for instance when doing some alloca).
|
the current subroutine, for instance when doing some alloca).
|
So just store the offset for the moment, and compute the
|
So just store the offset for the moment, and compute the
|
address later when we know whether this frame has a frame
|
address later when we know whether this frame has a frame
|
pointer or not. */
|
pointer or not. */
|
/* Hack: temporarily add one, so that the offset is non-zero
|
/* Hack: temporarily add one, so that the offset is non-zero
|
and we can tell which registers have save offsets below. */
|
and we can tell which registers have save offsets below. */
|
info->saved_regs[reg].addr = (word & 0xffff) + 1;
|
info->saved_regs[reg].addr = (word & 0xffff) + 1;
|
|
|
/* Starting with OSF/1-3.2C, the system libraries are shipped
|
/* Starting with OSF/1-3.2C, the system libraries are shipped
|
without local symbols, but they still contain procedure
|
without local symbols, but they still contain procedure
|
descriptors without a symbol reference. GDB is currently
|
descriptors without a symbol reference. GDB is currently
|
unable to find these procedure descriptors and uses
|
unable to find these procedure descriptors and uses
|
heuristic_proc_desc instead.
|
heuristic_proc_desc instead.
|
As some low level compiler support routines (__div*, __add*)
|
As some low level compiler support routines (__div*, __add*)
|
use a non-standard return address register, we have to
|
use a non-standard return address register, we have to
|
add some heuristics to determine the return address register,
|
add some heuristics to determine the return address register,
|
or stepping over these routines will fail.
|
or stepping over these routines will fail.
|
Usually the return address register is the first register
|
Usually the return address register is the first register
|
saved on the stack, but assembler optimization might
|
saved on the stack, but assembler optimization might
|
rearrange the register saves.
|
rearrange the register saves.
|
So we recognize only a few registers (t7, t9, ra) within
|
So we recognize only a few registers (t7, t9, ra) within
|
the procedure prologue as valid return address registers.
|
the procedure prologue as valid return address registers.
|
If we encounter a return instruction, we extract the
|
If we encounter a return instruction, we extract the
|
the return address register from it.
|
the return address register from it.
|
|
|
FIXME: Rewriting GDB to access the procedure descriptors,
|
FIXME: Rewriting GDB to access the procedure descriptors,
|
e.g. via the minimal symbol table, might obviate this hack. */
|
e.g. via the minimal symbol table, might obviate this hack. */
|
if (return_reg == -1
|
if (return_reg == -1
|
&& cur_pc < (start_pc + 80)
|
&& cur_pc < (start_pc + 80)
|
&& (reg == ALPHA_T7_REGNUM
|
&& (reg == ALPHA_T7_REGNUM
|
|| reg == ALPHA_T9_REGNUM
|
|| reg == ALPHA_T9_REGNUM
|
|| reg == ALPHA_RA_REGNUM))
|
|| reg == ALPHA_RA_REGNUM))
|
return_reg = reg;
|
return_reg = reg;
|
}
|
}
|
else if ((word & 0xffe0ffff) == 0x6be08001) /* ret zero,reg,1 */
|
else if ((word & 0xffe0ffff) == 0x6be08001) /* ret zero,reg,1 */
|
return_reg = (word >> 16) & 0x1f;
|
return_reg = (word >> 16) & 0x1f;
|
else if (word == 0x47de040f) /* bis sp,sp,fp */
|
else if (word == 0x47de040f) /* bis sp,sp,fp */
|
frame_reg = ALPHA_GCC_FP_REGNUM;
|
frame_reg = ALPHA_GCC_FP_REGNUM;
|
else if (word == 0x47fe040f) /* bis zero,sp,fp */
|
else if (word == 0x47fe040f) /* bis zero,sp,fp */
|
frame_reg = ALPHA_GCC_FP_REGNUM;
|
frame_reg = ALPHA_GCC_FP_REGNUM;
|
}
|
}
|
|
|
/* If we haven't found a valid return address register yet, keep
|
/* If we haven't found a valid return address register yet, keep
|
searching in the procedure prologue. */
|
searching in the procedure prologue. */
|
if (return_reg == -1)
|
if (return_reg == -1)
|
{
|
{
|
while (cur_pc < (limit_pc + 80) && cur_pc < (start_pc + 80))
|
while (cur_pc < (limit_pc + 80) && cur_pc < (start_pc + 80))
|
{
|
{
|
unsigned int word = alpha_read_insn (cur_pc);
|
unsigned int word = alpha_read_insn (cur_pc);
|
|
|
if ((word & 0xfc1f0000) == 0xb41e0000) /* stq reg,n($sp) */
|
if ((word & 0xfc1f0000) == 0xb41e0000) /* stq reg,n($sp) */
|
{
|
{
|
reg = (word & 0x03e00000) >> 21;
|
reg = (word & 0x03e00000) >> 21;
|
if (reg == ALPHA_T7_REGNUM
|
if (reg == ALPHA_T7_REGNUM
|
|| reg == ALPHA_T9_REGNUM
|
|| reg == ALPHA_T9_REGNUM
|
|| reg == ALPHA_RA_REGNUM)
|
|| reg == ALPHA_RA_REGNUM)
|
{
|
{
|
return_reg = reg;
|
return_reg = reg;
|
break;
|
break;
|
}
|
}
|
}
|
}
|
else if ((word & 0xffe0ffff) == 0x6be08001) /* ret zero,reg,1 */
|
else if ((word & 0xffe0ffff) == 0x6be08001) /* ret zero,reg,1 */
|
{
|
{
|
return_reg = (word >> 16) & 0x1f;
|
return_reg = (word >> 16) & 0x1f;
|
break;
|
break;
|
}
|
}
|
|
|
cur_pc += ALPHA_INSN_SIZE;
|
cur_pc += ALPHA_INSN_SIZE;
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
/* Failing that, do default to the customary RA. */
|
/* Failing that, do default to the customary RA. */
|
if (return_reg == -1)
|
if (return_reg == -1)
|
return_reg = ALPHA_RA_REGNUM;
|
return_reg = ALPHA_RA_REGNUM;
|
info->return_reg = return_reg;
|
info->return_reg = return_reg;
|
|
|
val = frame_unwind_register_unsigned (next_frame, frame_reg);
|
val = frame_unwind_register_unsigned (next_frame, frame_reg);
|
info->vfp = val + frame_size;
|
info->vfp = val + frame_size;
|
|
|
/* Convert offsets to absolute addresses. See above about adding
|
/* Convert offsets to absolute addresses. See above about adding
|
one to the offsets to make all detected offsets non-zero. */
|
one to the offsets to make all detected offsets non-zero. */
|
for (reg = 0; reg < ALPHA_NUM_REGS; ++reg)
|
for (reg = 0; reg < ALPHA_NUM_REGS; ++reg)
|
if (trad_frame_addr_p(info->saved_regs, reg))
|
if (trad_frame_addr_p(info->saved_regs, reg))
|
info->saved_regs[reg].addr += val - 1;
|
info->saved_regs[reg].addr += val - 1;
|
|
|
return info;
|
return info;
|
}
|
}
|
|
|
/* Given a GDB frame, determine the address of the calling function's
|
/* Given a GDB frame, determine the address of the calling function's
|
frame. This will be used to create a new GDB frame struct. */
|
frame. This will be used to create a new GDB frame struct. */
|
|
|
static void
|
static void
|
alpha_heuristic_frame_this_id (struct frame_info *next_frame,
|
alpha_heuristic_frame_this_id (struct frame_info *next_frame,
|
void **this_prologue_cache,
|
void **this_prologue_cache,
|
struct frame_id *this_id)
|
struct frame_id *this_id)
|
{
|
{
|
struct alpha_heuristic_unwind_cache *info
|
struct alpha_heuristic_unwind_cache *info
|
= alpha_heuristic_frame_unwind_cache (next_frame, this_prologue_cache, 0);
|
= alpha_heuristic_frame_unwind_cache (next_frame, this_prologue_cache, 0);
|
|
|
*this_id = frame_id_build (info->vfp, info->start_pc);
|
*this_id = frame_id_build (info->vfp, info->start_pc);
|
}
|
}
|
|
|
/* Retrieve the value of REGNUM in FRAME. Don't give up! */
|
/* Retrieve the value of REGNUM in FRAME. Don't give up! */
|
|
|
static void
|
static void
|
alpha_heuristic_frame_prev_register (struct frame_info *next_frame,
|
alpha_heuristic_frame_prev_register (struct frame_info *next_frame,
|
void **this_prologue_cache,
|
void **this_prologue_cache,
|
int regnum, int *optimizedp,
|
int regnum, int *optimizedp,
|
enum lval_type *lvalp, CORE_ADDR *addrp,
|
enum lval_type *lvalp, CORE_ADDR *addrp,
|
int *realnump, gdb_byte *bufferp)
|
int *realnump, gdb_byte *bufferp)
|
{
|
{
|
struct alpha_heuristic_unwind_cache *info
|
struct alpha_heuristic_unwind_cache *info
|
= alpha_heuristic_frame_unwind_cache (next_frame, this_prologue_cache, 0);
|
= alpha_heuristic_frame_unwind_cache (next_frame, this_prologue_cache, 0);
|
|
|
/* The PC of the previous frame is stored in the link register of
|
/* The PC of the previous frame is stored in the link register of
|
the current frame. Frob regnum so that we pull the value from
|
the current frame. Frob regnum so that we pull the value from
|
the correct place. */
|
the correct place. */
|
if (regnum == ALPHA_PC_REGNUM)
|
if (regnum == ALPHA_PC_REGNUM)
|
regnum = info->return_reg;
|
regnum = info->return_reg;
|
|
|
trad_frame_get_prev_register (next_frame, info->saved_regs, regnum,
|
trad_frame_get_prev_register (next_frame, info->saved_regs, regnum,
|
optimizedp, lvalp, addrp, realnump, bufferp);
|
optimizedp, lvalp, addrp, realnump, bufferp);
|
}
|
}
|
|
|
static const struct frame_unwind alpha_heuristic_frame_unwind = {
|
static const struct frame_unwind alpha_heuristic_frame_unwind = {
|
NORMAL_FRAME,
|
NORMAL_FRAME,
|
alpha_heuristic_frame_this_id,
|
alpha_heuristic_frame_this_id,
|
alpha_heuristic_frame_prev_register
|
alpha_heuristic_frame_prev_register
|
};
|
};
|
|
|
static const struct frame_unwind *
|
static const struct frame_unwind *
|
alpha_heuristic_frame_sniffer (struct frame_info *next_frame)
|
alpha_heuristic_frame_sniffer (struct frame_info *next_frame)
|
{
|
{
|
return &alpha_heuristic_frame_unwind;
|
return &alpha_heuristic_frame_unwind;
|
}
|
}
|
|
|
static CORE_ADDR
|
static CORE_ADDR
|
alpha_heuristic_frame_base_address (struct frame_info *next_frame,
|
alpha_heuristic_frame_base_address (struct frame_info *next_frame,
|
void **this_prologue_cache)
|
void **this_prologue_cache)
|
{
|
{
|
struct alpha_heuristic_unwind_cache *info
|
struct alpha_heuristic_unwind_cache *info
|
= alpha_heuristic_frame_unwind_cache (next_frame, this_prologue_cache, 0);
|
= alpha_heuristic_frame_unwind_cache (next_frame, this_prologue_cache, 0);
|
|
|
return info->vfp;
|
return info->vfp;
|
}
|
}
|
|
|
static const struct frame_base alpha_heuristic_frame_base = {
|
static const struct frame_base alpha_heuristic_frame_base = {
|
&alpha_heuristic_frame_unwind,
|
&alpha_heuristic_frame_unwind,
|
alpha_heuristic_frame_base_address,
|
alpha_heuristic_frame_base_address,
|
alpha_heuristic_frame_base_address,
|
alpha_heuristic_frame_base_address,
|
alpha_heuristic_frame_base_address
|
alpha_heuristic_frame_base_address
|
};
|
};
|
|
|
/* Just like reinit_frame_cache, but with the right arguments to be
|
/* Just like reinit_frame_cache, but with the right arguments to be
|
callable as an sfunc. Used by the "set heuristic-fence-post" command. */
|
callable as an sfunc. Used by the "set heuristic-fence-post" command. */
|
|
|
static void
|
static void
|
reinit_frame_cache_sfunc (char *args, int from_tty, struct cmd_list_element *c)
|
reinit_frame_cache_sfunc (char *args, int from_tty, struct cmd_list_element *c)
|
{
|
{
|
reinit_frame_cache ();
|
reinit_frame_cache ();
|
}
|
}
|
|
|
|
|
/* Assuming NEXT_FRAME->prev is a dummy, return the frame ID of that
|
/* Assuming NEXT_FRAME->prev is a dummy, return the frame ID of that
|
dummy frame. The frame ID's base needs to match the TOS value
|
dummy frame. The frame ID's base needs to match the TOS value
|
saved by save_dummy_frame_tos(), and the PC match the dummy frame's
|
saved by save_dummy_frame_tos(), and the PC match the dummy frame's
|
breakpoint. */
|
breakpoint. */
|
|
|
static struct frame_id
|
static struct frame_id
|
alpha_unwind_dummy_id (struct gdbarch *gdbarch, struct frame_info *next_frame)
|
alpha_unwind_dummy_id (struct gdbarch *gdbarch, struct frame_info *next_frame)
|
{
|
{
|
ULONGEST base;
|
ULONGEST base;
|
base = frame_unwind_register_unsigned (next_frame, ALPHA_SP_REGNUM);
|
base = frame_unwind_register_unsigned (next_frame, ALPHA_SP_REGNUM);
|
return frame_id_build (base, frame_pc_unwind (next_frame));
|
return frame_id_build (base, frame_pc_unwind (next_frame));
|
}
|
}
|
|
|
static CORE_ADDR
|
static CORE_ADDR
|
alpha_unwind_pc (struct gdbarch *gdbarch, struct frame_info *next_frame)
|
alpha_unwind_pc (struct gdbarch *gdbarch, struct frame_info *next_frame)
|
{
|
{
|
ULONGEST pc;
|
ULONGEST pc;
|
pc = frame_unwind_register_unsigned (next_frame, ALPHA_PC_REGNUM);
|
pc = frame_unwind_register_unsigned (next_frame, ALPHA_PC_REGNUM);
|
return pc;
|
return pc;
|
}
|
}
|
|
|
|
|
/* Helper routines for alpha*-nat.c files to move register sets to and
|
/* Helper routines for alpha*-nat.c files to move register sets to and
|
from core files. The UNIQUE pointer is allowed to be NULL, as most
|
from core files. The UNIQUE pointer is allowed to be NULL, as most
|
targets don't supply this value in their core files. */
|
targets don't supply this value in their core files. */
|
|
|
void
|
void
|
alpha_supply_int_regs (struct regcache *regcache, int regno,
|
alpha_supply_int_regs (struct regcache *regcache, int regno,
|
const void *r0_r30, const void *pc, const void *unique)
|
const void *r0_r30, const void *pc, const void *unique)
|
{
|
{
|
const gdb_byte *regs = r0_r30;
|
const gdb_byte *regs = r0_r30;
|
int i;
|
int i;
|
|
|
for (i = 0; i < 31; ++i)
|
for (i = 0; i < 31; ++i)
|
if (regno == i || regno == -1)
|
if (regno == i || regno == -1)
|
regcache_raw_supply (regcache, i, regs + i * 8);
|
regcache_raw_supply (regcache, i, regs + i * 8);
|
|
|
if (regno == ALPHA_ZERO_REGNUM || regno == -1)
|
if (regno == ALPHA_ZERO_REGNUM || regno == -1)
|
regcache_raw_supply (regcache, ALPHA_ZERO_REGNUM, NULL);
|
regcache_raw_supply (regcache, ALPHA_ZERO_REGNUM, NULL);
|
|
|
if (regno == ALPHA_PC_REGNUM || regno == -1)
|
if (regno == ALPHA_PC_REGNUM || regno == -1)
|
regcache_raw_supply (regcache, ALPHA_PC_REGNUM, pc);
|
regcache_raw_supply (regcache, ALPHA_PC_REGNUM, pc);
|
|
|
if (regno == ALPHA_UNIQUE_REGNUM || regno == -1)
|
if (regno == ALPHA_UNIQUE_REGNUM || regno == -1)
|
regcache_raw_supply (regcache, ALPHA_UNIQUE_REGNUM, unique);
|
regcache_raw_supply (regcache, ALPHA_UNIQUE_REGNUM, unique);
|
}
|
}
|
|
|
void
|
void
|
alpha_fill_int_regs (const struct regcache *regcache,
|
alpha_fill_int_regs (const struct regcache *regcache,
|
int regno, void *r0_r30, void *pc, void *unique)
|
int regno, void *r0_r30, void *pc, void *unique)
|
{
|
{
|
gdb_byte *regs = r0_r30;
|
gdb_byte *regs = r0_r30;
|
int i;
|
int i;
|
|
|
for (i = 0; i < 31; ++i)
|
for (i = 0; i < 31; ++i)
|
if (regno == i || regno == -1)
|
if (regno == i || regno == -1)
|
regcache_raw_collect (regcache, i, regs + i * 8);
|
regcache_raw_collect (regcache, i, regs + i * 8);
|
|
|
if (regno == ALPHA_PC_REGNUM || regno == -1)
|
if (regno == ALPHA_PC_REGNUM || regno == -1)
|
regcache_raw_collect (regcache, ALPHA_PC_REGNUM, pc);
|
regcache_raw_collect (regcache, ALPHA_PC_REGNUM, pc);
|
|
|
if (unique && (regno == ALPHA_UNIQUE_REGNUM || regno == -1))
|
if (unique && (regno == ALPHA_UNIQUE_REGNUM || regno == -1))
|
regcache_raw_collect (regcache, ALPHA_UNIQUE_REGNUM, unique);
|
regcache_raw_collect (regcache, ALPHA_UNIQUE_REGNUM, unique);
|
}
|
}
|
|
|
void
|
void
|
alpha_supply_fp_regs (struct regcache *regcache, int regno,
|
alpha_supply_fp_regs (struct regcache *regcache, int regno,
|
const void *f0_f30, const void *fpcr)
|
const void *f0_f30, const void *fpcr)
|
{
|
{
|
const gdb_byte *regs = f0_f30;
|
const gdb_byte *regs = f0_f30;
|
int i;
|
int i;
|
|
|
for (i = ALPHA_FP0_REGNUM; i < ALPHA_FP0_REGNUM + 31; ++i)
|
for (i = ALPHA_FP0_REGNUM; i < ALPHA_FP0_REGNUM + 31; ++i)
|
if (regno == i || regno == -1)
|
if (regno == i || regno == -1)
|
regcache_raw_supply (regcache, i,
|
regcache_raw_supply (regcache, i,
|
regs + (i - ALPHA_FP0_REGNUM) * 8);
|
regs + (i - ALPHA_FP0_REGNUM) * 8);
|
|
|
if (regno == ALPHA_FPCR_REGNUM || regno == -1)
|
if (regno == ALPHA_FPCR_REGNUM || regno == -1)
|
regcache_raw_supply (regcache, ALPHA_FPCR_REGNUM, fpcr);
|
regcache_raw_supply (regcache, ALPHA_FPCR_REGNUM, fpcr);
|
}
|
}
|
|
|
void
|
void
|
alpha_fill_fp_regs (const struct regcache *regcache,
|
alpha_fill_fp_regs (const struct regcache *regcache,
|
int regno, void *f0_f30, void *fpcr)
|
int regno, void *f0_f30, void *fpcr)
|
{
|
{
|
gdb_byte *regs = f0_f30;
|
gdb_byte *regs = f0_f30;
|
int i;
|
int i;
|
|
|
for (i = ALPHA_FP0_REGNUM; i < ALPHA_FP0_REGNUM + 31; ++i)
|
for (i = ALPHA_FP0_REGNUM; i < ALPHA_FP0_REGNUM + 31; ++i)
|
if (regno == i || regno == -1)
|
if (regno == i || regno == -1)
|
regcache_raw_collect (regcache, i,
|
regcache_raw_collect (regcache, i,
|
regs + (i - ALPHA_FP0_REGNUM) * 8);
|
regs + (i - ALPHA_FP0_REGNUM) * 8);
|
|
|
if (regno == ALPHA_FPCR_REGNUM || regno == -1)
|
if (regno == ALPHA_FPCR_REGNUM || regno == -1)
|
regcache_raw_collect (regcache, ALPHA_FPCR_REGNUM, fpcr);
|
regcache_raw_collect (regcache, ALPHA_FPCR_REGNUM, fpcr);
|
}
|
}
|
|
|
|
|
|
|
/* Return nonzero if the G_floating register value in REG is equal to
|
/* Return nonzero if the G_floating register value in REG is equal to
|
zero for FP control instructions. */
|
zero for FP control instructions. */
|
|
|
static int
|
static int
|
fp_register_zero_p (LONGEST reg)
|
fp_register_zero_p (LONGEST reg)
|
{
|
{
|
/* Check that all bits except the sign bit are zero. */
|
/* Check that all bits except the sign bit are zero. */
|
const LONGEST zero_mask = ((LONGEST) 1 << 63) ^ -1;
|
const LONGEST zero_mask = ((LONGEST) 1 << 63) ^ -1;
|
|
|
return ((reg & zero_mask) == 0);
|
return ((reg & zero_mask) == 0);
|
}
|
}
|
|
|
/* Return the value of the sign bit for the G_floating register
|
/* Return the value of the sign bit for the G_floating register
|
value held in REG. */
|
value held in REG. */
|
|
|
static int
|
static int
|
fp_register_sign_bit (LONGEST reg)
|
fp_register_sign_bit (LONGEST reg)
|
{
|
{
|
const LONGEST sign_mask = (LONGEST) 1 << 63;
|
const LONGEST sign_mask = (LONGEST) 1 << 63;
|
|
|
return ((reg & sign_mask) != 0);
|
return ((reg & sign_mask) != 0);
|
}
|
}
|
|
|
/* alpha_software_single_step() is called just before we want to resume
|
/* alpha_software_single_step() is called just before we want to resume
|
the inferior, if we want to single-step it but there is no hardware
|
the inferior, if we want to single-step it but there is no hardware
|
or kernel single-step support (NetBSD on Alpha, for example). We find
|
or kernel single-step support (NetBSD on Alpha, for example). We find
|
the target of the coming instruction and breakpoint it. */
|
the target of the coming instruction and breakpoint it. */
|
|
|
static CORE_ADDR
|
static CORE_ADDR
|
alpha_next_pc (struct frame_info *frame, CORE_ADDR pc)
|
alpha_next_pc (struct frame_info *frame, CORE_ADDR pc)
|
{
|
{
|
unsigned int insn;
|
unsigned int insn;
|
unsigned int op;
|
unsigned int op;
|
int regno;
|
int regno;
|
int offset;
|
int offset;
|
LONGEST rav;
|
LONGEST rav;
|
|
|
insn = alpha_read_insn (pc);
|
insn = alpha_read_insn (pc);
|
|
|
/* Opcode is top 6 bits. */
|
/* Opcode is top 6 bits. */
|
op = (insn >> 26) & 0x3f;
|
op = (insn >> 26) & 0x3f;
|
|
|
if (op == 0x1a)
|
if (op == 0x1a)
|
{
|
{
|
/* Jump format: target PC is:
|
/* Jump format: target PC is:
|
RB & ~3 */
|
RB & ~3 */
|
return (get_frame_register_unsigned (frame, (insn >> 16) & 0x1f) & ~3);
|
return (get_frame_register_unsigned (frame, (insn >> 16) & 0x1f) & ~3);
|
}
|
}
|
|
|
if ((op & 0x30) == 0x30)
|
if ((op & 0x30) == 0x30)
|
{
|
{
|
/* Branch format: target PC is:
|
/* Branch format: target PC is:
|
(new PC) + (4 * sext(displacement)) */
|
(new PC) + (4 * sext(displacement)) */
|
if (op == 0x30 || /* BR */
|
if (op == 0x30 || /* BR */
|
op == 0x34) /* BSR */
|
op == 0x34) /* BSR */
|
{
|
{
|
branch_taken:
|
branch_taken:
|
offset = (insn & 0x001fffff);
|
offset = (insn & 0x001fffff);
|
if (offset & 0x00100000)
|
if (offset & 0x00100000)
|
offset |= 0xffe00000;
|
offset |= 0xffe00000;
|
offset *= ALPHA_INSN_SIZE;
|
offset *= ALPHA_INSN_SIZE;
|
return (pc + ALPHA_INSN_SIZE + offset);
|
return (pc + ALPHA_INSN_SIZE + offset);
|
}
|
}
|
|
|
/* Need to determine if branch is taken; read RA. */
|
/* Need to determine if branch is taken; read RA. */
|
regno = (insn >> 21) & 0x1f;
|
regno = (insn >> 21) & 0x1f;
|
switch (op)
|
switch (op)
|
{
|
{
|
case 0x31: /* FBEQ */
|
case 0x31: /* FBEQ */
|
case 0x36: /* FBGE */
|
case 0x36: /* FBGE */
|
case 0x37: /* FBGT */
|
case 0x37: /* FBGT */
|
case 0x33: /* FBLE */
|
case 0x33: /* FBLE */
|
case 0x32: /* FBLT */
|
case 0x32: /* FBLT */
|
case 0x35: /* FBNE */
|
case 0x35: /* FBNE */
|
regno += gdbarch_fp0_regnum (get_frame_arch (frame));
|
regno += gdbarch_fp0_regnum (get_frame_arch (frame));
|
}
|
}
|
|
|
rav = get_frame_register_signed (frame, regno);
|
rav = get_frame_register_signed (frame, regno);
|
|
|
switch (op)
|
switch (op)
|
{
|
{
|
case 0x38: /* BLBC */
|
case 0x38: /* BLBC */
|
if ((rav & 1) == 0)
|
if ((rav & 1) == 0)
|
goto branch_taken;
|
goto branch_taken;
|
break;
|
break;
|
case 0x3c: /* BLBS */
|
case 0x3c: /* BLBS */
|
if (rav & 1)
|
if (rav & 1)
|
goto branch_taken;
|
goto branch_taken;
|
break;
|
break;
|
case 0x39: /* BEQ */
|
case 0x39: /* BEQ */
|
if (rav == 0)
|
if (rav == 0)
|
goto branch_taken;
|
goto branch_taken;
|
break;
|
break;
|
case 0x3d: /* BNE */
|
case 0x3d: /* BNE */
|
if (rav != 0)
|
if (rav != 0)
|
goto branch_taken;
|
goto branch_taken;
|
break;
|
break;
|
case 0x3a: /* BLT */
|
case 0x3a: /* BLT */
|
if (rav < 0)
|
if (rav < 0)
|
goto branch_taken;
|
goto branch_taken;
|
break;
|
break;
|
case 0x3b: /* BLE */
|
case 0x3b: /* BLE */
|
if (rav <= 0)
|
if (rav <= 0)
|
goto branch_taken;
|
goto branch_taken;
|
break;
|
break;
|
case 0x3f: /* BGT */
|
case 0x3f: /* BGT */
|
if (rav > 0)
|
if (rav > 0)
|
goto branch_taken;
|
goto branch_taken;
|
break;
|
break;
|
case 0x3e: /* BGE */
|
case 0x3e: /* BGE */
|
if (rav >= 0)
|
if (rav >= 0)
|
goto branch_taken;
|
goto branch_taken;
|
break;
|
break;
|
|
|
/* Floating point branches. */
|
/* Floating point branches. */
|
|
|
case 0x31: /* FBEQ */
|
case 0x31: /* FBEQ */
|
if (fp_register_zero_p (rav))
|
if (fp_register_zero_p (rav))
|
goto branch_taken;
|
goto branch_taken;
|
break;
|
break;
|
case 0x36: /* FBGE */
|
case 0x36: /* FBGE */
|
if (fp_register_sign_bit (rav) == 0 || fp_register_zero_p (rav))
|
if (fp_register_sign_bit (rav) == 0 || fp_register_zero_p (rav))
|
goto branch_taken;
|
goto branch_taken;
|
break;
|
break;
|
case 0x37: /* FBGT */
|
case 0x37: /* FBGT */
|
if (fp_register_sign_bit (rav) == 0 && ! fp_register_zero_p (rav))
|
if (fp_register_sign_bit (rav) == 0 && ! fp_register_zero_p (rav))
|
goto branch_taken;
|
goto branch_taken;
|
break;
|
break;
|
case 0x33: /* FBLE */
|
case 0x33: /* FBLE */
|
if (fp_register_sign_bit (rav) == 1 || fp_register_zero_p (rav))
|
if (fp_register_sign_bit (rav) == 1 || fp_register_zero_p (rav))
|
goto branch_taken;
|
goto branch_taken;
|
break;
|
break;
|
case 0x32: /* FBLT */
|
case 0x32: /* FBLT */
|
if (fp_register_sign_bit (rav) == 1 && ! fp_register_zero_p (rav))
|
if (fp_register_sign_bit (rav) == 1 && ! fp_register_zero_p (rav))
|
goto branch_taken;
|
goto branch_taken;
|
break;
|
break;
|
case 0x35: /* FBNE */
|
case 0x35: /* FBNE */
|
if (! fp_register_zero_p (rav))
|
if (! fp_register_zero_p (rav))
|
goto branch_taken;
|
goto branch_taken;
|
break;
|
break;
|
}
|
}
|
}
|
}
|
|
|
/* Not a branch or branch not taken; target PC is:
|
/* Not a branch or branch not taken; target PC is:
|
pc + 4 */
|
pc + 4 */
|
return (pc + ALPHA_INSN_SIZE);
|
return (pc + ALPHA_INSN_SIZE);
|
}
|
}
|
|
|
int
|
int
|
alpha_software_single_step (struct frame_info *frame)
|
alpha_software_single_step (struct frame_info *frame)
|
{
|
{
|
CORE_ADDR pc, next_pc;
|
CORE_ADDR pc, next_pc;
|
|
|
pc = get_frame_pc (frame);
|
pc = get_frame_pc (frame);
|
next_pc = alpha_next_pc (frame, pc);
|
next_pc = alpha_next_pc (frame, pc);
|
|
|
insert_single_step_breakpoint (next_pc);
|
insert_single_step_breakpoint (next_pc);
|
return 1;
|
return 1;
|
}
|
}
|
|
|
|
|
/* Initialize the current architecture based on INFO. If possible, re-use an
|
/* Initialize the current architecture based on INFO. If possible, re-use an
|
architecture from ARCHES, which is a list of architectures already created
|
architecture from ARCHES, which is a list of architectures already created
|
during this debugging session.
|
during this debugging session.
|
|
|
Called e.g. at program startup, when reading a core file, and when reading
|
Called e.g. at program startup, when reading a core file, and when reading
|
a binary file. */
|
a binary file. */
|
|
|
static struct gdbarch *
|
static struct gdbarch *
|
alpha_gdbarch_init (struct gdbarch_info info, struct gdbarch_list *arches)
|
alpha_gdbarch_init (struct gdbarch_info info, struct gdbarch_list *arches)
|
{
|
{
|
struct gdbarch_tdep *tdep;
|
struct gdbarch_tdep *tdep;
|
struct gdbarch *gdbarch;
|
struct gdbarch *gdbarch;
|
|
|
/* Try to determine the ABI of the object we are loading. */
|
/* Try to determine the ABI of the object we are loading. */
|
if (info.abfd != NULL && info.osabi == GDB_OSABI_UNKNOWN)
|
if (info.abfd != NULL && info.osabi == GDB_OSABI_UNKNOWN)
|
{
|
{
|
/* If it's an ECOFF file, assume it's OSF/1. */
|
/* If it's an ECOFF file, assume it's OSF/1. */
|
if (bfd_get_flavour (info.abfd) == bfd_target_ecoff_flavour)
|
if (bfd_get_flavour (info.abfd) == bfd_target_ecoff_flavour)
|
info.osabi = GDB_OSABI_OSF1;
|
info.osabi = GDB_OSABI_OSF1;
|
}
|
}
|
|
|
/* Find a candidate among extant architectures. */
|
/* Find a candidate among extant architectures. */
|
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;
|
|
|
tdep = xmalloc (sizeof (struct gdbarch_tdep));
|
tdep = xmalloc (sizeof (struct gdbarch_tdep));
|
gdbarch = gdbarch_alloc (&info, tdep);
|
gdbarch = gdbarch_alloc (&info, tdep);
|
|
|
/* Lowest text address. This is used by heuristic_proc_start()
|
/* Lowest text address. This is used by heuristic_proc_start()
|
to decide when to stop looking. */
|
to decide when to stop looking. */
|
tdep->vm_min_address = (CORE_ADDR) 0x120000000LL;
|
tdep->vm_min_address = (CORE_ADDR) 0x120000000LL;
|
|
|
tdep->dynamic_sigtramp_offset = NULL;
|
tdep->dynamic_sigtramp_offset = NULL;
|
tdep->sigcontext_addr = NULL;
|
tdep->sigcontext_addr = NULL;
|
tdep->sc_pc_offset = 2 * 8;
|
tdep->sc_pc_offset = 2 * 8;
|
tdep->sc_regs_offset = 4 * 8;
|
tdep->sc_regs_offset = 4 * 8;
|
tdep->sc_fpregs_offset = tdep->sc_regs_offset + 32 * 8 + 8;
|
tdep->sc_fpregs_offset = tdep->sc_regs_offset + 32 * 8 + 8;
|
|
|
tdep->jb_pc = -1; /* longjmp support not enabled by default */
|
tdep->jb_pc = -1; /* longjmp support not enabled by default */
|
|
|
tdep->return_in_memory = alpha_return_in_memory_always;
|
tdep->return_in_memory = alpha_return_in_memory_always;
|
|
|
/* Type sizes */
|
/* Type sizes */
|
set_gdbarch_short_bit (gdbarch, 16);
|
set_gdbarch_short_bit (gdbarch, 16);
|
set_gdbarch_int_bit (gdbarch, 32);
|
set_gdbarch_int_bit (gdbarch, 32);
|
set_gdbarch_long_bit (gdbarch, 64);
|
set_gdbarch_long_bit (gdbarch, 64);
|
set_gdbarch_long_long_bit (gdbarch, 64);
|
set_gdbarch_long_long_bit (gdbarch, 64);
|
set_gdbarch_float_bit (gdbarch, 32);
|
set_gdbarch_float_bit (gdbarch, 32);
|
set_gdbarch_double_bit (gdbarch, 64);
|
set_gdbarch_double_bit (gdbarch, 64);
|
set_gdbarch_long_double_bit (gdbarch, 64);
|
set_gdbarch_long_double_bit (gdbarch, 64);
|
set_gdbarch_ptr_bit (gdbarch, 64);
|
set_gdbarch_ptr_bit (gdbarch, 64);
|
|
|
/* Register info */
|
/* Register info */
|
set_gdbarch_num_regs (gdbarch, ALPHA_NUM_REGS);
|
set_gdbarch_num_regs (gdbarch, ALPHA_NUM_REGS);
|
set_gdbarch_sp_regnum (gdbarch, ALPHA_SP_REGNUM);
|
set_gdbarch_sp_regnum (gdbarch, ALPHA_SP_REGNUM);
|
set_gdbarch_pc_regnum (gdbarch, ALPHA_PC_REGNUM);
|
set_gdbarch_pc_regnum (gdbarch, ALPHA_PC_REGNUM);
|
set_gdbarch_fp0_regnum (gdbarch, ALPHA_FP0_REGNUM);
|
set_gdbarch_fp0_regnum (gdbarch, ALPHA_FP0_REGNUM);
|
|
|
set_gdbarch_register_name (gdbarch, alpha_register_name);
|
set_gdbarch_register_name (gdbarch, alpha_register_name);
|
set_gdbarch_register_type (gdbarch, alpha_register_type);
|
set_gdbarch_register_type (gdbarch, alpha_register_type);
|
|
|
set_gdbarch_cannot_fetch_register (gdbarch, alpha_cannot_fetch_register);
|
set_gdbarch_cannot_fetch_register (gdbarch, alpha_cannot_fetch_register);
|
set_gdbarch_cannot_store_register (gdbarch, alpha_cannot_store_register);
|
set_gdbarch_cannot_store_register (gdbarch, alpha_cannot_store_register);
|
|
|
set_gdbarch_convert_register_p (gdbarch, alpha_convert_register_p);
|
set_gdbarch_convert_register_p (gdbarch, alpha_convert_register_p);
|
set_gdbarch_register_to_value (gdbarch, alpha_register_to_value);
|
set_gdbarch_register_to_value (gdbarch, alpha_register_to_value);
|
set_gdbarch_value_to_register (gdbarch, alpha_value_to_register);
|
set_gdbarch_value_to_register (gdbarch, alpha_value_to_register);
|
|
|
set_gdbarch_register_reggroup_p (gdbarch, alpha_register_reggroup_p);
|
set_gdbarch_register_reggroup_p (gdbarch, alpha_register_reggroup_p);
|
|
|
/* Prologue heuristics. */
|
/* Prologue heuristics. */
|
set_gdbarch_skip_prologue (gdbarch, alpha_skip_prologue);
|
set_gdbarch_skip_prologue (gdbarch, alpha_skip_prologue);
|
|
|
/* Disassembler. */
|
/* Disassembler. */
|
set_gdbarch_print_insn (gdbarch, print_insn_alpha);
|
set_gdbarch_print_insn (gdbarch, print_insn_alpha);
|
|
|
/* Call info. */
|
/* Call info. */
|
|
|
set_gdbarch_return_value (gdbarch, alpha_return_value);
|
set_gdbarch_return_value (gdbarch, alpha_return_value);
|
|
|
/* Settings for calling functions in the inferior. */
|
/* Settings for calling functions in the inferior. */
|
set_gdbarch_push_dummy_call (gdbarch, alpha_push_dummy_call);
|
set_gdbarch_push_dummy_call (gdbarch, alpha_push_dummy_call);
|
|
|
/* Methods for saving / extracting a dummy frame's ID. */
|
/* Methods for saving / extracting a dummy frame's ID. */
|
set_gdbarch_unwind_dummy_id (gdbarch, alpha_unwind_dummy_id);
|
set_gdbarch_unwind_dummy_id (gdbarch, alpha_unwind_dummy_id);
|
|
|
/* Return the unwound PC value. */
|
/* Return the unwound PC value. */
|
set_gdbarch_unwind_pc (gdbarch, alpha_unwind_pc);
|
set_gdbarch_unwind_pc (gdbarch, alpha_unwind_pc);
|
|
|
set_gdbarch_inner_than (gdbarch, core_addr_lessthan);
|
set_gdbarch_inner_than (gdbarch, core_addr_lessthan);
|
set_gdbarch_skip_trampoline_code (gdbarch, find_solib_trampoline_target);
|
set_gdbarch_skip_trampoline_code (gdbarch, find_solib_trampoline_target);
|
|
|
set_gdbarch_breakpoint_from_pc (gdbarch, alpha_breakpoint_from_pc);
|
set_gdbarch_breakpoint_from_pc (gdbarch, alpha_breakpoint_from_pc);
|
set_gdbarch_decr_pc_after_break (gdbarch, ALPHA_INSN_SIZE);
|
set_gdbarch_decr_pc_after_break (gdbarch, ALPHA_INSN_SIZE);
|
set_gdbarch_cannot_step_breakpoint (gdbarch, 1);
|
set_gdbarch_cannot_step_breakpoint (gdbarch, 1);
|
|
|
/* 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);
|
|
|
/* Now that we have tuned the configuration, set a few final things
|
/* Now that we have tuned the configuration, set a few final things
|
based on what the OS ABI has told us. */
|
based on what the OS ABI has told us. */
|
|
|
if (tdep->jb_pc >= 0)
|
if (tdep->jb_pc >= 0)
|
set_gdbarch_get_longjmp_target (gdbarch, alpha_get_longjmp_target);
|
set_gdbarch_get_longjmp_target (gdbarch, alpha_get_longjmp_target);
|
|
|
frame_unwind_append_sniffer (gdbarch, alpha_sigtramp_frame_sniffer);
|
frame_unwind_append_sniffer (gdbarch, alpha_sigtramp_frame_sniffer);
|
frame_unwind_append_sniffer (gdbarch, alpha_heuristic_frame_sniffer);
|
frame_unwind_append_sniffer (gdbarch, alpha_heuristic_frame_sniffer);
|
|
|
frame_base_set_default (gdbarch, &alpha_heuristic_frame_base);
|
frame_base_set_default (gdbarch, &alpha_heuristic_frame_base);
|
|
|
return gdbarch;
|
return gdbarch;
|
}
|
}
|
|
|
void
|
void
|
alpha_dwarf2_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
|
alpha_dwarf2_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
|
{
|
{
|
frame_unwind_append_sniffer (gdbarch, dwarf2_frame_sniffer);
|
frame_unwind_append_sniffer (gdbarch, dwarf2_frame_sniffer);
|
frame_base_append_sniffer (gdbarch, dwarf2_frame_base_sniffer);
|
frame_base_append_sniffer (gdbarch, dwarf2_frame_base_sniffer);
|
}
|
}
|
|
|
extern initialize_file_ftype _initialize_alpha_tdep; /* -Wmissing-prototypes */
|
extern initialize_file_ftype _initialize_alpha_tdep; /* -Wmissing-prototypes */
|
|
|
void
|
void
|
_initialize_alpha_tdep (void)
|
_initialize_alpha_tdep (void)
|
{
|
{
|
struct cmd_list_element *c;
|
struct cmd_list_element *c;
|
|
|
gdbarch_register (bfd_arch_alpha, alpha_gdbarch_init, NULL);
|
gdbarch_register (bfd_arch_alpha, alpha_gdbarch_init, NULL);
|
|
|
/* Let the user set the fence post for heuristic_proc_start. */
|
/* Let the user set the fence post for heuristic_proc_start. */
|
|
|
/* We really would like to have both "0" and "unlimited" work, but
|
/* We really would like to have both "0" and "unlimited" work, but
|
command.c doesn't deal with that. So make it a var_zinteger
|
command.c doesn't deal with that. So make it a var_zinteger
|
because the user can always use "999999" or some such for unlimited. */
|
because the user can always use "999999" or some such for unlimited. */
|
/* We need to throw away the frame cache when we set this, since it
|
/* We need to throw away the frame cache when we set this, since it
|
might change our ability to get backtraces. */
|
might change our ability to get backtraces. */
|
add_setshow_zinteger_cmd ("heuristic-fence-post", class_support,
|
add_setshow_zinteger_cmd ("heuristic-fence-post", class_support,
|
&heuristic_fence_post, _("\
|
&heuristic_fence_post, _("\
|
Set the distance searched for the start of a function."), _("\
|
Set the distance searched for the start of a function."), _("\
|
Show the distance searched for the start of a function."), _("\
|
Show the distance searched for the start of a function."), _("\
|
If you are debugging a stripped executable, GDB needs to search through the\n\
|
If you are debugging a stripped executable, GDB needs to search through the\n\
|
program for the start of a function. This command sets the distance of the\n\
|
program for the start of a function. This command sets the distance of the\n\
|
search. The only need to set it is when debugging a stripped executable."),
|
search. The only need to set it is when debugging a stripped executable."),
|
reinit_frame_cache_sfunc,
|
reinit_frame_cache_sfunc,
|
NULL, /* FIXME: i18n: The distance searched for the start of a function is \"%d\". */
|
NULL, /* FIXME: i18n: The distance searched for the start of a function is \"%d\". */
|
&setlist, &showlist);
|
&setlist, &showlist);
|
}
|
}
|
|
|