2004-05-09 00:52:43 +02:00
|
|
|
|
/* Target-dependent code for the VAX.
|
2004-01-17 19:45:25 +01:00
|
|
|
|
|
2007-01-09 18:59:20 +01:00
|
|
|
|
Copyright (C) 1986, 1989, 1991, 1992, 1995, 1996, 1998, 1999, 2000, 2002,
|
2008-01-01 23:53:26 +01:00
|
|
|
|
2003, 2004, 2005, 2007, 2008 Free Software Foundation, Inc.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
This file is part of GDB.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
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
|
2007-08-23 20:08:50 +02:00
|
|
|
|
the Free Software Foundation; either version 3 of the License, or
|
1999-07-07 22:19:36 +02:00
|
|
|
|
(at your option) any later version.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
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.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
You should have received a copy of the GNU General Public License
|
2007-08-23 20:08:50 +02:00
|
|
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
#include "defs.h"
|
2004-05-09 00:52:43 +02:00
|
|
|
|
#include "arch-utils.h"
|
|
|
|
|
#include "dis-asm.h"
|
2005-11-01 00:35:52 +01:00
|
|
|
|
#include "floatformat.h"
|
2000-11-09 07:48:48 +01:00
|
|
|
|
#include "frame.h"
|
2004-04-12 21:49:48 +02:00
|
|
|
|
#include "frame-base.h"
|
|
|
|
|
#include "frame-unwind.h"
|
2004-05-09 00:52:43 +02:00
|
|
|
|
#include "gdbcore.h"
|
|
|
|
|
#include "gdbtypes.h"
|
2003-01-05 00:38:46 +01:00
|
|
|
|
#include "osabi.h"
|
2004-05-09 00:52:43 +02:00
|
|
|
|
#include "regcache.h"
|
2004-04-15 17:03:30 +02:00
|
|
|
|
#include "regset.h"
|
2004-05-09 00:52:43 +02:00
|
|
|
|
#include "trad-frame.h"
|
|
|
|
|
#include "value.h"
|
2004-04-15 17:03:30 +02:00
|
|
|
|
|
|
|
|
|
#include "gdb_string.h"
|
2002-04-23 02:53:31 +02:00
|
|
|
|
|
|
|
|
|
#include "vax-tdep.h"
|
|
|
|
|
|
* vax-tdep.h: Update copyright year. Adjust comments.
(VAX_REGISTER_SIZE, VAX_REGISTER_BYTES, VAX_MAX_REGISTER_RAW_SIZE,
VAX_MAX_REGISTER_VIRTUAL_SIZE): Remove macros.
(vax_regnum): New enum. Replacing...
(VAX_AP_REGNUM, VAX_FP_REGNUM, VAX_SP_REGNUM, VAX_PC_REGNUM)
(VAX_PS_REGNUM): ... these removed macros.
* vax-tdep.c (vax_register_name): Remove prototype.
(vax_register_name): Reorganize somewhat. Use ARRAY_SIZE.
(vax_register_byte, vax_register_raw_size,
vax_register_virtual_size, vax_register_virtual_type): Remove
functions.
(vax_register_type): New function.
(vax_breakpoint_from_pc): Reorganize.
(vax_gdbarch_init): Set register_type. Don't set
deprecated_register_size, deprecated_register_bytes,
deprecated_register_byte, deprecated_register_raw_size,
deprecated_max_register_raw_size,
deprecated_register_virtual_size,
deprecated_max_register_virtual_size and
deprecated_register_virtual_type. Add comment on stack direction.
2004-04-12 18:49:35 +02:00
|
|
|
|
/* Return the name of register REGNUM. */
|
|
|
|
|
|
2002-06-18 01:32:36 +02:00
|
|
|
|
static const char *
|
2007-11-02 Markus Deuling <deuling@de.ibm.com>
* gdbarch.sh (register_name): Add gdbarch parameter.
* gdbarch.{c,h}: Regenerate.
* target-descriptions.c (tdesc_register_name): Add gdbarch parameter.
(tdesc_register_name): Replace current_gdbarch by gdbarch.
* target-descriptions.h (tdesc_register_name): Add gdbarch parameter.
* xstormy16-tdep.c (xstormy16_register_name): Add gdbarch parameter.
* vax-tdep.c (vax_register_name): Add gdbarch parameter.
* spu-tdep.c (spu_register_name): Add gdbarch parameter.
* s390-tdep.c (s390_register_name): Add gdbarch parameter.
* mt-tdep.c (mt_register_name): Add gdbarch parameter.
(mt_registers_info): Replace current_gdbarch by gdbarch.
(mt_register_reggroup_p): Add gdbarch to mt_register_name call.
* mips-tdep.c (mips_register_name): Add gdbarch parameter. Replace
current_gdbarch by gdbarch.
(mips_register_name): Add gdbarch to tdesc_register_name call.
* mep-tdep.c (mep_register_name): Add gdbarch parameter. Replace
current_gdbarch by gdbarch.
(mep_register_reggroup_p): Add gdbarch to mep_register_name call.
* m32c-tdep.c (m32c_register_name): Add gdbarch parameter. Replace
current_gdbarch by gdbarch.
* m88k-tdep.c (m88k_register_name): Add gdbarch parameter.
* m68k-tdep.c (m68k_register_name): Add gdbarch parameter.
* m32r-tdep.c (m32r_register_name): Add gdbarch parameter.
(m32r_frame_unwind_cache): Use get_frame_arch to get at the current
architecture by frame_info.
* iq2000-tdep.c (iq2000_register_name): Add gdbarch parameter.
* ia64-tdep.c (ia64_register_name): Add gdbarch parameter.
* hppa-tdep.c (hppa32_register_name, hppa64_register_name): Add gdbarch
parameter.
* h8300-tdep.c (h8300_register_name, h8300s_register_name)
(h8300sx_register_name): Add gdbarch parameter.
* cris-tdep.c (cris_register_name, crisv32_register_name): Add
gdbarch parameter. Replace current_gdbarch by gdbarch.
(cris_gdbarch_init): Replace current_gdbarch by gdbarch (comment).
* avr-tdep.c (avr_register_name): Add gdbarch parameter.
* arm-tdep.c (arm_register_name): Add gdbarch paramete
* amd64-tdep.c (amd64_register_name): Add gdbarch parameter. Update
caller.
* amd64-tdep.h (amd64_register_name): Add gdbarch parameter.
* amd64-linux-tdep.c (amd64_linux_register_name): Add gdbarch parameter.
* alpha-tdep.c (alpha_register_name): Add gdbarch parameter.
(alpha_cannot_fetch_register, alpha_cannot_store_register): Update call
of alpha_register_name.
* frv-tdep.c (frv_register_name): Add gdbarch parameter.
* i386-tdep.c (i386_register_name): Add gdbarch parameter. Replace
current_gdbarch by gdbarch.
(i386_register_type): Replace ?current_gdbarch by gdbarch.
* i386-tdep.h (i386_register_name): Add gdbarch parameter.
* i386-linux-tdep.c (i386_linux_register_name): Add gdbarch parameter.
* m68hc11-tdep.c (m68hc11_register_name): Add gdbarch parameter.
(m68hc11_register_reggroup_p): Add gdbarch to call of
m68hc11_register_name.
* mn10300-tdep.c (mn10300_generic_register_name, am33_register_name)
(am33_2_register_name): Add gdbarch parameter.
(mn10300_frame_unwind_cache): Use get_frame_arch to get at the current
architecture by frame_info.
(mn10300_dump_tdep): Replace current_gdbarch by gdbarch.
* rs6000-tdep.c (rs6000_register_name): Add gdbarch parameter. Replace
current_gdbarch by gdbarch.
* score-tdep.c (score_register_name): Add gdbarch parameter.
(score_return_value, score_push_dummy_call): Replace current_gdbarch
by gdbarch.
* sh64-tdep.c (sh64_register_name): Add gdbarch parameter.
(sh64_compact_reg_base_num, sh64_register_convert_to_virtual)
(sh64_register_convert_to_raw, sh64_fv_reg_base_num)
(sh64_dr_reg_base_num, sh64_fpp_reg_base_num): Add gdbarch parameter
and update caller. Replace current_gdbarch by gdbarch.
(sh64_extract_return_value, sh64_store_return_value): Use
get_regcache_arch to get at the current architecture by regcache.
* sh-tdep.c (sh_sh_register_name, sh_sh3_register_name)
(sh_sh3e_register_name, sh_sh2e_register_name, sh_sh2a_register_name)
(sh_sh2a_nofpu_register_name, sh_sh_dsp_register_name)
(sh_sh3_dsp_register_name, sh_sh4_register_name)
(sh_sh4_nofpu_register_name, sh_sh4al_dsp_register_name): Add gdbarch
parameter.
(fv_reg_base_num, dr_reg_base_num, sh_justify_value_in_reg)
(sh_next_flt_argreg): Add gdbarch parameter and update caller. Replace
current_gdbarch by gdbarch.
(sh_extract_return_value_fpu, sh_store_return_value_fpu): Use
get_regcache_arch to get at the current architecture by regcache.
* sparc-tdep.c (sparc32_register_name): Add gdbarch parameter.
* sparc64-tdep.c (sparc64_register_name): Add gdbarch parameter.
* v850-tdep.c (v850_register_name, v850e_register_name): Add gdbarch
parameter.
(v850_unwind_sp, v850_unwind_pc): Replace current_gdbarch by gdbarch.
* xtensa-tdep.c (xtensa_register_name): Add gdbarch parameter. Replace
current_gdbarch by gdbarch.
(xtensa_pseudo_register_read, xtensa_pseudo_register_write)
(xtensa_frame_prev_register): Add gdbarch parameter to
xtensa_register_name call.
2007-11-02 15:27:15 +01:00
|
|
|
|
vax_register_name (struct gdbarch *gdbarch, int regnum)
|
2002-04-22 08:56:04 +02:00
|
|
|
|
{
|
|
|
|
|
static char *register_names[] =
|
|
|
|
|
{
|
* vax-tdep.h: Update copyright year. Adjust comments.
(VAX_REGISTER_SIZE, VAX_REGISTER_BYTES, VAX_MAX_REGISTER_RAW_SIZE,
VAX_MAX_REGISTER_VIRTUAL_SIZE): Remove macros.
(vax_regnum): New enum. Replacing...
(VAX_AP_REGNUM, VAX_FP_REGNUM, VAX_SP_REGNUM, VAX_PC_REGNUM)
(VAX_PS_REGNUM): ... these removed macros.
* vax-tdep.c (vax_register_name): Remove prototype.
(vax_register_name): Reorganize somewhat. Use ARRAY_SIZE.
(vax_register_byte, vax_register_raw_size,
vax_register_virtual_size, vax_register_virtual_type): Remove
functions.
(vax_register_type): New function.
(vax_breakpoint_from_pc): Reorganize.
(vax_gdbarch_init): Set register_type. Don't set
deprecated_register_size, deprecated_register_bytes,
deprecated_register_byte, deprecated_register_raw_size,
deprecated_max_register_raw_size,
deprecated_register_virtual_size,
deprecated_max_register_virtual_size and
deprecated_register_virtual_type. Add comment on stack direction.
2004-04-12 18:49:35 +02:00
|
|
|
|
"r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7",
|
|
|
|
|
"r8", "r9", "r10", "r11", "ap", "fp", "sp", "pc",
|
2002-04-22 08:56:04 +02:00
|
|
|
|
"ps",
|
|
|
|
|
};
|
|
|
|
|
|
* vax-tdep.h: Update copyright year. Adjust comments.
(VAX_REGISTER_SIZE, VAX_REGISTER_BYTES, VAX_MAX_REGISTER_RAW_SIZE,
VAX_MAX_REGISTER_VIRTUAL_SIZE): Remove macros.
(vax_regnum): New enum. Replacing...
(VAX_AP_REGNUM, VAX_FP_REGNUM, VAX_SP_REGNUM, VAX_PC_REGNUM)
(VAX_PS_REGNUM): ... these removed macros.
* vax-tdep.c (vax_register_name): Remove prototype.
(vax_register_name): Reorganize somewhat. Use ARRAY_SIZE.
(vax_register_byte, vax_register_raw_size,
vax_register_virtual_size, vax_register_virtual_type): Remove
functions.
(vax_register_type): New function.
(vax_breakpoint_from_pc): Reorganize.
(vax_gdbarch_init): Set register_type. Don't set
deprecated_register_size, deprecated_register_bytes,
deprecated_register_byte, deprecated_register_raw_size,
deprecated_max_register_raw_size,
deprecated_register_virtual_size,
deprecated_max_register_virtual_size and
deprecated_register_virtual_type. Add comment on stack direction.
2004-04-12 18:49:35 +02:00
|
|
|
|
if (regnum >= 0 && regnum < ARRAY_SIZE (register_names))
|
|
|
|
|
return register_names[regnum];
|
2002-04-22 08:56:04 +02:00
|
|
|
|
|
* vax-tdep.h: Update copyright year. Adjust comments.
(VAX_REGISTER_SIZE, VAX_REGISTER_BYTES, VAX_MAX_REGISTER_RAW_SIZE,
VAX_MAX_REGISTER_VIRTUAL_SIZE): Remove macros.
(vax_regnum): New enum. Replacing...
(VAX_AP_REGNUM, VAX_FP_REGNUM, VAX_SP_REGNUM, VAX_PC_REGNUM)
(VAX_PS_REGNUM): ... these removed macros.
* vax-tdep.c (vax_register_name): Remove prototype.
(vax_register_name): Reorganize somewhat. Use ARRAY_SIZE.
(vax_register_byte, vax_register_raw_size,
vax_register_virtual_size, vax_register_virtual_type): Remove
functions.
(vax_register_type): New function.
(vax_breakpoint_from_pc): Reorganize.
(vax_gdbarch_init): Set register_type. Don't set
deprecated_register_size, deprecated_register_bytes,
deprecated_register_byte, deprecated_register_raw_size,
deprecated_max_register_raw_size,
deprecated_register_virtual_size,
deprecated_max_register_virtual_size and
deprecated_register_virtual_type. Add comment on stack direction.
2004-04-12 18:49:35 +02:00
|
|
|
|
return NULL;
|
2002-04-22 08:56:04 +02:00
|
|
|
|
}
|
|
|
|
|
|
* vax-tdep.h: Update copyright year. Adjust comments.
(VAX_REGISTER_SIZE, VAX_REGISTER_BYTES, VAX_MAX_REGISTER_RAW_SIZE,
VAX_MAX_REGISTER_VIRTUAL_SIZE): Remove macros.
(vax_regnum): New enum. Replacing...
(VAX_AP_REGNUM, VAX_FP_REGNUM, VAX_SP_REGNUM, VAX_PC_REGNUM)
(VAX_PS_REGNUM): ... these removed macros.
* vax-tdep.c (vax_register_name): Remove prototype.
(vax_register_name): Reorganize somewhat. Use ARRAY_SIZE.
(vax_register_byte, vax_register_raw_size,
vax_register_virtual_size, vax_register_virtual_type): Remove
functions.
(vax_register_type): New function.
(vax_breakpoint_from_pc): Reorganize.
(vax_gdbarch_init): Set register_type. Don't set
deprecated_register_size, deprecated_register_bytes,
deprecated_register_byte, deprecated_register_raw_size,
deprecated_max_register_raw_size,
deprecated_register_virtual_size,
deprecated_max_register_virtual_size and
deprecated_register_virtual_type. Add comment on stack direction.
2004-04-12 18:49:35 +02:00
|
|
|
|
/* Return the GDB type object for the "standard" data type of data in
|
|
|
|
|
register REGNUM. */
|
2002-04-22 08:56:04 +02:00
|
|
|
|
|
2002-04-23 02:53:31 +02:00
|
|
|
|
static struct type *
|
* vax-tdep.h: Update copyright year. Adjust comments.
(VAX_REGISTER_SIZE, VAX_REGISTER_BYTES, VAX_MAX_REGISTER_RAW_SIZE,
VAX_MAX_REGISTER_VIRTUAL_SIZE): Remove macros.
(vax_regnum): New enum. Replacing...
(VAX_AP_REGNUM, VAX_FP_REGNUM, VAX_SP_REGNUM, VAX_PC_REGNUM)
(VAX_PS_REGNUM): ... these removed macros.
* vax-tdep.c (vax_register_name): Remove prototype.
(vax_register_name): Reorganize somewhat. Use ARRAY_SIZE.
(vax_register_byte, vax_register_raw_size,
vax_register_virtual_size, vax_register_virtual_type): Remove
functions.
(vax_register_type): New function.
(vax_breakpoint_from_pc): Reorganize.
(vax_gdbarch_init): Set register_type. Don't set
deprecated_register_size, deprecated_register_bytes,
deprecated_register_byte, deprecated_register_raw_size,
deprecated_max_register_raw_size,
deprecated_register_virtual_size,
deprecated_max_register_virtual_size and
deprecated_register_virtual_type. Add comment on stack direction.
2004-04-12 18:49:35 +02:00
|
|
|
|
vax_register_type (struct gdbarch *gdbarch, int regnum)
|
2002-04-22 08:56:04 +02:00
|
|
|
|
{
|
* vax-tdep.h: Update copyright year. Adjust comments.
(VAX_REGISTER_SIZE, VAX_REGISTER_BYTES, VAX_MAX_REGISTER_RAW_SIZE,
VAX_MAX_REGISTER_VIRTUAL_SIZE): Remove macros.
(vax_regnum): New enum. Replacing...
(VAX_AP_REGNUM, VAX_FP_REGNUM, VAX_SP_REGNUM, VAX_PC_REGNUM)
(VAX_PS_REGNUM): ... these removed macros.
* vax-tdep.c (vax_register_name): Remove prototype.
(vax_register_name): Reorganize somewhat. Use ARRAY_SIZE.
(vax_register_byte, vax_register_raw_size,
vax_register_virtual_size, vax_register_virtual_type): Remove
functions.
(vax_register_type): New function.
(vax_breakpoint_from_pc): Reorganize.
(vax_gdbarch_init): Set register_type. Don't set
deprecated_register_size, deprecated_register_bytes,
deprecated_register_byte, deprecated_register_raw_size,
deprecated_max_register_raw_size,
deprecated_register_virtual_size,
deprecated_max_register_virtual_size and
deprecated_register_virtual_type. Add comment on stack direction.
2004-04-12 18:49:35 +02:00
|
|
|
|
return builtin_type_int;
|
2002-04-22 08:56:04 +02:00
|
|
|
|
}
|
|
|
|
|
|
2004-04-15 17:03:30 +02:00
|
|
|
|
/* Core file support. */
|
|
|
|
|
|
|
|
|
|
/* Supply register REGNUM from the buffer specified by GREGS and LEN
|
|
|
|
|
in the general-purpose register set REGSET to register cache
|
|
|
|
|
REGCACHE. If REGNUM is -1, do this for all registers in REGSET. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
vax_supply_gregset (const struct regset *regset, struct regcache *regcache,
|
|
|
|
|
int regnum, const void *gregs, size_t len)
|
|
|
|
|
{
|
2005-05-09 22:00:40 +02:00
|
|
|
|
const gdb_byte *regs = gregs;
|
2004-04-15 17:03:30 +02:00
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
for (i = 0; i < VAX_NUM_REGS; i++)
|
|
|
|
|
{
|
|
|
|
|
if (regnum == i || regnum == -1)
|
|
|
|
|
regcache_raw_supply (regcache, i, regs + i * 4);
|
|
|
|
|
}
|
|
|
|
|
}
|
2002-04-22 23:32:05 +02:00
|
|
|
|
|
2004-04-15 17:03:30 +02:00
|
|
|
|
/* VAX register set. */
|
|
|
|
|
|
|
|
|
|
static struct regset vax_gregset =
|
|
|
|
|
{
|
|
|
|
|
NULL,
|
|
|
|
|
vax_supply_gregset
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* Return the appropriate register set for the core section identified
|
|
|
|
|
by SECT_NAME and SECT_SIZE. */
|
|
|
|
|
|
|
|
|
|
static const struct regset *
|
|
|
|
|
vax_regset_from_core_section (struct gdbarch *gdbarch,
|
|
|
|
|
const char *sect_name, size_t sect_size)
|
|
|
|
|
{
|
|
|
|
|
if (strcmp (sect_name, ".reg") == 0 && sect_size >= VAX_NUM_REGS * 4)
|
|
|
|
|
return &vax_gregset;
|
|
|
|
|
|
|
|
|
|
return NULL;
|
|
|
|
|
}
|
|
|
|
|
|
2004-06-26 12:25:20 +02:00
|
|
|
|
/* The VAX UNIX calling convention uses R1 to pass a structure return
|
2004-04-14 19:48:38 +02:00
|
|
|
|
value address instead of passing it as a first (hidden) argument as
|
|
|
|
|
the VMS calling convention suggests. */
|
|
|
|
|
|
* vax-tdep.c (vax_store_arguments, vax_push_dummy_call)
(vax_unwind_dummy_id): New functions.
(vax_push_dummy_frame, vax_pop_frame): Remove functions.
(vax_call_dummy_words, sizeof_vax_call_dummy_words): Remove
variables.
(vax_fix_call_dummy): Remove function.
(vax_gdbarch_init): Set push_dummy_call and unwind_dummy_id.
Don't set deprecated_push_dummy_frame, deprecated_pop_frame,
call_dummy_location, deprecated_call_dummy_words,
deprecated_sizeof_call_dummy_words,
deprecated_call_dummy_breakpoint_offset,
deprecated_use_generic_dummy_frames, deprecated_pc_in_call_dummy,
and deprecated_dummy_write_sp.
2004-04-14 12:58:39 +02:00
|
|
|
|
static CORE_ADDR
|
|
|
|
|
vax_store_arguments (struct regcache *regcache, int nargs,
|
2004-04-14 19:48:38 +02:00
|
|
|
|
struct value **args, CORE_ADDR sp)
|
2002-04-22 23:32:05 +02:00
|
|
|
|
{
|
2005-05-09 22:00:40 +02:00
|
|
|
|
gdb_byte buf[4];
|
* vax-tdep.c (vax_store_arguments, vax_push_dummy_call)
(vax_unwind_dummy_id): New functions.
(vax_push_dummy_frame, vax_pop_frame): Remove functions.
(vax_call_dummy_words, sizeof_vax_call_dummy_words): Remove
variables.
(vax_fix_call_dummy): Remove function.
(vax_gdbarch_init): Set push_dummy_call and unwind_dummy_id.
Don't set deprecated_push_dummy_frame, deprecated_pop_frame,
call_dummy_location, deprecated_call_dummy_words,
deprecated_sizeof_call_dummy_words,
deprecated_call_dummy_breakpoint_offset,
deprecated_use_generic_dummy_frames, deprecated_pc_in_call_dummy,
and deprecated_dummy_write_sp.
2004-04-14 12:58:39 +02:00
|
|
|
|
int count = 0;
|
|
|
|
|
int i;
|
2002-04-22 23:32:05 +02:00
|
|
|
|
|
* vax-tdep.c (vax_store_arguments, vax_push_dummy_call)
(vax_unwind_dummy_id): New functions.
(vax_push_dummy_frame, vax_pop_frame): Remove functions.
(vax_call_dummy_words, sizeof_vax_call_dummy_words): Remove
variables.
(vax_fix_call_dummy): Remove function.
(vax_gdbarch_init): Set push_dummy_call and unwind_dummy_id.
Don't set deprecated_push_dummy_frame, deprecated_pop_frame,
call_dummy_location, deprecated_call_dummy_words,
deprecated_sizeof_call_dummy_words,
deprecated_call_dummy_breakpoint_offset,
deprecated_use_generic_dummy_frames, deprecated_pc_in_call_dummy,
and deprecated_dummy_write_sp.
2004-04-14 12:58:39 +02:00
|
|
|
|
/* We create an argument list on the stack, and make the argument
|
|
|
|
|
pointer to it. */
|
2002-04-22 23:32:05 +02:00
|
|
|
|
|
* vax-tdep.c (vax_store_arguments, vax_push_dummy_call)
(vax_unwind_dummy_id): New functions.
(vax_push_dummy_frame, vax_pop_frame): Remove functions.
(vax_call_dummy_words, sizeof_vax_call_dummy_words): Remove
variables.
(vax_fix_call_dummy): Remove function.
(vax_gdbarch_init): Set push_dummy_call and unwind_dummy_id.
Don't set deprecated_push_dummy_frame, deprecated_pop_frame,
call_dummy_location, deprecated_call_dummy_words,
deprecated_sizeof_call_dummy_words,
deprecated_call_dummy_breakpoint_offset,
deprecated_use_generic_dummy_frames, deprecated_pc_in_call_dummy,
and deprecated_dummy_write_sp.
2004-04-14 12:58:39 +02:00
|
|
|
|
/* Push arguments in reverse order. */
|
|
|
|
|
for (i = nargs - 1; i >= 0; i--)
|
2002-04-22 23:32:05 +02:00
|
|
|
|
{
|
2005-02-02 21:31:35 +01:00
|
|
|
|
int len = TYPE_LENGTH (value_enclosing_type (args[i]));
|
* vax-tdep.c (vax_store_arguments, vax_push_dummy_call)
(vax_unwind_dummy_id): New functions.
(vax_push_dummy_frame, vax_pop_frame): Remove functions.
(vax_call_dummy_words, sizeof_vax_call_dummy_words): Remove
variables.
(vax_fix_call_dummy): Remove function.
(vax_gdbarch_init): Set push_dummy_call and unwind_dummy_id.
Don't set deprecated_push_dummy_frame, deprecated_pop_frame,
call_dummy_location, deprecated_call_dummy_words,
deprecated_sizeof_call_dummy_words,
deprecated_call_dummy_breakpoint_offset,
deprecated_use_generic_dummy_frames, deprecated_pc_in_call_dummy,
and deprecated_dummy_write_sp.
2004-04-14 12:58:39 +02:00
|
|
|
|
|
|
|
|
|
sp -= (len + 3) & ~3;
|
|
|
|
|
count += (len + 3) / 4;
|
2005-02-02 22:36:17 +01:00
|
|
|
|
write_memory (sp, value_contents_all (args[i]), len);
|
2002-04-22 23:32:05 +02:00
|
|
|
|
}
|
2002-04-23 01:13:50 +02:00
|
|
|
|
|
* vax-tdep.c (vax_store_arguments, vax_push_dummy_call)
(vax_unwind_dummy_id): New functions.
(vax_push_dummy_frame, vax_pop_frame): Remove functions.
(vax_call_dummy_words, sizeof_vax_call_dummy_words): Remove
variables.
(vax_fix_call_dummy): Remove function.
(vax_gdbarch_init): Set push_dummy_call and unwind_dummy_id.
Don't set deprecated_push_dummy_frame, deprecated_pop_frame,
call_dummy_location, deprecated_call_dummy_words,
deprecated_sizeof_call_dummy_words,
deprecated_call_dummy_breakpoint_offset,
deprecated_use_generic_dummy_frames, deprecated_pc_in_call_dummy,
and deprecated_dummy_write_sp.
2004-04-14 12:58:39 +02:00
|
|
|
|
/* Push argument count. */
|
|
|
|
|
sp -= 4;
|
|
|
|
|
store_unsigned_integer (buf, 4, count);
|
|
|
|
|
write_memory (sp, buf, 4);
|
2002-04-23 01:13:50 +02:00
|
|
|
|
|
* vax-tdep.c (vax_store_arguments, vax_push_dummy_call)
(vax_unwind_dummy_id): New functions.
(vax_push_dummy_frame, vax_pop_frame): Remove functions.
(vax_call_dummy_words, sizeof_vax_call_dummy_words): Remove
variables.
(vax_fix_call_dummy): Remove function.
(vax_gdbarch_init): Set push_dummy_call and unwind_dummy_id.
Don't set deprecated_push_dummy_frame, deprecated_pop_frame,
call_dummy_location, deprecated_call_dummy_words,
deprecated_sizeof_call_dummy_words,
deprecated_call_dummy_breakpoint_offset,
deprecated_use_generic_dummy_frames, deprecated_pc_in_call_dummy,
and deprecated_dummy_write_sp.
2004-04-14 12:58:39 +02:00
|
|
|
|
/* Update the argument pointer. */
|
|
|
|
|
store_unsigned_integer (buf, 4, sp);
|
|
|
|
|
regcache_cooked_write (regcache, VAX_AP_REGNUM, buf);
|
2002-04-23 01:13:50 +02:00
|
|
|
|
|
* vax-tdep.c (vax_store_arguments, vax_push_dummy_call)
(vax_unwind_dummy_id): New functions.
(vax_push_dummy_frame, vax_pop_frame): Remove functions.
(vax_call_dummy_words, sizeof_vax_call_dummy_words): Remove
variables.
(vax_fix_call_dummy): Remove function.
(vax_gdbarch_init): Set push_dummy_call and unwind_dummy_id.
Don't set deprecated_push_dummy_frame, deprecated_pop_frame,
call_dummy_location, deprecated_call_dummy_words,
deprecated_sizeof_call_dummy_words,
deprecated_call_dummy_breakpoint_offset,
deprecated_use_generic_dummy_frames, deprecated_pc_in_call_dummy,
and deprecated_dummy_write_sp.
2004-04-14 12:58:39 +02:00
|
|
|
|
return sp;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static CORE_ADDR
|
2004-06-07 04:02:55 +02:00
|
|
|
|
vax_push_dummy_call (struct gdbarch *gdbarch, struct value *function,
|
* vax-tdep.c (vax_store_arguments, vax_push_dummy_call)
(vax_unwind_dummy_id): New functions.
(vax_push_dummy_frame, vax_pop_frame): Remove functions.
(vax_call_dummy_words, sizeof_vax_call_dummy_words): Remove
variables.
(vax_fix_call_dummy): Remove function.
(vax_gdbarch_init): Set push_dummy_call and unwind_dummy_id.
Don't set deprecated_push_dummy_frame, deprecated_pop_frame,
call_dummy_location, deprecated_call_dummy_words,
deprecated_sizeof_call_dummy_words,
deprecated_call_dummy_breakpoint_offset,
deprecated_use_generic_dummy_frames, deprecated_pc_in_call_dummy,
and deprecated_dummy_write_sp.
2004-04-14 12:58:39 +02:00
|
|
|
|
struct regcache *regcache, CORE_ADDR bp_addr, int nargs,
|
|
|
|
|
struct value **args, CORE_ADDR sp, int struct_return,
|
|
|
|
|
CORE_ADDR struct_addr)
|
|
|
|
|
{
|
|
|
|
|
CORE_ADDR fp = sp;
|
2005-05-09 22:00:40 +02:00
|
|
|
|
gdb_byte buf[4];
|
* vax-tdep.c (vax_store_arguments, vax_push_dummy_call)
(vax_unwind_dummy_id): New functions.
(vax_push_dummy_frame, vax_pop_frame): Remove functions.
(vax_call_dummy_words, sizeof_vax_call_dummy_words): Remove
variables.
(vax_fix_call_dummy): Remove function.
(vax_gdbarch_init): Set push_dummy_call and unwind_dummy_id.
Don't set deprecated_push_dummy_frame, deprecated_pop_frame,
call_dummy_location, deprecated_call_dummy_words,
deprecated_sizeof_call_dummy_words,
deprecated_call_dummy_breakpoint_offset,
deprecated_use_generic_dummy_frames, deprecated_pc_in_call_dummy,
and deprecated_dummy_write_sp.
2004-04-14 12:58:39 +02:00
|
|
|
|
|
|
|
|
|
/* Set up the function arguments. */
|
2004-04-14 19:48:38 +02:00
|
|
|
|
sp = vax_store_arguments (regcache, nargs, args, sp);
|
|
|
|
|
|
|
|
|
|
/* Store return value address. */
|
|
|
|
|
if (struct_return)
|
|
|
|
|
regcache_cooked_write_unsigned (regcache, VAX_R1_REGNUM, struct_addr);
|
* vax-tdep.c (vax_store_arguments, vax_push_dummy_call)
(vax_unwind_dummy_id): New functions.
(vax_push_dummy_frame, vax_pop_frame): Remove functions.
(vax_call_dummy_words, sizeof_vax_call_dummy_words): Remove
variables.
(vax_fix_call_dummy): Remove function.
(vax_gdbarch_init): Set push_dummy_call and unwind_dummy_id.
Don't set deprecated_push_dummy_frame, deprecated_pop_frame,
call_dummy_location, deprecated_call_dummy_words,
deprecated_sizeof_call_dummy_words,
deprecated_call_dummy_breakpoint_offset,
deprecated_use_generic_dummy_frames, deprecated_pc_in_call_dummy,
and deprecated_dummy_write_sp.
2004-04-14 12:58:39 +02:00
|
|
|
|
|
|
|
|
|
/* Store return address in the PC slot. */
|
|
|
|
|
sp -= 4;
|
|
|
|
|
store_unsigned_integer (buf, 4, bp_addr);
|
|
|
|
|
write_memory (sp, buf, 4);
|
|
|
|
|
|
|
|
|
|
/* Store the (fake) frame pointer in the FP slot. */
|
|
|
|
|
sp -= 4;
|
|
|
|
|
store_unsigned_integer (buf, 4, fp);
|
|
|
|
|
write_memory (sp, buf, 4);
|
|
|
|
|
|
|
|
|
|
/* Skip the AP slot. */
|
|
|
|
|
sp -= 4;
|
|
|
|
|
|
|
|
|
|
/* Store register save mask and control bits. */
|
|
|
|
|
sp -= 4;
|
|
|
|
|
store_unsigned_integer (buf, 4, 0);
|
|
|
|
|
write_memory (sp, buf, 4);
|
|
|
|
|
|
|
|
|
|
/* Store condition handler. */
|
|
|
|
|
sp -= 4;
|
|
|
|
|
store_unsigned_integer (buf, 4, 0);
|
|
|
|
|
write_memory (sp, buf, 4);
|
|
|
|
|
|
|
|
|
|
/* Update the stack pointer and frame pointer. */
|
|
|
|
|
store_unsigned_integer (buf, 4, sp);
|
|
|
|
|
regcache_cooked_write (regcache, VAX_SP_REGNUM, buf);
|
|
|
|
|
regcache_cooked_write (regcache, VAX_FP_REGNUM, buf);
|
|
|
|
|
|
|
|
|
|
/* Return the saved (fake) frame pointer. */
|
|
|
|
|
return fp;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static struct frame_id
|
2008-06-28 19:29:04 +02:00
|
|
|
|
vax_dummy_id (struct gdbarch *gdbarch, struct frame_info *this_frame)
|
2002-04-23 01:13:50 +02:00
|
|
|
|
{
|
* vax-tdep.c (vax_store_arguments, vax_push_dummy_call)
(vax_unwind_dummy_id): New functions.
(vax_push_dummy_frame, vax_pop_frame): Remove functions.
(vax_call_dummy_words, sizeof_vax_call_dummy_words): Remove
variables.
(vax_fix_call_dummy): Remove function.
(vax_gdbarch_init): Set push_dummy_call and unwind_dummy_id.
Don't set deprecated_push_dummy_frame, deprecated_pop_frame,
call_dummy_location, deprecated_call_dummy_words,
deprecated_sizeof_call_dummy_words,
deprecated_call_dummy_breakpoint_offset,
deprecated_use_generic_dummy_frames, deprecated_pc_in_call_dummy,
and deprecated_dummy_write_sp.
2004-04-14 12:58:39 +02:00
|
|
|
|
CORE_ADDR fp;
|
|
|
|
|
|
2008-06-28 19:29:04 +02:00
|
|
|
|
fp = get_frame_register_unsigned (this_frame, VAX_FP_REGNUM);
|
|
|
|
|
return frame_id_build (fp, get_frame_pc (this_frame));
|
2002-04-23 01:13:50 +02:00
|
|
|
|
}
|
2002-04-22 21:44:05 +02:00
|
|
|
|
|
* vax-tdep.c (vax_store_arguments, vax_push_dummy_call)
(vax_unwind_dummy_id): New functions.
(vax_push_dummy_frame, vax_pop_frame): Remove functions.
(vax_call_dummy_words, sizeof_vax_call_dummy_words): Remove
variables.
(vax_fix_call_dummy): Remove function.
(vax_gdbarch_init): Set push_dummy_call and unwind_dummy_id.
Don't set deprecated_push_dummy_frame, deprecated_pop_frame,
call_dummy_location, deprecated_call_dummy_words,
deprecated_sizeof_call_dummy_words,
deprecated_call_dummy_breakpoint_offset,
deprecated_use_generic_dummy_frames, deprecated_pc_in_call_dummy,
and deprecated_dummy_write_sp.
2004-04-14 12:58:39 +02:00
|
|
|
|
|
2004-04-14 19:48:38 +02:00
|
|
|
|
static enum return_value_convention
|
2008-04-22 13:03:42 +02:00
|
|
|
|
vax_return_value (struct gdbarch *gdbarch, struct type *func_type,
|
|
|
|
|
struct type *type, struct regcache *regcache,
|
|
|
|
|
gdb_byte *readbuf, const gdb_byte *writebuf)
|
2002-04-22 22:59:28 +02:00
|
|
|
|
{
|
2004-04-14 19:48:38 +02:00
|
|
|
|
int len = TYPE_LENGTH (type);
|
2005-05-09 22:00:40 +02:00
|
|
|
|
gdb_byte buf[8];
|
2002-04-22 22:59:28 +02:00
|
|
|
|
|
2004-04-14 19:48:38 +02:00
|
|
|
|
if (TYPE_CODE (type) == TYPE_CODE_STRUCT
|
2004-05-17 23:56:19 +02:00
|
|
|
|
|| TYPE_CODE (type) == TYPE_CODE_UNION
|
2004-04-14 19:48:38 +02:00
|
|
|
|
|| TYPE_CODE (type) == TYPE_CODE_ARRAY)
|
2004-05-18 00:12:13 +02:00
|
|
|
|
{
|
|
|
|
|
/* The default on VAX is to return structures in static memory.
|
|
|
|
|
Consequently a function must return the address where we can
|
|
|
|
|
find the return value. */
|
|
|
|
|
|
|
|
|
|
if (readbuf)
|
|
|
|
|
{
|
|
|
|
|
ULONGEST addr;
|
|
|
|
|
|
|
|
|
|
regcache_raw_read_unsigned (regcache, VAX_R0_REGNUM, &addr);
|
|
|
|
|
read_memory (addr, readbuf, len);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return RETURN_VALUE_ABI_RETURNS_ADDRESS;
|
|
|
|
|
}
|
2002-04-22 22:59:28 +02:00
|
|
|
|
|
2004-04-14 19:48:38 +02:00
|
|
|
|
if (readbuf)
|
|
|
|
|
{
|
|
|
|
|
/* Read the contents of R0 and (if necessary) R1. */
|
|
|
|
|
regcache_cooked_read (regcache, VAX_R0_REGNUM, buf);
|
|
|
|
|
if (len > 4)
|
|
|
|
|
regcache_cooked_read (regcache, VAX_R1_REGNUM, buf + 4);
|
|
|
|
|
memcpy (readbuf, buf, len);
|
|
|
|
|
}
|
|
|
|
|
if (writebuf)
|
|
|
|
|
{
|
|
|
|
|
/* Read the contents to R0 and (if necessary) R1. */
|
|
|
|
|
memcpy (buf, writebuf, len);
|
|
|
|
|
regcache_cooked_write (regcache, VAX_R0_REGNUM, buf);
|
|
|
|
|
if (len > 4)
|
|
|
|
|
regcache_cooked_write (regcache, VAX_R1_REGNUM, buf + 4);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return RETURN_VALUE_REGISTER_CONVENTION;
|
2002-04-22 22:59:28 +02:00
|
|
|
|
}
|
|
|
|
|
|
* vax-tdep.h: Update copyright year. Adjust comments.
(VAX_REGISTER_SIZE, VAX_REGISTER_BYTES, VAX_MAX_REGISTER_RAW_SIZE,
VAX_MAX_REGISTER_VIRTUAL_SIZE): Remove macros.
(vax_regnum): New enum. Replacing...
(VAX_AP_REGNUM, VAX_FP_REGNUM, VAX_SP_REGNUM, VAX_PC_REGNUM)
(VAX_PS_REGNUM): ... these removed macros.
* vax-tdep.c (vax_register_name): Remove prototype.
(vax_register_name): Reorganize somewhat. Use ARRAY_SIZE.
(vax_register_byte, vax_register_raw_size,
vax_register_virtual_size, vax_register_virtual_type): Remove
functions.
(vax_register_type): New function.
(vax_breakpoint_from_pc): Reorganize.
(vax_gdbarch_init): Set register_type. Don't set
deprecated_register_size, deprecated_register_bytes,
deprecated_register_byte, deprecated_register_raw_size,
deprecated_max_register_raw_size,
deprecated_register_virtual_size,
deprecated_max_register_virtual_size and
deprecated_register_virtual_type. Add comment on stack direction.
2004-04-12 18:49:35 +02:00
|
|
|
|
|
|
|
|
|
/* Use the program counter to determine the contents and size of a
|
|
|
|
|
breakpoint instruction. Return a pointer to a string of bytes that
|
|
|
|
|
encode a breakpoint instruction, store the length of the string in
|
|
|
|
|
*LEN and optionally adjust *PC to point to the correct memory
|
|
|
|
|
location for inserting the breakpoint. */
|
|
|
|
|
|
2005-05-09 22:00:40 +02:00
|
|
|
|
static const gdb_byte *
|
2007-11-07 07:33:01 +01:00
|
|
|
|
vax_breakpoint_from_pc (struct gdbarch *gdbarch, CORE_ADDR *pc, int *len)
|
2002-06-26 19:20:36 +02:00
|
|
|
|
{
|
2005-05-09 22:00:40 +02:00
|
|
|
|
static gdb_byte break_insn[] = { 3 };
|
2002-06-26 19:20:36 +02:00
|
|
|
|
|
* vax-tdep.h: Update copyright year. Adjust comments.
(VAX_REGISTER_SIZE, VAX_REGISTER_BYTES, VAX_MAX_REGISTER_RAW_SIZE,
VAX_MAX_REGISTER_VIRTUAL_SIZE): Remove macros.
(vax_regnum): New enum. Replacing...
(VAX_AP_REGNUM, VAX_FP_REGNUM, VAX_SP_REGNUM, VAX_PC_REGNUM)
(VAX_PS_REGNUM): ... these removed macros.
* vax-tdep.c (vax_register_name): Remove prototype.
(vax_register_name): Reorganize somewhat. Use ARRAY_SIZE.
(vax_register_byte, vax_register_raw_size,
vax_register_virtual_size, vax_register_virtual_type): Remove
functions.
(vax_register_type): New function.
(vax_breakpoint_from_pc): Reorganize.
(vax_gdbarch_init): Set register_type. Don't set
deprecated_register_size, deprecated_register_bytes,
deprecated_register_byte, deprecated_register_raw_size,
deprecated_max_register_raw_size,
deprecated_register_virtual_size,
deprecated_max_register_virtual_size and
deprecated_register_virtual_type. Add comment on stack direction.
2004-04-12 18:49:35 +02:00
|
|
|
|
*len = sizeof (break_insn);
|
|
|
|
|
return break_insn;
|
2002-06-26 19:20:36 +02:00
|
|
|
|
}
|
|
|
|
|
|
1999-05-05 16:45:51 +02:00
|
|
|
|
/* Advance PC across any function entry prologue instructions
|
|
|
|
|
to reach some "real" code. */
|
|
|
|
|
|
2002-04-23 02:53:31 +02:00
|
|
|
|
static CORE_ADDR
|
2008-01-11 14:20:02 +01:00
|
|
|
|
vax_skip_prologue (struct gdbarch *gdbarch, CORE_ADDR pc)
|
1999-05-05 16:45:51 +02:00
|
|
|
|
{
|
2005-05-09 22:00:40 +02:00
|
|
|
|
gdb_byte op = read_memory_unsigned_integer (pc, 1);
|
2004-05-09 00:52:43 +02:00
|
|
|
|
|
1999-05-05 16:45:51 +02:00
|
|
|
|
if (op == 0x11)
|
1999-07-07 22:19:36 +02:00
|
|
|
|
pc += 2; /* skip brb */
|
1999-05-05 16:45:51 +02:00
|
|
|
|
if (op == 0x31)
|
1999-07-07 22:19:36 +02:00
|
|
|
|
pc += 3; /* skip brw */
|
1999-05-05 16:45:51 +02:00
|
|
|
|
if (op == 0xC2
|
2004-05-09 00:52:43 +02:00
|
|
|
|
&& (read_memory_unsigned_integer (pc + 2, 1)) == 0x5E)
|
1999-07-07 22:19:36 +02:00
|
|
|
|
pc += 3; /* skip subl2 */
|
1999-05-05 16:45:51 +02:00
|
|
|
|
if (op == 0x9E
|
2004-05-09 00:52:43 +02:00
|
|
|
|
&& (read_memory_unsigned_integer (pc + 1, 1)) == 0xAE
|
|
|
|
|
&& (read_memory_unsigned_integer (pc + 3, 1)) == 0x5E)
|
1999-07-07 22:19:36 +02:00
|
|
|
|
pc += 4; /* skip movab */
|
1999-05-05 16:45:51 +02:00
|
|
|
|
if (op == 0x9E
|
2004-05-09 00:52:43 +02:00
|
|
|
|
&& (read_memory_unsigned_integer (pc + 1, 1)) == 0xCE
|
|
|
|
|
&& (read_memory_unsigned_integer (pc + 4, 1)) == 0x5E)
|
1999-07-07 22:19:36 +02:00
|
|
|
|
pc += 5; /* skip movab */
|
1999-05-05 16:45:51 +02:00
|
|
|
|
if (op == 0x9E
|
2004-05-09 00:52:43 +02:00
|
|
|
|
&& (read_memory_unsigned_integer (pc + 1, 1)) == 0xEE
|
|
|
|
|
&& (read_memory_unsigned_integer (pc + 6, 1)) == 0x5E)
|
1999-07-07 22:19:36 +02:00
|
|
|
|
pc += 7; /* skip movab */
|
2004-05-09 00:52:43 +02:00
|
|
|
|
|
1999-05-05 16:45:51 +02:00
|
|
|
|
return pc;
|
|
|
|
|
}
|
2004-04-12 21:49:48 +02:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Unwinding the stack is relatively easy since the VAX has a
|
|
|
|
|
dedicated frame pointer, and frames are set up automatically as the
|
|
|
|
|
result of a function call. Most of the relevant information can be
|
|
|
|
|
inferred from the documentation of the Procedure Call Instructions
|
|
|
|
|
in the VAX MACRO and Instruction Set Reference Manual. */
|
|
|
|
|
|
|
|
|
|
struct vax_frame_cache
|
|
|
|
|
{
|
|
|
|
|
/* Base address. */
|
|
|
|
|
CORE_ADDR base;
|
|
|
|
|
|
|
|
|
|
/* Table of saved registers. */
|
|
|
|
|
struct trad_frame_saved_reg *saved_regs;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
struct vax_frame_cache *
|
2008-06-28 19:29:04 +02:00
|
|
|
|
vax_frame_cache (struct frame_info *this_frame, void **this_cache)
|
2004-04-12 21:49:48 +02:00
|
|
|
|
{
|
|
|
|
|
struct vax_frame_cache *cache;
|
|
|
|
|
CORE_ADDR addr;
|
|
|
|
|
ULONGEST mask;
|
|
|
|
|
int regnum;
|
|
|
|
|
|
|
|
|
|
if (*this_cache)
|
|
|
|
|
return *this_cache;
|
|
|
|
|
|
|
|
|
|
/* Allocate a new cache. */
|
|
|
|
|
cache = FRAME_OBSTACK_ZALLOC (struct vax_frame_cache);
|
2008-06-28 19:29:04 +02:00
|
|
|
|
cache->saved_regs = trad_frame_alloc_saved_regs (this_frame);
|
2004-04-12 21:49:48 +02:00
|
|
|
|
|
|
|
|
|
/* The frame pointer is used as the base for the frame. */
|
2008-06-28 19:29:04 +02:00
|
|
|
|
cache->base = get_frame_register_unsigned (this_frame, VAX_FP_REGNUM);
|
2004-04-12 21:49:48 +02:00
|
|
|
|
if (cache->base == 0)
|
|
|
|
|
return cache;
|
|
|
|
|
|
|
|
|
|
/* The register save mask and control bits determine the layout of
|
|
|
|
|
the stack frame. */
|
2008-06-28 19:29:04 +02:00
|
|
|
|
mask = get_frame_memory_unsigned (this_frame, cache->base + 4, 4) >> 16;
|
2004-04-12 21:49:48 +02:00
|
|
|
|
|
|
|
|
|
/* These are always saved. */
|
|
|
|
|
cache->saved_regs[VAX_PC_REGNUM].addr = cache->base + 16;
|
|
|
|
|
cache->saved_regs[VAX_FP_REGNUM].addr = cache->base + 12;
|
|
|
|
|
cache->saved_regs[VAX_AP_REGNUM].addr = cache->base + 8;
|
|
|
|
|
cache->saved_regs[VAX_PS_REGNUM].addr = cache->base + 4;
|
|
|
|
|
|
|
|
|
|
/* Scan the register save mask and record the location of the saved
|
|
|
|
|
registers. */
|
|
|
|
|
addr = cache->base + 20;
|
|
|
|
|
for (regnum = 0; regnum < VAX_AP_REGNUM; regnum++)
|
|
|
|
|
{
|
|
|
|
|
if (mask & (1 << regnum))
|
|
|
|
|
{
|
|
|
|
|
cache->saved_regs[regnum].addr = addr;
|
|
|
|
|
addr += 4;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* The CALLS/CALLG flag determines whether this frame has a General
|
|
|
|
|
Argument List or a Stack Argument List. */
|
|
|
|
|
if (mask & (1 << 13))
|
|
|
|
|
{
|
|
|
|
|
ULONGEST numarg;
|
|
|
|
|
|
|
|
|
|
/* This is a procedure with Stack Argument List. Adjust the
|
2004-04-15 14:40:27 +02:00
|
|
|
|
stack address for the arguments that were pushed onto the
|
2004-04-12 21:49:48 +02:00
|
|
|
|
stack. The return instruction will automatically pop the
|
|
|
|
|
arguments from the stack. */
|
2008-06-28 19:29:04 +02:00
|
|
|
|
numarg = get_frame_memory_unsigned (this_frame, addr, 1);
|
2004-04-12 21:49:48 +02:00
|
|
|
|
addr += 4 + numarg * 4;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Bits 1:0 of the stack pointer were saved in the control bits. */
|
|
|
|
|
trad_frame_set_value (cache->saved_regs, VAX_SP_REGNUM, addr + (mask >> 14));
|
|
|
|
|
|
|
|
|
|
return cache;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2008-06-28 19:29:04 +02:00
|
|
|
|
vax_frame_this_id (struct frame_info *this_frame, void **this_cache,
|
2004-04-12 21:49:48 +02:00
|
|
|
|
struct frame_id *this_id)
|
|
|
|
|
{
|
2008-06-28 19:29:04 +02:00
|
|
|
|
struct vax_frame_cache *cache = vax_frame_cache (this_frame, this_cache);
|
2004-04-12 21:49:48 +02:00
|
|
|
|
|
|
|
|
|
/* This marks the outermost frame. */
|
|
|
|
|
if (cache->base == 0)
|
|
|
|
|
return;
|
|
|
|
|
|
2008-06-28 19:29:04 +02:00
|
|
|
|
(*this_id) = frame_id_build (cache->base, get_frame_func (this_frame));
|
2004-04-12 21:49:48 +02:00
|
|
|
|
}
|
|
|
|
|
|
2008-06-28 19:29:04 +02:00
|
|
|
|
static struct value *
|
|
|
|
|
vax_frame_prev_register (struct frame_info *this_frame,
|
|
|
|
|
void **this_cache, int regnum)
|
2004-04-12 21:49:48 +02:00
|
|
|
|
{
|
2008-06-28 19:29:04 +02:00
|
|
|
|
struct vax_frame_cache *cache = vax_frame_cache (this_frame, this_cache);
|
2004-04-12 21:49:48 +02:00
|
|
|
|
|
2008-06-28 19:29:04 +02:00
|
|
|
|
return trad_frame_get_prev_register (this_frame, cache->saved_regs, regnum);
|
2004-04-12 21:49:48 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static const struct frame_unwind vax_frame_unwind =
|
|
|
|
|
{
|
|
|
|
|
NORMAL_FRAME,
|
|
|
|
|
vax_frame_this_id,
|
2008-06-28 19:29:04 +02:00
|
|
|
|
vax_frame_prev_register,
|
|
|
|
|
NULL,
|
|
|
|
|
default_frame_sniffer
|
2004-04-12 21:49:48 +02:00
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
static CORE_ADDR
|
2008-06-28 19:29:04 +02:00
|
|
|
|
vax_frame_base_address (struct frame_info *this_frame, void **this_cache)
|
2004-04-12 21:49:48 +02:00
|
|
|
|
{
|
2008-06-28 19:29:04 +02:00
|
|
|
|
struct vax_frame_cache *cache = vax_frame_cache (this_frame, this_cache);
|
2004-04-12 21:49:48 +02:00
|
|
|
|
|
|
|
|
|
return cache->base;
|
|
|
|
|
}
|
1999-05-05 16:45:51 +02:00
|
|
|
|
|
2002-04-23 02:53:31 +02:00
|
|
|
|
static CORE_ADDR
|
2008-06-28 19:29:04 +02:00
|
|
|
|
vax_frame_args_address (struct frame_info *this_frame, void **this_cache)
|
2004-04-12 21:49:48 +02:00
|
|
|
|
{
|
2008-06-28 19:29:04 +02:00
|
|
|
|
return get_frame_register_unsigned (this_frame, VAX_AP_REGNUM);
|
2004-04-12 21:49:48 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static const struct frame_base vax_frame_base =
|
2002-04-23 01:13:50 +02:00
|
|
|
|
{
|
2004-04-12 21:49:48 +02:00
|
|
|
|
&vax_frame_unwind,
|
|
|
|
|
vax_frame_base_address,
|
|
|
|
|
vax_frame_base_address,
|
|
|
|
|
vax_frame_args_address
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* Return number of arguments for FRAME. */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
vax_frame_num_args (struct frame_info *frame)
|
|
|
|
|
{
|
|
|
|
|
CORE_ADDR args;
|
|
|
|
|
|
|
|
|
|
/* Assume that the argument pointer for the outermost frame is
|
|
|
|
|
hosed, as is the case on NetBSD/vax ELF. */
|
2004-05-15 19:11:48 +02:00
|
|
|
|
if (get_frame_base_address (frame) == 0)
|
2004-04-12 21:49:48 +02:00
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
args = get_frame_register_unsigned (frame, VAX_AP_REGNUM);
|
|
|
|
|
return get_frame_memory_unsigned (frame, args, 1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static CORE_ADDR
|
|
|
|
|
vax_unwind_pc (struct gdbarch *gdbarch, struct frame_info *next_frame)
|
|
|
|
|
{
|
|
|
|
|
return frame_unwind_register_unsigned (next_frame, VAX_PC_REGNUM);
|
2002-04-23 01:13:50 +02:00
|
|
|
|
}
|
|
|
|
|
|
2004-04-12 21:49:48 +02:00
|
|
|
|
|
2002-04-23 02:53:31 +02:00
|
|
|
|
/* 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 *gdbarch;
|
|
|
|
|
|
2003-01-05 00:38:46 +01:00
|
|
|
|
/* If there is already a candidate, use it. */
|
|
|
|
|
arches = gdbarch_list_lookup_by_info (arches, &info);
|
|
|
|
|
if (arches != NULL)
|
|
|
|
|
return arches->gdbarch;
|
2002-04-23 02:53:31 +02:00
|
|
|
|
|
2003-01-05 00:38:46 +01:00
|
|
|
|
gdbarch = gdbarch_alloc (&info, NULL);
|
2002-06-26 18:07:16 +02:00
|
|
|
|
|
* doublest.c (floatformat_from_length): Use the right element from
gdbarch floatformats.
(floatformat_from_type, extract_typed_floating)
(store_typed_floating): Likewise.
* doublest.h: Remove declarations for undefined floatformat arrays.
* gdbarch.sh (float_format, double_format, long_double_format): Change
to pairs.
(pformat): Update for pairs.
* gdbarch.c, gdbarch.h: Regenerated.
* gdbtypes.c (floatformats_ieee_single, floatformats_ieee_double)
(floatformats_ieee_double_littlebyte_bigword)
(floatformats_i387_ext, floatformats_m68881_ext, floatformats_arm_ext)
(floatformats_ia64_spill, floatformats_ia64_quad, floatformats_vax_f)
(floatformats_vax_d): New variables.
(builtin_type_ieee_single, builtin_type_ieee_double)
(builtin_type_arm_ext, builtin_type_ia64_spill)
(builtin_type_ia64_quad): Replace arrays with individual types.
(builtin_type_ieee_single_big, builtin_type_ieee_single_little)
(builtin_type_ieee_double_big, builtin_type_ieee_double_little)
(builtin_type_ieee_double_littlebyte_bigword, builtin_type_i960_ext)
(builtin_type_m88110_ext, builtin_type_m88110_harris_ext)
(builtin_type_arm_ext_big, builtin_type_arm_ext_littlebyte_bigword)
(builtin_type_ia64_spill_big, builtin_type_ia64_spill_little)
(builtin_type_ia64_quad_big, builtin_type_ia64_quad_little): Delete
unused and endian-specific types.
(recursive_dump_type): Update for floatformat pairs.
(build_flt): Move higher. Handle bit == -1. Take a floatformat pair.
(build_gdbtypes): Use build_flt.
(_initialize_gdbtypes): Update set of initialized types.
* gdbtypes.h: Update declarations to match gdbtypes.c.
(struct main_type): Store a pointer to two floatformats.
* arch-utils.c (default_float_format, default_double_format): Delete.
* arch-utils.h (default_float_format, default_double_format): Delete.
* arm-tdep.c, avr-tdep.c, hppa-tdep.c, hppabsd-tdep.c, i386-tdep.c,
ia64-tdep.c, iq2000-tdep.c, m68k-tdep.c, m88k-tdep.c,
mips-linux-tdep.c, mips-tdep.c, mt-tdep.c, ppcobsd-tdep.c,
sparc-linux-tdep.c, sparc-tdep.c, sparcnbsd-tdep.c, spu-tdep.c,
vax-tdep.c, alpha-tdep.c, ppc-sysv-tdep.c: Update.
2007-01-29 18:31:06 +01:00
|
|
|
|
set_gdbarch_float_format (gdbarch, floatformats_vax_f);
|
|
|
|
|
set_gdbarch_double_format (gdbarch, floatformats_vax_d);
|
|
|
|
|
set_gdbarch_long_double_format (gdbarch, floatformats_vax_d);
|
|
|
|
|
set_gdbarch_long_double_bit (gdbarch, 64);
|
2005-11-01 00:35:52 +01:00
|
|
|
|
|
2002-04-23 02:53:31 +02:00
|
|
|
|
/* Register info */
|
|
|
|
|
set_gdbarch_num_regs (gdbarch, VAX_NUM_REGS);
|
* vax-tdep.h: Update copyright year. Adjust comments.
(VAX_REGISTER_SIZE, VAX_REGISTER_BYTES, VAX_MAX_REGISTER_RAW_SIZE,
VAX_MAX_REGISTER_VIRTUAL_SIZE): Remove macros.
(vax_regnum): New enum. Replacing...
(VAX_AP_REGNUM, VAX_FP_REGNUM, VAX_SP_REGNUM, VAX_PC_REGNUM)
(VAX_PS_REGNUM): ... these removed macros.
* vax-tdep.c (vax_register_name): Remove prototype.
(vax_register_name): Reorganize somewhat. Use ARRAY_SIZE.
(vax_register_byte, vax_register_raw_size,
vax_register_virtual_size, vax_register_virtual_type): Remove
functions.
(vax_register_type): New function.
(vax_breakpoint_from_pc): Reorganize.
(vax_gdbarch_init): Set register_type. Don't set
deprecated_register_size, deprecated_register_bytes,
deprecated_register_byte, deprecated_register_raw_size,
deprecated_max_register_raw_size,
deprecated_register_virtual_size,
deprecated_max_register_virtual_size and
deprecated_register_virtual_type. Add comment on stack direction.
2004-04-12 18:49:35 +02:00
|
|
|
|
set_gdbarch_register_name (gdbarch, vax_register_name);
|
|
|
|
|
set_gdbarch_register_type (gdbarch, vax_register_type);
|
2002-04-23 02:53:31 +02:00
|
|
|
|
set_gdbarch_sp_regnum (gdbarch, VAX_SP_REGNUM);
|
|
|
|
|
set_gdbarch_pc_regnum (gdbarch, VAX_PC_REGNUM);
|
|
|
|
|
set_gdbarch_ps_regnum (gdbarch, VAX_PS_REGNUM);
|
|
|
|
|
|
2004-04-15 17:03:30 +02:00
|
|
|
|
set_gdbarch_regset_from_core_section
|
|
|
|
|
(gdbarch, vax_regset_from_core_section);
|
|
|
|
|
|
2002-04-23 02:53:31 +02:00
|
|
|
|
/* Frame and stack info */
|
|
|
|
|
set_gdbarch_skip_prologue (gdbarch, vax_skip_prologue);
|
|
|
|
|
set_gdbarch_frame_num_args (gdbarch, vax_frame_num_args);
|
|
|
|
|
set_gdbarch_frame_args_skip (gdbarch, 4);
|
|
|
|
|
|
* vax-tdep.h: Update copyright year. Adjust comments.
(VAX_REGISTER_SIZE, VAX_REGISTER_BYTES, VAX_MAX_REGISTER_RAW_SIZE,
VAX_MAX_REGISTER_VIRTUAL_SIZE): Remove macros.
(vax_regnum): New enum. Replacing...
(VAX_AP_REGNUM, VAX_FP_REGNUM, VAX_SP_REGNUM, VAX_PC_REGNUM)
(VAX_PS_REGNUM): ... these removed macros.
* vax-tdep.c (vax_register_name): Remove prototype.
(vax_register_name): Reorganize somewhat. Use ARRAY_SIZE.
(vax_register_byte, vax_register_raw_size,
vax_register_virtual_size, vax_register_virtual_type): Remove
functions.
(vax_register_type): New function.
(vax_breakpoint_from_pc): Reorganize.
(vax_gdbarch_init): Set register_type. Don't set
deprecated_register_size, deprecated_register_bytes,
deprecated_register_byte, deprecated_register_raw_size,
deprecated_max_register_raw_size,
deprecated_register_virtual_size,
deprecated_max_register_virtual_size and
deprecated_register_virtual_type. Add comment on stack direction.
2004-04-12 18:49:35 +02:00
|
|
|
|
/* Stack grows downward. */
|
2002-04-23 02:53:31 +02:00
|
|
|
|
set_gdbarch_inner_than (gdbarch, core_addr_lessthan);
|
|
|
|
|
|
|
|
|
|
/* Return value info */
|
2004-04-14 19:48:38 +02:00
|
|
|
|
set_gdbarch_return_value (gdbarch, vax_return_value);
|
2002-04-23 02:53:31 +02:00
|
|
|
|
|
* vax-tdep.c (vax_store_arguments, vax_push_dummy_call)
(vax_unwind_dummy_id): New functions.
(vax_push_dummy_frame, vax_pop_frame): Remove functions.
(vax_call_dummy_words, sizeof_vax_call_dummy_words): Remove
variables.
(vax_fix_call_dummy): Remove function.
(vax_gdbarch_init): Set push_dummy_call and unwind_dummy_id.
Don't set deprecated_push_dummy_frame, deprecated_pop_frame,
call_dummy_location, deprecated_call_dummy_words,
deprecated_sizeof_call_dummy_words,
deprecated_call_dummy_breakpoint_offset,
deprecated_use_generic_dummy_frames, deprecated_pc_in_call_dummy,
and deprecated_dummy_write_sp.
2004-04-14 12:58:39 +02:00
|
|
|
|
/* Call dummy code. */
|
|
|
|
|
set_gdbarch_push_dummy_call (gdbarch, vax_push_dummy_call);
|
2008-06-28 19:29:04 +02:00
|
|
|
|
set_gdbarch_dummy_id (gdbarch, vax_dummy_id);
|
2002-04-23 02:53:31 +02:00
|
|
|
|
|
|
|
|
|
/* Breakpoint info */
|
2002-06-26 19:20:36 +02:00
|
|
|
|
set_gdbarch_breakpoint_from_pc (gdbarch, vax_breakpoint_from_pc);
|
2002-04-23 02:53:31 +02:00
|
|
|
|
|
|
|
|
|
/* Misc info */
|
2004-06-18 23:36:16 +02:00
|
|
|
|
set_gdbarch_deprecated_function_start_offset (gdbarch, 2);
|
2002-06-26 19:20:36 +02:00
|
|
|
|
set_gdbarch_believe_pcc_promotion (gdbarch, 1);
|
2002-04-23 02:53:31 +02:00
|
|
|
|
|
2004-05-09 00:52:43 +02:00
|
|
|
|
set_gdbarch_print_insn (gdbarch, print_insn_vax);
|
|
|
|
|
|
2004-04-12 21:49:48 +02:00
|
|
|
|
set_gdbarch_unwind_pc (gdbarch, vax_unwind_pc);
|
|
|
|
|
|
|
|
|
|
frame_base_set_default (gdbarch, &vax_frame_base);
|
|
|
|
|
|
2002-06-26 18:07:16 +02:00
|
|
|
|
/* Hook in ABI-specific overrides, if they have been registered. */
|
2003-01-05 00:38:46 +01:00
|
|
|
|
gdbarch_init_osabi (info, gdbarch);
|
2002-06-26 18:07:16 +02:00
|
|
|
|
|
2008-06-28 19:29:04 +02:00
|
|
|
|
frame_unwind_append_unwinder (gdbarch, &vax_frame_unwind);
|
2004-04-12 21:49:48 +02:00
|
|
|
|
|
2002-04-23 02:53:31 +02:00
|
|
|
|
return (gdbarch);
|
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2004-05-09 00:52:43 +02:00
|
|
|
|
/* Provide a prototype to silence -Wmissing-prototypes. */
|
|
|
|
|
void _initialize_vax_tdep (void);
|
2003-06-11 15:16:30 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
_initialize_vax_tdep (void)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2003-01-05 00:38:46 +01:00
|
|
|
|
gdbarch_register (bfd_arch_vax, vax_gdbarch_init, NULL);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|