2002-08-15 Michael Snyder <msnyder@redhat.com>
* config/mips/tm-mips.h (FUNCTION_START_OFFSET, IN_SIGTRAMP,
REGISTER_VIRTUAL_SIZE): Delete.
(REGISTER_CONVERT_FROM_TYPE, REGISTER_CONVERT_TO_TYPE): Convert
from macros to functions.
* mips-tdep.c (mips_register_convert_from_type,
mips_register_convert_to_type): New functions.
(mips_gdbarch_init): Set up function_start_offset,
register_virtual_size, pc_in_sigtramp.
This commit is contained in:
Michael Snyder
parent
bf1f5b4c04
commit
102182a951
3 changed files with 69 additions and 48 deletions
|
|
@ -9,6 +9,10 @@
|
|||
MAX_REGISTER_RAW_SIZE, MAX_REGISTER_VIRTUAL_SIZE): Delete.
|
||||
(TARGET_READ_SP): Delete.
|
||||
(DO_REGISTERS_INFO): Delete.
|
||||
(FUNCTION_START_OFFSET, IN_SIGTRAMP, REGISTER_VIRTUAL_SIZE):
|
||||
Delete.
|
||||
(REGISTER_CONVERT_FROM_TYPE, REGISTER_CONVERT_TO_TYPE): Convert
|
||||
from macros to functions.
|
||||
|
||||
* mips-tdep.c (mips_gdbarch_init): Set the above in the gdbarch.
|
||||
(mips_register_convertible, mips_register_convert_to_virtual,
|
||||
|
|
@ -17,6 +21,11 @@
|
|||
(mips_gdbarch_init): Set gdbarch read_sp to mips_read_sp.
|
||||
(mips_do_registers_info): Make static.
|
||||
(mips_gdbarch_init): Insert mips_do_registers_info into gdbarch.
|
||||
(in_sigtramp): Make static, rename to mips_pc_in_sigtramp.
|
||||
(mips_register_convert_from_type, mips_register_convert_to_type):
|
||||
New functions.
|
||||
(mips_gdbarch_init): Set up function_start_offset,
|
||||
register_virtual_size, pc_in_sigtramp.
|
||||
|
||||
2002-08-15 Andrew Cagney <ac131313@redhat.com>
|
||||
|
||||
|
|
|
|||
|
|
@ -51,22 +51,12 @@ struct value;
|
|||
|
||||
#define DEFAULT_MIPS_TYPE "generic"
|
||||
|
||||
/* Offset from address of function to start of its code.
|
||||
Zero on most machines. */
|
||||
|
||||
#define FUNCTION_START_OFFSET 0
|
||||
|
||||
/* Return non-zero if PC points to an instruction which will cause a step
|
||||
to execute both the instruction at PC and an instruction at PC+4. */
|
||||
extern int mips_step_skips_delay (CORE_ADDR);
|
||||
#define STEP_SKIPS_DELAY_P (1)
|
||||
#define STEP_SKIPS_DELAY(pc) (mips_step_skips_delay (pc))
|
||||
|
||||
/* Are we currently handling a signal */
|
||||
|
||||
extern int in_sigtramp (CORE_ADDR, char *);
|
||||
#define IN_SIGTRAMP(pc, name) in_sigtramp(pc, name)
|
||||
|
||||
/* Say how long (ordinary) registers are. This is a piece of bogosity
|
||||
used in push_word and a few other places; REGISTER_RAW_SIZE is the
|
||||
real way to know how big a register is. */
|
||||
|
|
@ -151,11 +141,6 @@ extern const char *mips_register_name (int regnr);
|
|||
|
||||
#define REGISTER_BYTE(N) ((N) * MIPS_REGSIZE)
|
||||
|
||||
/* Number of bytes of storage in the program's representation
|
||||
for register N. */
|
||||
|
||||
#define REGISTER_VIRTUAL_SIZE(N) TYPE_LENGTH (REGISTER_VIRTUAL_TYPE (N))
|
||||
|
||||
/* Return the GDB type object for the "standard" data type of data in
|
||||
register N. */
|
||||
|
||||
|
|
@ -172,27 +157,18 @@ extern const char *mips_register_name (int regnr);
|
|||
If the target is big endian, double register values need conversion
|
||||
between memory and register formats. */
|
||||
|
||||
#define REGISTER_CONVERT_TO_TYPE(n, type, buffer) \
|
||||
do {if (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG \
|
||||
&& REGISTER_RAW_SIZE (n) == 4 \
|
||||
&& (n) >= FP0_REGNUM && (n) < FP0_REGNUM + 32 \
|
||||
&& TYPE_CODE(type) == TYPE_CODE_FLT \
|
||||
&& TYPE_LENGTH(type) == 8) { \
|
||||
char __temp[4]; \
|
||||
memcpy (__temp, ((char *)(buffer))+4, 4); \
|
||||
memcpy (((char *)(buffer))+4, (buffer), 4); \
|
||||
memcpy (((char *)(buffer)), __temp, 4); }} while (0)
|
||||
extern void mips_register_convert_to_type (int regnum,
|
||||
struct type *type,
|
||||
char *buffer);
|
||||
extern void mips_register_convert_from_type (int regnum,
|
||||
struct type *type,
|
||||
char *buffer);
|
||||
|
||||
#define REGISTER_CONVERT_FROM_TYPE(n, type, buffer) \
|
||||
do {if (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG \
|
||||
&& REGISTER_RAW_SIZE (n) == 4 \
|
||||
&& (n) >= FP0_REGNUM && (n) < FP0_REGNUM + 32 \
|
||||
&& TYPE_CODE(type) == TYPE_CODE_FLT \
|
||||
&& TYPE_LENGTH(type) == 8) { \
|
||||
char __temp[4]; \
|
||||
memcpy (__temp, ((char *)(buffer))+4, 4); \
|
||||
memcpy (((char *)(buffer))+4, (buffer), 4); \
|
||||
memcpy (((char *)(buffer)), __temp, 4); }} while (0)
|
||||
#define REGISTER_CONVERT_TO_TYPE(n, type, buffer) \
|
||||
mips_register_convert_to_type ((n), (type), (buffer))
|
||||
|
||||
#define REGISTER_CONVERT_FROM_TYPE(n, type, buffer) \
|
||||
mips_register_convert_from_type ((n), (type), (buffer))
|
||||
|
||||
/* Store the address of the place in which to copy the structure the
|
||||
subroutine will return. Handled by mips_push_arguments. */
|
||||
|
|
|
|||
|
|
@ -477,6 +477,38 @@ mips_register_convert_to_raw (struct type *virtual_type, int n,
|
|||
TYPE_LENGTH (virtual_type));
|
||||
}
|
||||
|
||||
void
|
||||
mips_register_convert_to_type (int regnum, struct type *type, char *buffer)
|
||||
{
|
||||
if (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG
|
||||
&& REGISTER_RAW_SIZE (regnum) == 4
|
||||
&& (regnum) >= FP0_REGNUM && (regnum) < FP0_REGNUM + 32
|
||||
&& TYPE_CODE(type) == TYPE_CODE_FLT
|
||||
&& TYPE_LENGTH(type) == 8)
|
||||
{
|
||||
char temp[4];
|
||||
memcpy (temp, ((char *)(buffer))+4, 4);
|
||||
memcpy (((char *)(buffer))+4, (buffer), 4);
|
||||
memcpy (((char *)(buffer)), temp, 4);
|
||||
}
|
||||
}
|
||||
|
||||
void
|
||||
mips_register_convert_from_type (int regnum, struct type *type, char *buffer)
|
||||
{
|
||||
if (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG
|
||||
&& REGISTER_RAW_SIZE (regnum) == 4
|
||||
&& (regnum) >= FP0_REGNUM && (regnum) < FP0_REGNUM + 32
|
||||
&& TYPE_CODE(type) == TYPE_CODE_FLT
|
||||
&& TYPE_LENGTH(type) == 8)
|
||||
{
|
||||
char temp[4];
|
||||
memcpy (temp, ((char *)(buffer))+4, 4);
|
||||
memcpy (((char *)(buffer))+4, (buffer), 4);
|
||||
memcpy (((char *)(buffer)), temp, 4);
|
||||
}
|
||||
}
|
||||
|
||||
/* Return the GDB type object for the "standard" data type
|
||||
of data in register REG.
|
||||
|
||||
|
|
@ -4186,8 +4218,8 @@ mips_store_return_value (struct type *valtype, char *valbuf)
|
|||
|
||||
/* Exported procedure: Is PC in the signal trampoline code */
|
||||
|
||||
int
|
||||
in_sigtramp (CORE_ADDR pc, char *ignore)
|
||||
static int
|
||||
mips_pc_in_sigtramp (CORE_ADDR pc, char *ignore)
|
||||
{
|
||||
if (sigtramp_address == 0)
|
||||
fixup_sigtramp ();
|
||||
|
|
@ -4873,7 +4905,7 @@ mips_gdbarch_init (struct gdbarch_info info,
|
|||
osabi = gdbarch_lookup_osabi (info.abfd);
|
||||
}
|
||||
|
||||
/* Check ELF_FLAGS to see if it specifies the ABI being used. */
|
||||
/* Check ELF_FLAGS to see if it specifies the ABI being used. */
|
||||
switch ((elf_flags & EF_MIPS_ABI))
|
||||
{
|
||||
case E_MIPS_ABI_O32:
|
||||
|
|
@ -4967,7 +4999,7 @@ mips_gdbarch_init (struct gdbarch_info info,
|
|||
arches = gdbarch_list_lookup_by_info (arches->next, &info))
|
||||
{
|
||||
/* MIPS needs to be pedantic about which ABI the object is
|
||||
using. */
|
||||
using. */
|
||||
if (gdbarch_tdep (arches->gdbarch)->elf_flags != elf_flags)
|
||||
continue;
|
||||
if (gdbarch_tdep (arches->gdbarch)->mips_abi != mips_abi)
|
||||
|
|
@ -4976,13 +5008,13 @@ mips_gdbarch_init (struct gdbarch_info info,
|
|||
return arches->gdbarch;
|
||||
}
|
||||
|
||||
/* Need a new architecture. Fill in a target specific vector. */
|
||||
/* Need a new architecture. Fill in a target specific vector. */
|
||||
tdep = (struct gdbarch_tdep *) xmalloc (sizeof (struct gdbarch_tdep));
|
||||
gdbarch = gdbarch_alloc (&info, tdep);
|
||||
tdep->elf_flags = elf_flags;
|
||||
tdep->osabi = osabi;
|
||||
|
||||
/* Initially set everything according to the default ABI/ISA. */
|
||||
/* Initially set everything according to the default ABI/ISA. */
|
||||
set_gdbarch_short_bit (gdbarch, 16);
|
||||
set_gdbarch_int_bit (gdbarch, 32);
|
||||
set_gdbarch_float_bit (gdbarch, 32);
|
||||
|
|
@ -5133,7 +5165,7 @@ mips_gdbarch_init (struct gdbarch_info info,
|
|||
|
||||
``We deliberately don't allow "-gp32" to set the MIPS_32BITMODE
|
||||
flag in object files because to do so would make it impossible to
|
||||
link with libraries compiled without "-gp32". This is
|
||||
link with libraries compiled without "-gp32". This is
|
||||
unnecessarily restrictive.
|
||||
|
||||
We could solve this problem by adding "-gp32" multilibs to gcc,
|
||||
|
|
@ -5143,10 +5175,10 @@ mips_gdbarch_init (struct gdbarch_info info,
|
|||
But even more unhelpfully, the default linker output target for
|
||||
mips64-elf is elf32-bigmips, and has EF_MIPS_32BIT_MODE set, even
|
||||
for 64-bit programs - you need to change the ABI to change this,
|
||||
and not all gcc targets support that currently. Therefore using
|
||||
and not all gcc targets support that currently. Therefore using
|
||||
this flag to detect 32-bit mode would do the wrong thing given
|
||||
the current gcc - it would make GDB treat these 64-bit programs
|
||||
as 32-bit programs by default. */
|
||||
as 32-bit programs by default. */
|
||||
|
||||
/* enable/disable the MIPS FPU */
|
||||
if (!mips_fpu_type_auto)
|
||||
|
|
@ -5173,7 +5205,7 @@ mips_gdbarch_init (struct gdbarch_info info,
|
|||
/* MIPS version of register names. NOTE: At present the MIPS
|
||||
register name management is part way between the old -
|
||||
#undef/#define REGISTER_NAMES and the new REGISTER_NAME(nr).
|
||||
Further work on it is required. */
|
||||
Further work on it is required. */
|
||||
set_gdbarch_register_name (gdbarch, mips_register_name);
|
||||
set_gdbarch_read_pc (gdbarch, mips_read_pc);
|
||||
set_gdbarch_write_pc (gdbarch, generic_target_write_pc);
|
||||
|
|
@ -5181,8 +5213,8 @@ mips_gdbarch_init (struct gdbarch_info info,
|
|||
set_gdbarch_read_sp (gdbarch, mips_read_sp);
|
||||
set_gdbarch_write_sp (gdbarch, generic_target_write_sp);
|
||||
|
||||
/* Add/remove bits from an address. The MIPS needs be careful to
|
||||
ensure that all 32 bit addresses are sign extended to 64 bits. */
|
||||
/* Add/remove bits from an address. The MIPS needs be careful to
|
||||
ensure that all 32 bit addresses are sign extended to 64 bits. */
|
||||
set_gdbarch_addr_bits_remove (gdbarch, mips_addr_bits_remove);
|
||||
|
||||
/* There's a mess in stack frame creation. See comments in
|
||||
|
|
@ -5190,7 +5222,7 @@ mips_gdbarch_init (struct gdbarch_info info,
|
|||
set_gdbarch_init_frame_pc_first (gdbarch, mips_init_frame_pc_first);
|
||||
set_gdbarch_init_frame_pc (gdbarch, init_frame_pc_noop);
|
||||
|
||||
/* Map debug register numbers onto internal register numbers. */
|
||||
/* Map debug register numbers onto internal register numbers. */
|
||||
set_gdbarch_stab_reg_to_regnum (gdbarch, mips_stab_reg_to_regnum);
|
||||
set_gdbarch_ecoff_reg_to_regnum (gdbarch, mips_ecoff_reg_to_regnum);
|
||||
|
||||
|
|
@ -5235,11 +5267,15 @@ mips_gdbarch_init (struct gdbarch_info info,
|
|||
set_gdbarch_address_to_pointer (gdbarch, address_to_signed_pointer);
|
||||
set_gdbarch_integer_to_address (gdbarch, mips_integer_to_address);
|
||||
|
||||
set_gdbarch_function_start_offset (gdbarch, 0);
|
||||
|
||||
/* There are MIPS targets which do not yet use this since they still
|
||||
define REGISTER_VIRTUAL_TYPE. */
|
||||
set_gdbarch_register_virtual_type (gdbarch, mips_register_virtual_type);
|
||||
set_gdbarch_register_virtual_size (gdbarch, generic_register_size);
|
||||
|
||||
set_gdbarch_do_registers_info (gdbarch, mips_do_registers_info);
|
||||
set_gdbarch_pc_in_sigtramp (gdbarch, mips_pc_in_sigtramp);
|
||||
|
||||
/* Hook in OS ABI-specific overrides, if they have been registered. */
|
||||
gdbarch_init_osabi (info, gdbarch, osabi);
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue