diff options
Diffstat (limited to 'gdb/ns32k-tdep.c')
| -rw-r--r-- | gdb/ns32k-tdep.c | 626 |
1 files changed, 0 insertions, 626 deletions
diff --git a/gdb/ns32k-tdep.c b/gdb/ns32k-tdep.c deleted file mode 100644 index 58c2e13..0000000 --- a/gdb/ns32k-tdep.c +++ /dev/null @@ -1,626 +0,0 @@ -/* 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); -} - -/* 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_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_deprecated_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; -} |