binutils-gdb/gdb/ns32k-tdep.c

674 lines
18 KiB
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/* Target dependent code for the NS32000, for GDB.
Copyright 1986, 1988, 1991, 1992, 1994, 1995, 1998, 1999, 2000, 2001,
2002 Free Software Foundation, Inc.
This file is part of GDB.
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
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */
#include "defs.h"
#include "frame.h"
#include "gdbtypes.h"
#include "gdbcore.h"
#include "inferior.h"
#include "regcache.h"
#include "target.h"
#include "arch-utils.h"
#include "ns32k-tdep.h"
static int sign_extend (int value, int bits);
static CORE_ADDR ns32k_get_enter_addr (CORE_ADDR);
static int ns32k_localcount (CORE_ADDR enter_pc);
static void flip_bytes (void *, int);
static const char *
ns32k_register_name_32082 (int regno)
{
static char *register_names[] =
{
"r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7",
"f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7",
"sp", "fp", "pc", "ps",
"l0", "l1", "l2", "l3", "xx",
};
if (regno < 0)
return NULL;
if (regno >= sizeof (register_names) / sizeof (*register_names))
return NULL;
return (register_names[regno]);
}
static const char *
ns32k_register_name_32382 (int regno)
{
static char *register_names[] =
{
"r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7",
"f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7",
"sp", "fp", "pc", "ps",
"fsr",
"l0", "l1", "l2", "l3", "l4", "l5", "l6", "l7", "xx",
};
if (regno < 0)
return NULL;
if (regno >= sizeof (register_names) / sizeof (*register_names))
return NULL;
return (register_names[regno]);
}
static int
ns32k_register_byte_32082 (int regno)
{
if (regno >= NS32K_LP0_REGNUM)
return (NS32K_LP0_REGNUM * 4) + ((regno - NS32K_LP0_REGNUM) * 8);
return (regno * 4);
}
static int
ns32k_register_byte_32382 (int regno)
{
/* This is a bit yuk. The even numbered double precision floating
point long registers occupy the same space as the even:odd numbered
single precision floating point registers, but the extra 32381 FPU
registers are at the end. Doing it this way is compatible for both
32081 and 32381 equipped machines. */
return ((regno < NS32K_LP0_REGNUM ? regno
: (regno - NS32K_LP0_REGNUM) & 1 ? regno - 1
: (regno - NS32K_LP0_REGNUM + FP0_REGNUM)) * 4);
}
static int
ns32k_register_raw_size (int regno)
{
/* All registers are 4 bytes, except for the doubled floating
registers. */
return ((regno >= NS32K_LP0_REGNUM) ? 8 : 4);
}
static int
ns32k_register_virtual_size (int regno)
{
return ((regno >= NS32K_LP0_REGNUM) ? 8 : 4);
}
static struct type *
ns32k_register_virtual_type (int regno)
{
if (regno < FP0_REGNUM)
return (builtin_type_int);
if (regno < FP0_REGNUM + 8)
return (builtin_type_float);
if (regno < NS32K_LP0_REGNUM)
return (builtin_type_int);
return (builtin_type_double);
}
/* Immediately after a function call, return the saved PC. Can't
always go through the frames for this because on some systems,
the new frame is not set up until the new function executes some
instructions. */
static CORE_ADDR
ns32k_saved_pc_after_call (struct frame_info *frame)
{
return (read_memory_integer (read_register (SP_REGNUM), 4));
}
/* Advance PC across any function entry prologue instructions
to reach some "real" code. */
static CORE_ADDR
umax_skip_prologue (CORE_ADDR pc)
{
register unsigned char op = read_memory_integer (pc, 1);
if (op == 0x82)
{
op = read_memory_integer (pc + 2, 1);
if ((op & 0x80) == 0)
pc += 3;
else if ((op & 0xc0) == 0x80)
pc += 4;
else
pc += 6;
}
return pc;
}
static const unsigned char *
ns32k_breakpoint_from_pc (CORE_ADDR *pcp, int *lenp)
{
static const unsigned char breakpoint_insn[] = { 0xf2 };
*lenp = sizeof (breakpoint_insn);
return breakpoint_insn;
}
/* Return number of args passed to a frame.
Can return -1, meaning no way to tell.
Encore's C compiler often reuses same area on stack for args,
so this will often not work properly. If the arg names
are known, it's likely most of them will be printed. */
static int
umax_frame_num_args (struct frame_info *fi)
{
int numargs;
CORE_ADDR pc;
CORE_ADDR enter_addr;
unsigned int insn;
unsigned int addr_mode;
int width;
numargs = -1;
enter_addr = ns32k_get_enter_addr ((fi)->pc);
if (enter_addr > 0)
{
pc = ((enter_addr == 1)
? SAVED_PC_AFTER_CALL (fi)
: FRAME_SAVED_PC (fi));
insn = read_memory_integer (pc, 2);
addr_mode = (insn >> 11) & 0x1f;
insn = insn & 0x7ff;
if ((insn & 0x7fc) == 0x57c
&& addr_mode == 0x14) /* immediate */
{
if (insn == 0x57c) /* adjspb */
width = 1;
else if (insn == 0x57d) /* adjspw */
width = 2;
else if (insn == 0x57f) /* adjspd */
width = 4;
else
internal_error (__FILE__, __LINE__, "bad else");
numargs = read_memory_integer (pc + 2, width);
if (width > 1)
flip_bytes (&numargs, width);
numargs = -sign_extend (numargs, width * 8) / 4;
}
}
return numargs;
}
static int
sign_extend (int value, int bits)
{
value = value & ((1 << bits) - 1);
return (value & (1 << (bits - 1))
? value | (~((1 << bits) - 1))
: value);
}
static void
flip_bytes (void *p, int count)
{
char tmp;
char *ptr = 0;
while (count > 0)
{
tmp = *ptr;
ptr[0] = ptr[count - 1];
ptr[count - 1] = tmp;
ptr++;
count -= 2;
}
}
/* Return the number of locals in the current frame given a
pc pointing to the enter instruction. This is used by
ns32k_frame_init_saved_regs. */
static int
ns32k_localcount (CORE_ADDR enter_pc)
{
unsigned char localtype;
int localcount;
localtype = read_memory_integer (enter_pc + 2, 1);
if ((localtype & 0x80) == 0)
localcount = localtype;
else if ((localtype & 0xc0) == 0x80)
localcount = (((localtype & 0x3f) << 8)
| (read_memory_integer (enter_pc + 3, 1) & 0xff));
else
localcount = (((localtype & 0x3f) << 24)
| ((read_memory_integer (enter_pc + 3, 1) & 0xff) << 16)
| ((read_memory_integer (enter_pc + 4, 1) & 0xff) << 8)
| (read_memory_integer (enter_pc + 5, 1) & 0xff));
return localcount;
}
/* Nonzero if instruction at PC is a return instruction. */
static int
ns32k_about_to_return (CORE_ADDR pc)
{
return (read_memory_integer (pc, 1) == 0x12);
}
/* Get the address of the enter opcode for this function, if it is active.
Returns positive address > 1 if pc is between enter/exit,
1 if pc before enter or after exit, 0 otherwise. */
static CORE_ADDR
ns32k_get_enter_addr (CORE_ADDR pc)
{
CORE_ADDR enter_addr;
unsigned char op;
if (pc == 0)
return 0;
if (ns32k_about_to_return (pc))
return 1; /* after exit */
enter_addr = get_pc_function_start (pc);
if (pc == enter_addr)
return 1; /* before enter */
op = read_memory_integer (enter_addr, 1);
if (op != 0x82)
return 0; /* function has no enter/exit */
return enter_addr; /* pc is between enter and exit */
}
static CORE_ADDR
ns32k_frame_chain (struct frame_info *frame)
{
/* In the case of the NS32000 series, the frame's nominal address is the
FP value, and that address is saved at the previous FP value as a
4-byte word. */
if (inside_entry_file (frame->pc))
return 0;
return (read_memory_integer (frame->frame, 4));
}
static CORE_ADDR
ns32k_frame_saved_pc (struct frame_info *frame)
{
if (frame->signal_handler_caller)
return (sigtramp_saved_pc (frame)); /* XXXJRT */
return (read_memory_integer (frame->frame + 4, 4));
}
static CORE_ADDR
ns32k_frame_args_address (struct frame_info *frame)
{
if (ns32k_get_enter_addr (frame->pc) > 1)
return (frame->frame);
return (read_register (SP_REGNUM) - 4);
}
static CORE_ADDR
ns32k_frame_locals_address (struct frame_info *frame)
{
return (frame->frame);
}
static void
ns32k_get_saved_register (char *raw_buffer, int *optimized, CORE_ADDR *addrp,
struct frame_info *frame, int regnum,
enum lval_type *lval)
{
CORE_ADDR addr;
if (!target_has_registers)
error ("No registers.");
/* Normal systems don't optimize out things with register numbers. */
if (optimized != NULL)
*optimized = 0;
addr = find_saved_register (frame, regnum);
if (addr != 0)
{
if (lval != NULL)
*lval = lval_memory;
if (regnum == SP_REGNUM)
{
if (raw_buffer != NULL)
{
/* Put it back in target format. */
store_address (raw_buffer, REGISTER_RAW_SIZE (regnum),
(LONGEST) addr);
}
if (addrp != NULL)
*addrp = 0;
return;
}
if (raw_buffer != NULL)
target_read_memory (addr, raw_buffer, REGISTER_RAW_SIZE (regnum));
}
else
{
if (lval != NULL)
*lval = lval_register;
addr = REGISTER_BYTE (regnum);
if (raw_buffer != NULL)
read_register_gen (regnum, raw_buffer);
}
if (addrp != NULL)
*addrp = addr;
}
/* Code to initialize the addresses of the saved registers of frame described
by FRAME_INFO. This includes special registers such as pc and fp saved in
special ways in the stack frame. sp is even more special: the address we
return for it IS the sp for the next frame. */
static void
ns32k_frame_init_saved_regs (struct frame_info *frame)
{
int regmask, regnum;
int localcount;
CORE_ADDR enter_addr, next_addr;
if (frame->saved_regs)
return;
frame_saved_regs_zalloc (frame);
enter_addr = ns32k_get_enter_addr (frame->pc);
if (enter_addr > 1)
{
regmask = read_memory_integer (enter_addr + 1, 1) & 0xff;
localcount = ns32k_localcount (enter_addr);
next_addr = frame->frame + localcount;
for (regnum = 0; regnum < 8; regnum++)
{
if (regmask & (1 << regnum))
frame->saved_regs[regnum] = next_addr -= 4;
}
frame->saved_regs[SP_REGNUM] = frame->frame + 4;
frame->saved_regs[PC_REGNUM] = frame->frame + 4;
frame->saved_regs[FP_REGNUM] = read_memory_integer (frame->frame, 4);
}
else if (enter_addr == 1)
{
CORE_ADDR sp = read_register (SP_REGNUM);
frame->saved_regs[PC_REGNUM] = sp;
frame->saved_regs[SP_REGNUM] = sp + 4;
}
}
static void
ns32k_push_dummy_frame (void)
{
CORE_ADDR sp = read_register (SP_REGNUM);
int regnum;
sp = push_word (sp, read_register (PC_REGNUM));
sp = push_word (sp, read_register (FP_REGNUM));
write_register (FP_REGNUM, sp);
for (regnum = 0; regnum < 8; regnum++)
sp = push_word (sp, read_register (regnum));
write_register (SP_REGNUM, sp);
}
static void
ns32k_pop_frame (void)
{
struct frame_info *frame = get_current_frame ();
CORE_ADDR fp;
int regnum;
fp = frame->frame;
FRAME_INIT_SAVED_REGS (frame);
for (regnum = 0; regnum < 8; regnum++)
if (frame->saved_regs[regnum])
write_register (regnum,
read_memory_integer (frame->saved_regs[regnum], 4));
write_register (FP_REGNUM, read_memory_integer (fp, 4));
write_register (PC_REGNUM, read_memory_integer (fp + 4, 4));
write_register (SP_REGNUM, fp + 8);
flush_cached_frames ();
}
/* The NS32000 call dummy sequence:
enter 0xff,0 82 ff 00
jsr @0x00010203 7f ae c0 01 02 03
adjspd 0x69696969 7f a5 01 02 03 04
bpt f2
It is 16 bytes long. */
static LONGEST ns32k_call_dummy_words[] =
{
0x7f00ff82,
0x0201c0ae,
0x01a57f03,
0xf2040302
};
static int sizeof_ns32k_call_dummy_words = sizeof (ns32k_call_dummy_words);
#define NS32K_CALL_DUMMY_ADDR 5
#define NS32K_CALL_DUMMY_NARGS 11
static void
ns32k_fix_call_dummy (char *dummy, CORE_ADDR pc, CORE_ADDR fun, int nargs,
struct value **args, struct type *type, int gcc_p)
{
int flipped;
flipped = fun | 0xc0000000;
flip_bytes (&flipped, 4);
store_unsigned_integer (dummy + NS32K_CALL_DUMMY_ADDR, 4, flipped);
flipped = - nargs * 4;
flip_bytes (&flipped, 4);
store_unsigned_integer (dummy + NS32K_CALL_DUMMY_NARGS, 4, flipped);
}
static void
ns32k_store_struct_return (CORE_ADDR addr, CORE_ADDR sp)
{
/* On this machine, this is a no-op (Encore Umax didn't use GCC). */
}
static void
ns32k_extract_return_value (struct type *valtype, char *regbuf, char *valbuf)
{
memcpy (valbuf,
regbuf + REGISTER_BYTE (TYPE_CODE (valtype) == TYPE_CODE_FLT ?
FP0_REGNUM : 0), TYPE_LENGTH (valtype));
}
static void
ns32k_store_return_value (struct type *valtype, char *valbuf)
{
write_register_bytes (TYPE_CODE (valtype) == TYPE_CODE_FLT ?
FP0_REGNUM : 0, valbuf, TYPE_LENGTH (valtype));
}
static CORE_ADDR
ns32k_extract_struct_value_address (char *regbuf)
{
return (extract_address (regbuf + REGISTER_BYTE (0), REGISTER_RAW_SIZE (0)));
}
void
ns32k_gdbarch_init_32082 (struct gdbarch *gdbarch)
{
set_gdbarch_num_regs (gdbarch, NS32K_NUM_REGS_32082);
set_gdbarch_register_name (gdbarch, ns32k_register_name_32082);
set_gdbarch_register_bytes (gdbarch, NS32K_REGISTER_BYTES_32082);
set_gdbarch_register_byte (gdbarch, ns32k_register_byte_32082);
}
void
ns32k_gdbarch_init_32382 (struct gdbarch *gdbarch)
{
set_gdbarch_num_regs (gdbarch, NS32K_NUM_REGS_32382);
set_gdbarch_register_name (gdbarch, ns32k_register_name_32382);
set_gdbarch_register_bytes (gdbarch, NS32K_REGISTER_BYTES_32382);
set_gdbarch_register_byte (gdbarch, ns32k_register_byte_32382);
}
/* Initialize the current architecture based on INFO. If possible, re-use an
architecture from ARCHES, which is a list of architectures already created
during this debugging session.
Called e.g. at program startup, when reading a core file, and when reading
a binary file. */
static struct gdbarch *
ns32k_gdbarch_init (struct gdbarch_info info, struct gdbarch_list *arches)
{
struct gdbarch_tdep *tdep;
struct gdbarch *gdbarch;
enum gdb_osabi osabi = GDB_OSABI_UNKNOWN;
/* Try to determine the OS ABI of the object we are loading. */
if (info.abfd != NULL)
{
osabi = gdbarch_lookup_osabi (info.abfd);
}
/* Find a candidate among extant architectures. */
for (arches = gdbarch_list_lookup_by_info (arches, &info);
arches != NULL;
arches = gdbarch_list_lookup_by_info (arches->next, &info))
{
/* Make sure the OS ABI selection matches. */
tdep = gdbarch_tdep (arches->gdbarch);
if (tdep && tdep->osabi == osabi)
return arches->gdbarch;
}
tdep = xmalloc (sizeof (struct gdbarch_tdep));
gdbarch = gdbarch_alloc (&info, tdep);
tdep->osabi = osabi;
/* Register info */
ns32k_gdbarch_init_32082 (gdbarch);
set_gdbarch_num_regs (gdbarch, NS32K_SP_REGNUM);
set_gdbarch_num_regs (gdbarch, NS32K_FP_REGNUM);
set_gdbarch_num_regs (gdbarch, NS32K_PC_REGNUM);
set_gdbarch_num_regs (gdbarch, NS32K_PS_REGNUM);
set_gdbarch_register_size (gdbarch, NS32K_REGISTER_SIZE);
set_gdbarch_register_raw_size (gdbarch, ns32k_register_raw_size);
set_gdbarch_max_register_raw_size (gdbarch, NS32K_MAX_REGISTER_RAW_SIZE);
set_gdbarch_register_virtual_size (gdbarch, ns32k_register_virtual_size);
set_gdbarch_max_register_virtual_size (gdbarch,
NS32K_MAX_REGISTER_VIRTUAL_SIZE);
set_gdbarch_register_virtual_type (gdbarch, ns32k_register_virtual_type);
/* Frame and stack info */
set_gdbarch_skip_prologue (gdbarch, umax_skip_prologue);
set_gdbarch_saved_pc_after_call (gdbarch, ns32k_saved_pc_after_call);
set_gdbarch_frame_num_args (gdbarch, umax_frame_num_args);
set_gdbarch_frameless_function_invocation (gdbarch,
generic_frameless_function_invocation_not);
set_gdbarch_frame_chain (gdbarch, ns32k_frame_chain);
set_gdbarch_frame_chain_valid (gdbarch, func_frame_chain_valid);
set_gdbarch_frame_saved_pc (gdbarch, ns32k_frame_saved_pc);
set_gdbarch_frame_args_address (gdbarch, ns32k_frame_args_address);
set_gdbarch_frame_locals_address (gdbarch, ns32k_frame_locals_address);
set_gdbarch_frame_init_saved_regs (gdbarch, ns32k_frame_init_saved_regs);
set_gdbarch_frame_args_skip (gdbarch, 8);
set_gdbarch_get_saved_register (gdbarch, ns32k_get_saved_register);
set_gdbarch_inner_than (gdbarch, core_addr_lessthan);
/* Return value info */
set_gdbarch_store_struct_return (gdbarch, ns32k_store_struct_return);
set_gdbarch_deprecated_extract_return_value (gdbarch, ns32k_extract_return_value);
set_gdbarch_store_return_value (gdbarch, ns32k_store_return_value);
set_gdbarch_deprecated_extract_struct_value_address (gdbarch,
ns32k_extract_struct_value_address);
/* Call dummy info */
set_gdbarch_push_dummy_frame (gdbarch, ns32k_push_dummy_frame);
set_gdbarch_pop_frame (gdbarch, ns32k_pop_frame);
set_gdbarch_call_dummy_location (gdbarch, ON_STACK);
set_gdbarch_call_dummy_p (gdbarch, 1);
set_gdbarch_call_dummy_words (gdbarch, ns32k_call_dummy_words);
set_gdbarch_sizeof_call_dummy_words (gdbarch, sizeof_ns32k_call_dummy_words);
set_gdbarch_fix_call_dummy (gdbarch, ns32k_fix_call_dummy);
set_gdbarch_call_dummy_start_offset (gdbarch, 3);
set_gdbarch_call_dummy_breakpoint_offset_p (gdbarch, 0);
set_gdbarch_use_generic_dummy_frames (gdbarch, 0);
set_gdbarch_pc_in_call_dummy (gdbarch, pc_in_call_dummy_on_stack);
set_gdbarch_call_dummy_stack_adjust_p (gdbarch, 0);
/* Breakpoint info */
set_gdbarch_decr_pc_after_break (gdbarch, 0);
set_gdbarch_breakpoint_from_pc (gdbarch, ns32k_breakpoint_from_pc);
/* Misc info */
set_gdbarch_function_start_offset (gdbarch, 0);
/* Hook in OS ABI-specific overrides, if they have been registered. */
gdbarch_init_osabi (info, gdbarch, osabi);
return (gdbarch);
}
static void
ns32k_dump_tdep (struct gdbarch *current_gdbarch, struct ui_file *file)
{
struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
if (tdep == NULL)
return;
fprintf_unfiltered (file, "ns32k_dump_tdep: OS ABI = %s\n",
gdbarch_osabi_name (tdep->osabi));
}
void
_initialize_ns32k_tdep (void)
{
gdbarch_register (bfd_arch_ns32k, ns32k_gdbarch_init, ns32k_dump_tdep);
tm_print_insn = print_insn_ns32k;
}