diff options
Diffstat (limited to 'gdb/vax-tdep.c')
| -rw-r--r-- | gdb/vax-tdep.c | 702 |
1 files changed, 0 insertions, 702 deletions
diff --git a/gdb/vax-tdep.c b/gdb/vax-tdep.c deleted file mode 100644 index 709ef38..0000000 --- a/gdb/vax-tdep.c +++ /dev/null @@ -1,702 +0,0 @@ -/* Print VAX instructions for GDB, the GNU debugger. - Copyright 1986, 1989, 1991, 1992, 1995, 1996, 1998, 1999, 2000, 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 "symtab.h" -#include "opcode/vax.h" -#include "gdbcore.h" -#include "inferior.h" -#include "regcache.h" -#include "frame.h" -#include "value.h" -#include "arch-utils.h" - -#include "vax-tdep.h" - -static gdbarch_register_name_ftype vax_register_name; -static gdbarch_register_byte_ftype vax_register_byte; -static gdbarch_register_raw_size_ftype vax_register_raw_size; -static gdbarch_register_virtual_size_ftype vax_register_virtual_size; -static gdbarch_register_virtual_type_ftype vax_register_virtual_type; - -static gdbarch_skip_prologue_ftype vax_skip_prologue; -static gdbarch_saved_pc_after_call_ftype vax_saved_pc_after_call; -static gdbarch_frame_num_args_ftype vax_frame_num_args; -static gdbarch_frame_chain_ftype vax_frame_chain; -static gdbarch_frame_saved_pc_ftype vax_frame_saved_pc; -static gdbarch_frame_args_address_ftype vax_frame_args_address; -static gdbarch_frame_locals_address_ftype vax_frame_locals_address; -static gdbarch_frame_init_saved_regs_ftype vax_frame_init_saved_regs; - -static gdbarch_store_struct_return_ftype vax_store_struct_return; -static gdbarch_deprecated_extract_return_value_ftype vax_extract_return_value; -static gdbarch_deprecated_extract_struct_value_address_ftype - vax_extract_struct_value_address; - -static gdbarch_push_dummy_frame_ftype vax_push_dummy_frame; -static gdbarch_pop_frame_ftype vax_pop_frame; -static gdbarch_fix_call_dummy_ftype vax_fix_call_dummy; - -/* Return 1 if P points to an invalid floating point value. - LEN is the length in bytes -- not relevant on the Vax. */ - -/* FIXME: cagney/2002-01-19: The macro below was originally defined in - tm-vax.h and used in values.c. Two problems. Firstly this is a - very non-portable and secondly it is wrong. The VAX should be - using floatformat and associated methods to identify and handle - invalid floating-point values. Adding to the poor target's woes - there is no floatformat_vax_{f,d} and no TARGET_FLOAT_FORMAT - et.al.. */ - -/* FIXME: cagney/2002-01-19: It turns out that the only thing that - uses this macro is the vax disassembler code (so how old is this - target?). This target should instead be using the opcodes - disassembler. That allowing the macro to be eliminated. */ - -#define INVALID_FLOAT(p, len) ((*(short *) p & 0xff80) == 0x8000) - -/* Vax instructions are never longer than this. */ -#define MAXLEN 62 - -/* Number of elements in the opcode table. */ -#define NOPCODES (sizeof votstrs / sizeof votstrs[0]) - -static unsigned char *print_insn_arg (); - -static const char * -vax_register_name (int regno) -{ - static char *register_names[] = - { - "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", - "r8", "r9", "r10", "r11", "ap", "fp", "sp", "pc", - "ps", - }; - - if (regno < 0) - return (NULL); - if (regno >= (sizeof(register_names) / sizeof(*register_names))) - return (NULL); - return (register_names[regno]); -} - -static int -vax_register_byte (int regno) -{ - return (regno * 4); -} - -static int -vax_register_raw_size (int regno) -{ - return (4); -} - -static int -vax_register_virtual_size (int regno) -{ - return (4); -} - -static struct type * -vax_register_virtual_type (int regno) -{ - return (builtin_type_int); -} - -static void -vax_frame_init_saved_regs (struct frame_info *frame) -{ - int regnum, regmask; - CORE_ADDR next_addr; - - if (frame->saved_regs) - return; - - frame_saved_regs_zalloc (frame); - - regmask = read_memory_integer (frame->frame + 4, 4) >> 16; - - next_addr = frame->frame + 16; - - /* regmask's low bit is for register 0, which is the first one - what would be pushed. */ - for (regnum = 0; regnum < VAX_AP_REGNUM; regnum++) - { - if (regmask & (1 << regnum)) - frame->saved_regs[regnum] = next_addr += 4; - } - - frame->saved_regs[SP_REGNUM] = next_addr + 4; - if (regmask & (1 << FP_REGNUM)) - frame->saved_regs[SP_REGNUM] += - 4 + (4 * read_memory_integer (next_addr + 4, 4)); - - frame->saved_regs[PC_REGNUM] = frame->frame + 16; - frame->saved_regs[FP_REGNUM] = frame->frame + 12; - frame->saved_regs[VAX_AP_REGNUM] = frame->frame + 8; - frame->saved_regs[PS_REGNUM] = frame->frame + 4; -} - -static CORE_ADDR -vax_frame_saved_pc (struct frame_info *frame) -{ - if (frame->signal_handler_caller) - return (sigtramp_saved_pc (frame)); /* XXXJRT */ - - return (read_memory_integer (frame->frame + 16, 4)); -} - -CORE_ADDR -vax_frame_args_address_correct (struct frame_info *frame) -{ - /* Cannot find the AP register value directly from the FP value. Must - find it saved in the frame called by this one, or in the AP register - for the innermost frame. However, there is no way to tell the - difference between the innermost frame and a frame for which we - just don't know the frame that it called (e.g. "info frame 0x7ffec789"). - For the sake of argument, suppose that the stack is somewhat trashed - (which is one reason that "info frame" exists). So, return 0 (indicating - we don't know the address of the arglist) if we don't know what frame - this frame calls. */ - if (frame->next) - return (read_memory_integer (frame->next->frame + 8, 4)); - - return (0); -} - -static CORE_ADDR -vax_frame_args_address (struct frame_info *frame) -{ - /* In most of GDB, getting the args address is too important to - just say "I don't know". This is sometimes wrong for functions - that aren't on top of the stack, but c'est la vie. */ - if (frame->next) - return (read_memory_integer (frame->next->frame + 8, 4)); - - return (read_register (VAX_AP_REGNUM)); -} - -static CORE_ADDR -vax_frame_locals_address (struct frame_info *frame) -{ - return (frame->frame); -} - -static int -vax_frame_num_args (struct frame_info *fi) -{ - return (0xff & read_memory_integer (FRAME_ARGS_ADDRESS (fi), 1)); -} - -static CORE_ADDR -vax_frame_chain (struct frame_info *frame) -{ - /* In the case of the VAX, the frame's nominal address is the FP value, - and 12 bytes later comes the saved previous FP value as a 4-byte word. */ - if (inside_entry_file (frame->pc)) - return (0); - - return (read_memory_integer (frame->frame + 12, 4)); -} - -static void -vax_push_dummy_frame (void) -{ - CORE_ADDR sp = read_register (SP_REGNUM); - int regnum; - - sp = push_word (sp, 0); /* arglist */ - for (regnum = 11; regnum >= 0; regnum--) - sp = push_word (sp, read_register (regnum)); - sp = push_word (sp, read_register (PC_REGNUM)); - sp = push_word (sp, read_register (FP_REGNUM)); - sp = push_word (sp, read_register (VAX_AP_REGNUM)); - sp = push_word (sp, (read_register (PS_REGNUM) & 0xffef) + 0x2fff0000); - sp = push_word (sp, 0); - write_register (SP_REGNUM, sp); - write_register (FP_REGNUM, sp); - write_register (VAX_AP_REGNUM, sp + (17 * 4)); -} - -static void -vax_pop_frame (void) -{ - CORE_ADDR fp = read_register (FP_REGNUM); - int regnum; - int regmask = read_memory_integer (fp + 4, 4); - - write_register (PS_REGNUM, - (regmask & 0xffff) - | (read_register (PS_REGNUM) & 0xffff0000)); - write_register (PC_REGNUM, read_memory_integer (fp + 16, 4)); - write_register (FP_REGNUM, read_memory_integer (fp + 12, 4)); - write_register (VAX_AP_REGNUM, read_memory_integer (fp + 8, 4)); - fp += 16; - for (regnum = 0; regnum < 12; regnum++) - if (regmask & (0x10000 << regnum)) - write_register (regnum, read_memory_integer (fp += 4, 4)); - fp = fp + 4 + ((regmask >> 30) & 3); - if (regmask & 0x20000000) - { - regnum = read_memory_integer (fp, 4); - fp += (regnum + 1) * 4; - } - write_register (SP_REGNUM, fp); - flush_cached_frames (); -} - -/* The VAX call dummy sequence: - - calls #69, @#32323232 - bpt - - It is 8 bytes long. The address and argc are patched by - vax_fix_call_dummy(). */ -static LONGEST vax_call_dummy_words[] = { 0x329f69fb, 0x03323232 }; -static int sizeof_vax_call_dummy_words = sizeof(vax_call_dummy_words); - -static void -vax_fix_call_dummy (char *dummy, CORE_ADDR pc, CORE_ADDR fun, int nargs, - struct value **args, struct type *type, int gcc_p) -{ - dummy[1] = nargs; - store_unsigned_integer (dummy + 3, 4, fun); -} - -static void -vax_store_struct_return (CORE_ADDR addr, CORE_ADDR sp) -{ - write_register (1, addr); -} - -static void -vax_extract_return_value (struct type *valtype, char *regbuf, char *valbuf) -{ - memcpy (valbuf, regbuf + REGISTER_BYTE (0), TYPE_LENGTH (valtype)); -} - -static void -vax_store_return_value (struct type *valtype, char *valbuf) -{ - write_register_bytes (0, valbuf, TYPE_LENGTH (valtype)); -} - -static CORE_ADDR -vax_extract_struct_value_address (char *regbuf) -{ - return (extract_address (regbuf + REGISTER_BYTE (0), REGISTER_RAW_SIZE (0))); -} - -static const unsigned char * -vax_breakpoint_from_pc (CORE_ADDR *pcptr, int *lenptr) -{ - static const unsigned char vax_breakpoint[] = { 3 }; - - *lenptr = sizeof(vax_breakpoint); - return (vax_breakpoint); -} - -/* Advance PC across any function entry prologue instructions - to reach some "real" code. */ - -static CORE_ADDR -vax_skip_prologue (CORE_ADDR pc) -{ - register int op = (unsigned char) read_memory_integer (pc, 1); - if (op == 0x11) - pc += 2; /* skip brb */ - if (op == 0x31) - pc += 3; /* skip brw */ - if (op == 0xC2 - && ((unsigned char) read_memory_integer (pc + 2, 1)) == 0x5E) - pc += 3; /* skip subl2 */ - if (op == 0x9E - && ((unsigned char) read_memory_integer (pc + 1, 1)) == 0xAE - && ((unsigned char) read_memory_integer (pc + 3, 1)) == 0x5E) - pc += 4; /* skip movab */ - if (op == 0x9E - && ((unsigned char) read_memory_integer (pc + 1, 1)) == 0xCE - && ((unsigned char) read_memory_integer (pc + 4, 1)) == 0x5E) - pc += 5; /* skip movab */ - if (op == 0x9E - && ((unsigned char) read_memory_integer (pc + 1, 1)) == 0xEE - && ((unsigned char) read_memory_integer (pc + 6, 1)) == 0x5E) - pc += 7; /* skip movab */ - return pc; -} - -static CORE_ADDR -vax_saved_pc_after_call (struct frame_info *frame) -{ - return (FRAME_SAVED_PC(frame)); -} - -/* Print the vax instruction at address MEMADDR in debugged memory, - from disassembler info INFO. - Returns length of the instruction, in bytes. */ - -static int -vax_print_insn (CORE_ADDR memaddr, disassemble_info *info) -{ - unsigned char buffer[MAXLEN]; - register int i; - register unsigned char *p; - const char *d; - - int status = (*info->read_memory_func) (memaddr, buffer, MAXLEN, info); - if (status != 0) - { - (*info->memory_error_func) (status, memaddr, info); - return -1; - } - - for (i = 0; i < NOPCODES; i++) - if (votstrs[i].detail.code == buffer[0] - || votstrs[i].detail.code == *(unsigned short *) buffer) - break; - - /* Handle undefined instructions. */ - if (i == NOPCODES) - { - (*info->fprintf_func) (info->stream, "0%o", buffer[0]); - return 1; - } - - (*info->fprintf_func) (info->stream, "%s", votstrs[i].name); - - /* Point at first byte of argument data, - and at descriptor for first argument. */ - p = buffer + 1 + (votstrs[i].detail.code >= 0x100); - d = votstrs[i].detail.args; - - if (*d) - (*info->fprintf_func) (info->stream, " "); - - while (*d) - { - p = print_insn_arg (d, p, memaddr + (p - buffer), info); - d += 2; - if (*d) - (*info->fprintf_func) (info->stream, ","); - } - return p - buffer; -} - -static unsigned char * -print_insn_arg (char *d, register char *p, CORE_ADDR addr, - disassemble_info *info) -{ - register int regnum = *p & 0xf; - float floatlitbuf; - - if (*d == 'b') - { - if (d[1] == 'b') - (*info->fprintf_func) (info->stream, "0x%x", addr + *p++ + 1); - else - { - (*info->fprintf_func) (info->stream, "0x%x", addr + *(short *) p + 2); - p += 2; - } - } - else - switch ((*p++ >> 4) & 0xf) - { - case 0: - case 1: - case 2: - case 3: /* Literal mode */ - if (d[1] == 'd' || d[1] == 'f' || d[1] == 'g' || d[1] == 'h') - { - *(int *) &floatlitbuf = 0x4000 + ((p[-1] & 0x3f) << 4); - (*info->fprintf_func) (info->stream, "$%f", floatlitbuf); - } - else - (*info->fprintf_func) (info->stream, "$%d", p[-1] & 0x3f); - break; - - case 4: /* Indexed */ - p = (char *) print_insn_arg (d, p, addr + 1, info); - (*info->fprintf_func) (info->stream, "[%s]", REGISTER_NAME (regnum)); - break; - - case 5: /* Register */ - (*info->fprintf_func) (info->stream, REGISTER_NAME (regnum)); - break; - - case 7: /* Autodecrement */ - (*info->fprintf_func) (info->stream, "-"); - case 6: /* Register deferred */ - (*info->fprintf_func) (info->stream, "(%s)", REGISTER_NAME (regnum)); - break; - - case 9: /* Autoincrement deferred */ - (*info->fprintf_func) (info->stream, "@"); - if (regnum == PC_REGNUM) - { - (*info->fprintf_func) (info->stream, "#"); - info->target = *(long *) p; - (*info->print_address_func) (info->target, info); - p += 4; - break; - } - case 8: /* Autoincrement */ - if (regnum == PC_REGNUM) - { - (*info->fprintf_func) (info->stream, "#"); - switch (d[1]) - { - case 'b': - (*info->fprintf_func) (info->stream, "%d", *p++); - break; - - case 'w': - (*info->fprintf_func) (info->stream, "%d", *(short *) p); - p += 2; - break; - - case 'l': - (*info->fprintf_func) (info->stream, "%d", *(long *) p); - p += 4; - break; - - case 'q': - (*info->fprintf_func) (info->stream, "0x%x%08x", - ((long *) p)[1], ((long *) p)[0]); - p += 8; - break; - - case 'o': - (*info->fprintf_func) (info->stream, "0x%x%08x%08x%08x", - ((long *) p)[3], ((long *) p)[2], - ((long *) p)[1], ((long *) p)[0]); - p += 16; - break; - - case 'f': - if (INVALID_FLOAT (p, 4)) - (*info->fprintf_func) (info->stream, - "<<invalid float 0x%x>>", - *(int *) p); - else - (*info->fprintf_func) (info->stream, "%f", *(float *) p); - p += 4; - break; - - case 'd': - if (INVALID_FLOAT (p, 8)) - (*info->fprintf_func) (info->stream, - "<<invalid float 0x%x%08x>>", - ((long *) p)[1], ((long *) p)[0]); - else - (*info->fprintf_func) (info->stream, "%f", *(double *) p); - p += 8; - break; - - case 'g': - (*info->fprintf_func) (info->stream, "g-float"); - p += 8; - break; - - case 'h': - (*info->fprintf_func) (info->stream, "h-float"); - p += 16; - break; - - } - } - else - (*info->fprintf_func) (info->stream, "(%s)+", REGISTER_NAME (regnum)); - break; - - case 11: /* Byte displacement deferred */ - (*info->fprintf_func) (info->stream, "@"); - case 10: /* Byte displacement */ - if (regnum == PC_REGNUM) - { - info->target = addr + *p + 2; - (*info->print_address_func) (info->target, info); - } - else - (*info->fprintf_func) (info->stream, "%d(%s)", *p, REGISTER_NAME (regnum)); - p += 1; - break; - - case 13: /* Word displacement deferred */ - (*info->fprintf_func) (info->stream, "@"); - case 12: /* Word displacement */ - if (regnum == PC_REGNUM) - { - info->target = addr + *(short *) p + 3; - (*info->print_address_func) (info->target, info); - } - else - (*info->fprintf_func) (info->stream, "%d(%s)", - *(short *) p, REGISTER_NAME (regnum)); - p += 2; - break; - - case 15: /* Long displacement deferred */ - (*info->fprintf_func) (info->stream, "@"); - case 14: /* Long displacement */ - if (regnum == PC_REGNUM) - { - info->target = addr + *(short *) p + 5; - (*info->print_address_func) (info->target, info); - } - else - (*info->fprintf_func) (info->stream, "%d(%s)", - *(long *) p, REGISTER_NAME (regnum)); - p += 4; - } - - return (unsigned char *) p; -} - -/* 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 * -vax_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 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 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 */ - set_gdbarch_num_regs (gdbarch, VAX_NUM_REGS); - set_gdbarch_sp_regnum (gdbarch, VAX_SP_REGNUM); - set_gdbarch_fp_regnum (gdbarch, VAX_FP_REGNUM); - set_gdbarch_pc_regnum (gdbarch, VAX_PC_REGNUM); - set_gdbarch_ps_regnum (gdbarch, VAX_PS_REGNUM); - - set_gdbarch_register_name (gdbarch, vax_register_name); - set_gdbarch_register_size (gdbarch, VAX_REGISTER_SIZE); - set_gdbarch_register_bytes (gdbarch, VAX_REGISTER_BYTES); - set_gdbarch_register_byte (gdbarch, vax_register_byte); - set_gdbarch_register_raw_size (gdbarch, vax_register_raw_size); - set_gdbarch_max_register_raw_size (gdbarch, VAX_MAX_REGISTER_RAW_SIZE); - set_gdbarch_register_virtual_size (gdbarch, vax_register_virtual_size); - set_gdbarch_max_register_virtual_size (gdbarch, - VAX_MAX_REGISTER_VIRTUAL_SIZE); - set_gdbarch_register_virtual_type (gdbarch, vax_register_virtual_type); - - /* Frame and stack info */ - set_gdbarch_skip_prologue (gdbarch, vax_skip_prologue); - set_gdbarch_saved_pc_after_call (gdbarch, vax_saved_pc_after_call); - - set_gdbarch_frame_num_args (gdbarch, vax_frame_num_args); - set_gdbarch_frameless_function_invocation (gdbarch, - generic_frameless_function_invocation_not); - - set_gdbarch_frame_chain (gdbarch, vax_frame_chain); - set_gdbarch_frame_chain_valid (gdbarch, func_frame_chain_valid); - set_gdbarch_frame_saved_pc (gdbarch, vax_frame_saved_pc); - - set_gdbarch_frame_args_address (gdbarch, vax_frame_args_address); - set_gdbarch_frame_locals_address (gdbarch, vax_frame_locals_address); - - set_gdbarch_frame_init_saved_regs (gdbarch, vax_frame_init_saved_regs); - - set_gdbarch_frame_args_skip (gdbarch, 4); - - set_gdbarch_inner_than (gdbarch, core_addr_lessthan); - - /* Return value info */ - set_gdbarch_store_struct_return (gdbarch, vax_store_struct_return); - set_gdbarch_deprecated_extract_return_value (gdbarch, vax_extract_return_value); - set_gdbarch_deprecated_store_return_value (gdbarch, vax_store_return_value); - set_gdbarch_deprecated_extract_struct_value_address (gdbarch, vax_extract_struct_value_address); - - /* Call dummy info */ - set_gdbarch_push_dummy_frame (gdbarch, vax_push_dummy_frame); - set_gdbarch_pop_frame (gdbarch, vax_pop_frame); - set_gdbarch_call_dummy_location (gdbarch, ON_STACK); - set_gdbarch_call_dummy_p (gdbarch, 1); - set_gdbarch_call_dummy_words (gdbarch, vax_call_dummy_words); - set_gdbarch_sizeof_call_dummy_words (gdbarch, sizeof_vax_call_dummy_words); - set_gdbarch_fix_call_dummy (gdbarch, vax_fix_call_dummy); - set_gdbarch_call_dummy_start_offset (gdbarch, 0); - set_gdbarch_call_dummy_breakpoint_offset_p (gdbarch, 1); - set_gdbarch_call_dummy_breakpoint_offset (gdbarch, 7); - 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_breakpoint_from_pc (gdbarch, vax_breakpoint_from_pc); - set_gdbarch_decr_pc_after_break (gdbarch, 0); - - /* Misc info */ - set_gdbarch_function_start_offset (gdbarch, 2); - set_gdbarch_believe_pcc_promotion (gdbarch, 1); - - /* Hook in ABI-specific overrides, if they have been registered. */ - gdbarch_init_osabi (info, gdbarch, osabi); - - return (gdbarch); -} - -static void -vax_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, "vax_dump_tdep: OS ABI = %s\n", - gdbarch_osabi_name (tdep->osabi)); -} - -void -_initialize_vax_tdep (void) -{ - gdbarch_register (bfd_arch_vax, vax_gdbarch_init, vax_dump_tdep); - - tm_print_insn = vax_print_insn; -} |