2005-07-18 22:34:09 +02:00
|
|
|
|
/* Target-dependent code for the HP PA-RISC architecture.
|
2002-04-12 20:18:59 +02:00
|
|
|
|
|
2007-01-09 18:59:20 +01:00
|
|
|
|
Copyright (C) 1986, 1987, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996,
|
2008-01-01 23:53:26 +01:00
|
|
|
|
1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2007, 2008
|
2005-07-18 22:34:09 +02:00
|
|
|
|
Free Software Foundation, Inc.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
Contributed by the Center for Software Science at the
|
|
|
|
|
University of Utah (pa-gdb-bugs@cs.utah.edu).
|
|
|
|
|
|
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"
|
|
|
|
|
#include "bfd.h"
|
|
|
|
|
#include "inferior.h"
|
2001-03-01 02:39:22 +01:00
|
|
|
|
#include "regcache.h"
|
2002-02-03 12:43:19 +01:00
|
|
|
|
#include "completer.h"
|
2002-12-03 00:30:34 +01:00
|
|
|
|
#include "osabi.h"
|
2003-03-18 00:25:09 +01:00
|
|
|
|
#include "gdb_assert.h"
|
2004-02-22 17:51:37 +01:00
|
|
|
|
#include "arch-utils.h"
|
1999-04-16 03:35:26 +02:00
|
|
|
|
/* For argument passing to the inferior */
|
|
|
|
|
#include "symtab.h"
|
2003-09-11 04:00:51 +02:00
|
|
|
|
#include "dis-asm.h"
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
#include "trad-frame.h"
|
|
|
|
|
#include "frame-unwind.h"
|
|
|
|
|
#include "frame-base.h"
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
#include "gdbcore.h"
|
|
|
|
|
#include "gdbcmd.h"
|
* avr-tdep.c, hppa-tdep.c, hppabsd-tdep.c, i386-tdep.c,
ia64-tdep.c, m68k-tdep.c, mips-linux-tdep.c, ppcobsd-tdep.c,
sparc-linux-tdep.c: Include "gdbtypes.h" instead of "floatformat.h".
* Makefile.in (avr-tdep.o, hppabsd-tdep.o, hppa-tdep.o, i386-tdep.o)
(ia64-tdep.o, m68k-tdep.o, mips-linux-tdep.o, ppcobsd-tdep.o)
(sparc-linux-tdep.o): Update.
2007-02-16 22:49:59 +01:00
|
|
|
|
#include "gdbtypes.h"
|
1999-04-16 03:35:26 +02:00
|
|
|
|
#include "objfiles.h"
|
2003-08-16 01:02:05 +02:00
|
|
|
|
#include "hppa-tdep.h"
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2004-04-23 04:51:52 +02:00
|
|
|
|
static int hppa_debug = 0;
|
|
|
|
|
|
2002-12-26 21:10:13 +01:00
|
|
|
|
/* Some local constants. */
|
2003-08-16 01:02:05 +02:00
|
|
|
|
static const int hppa32_num_regs = 128;
|
|
|
|
|
static const int hppa64_num_regs = 96;
|
|
|
|
|
|
2004-04-17 Randolph Chung <tausq@debian.org>
* Makefile.in (hpread.o, pa64solib.o, somsolib.o): Add $(hppa_tdep_h)
* hppa-tdep.c (hppa_objfile_priv_data): New.
(SR4EXPORT_LDIL_OFFSET, SR4EXPORT_LDO_OFFSET): Use
HPPA_INSTRUCTION_SIZE.
(read_unwind_info): Use objfile_data to reference unwind info.
(find_unwind_entry): Likewise.
(hpread_adjust_stack_address): Move to hpread.c.
(_initialize_hppa_tdep): Register hppa objfile data.
* hppa-tdep.h (HPPA_INSTRUCTION_SIZE): Define.
(unwind_table_entry, unwind_stub_types): Move from tm-hppa.h.
(obj_unwind_info, obj_private_struct): Move from tm-hppa.h, and rename
with hppa_ prefix.
* hpread.c (hppa-tdep.h): Include.
(hpread_adjust_stack_address): Move from hppa-tdep.c.
(hpread_read_function_type, hpread_read_doc_function_type)
(hpread_process_one_debug_symbol): Call hpread_adjust_stack_address
directly. Use objfile_data to access solib data.
* pa64solib.c (hppa-tdep.h): Include.
(pa64_solib_add_solib_objfile): Use objfile_data to access solib data.
* somsolib.c (hppa-tdep.h): Include.
(som_solib_add_solib_objfile): Use objfile_data to access solib data.
* config/pa/tm-hppa.h (frame_info, frame_saved_regs, value, type)
(inferior_status): Remove unused forward declarations.
(INSTRUCTION_SIZE): Move to hppa-tdep.c.
(unwind_table_entry, unwind_stub_types, obj_unwind_info)
(obj_private_struct): Move to hppa-tdep.h.
(HPREAD_ADJUST_STACK_ADDRESS): Remove.
2004-04-17 19:19:29 +02:00
|
|
|
|
/* hppa-specific object data -- unwind and solib info.
|
|
|
|
|
TODO/maybe: think about splitting this into two parts; the unwind data is
|
|
|
|
|
common to all hppa targets, but is only used in this file; we can register
|
|
|
|
|
that separately and make this static. The solib data is probably hpux-
|
|
|
|
|
specific, so we can create a separate extern objfile_data that is registered
|
|
|
|
|
by hppa-hpux-tdep.c and shared with pa64solib.c and somsolib.c. */
|
|
|
|
|
const struct objfile_data *hppa_objfile_priv_data = NULL;
|
|
|
|
|
|
2003-05-22 04:04:05 +02:00
|
|
|
|
/* Get at various relevent fields of an instruction word. */
|
|
|
|
|
#define MASK_5 0x1f
|
|
|
|
|
#define MASK_11 0x7ff
|
|
|
|
|
#define MASK_14 0x3fff
|
|
|
|
|
#define MASK_21 0x1fffff
|
|
|
|
|
|
|
|
|
|
/* Sizes (in bytes) of the native unwind entries. */
|
|
|
|
|
#define UNWIND_ENTRY_SIZE 16
|
|
|
|
|
#define STUB_UNWIND_ENTRY_SIZE 8
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
/* Routines to extract various sized constants out of hppa
|
|
|
|
|
instructions. */
|
|
|
|
|
|
|
|
|
|
/* This assumes that no garbage lies outside of the lower bits of
|
|
|
|
|
value. */
|
|
|
|
|
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
int
|
|
|
|
|
hppa_sign_extend (unsigned val, unsigned bits)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
1999-07-07 22:19:36 +02:00
|
|
|
|
return (int) (val >> (bits - 1) ? (-1 << bits) | val : val);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* For many immediate values the sign bit is the low bit! */
|
|
|
|
|
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
int
|
|
|
|
|
hppa_low_hppa_sign_extend (unsigned val, unsigned bits)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
1999-07-07 22:19:36 +02:00
|
|
|
|
return (int) ((val & 0x1 ? (-1 << (bits - 1)) : 0) | val >> 1);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
2003-05-22 04:04:05 +02:00
|
|
|
|
/* Extract the bits at positions between FROM and TO, using HP's numbering
|
|
|
|
|
(MSB = 0). */
|
|
|
|
|
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
int
|
|
|
|
|
hppa_get_field (unsigned word, int from, int to)
|
2003-05-22 04:04:05 +02:00
|
|
|
|
{
|
|
|
|
|
return ((word) >> (31 - (to)) & ((1 << ((to) - (from) + 1)) - 1));
|
|
|
|
|
}
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
/* extract the immediate field from a ld{bhw}s instruction */
|
|
|
|
|
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
int
|
|
|
|
|
hppa_extract_5_load (unsigned word)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
return hppa_low_hppa_sign_extend (word >> 16 & MASK_5, 5);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* extract the immediate field from a break instruction */
|
|
|
|
|
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
unsigned
|
|
|
|
|
hppa_extract_5r_store (unsigned word)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
return (word & MASK_5);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* extract the immediate field from a {sr}sm instruction */
|
|
|
|
|
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
unsigned
|
|
|
|
|
hppa_extract_5R_store (unsigned word)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
return (word >> 16 & MASK_5);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* extract a 14 bit immediate field */
|
|
|
|
|
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
int
|
|
|
|
|
hppa_extract_14 (unsigned word)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
return hppa_low_hppa_sign_extend (word & MASK_14, 14);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* extract a 21 bit constant */
|
|
|
|
|
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
int
|
|
|
|
|
hppa_extract_21 (unsigned word)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
int val;
|
|
|
|
|
|
|
|
|
|
word &= MASK_21;
|
|
|
|
|
word <<= 11;
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
val = hppa_get_field (word, 20, 20);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
val <<= 11;
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
val |= hppa_get_field (word, 9, 19);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
val <<= 2;
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
val |= hppa_get_field (word, 5, 6);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
val <<= 5;
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
val |= hppa_get_field (word, 0, 4);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
val <<= 2;
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
val |= hppa_get_field (word, 7, 8);
|
|
|
|
|
return hppa_sign_extend (val, 21) << 11;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* extract a 17 bit constant from branch instructions, returning the
|
|
|
|
|
19 bit signed value. */
|
|
|
|
|
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
int
|
|
|
|
|
hppa_extract_17 (unsigned word)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
return hppa_sign_extend (hppa_get_field (word, 19, 28) |
|
|
|
|
|
hppa_get_field (word, 29, 29) << 10 |
|
|
|
|
|
hppa_get_field (word, 11, 15) << 11 |
|
1999-04-16 03:35:26 +02:00
|
|
|
|
(word & 0x1) << 16, 17) << 2;
|
|
|
|
|
}
|
2004-06-07 04:17:29 +02:00
|
|
|
|
|
|
|
|
|
CORE_ADDR
|
|
|
|
|
hppa_symbol_address(const char *sym)
|
|
|
|
|
{
|
|
|
|
|
struct minimal_symbol *minsym;
|
|
|
|
|
|
|
|
|
|
minsym = lookup_minimal_symbol (sym, NULL, NULL);
|
|
|
|
|
if (minsym)
|
|
|
|
|
return SYMBOL_VALUE_ADDRESS (minsym);
|
|
|
|
|
else
|
|
|
|
|
return (CORE_ADDR)-1;
|
|
|
|
|
}
|
2004-12-17 20:09:53 +01:00
|
|
|
|
|
|
|
|
|
struct hppa_objfile_private *
|
|
|
|
|
hppa_init_objfile_priv_data (struct objfile *objfile)
|
|
|
|
|
{
|
|
|
|
|
struct hppa_objfile_private *priv;
|
|
|
|
|
|
|
|
|
|
priv = (struct hppa_objfile_private *)
|
|
|
|
|
obstack_alloc (&objfile->objfile_obstack,
|
|
|
|
|
sizeof (struct hppa_objfile_private));
|
|
|
|
|
set_objfile_data (objfile, hppa_objfile_priv_data, priv);
|
|
|
|
|
memset (priv, 0, sizeof (*priv));
|
|
|
|
|
|
|
|
|
|
return priv;
|
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Compare the start address for two unwind entries returning 1 if
|
|
|
|
|
the first address is larger than the second, -1 if the second is
|
|
|
|
|
larger than the first, and zero if they are equal. */
|
|
|
|
|
|
|
|
|
|
static int
|
2000-07-30 03:48:28 +02:00
|
|
|
|
compare_unwind_entries (const void *arg1, const void *arg2)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
const struct unwind_table_entry *a = arg1;
|
|
|
|
|
const struct unwind_table_entry *b = arg2;
|
|
|
|
|
|
|
|
|
|
if (a->region_start > b->region_start)
|
|
|
|
|
return 1;
|
|
|
|
|
else if (a->region_start < b->region_start)
|
|
|
|
|
return -1;
|
|
|
|
|
else
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
1999-08-24 00:40:00 +02:00
|
|
|
|
static void
|
2004-04-17 19:41:10 +02:00
|
|
|
|
record_text_segment_lowaddr (bfd *abfd, asection *section, void *data)
|
1999-08-24 00:40:00 +02:00
|
|
|
|
{
|
2004-04-17 19:41:10 +02:00
|
|
|
|
if ((section->flags & (SEC_ALLOC | SEC_LOAD | SEC_READONLY))
|
1999-08-24 00:40:00 +02:00
|
|
|
|
== (SEC_ALLOC | SEC_LOAD | SEC_READONLY))
|
2004-04-17 19:41:10 +02:00
|
|
|
|
{
|
|
|
|
|
bfd_vma value = section->vma - section->filepos;
|
|
|
|
|
CORE_ADDR *low_text_segment_address = (CORE_ADDR *)data;
|
|
|
|
|
|
|
|
|
|
if (value < *low_text_segment_address)
|
|
|
|
|
*low_text_segment_address = value;
|
|
|
|
|
}
|
1999-08-24 00:40:00 +02:00
|
|
|
|
}
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
internalize_unwinds (struct objfile *objfile, struct unwind_table_entry *table,
|
|
|
|
|
asection *section, unsigned int entries, unsigned int size,
|
|
|
|
|
CORE_ADDR text_offset)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
/* We will read the unwind entries into temporary memory, then
|
|
|
|
|
fill in the actual unwind table. */
|
2004-04-17 19:41:10 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (size > 0)
|
|
|
|
|
{
|
|
|
|
|
unsigned long tmp;
|
|
|
|
|
unsigned i;
|
|
|
|
|
char *buf = alloca (size);
|
2004-04-17 19:41:10 +02:00
|
|
|
|
CORE_ADDR low_text_segment_address;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2004-04-17 19:41:10 +02:00
|
|
|
|
/* For ELF targets, then unwinds are supposed to
|
1999-09-22 05:28:34 +02:00
|
|
|
|
be segment relative offsets instead of absolute addresses.
|
|
|
|
|
|
|
|
|
|
Note that when loading a shared library (text_offset != 0) the
|
|
|
|
|
unwinds are already relative to the text_offset that will be
|
|
|
|
|
passed in. */
|
2004-04-17 19:41:10 +02:00
|
|
|
|
if (gdbarch_tdep (current_gdbarch)->is_elf && text_offset == 0)
|
1999-08-24 00:40:00 +02:00
|
|
|
|
{
|
2004-04-17 19:41:10 +02:00
|
|
|
|
low_text_segment_address = -1;
|
|
|
|
|
|
1999-08-24 00:40:00 +02:00
|
|
|
|
bfd_map_over_sections (objfile->obfd,
|
2004-04-17 19:41:10 +02:00
|
|
|
|
record_text_segment_lowaddr,
|
|
|
|
|
&low_text_segment_address);
|
1999-08-24 00:40:00 +02:00
|
|
|
|
|
2004-04-17 19:41:10 +02:00
|
|
|
|
text_offset = low_text_segment_address;
|
1999-08-24 00:40:00 +02:00
|
|
|
|
}
|
2004-12-13 05:06:16 +01:00
|
|
|
|
else if (gdbarch_tdep (current_gdbarch)->solib_get_text_base)
|
|
|
|
|
{
|
|
|
|
|
text_offset = gdbarch_tdep (current_gdbarch)->solib_get_text_base (objfile);
|
|
|
|
|
}
|
1999-08-24 00:40:00 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
bfd_get_section_contents (objfile->obfd, section, buf, 0, size);
|
|
|
|
|
|
|
|
|
|
/* Now internalize the information being careful to handle host/target
|
1999-07-07 22:19:36 +02:00
|
|
|
|
endian issues. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
for (i = 0; i < entries; i++)
|
|
|
|
|
{
|
|
|
|
|
table[i].region_start = bfd_get_32 (objfile->obfd,
|
1999-07-07 22:19:36 +02:00
|
|
|
|
(bfd_byte *) buf);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
table[i].region_start += text_offset;
|
|
|
|
|
buf += 4;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
table[i].region_end = bfd_get_32 (objfile->obfd, (bfd_byte *) buf);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
table[i].region_end += text_offset;
|
|
|
|
|
buf += 4;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
tmp = bfd_get_32 (objfile->obfd, (bfd_byte *) buf);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
buf += 4;
|
|
|
|
|
table[i].Cannot_unwind = (tmp >> 31) & 0x1;
|
|
|
|
|
table[i].Millicode = (tmp >> 30) & 0x1;
|
|
|
|
|
table[i].Millicode_save_sr0 = (tmp >> 29) & 0x1;
|
|
|
|
|
table[i].Region_description = (tmp >> 27) & 0x3;
|
2006-03-01 06:43:03 +01:00
|
|
|
|
table[i].reserved = (tmp >> 26) & 0x1;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
table[i].Entry_SR = (tmp >> 25) & 0x1;
|
|
|
|
|
table[i].Entry_FR = (tmp >> 21) & 0xf;
|
|
|
|
|
table[i].Entry_GR = (tmp >> 16) & 0x1f;
|
|
|
|
|
table[i].Args_stored = (tmp >> 15) & 0x1;
|
|
|
|
|
table[i].Variable_Frame = (tmp >> 14) & 0x1;
|
|
|
|
|
table[i].Separate_Package_Body = (tmp >> 13) & 0x1;
|
|
|
|
|
table[i].Frame_Extension_Millicode = (tmp >> 12) & 0x1;
|
|
|
|
|
table[i].Stack_Overflow_Check = (tmp >> 11) & 0x1;
|
|
|
|
|
table[i].Two_Instruction_SP_Increment = (tmp >> 10) & 0x1;
|
2006-03-01 06:43:03 +01:00
|
|
|
|
table[i].sr4export = (tmp >> 9) & 0x1;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
table[i].cxx_info = (tmp >> 8) & 0x1;
|
|
|
|
|
table[i].cxx_try_catch = (tmp >> 7) & 0x1;
|
|
|
|
|
table[i].sched_entry_seq = (tmp >> 6) & 0x1;
|
2006-03-01 06:43:03 +01:00
|
|
|
|
table[i].reserved1 = (tmp >> 5) & 0x1;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
table[i].Save_SP = (tmp >> 4) & 0x1;
|
|
|
|
|
table[i].Save_RP = (tmp >> 3) & 0x1;
|
|
|
|
|
table[i].Save_MRP_in_frame = (tmp >> 2) & 0x1;
|
2006-03-01 06:43:03 +01:00
|
|
|
|
table[i].save_r19 = (tmp >> 1) & 0x1;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
table[i].Cleanup_defined = tmp & 0x1;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
tmp = bfd_get_32 (objfile->obfd, (bfd_byte *) buf);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
buf += 4;
|
|
|
|
|
table[i].MPE_XL_interrupt_marker = (tmp >> 31) & 0x1;
|
|
|
|
|
table[i].HP_UX_interrupt_marker = (tmp >> 30) & 0x1;
|
|
|
|
|
table[i].Large_frame = (tmp >> 29) & 0x1;
|
2006-03-01 06:43:03 +01:00
|
|
|
|
table[i].alloca_frame = (tmp >> 28) & 0x1;
|
|
|
|
|
table[i].reserved2 = (tmp >> 27) & 0x1;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
table[i].Total_frame_size = tmp & 0x7ffffff;
|
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
/* Stub unwinds are handled elsewhere. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
table[i].stub_unwind.stub_type = 0;
|
|
|
|
|
table[i].stub_unwind.padding = 0;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Read in the backtrace information stored in the `$UNWIND_START$' section of
|
|
|
|
|
the object file. This info is used mainly by find_unwind_entry() to find
|
|
|
|
|
out the stack frame size and frame pointer used by procedures. We put
|
|
|
|
|
everything on the psymbol obstack in the objfile so that it automatically
|
|
|
|
|
gets freed when the objfile is destroyed. */
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
read_unwind_info (struct objfile *objfile)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
1999-09-09 02:02:17 +02:00
|
|
|
|
asection *unwind_sec, *stub_unwind_sec;
|
|
|
|
|
unsigned unwind_size, stub_unwind_size, total_size;
|
|
|
|
|
unsigned index, unwind_entries;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
unsigned stub_entries, total_entries;
|
|
|
|
|
CORE_ADDR text_offset;
|
2004-04-17 Randolph Chung <tausq@debian.org>
* Makefile.in (hpread.o, pa64solib.o, somsolib.o): Add $(hppa_tdep_h)
* hppa-tdep.c (hppa_objfile_priv_data): New.
(SR4EXPORT_LDIL_OFFSET, SR4EXPORT_LDO_OFFSET): Use
HPPA_INSTRUCTION_SIZE.
(read_unwind_info): Use objfile_data to reference unwind info.
(find_unwind_entry): Likewise.
(hpread_adjust_stack_address): Move to hpread.c.
(_initialize_hppa_tdep): Register hppa objfile data.
* hppa-tdep.h (HPPA_INSTRUCTION_SIZE): Define.
(unwind_table_entry, unwind_stub_types): Move from tm-hppa.h.
(obj_unwind_info, obj_private_struct): Move from tm-hppa.h, and rename
with hppa_ prefix.
* hpread.c (hppa-tdep.h): Include.
(hpread_adjust_stack_address): Move from hppa-tdep.c.
(hpread_read_function_type, hpread_read_doc_function_type)
(hpread_process_one_debug_symbol): Call hpread_adjust_stack_address
directly. Use objfile_data to access solib data.
* pa64solib.c (hppa-tdep.h): Include.
(pa64_solib_add_solib_objfile): Use objfile_data to access solib data.
* somsolib.c (hppa-tdep.h): Include.
(som_solib_add_solib_objfile): Use objfile_data to access solib data.
* config/pa/tm-hppa.h (frame_info, frame_saved_regs, value, type)
(inferior_status): Remove unused forward declarations.
(INSTRUCTION_SIZE): Move to hppa-tdep.c.
(unwind_table_entry, unwind_stub_types, obj_unwind_info)
(obj_private_struct): Move to hppa-tdep.h.
(HPREAD_ADJUST_STACK_ADDRESS): Remove.
2004-04-17 19:19:29 +02:00
|
|
|
|
struct hppa_unwind_info *ui;
|
|
|
|
|
struct hppa_objfile_private *obj_private;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
text_offset = ANOFFSET (objfile->section_offsets, 0);
|
2004-04-17 Randolph Chung <tausq@debian.org>
* Makefile.in (hpread.o, pa64solib.o, somsolib.o): Add $(hppa_tdep_h)
* hppa-tdep.c (hppa_objfile_priv_data): New.
(SR4EXPORT_LDIL_OFFSET, SR4EXPORT_LDO_OFFSET): Use
HPPA_INSTRUCTION_SIZE.
(read_unwind_info): Use objfile_data to reference unwind info.
(find_unwind_entry): Likewise.
(hpread_adjust_stack_address): Move to hpread.c.
(_initialize_hppa_tdep): Register hppa objfile data.
* hppa-tdep.h (HPPA_INSTRUCTION_SIZE): Define.
(unwind_table_entry, unwind_stub_types): Move from tm-hppa.h.
(obj_unwind_info, obj_private_struct): Move from tm-hppa.h, and rename
with hppa_ prefix.
* hpread.c (hppa-tdep.h): Include.
(hpread_adjust_stack_address): Move from hppa-tdep.c.
(hpread_read_function_type, hpread_read_doc_function_type)
(hpread_process_one_debug_symbol): Call hpread_adjust_stack_address
directly. Use objfile_data to access solib data.
* pa64solib.c (hppa-tdep.h): Include.
(pa64_solib_add_solib_objfile): Use objfile_data to access solib data.
* somsolib.c (hppa-tdep.h): Include.
(som_solib_add_solib_objfile): Use objfile_data to access solib data.
* config/pa/tm-hppa.h (frame_info, frame_saved_regs, value, type)
(inferior_status): Remove unused forward declarations.
(INSTRUCTION_SIZE): Move to hppa-tdep.c.
(unwind_table_entry, unwind_stub_types, obj_unwind_info)
(obj_private_struct): Move to hppa-tdep.h.
(HPREAD_ADJUST_STACK_ADDRESS): Remove.
2004-04-17 19:19:29 +02:00
|
|
|
|
ui = (struct hppa_unwind_info *) obstack_alloc (&objfile->objfile_obstack,
|
|
|
|
|
sizeof (struct hppa_unwind_info));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
ui->table = NULL;
|
|
|
|
|
ui->cache = NULL;
|
|
|
|
|
ui->last = -1;
|
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
/* For reasons unknown the HP PA64 tools generate multiple unwinder
|
|
|
|
|
sections in a single executable. So we just iterate over every
|
|
|
|
|
section in the BFD looking for unwinder sections intead of trying
|
|
|
|
|
to do a lookup with bfd_get_section_by_name.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
First determine the total size of the unwind tables so that we
|
|
|
|
|
can allocate memory in a nice big hunk. */
|
|
|
|
|
total_entries = 0;
|
|
|
|
|
for (unwind_sec = objfile->obfd->sections;
|
|
|
|
|
unwind_sec;
|
|
|
|
|
unwind_sec = unwind_sec->next)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
1999-09-09 02:02:17 +02:00
|
|
|
|
if (strcmp (unwind_sec->name, "$UNWIND_START$") == 0
|
|
|
|
|
|| strcmp (unwind_sec->name, ".PARISC.unwind") == 0)
|
|
|
|
|
{
|
|
|
|
|
unwind_size = bfd_section_size (objfile->obfd, unwind_sec);
|
|
|
|
|
unwind_entries = unwind_size / UNWIND_ENTRY_SIZE;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
total_entries += unwind_entries;
|
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
/* Now compute the size of the stub unwinds. Note the ELF tools do not
|
2005-10-03 22:53:01 +02:00
|
|
|
|
use stub unwinds at the current time. */
|
1999-09-09 02:02:17 +02:00
|
|
|
|
stub_unwind_sec = bfd_get_section_by_name (objfile->obfd, "$UNWIND_END$");
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (stub_unwind_sec)
|
|
|
|
|
{
|
|
|
|
|
stub_unwind_size = bfd_section_size (objfile->obfd, stub_unwind_sec);
|
|
|
|
|
stub_entries = stub_unwind_size / STUB_UNWIND_ENTRY_SIZE;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
stub_unwind_size = 0;
|
|
|
|
|
stub_entries = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Compute total number of unwind entries and their total size. */
|
1999-09-09 02:02:17 +02:00
|
|
|
|
total_entries += stub_entries;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
total_size = total_entries * sizeof (struct unwind_table_entry);
|
|
|
|
|
|
|
|
|
|
/* Allocate memory for the unwind table. */
|
|
|
|
|
ui->table = (struct unwind_table_entry *)
|
2004-02-07 Elena Zannoni <ezannoni@redhat.com>
* dbxread.c (dbx_symfile_init, start_psymtab, end_psymtab,
coffstab_build_psymtabs, elfstab_build_psymtabs)
(stabsect_build_psymtabs): Replace psymbol_obstack with
objfile_obstack.
* dwarf2-frame.c (decode_frame_entry_1): Ditto.
* dwarf2read.c (dwarf2_build_psymtabs_hard, dwarf2_read_section):
Ditto.
* dwarfread.c (scan_compilation_units): Ditto.
* elfread.c (elfstab_offset_sections): Ditto.
* hppa-tdep.c (read_unwind_info): Ditto.
* hpread.c (hpread_build_psymtabs, hpread_start_psymtab)
(hpread_end_psymtab): Ditto.
* mdebugread.c (mdebug_build_psymtabs, add_pending)
(parse_partial_symbols, new_psymtab, elfmdebug_build_psymtabs):
Ditto.
* mips-tdep.c (non_heuristic_proc_desc): Ditto.
* objfiles.c (add_to_objfile_sections)
(build_objfile_section_table): Ditto.
(allocate_objfile): Remove init of psymbol_obstack.
(free_objfile): Remove freeing of psymbol_obstack.
* objfiles.h (struct objfile): Remove field
psymbol_obstack. Update comments.
* pa64solib.c (pa64_solib_add_solib_objfile): Replace
psymbol_obstack with objfile_obstack.
* solib-sunos.c (allocate_rt_common_objfile): Remove init of
psymbol_obstack.
* somread.c (som_symfile_offsets, init_import_symbols)
(init_export_symbols): Replace psymbol_obstack with
objfile_obstack.
* somsolib.c (som_solib_add_solib_objfile): Ditto.
* symfile.c (default_symfile_offsets, syms_from_objfile)
(reread_symbols): Remove freeing and init of psymbol_obstack.
(cashier_psymtab): Update comment.
* symmisc.c (print_objfile_statistics): Don't report stats for
psymbol obstack.
* symtab.h (struct general_symbol_info, struct partial_symtab):
Update comments.
* xcoffread.c (xcoff_start_psymtab, xcoff_end_psymtab, swap_sym)
(xcoff_symfile_offsets): Replace psymbol_obstack with
objfile_obstack.
2004-02-07 19:29:54 +01:00
|
|
|
|
obstack_alloc (&objfile->objfile_obstack, total_size);
|
1999-07-07 22:19:36 +02:00
|
|
|
|
ui->last = total_entries - 1;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
/* Now read in each unwind section and internalize the standard unwind
|
|
|
|
|
entries. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
index = 0;
|
1999-09-09 02:02:17 +02:00
|
|
|
|
for (unwind_sec = objfile->obfd->sections;
|
|
|
|
|
unwind_sec;
|
|
|
|
|
unwind_sec = unwind_sec->next)
|
|
|
|
|
{
|
|
|
|
|
if (strcmp (unwind_sec->name, "$UNWIND_START$") == 0
|
|
|
|
|
|| strcmp (unwind_sec->name, ".PARISC.unwind") == 0)
|
|
|
|
|
{
|
|
|
|
|
unwind_size = bfd_section_size (objfile->obfd, unwind_sec);
|
|
|
|
|
unwind_entries = unwind_size / UNWIND_ENTRY_SIZE;
|
|
|
|
|
|
|
|
|
|
internalize_unwinds (objfile, &ui->table[index], unwind_sec,
|
|
|
|
|
unwind_entries, unwind_size, text_offset);
|
|
|
|
|
index += unwind_entries;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Now read in and internalize the stub unwind entries. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (stub_unwind_size > 0)
|
|
|
|
|
{
|
|
|
|
|
unsigned int i;
|
|
|
|
|
char *buf = alloca (stub_unwind_size);
|
|
|
|
|
|
|
|
|
|
/* Read in the stub unwind entries. */
|
|
|
|
|
bfd_get_section_contents (objfile->obfd, stub_unwind_sec, buf,
|
|
|
|
|
0, stub_unwind_size);
|
|
|
|
|
|
|
|
|
|
/* Now convert them into regular unwind entries. */
|
|
|
|
|
for (i = 0; i < stub_entries; i++, index++)
|
|
|
|
|
{
|
|
|
|
|
/* Clear out the next unwind entry. */
|
|
|
|
|
memset (&ui->table[index], 0, sizeof (struct unwind_table_entry));
|
|
|
|
|
|
|
|
|
|
/* Convert offset & size into region_start and region_end.
|
|
|
|
|
Stuff away the stub type into "reserved" fields. */
|
|
|
|
|
ui->table[index].region_start = bfd_get_32 (objfile->obfd,
|
|
|
|
|
(bfd_byte *) buf);
|
|
|
|
|
ui->table[index].region_start += text_offset;
|
|
|
|
|
buf += 4;
|
|
|
|
|
ui->table[index].stub_unwind.stub_type = bfd_get_8 (objfile->obfd,
|
1999-07-07 22:19:36 +02:00
|
|
|
|
(bfd_byte *) buf);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
buf += 2;
|
|
|
|
|
ui->table[index].region_end
|
1999-07-07 22:19:36 +02:00
|
|
|
|
= ui->table[index].region_start + 4 *
|
|
|
|
|
(bfd_get_16 (objfile->obfd, (bfd_byte *) buf) - 1);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
buf += 2;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Unwind table needs to be kept sorted. */
|
|
|
|
|
qsort (ui->table, total_entries, sizeof (struct unwind_table_entry),
|
|
|
|
|
compare_unwind_entries);
|
|
|
|
|
|
|
|
|
|
/* Keep a pointer to the unwind information. */
|
2004-04-17 Randolph Chung <tausq@debian.org>
* Makefile.in (hpread.o, pa64solib.o, somsolib.o): Add $(hppa_tdep_h)
* hppa-tdep.c (hppa_objfile_priv_data): New.
(SR4EXPORT_LDIL_OFFSET, SR4EXPORT_LDO_OFFSET): Use
HPPA_INSTRUCTION_SIZE.
(read_unwind_info): Use objfile_data to reference unwind info.
(find_unwind_entry): Likewise.
(hpread_adjust_stack_address): Move to hpread.c.
(_initialize_hppa_tdep): Register hppa objfile data.
* hppa-tdep.h (HPPA_INSTRUCTION_SIZE): Define.
(unwind_table_entry, unwind_stub_types): Move from tm-hppa.h.
(obj_unwind_info, obj_private_struct): Move from tm-hppa.h, and rename
with hppa_ prefix.
* hpread.c (hppa-tdep.h): Include.
(hpread_adjust_stack_address): Move from hppa-tdep.c.
(hpread_read_function_type, hpread_read_doc_function_type)
(hpread_process_one_debug_symbol): Call hpread_adjust_stack_address
directly. Use objfile_data to access solib data.
* pa64solib.c (hppa-tdep.h): Include.
(pa64_solib_add_solib_objfile): Use objfile_data to access solib data.
* somsolib.c (hppa-tdep.h): Include.
(som_solib_add_solib_objfile): Use objfile_data to access solib data.
* config/pa/tm-hppa.h (frame_info, frame_saved_regs, value, type)
(inferior_status): Remove unused forward declarations.
(INSTRUCTION_SIZE): Move to hppa-tdep.c.
(unwind_table_entry, unwind_stub_types, obj_unwind_info)
(obj_private_struct): Move to hppa-tdep.h.
(HPREAD_ADJUST_STACK_ADDRESS): Remove.
2004-04-17 19:19:29 +02:00
|
|
|
|
obj_private = (struct hppa_objfile_private *)
|
|
|
|
|
objfile_data (objfile, hppa_objfile_priv_data);
|
|
|
|
|
if (obj_private == NULL)
|
2004-12-17 20:09:53 +01:00
|
|
|
|
obj_private = hppa_init_objfile_priv_data (objfile);
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
obj_private->unwind_info = ui;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Lookup the unwind (stack backtrace) info for the given PC. We search all
|
|
|
|
|
of the objfiles seeking the unwind table entry for this PC. Each objfile
|
|
|
|
|
contains a sorted list of struct unwind_table_entry. Since we do a binary
|
|
|
|
|
search of the unwind tables, we depend upon them to be sorted. */
|
|
|
|
|
|
|
|
|
|
struct unwind_table_entry *
|
2000-07-30 03:48:28 +02:00
|
|
|
|
find_unwind_entry (CORE_ADDR pc)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
int first, middle, last;
|
|
|
|
|
struct objfile *objfile;
|
2004-04-17 Randolph Chung <tausq@debian.org>
* Makefile.in (hpread.o, pa64solib.o, somsolib.o): Add $(hppa_tdep_h)
* hppa-tdep.c (hppa_objfile_priv_data): New.
(SR4EXPORT_LDIL_OFFSET, SR4EXPORT_LDO_OFFSET): Use
HPPA_INSTRUCTION_SIZE.
(read_unwind_info): Use objfile_data to reference unwind info.
(find_unwind_entry): Likewise.
(hpread_adjust_stack_address): Move to hpread.c.
(_initialize_hppa_tdep): Register hppa objfile data.
* hppa-tdep.h (HPPA_INSTRUCTION_SIZE): Define.
(unwind_table_entry, unwind_stub_types): Move from tm-hppa.h.
(obj_unwind_info, obj_private_struct): Move from tm-hppa.h, and rename
with hppa_ prefix.
* hpread.c (hppa-tdep.h): Include.
(hpread_adjust_stack_address): Move from hppa-tdep.c.
(hpread_read_function_type, hpread_read_doc_function_type)
(hpread_process_one_debug_symbol): Call hpread_adjust_stack_address
directly. Use objfile_data to access solib data.
* pa64solib.c (hppa-tdep.h): Include.
(pa64_solib_add_solib_objfile): Use objfile_data to access solib data.
* somsolib.c (hppa-tdep.h): Include.
(som_solib_add_solib_objfile): Use objfile_data to access solib data.
* config/pa/tm-hppa.h (frame_info, frame_saved_regs, value, type)
(inferior_status): Remove unused forward declarations.
(INSTRUCTION_SIZE): Move to hppa-tdep.c.
(unwind_table_entry, unwind_stub_types, obj_unwind_info)
(obj_private_struct): Move to hppa-tdep.h.
(HPREAD_ADJUST_STACK_ADDRESS): Remove.
2004-04-17 19:19:29 +02:00
|
|
|
|
struct hppa_objfile_private *priv;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2004-04-23 04:51:52 +02:00
|
|
|
|
if (hppa_debug)
|
|
|
|
|
fprintf_unfiltered (gdb_stdlog, "{ find_unwind_entry 0x%s -> ",
|
|
|
|
|
paddr_nz (pc));
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
/* A function at address 0? Not in HP-UX! */
|
|
|
|
|
if (pc == (CORE_ADDR) 0)
|
2004-04-23 04:51:52 +02:00
|
|
|
|
{
|
|
|
|
|
if (hppa_debug)
|
|
|
|
|
fprintf_unfiltered (gdb_stdlog, "NULL }\n");
|
|
|
|
|
return NULL;
|
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
ALL_OBJFILES (objfile)
|
1999-07-07 22:19:36 +02:00
|
|
|
|
{
|
2004-04-17 Randolph Chung <tausq@debian.org>
* Makefile.in (hpread.o, pa64solib.o, somsolib.o): Add $(hppa_tdep_h)
* hppa-tdep.c (hppa_objfile_priv_data): New.
(SR4EXPORT_LDIL_OFFSET, SR4EXPORT_LDO_OFFSET): Use
HPPA_INSTRUCTION_SIZE.
(read_unwind_info): Use objfile_data to reference unwind info.
(find_unwind_entry): Likewise.
(hpread_adjust_stack_address): Move to hpread.c.
(_initialize_hppa_tdep): Register hppa objfile data.
* hppa-tdep.h (HPPA_INSTRUCTION_SIZE): Define.
(unwind_table_entry, unwind_stub_types): Move from tm-hppa.h.
(obj_unwind_info, obj_private_struct): Move from tm-hppa.h, and rename
with hppa_ prefix.
* hpread.c (hppa-tdep.h): Include.
(hpread_adjust_stack_address): Move from hppa-tdep.c.
(hpread_read_function_type, hpread_read_doc_function_type)
(hpread_process_one_debug_symbol): Call hpread_adjust_stack_address
directly. Use objfile_data to access solib data.
* pa64solib.c (hppa-tdep.h): Include.
(pa64_solib_add_solib_objfile): Use objfile_data to access solib data.
* somsolib.c (hppa-tdep.h): Include.
(som_solib_add_solib_objfile): Use objfile_data to access solib data.
* config/pa/tm-hppa.h (frame_info, frame_saved_regs, value, type)
(inferior_status): Remove unused forward declarations.
(INSTRUCTION_SIZE): Move to hppa-tdep.c.
(unwind_table_entry, unwind_stub_types, obj_unwind_info)
(obj_private_struct): Move to hppa-tdep.h.
(HPREAD_ADJUST_STACK_ADDRESS): Remove.
2004-04-17 19:19:29 +02:00
|
|
|
|
struct hppa_unwind_info *ui;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
ui = NULL;
|
2004-04-17 Randolph Chung <tausq@debian.org>
* Makefile.in (hpread.o, pa64solib.o, somsolib.o): Add $(hppa_tdep_h)
* hppa-tdep.c (hppa_objfile_priv_data): New.
(SR4EXPORT_LDIL_OFFSET, SR4EXPORT_LDO_OFFSET): Use
HPPA_INSTRUCTION_SIZE.
(read_unwind_info): Use objfile_data to reference unwind info.
(find_unwind_entry): Likewise.
(hpread_adjust_stack_address): Move to hpread.c.
(_initialize_hppa_tdep): Register hppa objfile data.
* hppa-tdep.h (HPPA_INSTRUCTION_SIZE): Define.
(unwind_table_entry, unwind_stub_types): Move from tm-hppa.h.
(obj_unwind_info, obj_private_struct): Move from tm-hppa.h, and rename
with hppa_ prefix.
* hpread.c (hppa-tdep.h): Include.
(hpread_adjust_stack_address): Move from hppa-tdep.c.
(hpread_read_function_type, hpread_read_doc_function_type)
(hpread_process_one_debug_symbol): Call hpread_adjust_stack_address
directly. Use objfile_data to access solib data.
* pa64solib.c (hppa-tdep.h): Include.
(pa64_solib_add_solib_objfile): Use objfile_data to access solib data.
* somsolib.c (hppa-tdep.h): Include.
(som_solib_add_solib_objfile): Use objfile_data to access solib data.
* config/pa/tm-hppa.h (frame_info, frame_saved_regs, value, type)
(inferior_status): Remove unused forward declarations.
(INSTRUCTION_SIZE): Move to hppa-tdep.c.
(unwind_table_entry, unwind_stub_types, obj_unwind_info)
(obj_private_struct): Move to hppa-tdep.h.
(HPREAD_ADJUST_STACK_ADDRESS): Remove.
2004-04-17 19:19:29 +02:00
|
|
|
|
priv = objfile_data (objfile, hppa_objfile_priv_data);
|
|
|
|
|
if (priv)
|
|
|
|
|
ui = ((struct hppa_objfile_private *) priv)->unwind_info;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
if (!ui)
|
|
|
|
|
{
|
|
|
|
|
read_unwind_info (objfile);
|
2004-04-17 Randolph Chung <tausq@debian.org>
* Makefile.in (hpread.o, pa64solib.o, somsolib.o): Add $(hppa_tdep_h)
* hppa-tdep.c (hppa_objfile_priv_data): New.
(SR4EXPORT_LDIL_OFFSET, SR4EXPORT_LDO_OFFSET): Use
HPPA_INSTRUCTION_SIZE.
(read_unwind_info): Use objfile_data to reference unwind info.
(find_unwind_entry): Likewise.
(hpread_adjust_stack_address): Move to hpread.c.
(_initialize_hppa_tdep): Register hppa objfile data.
* hppa-tdep.h (HPPA_INSTRUCTION_SIZE): Define.
(unwind_table_entry, unwind_stub_types): Move from tm-hppa.h.
(obj_unwind_info, obj_private_struct): Move from tm-hppa.h, and rename
with hppa_ prefix.
* hpread.c (hppa-tdep.h): Include.
(hpread_adjust_stack_address): Move from hppa-tdep.c.
(hpread_read_function_type, hpread_read_doc_function_type)
(hpread_process_one_debug_symbol): Call hpread_adjust_stack_address
directly. Use objfile_data to access solib data.
* pa64solib.c (hppa-tdep.h): Include.
(pa64_solib_add_solib_objfile): Use objfile_data to access solib data.
* somsolib.c (hppa-tdep.h): Include.
(som_solib_add_solib_objfile): Use objfile_data to access solib data.
* config/pa/tm-hppa.h (frame_info, frame_saved_regs, value, type)
(inferior_status): Remove unused forward declarations.
(INSTRUCTION_SIZE): Move to hppa-tdep.c.
(unwind_table_entry, unwind_stub_types, obj_unwind_info)
(obj_private_struct): Move to hppa-tdep.h.
(HPREAD_ADJUST_STACK_ADDRESS): Remove.
2004-04-17 19:19:29 +02:00
|
|
|
|
priv = objfile_data (objfile, hppa_objfile_priv_data);
|
|
|
|
|
if (priv == NULL)
|
2005-02-10 Andrew Cagney <cagney@gnu.org>
Mark up all error and warning messages.
* ada-lang.c, amd64-tdep.c, arch-utils.c, breakpoint.c: Update.
* bsd-kvm.c, bsd-uthread.c, coff-solib.h, coffread.c: Update.
* core-aout.c, core-regset.c, corefile.c, corelow.c: Update.
* cp-abi.c, cp-support.c, cp-valprint.c, cris-tdep.c: Update.
* dbxread.c, demangle.c, doublest.c, dsrec.c: Update.
* dve3900-rom.c, dwarf2expr.c, dwarf2loc.c: Update.
* dwarf2read.c, dwarfread.c, elfread.c, eval.c: Update.
* event-top.c, exec.c, expprint.c, f-lang.c: Update.
* f-typeprint.c, f-valprint.c, fbsd-nat.c, findvar.c: Update.
* frame.c, frv-linux-tdep.c, gcore.c, gdbtypes.c: Update.
* gnu-nat.c, gnu-v2-abi.c, gnu-v3-abi.c, go32-nat.c: Update.
* hpacc-abi.c, hppa-hpux-nat.c, hppa-hpux-tdep.c: Update.
* hppa-linux-nat.c, hppa-linux-tdep.c, hppa-tdep.c: Update.
* hpread.c, hpux-thread.c, i386-linux-nat.c: Update.
* i386-linux-tdep.c, i386-tdep.c, i386bsd-nat.c: Update.
* i386gnu-nat.c, i387-tdep.c, ia64-linux-nat.c: Update.
* ia64-tdep.c, inf-child.c, inf-ptrace.c, inf-ttrace.c: Update.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Update.
* inftarg.c, interps.c, irix5-nat.c, jv-lang.c: Update.
* kod-cisco.c, kod.c, language.c, libunwind-frame.c: Update.
* linespec.c, linux-nat.c, linux-thread-db.c, m2-lang.c: Update.
* m32r-rom.c, m68hc11-tdep.c, m68k-tdep.c: Update.
* m68klinux-nat.c, macrocmd.c, macroexp.c, main.c: Update.
* maint.c, mdebugread.c, mem-break.c, memattr.c: Update.
* mips-linux-tdep.c, mips-tdep.c, mipsread.c, monitor.c: Update.
* nlmread.c, nto-procfs.c, objc-lang.c, objfiles.c: Update.
* observer.c, ocd.c, p-lang.c, p-typeprint.c: Update.
* p-valprint.c, pa64solib.c, parse.c, ppc-linux-tdep.c: Update.
* ppcnbsd-tdep.c, printcmd.c, procfs.c, remote-e7000.c: Update.
* remote-fileio.c, remote-m32r-sdi.c, remote-rdi.c: Update.
* remote-rdp.c, remote-sim.c, remote-st.c: Update.
* remote-utils.c, remote-utils.h, remote.c: Update.
* rom68k-rom.c, rs6000-nat.c, s390-tdep.c, scm-lang.c: Update.
* ser-e7kpc.c, ser-tcp.c, ser-unix.c, sh-tdep.c: Update.
* sh3-rom.c, shnbsd-tdep.c, sol-thread.c, solib-aix5.c: Update.
* solib-frv.c, solib-irix.c, solib-osf.c, solib-pa64.c: Update.
* solib-som.c, solib-sunos.c, solib-svr4.c, solib.c: Update.
* somread.c, somsolib.c, source.c, stabsread.c: Update.
* stack.c, std-regs.c, symfile-mem.c, symfile.c: Update.
* symmisc.c, symtab.c, target.c, thread.c, top.c: Update.
* tracepoint.c, trad-frame.c, typeprint.c, utils.c: Update.
* uw-thread.c, valarith.c, valops.c, valprint.c: Update.
* value.c, varobj.c, version.in, win32-nat.c, wince.c: Update.
* xcoffread.c, xcoffsolib.c, cli/cli-cmds.c: Update.
* cli/cli-decode.c, cli/cli-dump.c, cli/cli-logging.c: Update.
* cli/cli-script.c, cli/cli-setshow.c, mi/mi-cmd-break.c: Update.
* mi/mi-cmd-disas.c, mi/mi-cmd-env.c, mi/mi-cmd-file.c: Update.
* mi/mi-cmd-stack.c, mi/mi-cmd-var.c, mi/mi-getopt.c: Update.
* mi/mi-symbol-cmds.c, tui/tui-layout.c, tui/tui-stack.c: Update.
* tui/tui-win.c: Update.
2005-02-11 05:06:14 +01:00
|
|
|
|
error (_("Internal error reading unwind information."));
|
2004-04-17 Randolph Chung <tausq@debian.org>
* Makefile.in (hpread.o, pa64solib.o, somsolib.o): Add $(hppa_tdep_h)
* hppa-tdep.c (hppa_objfile_priv_data): New.
(SR4EXPORT_LDIL_OFFSET, SR4EXPORT_LDO_OFFSET): Use
HPPA_INSTRUCTION_SIZE.
(read_unwind_info): Use objfile_data to reference unwind info.
(find_unwind_entry): Likewise.
(hpread_adjust_stack_address): Move to hpread.c.
(_initialize_hppa_tdep): Register hppa objfile data.
* hppa-tdep.h (HPPA_INSTRUCTION_SIZE): Define.
(unwind_table_entry, unwind_stub_types): Move from tm-hppa.h.
(obj_unwind_info, obj_private_struct): Move from tm-hppa.h, and rename
with hppa_ prefix.
* hpread.c (hppa-tdep.h): Include.
(hpread_adjust_stack_address): Move from hppa-tdep.c.
(hpread_read_function_type, hpread_read_doc_function_type)
(hpread_process_one_debug_symbol): Call hpread_adjust_stack_address
directly. Use objfile_data to access solib data.
* pa64solib.c (hppa-tdep.h): Include.
(pa64_solib_add_solib_objfile): Use objfile_data to access solib data.
* somsolib.c (hppa-tdep.h): Include.
(som_solib_add_solib_objfile): Use objfile_data to access solib data.
* config/pa/tm-hppa.h (frame_info, frame_saved_regs, value, type)
(inferior_status): Remove unused forward declarations.
(INSTRUCTION_SIZE): Move to hppa-tdep.c.
(unwind_table_entry, unwind_stub_types, obj_unwind_info)
(obj_private_struct): Move to hppa-tdep.h.
(HPREAD_ADJUST_STACK_ADDRESS): Remove.
2004-04-17 19:19:29 +02:00
|
|
|
|
ui = ((struct hppa_objfile_private *) priv)->unwind_info;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
/* First, check the cache */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
if (ui->cache
|
|
|
|
|
&& pc >= ui->cache->region_start
|
|
|
|
|
&& pc <= ui->cache->region_end)
|
2004-04-23 04:51:52 +02:00
|
|
|
|
{
|
|
|
|
|
if (hppa_debug)
|
|
|
|
|
fprintf_unfiltered (gdb_stdlog, "0x%s (cached) }\n",
|
2007-05-13 15:02:54 +02:00
|
|
|
|
paddr_nz ((uintptr_t) ui->cache));
|
2004-04-23 04:51:52 +02:00
|
|
|
|
return ui->cache;
|
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
/* Not in the cache, do a binary search */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
first = 0;
|
|
|
|
|
last = ui->last;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
while (first <= last)
|
|
|
|
|
{
|
|
|
|
|
middle = (first + last) / 2;
|
|
|
|
|
if (pc >= ui->table[middle].region_start
|
|
|
|
|
&& pc <= ui->table[middle].region_end)
|
|
|
|
|
{
|
|
|
|
|
ui->cache = &ui->table[middle];
|
2004-04-23 04:51:52 +02:00
|
|
|
|
if (hppa_debug)
|
|
|
|
|
fprintf_unfiltered (gdb_stdlog, "0x%s }\n",
|
2007-05-13 15:02:54 +02:00
|
|
|
|
paddr_nz ((uintptr_t) ui->cache));
|
1999-07-07 22:19:36 +02:00
|
|
|
|
return &ui->table[middle];
|
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
if (pc < ui->table[middle].region_start)
|
|
|
|
|
last = middle - 1;
|
|
|
|
|
else
|
|
|
|
|
first = middle + 1;
|
|
|
|
|
}
|
|
|
|
|
} /* ALL_OBJFILES() */
|
2004-04-23 04:51:52 +02:00
|
|
|
|
|
|
|
|
|
if (hppa_debug)
|
|
|
|
|
fprintf_unfiltered (gdb_stdlog, "NULL (not found) }\n");
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
return NULL;
|
|
|
|
|
}
|
|
|
|
|
|
2004-12-14 17:35:37 +01:00
|
|
|
|
/* The epilogue is defined here as the area either on the `bv' instruction
|
|
|
|
|
itself or an instruction which destroys the function's stack frame.
|
|
|
|
|
|
|
|
|
|
We do not assume that the epilogue is at the end of a function as we can
|
|
|
|
|
also have return sequences in the middle of a function. */
|
|
|
|
|
static int
|
|
|
|
|
hppa_in_function_epilogue_p (struct gdbarch *gdbarch, CORE_ADDR pc)
|
|
|
|
|
{
|
|
|
|
|
unsigned long status;
|
|
|
|
|
unsigned int inst;
|
|
|
|
|
char buf[4];
|
|
|
|
|
int off;
|
|
|
|
|
|
* breakpoint.h (breakpoint_restore_shadows): New
declaration.
* breakpoint.c (breakpoint_restore_shadows): New.
(read_memory_nobpt): Delete.
* gdbcore.h (read_memory_nobpt): Delete declaration.
* target.c (memory_xfer_partial): Call
breakpoint_restore_shadows.
(restore_show_memory_breakpoints)
(make_show_memory_beakpoints_cleanup): New.
(show_memory_breakpoints): New.
* target.h (make_show_memory_beakpoints_cleanup): Declare.
* ppc-linux-tdep.c (ppc_linux_memory_remove_breakpoint):
Make sure we see memory breakpoints when checking if
breakpoint is still there.
* alpha-tdep.c, alphanbsd-tdep.c, frame.c, frv-tdep.c,
hppa-linux-tdep.c, hppa-tdep.c, i386-linux-nat.c, i386-tdep.c,
m68klinux-tdep.c, mips-tdep.c, mn10300-tdep.c, s390-tdep.c,
sparc-tdep.c: Use target_read_memory instead of read_memory_nobpt.
2008-03-13 13:22:14 +01:00
|
|
|
|
status = target_read_memory (pc, buf, 4);
|
2004-12-14 17:35:37 +01:00
|
|
|
|
if (status != 0)
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
inst = extract_unsigned_integer (buf, 4);
|
|
|
|
|
|
|
|
|
|
/* The most common way to perform a stack adjustment ldo X(sp),sp
|
|
|
|
|
We are destroying a stack frame if the offset is negative. */
|
|
|
|
|
if ((inst & 0xffffc000) == 0x37de0000
|
|
|
|
|
&& hppa_extract_14 (inst) < 0)
|
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
|
|
/* ldw,mb D(sp),X or ldd,mb D(sp),X */
|
|
|
|
|
if (((inst & 0x0fc010e0) == 0x0fc010e0
|
|
|
|
|
|| (inst & 0x0fc010e0) == 0x0fc010e0)
|
|
|
|
|
&& hppa_extract_14 (inst) < 0)
|
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
|
|
/* bv %r0(%rp) or bv,n %r0(%rp) */
|
|
|
|
|
if (inst == 0xe840c000 || inst == 0xe840c002)
|
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
2004-04-06 18:11:06 +02:00
|
|
|
|
static const unsigned char *
|
2007-11-07 07:33:01 +01:00
|
|
|
|
hppa_breakpoint_from_pc (struct gdbarch *gdbarch, CORE_ADDR *pc, int *len)
|
2003-05-16 00:58:39 +02:00
|
|
|
|
{
|
2004-02-22 17:55:03 +01:00
|
|
|
|
static const unsigned char breakpoint[] = {0x00, 0x01, 0x00, 0x04};
|
2003-05-16 00:58:39 +02:00
|
|
|
|
(*len) = sizeof (breakpoint);
|
|
|
|
|
return breakpoint;
|
|
|
|
|
}
|
|
|
|
|
|
2003-07-04 00:14:42 +02:00
|
|
|
|
/* Return the name of a register. */
|
|
|
|
|
|
2004-11-10 17:26:55 +01: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
|
|
|
|
hppa32_register_name (struct gdbarch *gdbarch, int i)
|
2003-07-04 00:14:42 +02:00
|
|
|
|
{
|
|
|
|
|
static char *names[] = {
|
|
|
|
|
"flags", "r1", "rp", "r3",
|
|
|
|
|
"r4", "r5", "r6", "r7",
|
|
|
|
|
"r8", "r9", "r10", "r11",
|
|
|
|
|
"r12", "r13", "r14", "r15",
|
|
|
|
|
"r16", "r17", "r18", "r19",
|
|
|
|
|
"r20", "r21", "r22", "r23",
|
|
|
|
|
"r24", "r25", "r26", "dp",
|
|
|
|
|
"ret0", "ret1", "sp", "r31",
|
|
|
|
|
"sar", "pcoqh", "pcsqh", "pcoqt",
|
|
|
|
|
"pcsqt", "eiem", "iir", "isr",
|
|
|
|
|
"ior", "ipsw", "goto", "sr4",
|
|
|
|
|
"sr0", "sr1", "sr2", "sr3",
|
|
|
|
|
"sr5", "sr6", "sr7", "cr0",
|
|
|
|
|
"cr8", "cr9", "ccr", "cr12",
|
|
|
|
|
"cr13", "cr24", "cr25", "cr26",
|
|
|
|
|
"mpsfu_high","mpsfu_low","mpsfu_ovflo","pad",
|
|
|
|
|
"fpsr", "fpe1", "fpe2", "fpe3",
|
|
|
|
|
"fpe4", "fpe5", "fpe6", "fpe7",
|
|
|
|
|
"fr4", "fr4R", "fr5", "fr5R",
|
|
|
|
|
"fr6", "fr6R", "fr7", "fr7R",
|
|
|
|
|
"fr8", "fr8R", "fr9", "fr9R",
|
|
|
|
|
"fr10", "fr10R", "fr11", "fr11R",
|
|
|
|
|
"fr12", "fr12R", "fr13", "fr13R",
|
|
|
|
|
"fr14", "fr14R", "fr15", "fr15R",
|
|
|
|
|
"fr16", "fr16R", "fr17", "fr17R",
|
|
|
|
|
"fr18", "fr18R", "fr19", "fr19R",
|
|
|
|
|
"fr20", "fr20R", "fr21", "fr21R",
|
|
|
|
|
"fr22", "fr22R", "fr23", "fr23R",
|
|
|
|
|
"fr24", "fr24R", "fr25", "fr25R",
|
|
|
|
|
"fr26", "fr26R", "fr27", "fr27R",
|
|
|
|
|
"fr28", "fr28R", "fr29", "fr29R",
|
|
|
|
|
"fr30", "fr30R", "fr31", "fr31R"
|
|
|
|
|
};
|
|
|
|
|
if (i < 0 || i >= (sizeof (names) / sizeof (*names)))
|
|
|
|
|
return NULL;
|
|
|
|
|
else
|
|
|
|
|
return names[i];
|
|
|
|
|
}
|
|
|
|
|
|
2004-11-10 17:26:55 +01: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
|
|
|
|
hppa64_register_name (struct gdbarch *gdbarch, int i)
|
2003-07-04 00:14:42 +02:00
|
|
|
|
{
|
|
|
|
|
static char *names[] = {
|
|
|
|
|
"flags", "r1", "rp", "r3",
|
|
|
|
|
"r4", "r5", "r6", "r7",
|
|
|
|
|
"r8", "r9", "r10", "r11",
|
|
|
|
|
"r12", "r13", "r14", "r15",
|
|
|
|
|
"r16", "r17", "r18", "r19",
|
|
|
|
|
"r20", "r21", "r22", "r23",
|
|
|
|
|
"r24", "r25", "r26", "dp",
|
|
|
|
|
"ret0", "ret1", "sp", "r31",
|
|
|
|
|
"sar", "pcoqh", "pcsqh", "pcoqt",
|
|
|
|
|
"pcsqt", "eiem", "iir", "isr",
|
|
|
|
|
"ior", "ipsw", "goto", "sr4",
|
|
|
|
|
"sr0", "sr1", "sr2", "sr3",
|
|
|
|
|
"sr5", "sr6", "sr7", "cr0",
|
|
|
|
|
"cr8", "cr9", "ccr", "cr12",
|
|
|
|
|
"cr13", "cr24", "cr25", "cr26",
|
|
|
|
|
"mpsfu_high","mpsfu_low","mpsfu_ovflo","pad",
|
|
|
|
|
"fpsr", "fpe1", "fpe2", "fpe3",
|
|
|
|
|
"fr4", "fr5", "fr6", "fr7",
|
|
|
|
|
"fr8", "fr9", "fr10", "fr11",
|
|
|
|
|
"fr12", "fr13", "fr14", "fr15",
|
|
|
|
|
"fr16", "fr17", "fr18", "fr19",
|
|
|
|
|
"fr20", "fr21", "fr22", "fr23",
|
|
|
|
|
"fr24", "fr25", "fr26", "fr27",
|
|
|
|
|
"fr28", "fr29", "fr30", "fr31"
|
|
|
|
|
};
|
|
|
|
|
if (i < 0 || i >= (sizeof (names) / sizeof (*names)))
|
|
|
|
|
return NULL;
|
|
|
|
|
else
|
|
|
|
|
return names[i];
|
|
|
|
|
}
|
|
|
|
|
|
2005-12-09 12:10:25 +01:00
|
|
|
|
static int
|
2007-12-06 17:33:00 +01:00
|
|
|
|
hppa64_dwarf_reg_to_regnum (struct gdbarch *gdbarch, int reg)
|
2005-12-09 12:10:25 +01:00
|
|
|
|
{
|
|
|
|
|
/* r0-r31 and sar map one-to-one. */
|
|
|
|
|
if (reg <= 32)
|
|
|
|
|
return reg;
|
|
|
|
|
|
|
|
|
|
/* fr4-fr31 are mapped from 72 in steps of 2. */
|
|
|
|
|
if (reg >= 72 || reg < 72 + 28 * 2)
|
|
|
|
|
return HPPA64_FP4_REGNUM + (reg - 72) / 2;
|
|
|
|
|
|
|
|
|
|
error ("Invalid DWARF register num %d.", reg);
|
|
|
|
|
return -1;
|
|
|
|
|
}
|
|
|
|
|
|
2004-02-25 21:00:40 +01:00
|
|
|
|
/* This function pushes a stack frame with arguments as part of the
|
|
|
|
|
inferior function calling mechanism.
|
|
|
|
|
|
|
|
|
|
This is the version of the function for the 32-bit PA machines, in
|
|
|
|
|
which later arguments appear at lower addresses. (The stack always
|
|
|
|
|
grows towards higher addresses.)
|
|
|
|
|
|
|
|
|
|
We simply allocate the appropriate amount of stack space and put
|
|
|
|
|
arguments into their proper slots. */
|
|
|
|
|
|
2004-11-10 17:26:55 +01:00
|
|
|
|
static CORE_ADDR
|
2004-06-07 04:02:55 +02:00
|
|
|
|
hppa32_push_dummy_call (struct gdbarch *gdbarch, struct value *function,
|
2004-02-25 21:00:40 +01:00
|
|
|
|
struct regcache *regcache, CORE_ADDR bp_addr,
|
|
|
|
|
int nargs, struct value **args, CORE_ADDR sp,
|
|
|
|
|
int struct_return, CORE_ADDR struct_addr)
|
|
|
|
|
{
|
|
|
|
|
/* Stack base address at which any pass-by-reference parameters are
|
|
|
|
|
stored. */
|
|
|
|
|
CORE_ADDR struct_end = 0;
|
|
|
|
|
/* Stack base address at which the first parameter is stored. */
|
|
|
|
|
CORE_ADDR param_end = 0;
|
|
|
|
|
|
|
|
|
|
/* The inner most end of the stack after all the parameters have
|
|
|
|
|
been pushed. */
|
|
|
|
|
CORE_ADDR new_sp = 0;
|
|
|
|
|
|
|
|
|
|
/* Two passes. First pass computes the location of everything,
|
|
|
|
|
second pass writes the bytes out. */
|
|
|
|
|
int write_pass;
|
2004-06-07 04:08:07 +02:00
|
|
|
|
|
|
|
|
|
/* Global pointer (r19) of the function we are trying to call. */
|
|
|
|
|
CORE_ADDR gp;
|
|
|
|
|
|
|
|
|
|
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
|
|
|
|
|
|
2004-02-25 21:00:40 +01:00
|
|
|
|
for (write_pass = 0; write_pass < 2; write_pass++)
|
|
|
|
|
{
|
2004-02-27 17:38:39 +01:00
|
|
|
|
CORE_ADDR struct_ptr = 0;
|
2004-04-29 05:25:35 +02:00
|
|
|
|
/* The first parameter goes into sp-36, each stack slot is 4-bytes.
|
|
|
|
|
struct_ptr is adjusted for each argument below, so the first
|
|
|
|
|
argument will end up at sp-36. */
|
|
|
|
|
CORE_ADDR param_ptr = 32;
|
2004-02-25 21:00:40 +01:00
|
|
|
|
int i;
|
2004-04-29 05:25:35 +02:00
|
|
|
|
int small_struct = 0;
|
|
|
|
|
|
2004-02-25 21:00:40 +01:00
|
|
|
|
for (i = 0; i < nargs; i++)
|
|
|
|
|
{
|
|
|
|
|
struct value *arg = args[i];
|
2004-11-12 Andrew Cagney <cagney@gnu.org>
* sparc-tdep.c: Replace VALUE_TYPE with value_type.
* v850-tdep.c, sparc64-tdep.c, sh-tdep.c: Ditto.
* sh64-tdep.c, s390-tdep.c, mcore-tdep.c: Ditto.
* h8300-tdep.c, arm-linux-tdep.c, amd64-tdep.c: Ditto.
* hppa-tdep.c, mips-tdep.c, m88k-tdep.c: Ditto.
* m68hc11-tdep.c, m32r-tdep.c, ia64-tdep.c: Ditto.
* frv-tdep.c, cris-tdep.c, avr-tdep.c, alpha-tdep.c: Ditto.
2004-11-13 03:15:33 +01:00
|
|
|
|
struct type *type = check_typedef (value_type (arg));
|
2004-02-25 21:00:40 +01:00
|
|
|
|
/* The corresponding parameter that is pushed onto the
|
|
|
|
|
stack, and [possibly] passed in a register. */
|
|
|
|
|
char param_val[8];
|
|
|
|
|
int param_len;
|
|
|
|
|
memset (param_val, 0, sizeof param_val);
|
|
|
|
|
if (TYPE_LENGTH (type) > 8)
|
|
|
|
|
{
|
|
|
|
|
/* Large parameter, pass by reference. Store the value
|
|
|
|
|
in "struct" area and then pass its address. */
|
|
|
|
|
param_len = 4;
|
2004-02-27 17:38:39 +01:00
|
|
|
|
struct_ptr += align_up (TYPE_LENGTH (type), 8);
|
2004-02-25 21:00:40 +01:00
|
|
|
|
if (write_pass)
|
2005-02-06 Andrew Cagney <cagney@gnu.org>
* value.c (value_contents, value_contents_writeable): New
functions.
* value.h (VALUE_CONTENTS): Delete macro.
(value_contents, value_contents_writeable): Declare.
* xstormy16-tdep.c, value.c, valops.c, valarith.c: Update.
* stack.c, sparc-tdep.c, sparc64-tdep.c, sh-tdep.c: Update.
* sh64-tdep.c, scm-valprint.c, scm-exp.c, s390-tdep.c: Update.
* rs6000-tdep.c, p-valprint.c, printcmd.c: Update.
* ppc-sysv-tdep.c, mips-tdep.c, mi/mi-main.c: Update.
* m88k-tdep.c, m68hc11-tdep.c, m32r-tdep.c: Update.
* jv-valprint.c, ia64-tdep.c, hppa-tdep.c: Update.
* hpacc-abi.c, f-valprint.c, frv-tdep.c, eval.c: Update.
* c-valprint.c, cris-tdep.c, cp-valprint.c: Update.
* cli/cli-dump.c, breakpoint.c, avr-tdep.c, arm-tdep.c: Update.
* arm-linux-tdep.c, amd64-tdep.c, alpha-tdep.c: Update.
* ada-valprint.c, ada-lang.c: Update.
2005-02-07 01:09:56 +01:00
|
|
|
|
write_memory (struct_end - struct_ptr, value_contents (arg),
|
2004-02-25 21:00:40 +01:00
|
|
|
|
TYPE_LENGTH (type));
|
2004-02-27 17:38:39 +01:00
|
|
|
|
store_unsigned_integer (param_val, 4, struct_end - struct_ptr);
|
2004-02-25 21:00:40 +01:00
|
|
|
|
}
|
|
|
|
|
else if (TYPE_CODE (type) == TYPE_CODE_INT
|
|
|
|
|
|| TYPE_CODE (type) == TYPE_CODE_ENUM)
|
|
|
|
|
{
|
|
|
|
|
/* Integer value store, right aligned. "unpack_long"
|
|
|
|
|
takes care of any sign-extension problems. */
|
|
|
|
|
param_len = align_up (TYPE_LENGTH (type), 4);
|
|
|
|
|
store_unsigned_integer (param_val, param_len,
|
|
|
|
|
unpack_long (type,
|
2005-02-06 Andrew Cagney <cagney@gnu.org>
* value.c (value_contents, value_contents_writeable): New
functions.
* value.h (VALUE_CONTENTS): Delete macro.
(value_contents, value_contents_writeable): Declare.
* xstormy16-tdep.c, value.c, valops.c, valarith.c: Update.
* stack.c, sparc-tdep.c, sparc64-tdep.c, sh-tdep.c: Update.
* sh64-tdep.c, scm-valprint.c, scm-exp.c, s390-tdep.c: Update.
* rs6000-tdep.c, p-valprint.c, printcmd.c: Update.
* ppc-sysv-tdep.c, mips-tdep.c, mi/mi-main.c: Update.
* m88k-tdep.c, m68hc11-tdep.c, m32r-tdep.c: Update.
* jv-valprint.c, ia64-tdep.c, hppa-tdep.c: Update.
* hpacc-abi.c, f-valprint.c, frv-tdep.c, eval.c: Update.
* c-valprint.c, cris-tdep.c, cp-valprint.c: Update.
* cli/cli-dump.c, breakpoint.c, avr-tdep.c, arm-tdep.c: Update.
* arm-linux-tdep.c, amd64-tdep.c, alpha-tdep.c: Update.
* ada-valprint.c, ada-lang.c: Update.
2005-02-07 01:09:56 +01:00
|
|
|
|
value_contents (arg)));
|
2004-02-25 21:00:40 +01:00
|
|
|
|
}
|
2004-04-29 05:25:35 +02:00
|
|
|
|
else if (TYPE_CODE (type) == TYPE_CODE_FLT)
|
|
|
|
|
{
|
|
|
|
|
/* Floating point value store, right aligned. */
|
|
|
|
|
param_len = align_up (TYPE_LENGTH (type), 4);
|
2005-02-06 Andrew Cagney <cagney@gnu.org>
* value.c (value_contents, value_contents_writeable): New
functions.
* value.h (VALUE_CONTENTS): Delete macro.
(value_contents, value_contents_writeable): Declare.
* xstormy16-tdep.c, value.c, valops.c, valarith.c: Update.
* stack.c, sparc-tdep.c, sparc64-tdep.c, sh-tdep.c: Update.
* sh64-tdep.c, scm-valprint.c, scm-exp.c, s390-tdep.c: Update.
* rs6000-tdep.c, p-valprint.c, printcmd.c: Update.
* ppc-sysv-tdep.c, mips-tdep.c, mi/mi-main.c: Update.
* m88k-tdep.c, m68hc11-tdep.c, m32r-tdep.c: Update.
* jv-valprint.c, ia64-tdep.c, hppa-tdep.c: Update.
* hpacc-abi.c, f-valprint.c, frv-tdep.c, eval.c: Update.
* c-valprint.c, cris-tdep.c, cp-valprint.c: Update.
* cli/cli-dump.c, breakpoint.c, avr-tdep.c, arm-tdep.c: Update.
* arm-linux-tdep.c, amd64-tdep.c, alpha-tdep.c: Update.
* ada-valprint.c, ada-lang.c: Update.
2005-02-07 01:09:56 +01:00
|
|
|
|
memcpy (param_val, value_contents (arg), param_len);
|
2004-04-29 05:25:35 +02:00
|
|
|
|
}
|
2004-02-25 21:00:40 +01:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
param_len = align_up (TYPE_LENGTH (type), 4);
|
2004-04-29 05:25:35 +02:00
|
|
|
|
|
|
|
|
|
/* Small struct value are stored right-aligned. */
|
2004-02-25 21:00:40 +01:00
|
|
|
|
memcpy (param_val + param_len - TYPE_LENGTH (type),
|
2005-02-06 Andrew Cagney <cagney@gnu.org>
* value.c (value_contents, value_contents_writeable): New
functions.
* value.h (VALUE_CONTENTS): Delete macro.
(value_contents, value_contents_writeable): Declare.
* xstormy16-tdep.c, value.c, valops.c, valarith.c: Update.
* stack.c, sparc-tdep.c, sparc64-tdep.c, sh-tdep.c: Update.
* sh64-tdep.c, scm-valprint.c, scm-exp.c, s390-tdep.c: Update.
* rs6000-tdep.c, p-valprint.c, printcmd.c: Update.
* ppc-sysv-tdep.c, mips-tdep.c, mi/mi-main.c: Update.
* m88k-tdep.c, m68hc11-tdep.c, m32r-tdep.c: Update.
* jv-valprint.c, ia64-tdep.c, hppa-tdep.c: Update.
* hpacc-abi.c, f-valprint.c, frv-tdep.c, eval.c: Update.
* c-valprint.c, cris-tdep.c, cp-valprint.c: Update.
* cli/cli-dump.c, breakpoint.c, avr-tdep.c, arm-tdep.c: Update.
* arm-linux-tdep.c, amd64-tdep.c, alpha-tdep.c: Update.
* ada-valprint.c, ada-lang.c: Update.
2005-02-07 01:09:56 +01:00
|
|
|
|
value_contents (arg), TYPE_LENGTH (type));
|
2004-04-29 05:25:35 +02:00
|
|
|
|
|
|
|
|
|
/* Structures of size 5, 6 and 7 bytes are special in that
|
|
|
|
|
the higher-ordered word is stored in the lower-ordered
|
|
|
|
|
argument, and even though it is a 8-byte quantity the
|
|
|
|
|
registers need not be 8-byte aligned. */
|
2004-05-24 17:36:31 +02:00
|
|
|
|
if (param_len > 4 && param_len < 8)
|
2004-04-29 05:25:35 +02:00
|
|
|
|
small_struct = 1;
|
2004-02-25 21:00:40 +01:00
|
|
|
|
}
|
2004-04-29 05:25:35 +02:00
|
|
|
|
|
2004-02-27 17:38:39 +01:00
|
|
|
|
param_ptr += param_len;
|
2004-04-29 05:25:35 +02:00
|
|
|
|
if (param_len == 8 && !small_struct)
|
|
|
|
|
param_ptr = align_up (param_ptr, 8);
|
|
|
|
|
|
|
|
|
|
/* First 4 non-FP arguments are passed in gr26-gr23.
|
|
|
|
|
First 4 32-bit FP arguments are passed in fr4L-fr7L.
|
|
|
|
|
First 2 64-bit FP arguments are passed in fr5 and fr7.
|
|
|
|
|
|
|
|
|
|
The rest go on the stack, starting at sp-36, towards lower
|
|
|
|
|
addresses. 8-byte arguments must be aligned to a 8-byte
|
|
|
|
|
stack boundary. */
|
2004-02-25 21:00:40 +01:00
|
|
|
|
if (write_pass)
|
|
|
|
|
{
|
2004-02-27 17:38:39 +01:00
|
|
|
|
write_memory (param_end - param_ptr, param_val, param_len);
|
2004-04-29 05:25:35 +02:00
|
|
|
|
|
|
|
|
|
/* There are some cases when we don't know the type
|
|
|
|
|
expected by the callee (e.g. for variadic functions), so
|
|
|
|
|
pass the parameters in both general and fp regs. */
|
|
|
|
|
if (param_ptr <= 48)
|
2004-02-25 21:00:40 +01:00
|
|
|
|
{
|
2004-04-29 05:25:35 +02:00
|
|
|
|
int grreg = 26 - (param_ptr - 36) / 4;
|
|
|
|
|
int fpLreg = 72 + (param_ptr - 36) / 4 * 2;
|
|
|
|
|
int fpreg = 74 + (param_ptr - 32) / 8 * 4;
|
|
|
|
|
|
|
|
|
|
regcache_cooked_write (regcache, grreg, param_val);
|
|
|
|
|
regcache_cooked_write (regcache, fpLreg, param_val);
|
|
|
|
|
|
2004-02-25 21:00:40 +01:00
|
|
|
|
if (param_len > 4)
|
2004-04-29 05:25:35 +02:00
|
|
|
|
{
|
|
|
|
|
regcache_cooked_write (regcache, grreg + 1,
|
|
|
|
|
param_val + 4);
|
|
|
|
|
|
|
|
|
|
regcache_cooked_write (regcache, fpreg, param_val);
|
|
|
|
|
regcache_cooked_write (regcache, fpreg + 1,
|
|
|
|
|
param_val + 4);
|
|
|
|
|
}
|
2004-02-25 21:00:40 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Update the various stack pointers. */
|
|
|
|
|
if (!write_pass)
|
|
|
|
|
{
|
2004-04-29 05:25:35 +02:00
|
|
|
|
struct_end = sp + align_up (struct_ptr, 64);
|
2004-02-25 21:00:40 +01:00
|
|
|
|
/* PARAM_PTR already accounts for all the arguments passed
|
|
|
|
|
by the user. However, the ABI mandates minimum stack
|
|
|
|
|
space allocations for outgoing arguments. The ABI also
|
|
|
|
|
mandates minimum stack alignments which we must
|
|
|
|
|
preserve. */
|
2004-04-29 05:25:35 +02:00
|
|
|
|
param_end = struct_end + align_up (param_ptr, 64);
|
2004-02-25 21:00:40 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* If a structure has to be returned, set up register 28 to hold its
|
|
|
|
|
address */
|
|
|
|
|
if (struct_return)
|
2007-06-16 00:34:13 +02:00
|
|
|
|
regcache_cooked_write_unsigned (regcache, 28, struct_addr);
|
2004-02-25 21:00:40 +01:00
|
|
|
|
|
2008-02-18 17:11:21 +01:00
|
|
|
|
gp = tdep->find_global_pointer (gdbarch, function);
|
2004-06-07 04:08:07 +02:00
|
|
|
|
|
|
|
|
|
if (gp != 0)
|
2007-06-16 00:34:13 +02:00
|
|
|
|
regcache_cooked_write_unsigned (regcache, 19, gp);
|
2004-06-07 04:08:07 +02:00
|
|
|
|
|
2004-02-25 21:00:40 +01:00
|
|
|
|
/* Set the return address. */
|
2004-12-17 20:09:53 +01:00
|
|
|
|
if (!gdbarch_push_dummy_code_p (gdbarch))
|
|
|
|
|
regcache_cooked_write_unsigned (regcache, HPPA_RP_REGNUM, bp_addr);
|
2004-02-25 21:00:40 +01:00
|
|
|
|
|
2004-03-31 19:44:09 +02:00
|
|
|
|
/* Update the Stack Pointer. */
|
2004-05-06 Randolph Chung <tausq@debian.org>
* config/pa/tm-hppa.h (RO_REGNUM, FLAGS_REGNUM, RP_REGNUM)
(HPPA_FP_REGNUM, HPPA_SP_REGNUM, SAR_REGNUM, IPSW_REGNUM)
(PCOQ_HEAD_REGNUM, PCSQ_HEAD_REGNUM, PCOQ_TAIL_REGNUM, PCSQ_TAIL_REGNUM)
(EIEM_REGNUM, IIR_REGNUM, ISR_REGNUM, IOR_REGNUM, SR4_REGNUM)
(RCR_REGNUM, PID0_REGNUM, PID1_REGNUM, PID2_REGNUM, PID3_REGNUM)
(CCR_REGNUM, TR0_REGNUM, CR27_REGNUM, HPPA_FP0_REGNUM, FP4_REGNUM)
(ARG0_REGNUM, ARG1_REGNUM, ARG2_REGNUM, ARG3_REGNUM): Move *_REGNUM
definitions ...
* hppa-tdep.h: ... to here, with HPPA_ prefix.
* Makefile.in (hppah-nat.o): Add $(hppa_tdep_h)
* hppa-hpux-tdep.c (hppa32_hpux_frame_find_saved_regs_in_sig)
(hppa64_hpux_frame_find_saved_regs_in_sig)
(child_get_current_exception_event): Add HPPA_ prefix to *_REGNUM usage.
* hppa-linux-nat.c (GR_REGNUM, TR_REGNUM, greg_map): Likewise.
* hppa-linux-tdep.c (hppa_dwarf_reg_to_regnum)
(hppa_linux_target_write_pc, hppa_linux_sigtramp_frame_unwind_cache)
(hppa_linux_sigtramp_frame_prev_register): Likewise.
* hppa-tdep.c (hppa32_return_value, hppa64_return_value)
(hppa32_push_dummy_call, hppa64_push_dummy_call, hppa64_frame_align)
(hppa_target_read_pc, hppa_target_write_pc, hppa_frame_cache)
(hppa_frame_prev_register, hppa_stub_frame_unwind_cache)
(hppa_stub_frame_prev_register, hppa_unwind_dummy_id)
(hppa_skip_permanent_breakpoint, hppa_instruction_nullified)
(hppa32_register_type, hppa_cannot_store_register)
(hppa_fetch_pointer_argument, hppa_pseudo_register_read): Likewise.
* hppah-nat.c (store_inferior_registers, fetch_register): Likewise.
* hpread.c (hpread_process_one_debug_symbol): Likewise.
* pa64solib.c (pa64_solib_have_load_event)
(pa64_solib_have_unload_event, pa64_solib_loaded_library_pathname)
(pa64_solib_unloaded_library_pathname): Likewise.
* somsolib.c (som_solib_have_load_event, som_solib_have_unload_event)
(som_solib_library_pathname): Likewise.
2004-05-07 07:48:50 +02:00
|
|
|
|
regcache_cooked_write_unsigned (regcache, HPPA_SP_REGNUM, param_end);
|
2004-03-31 19:44:09 +02:00
|
|
|
|
|
2004-04-29 05:25:35 +02:00
|
|
|
|
return param_end;
|
2004-02-25 21:00:40 +01:00
|
|
|
|
}
|
|
|
|
|
|
2004-12-19 22:09:40 +01:00
|
|
|
|
/* The 64-bit PA-RISC calling conventions are documented in "64-Bit
|
|
|
|
|
Runtime Architecture for PA-RISC 2.0", which is distributed as part
|
|
|
|
|
as of the HP-UX Software Transition Kit (STK). This implementation
|
|
|
|
|
is based on version 3.3, dated October 6, 1997. */
|
2004-02-23 17:35:54 +01:00
|
|
|
|
|
2004-12-19 22:09:40 +01:00
|
|
|
|
/* Check whether TYPE is an "Integral or Pointer Scalar Type". */
|
2004-02-23 17:35:54 +01:00
|
|
|
|
|
2004-12-19 22:09:40 +01:00
|
|
|
|
static int
|
|
|
|
|
hppa64_integral_or_pointer_p (const struct type *type)
|
|
|
|
|
{
|
|
|
|
|
switch (TYPE_CODE (type))
|
|
|
|
|
{
|
|
|
|
|
case TYPE_CODE_INT:
|
|
|
|
|
case TYPE_CODE_BOOL:
|
|
|
|
|
case TYPE_CODE_CHAR:
|
|
|
|
|
case TYPE_CODE_ENUM:
|
|
|
|
|
case TYPE_CODE_RANGE:
|
|
|
|
|
{
|
|
|
|
|
int len = TYPE_LENGTH (type);
|
|
|
|
|
return (len == 1 || len == 2 || len == 4 || len == 8);
|
|
|
|
|
}
|
|
|
|
|
case TYPE_CODE_PTR:
|
|
|
|
|
case TYPE_CODE_REF:
|
|
|
|
|
return (TYPE_LENGTH (type) == 8);
|
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Check whether TYPE is a "Floating Scalar Type". */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
hppa64_floating_p (const struct type *type)
|
|
|
|
|
{
|
|
|
|
|
switch (TYPE_CODE (type))
|
|
|
|
|
{
|
|
|
|
|
case TYPE_CODE_FLT:
|
|
|
|
|
{
|
|
|
|
|
int len = TYPE_LENGTH (type);
|
|
|
|
|
return (len == 4 || len == 8 || len == 16);
|
|
|
|
|
}
|
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
2004-02-23 17:35:54 +01:00
|
|
|
|
|
2005-12-09 12:13:34 +01:00
|
|
|
|
/* If CODE points to a function entry address, try to look up the corresponding
|
|
|
|
|
function descriptor and return its address instead. If CODE is not a
|
|
|
|
|
function entry address, then just return it unchanged. */
|
|
|
|
|
static CORE_ADDR
|
|
|
|
|
hppa64_convert_code_addr_to_fptr (CORE_ADDR code)
|
|
|
|
|
{
|
|
|
|
|
struct obj_section *sec, *opd;
|
|
|
|
|
|
|
|
|
|
sec = find_pc_section (code);
|
|
|
|
|
|
|
|
|
|
if (!sec)
|
|
|
|
|
return code;
|
|
|
|
|
|
|
|
|
|
/* If CODE is in a data section, assume it's already a fptr. */
|
|
|
|
|
if (!(sec->the_bfd_section->flags & SEC_CODE))
|
|
|
|
|
return code;
|
|
|
|
|
|
|
|
|
|
ALL_OBJFILE_OSECTIONS (sec->objfile, opd)
|
|
|
|
|
{
|
|
|
|
|
if (strcmp (opd->the_bfd_section->name, ".opd") == 0)
|
2008-08-21 15:19:18 +02:00
|
|
|
|
break;
|
2005-12-09 12:13:34 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (opd < sec->objfile->sections_end)
|
|
|
|
|
{
|
|
|
|
|
CORE_ADDR addr;
|
|
|
|
|
|
2008-08-21 15:19:18 +02:00
|
|
|
|
for (addr = obj_section_addr (opd);
|
|
|
|
|
addr < obj_section_endaddr (opd);
|
|
|
|
|
addr += 2 * 8)
|
|
|
|
|
{
|
2005-12-09 12:13:34 +01:00
|
|
|
|
ULONGEST opdaddr;
|
|
|
|
|
char tmp[8];
|
|
|
|
|
|
|
|
|
|
if (target_read_memory (addr, tmp, sizeof (tmp)))
|
|
|
|
|
break;
|
|
|
|
|
opdaddr = extract_unsigned_integer (tmp, sizeof (tmp));
|
|
|
|
|
|
2008-08-21 15:19:18 +02:00
|
|
|
|
if (opdaddr == code)
|
2005-12-09 12:13:34 +01:00
|
|
|
|
return addr - 16;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return code;
|
|
|
|
|
}
|
|
|
|
|
|
2004-11-10 17:26:55 +01:00
|
|
|
|
static CORE_ADDR
|
2004-06-07 04:02:55 +02:00
|
|
|
|
hppa64_push_dummy_call (struct gdbarch *gdbarch, struct value *function,
|
2004-02-23 17:35:54 +01:00
|
|
|
|
struct regcache *regcache, CORE_ADDR bp_addr,
|
|
|
|
|
int nargs, struct value **args, CORE_ADDR sp,
|
|
|
|
|
int struct_return, CORE_ADDR struct_addr)
|
|
|
|
|
{
|
2004-12-19 22:09:40 +01:00
|
|
|
|
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
|
|
|
|
|
int i, offset = 0;
|
|
|
|
|
CORE_ADDR gp;
|
2004-02-23 17:35:54 +01:00
|
|
|
|
|
2004-12-19 22:09:40 +01:00
|
|
|
|
/* "The outgoing parameter area [...] must be aligned at a 16-byte
|
|
|
|
|
boundary." */
|
|
|
|
|
sp = align_up (sp, 16);
|
2004-02-23 17:35:54 +01:00
|
|
|
|
|
2004-12-19 22:09:40 +01:00
|
|
|
|
for (i = 0; i < nargs; i++)
|
|
|
|
|
{
|
|
|
|
|
struct value *arg = args[i];
|
|
|
|
|
struct type *type = value_type (arg);
|
|
|
|
|
int len = TYPE_LENGTH (type);
|
2005-02-06 Andrew Cagney <cagney@gnu.org>
* value.c (value_contents, value_contents_writeable): New
functions.
* value.h (VALUE_CONTENTS): Delete macro.
(value_contents, value_contents_writeable): Declare.
* xstormy16-tdep.c, value.c, valops.c, valarith.c: Update.
* stack.c, sparc-tdep.c, sparc64-tdep.c, sh-tdep.c: Update.
* sh64-tdep.c, scm-valprint.c, scm-exp.c, s390-tdep.c: Update.
* rs6000-tdep.c, p-valprint.c, printcmd.c: Update.
* ppc-sysv-tdep.c, mips-tdep.c, mi/mi-main.c: Update.
* m88k-tdep.c, m68hc11-tdep.c, m32r-tdep.c: Update.
* jv-valprint.c, ia64-tdep.c, hppa-tdep.c: Update.
* hpacc-abi.c, f-valprint.c, frv-tdep.c, eval.c: Update.
* c-valprint.c, cris-tdep.c, cp-valprint.c: Update.
* cli/cli-dump.c, breakpoint.c, avr-tdep.c, arm-tdep.c: Update.
* arm-linux-tdep.c, amd64-tdep.c, alpha-tdep.c: Update.
* ada-valprint.c, ada-lang.c: Update.
2005-02-07 01:09:56 +01:00
|
|
|
|
const bfd_byte *valbuf;
|
2005-12-09 12:13:34 +01:00
|
|
|
|
bfd_byte fptrbuf[8];
|
2004-12-19 22:09:40 +01:00
|
|
|
|
int regnum;
|
2004-02-23 17:35:54 +01:00
|
|
|
|
|
2004-12-19 22:09:40 +01:00
|
|
|
|
/* "Each parameter begins on a 64-bit (8-byte) boundary." */
|
|
|
|
|
offset = align_up (offset, 8);
|
2004-12-17 20:09:53 +01:00
|
|
|
|
|
2004-12-19 22:09:40 +01:00
|
|
|
|
if (hppa64_integral_or_pointer_p (type))
|
2004-02-23 17:35:54 +01:00
|
|
|
|
{
|
2004-12-19 22:09:40 +01:00
|
|
|
|
/* "Integral scalar parameters smaller than 64 bits are
|
|
|
|
|
padded on the left (i.e., the value is in the
|
|
|
|
|
least-significant bits of the 64-bit storage unit, and
|
|
|
|
|
the high-order bits are undefined)." Therefore we can
|
|
|
|
|
safely sign-extend them. */
|
|
|
|
|
if (len < 8)
|
2004-03-07 18:06:21 +01:00
|
|
|
|
{
|
2004-12-19 22:09:40 +01:00
|
|
|
|
arg = value_cast (builtin_type_int64, arg);
|
|
|
|
|
len = 8;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (hppa64_floating_p (type))
|
|
|
|
|
{
|
|
|
|
|
if (len > 8)
|
|
|
|
|
{
|
|
|
|
|
/* "Quad-precision (128-bit) floating-point scalar
|
|
|
|
|
parameters are aligned on a 16-byte boundary." */
|
|
|
|
|
offset = align_up (offset, 16);
|
|
|
|
|
|
|
|
|
|
/* "Double-extended- and quad-precision floating-point
|
|
|
|
|
parameters within the first 64 bytes of the parameter
|
|
|
|
|
list are always passed in general registers." */
|
2004-03-07 18:06:21 +01:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2004-12-19 22:09:40 +01:00
|
|
|
|
if (len == 4)
|
2004-03-07 18:06:21 +01:00
|
|
|
|
{
|
2004-12-19 22:09:40 +01:00
|
|
|
|
/* "Single-precision (32-bit) floating-point scalar
|
|
|
|
|
parameters are padded on the left with 32 bits of
|
|
|
|
|
garbage (i.e., the floating-point value is in the
|
|
|
|
|
least-significant 32 bits of a 64-bit storage
|
|
|
|
|
unit)." */
|
|
|
|
|
offset += 4;
|
2004-03-07 18:06:21 +01:00
|
|
|
|
}
|
2004-12-19 22:09:40 +01:00
|
|
|
|
|
|
|
|
|
/* "Single- and double-precision floating-point
|
|
|
|
|
parameters in this area are passed according to the
|
|
|
|
|
available formal parameter information in a function
|
|
|
|
|
prototype. [...] If no prototype is in scope,
|
|
|
|
|
floating-point parameters must be passed both in the
|
|
|
|
|
corresponding general registers and in the
|
|
|
|
|
corresponding floating-point registers." */
|
|
|
|
|
regnum = HPPA64_FP4_REGNUM + offset / 8;
|
|
|
|
|
|
|
|
|
|
if (regnum < HPPA64_FP4_REGNUM + 8)
|
2004-03-07 18:06:21 +01:00
|
|
|
|
{
|
2004-12-19 22:09:40 +01:00
|
|
|
|
/* "Single-precision floating-point parameters, when
|
|
|
|
|
passed in floating-point registers, are passed in
|
|
|
|
|
the right halves of the floating point registers;
|
|
|
|
|
the left halves are unused." */
|
|
|
|
|
regcache_cooked_write_part (regcache, regnum, offset % 8,
|
2005-02-06 Andrew Cagney <cagney@gnu.org>
* value.c (value_contents, value_contents_writeable): New
functions.
* value.h (VALUE_CONTENTS): Delete macro.
(value_contents, value_contents_writeable): Declare.
* xstormy16-tdep.c, value.c, valops.c, valarith.c: Update.
* stack.c, sparc-tdep.c, sparc64-tdep.c, sh-tdep.c: Update.
* sh64-tdep.c, scm-valprint.c, scm-exp.c, s390-tdep.c: Update.
* rs6000-tdep.c, p-valprint.c, printcmd.c: Update.
* ppc-sysv-tdep.c, mips-tdep.c, mi/mi-main.c: Update.
* m88k-tdep.c, m68hc11-tdep.c, m32r-tdep.c: Update.
* jv-valprint.c, ia64-tdep.c, hppa-tdep.c: Update.
* hpacc-abi.c, f-valprint.c, frv-tdep.c, eval.c: Update.
* c-valprint.c, cris-tdep.c, cp-valprint.c: Update.
* cli/cli-dump.c, breakpoint.c, avr-tdep.c, arm-tdep.c: Update.
* arm-linux-tdep.c, amd64-tdep.c, alpha-tdep.c: Update.
* ada-valprint.c, ada-lang.c: Update.
2005-02-07 01:09:56 +01:00
|
|
|
|
len, value_contents (arg));
|
2004-03-07 18:06:21 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
2004-02-23 17:35:54 +01:00
|
|
|
|
}
|
2004-12-19 22:09:40 +01:00
|
|
|
|
else
|
2004-02-23 17:35:54 +01:00
|
|
|
|
{
|
2004-12-19 22:09:40 +01:00
|
|
|
|
if (len > 8)
|
|
|
|
|
{
|
|
|
|
|
/* "Aggregates larger than 8 bytes are aligned on a
|
|
|
|
|
16-byte boundary, possibly leaving an unused argument
|
|
|
|
|
slot, which is filled with garbage. If necessary,
|
|
|
|
|
they are padded on the right (with garbage), to a
|
|
|
|
|
multiple of 8 bytes." */
|
|
|
|
|
offset = align_up (offset, 16);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2005-12-09 12:13:34 +01:00
|
|
|
|
/* If we are passing a function pointer, make sure we pass a function
|
|
|
|
|
descriptor instead of the function entry address. */
|
|
|
|
|
if (TYPE_CODE (type) == TYPE_CODE_PTR
|
|
|
|
|
&& TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_FUNC)
|
|
|
|
|
{
|
|
|
|
|
ULONGEST codeptr, fptr;
|
|
|
|
|
|
|
|
|
|
codeptr = unpack_long (type, value_contents (arg));
|
|
|
|
|
fptr = hppa64_convert_code_addr_to_fptr (codeptr);
|
|
|
|
|
store_unsigned_integer (fptrbuf, TYPE_LENGTH (type), fptr);
|
|
|
|
|
valbuf = fptrbuf;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
valbuf = value_contents (arg);
|
|
|
|
|
}
|
|
|
|
|
|
2004-12-19 22:09:40 +01:00
|
|
|
|
/* Always store the argument in memory. */
|
2005-12-09 12:13:34 +01:00
|
|
|
|
write_memory (sp + offset, valbuf, len);
|
2004-12-19 22:09:40 +01:00
|
|
|
|
|
|
|
|
|
regnum = HPPA_ARG0_REGNUM - offset / 8;
|
|
|
|
|
while (regnum > HPPA_ARG0_REGNUM - 8 && len > 0)
|
|
|
|
|
{
|
|
|
|
|
regcache_cooked_write_part (regcache, regnum,
|
|
|
|
|
offset % 8, min (len, 8), valbuf);
|
|
|
|
|
offset += min (len, 8);
|
|
|
|
|
valbuf += min (len, 8);
|
|
|
|
|
len -= min (len, 8);
|
|
|
|
|
regnum--;
|
2004-02-23 17:35:54 +01:00
|
|
|
|
}
|
2004-12-19 22:09:40 +01:00
|
|
|
|
|
|
|
|
|
offset += len;
|
2004-02-23 17:35:54 +01:00
|
|
|
|
}
|
|
|
|
|
|
2004-12-19 22:09:40 +01:00
|
|
|
|
/* Set up GR29 (%ret1) to hold the argument pointer (ap). */
|
|
|
|
|
regcache_cooked_write_unsigned (regcache, HPPA_RET1_REGNUM, sp + 64);
|
|
|
|
|
|
|
|
|
|
/* Allocate the outgoing parameter area. Make sure the outgoing
|
|
|
|
|
parameter area is multiple of 16 bytes in length. */
|
|
|
|
|
sp += max (align_up (offset, 16), 64);
|
|
|
|
|
|
|
|
|
|
/* Allocate 32-bytes of scratch space. The documentation doesn't
|
|
|
|
|
mention this, but it seems to be needed. */
|
|
|
|
|
sp += 32;
|
|
|
|
|
|
|
|
|
|
/* Allocate the frame marker area. */
|
|
|
|
|
sp += 16;
|
|
|
|
|
|
|
|
|
|
/* If a structure has to be returned, set up GR 28 (%ret0) to hold
|
|
|
|
|
its address. */
|
2004-02-23 17:35:54 +01:00
|
|
|
|
if (struct_return)
|
2004-12-19 22:09:40 +01:00
|
|
|
|
regcache_cooked_write_unsigned (regcache, HPPA_RET0_REGNUM, struct_addr);
|
2004-02-23 17:35:54 +01:00
|
|
|
|
|
2004-12-19 22:09:40 +01:00
|
|
|
|
/* Set up GR27 (%dp) to hold the global pointer (gp). */
|
2008-02-18 17:11:21 +01:00
|
|
|
|
gp = tdep->find_global_pointer (gdbarch, function);
|
2004-12-17 20:09:53 +01:00
|
|
|
|
if (gp != 0)
|
2004-12-19 22:09:40 +01:00
|
|
|
|
regcache_cooked_write_unsigned (regcache, HPPA_DP_REGNUM, gp);
|
2004-12-17 20:09:53 +01:00
|
|
|
|
|
2004-12-19 22:09:40 +01:00
|
|
|
|
/* Set up GR2 (%rp) to hold the return pointer (rp). */
|
2004-12-17 20:09:53 +01:00
|
|
|
|
if (!gdbarch_push_dummy_code_p (gdbarch))
|
|
|
|
|
regcache_cooked_write_unsigned (regcache, HPPA_RP_REGNUM, bp_addr);
|
2004-02-23 17:35:54 +01:00
|
|
|
|
|
2004-12-19 22:09:40 +01:00
|
|
|
|
/* Set up GR30 to hold the stack pointer (sp). */
|
|
|
|
|
regcache_cooked_write_unsigned (regcache, HPPA_SP_REGNUM, sp);
|
2004-03-31 19:44:09 +02:00
|
|
|
|
|
2004-12-19 22:09:40 +01:00
|
|
|
|
return sp;
|
2004-02-23 17:35:54 +01:00
|
|
|
|
}
|
2004-12-19 22:09:40 +01:00
|
|
|
|
|
2004-02-23 17:35:54 +01:00
|
|
|
|
|
2004-12-21 22:36:28 +01:00
|
|
|
|
/* Handle 32/64-bit struct return conventions. */
|
|
|
|
|
|
|
|
|
|
static enum return_value_convention
|
2008-04-22 13:03:42 +02:00
|
|
|
|
hppa32_return_value (struct gdbarch *gdbarch, struct type *func_type,
|
2004-12-21 22:36:28 +01:00
|
|
|
|
struct type *type, struct regcache *regcache,
|
2005-06-12 21:54:25 +02:00
|
|
|
|
gdb_byte *readbuf, const gdb_byte *writebuf)
|
2004-12-21 22:36:28 +01:00
|
|
|
|
{
|
|
|
|
|
if (TYPE_LENGTH (type) <= 2 * 4)
|
|
|
|
|
{
|
|
|
|
|
/* The value always lives in the right hand end of the register
|
|
|
|
|
(or register pair)? */
|
|
|
|
|
int b;
|
|
|
|
|
int reg = TYPE_CODE (type) == TYPE_CODE_FLT ? HPPA_FP4_REGNUM : 28;
|
|
|
|
|
int part = TYPE_LENGTH (type) % 4;
|
|
|
|
|
/* The left hand register contains only part of the value,
|
|
|
|
|
transfer that first so that the rest can be xfered as entire
|
|
|
|
|
4-byte registers. */
|
|
|
|
|
if (part > 0)
|
|
|
|
|
{
|
|
|
|
|
if (readbuf != NULL)
|
|
|
|
|
regcache_cooked_read_part (regcache, reg, 4 - part,
|
|
|
|
|
part, readbuf);
|
|
|
|
|
if (writebuf != NULL)
|
|
|
|
|
regcache_cooked_write_part (regcache, reg, 4 - part,
|
|
|
|
|
part, writebuf);
|
|
|
|
|
reg++;
|
|
|
|
|
}
|
|
|
|
|
/* Now transfer the remaining register values. */
|
|
|
|
|
for (b = part; b < TYPE_LENGTH (type); b += 4)
|
|
|
|
|
{
|
|
|
|
|
if (readbuf != NULL)
|
2005-06-12 21:54:25 +02:00
|
|
|
|
regcache_cooked_read (regcache, reg, readbuf + b);
|
2004-12-21 22:36:28 +01:00
|
|
|
|
if (writebuf != NULL)
|
2005-06-12 21:54:25 +02:00
|
|
|
|
regcache_cooked_write (regcache, reg, writebuf + b);
|
2004-12-21 22:36:28 +01:00
|
|
|
|
reg++;
|
|
|
|
|
}
|
|
|
|
|
return RETURN_VALUE_REGISTER_CONVENTION;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
return RETURN_VALUE_STRUCT_CONVENTION;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static enum return_value_convention
|
2008-04-22 13:03:42 +02:00
|
|
|
|
hppa64_return_value (struct gdbarch *gdbarch, struct type *func_type,
|
2004-12-21 22:36:28 +01:00
|
|
|
|
struct type *type, struct regcache *regcache,
|
2005-06-12 21:54:25 +02:00
|
|
|
|
gdb_byte *readbuf, const gdb_byte *writebuf)
|
2004-12-21 22:36:28 +01:00
|
|
|
|
{
|
|
|
|
|
int len = TYPE_LENGTH (type);
|
|
|
|
|
int regnum, offset;
|
|
|
|
|
|
|
|
|
|
if (len > 16)
|
|
|
|
|
{
|
|
|
|
|
/* All return values larget than 128 bits must be aggregate
|
|
|
|
|
return values. */
|
2004-12-21 23:06:40 +01:00
|
|
|
|
gdb_assert (!hppa64_integral_or_pointer_p (type));
|
|
|
|
|
gdb_assert (!hppa64_floating_p (type));
|
2004-12-21 22:36:28 +01:00
|
|
|
|
|
|
|
|
|
/* "Aggregate return values larger than 128 bits are returned in
|
|
|
|
|
a buffer allocated by the caller. The address of the buffer
|
|
|
|
|
must be passed in GR 28." */
|
|
|
|
|
return RETURN_VALUE_STRUCT_CONVENTION;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (hppa64_integral_or_pointer_p (type))
|
|
|
|
|
{
|
|
|
|
|
/* "Integral return values are returned in GR 28. Values
|
|
|
|
|
smaller than 64 bits are padded on the left (with garbage)." */
|
|
|
|
|
regnum = HPPA_RET0_REGNUM;
|
|
|
|
|
offset = 8 - len;
|
|
|
|
|
}
|
|
|
|
|
else if (hppa64_floating_p (type))
|
|
|
|
|
{
|
|
|
|
|
if (len > 8)
|
|
|
|
|
{
|
|
|
|
|
/* "Double-extended- and quad-precision floating-point
|
|
|
|
|
values are returned in GRs 28 and 29. The sign,
|
|
|
|
|
exponent, and most-significant bits of the mantissa are
|
|
|
|
|
returned in GR 28; the least-significant bits of the
|
|
|
|
|
mantissa are passed in GR 29. For double-extended
|
|
|
|
|
precision values, GR 29 is padded on the right with 48
|
|
|
|
|
bits of garbage." */
|
|
|
|
|
regnum = HPPA_RET0_REGNUM;
|
|
|
|
|
offset = 0;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* "Single-precision and double-precision floating-point
|
|
|
|
|
return values are returned in FR 4R (single precision) or
|
|
|
|
|
FR 4 (double-precision)." */
|
|
|
|
|
regnum = HPPA64_FP4_REGNUM;
|
|
|
|
|
offset = 8 - len;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* "Aggregate return values up to 64 bits in size are returned
|
|
|
|
|
in GR 28. Aggregates smaller than 64 bits are left aligned
|
|
|
|
|
in the register; the pad bits on the right are undefined."
|
|
|
|
|
|
|
|
|
|
"Aggregate return values between 65 and 128 bits are returned
|
|
|
|
|
in GRs 28 and 29. The first 64 bits are placed in GR 28, and
|
|
|
|
|
the remaining bits are placed, left aligned, in GR 29. The
|
|
|
|
|
pad bits on the right of GR 29 (if any) are undefined." */
|
|
|
|
|
regnum = HPPA_RET0_REGNUM;
|
|
|
|
|
offset = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (readbuf)
|
|
|
|
|
{
|
|
|
|
|
while (len > 0)
|
|
|
|
|
{
|
|
|
|
|
regcache_cooked_read_part (regcache, regnum, offset,
|
2005-06-12 21:54:25 +02:00
|
|
|
|
min (len, 8), readbuf);
|
|
|
|
|
readbuf += min (len, 8);
|
2004-12-21 22:36:28 +01:00
|
|
|
|
len -= min (len, 8);
|
|
|
|
|
regnum++;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (writebuf)
|
|
|
|
|
{
|
|
|
|
|
while (len > 0)
|
|
|
|
|
{
|
|
|
|
|
regcache_cooked_write_part (regcache, regnum, offset,
|
2005-06-12 21:54:25 +02:00
|
|
|
|
min (len, 8), writebuf);
|
|
|
|
|
writebuf += min (len, 8);
|
2004-12-21 22:36:28 +01:00
|
|
|
|
len -= min (len, 8);
|
|
|
|
|
regnum++;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return RETURN_VALUE_REGISTER_CONVENTION;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
2004-06-07 04:08:07 +02:00
|
|
|
|
static CORE_ADDR
|
2005-07-18 22:34:09 +02:00
|
|
|
|
hppa32_convert_from_func_ptr_addr (struct gdbarch *gdbarch, CORE_ADDR addr,
|
2004-06-07 04:08:07 +02:00
|
|
|
|
struct target_ops *targ)
|
|
|
|
|
{
|
|
|
|
|
if (addr & 2)
|
|
|
|
|
{
|
2005-07-18 22:34:09 +02:00
|
|
|
|
CORE_ADDR plabel = addr & ~3;
|
|
|
|
|
return read_memory_typed_address (plabel, builtin_type_void_func_ptr);
|
2004-06-07 04:08:07 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return addr;
|
|
|
|
|
}
|
|
|
|
|
|
2004-02-27 17:38:39 +01:00
|
|
|
|
static CORE_ADDR
|
|
|
|
|
hppa32_frame_align (struct gdbarch *gdbarch, CORE_ADDR addr)
|
|
|
|
|
{
|
|
|
|
|
/* HP frames are 64-byte (or cache line) aligned (yes that's _byte_
|
|
|
|
|
and not _bit_)! */
|
|
|
|
|
return align_up (addr, 64);
|
|
|
|
|
}
|
|
|
|
|
|
2004-02-23 17:35:54 +01:00
|
|
|
|
/* Force all frames to 16-byte alignment. Better safe than sorry. */
|
|
|
|
|
|
|
|
|
|
static CORE_ADDR
|
2004-02-27 17:38:39 +01:00
|
|
|
|
hppa64_frame_align (struct gdbarch *gdbarch, CORE_ADDR addr)
|
2004-02-23 17:35:54 +01:00
|
|
|
|
{
|
|
|
|
|
/* Just always 16-byte align. */
|
|
|
|
|
return align_up (addr, 16);
|
|
|
|
|
}
|
|
|
|
|
|
2004-12-07 19:04:11 +01:00
|
|
|
|
CORE_ADDR
|
2007-06-16 00:44:56 +02:00
|
|
|
|
hppa_read_pc (struct regcache *regcache)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2004-12-07 19:04:11 +01:00
|
|
|
|
ULONGEST ipsw;
|
2007-06-16 00:44:56 +02:00
|
|
|
|
ULONGEST pc;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2007-06-16 00:44:56 +02:00
|
|
|
|
regcache_cooked_read_unsigned (regcache, HPPA_IPSW_REGNUM, &ipsw);
|
|
|
|
|
regcache_cooked_read_unsigned (regcache, HPPA_PCOQ_HEAD_REGNUM, &pc);
|
2004-12-04 00:59:53 +01:00
|
|
|
|
|
|
|
|
|
/* If the current instruction is nullified, then we are effectively
|
|
|
|
|
still executing the previous instruction. Pretend we are still
|
2004-12-07 19:04:11 +01:00
|
|
|
|
there. This is needed when single stepping; if the nullified
|
|
|
|
|
instruction is on a different line, we don't want GDB to think
|
|
|
|
|
we've stepped onto that line. */
|
2004-12-04 00:59:53 +01:00
|
|
|
|
if (ipsw & 0x00200000)
|
|
|
|
|
pc -= 4;
|
|
|
|
|
|
2004-12-07 19:04:11 +01:00
|
|
|
|
return pc & ~0x3;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
2004-12-07 19:04:11 +01:00
|
|
|
|
void
|
2007-06-16 00:44:56 +02:00
|
|
|
|
hppa_write_pc (struct regcache *regcache, CORE_ADDR pc)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2007-06-16 00:44:56 +02:00
|
|
|
|
regcache_cooked_write_unsigned (regcache, HPPA_PCOQ_HEAD_REGNUM, pc);
|
|
|
|
|
regcache_cooked_write_unsigned (regcache, HPPA_PCOQ_TAIL_REGNUM, pc + 4);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* return the alignment of a type in bytes. Structures have the maximum
|
|
|
|
|
alignment required by their fields. */
|
|
|
|
|
|
|
|
|
|
static int
|
2000-07-30 03:48:28 +02:00
|
|
|
|
hppa_alignof (struct type *type)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
int max_align, align, i;
|
|
|
|
|
CHECK_TYPEDEF (type);
|
|
|
|
|
switch (TYPE_CODE (type))
|
|
|
|
|
{
|
|
|
|
|
case TYPE_CODE_PTR:
|
|
|
|
|
case TYPE_CODE_INT:
|
|
|
|
|
case TYPE_CODE_FLT:
|
|
|
|
|
return TYPE_LENGTH (type);
|
|
|
|
|
case TYPE_CODE_ARRAY:
|
|
|
|
|
return hppa_alignof (TYPE_FIELD_TYPE (type, 0));
|
|
|
|
|
case TYPE_CODE_STRUCT:
|
|
|
|
|
case TYPE_CODE_UNION:
|
|
|
|
|
max_align = 1;
|
|
|
|
|
for (i = 0; i < TYPE_NFIELDS (type); i++)
|
|
|
|
|
{
|
|
|
|
|
/* Bit fields have no real alignment. */
|
|
|
|
|
/* if (!TYPE_FIELD_BITPOS (type, i)) */
|
1999-07-07 22:19:36 +02:00
|
|
|
|
if (!TYPE_FIELD_BITSIZE (type, i)) /* elz: this should be bitsize */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
align = hppa_alignof (TYPE_FIELD_TYPE (type, i));
|
|
|
|
|
max_align = max (max_align, align);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
return max_align;
|
|
|
|
|
default:
|
|
|
|
|
return 4;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* For the given instruction (INST), return any adjustment it makes
|
|
|
|
|
to the stack pointer or zero for no adjustment.
|
|
|
|
|
|
|
|
|
|
This only handles instructions commonly found in prologues. */
|
|
|
|
|
|
|
|
|
|
static int
|
2000-07-30 03:48:28 +02:00
|
|
|
|
prologue_inst_adjust_sp (unsigned long inst)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
/* This must persist across calls. */
|
|
|
|
|
static int save_high21;
|
|
|
|
|
|
|
|
|
|
/* The most common way to perform a stack adjustment ldo X(sp),sp */
|
|
|
|
|
if ((inst & 0xffffc000) == 0x37de0000)
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
return hppa_extract_14 (inst);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* stwm X,D(sp) */
|
|
|
|
|
if ((inst & 0xffe00000) == 0x6fc00000)
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
return hppa_extract_14 (inst);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-08-31 03:14:27 +02:00
|
|
|
|
/* std,ma X,D(sp) */
|
|
|
|
|
if ((inst & 0xffe00008) == 0x73c00008)
|
1999-09-09 02:02:17 +02:00
|
|
|
|
return (inst & 0x1 ? -1 << 13 : 0) | (((inst >> 4) & 0x3ff) << 3);
|
1999-08-31 03:14:27 +02:00
|
|
|
|
|
2005-01-01 13:28:21 +01:00
|
|
|
|
/* addil high21,%r30; ldo low11,(%r1),%r30)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
save high bits in save_high21 for later use. */
|
2005-01-01 13:28:21 +01:00
|
|
|
|
if ((inst & 0xffe00000) == 0x2bc00000)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
save_high21 = hppa_extract_21 (inst);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if ((inst & 0xffff0000) == 0x343e0000)
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
return save_high21 + hppa_extract_14 (inst);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* fstws as used by the HP compilers. */
|
|
|
|
|
if ((inst & 0xffffffe0) == 0x2fd01220)
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
return hppa_extract_5_load (inst);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* No adjustment. */
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return nonzero if INST is a branch of some kind, else return zero. */
|
|
|
|
|
|
|
|
|
|
static int
|
2000-07-30 03:48:28 +02:00
|
|
|
|
is_branch (unsigned long inst)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
switch (inst >> 26)
|
|
|
|
|
{
|
|
|
|
|
case 0x20:
|
|
|
|
|
case 0x21:
|
|
|
|
|
case 0x22:
|
|
|
|
|
case 0x23:
|
1999-08-16 21:57:19 +02:00
|
|
|
|
case 0x27:
|
1999-04-16 03:35:26 +02:00
|
|
|
|
case 0x28:
|
|
|
|
|
case 0x29:
|
|
|
|
|
case 0x2a:
|
|
|
|
|
case 0x2b:
|
1999-08-16 21:57:19 +02:00
|
|
|
|
case 0x2f:
|
1999-04-16 03:35:26 +02:00
|
|
|
|
case 0x30:
|
|
|
|
|
case 0x31:
|
|
|
|
|
case 0x32:
|
|
|
|
|
case 0x33:
|
|
|
|
|
case 0x38:
|
|
|
|
|
case 0x39:
|
|
|
|
|
case 0x3a:
|
1999-08-16 21:57:19 +02:00
|
|
|
|
case 0x3b:
|
1999-04-16 03:35:26 +02:00
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return the register number for a GR which is saved by INST or
|
|
|
|
|
zero it INST does not save a GR. */
|
|
|
|
|
|
|
|
|
|
static int
|
2000-07-30 03:48:28 +02:00
|
|
|
|
inst_saves_gr (unsigned long inst)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
/* Does it look like a stw? */
|
1999-08-16 21:57:19 +02:00
|
|
|
|
if ((inst >> 26) == 0x1a || (inst >> 26) == 0x1b
|
|
|
|
|
|| (inst >> 26) == 0x1f
|
|
|
|
|
|| ((inst >> 26) == 0x1f
|
|
|
|
|
&& ((inst >> 6) == 0xa)))
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
return hppa_extract_5R_store (inst);
|
1999-08-16 21:57:19 +02:00
|
|
|
|
|
|
|
|
|
/* Does it look like a std? */
|
|
|
|
|
if ((inst >> 26) == 0x1c
|
|
|
|
|
|| ((inst >> 26) == 0x03
|
|
|
|
|
&& ((inst >> 6) & 0xf) == 0xb))
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
return hppa_extract_5R_store (inst);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* Does it look like a stwm? GCC & HPC may use this in prologues. */
|
|
|
|
|
if ((inst >> 26) == 0x1b)
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
return hppa_extract_5R_store (inst);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* Does it look like sth or stb? HPC versions 9.0 and later use these
|
|
|
|
|
too. */
|
1999-08-16 21:57:19 +02:00
|
|
|
|
if ((inst >> 26) == 0x19 || (inst >> 26) == 0x18
|
|
|
|
|
|| ((inst >> 26) == 0x3
|
|
|
|
|
&& (((inst >> 6) & 0xf) == 0x8
|
|
|
|
|
|| (inst >> 6) & 0xf) == 0x9))
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
return hppa_extract_5R_store (inst);
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return the register number for a FR which is saved by INST or
|
|
|
|
|
zero it INST does not save a FR.
|
|
|
|
|
|
|
|
|
|
Note we only care about full 64bit register stores (that's the only
|
|
|
|
|
kind of stores the prologue will use).
|
|
|
|
|
|
|
|
|
|
FIXME: What about argument stores with the HP compiler in ANSI mode? */
|
|
|
|
|
|
|
|
|
|
static int
|
2000-07-30 03:48:28 +02:00
|
|
|
|
inst_saves_fr (unsigned long inst)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
1999-08-16 21:57:19 +02:00
|
|
|
|
/* is this an FSTD ? */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if ((inst & 0xfc00dfc0) == 0x2c001200)
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
return hppa_extract_5r_store (inst);
|
1999-08-16 21:57:19 +02:00
|
|
|
|
if ((inst & 0xfc000002) == 0x70000002)
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
return hppa_extract_5R_store (inst);
|
1999-08-16 21:57:19 +02:00
|
|
|
|
/* is this an FSTW ? */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if ((inst & 0xfc00df80) == 0x24001200)
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
return hppa_extract_5r_store (inst);
|
1999-08-16 21:57:19 +02:00
|
|
|
|
if ((inst & 0xfc000002) == 0x7c000000)
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
return hppa_extract_5R_store (inst);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Advance PC across any function entry prologue instructions
|
|
|
|
|
to reach some "real" code.
|
|
|
|
|
|
|
|
|
|
Use information in the unwind table to determine what exactly should
|
|
|
|
|
be in the prologue. */
|
|
|
|
|
|
|
|
|
|
|
2004-11-12 01:51:23 +01:00
|
|
|
|
static CORE_ADDR
|
* alpha-tdep.c (alpha_heuristic_proc_start)
(alpha_sigtramp_register_address): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch.
(alpha_heuristic_frame_unwind_cache): Use get_frame_arch to get at the
current architecture by frame_info. Update alpha_heuristic_proc_start
call.
(alpha_sigtramp_frame_this_id, alpha_sigtramp_frame_prev_register): Use
get_frame_arch to get at the current architecture by frame_info. Update
alpha_sigtramp_register_address call.
* arm-tdep.c (thumb_scan_prologue): Add gdbarch as parameter and replace
current_gdbarch by gdbarch. Update caller.
(convert_to_extended, convert_from_extended): Add endianess parameter
for comparison. Update caller.
(arm_extract_return_value, arm_store_return_value): Use
get_regcache_arch to get at the current architecture.
* cris-tdep.c (cris_register_size): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
(cris_gdb_func, move_to_preg_op, none_reg_mode_move_from_preg_op): Add
gdbarch as parameter. Update caller. Replace current_gdbarch by gdbarch.
* h8300-tdep.c (E_PSEUDO_CCR_REGNUM, E_PSEUDO_EXR_REGNUM, BINWORD): Add
gdbarch as parameter. Update caller.
(h8300_init_frame_cache): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
* hppa-tdep.c (skip_prologue_hard_way): Add gdbarch as parameter and
update caller. Replace current_gdbarch by gdbarch.
* m32c-tdep.c (m32c_skip_trampoline_code): Use get_frame_arch to get at
the current architecture. Replace current_gdbarch by gdbarch.
* m68hc11-tdep.c (m68hc11_frame_unwind_cache): Likewise.
(STACK_CORRECTION, USE_PAGE_REGISTER): Replace M6811_TDEP by its
expression. Add gdbarch as parameter and replace current_gdbarch with
it. Update caller.
(M6811_TDEP): Remove.
(m68hc11_frame_prev_register): Use get_frame_arch to get at the current
architecture.
(m68hc11_scan_prologue): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
* m68k-tdep.c (m68k_analyze_prologue): Add gdbarch as parameter and
update caller.
(m68k_analyze_register_saves): Likewise. Also replace current_gdbarch
by gdbarch.
* rs6000-tdep.c (skip_prologue): Add gdbarch as parameter and update
caller. Relace current_gdbarch by gdbarch.
(altivec_register_p, spe_register_p): Likewise.
* ppc-tdep.h (altivec_register_p, spe_register_p): Add gdbarch as
parameter.
* ppc-linux-nat.c (fetch_register, store_register): Update caller of
altivec_register_p and spe_register_p.
* score-tdep.c (score_fetch_inst): Add gdbarch as parameter. Update
caller. Replace current_gdbarch by gdbarch.
(score_analyze_prologue): use get_frame_arch to get at the current
architecture.
* sparc-tdep.h (sparc_analyze_prologue): Add gdbarch as parameter.
* sparc-tdep.c (sparc_analyze_prologue): Likewise. Replace
current_gdbarch by gdbarch. Update caller.
(sparc_frame_cache): Use get_frame_arch to get at the current
architecture.
* sparce64-tdep.c (sparc64_skip_prologue): Update call of
sparc_analyze_prologue.
* mn10300-tdep.c (mn10300_dwarf2_reg_to_regnum): Add gdbarch as
parameter.
2008-01-11 15:43:15 +01:00
|
|
|
|
skip_prologue_hard_way (struct gdbarch *gdbarch, CORE_ADDR pc,
|
|
|
|
|
int stop_before_branch)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
char buf[4];
|
|
|
|
|
CORE_ADDR orig_pc = pc;
|
|
|
|
|
unsigned long inst, stack_remaining, save_gr, save_fr, save_rp, save_sp;
|
|
|
|
|
unsigned long args_stored, status, i, restart_gr, restart_fr;
|
|
|
|
|
struct unwind_table_entry *u;
|
2004-11-12 01:51:23 +01:00
|
|
|
|
int final_iteration;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
restart_gr = 0;
|
|
|
|
|
restart_fr = 0;
|
|
|
|
|
|
|
|
|
|
restart:
|
|
|
|
|
u = find_unwind_entry (pc);
|
|
|
|
|
if (!u)
|
|
|
|
|
return pc;
|
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
/* If we are not at the beginning of a function, then return now. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if ((pc & ~0x3) != u->region_start)
|
|
|
|
|
return pc;
|
|
|
|
|
|
|
|
|
|
/* This is how much of a frame adjustment we need to account for. */
|
|
|
|
|
stack_remaining = u->Total_frame_size << 3;
|
|
|
|
|
|
|
|
|
|
/* Magic register saves we want to know about. */
|
|
|
|
|
save_rp = u->Save_RP;
|
|
|
|
|
save_sp = u->Save_SP;
|
|
|
|
|
|
|
|
|
|
/* An indication that args may be stored into the stack. Unfortunately
|
|
|
|
|
the HPUX compilers tend to set this in cases where no args were
|
|
|
|
|
stored too!. */
|
|
|
|
|
args_stored = 1;
|
|
|
|
|
|
|
|
|
|
/* Turn the Entry_GR field into a bitmask. */
|
|
|
|
|
save_gr = 0;
|
|
|
|
|
for (i = 3; i < u->Entry_GR + 3; i++)
|
|
|
|
|
{
|
|
|
|
|
/* Frame pointer gets saved into a special location. */
|
2004-03-07 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Replace DEPRECATED_FP_REGNUM with HPPA_FP_REGNUM,
FP0_REGNUM with HPPA_FP0_REGNUM, and SP_REGNUM with
HPPA_SP_REGNUM.
(hppa_register_raw_size, hppa_register_byte, hppa_read_fp)
(hppa_target_read_fp): Delete.
(hppa_gdbarch_init): Do not set deprecated register_raw_size,
register_virtual_size, max_register_raw_size,
max_register_virtual_size, register_byte, register_size,
target_read_fp, fp_regnum, and register_bytes. Set register_type
instead of register_virtual_type.
(hppa32_register_type, hppa64_register_type): Replace
hppa32_register_virtual_type and hppa64_register_virtual_type.
* config/pa/tm-hppa.h (HPPA_FP0_REGNUM, HPPA_SP_REGNUM)
(HPPA_FP_REGNUM): Define.
2004-03-07 20:58:27 +01:00
|
|
|
|
if (u->Save_SP && i == HPPA_FP_REGNUM)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
save_gr |= (1 << i);
|
|
|
|
|
}
|
|
|
|
|
save_gr &= ~restart_gr;
|
|
|
|
|
|
|
|
|
|
/* Turn the Entry_FR field into a bitmask too. */
|
|
|
|
|
save_fr = 0;
|
|
|
|
|
for (i = 12; i < u->Entry_FR + 12; i++)
|
|
|
|
|
save_fr |= (1 << i);
|
|
|
|
|
save_fr &= ~restart_fr;
|
|
|
|
|
|
2004-11-12 01:51:23 +01:00
|
|
|
|
final_iteration = 0;
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
/* Loop until we find everything of interest or hit a branch.
|
|
|
|
|
|
|
|
|
|
For unoptimized GCC code and for any HP CC code this will never ever
|
|
|
|
|
examine any user instructions.
|
|
|
|
|
|
|
|
|
|
For optimzied GCC code we're faced with problems. GCC will schedule
|
|
|
|
|
its prologue and make prologue instructions available for delay slot
|
|
|
|
|
filling. The end result is user code gets mixed in with the prologue
|
|
|
|
|
and a prologue instruction may be in the delay slot of the first branch
|
|
|
|
|
or call.
|
|
|
|
|
|
|
|
|
|
Some unexpected things are expected with debugging optimized code, so
|
|
|
|
|
we allow this routine to walk past user instructions in optimized
|
|
|
|
|
GCC code. */
|
|
|
|
|
while (save_gr || save_fr || save_rp || save_sp || stack_remaining > 0
|
|
|
|
|
|| args_stored)
|
|
|
|
|
{
|
|
|
|
|
unsigned int reg_num;
|
|
|
|
|
unsigned long old_stack_remaining, old_save_gr, old_save_fr;
|
|
|
|
|
unsigned long old_save_rp, old_save_sp, next_inst;
|
|
|
|
|
|
|
|
|
|
/* Save copies of all the triggers so we can compare them later
|
1999-07-07 22:19:36 +02:00
|
|
|
|
(only for HPC). */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
old_save_gr = save_gr;
|
|
|
|
|
old_save_fr = save_fr;
|
|
|
|
|
old_save_rp = save_rp;
|
|
|
|
|
old_save_sp = save_sp;
|
|
|
|
|
old_stack_remaining = stack_remaining;
|
|
|
|
|
|
* breakpoint.h (breakpoint_restore_shadows): New
declaration.
* breakpoint.c (breakpoint_restore_shadows): New.
(read_memory_nobpt): Delete.
* gdbcore.h (read_memory_nobpt): Delete declaration.
* target.c (memory_xfer_partial): Call
breakpoint_restore_shadows.
(restore_show_memory_breakpoints)
(make_show_memory_beakpoints_cleanup): New.
(show_memory_breakpoints): New.
* target.h (make_show_memory_beakpoints_cleanup): Declare.
* ppc-linux-tdep.c (ppc_linux_memory_remove_breakpoint):
Make sure we see memory breakpoints when checking if
breakpoint is still there.
* alpha-tdep.c, alphanbsd-tdep.c, frame.c, frv-tdep.c,
hppa-linux-tdep.c, hppa-tdep.c, i386-linux-nat.c, i386-tdep.c,
m68klinux-tdep.c, mips-tdep.c, mn10300-tdep.c, s390-tdep.c,
sparc-tdep.c: Use target_read_memory instead of read_memory_nobpt.
2008-03-13 13:22:14 +01:00
|
|
|
|
status = target_read_memory (pc, buf, 4);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
inst = extract_unsigned_integer (buf, 4);
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
/* Yow! */
|
|
|
|
|
if (status != 0)
|
|
|
|
|
return pc;
|
|
|
|
|
|
|
|
|
|
/* Note the interesting effects of this instruction. */
|
|
|
|
|
stack_remaining -= prologue_inst_adjust_sp (inst);
|
|
|
|
|
|
1999-08-16 21:57:19 +02:00
|
|
|
|
/* There are limited ways to store the return pointer into the
|
|
|
|
|
stack. */
|
2005-11-19 13:39:50 +01:00
|
|
|
|
if (inst == 0x6bc23fd9 || inst == 0x0fc212c1 || inst == 0x73c23fe1)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
save_rp = 0;
|
|
|
|
|
|
1999-08-31 03:14:27 +02:00
|
|
|
|
/* These are the only ways we save SP into the stack. At this time
|
1999-07-07 22:19:36 +02:00
|
|
|
|
the HP compilers never bother to save SP into the stack. */
|
1999-08-31 03:14:27 +02:00
|
|
|
|
if ((inst & 0xffffc000) == 0x6fc10000
|
|
|
|
|
|| (inst & 0xffffc00c) == 0x73c10008)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
save_sp = 0;
|
|
|
|
|
|
1999-09-28 23:55:21 +02:00
|
|
|
|
/* Are we loading some register with an offset from the argument
|
|
|
|
|
pointer? */
|
|
|
|
|
if ((inst & 0xffe00000) == 0x37a00000
|
|
|
|
|
|| (inst & 0xffffffe0) == 0x081d0240)
|
|
|
|
|
{
|
|
|
|
|
pc += 4;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
/* Account for general and floating-point register saves. */
|
|
|
|
|
reg_num = inst_saves_gr (inst);
|
|
|
|
|
save_gr &= ~(1 << reg_num);
|
|
|
|
|
|
|
|
|
|
/* Ugh. Also account for argument stores into the stack.
|
1999-07-07 22:19:36 +02:00
|
|
|
|
Unfortunately args_stored only tells us that some arguments
|
|
|
|
|
where stored into the stack. Not how many or what kind!
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
This is a kludge as on the HP compiler sets this bit and it
|
|
|
|
|
never does prologue scheduling. So once we see one, skip past
|
|
|
|
|
all of them. We have similar code for the fp arg stores below.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
FIXME. Can still die if we have a mix of GR and FR argument
|
|
|
|
|
stores! */
|
* alpha-tdep.c (alpha_heuristic_proc_start)
(alpha_sigtramp_register_address): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch.
(alpha_heuristic_frame_unwind_cache): Use get_frame_arch to get at the
current architecture by frame_info. Update alpha_heuristic_proc_start
call.
(alpha_sigtramp_frame_this_id, alpha_sigtramp_frame_prev_register): Use
get_frame_arch to get at the current architecture by frame_info. Update
alpha_sigtramp_register_address call.
* arm-tdep.c (thumb_scan_prologue): Add gdbarch as parameter and replace
current_gdbarch by gdbarch. Update caller.
(convert_to_extended, convert_from_extended): Add endianess parameter
for comparison. Update caller.
(arm_extract_return_value, arm_store_return_value): Use
get_regcache_arch to get at the current architecture.
* cris-tdep.c (cris_register_size): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
(cris_gdb_func, move_to_preg_op, none_reg_mode_move_from_preg_op): Add
gdbarch as parameter. Update caller. Replace current_gdbarch by gdbarch.
* h8300-tdep.c (E_PSEUDO_CCR_REGNUM, E_PSEUDO_EXR_REGNUM, BINWORD): Add
gdbarch as parameter. Update caller.
(h8300_init_frame_cache): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
* hppa-tdep.c (skip_prologue_hard_way): Add gdbarch as parameter and
update caller. Replace current_gdbarch by gdbarch.
* m32c-tdep.c (m32c_skip_trampoline_code): Use get_frame_arch to get at
the current architecture. Replace current_gdbarch by gdbarch.
* m68hc11-tdep.c (m68hc11_frame_unwind_cache): Likewise.
(STACK_CORRECTION, USE_PAGE_REGISTER): Replace M6811_TDEP by its
expression. Add gdbarch as parameter and replace current_gdbarch with
it. Update caller.
(M6811_TDEP): Remove.
(m68hc11_frame_prev_register): Use get_frame_arch to get at the current
architecture.
(m68hc11_scan_prologue): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
* m68k-tdep.c (m68k_analyze_prologue): Add gdbarch as parameter and
update caller.
(m68k_analyze_register_saves): Likewise. Also replace current_gdbarch
by gdbarch.
* rs6000-tdep.c (skip_prologue): Add gdbarch as parameter and update
caller. Relace current_gdbarch by gdbarch.
(altivec_register_p, spe_register_p): Likewise.
* ppc-tdep.h (altivec_register_p, spe_register_p): Add gdbarch as
parameter.
* ppc-linux-nat.c (fetch_register, store_register): Update caller of
altivec_register_p and spe_register_p.
* score-tdep.c (score_fetch_inst): Add gdbarch as parameter. Update
caller. Replace current_gdbarch by gdbarch.
(score_analyze_prologue): use get_frame_arch to get at the current
architecture.
* sparc-tdep.h (sparc_analyze_prologue): Add gdbarch as parameter.
* sparc-tdep.c (sparc_analyze_prologue): Likewise. Replace
current_gdbarch by gdbarch. Update caller.
(sparc_frame_cache): Use get_frame_arch to get at the current
architecture.
* sparce64-tdep.c (sparc64_skip_prologue): Update call of
sparc_analyze_prologue.
* mn10300-tdep.c (mn10300_dwarf2_reg_to_regnum): Add gdbarch as
parameter.
2008-01-11 15:43:15 +01:00
|
|
|
|
if (reg_num >= (gdbarch_ptr_bit (gdbarch) == 64 ? 19 : 23)
|
2007-06-13 19:30:01 +02:00
|
|
|
|
&& reg_num <= 26)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
* alpha-tdep.c (alpha_heuristic_proc_start)
(alpha_sigtramp_register_address): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch.
(alpha_heuristic_frame_unwind_cache): Use get_frame_arch to get at the
current architecture by frame_info. Update alpha_heuristic_proc_start
call.
(alpha_sigtramp_frame_this_id, alpha_sigtramp_frame_prev_register): Use
get_frame_arch to get at the current architecture by frame_info. Update
alpha_sigtramp_register_address call.
* arm-tdep.c (thumb_scan_prologue): Add gdbarch as parameter and replace
current_gdbarch by gdbarch. Update caller.
(convert_to_extended, convert_from_extended): Add endianess parameter
for comparison. Update caller.
(arm_extract_return_value, arm_store_return_value): Use
get_regcache_arch to get at the current architecture.
* cris-tdep.c (cris_register_size): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
(cris_gdb_func, move_to_preg_op, none_reg_mode_move_from_preg_op): Add
gdbarch as parameter. Update caller. Replace current_gdbarch by gdbarch.
* h8300-tdep.c (E_PSEUDO_CCR_REGNUM, E_PSEUDO_EXR_REGNUM, BINWORD): Add
gdbarch as parameter. Update caller.
(h8300_init_frame_cache): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
* hppa-tdep.c (skip_prologue_hard_way): Add gdbarch as parameter and
update caller. Replace current_gdbarch by gdbarch.
* m32c-tdep.c (m32c_skip_trampoline_code): Use get_frame_arch to get at
the current architecture. Replace current_gdbarch by gdbarch.
* m68hc11-tdep.c (m68hc11_frame_unwind_cache): Likewise.
(STACK_CORRECTION, USE_PAGE_REGISTER): Replace M6811_TDEP by its
expression. Add gdbarch as parameter and replace current_gdbarch with
it. Update caller.
(M6811_TDEP): Remove.
(m68hc11_frame_prev_register): Use get_frame_arch to get at the current
architecture.
(m68hc11_scan_prologue): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
* m68k-tdep.c (m68k_analyze_prologue): Add gdbarch as parameter and
update caller.
(m68k_analyze_register_saves): Likewise. Also replace current_gdbarch
by gdbarch.
* rs6000-tdep.c (skip_prologue): Add gdbarch as parameter and update
caller. Relace current_gdbarch by gdbarch.
(altivec_register_p, spe_register_p): Likewise.
* ppc-tdep.h (altivec_register_p, spe_register_p): Add gdbarch as
parameter.
* ppc-linux-nat.c (fetch_register, store_register): Update caller of
altivec_register_p and spe_register_p.
* score-tdep.c (score_fetch_inst): Add gdbarch as parameter. Update
caller. Replace current_gdbarch by gdbarch.
(score_analyze_prologue): use get_frame_arch to get at the current
architecture.
* sparc-tdep.h (sparc_analyze_prologue): Add gdbarch as parameter.
* sparc-tdep.c (sparc_analyze_prologue): Likewise. Replace
current_gdbarch by gdbarch. Update caller.
(sparc_frame_cache): Use get_frame_arch to get at the current
architecture.
* sparce64-tdep.c (sparc64_skip_prologue): Update call of
sparc_analyze_prologue.
* mn10300-tdep.c (mn10300_dwarf2_reg_to_regnum): Add gdbarch as
parameter.
2008-01-11 15:43:15 +01:00
|
|
|
|
while (reg_num >= (gdbarch_ptr_bit (gdbarch) == 64 ? 19 : 23)
|
2007-06-13 19:30:01 +02:00
|
|
|
|
&& reg_num <= 26)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
pc += 4;
|
* breakpoint.h (breakpoint_restore_shadows): New
declaration.
* breakpoint.c (breakpoint_restore_shadows): New.
(read_memory_nobpt): Delete.
* gdbcore.h (read_memory_nobpt): Delete declaration.
* target.c (memory_xfer_partial): Call
breakpoint_restore_shadows.
(restore_show_memory_breakpoints)
(make_show_memory_beakpoints_cleanup): New.
(show_memory_breakpoints): New.
* target.h (make_show_memory_beakpoints_cleanup): Declare.
* ppc-linux-tdep.c (ppc_linux_memory_remove_breakpoint):
Make sure we see memory breakpoints when checking if
breakpoint is still there.
* alpha-tdep.c, alphanbsd-tdep.c, frame.c, frv-tdep.c,
hppa-linux-tdep.c, hppa-tdep.c, i386-linux-nat.c, i386-tdep.c,
m68klinux-tdep.c, mips-tdep.c, mn10300-tdep.c, s390-tdep.c,
sparc-tdep.c: Use target_read_memory instead of read_memory_nobpt.
2008-03-13 13:22:14 +01:00
|
|
|
|
status = target_read_memory (pc, buf, 4);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
inst = extract_unsigned_integer (buf, 4);
|
|
|
|
|
if (status != 0)
|
|
|
|
|
return pc;
|
|
|
|
|
reg_num = inst_saves_gr (inst);
|
|
|
|
|
}
|
|
|
|
|
args_stored = 0;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
reg_num = inst_saves_fr (inst);
|
|
|
|
|
save_fr &= ~(1 << reg_num);
|
|
|
|
|
|
* breakpoint.h (breakpoint_restore_shadows): New
declaration.
* breakpoint.c (breakpoint_restore_shadows): New.
(read_memory_nobpt): Delete.
* gdbcore.h (read_memory_nobpt): Delete declaration.
* target.c (memory_xfer_partial): Call
breakpoint_restore_shadows.
(restore_show_memory_breakpoints)
(make_show_memory_beakpoints_cleanup): New.
(show_memory_breakpoints): New.
* target.h (make_show_memory_beakpoints_cleanup): Declare.
* ppc-linux-tdep.c (ppc_linux_memory_remove_breakpoint):
Make sure we see memory breakpoints when checking if
breakpoint is still there.
* alpha-tdep.c, alphanbsd-tdep.c, frame.c, frv-tdep.c,
hppa-linux-tdep.c, hppa-tdep.c, i386-linux-nat.c, i386-tdep.c,
m68klinux-tdep.c, mips-tdep.c, mn10300-tdep.c, s390-tdep.c,
sparc-tdep.c: Use target_read_memory instead of read_memory_nobpt.
2008-03-13 13:22:14 +01:00
|
|
|
|
status = target_read_memory (pc + 4, buf, 4);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
next_inst = extract_unsigned_integer (buf, 4);
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
/* Yow! */
|
|
|
|
|
if (status != 0)
|
|
|
|
|
return pc;
|
|
|
|
|
|
|
|
|
|
/* We've got to be read to handle the ldo before the fp register
|
1999-07-07 22:19:36 +02:00
|
|
|
|
save. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if ((inst & 0xfc000000) == 0x34000000
|
|
|
|
|
&& inst_saves_fr (next_inst) >= 4
|
2007-06-13 19:30:01 +02:00
|
|
|
|
&& inst_saves_fr (next_inst)
|
* alpha-tdep.c (alpha_heuristic_proc_start)
(alpha_sigtramp_register_address): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch.
(alpha_heuristic_frame_unwind_cache): Use get_frame_arch to get at the
current architecture by frame_info. Update alpha_heuristic_proc_start
call.
(alpha_sigtramp_frame_this_id, alpha_sigtramp_frame_prev_register): Use
get_frame_arch to get at the current architecture by frame_info. Update
alpha_sigtramp_register_address call.
* arm-tdep.c (thumb_scan_prologue): Add gdbarch as parameter and replace
current_gdbarch by gdbarch. Update caller.
(convert_to_extended, convert_from_extended): Add endianess parameter
for comparison. Update caller.
(arm_extract_return_value, arm_store_return_value): Use
get_regcache_arch to get at the current architecture.
* cris-tdep.c (cris_register_size): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
(cris_gdb_func, move_to_preg_op, none_reg_mode_move_from_preg_op): Add
gdbarch as parameter. Update caller. Replace current_gdbarch by gdbarch.
* h8300-tdep.c (E_PSEUDO_CCR_REGNUM, E_PSEUDO_EXR_REGNUM, BINWORD): Add
gdbarch as parameter. Update caller.
(h8300_init_frame_cache): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
* hppa-tdep.c (skip_prologue_hard_way): Add gdbarch as parameter and
update caller. Replace current_gdbarch by gdbarch.
* m32c-tdep.c (m32c_skip_trampoline_code): Use get_frame_arch to get at
the current architecture. Replace current_gdbarch by gdbarch.
* m68hc11-tdep.c (m68hc11_frame_unwind_cache): Likewise.
(STACK_CORRECTION, USE_PAGE_REGISTER): Replace M6811_TDEP by its
expression. Add gdbarch as parameter and replace current_gdbarch with
it. Update caller.
(M6811_TDEP): Remove.
(m68hc11_frame_prev_register): Use get_frame_arch to get at the current
architecture.
(m68hc11_scan_prologue): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
* m68k-tdep.c (m68k_analyze_prologue): Add gdbarch as parameter and
update caller.
(m68k_analyze_register_saves): Likewise. Also replace current_gdbarch
by gdbarch.
* rs6000-tdep.c (skip_prologue): Add gdbarch as parameter and update
caller. Relace current_gdbarch by gdbarch.
(altivec_register_p, spe_register_p): Likewise.
* ppc-tdep.h (altivec_register_p, spe_register_p): Add gdbarch as
parameter.
* ppc-linux-nat.c (fetch_register, store_register): Update caller of
altivec_register_p and spe_register_p.
* score-tdep.c (score_fetch_inst): Add gdbarch as parameter. Update
caller. Replace current_gdbarch by gdbarch.
(score_analyze_prologue): use get_frame_arch to get at the current
architecture.
* sparc-tdep.h (sparc_analyze_prologue): Add gdbarch as parameter.
* sparc-tdep.c (sparc_analyze_prologue): Likewise. Replace
current_gdbarch by gdbarch. Update caller.
(sparc_frame_cache): Use get_frame_arch to get at the current
architecture.
* sparce64-tdep.c (sparc64_skip_prologue): Update call of
sparc_analyze_prologue.
* mn10300-tdep.c (mn10300_dwarf2_reg_to_regnum): Add gdbarch as
parameter.
2008-01-11 15:43:15 +01:00
|
|
|
|
<= (gdbarch_ptr_bit (gdbarch) == 64 ? 11 : 7))
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
/* So we drop into the code below in a reasonable state. */
|
|
|
|
|
reg_num = inst_saves_fr (next_inst);
|
|
|
|
|
pc -= 4;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Ugh. Also account for argument stores into the stack.
|
1999-07-07 22:19:36 +02:00
|
|
|
|
This is a kludge as on the HP compiler sets this bit and it
|
|
|
|
|
never does prologue scheduling. So once we see one, skip past
|
|
|
|
|
all of them. */
|
2007-06-13 19:30:01 +02:00
|
|
|
|
if (reg_num >= 4
|
* alpha-tdep.c (alpha_heuristic_proc_start)
(alpha_sigtramp_register_address): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch.
(alpha_heuristic_frame_unwind_cache): Use get_frame_arch to get at the
current architecture by frame_info. Update alpha_heuristic_proc_start
call.
(alpha_sigtramp_frame_this_id, alpha_sigtramp_frame_prev_register): Use
get_frame_arch to get at the current architecture by frame_info. Update
alpha_sigtramp_register_address call.
* arm-tdep.c (thumb_scan_prologue): Add gdbarch as parameter and replace
current_gdbarch by gdbarch. Update caller.
(convert_to_extended, convert_from_extended): Add endianess parameter
for comparison. Update caller.
(arm_extract_return_value, arm_store_return_value): Use
get_regcache_arch to get at the current architecture.
* cris-tdep.c (cris_register_size): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
(cris_gdb_func, move_to_preg_op, none_reg_mode_move_from_preg_op): Add
gdbarch as parameter. Update caller. Replace current_gdbarch by gdbarch.
* h8300-tdep.c (E_PSEUDO_CCR_REGNUM, E_PSEUDO_EXR_REGNUM, BINWORD): Add
gdbarch as parameter. Update caller.
(h8300_init_frame_cache): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
* hppa-tdep.c (skip_prologue_hard_way): Add gdbarch as parameter and
update caller. Replace current_gdbarch by gdbarch.
* m32c-tdep.c (m32c_skip_trampoline_code): Use get_frame_arch to get at
the current architecture. Replace current_gdbarch by gdbarch.
* m68hc11-tdep.c (m68hc11_frame_unwind_cache): Likewise.
(STACK_CORRECTION, USE_PAGE_REGISTER): Replace M6811_TDEP by its
expression. Add gdbarch as parameter and replace current_gdbarch with
it. Update caller.
(M6811_TDEP): Remove.
(m68hc11_frame_prev_register): Use get_frame_arch to get at the current
architecture.
(m68hc11_scan_prologue): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
* m68k-tdep.c (m68k_analyze_prologue): Add gdbarch as parameter and
update caller.
(m68k_analyze_register_saves): Likewise. Also replace current_gdbarch
by gdbarch.
* rs6000-tdep.c (skip_prologue): Add gdbarch as parameter and update
caller. Relace current_gdbarch by gdbarch.
(altivec_register_p, spe_register_p): Likewise.
* ppc-tdep.h (altivec_register_p, spe_register_p): Add gdbarch as
parameter.
* ppc-linux-nat.c (fetch_register, store_register): Update caller of
altivec_register_p and spe_register_p.
* score-tdep.c (score_fetch_inst): Add gdbarch as parameter. Update
caller. Replace current_gdbarch by gdbarch.
(score_analyze_prologue): use get_frame_arch to get at the current
architecture.
* sparc-tdep.h (sparc_analyze_prologue): Add gdbarch as parameter.
* sparc-tdep.c (sparc_analyze_prologue): Likewise. Replace
current_gdbarch by gdbarch. Update caller.
(sparc_frame_cache): Use get_frame_arch to get at the current
architecture.
* sparce64-tdep.c (sparc64_skip_prologue): Update call of
sparc_analyze_prologue.
* mn10300-tdep.c (mn10300_dwarf2_reg_to_regnum): Add gdbarch as
parameter.
2008-01-11 15:43:15 +01:00
|
|
|
|
&& reg_num <= (gdbarch_ptr_bit (gdbarch) == 64 ? 11 : 7))
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2007-06-13 19:30:01 +02:00
|
|
|
|
while (reg_num >= 4
|
|
|
|
|
&& reg_num
|
* alpha-tdep.c (alpha_heuristic_proc_start)
(alpha_sigtramp_register_address): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch.
(alpha_heuristic_frame_unwind_cache): Use get_frame_arch to get at the
current architecture by frame_info. Update alpha_heuristic_proc_start
call.
(alpha_sigtramp_frame_this_id, alpha_sigtramp_frame_prev_register): Use
get_frame_arch to get at the current architecture by frame_info. Update
alpha_sigtramp_register_address call.
* arm-tdep.c (thumb_scan_prologue): Add gdbarch as parameter and replace
current_gdbarch by gdbarch. Update caller.
(convert_to_extended, convert_from_extended): Add endianess parameter
for comparison. Update caller.
(arm_extract_return_value, arm_store_return_value): Use
get_regcache_arch to get at the current architecture.
* cris-tdep.c (cris_register_size): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
(cris_gdb_func, move_to_preg_op, none_reg_mode_move_from_preg_op): Add
gdbarch as parameter. Update caller. Replace current_gdbarch by gdbarch.
* h8300-tdep.c (E_PSEUDO_CCR_REGNUM, E_PSEUDO_EXR_REGNUM, BINWORD): Add
gdbarch as parameter. Update caller.
(h8300_init_frame_cache): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
* hppa-tdep.c (skip_prologue_hard_way): Add gdbarch as parameter and
update caller. Replace current_gdbarch by gdbarch.
* m32c-tdep.c (m32c_skip_trampoline_code): Use get_frame_arch to get at
the current architecture. Replace current_gdbarch by gdbarch.
* m68hc11-tdep.c (m68hc11_frame_unwind_cache): Likewise.
(STACK_CORRECTION, USE_PAGE_REGISTER): Replace M6811_TDEP by its
expression. Add gdbarch as parameter and replace current_gdbarch with
it. Update caller.
(M6811_TDEP): Remove.
(m68hc11_frame_prev_register): Use get_frame_arch to get at the current
architecture.
(m68hc11_scan_prologue): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
* m68k-tdep.c (m68k_analyze_prologue): Add gdbarch as parameter and
update caller.
(m68k_analyze_register_saves): Likewise. Also replace current_gdbarch
by gdbarch.
* rs6000-tdep.c (skip_prologue): Add gdbarch as parameter and update
caller. Relace current_gdbarch by gdbarch.
(altivec_register_p, spe_register_p): Likewise.
* ppc-tdep.h (altivec_register_p, spe_register_p): Add gdbarch as
parameter.
* ppc-linux-nat.c (fetch_register, store_register): Update caller of
altivec_register_p and spe_register_p.
* score-tdep.c (score_fetch_inst): Add gdbarch as parameter. Update
caller. Replace current_gdbarch by gdbarch.
(score_analyze_prologue): use get_frame_arch to get at the current
architecture.
* sparc-tdep.h (sparc_analyze_prologue): Add gdbarch as parameter.
* sparc-tdep.c (sparc_analyze_prologue): Likewise. Replace
current_gdbarch by gdbarch. Update caller.
(sparc_frame_cache): Use get_frame_arch to get at the current
architecture.
* sparce64-tdep.c (sparc64_skip_prologue): Update call of
sparc_analyze_prologue.
* mn10300-tdep.c (mn10300_dwarf2_reg_to_regnum): Add gdbarch as
parameter.
2008-01-11 15:43:15 +01:00
|
|
|
|
<= (gdbarch_ptr_bit (gdbarch) == 64 ? 11 : 7))
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
pc += 8;
|
* breakpoint.h (breakpoint_restore_shadows): New
declaration.
* breakpoint.c (breakpoint_restore_shadows): New.
(read_memory_nobpt): Delete.
* gdbcore.h (read_memory_nobpt): Delete declaration.
* target.c (memory_xfer_partial): Call
breakpoint_restore_shadows.
(restore_show_memory_breakpoints)
(make_show_memory_beakpoints_cleanup): New.
(show_memory_breakpoints): New.
* target.h (make_show_memory_beakpoints_cleanup): Declare.
* ppc-linux-tdep.c (ppc_linux_memory_remove_breakpoint):
Make sure we see memory breakpoints when checking if
breakpoint is still there.
* alpha-tdep.c, alphanbsd-tdep.c, frame.c, frv-tdep.c,
hppa-linux-tdep.c, hppa-tdep.c, i386-linux-nat.c, i386-tdep.c,
m68klinux-tdep.c, mips-tdep.c, mn10300-tdep.c, s390-tdep.c,
sparc-tdep.c: Use target_read_memory instead of read_memory_nobpt.
2008-03-13 13:22:14 +01:00
|
|
|
|
status = target_read_memory (pc, buf, 4);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
inst = extract_unsigned_integer (buf, 4);
|
|
|
|
|
if (status != 0)
|
|
|
|
|
return pc;
|
|
|
|
|
if ((inst & 0xfc000000) != 0x34000000)
|
|
|
|
|
break;
|
* breakpoint.h (breakpoint_restore_shadows): New
declaration.
* breakpoint.c (breakpoint_restore_shadows): New.
(read_memory_nobpt): Delete.
* gdbcore.h (read_memory_nobpt): Delete declaration.
* target.c (memory_xfer_partial): Call
breakpoint_restore_shadows.
(restore_show_memory_breakpoints)
(make_show_memory_beakpoints_cleanup): New.
(show_memory_breakpoints): New.
* target.h (make_show_memory_beakpoints_cleanup): Declare.
* ppc-linux-tdep.c (ppc_linux_memory_remove_breakpoint):
Make sure we see memory breakpoints when checking if
breakpoint is still there.
* alpha-tdep.c, alphanbsd-tdep.c, frame.c, frv-tdep.c,
hppa-linux-tdep.c, hppa-tdep.c, i386-linux-nat.c, i386-tdep.c,
m68klinux-tdep.c, mips-tdep.c, mn10300-tdep.c, s390-tdep.c,
sparc-tdep.c: Use target_read_memory instead of read_memory_nobpt.
2008-03-13 13:22:14 +01:00
|
|
|
|
status = target_read_memory (pc + 4, buf, 4);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
next_inst = extract_unsigned_integer (buf, 4);
|
|
|
|
|
if (status != 0)
|
|
|
|
|
return pc;
|
|
|
|
|
reg_num = inst_saves_fr (next_inst);
|
|
|
|
|
}
|
|
|
|
|
args_stored = 0;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Quit if we hit any kind of branch. This can happen if a prologue
|
1999-07-07 22:19:36 +02:00
|
|
|
|
instruction is in the delay slot of the first call/branch. */
|
2004-11-12 01:51:23 +01:00
|
|
|
|
if (is_branch (inst) && stop_before_branch)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
/* What a crock. The HP compilers set args_stored even if no
|
1999-07-07 22:19:36 +02:00
|
|
|
|
arguments were stored into the stack (boo hiss). This could
|
|
|
|
|
cause this code to then skip a bunch of user insns (up to the
|
|
|
|
|
first branch).
|
|
|
|
|
|
|
|
|
|
To combat this we try to identify when args_stored was bogusly
|
|
|
|
|
set and clear it. We only do this when args_stored is nonzero,
|
|
|
|
|
all other resources are accounted for, and nothing changed on
|
|
|
|
|
this pass. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (args_stored
|
1999-07-07 22:19:36 +02:00
|
|
|
|
&& !(save_gr || save_fr || save_rp || save_sp || stack_remaining > 0)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
&& old_save_gr == save_gr && old_save_fr == save_fr
|
|
|
|
|
&& old_save_rp == save_rp && old_save_sp == save_sp
|
|
|
|
|
&& old_stack_remaining == stack_remaining)
|
|
|
|
|
break;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
/* Bump the PC. */
|
|
|
|
|
pc += 4;
|
2004-11-12 01:51:23 +01:00
|
|
|
|
|
|
|
|
|
/* !stop_before_branch, so also look at the insn in the delay slot
|
|
|
|
|
of the branch. */
|
|
|
|
|
if (final_iteration)
|
|
|
|
|
break;
|
|
|
|
|
if (is_branch (inst))
|
|
|
|
|
final_iteration = 1;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* We've got a tenative location for the end of the prologue. However
|
|
|
|
|
because of limitations in the unwind descriptor mechanism we may
|
|
|
|
|
have went too far into user code looking for the save of a register
|
|
|
|
|
that does not exist. So, if there registers we expected to be saved
|
|
|
|
|
but never were, mask them out and restart.
|
|
|
|
|
|
|
|
|
|
This should only happen in optimized code, and should be very rare. */
|
1999-07-07 22:19:36 +02:00
|
|
|
|
if (save_gr || (save_fr && !(restart_fr || restart_gr)))
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
pc = orig_pc;
|
|
|
|
|
restart_gr = save_gr;
|
|
|
|
|
restart_fr = save_fr;
|
|
|
|
|
goto restart;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return pc;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
1999-08-16 21:57:19 +02:00
|
|
|
|
/* Return the address of the PC after the last prologue instruction if
|
|
|
|
|
we can determine it from the debug symbols. Else return zero. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
static CORE_ADDR
|
2000-07-30 03:48:28 +02:00
|
|
|
|
after_prologue (CORE_ADDR pc)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
struct symtab_and_line sal;
|
|
|
|
|
CORE_ADDR func_addr, func_end;
|
|
|
|
|
struct symbol *f;
|
|
|
|
|
|
1999-08-16 21:57:19 +02:00
|
|
|
|
/* If we can not find the symbol in the partial symbol table, then
|
|
|
|
|
there is no hope we can determine the function's start address
|
|
|
|
|
with this code. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (!find_pc_partial_function (pc, NULL, &func_addr, &func_end))
|
1999-08-16 21:57:19 +02:00
|
|
|
|
return 0;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-08-16 21:57:19 +02:00
|
|
|
|
/* Get the line associated with FUNC_ADDR. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
sal = find_pc_line (func_addr, 0);
|
|
|
|
|
|
1999-08-16 21:57:19 +02:00
|
|
|
|
/* There are only two cases to consider. First, the end of the source line
|
|
|
|
|
is within the function bounds. In that case we return the end of the
|
|
|
|
|
source line. Second is the end of the source line extends beyond the
|
|
|
|
|
bounds of the current function. We need to use the slow code to
|
|
|
|
|
examine instructions in that case.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-08-16 21:57:19 +02:00
|
|
|
|
Anything else is simply a bug elsewhere. Fixing it here is absolutely
|
|
|
|
|
the wrong thing to do. In fact, it should be entirely possible for this
|
|
|
|
|
function to always return zero since the slow instruction scanning code
|
|
|
|
|
is supposed to *always* work. If it does not, then it is a bug. */
|
|
|
|
|
if (sal.end < func_end)
|
|
|
|
|
return sal.end;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
else
|
1999-08-16 21:57:19 +02:00
|
|
|
|
return 0;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* To skip prologues, I use this predicate. Returns either PC itself
|
|
|
|
|
if the code at PC does not look like a function prologue; otherwise
|
2004-11-12 01:51:23 +01:00
|
|
|
|
returns an address that (if we're lucky) follows the prologue.
|
|
|
|
|
|
|
|
|
|
hppa_skip_prologue is called by gdb to place a breakpoint in a function.
|
|
|
|
|
It doesn't necessarily skips all the insns in the prologue. In fact
|
|
|
|
|
we might not want to skip all the insns because a prologue insn may
|
|
|
|
|
appear in the delay slot of the first branch, and we don't want to
|
|
|
|
|
skip over the branch in that case. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2004-04-17 17:34:16 +02:00
|
|
|
|
static CORE_ADDR
|
2008-01-11 14:20:02 +01:00
|
|
|
|
hppa_skip_prologue (struct gdbarch *gdbarch, CORE_ADDR pc)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
1999-07-07 22:19:36 +02:00
|
|
|
|
unsigned long inst;
|
|
|
|
|
int offset;
|
|
|
|
|
CORE_ADDR post_prologue_pc;
|
|
|
|
|
char buf[4];
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
/* See if we can determine the end of the prologue via the symbol table.
|
|
|
|
|
If so, then return either PC, or the PC after the prologue, whichever
|
|
|
|
|
is greater. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
post_prologue_pc = after_prologue (pc);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-08-16 21:57:19 +02:00
|
|
|
|
/* If after_prologue returned a useful address, then use it. Else
|
|
|
|
|
fall back on the instruction skipping code.
|
|
|
|
|
|
|
|
|
|
Some folks have claimed this causes problems because the breakpoint
|
|
|
|
|
may be the first instruction of the prologue. If that happens, then
|
|
|
|
|
the instruction skipping code has a bug that needs to be fixed. */
|
1999-07-07 22:19:36 +02:00
|
|
|
|
if (post_prologue_pc != 0)
|
|
|
|
|
return max (pc, post_prologue_pc);
|
|
|
|
|
else
|
* alpha-tdep.c (alpha_heuristic_proc_start)
(alpha_sigtramp_register_address): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch.
(alpha_heuristic_frame_unwind_cache): Use get_frame_arch to get at the
current architecture by frame_info. Update alpha_heuristic_proc_start
call.
(alpha_sigtramp_frame_this_id, alpha_sigtramp_frame_prev_register): Use
get_frame_arch to get at the current architecture by frame_info. Update
alpha_sigtramp_register_address call.
* arm-tdep.c (thumb_scan_prologue): Add gdbarch as parameter and replace
current_gdbarch by gdbarch. Update caller.
(convert_to_extended, convert_from_extended): Add endianess parameter
for comparison. Update caller.
(arm_extract_return_value, arm_store_return_value): Use
get_regcache_arch to get at the current architecture.
* cris-tdep.c (cris_register_size): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
(cris_gdb_func, move_to_preg_op, none_reg_mode_move_from_preg_op): Add
gdbarch as parameter. Update caller. Replace current_gdbarch by gdbarch.
* h8300-tdep.c (E_PSEUDO_CCR_REGNUM, E_PSEUDO_EXR_REGNUM, BINWORD): Add
gdbarch as parameter. Update caller.
(h8300_init_frame_cache): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
* hppa-tdep.c (skip_prologue_hard_way): Add gdbarch as parameter and
update caller. Replace current_gdbarch by gdbarch.
* m32c-tdep.c (m32c_skip_trampoline_code): Use get_frame_arch to get at
the current architecture. Replace current_gdbarch by gdbarch.
* m68hc11-tdep.c (m68hc11_frame_unwind_cache): Likewise.
(STACK_CORRECTION, USE_PAGE_REGISTER): Replace M6811_TDEP by its
expression. Add gdbarch as parameter and replace current_gdbarch with
it. Update caller.
(M6811_TDEP): Remove.
(m68hc11_frame_prev_register): Use get_frame_arch to get at the current
architecture.
(m68hc11_scan_prologue): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
* m68k-tdep.c (m68k_analyze_prologue): Add gdbarch as parameter and
update caller.
(m68k_analyze_register_saves): Likewise. Also replace current_gdbarch
by gdbarch.
* rs6000-tdep.c (skip_prologue): Add gdbarch as parameter and update
caller. Relace current_gdbarch by gdbarch.
(altivec_register_p, spe_register_p): Likewise.
* ppc-tdep.h (altivec_register_p, spe_register_p): Add gdbarch as
parameter.
* ppc-linux-nat.c (fetch_register, store_register): Update caller of
altivec_register_p and spe_register_p.
* score-tdep.c (score_fetch_inst): Add gdbarch as parameter. Update
caller. Replace current_gdbarch by gdbarch.
(score_analyze_prologue): use get_frame_arch to get at the current
architecture.
* sparc-tdep.h (sparc_analyze_prologue): Add gdbarch as parameter.
* sparc-tdep.c (sparc_analyze_prologue): Likewise. Replace
current_gdbarch by gdbarch. Update caller.
(sparc_frame_cache): Use get_frame_arch to get at the current
architecture.
* sparce64-tdep.c (sparc64_skip_prologue): Update call of
sparc_analyze_prologue.
* mn10300-tdep.c (mn10300_dwarf2_reg_to_regnum): Add gdbarch as
parameter.
2008-01-11 15:43:15 +01:00
|
|
|
|
return (skip_prologue_hard_way (gdbarch, pc, 1));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
2006-03-30 16:15:00 +02:00
|
|
|
|
/* Return an unwind entry that falls within the frame's code block. */
|
2008-05-08 06:21:45 +02:00
|
|
|
|
|
2006-03-30 16:15:00 +02:00
|
|
|
|
static struct unwind_table_entry *
|
2008-05-08 06:21:45 +02:00
|
|
|
|
hppa_find_unwind_entry_in_block (struct frame_info *this_frame)
|
2006-03-30 16:15:00 +02:00
|
|
|
|
{
|
2008-05-08 06:21:45 +02:00
|
|
|
|
CORE_ADDR pc = get_frame_address_in_block (this_frame);
|
* dwarf2-frame.c (dwarf2_frame_cache, dwarf2_frame_this_id)
(dwarf2_frame_sniffer): Update.
(dwarf2_signal_frame_this_id): New function.
(dwarf2_signal_frame_unwind): Use it.
(dwarf2_frame_base_sniffer): Use frame_unwind_address_in_block.
* frame.c (frame_func_unwind): Add this_type argument.
(get_frame_func): Update.
(frame_unwind_address_in_block): Add this_type argument and check it.
Fix a typo.
(get_frame_address_in_block): Update.
* frame.h (enum frame_type): Move higher in the file.
(frame_unwind_address_in_block, frame_func_unwind): Add enum frame_type
argument.
* alpha-mdebug-tdep.c, alpha-tdep.c, amd64-tdep.c, amd64obsd-tdep.c,
arm-tdep.c, avr-tdep.c, cris-tdep.c, frv-tdep.c, h8300-tdep.c,
hppa-tdep.c, i386-tdep.c, i386obsd-tdep.c, ia64-tdep.c,
libunwind-frame.c, m32c-tdep.c, m32r-linux-tdep.c, m32r-tdep.c,
m68hc11-tdep.c, m68k-tdep.c, m88k-tdep.c, mips-mdebug-tdep.c,
mips-tdep.c, mn10300-tdep.c, mt-tdep.c, rs6000-tdep.c, s390-tdep.c,
score-tdep.c, sh-tdep.c, sh64-tdep.c, sparc-tdep.c,
sparc64obsd-tdep.c, spu-tdep.c, v850-tdep.c, vax-tdep.c,
xstormy16-tdep.c, xtensa-tdep.c: Update calls to
frame_func_unwind and frame_unwind_address_in_block to specify
the frame type. Use frame_unwind_address_in_block instead of
frame_pc_unwind in sniffers.
* gdb.arch/i386-signal.c, gdb.arch/i386-signal.exp: New files.
2007-02-27 21:17:19 +01:00
|
|
|
|
|
|
|
|
|
/* FIXME drow/20070101: Calling gdbarch_addr_bits_remove on the
|
2008-07-15 20:40:03 +02:00
|
|
|
|
result of get_frame_address_in_block implies a problem.
|
* dwarf2-frame.c (dwarf2_frame_cache, dwarf2_frame_this_id)
(dwarf2_frame_sniffer): Update.
(dwarf2_signal_frame_this_id): New function.
(dwarf2_signal_frame_unwind): Use it.
(dwarf2_frame_base_sniffer): Use frame_unwind_address_in_block.
* frame.c (frame_func_unwind): Add this_type argument.
(get_frame_func): Update.
(frame_unwind_address_in_block): Add this_type argument and check it.
Fix a typo.
(get_frame_address_in_block): Update.
* frame.h (enum frame_type): Move higher in the file.
(frame_unwind_address_in_block, frame_func_unwind): Add enum frame_type
argument.
* alpha-mdebug-tdep.c, alpha-tdep.c, amd64-tdep.c, amd64obsd-tdep.c,
arm-tdep.c, avr-tdep.c, cris-tdep.c, frv-tdep.c, h8300-tdep.c,
hppa-tdep.c, i386-tdep.c, i386obsd-tdep.c, ia64-tdep.c,
libunwind-frame.c, m32c-tdep.c, m32r-linux-tdep.c, m32r-tdep.c,
m68hc11-tdep.c, m68k-tdep.c, m88k-tdep.c, mips-mdebug-tdep.c,
mips-tdep.c, mn10300-tdep.c, mt-tdep.c, rs6000-tdep.c, s390-tdep.c,
score-tdep.c, sh-tdep.c, sh64-tdep.c, sparc-tdep.c,
sparc64obsd-tdep.c, spu-tdep.c, v850-tdep.c, vax-tdep.c,
xstormy16-tdep.c, xtensa-tdep.c: Update calls to
frame_func_unwind and frame_unwind_address_in_block to specify
the frame type. Use frame_unwind_address_in_block instead of
frame_pc_unwind in sniffers.
* gdb.arch/i386-signal.c, gdb.arch/i386-signal.exp: New files.
2007-02-27 21:17:19 +01:00
|
|
|
|
The bits should have been removed earlier, before the return
|
2008-07-16 01:29:24 +02:00
|
|
|
|
value of frame_pc_unwind. That might be happening already;
|
* dwarf2-frame.c (dwarf2_frame_cache, dwarf2_frame_this_id)
(dwarf2_frame_sniffer): Update.
(dwarf2_signal_frame_this_id): New function.
(dwarf2_signal_frame_unwind): Use it.
(dwarf2_frame_base_sniffer): Use frame_unwind_address_in_block.
* frame.c (frame_func_unwind): Add this_type argument.
(get_frame_func): Update.
(frame_unwind_address_in_block): Add this_type argument and check it.
Fix a typo.
(get_frame_address_in_block): Update.
* frame.h (enum frame_type): Move higher in the file.
(frame_unwind_address_in_block, frame_func_unwind): Add enum frame_type
argument.
* alpha-mdebug-tdep.c, alpha-tdep.c, amd64-tdep.c, amd64obsd-tdep.c,
arm-tdep.c, avr-tdep.c, cris-tdep.c, frv-tdep.c, h8300-tdep.c,
hppa-tdep.c, i386-tdep.c, i386obsd-tdep.c, ia64-tdep.c,
libunwind-frame.c, m32c-tdep.c, m32r-linux-tdep.c, m32r-tdep.c,
m68hc11-tdep.c, m68k-tdep.c, m88k-tdep.c, mips-mdebug-tdep.c,
mips-tdep.c, mn10300-tdep.c, mt-tdep.c, rs6000-tdep.c, s390-tdep.c,
score-tdep.c, sh-tdep.c, sh64-tdep.c, sparc-tdep.c,
sparc64obsd-tdep.c, spu-tdep.c, v850-tdep.c, vax-tdep.c,
xstormy16-tdep.c, xtensa-tdep.c: Update calls to
frame_func_unwind and frame_unwind_address_in_block to specify
the frame type. Use frame_unwind_address_in_block instead of
frame_pc_unwind in sniffers.
* gdb.arch/i386-signal.c, gdb.arch/i386-signal.exp: New files.
2007-02-27 21:17:19 +01:00
|
|
|
|
if it isn't, it should be fixed. Then this call can be
|
|
|
|
|
removed. */
|
2008-05-08 06:21:45 +02:00
|
|
|
|
pc = gdbarch_addr_bits_remove (get_frame_arch (this_frame), pc);
|
2006-03-30 16:15:00 +02:00
|
|
|
|
return find_unwind_entry (pc);
|
|
|
|
|
}
|
|
|
|
|
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
struct hppa_frame_cache
|
|
|
|
|
{
|
|
|
|
|
CORE_ADDR base;
|
|
|
|
|
struct trad_frame_saved_reg *saved_regs;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static struct hppa_frame_cache *
|
2008-05-08 06:21:45 +02:00
|
|
|
|
hppa_frame_cache (struct frame_info *this_frame, void **this_cache)
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
{
|
2008-05-08 06:21:45 +02:00
|
|
|
|
struct gdbarch *gdbarch = get_frame_arch (this_frame);
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
struct hppa_frame_cache *cache;
|
|
|
|
|
long saved_gr_mask;
|
|
|
|
|
long saved_fr_mask;
|
|
|
|
|
CORE_ADDR this_sp;
|
|
|
|
|
long frame_size;
|
|
|
|
|
struct unwind_table_entry *u;
|
2004-04-24 08:10:01 +02:00
|
|
|
|
CORE_ADDR prologue_end;
|
2004-11-12 01:48:12 +01:00
|
|
|
|
int fp_in_r1 = 0;
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
int i;
|
|
|
|
|
|
2004-04-23 04:51:52 +02:00
|
|
|
|
if (hppa_debug)
|
|
|
|
|
fprintf_unfiltered (gdb_stdlog, "{ hppa_frame_cache (frame=%d) -> ",
|
2008-05-08 06:21:45 +02:00
|
|
|
|
frame_relative_level(this_frame));
|
2004-04-23 04:51:52 +02:00
|
|
|
|
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
if ((*this_cache) != NULL)
|
2004-04-23 04:51:52 +02:00
|
|
|
|
{
|
|
|
|
|
if (hppa_debug)
|
|
|
|
|
fprintf_unfiltered (gdb_stdlog, "base=0x%s (cached) }",
|
|
|
|
|
paddr_nz (((struct hppa_frame_cache *)*this_cache)->base));
|
|
|
|
|
return (*this_cache);
|
|
|
|
|
}
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
cache = FRAME_OBSTACK_ZALLOC (struct hppa_frame_cache);
|
|
|
|
|
(*this_cache) = cache;
|
2008-05-08 06:21:45 +02:00
|
|
|
|
cache->saved_regs = trad_frame_alloc_saved_regs (this_frame);
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
|
|
|
|
|
/* Yow! */
|
2008-05-08 06:21:45 +02:00
|
|
|
|
u = hppa_find_unwind_entry_in_block (this_frame);
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
if (!u)
|
2004-04-23 04:51:52 +02:00
|
|
|
|
{
|
|
|
|
|
if (hppa_debug)
|
|
|
|
|
fprintf_unfiltered (gdb_stdlog, "base=NULL (no unwind entry) }");
|
|
|
|
|
return (*this_cache);
|
|
|
|
|
}
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
|
|
|
|
|
/* Turn the Entry_GR field into a bitmask. */
|
|
|
|
|
saved_gr_mask = 0;
|
|
|
|
|
for (i = 3; i < u->Entry_GR + 3; i++)
|
|
|
|
|
{
|
|
|
|
|
/* Frame pointer gets saved into a special location. */
|
2004-03-07 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Replace DEPRECATED_FP_REGNUM with HPPA_FP_REGNUM,
FP0_REGNUM with HPPA_FP0_REGNUM, and SP_REGNUM with
HPPA_SP_REGNUM.
(hppa_register_raw_size, hppa_register_byte, hppa_read_fp)
(hppa_target_read_fp): Delete.
(hppa_gdbarch_init): Do not set deprecated register_raw_size,
register_virtual_size, max_register_raw_size,
max_register_virtual_size, register_byte, register_size,
target_read_fp, fp_regnum, and register_bytes. Set register_type
instead of register_virtual_type.
(hppa32_register_type, hppa64_register_type): Replace
hppa32_register_virtual_type and hppa64_register_virtual_type.
* config/pa/tm-hppa.h (HPPA_FP0_REGNUM, HPPA_SP_REGNUM)
(HPPA_FP_REGNUM): Define.
2004-03-07 20:58:27 +01:00
|
|
|
|
if (u->Save_SP && i == HPPA_FP_REGNUM)
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
saved_gr_mask |= (1 << i);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Turn the Entry_FR field into a bitmask too. */
|
|
|
|
|
saved_fr_mask = 0;
|
|
|
|
|
for (i = 12; i < u->Entry_FR + 12; i++)
|
|
|
|
|
saved_fr_mask |= (1 << i);
|
|
|
|
|
|
|
|
|
|
/* Loop until we find everything of interest or hit a branch.
|
|
|
|
|
|
|
|
|
|
For unoptimized GCC code and for any HP CC code this will never ever
|
|
|
|
|
examine any user instructions.
|
|
|
|
|
|
|
|
|
|
For optimized GCC code we're faced with problems. GCC will schedule
|
|
|
|
|
its prologue and make prologue instructions available for delay slot
|
|
|
|
|
filling. The end result is user code gets mixed in with the prologue
|
|
|
|
|
and a prologue instruction may be in the delay slot of the first branch
|
|
|
|
|
or call.
|
|
|
|
|
|
|
|
|
|
Some unexpected things are expected with debugging optimized code, so
|
|
|
|
|
we allow this routine to walk past user instructions in optimized
|
|
|
|
|
GCC code. */
|
|
|
|
|
{
|
|
|
|
|
int final_iteration = 0;
|
2006-03-01 06:22:38 +01:00
|
|
|
|
CORE_ADDR pc, start_pc, end_pc;
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
int looking_for_sp = u->Save_SP;
|
|
|
|
|
int looking_for_rp = u->Save_RP;
|
|
|
|
|
int fp_loc = -1;
|
2004-04-24 08:10:01 +02:00
|
|
|
|
|
2004-11-12 01:51:23 +01:00
|
|
|
|
/* We have to use skip_prologue_hard_way instead of just
|
2004-04-24 08:10:01 +02:00
|
|
|
|
skip_prologue_using_sal, in case we stepped into a function without
|
|
|
|
|
symbol information. hppa_skip_prologue also bounds the returned
|
|
|
|
|
pc by the passed in pc, so it will not return a pc in the next
|
2004-11-12 01:51:23 +01:00
|
|
|
|
function.
|
|
|
|
|
|
|
|
|
|
We used to call hppa_skip_prologue to find the end of the prologue,
|
|
|
|
|
but if some non-prologue instructions get scheduled into the prologue,
|
|
|
|
|
and the program is compiled with debug information, the "easy" way
|
|
|
|
|
in hppa_skip_prologue will return a prologue end that is too early
|
|
|
|
|
for us to notice any potential frame adjustments. */
|
2004-11-04 00:20:43 +01:00
|
|
|
|
|
2008-07-15 20:32:06 +02:00
|
|
|
|
/* We used to use get_frame_func to locate the beginning of the
|
|
|
|
|
function to pass to skip_prologue. However, when objects are
|
|
|
|
|
compiled without debug symbols, get_frame_func can return the wrong
|
2006-03-01 06:22:38 +01:00
|
|
|
|
function (or 0). We can do better than that by using unwind records.
|
|
|
|
|
This only works if the Region_description of the unwind record
|
|
|
|
|
indicates that it includes the entry point of the function.
|
|
|
|
|
HP compilers sometimes generate unwind records for regions that
|
|
|
|
|
do not include the entry or exit point of a function. GNU tools
|
|
|
|
|
do not do this. */
|
|
|
|
|
|
|
|
|
|
if ((u->Region_description & 0x2) == 0)
|
|
|
|
|
start_pc = u->region_start;
|
|
|
|
|
else
|
2008-05-08 06:21:45 +02:00
|
|
|
|
start_pc = get_frame_func (this_frame);
|
2004-11-04 00:20:43 +01:00
|
|
|
|
|
* alpha-tdep.c (alpha_heuristic_proc_start)
(alpha_sigtramp_register_address): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch.
(alpha_heuristic_frame_unwind_cache): Use get_frame_arch to get at the
current architecture by frame_info. Update alpha_heuristic_proc_start
call.
(alpha_sigtramp_frame_this_id, alpha_sigtramp_frame_prev_register): Use
get_frame_arch to get at the current architecture by frame_info. Update
alpha_sigtramp_register_address call.
* arm-tdep.c (thumb_scan_prologue): Add gdbarch as parameter and replace
current_gdbarch by gdbarch. Update caller.
(convert_to_extended, convert_from_extended): Add endianess parameter
for comparison. Update caller.
(arm_extract_return_value, arm_store_return_value): Use
get_regcache_arch to get at the current architecture.
* cris-tdep.c (cris_register_size): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
(cris_gdb_func, move_to_preg_op, none_reg_mode_move_from_preg_op): Add
gdbarch as parameter. Update caller. Replace current_gdbarch by gdbarch.
* h8300-tdep.c (E_PSEUDO_CCR_REGNUM, E_PSEUDO_EXR_REGNUM, BINWORD): Add
gdbarch as parameter. Update caller.
(h8300_init_frame_cache): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
* hppa-tdep.c (skip_prologue_hard_way): Add gdbarch as parameter and
update caller. Replace current_gdbarch by gdbarch.
* m32c-tdep.c (m32c_skip_trampoline_code): Use get_frame_arch to get at
the current architecture. Replace current_gdbarch by gdbarch.
* m68hc11-tdep.c (m68hc11_frame_unwind_cache): Likewise.
(STACK_CORRECTION, USE_PAGE_REGISTER): Replace M6811_TDEP by its
expression. Add gdbarch as parameter and replace current_gdbarch with
it. Update caller.
(M6811_TDEP): Remove.
(m68hc11_frame_prev_register): Use get_frame_arch to get at the current
architecture.
(m68hc11_scan_prologue): Add gdbarch as parameter. Replace
current_gdbarch by gdbarch. Update caller.
* m68k-tdep.c (m68k_analyze_prologue): Add gdbarch as parameter and
update caller.
(m68k_analyze_register_saves): Likewise. Also replace current_gdbarch
by gdbarch.
* rs6000-tdep.c (skip_prologue): Add gdbarch as parameter and update
caller. Relace current_gdbarch by gdbarch.
(altivec_register_p, spe_register_p): Likewise.
* ppc-tdep.h (altivec_register_p, spe_register_p): Add gdbarch as
parameter.
* ppc-linux-nat.c (fetch_register, store_register): Update caller of
altivec_register_p and spe_register_p.
* score-tdep.c (score_fetch_inst): Add gdbarch as parameter. Update
caller. Replace current_gdbarch by gdbarch.
(score_analyze_prologue): use get_frame_arch to get at the current
architecture.
* sparc-tdep.h (sparc_analyze_prologue): Add gdbarch as parameter.
* sparc-tdep.c (sparc_analyze_prologue): Likewise. Replace
current_gdbarch by gdbarch. Update caller.
(sparc_frame_cache): Use get_frame_arch to get at the current
architecture.
* sparce64-tdep.c (sparc64_skip_prologue): Update call of
sparc_analyze_prologue.
* mn10300-tdep.c (mn10300_dwarf2_reg_to_regnum): Add gdbarch as
parameter.
2008-01-11 15:43:15 +01:00
|
|
|
|
prologue_end = skip_prologue_hard_way (gdbarch, start_pc, 0);
|
2008-05-08 06:21:45 +02:00
|
|
|
|
end_pc = get_frame_pc (this_frame);
|
2004-04-24 08:10:01 +02:00
|
|
|
|
|
|
|
|
|
if (prologue_end != 0 && end_pc > prologue_end)
|
|
|
|
|
end_pc = prologue_end;
|
|
|
|
|
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
frame_size = 0;
|
2004-04-24 08:10:01 +02:00
|
|
|
|
|
2006-03-01 06:22:38 +01:00
|
|
|
|
for (pc = start_pc;
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
((saved_gr_mask || saved_fr_mask
|
|
|
|
|
|| looking_for_sp || looking_for_rp
|
|
|
|
|
|| frame_size < (u->Total_frame_size << 3))
|
2004-04-24 08:10:01 +02:00
|
|
|
|
&& pc < end_pc);
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
pc += 4)
|
|
|
|
|
{
|
|
|
|
|
int reg;
|
|
|
|
|
char buf4[4];
|
2004-11-10 17:26:55 +01:00
|
|
|
|
long inst;
|
|
|
|
|
|
2008-05-08 06:21:45 +02:00
|
|
|
|
if (!safe_frame_unwind_memory (this_frame, pc, buf4, sizeof buf4))
|
2004-11-10 17:26:55 +01:00
|
|
|
|
{
|
2005-02-10 Andrew Cagney <cagney@gnu.org>
Mark up all error and warning messages.
* ada-lang.c, amd64-tdep.c, arch-utils.c, breakpoint.c: Update.
* bsd-kvm.c, bsd-uthread.c, coff-solib.h, coffread.c: Update.
* core-aout.c, core-regset.c, corefile.c, corelow.c: Update.
* cp-abi.c, cp-support.c, cp-valprint.c, cris-tdep.c: Update.
* dbxread.c, demangle.c, doublest.c, dsrec.c: Update.
* dve3900-rom.c, dwarf2expr.c, dwarf2loc.c: Update.
* dwarf2read.c, dwarfread.c, elfread.c, eval.c: Update.
* event-top.c, exec.c, expprint.c, f-lang.c: Update.
* f-typeprint.c, f-valprint.c, fbsd-nat.c, findvar.c: Update.
* frame.c, frv-linux-tdep.c, gcore.c, gdbtypes.c: Update.
* gnu-nat.c, gnu-v2-abi.c, gnu-v3-abi.c, go32-nat.c: Update.
* hpacc-abi.c, hppa-hpux-nat.c, hppa-hpux-tdep.c: Update.
* hppa-linux-nat.c, hppa-linux-tdep.c, hppa-tdep.c: Update.
* hpread.c, hpux-thread.c, i386-linux-nat.c: Update.
* i386-linux-tdep.c, i386-tdep.c, i386bsd-nat.c: Update.
* i386gnu-nat.c, i387-tdep.c, ia64-linux-nat.c: Update.
* ia64-tdep.c, inf-child.c, inf-ptrace.c, inf-ttrace.c: Update.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Update.
* inftarg.c, interps.c, irix5-nat.c, jv-lang.c: Update.
* kod-cisco.c, kod.c, language.c, libunwind-frame.c: Update.
* linespec.c, linux-nat.c, linux-thread-db.c, m2-lang.c: Update.
* m32r-rom.c, m68hc11-tdep.c, m68k-tdep.c: Update.
* m68klinux-nat.c, macrocmd.c, macroexp.c, main.c: Update.
* maint.c, mdebugread.c, mem-break.c, memattr.c: Update.
* mips-linux-tdep.c, mips-tdep.c, mipsread.c, monitor.c: Update.
* nlmread.c, nto-procfs.c, objc-lang.c, objfiles.c: Update.
* observer.c, ocd.c, p-lang.c, p-typeprint.c: Update.
* p-valprint.c, pa64solib.c, parse.c, ppc-linux-tdep.c: Update.
* ppcnbsd-tdep.c, printcmd.c, procfs.c, remote-e7000.c: Update.
* remote-fileio.c, remote-m32r-sdi.c, remote-rdi.c: Update.
* remote-rdp.c, remote-sim.c, remote-st.c: Update.
* remote-utils.c, remote-utils.h, remote.c: Update.
* rom68k-rom.c, rs6000-nat.c, s390-tdep.c, scm-lang.c: Update.
* ser-e7kpc.c, ser-tcp.c, ser-unix.c, sh-tdep.c: Update.
* sh3-rom.c, shnbsd-tdep.c, sol-thread.c, solib-aix5.c: Update.
* solib-frv.c, solib-irix.c, solib-osf.c, solib-pa64.c: Update.
* solib-som.c, solib-sunos.c, solib-svr4.c, solib.c: Update.
* somread.c, somsolib.c, source.c, stabsread.c: Update.
* stack.c, std-regs.c, symfile-mem.c, symfile.c: Update.
* symmisc.c, symtab.c, target.c, thread.c, top.c: Update.
* tracepoint.c, trad-frame.c, typeprint.c, utils.c: Update.
* uw-thread.c, valarith.c, valops.c, valprint.c: Update.
* value.c, varobj.c, version.in, win32-nat.c, wince.c: Update.
* xcoffread.c, xcoffsolib.c, cli/cli-cmds.c: Update.
* cli/cli-decode.c, cli/cli-dump.c, cli/cli-logging.c: Update.
* cli/cli-script.c, cli/cli-setshow.c, mi/mi-cmd-break.c: Update.
* mi/mi-cmd-disas.c, mi/mi-cmd-env.c, mi/mi-cmd-file.c: Update.
* mi/mi-cmd-stack.c, mi/mi-cmd-var.c, mi/mi-getopt.c: Update.
* mi/mi-symbol-cmds.c, tui/tui-layout.c, tui/tui-stack.c: Update.
* tui/tui-win.c: Update.
2005-02-11 05:06:14 +01:00
|
|
|
|
error (_("Cannot read instruction at 0x%s."), paddr_nz (pc));
|
2004-11-10 17:26:55 +01:00
|
|
|
|
return (*this_cache);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
inst = extract_unsigned_integer (buf4, sizeof buf4);
|
2004-04-24 08:10:01 +02:00
|
|
|
|
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
/* Note the interesting effects of this instruction. */
|
|
|
|
|
frame_size += prologue_inst_adjust_sp (inst);
|
|
|
|
|
|
|
|
|
|
/* There are limited ways to store the return pointer into the
|
|
|
|
|
stack. */
|
|
|
|
|
if (inst == 0x6bc23fd9) /* stw rp,-0x14(sr0,sp) */
|
|
|
|
|
{
|
|
|
|
|
looking_for_rp = 0;
|
2004-05-06 Randolph Chung <tausq@debian.org>
* config/pa/tm-hppa.h (RO_REGNUM, FLAGS_REGNUM, RP_REGNUM)
(HPPA_FP_REGNUM, HPPA_SP_REGNUM, SAR_REGNUM, IPSW_REGNUM)
(PCOQ_HEAD_REGNUM, PCSQ_HEAD_REGNUM, PCOQ_TAIL_REGNUM, PCSQ_TAIL_REGNUM)
(EIEM_REGNUM, IIR_REGNUM, ISR_REGNUM, IOR_REGNUM, SR4_REGNUM)
(RCR_REGNUM, PID0_REGNUM, PID1_REGNUM, PID2_REGNUM, PID3_REGNUM)
(CCR_REGNUM, TR0_REGNUM, CR27_REGNUM, HPPA_FP0_REGNUM, FP4_REGNUM)
(ARG0_REGNUM, ARG1_REGNUM, ARG2_REGNUM, ARG3_REGNUM): Move *_REGNUM
definitions ...
* hppa-tdep.h: ... to here, with HPPA_ prefix.
* Makefile.in (hppah-nat.o): Add $(hppa_tdep_h)
* hppa-hpux-tdep.c (hppa32_hpux_frame_find_saved_regs_in_sig)
(hppa64_hpux_frame_find_saved_regs_in_sig)
(child_get_current_exception_event): Add HPPA_ prefix to *_REGNUM usage.
* hppa-linux-nat.c (GR_REGNUM, TR_REGNUM, greg_map): Likewise.
* hppa-linux-tdep.c (hppa_dwarf_reg_to_regnum)
(hppa_linux_target_write_pc, hppa_linux_sigtramp_frame_unwind_cache)
(hppa_linux_sigtramp_frame_prev_register): Likewise.
* hppa-tdep.c (hppa32_return_value, hppa64_return_value)
(hppa32_push_dummy_call, hppa64_push_dummy_call, hppa64_frame_align)
(hppa_target_read_pc, hppa_target_write_pc, hppa_frame_cache)
(hppa_frame_prev_register, hppa_stub_frame_unwind_cache)
(hppa_stub_frame_prev_register, hppa_unwind_dummy_id)
(hppa_skip_permanent_breakpoint, hppa_instruction_nullified)
(hppa32_register_type, hppa_cannot_store_register)
(hppa_fetch_pointer_argument, hppa_pseudo_register_read): Likewise.
* hppah-nat.c (store_inferior_registers, fetch_register): Likewise.
* hpread.c (hpread_process_one_debug_symbol): Likewise.
* pa64solib.c (pa64_solib_have_load_event)
(pa64_solib_have_unload_event, pa64_solib_loaded_library_pathname)
(pa64_solib_unloaded_library_pathname): Likewise.
* somsolib.c (som_solib_have_load_event, som_solib_have_unload_event)
(som_solib_library_pathname): Likewise.
2004-05-07 07:48:50 +02:00
|
|
|
|
cache->saved_regs[HPPA_RP_REGNUM].addr = -20;
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
}
|
2004-10-14 23:08:06 +02:00
|
|
|
|
else if (inst == 0x6bc23fd1) /* stw rp,-0x18(sr0,sp) */
|
|
|
|
|
{
|
|
|
|
|
looking_for_rp = 0;
|
|
|
|
|
cache->saved_regs[HPPA_RP_REGNUM].addr = -24;
|
|
|
|
|
}
|
2005-11-19 13:39:50 +01:00
|
|
|
|
else if (inst == 0x0fc212c1
|
|
|
|
|
|| inst == 0x73c23fe1) /* std rp,-0x10(sr0,sp) */
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
{
|
|
|
|
|
looking_for_rp = 0;
|
2004-05-06 Randolph Chung <tausq@debian.org>
* config/pa/tm-hppa.h (RO_REGNUM, FLAGS_REGNUM, RP_REGNUM)
(HPPA_FP_REGNUM, HPPA_SP_REGNUM, SAR_REGNUM, IPSW_REGNUM)
(PCOQ_HEAD_REGNUM, PCSQ_HEAD_REGNUM, PCOQ_TAIL_REGNUM, PCSQ_TAIL_REGNUM)
(EIEM_REGNUM, IIR_REGNUM, ISR_REGNUM, IOR_REGNUM, SR4_REGNUM)
(RCR_REGNUM, PID0_REGNUM, PID1_REGNUM, PID2_REGNUM, PID3_REGNUM)
(CCR_REGNUM, TR0_REGNUM, CR27_REGNUM, HPPA_FP0_REGNUM, FP4_REGNUM)
(ARG0_REGNUM, ARG1_REGNUM, ARG2_REGNUM, ARG3_REGNUM): Move *_REGNUM
definitions ...
* hppa-tdep.h: ... to here, with HPPA_ prefix.
* Makefile.in (hppah-nat.o): Add $(hppa_tdep_h)
* hppa-hpux-tdep.c (hppa32_hpux_frame_find_saved_regs_in_sig)
(hppa64_hpux_frame_find_saved_regs_in_sig)
(child_get_current_exception_event): Add HPPA_ prefix to *_REGNUM usage.
* hppa-linux-nat.c (GR_REGNUM, TR_REGNUM, greg_map): Likewise.
* hppa-linux-tdep.c (hppa_dwarf_reg_to_regnum)
(hppa_linux_target_write_pc, hppa_linux_sigtramp_frame_unwind_cache)
(hppa_linux_sigtramp_frame_prev_register): Likewise.
* hppa-tdep.c (hppa32_return_value, hppa64_return_value)
(hppa32_push_dummy_call, hppa64_push_dummy_call, hppa64_frame_align)
(hppa_target_read_pc, hppa_target_write_pc, hppa_frame_cache)
(hppa_frame_prev_register, hppa_stub_frame_unwind_cache)
(hppa_stub_frame_prev_register, hppa_unwind_dummy_id)
(hppa_skip_permanent_breakpoint, hppa_instruction_nullified)
(hppa32_register_type, hppa_cannot_store_register)
(hppa_fetch_pointer_argument, hppa_pseudo_register_read): Likewise.
* hppah-nat.c (store_inferior_registers, fetch_register): Likewise.
* hpread.c (hpread_process_one_debug_symbol): Likewise.
* pa64solib.c (pa64_solib_have_load_event)
(pa64_solib_have_unload_event, pa64_solib_loaded_library_pathname)
(pa64_solib_unloaded_library_pathname): Likewise.
* somsolib.c (som_solib_have_load_event, som_solib_have_unload_event)
(som_solib_library_pathname): Likewise.
2004-05-07 07:48:50 +02:00
|
|
|
|
cache->saved_regs[HPPA_RP_REGNUM].addr = -16;
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Check to see if we saved SP into the stack. This also
|
|
|
|
|
happens to indicate the location of the saved frame
|
|
|
|
|
pointer. */
|
|
|
|
|
if ((inst & 0xffffc000) == 0x6fc10000 /* stw,ma r1,N(sr0,sp) */
|
|
|
|
|
|| (inst & 0xffffc00c) == 0x73c10008) /* std,ma r1,N(sr0,sp) */
|
|
|
|
|
{
|
|
|
|
|
looking_for_sp = 0;
|
2004-03-07 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Replace DEPRECATED_FP_REGNUM with HPPA_FP_REGNUM,
FP0_REGNUM with HPPA_FP0_REGNUM, and SP_REGNUM with
HPPA_SP_REGNUM.
(hppa_register_raw_size, hppa_register_byte, hppa_read_fp)
(hppa_target_read_fp): Delete.
(hppa_gdbarch_init): Do not set deprecated register_raw_size,
register_virtual_size, max_register_raw_size,
max_register_virtual_size, register_byte, register_size,
target_read_fp, fp_regnum, and register_bytes. Set register_type
instead of register_virtual_type.
(hppa32_register_type, hppa64_register_type): Replace
hppa32_register_virtual_type and hppa64_register_virtual_type.
* config/pa/tm-hppa.h (HPPA_FP0_REGNUM, HPPA_SP_REGNUM)
(HPPA_FP_REGNUM): Define.
2004-03-07 20:58:27 +01:00
|
|
|
|
cache->saved_regs[HPPA_FP_REGNUM].addr = 0;
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
}
|
2004-11-12 01:48:12 +01:00
|
|
|
|
else if (inst == 0x08030241) /* copy %r3, %r1 */
|
|
|
|
|
{
|
|
|
|
|
fp_in_r1 = 1;
|
|
|
|
|
}
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
|
|
|
|
|
/* Account for general and floating-point register saves. */
|
|
|
|
|
reg = inst_saves_gr (inst);
|
|
|
|
|
if (reg >= 3 && reg <= 18
|
2004-03-07 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Replace DEPRECATED_FP_REGNUM with HPPA_FP_REGNUM,
FP0_REGNUM with HPPA_FP0_REGNUM, and SP_REGNUM with
HPPA_SP_REGNUM.
(hppa_register_raw_size, hppa_register_byte, hppa_read_fp)
(hppa_target_read_fp): Delete.
(hppa_gdbarch_init): Do not set deprecated register_raw_size,
register_virtual_size, max_register_raw_size,
max_register_virtual_size, register_byte, register_size,
target_read_fp, fp_regnum, and register_bytes. Set register_type
instead of register_virtual_type.
(hppa32_register_type, hppa64_register_type): Replace
hppa32_register_virtual_type and hppa64_register_virtual_type.
* config/pa/tm-hppa.h (HPPA_FP0_REGNUM, HPPA_SP_REGNUM)
(HPPA_FP_REGNUM): Define.
2004-03-07 20:58:27 +01:00
|
|
|
|
&& (!u->Save_SP || reg != HPPA_FP_REGNUM))
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
{
|
|
|
|
|
saved_gr_mask &= ~(1 << reg);
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
if ((inst >> 26) == 0x1b && hppa_extract_14 (inst) >= 0)
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
/* stwm with a positive displacement is a _post_
|
|
|
|
|
_modify_. */
|
|
|
|
|
cache->saved_regs[reg].addr = 0;
|
|
|
|
|
else if ((inst & 0xfc00000c) == 0x70000008)
|
|
|
|
|
/* A std has explicit post_modify forms. */
|
|
|
|
|
cache->saved_regs[reg].addr = 0;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
CORE_ADDR offset;
|
|
|
|
|
|
|
|
|
|
if ((inst >> 26) == 0x1c)
|
|
|
|
|
offset = (inst & 0x1 ? -1 << 13 : 0) | (((inst >> 4) & 0x3ff) << 3);
|
|
|
|
|
else if ((inst >> 26) == 0x03)
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
offset = hppa_low_hppa_sign_extend (inst & 0x1f, 5);
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
else
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
offset = hppa_extract_14 (inst);
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
|
|
|
|
|
/* Handle code with and without frame pointers. */
|
|
|
|
|
if (u->Save_SP)
|
|
|
|
|
cache->saved_regs[reg].addr = offset;
|
|
|
|
|
else
|
|
|
|
|
cache->saved_regs[reg].addr = (u->Total_frame_size << 3) + offset;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* GCC handles callee saved FP regs a little differently.
|
|
|
|
|
|
|
|
|
|
It emits an instruction to put the value of the start of
|
|
|
|
|
the FP store area into %r1. It then uses fstds,ma with a
|
|
|
|
|
basereg of %r1 for the stores.
|
|
|
|
|
|
|
|
|
|
HP CC emits them at the current stack pointer modifying the
|
|
|
|
|
stack pointer as it stores each register. */
|
|
|
|
|
|
|
|
|
|
/* ldo X(%r3),%r1 or ldo X(%r30),%r1. */
|
|
|
|
|
if ((inst & 0xffffc000) == 0x34610000
|
|
|
|
|
|| (inst & 0xffffc000) == 0x37c10000)
|
2004-04-22 Randolph Chung <tausq@debian.org>
* hppa-tdep.h (find_unwind_entry, hppa_get_field, hppa_extract_5_load)
(hppa_extract_5R_store, hppa_extract_5r_store, hppa_extract_17)
(hppa_extract_21, hppa_extract_14, hppa_low_sign_extend)
(hppa_sign_extend): Add prototype.
* hppa-tdep.c (get_field, extract_5_load, extract_5R_store)
(extract_5r_store, extract_17, extract_21, extract_14, low_sign_extend)
(sign_extend): Rename with hppa_ prefix and make non-static. Other
hppa targets will also use these functions.
(find_unwind_entry): Remove prototype (moved to hppa-tdep.h).
(hppa_in_solib_call_trampoline, hppa_in_solib_return_trampoline)
(hppa_skip_trampoline_code): Move to hppa-hpux-tdep.c
(hppa_gdbarch_init): Remove gdbarch setting of
skip_trampoline_code, in_solib_call_trampoline and
in_solib_return_trampoline.
* hppa-hpux-tdep.c (hppa32_hpux_in_solib_call_trampoline)
(hppa64_hpux_in_solib_call_trampoline): New functions, split from
hppa_in_solib_call_trampoline.
(hppa_hpux_in_solib_return_trampoline, hppa_hpux_skip_trampoline_code):
Moved from hppa-tdep.c.
(hppa_hpux_init_abi): Set gdbarch for skip_trampoline_code,
in_solib_call_trampoline and in_solib_return_trampoline.
2004-04-23 04:54:21 +02:00
|
|
|
|
fp_loc = hppa_extract_14 (inst);
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
|
|
|
|
|
reg = inst_saves_fr (inst);
|
|
|
|
|
if (reg >= 12 && reg <= 21)
|
|
|
|
|
{
|
|
|
|
|
/* Note +4 braindamage below is necessary because the FP
|
|
|
|
|
status registers are internally 8 registers rather than
|
|
|
|
|
the expected 4 registers. */
|
|
|
|
|
saved_fr_mask &= ~(1 << reg);
|
|
|
|
|
if (fp_loc == -1)
|
|
|
|
|
{
|
|
|
|
|
/* 1st HP CC FP register store. After this
|
|
|
|
|
instruction we've set enough state that the GCC and
|
|
|
|
|
HPCC code are both handled in the same manner. */
|
2004-05-06 Randolph Chung <tausq@debian.org>
* config/pa/tm-hppa.h (RO_REGNUM, FLAGS_REGNUM, RP_REGNUM)
(HPPA_FP_REGNUM, HPPA_SP_REGNUM, SAR_REGNUM, IPSW_REGNUM)
(PCOQ_HEAD_REGNUM, PCSQ_HEAD_REGNUM, PCOQ_TAIL_REGNUM, PCSQ_TAIL_REGNUM)
(EIEM_REGNUM, IIR_REGNUM, ISR_REGNUM, IOR_REGNUM, SR4_REGNUM)
(RCR_REGNUM, PID0_REGNUM, PID1_REGNUM, PID2_REGNUM, PID3_REGNUM)
(CCR_REGNUM, TR0_REGNUM, CR27_REGNUM, HPPA_FP0_REGNUM, FP4_REGNUM)
(ARG0_REGNUM, ARG1_REGNUM, ARG2_REGNUM, ARG3_REGNUM): Move *_REGNUM
definitions ...
* hppa-tdep.h: ... to here, with HPPA_ prefix.
* Makefile.in (hppah-nat.o): Add $(hppa_tdep_h)
* hppa-hpux-tdep.c (hppa32_hpux_frame_find_saved_regs_in_sig)
(hppa64_hpux_frame_find_saved_regs_in_sig)
(child_get_current_exception_event): Add HPPA_ prefix to *_REGNUM usage.
* hppa-linux-nat.c (GR_REGNUM, TR_REGNUM, greg_map): Likewise.
* hppa-linux-tdep.c (hppa_dwarf_reg_to_regnum)
(hppa_linux_target_write_pc, hppa_linux_sigtramp_frame_unwind_cache)
(hppa_linux_sigtramp_frame_prev_register): Likewise.
* hppa-tdep.c (hppa32_return_value, hppa64_return_value)
(hppa32_push_dummy_call, hppa64_push_dummy_call, hppa64_frame_align)
(hppa_target_read_pc, hppa_target_write_pc, hppa_frame_cache)
(hppa_frame_prev_register, hppa_stub_frame_unwind_cache)
(hppa_stub_frame_prev_register, hppa_unwind_dummy_id)
(hppa_skip_permanent_breakpoint, hppa_instruction_nullified)
(hppa32_register_type, hppa_cannot_store_register)
(hppa_fetch_pointer_argument, hppa_pseudo_register_read): Likewise.
* hppah-nat.c (store_inferior_registers, fetch_register): Likewise.
* hpread.c (hpread_process_one_debug_symbol): Likewise.
* pa64solib.c (pa64_solib_have_load_event)
(pa64_solib_have_unload_event, pa64_solib_loaded_library_pathname)
(pa64_solib_unloaded_library_pathname): Likewise.
* somsolib.c (som_solib_have_load_event, som_solib_have_unload_event)
(som_solib_library_pathname): Likewise.
2004-05-07 07:48:50 +02:00
|
|
|
|
cache->saved_regs[reg + HPPA_FP4_REGNUM + 4].addr = 0;
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
fp_loc = 8;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2004-03-07 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Replace DEPRECATED_FP_REGNUM with HPPA_FP_REGNUM,
FP0_REGNUM with HPPA_FP0_REGNUM, and SP_REGNUM with
HPPA_SP_REGNUM.
(hppa_register_raw_size, hppa_register_byte, hppa_read_fp)
(hppa_target_read_fp): Delete.
(hppa_gdbarch_init): Do not set deprecated register_raw_size,
register_virtual_size, max_register_raw_size,
max_register_virtual_size, register_byte, register_size,
target_read_fp, fp_regnum, and register_bytes. Set register_type
instead of register_virtual_type.
(hppa32_register_type, hppa64_register_type): Replace
hppa32_register_virtual_type and hppa64_register_virtual_type.
* config/pa/tm-hppa.h (HPPA_FP0_REGNUM, HPPA_SP_REGNUM)
(HPPA_FP_REGNUM): Define.
2004-03-07 20:58:27 +01:00
|
|
|
|
cache->saved_regs[reg + HPPA_FP0_REGNUM + 4].addr = fp_loc;
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
fp_loc += 8;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Quit if we hit any kind of branch the previous iteration. */
|
|
|
|
|
if (final_iteration)
|
|
|
|
|
break;
|
|
|
|
|
/* We want to look precisely one instruction beyond the branch
|
|
|
|
|
if we have not found everything yet. */
|
|
|
|
|
if (is_branch (inst))
|
|
|
|
|
final_iteration = 1;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
{
|
|
|
|
|
/* The frame base always represents the value of %sp at entry to
|
|
|
|
|
the current function (and is thus equivalent to the "saved"
|
|
|
|
|
stack pointer. */
|
2008-05-08 06:21:45 +02:00
|
|
|
|
CORE_ADDR this_sp = get_frame_register_unsigned (this_frame,
|
|
|
|
|
HPPA_SP_REGNUM);
|
2004-05-19 04:38:28 +02:00
|
|
|
|
CORE_ADDR fp;
|
2004-04-24 08:10:01 +02:00
|
|
|
|
|
|
|
|
|
if (hppa_debug)
|
|
|
|
|
fprintf_unfiltered (gdb_stdlog, " (this_sp=0x%s, pc=0x%s, "
|
|
|
|
|
"prologue_end=0x%s) ",
|
|
|
|
|
paddr_nz (this_sp),
|
2008-05-08 06:21:45 +02:00
|
|
|
|
paddr_nz (get_frame_pc (this_frame)),
|
2004-04-24 08:10:01 +02:00
|
|
|
|
paddr_nz (prologue_end));
|
|
|
|
|
|
2004-05-19 04:38:28 +02:00
|
|
|
|
/* Check to see if a frame pointer is available, and use it for
|
|
|
|
|
frame unwinding if it is.
|
|
|
|
|
|
|
|
|
|
There are some situations where we need to rely on the frame
|
|
|
|
|
pointer to do stack unwinding. For example, if a function calls
|
|
|
|
|
alloca (), the stack pointer can get adjusted inside the body of
|
|
|
|
|
the function. In this case, the ABI requires that the compiler
|
|
|
|
|
maintain a frame pointer for the function.
|
|
|
|
|
|
|
|
|
|
The unwind record has a flag (alloca_frame) that indicates that
|
|
|
|
|
a function has a variable frame; unfortunately, gcc/binutils
|
|
|
|
|
does not set this flag. Instead, whenever a frame pointer is used
|
|
|
|
|
and saved on the stack, the Save_SP flag is set. We use this to
|
|
|
|
|
decide whether to use the frame pointer for unwinding.
|
|
|
|
|
|
|
|
|
|
TODO: For the HP compiler, maybe we should use the alloca_frame flag
|
|
|
|
|
instead of Save_SP. */
|
|
|
|
|
|
2008-05-08 06:21:45 +02:00
|
|
|
|
fp = get_frame_register_unsigned (this_frame, HPPA_FP_REGNUM);
|
2006-03-01 06:22:38 +01:00
|
|
|
|
|
2006-03-01 06:43:03 +01:00
|
|
|
|
if (u->alloca_frame)
|
2006-03-01 06:22:38 +01:00
|
|
|
|
fp -= u->Total_frame_size << 3;
|
2004-05-19 04:38:28 +02:00
|
|
|
|
|
2008-05-08 06:21:45 +02:00
|
|
|
|
if (get_frame_pc (this_frame) >= prologue_end
|
2006-03-01 06:43:03 +01:00
|
|
|
|
&& (u->Save_SP || u->alloca_frame) && fp != 0)
|
2004-05-19 04:38:28 +02:00
|
|
|
|
{
|
|
|
|
|
cache->base = fp;
|
|
|
|
|
|
|
|
|
|
if (hppa_debug)
|
2005-11-19 13:38:56 +01:00
|
|
|
|
fprintf_unfiltered (gdb_stdlog, " (base=0x%s) [frame pointer]",
|
2004-05-19 04:38:28 +02:00
|
|
|
|
paddr_nz (cache->base));
|
|
|
|
|
}
|
2004-06-07 17:28:47 +02:00
|
|
|
|
else if (u->Save_SP
|
|
|
|
|
&& trad_frame_addr_p (cache->saved_regs, HPPA_SP_REGNUM))
|
2004-04-24 08:10:01 +02:00
|
|
|
|
{
|
|
|
|
|
/* Both we're expecting the SP to be saved and the SP has been
|
|
|
|
|
saved. The entry SP value is saved at this frame's SP
|
|
|
|
|
address. */
|
2007-06-13 19:30:01 +02:00
|
|
|
|
cache->base = read_memory_integer
|
2007-10-30 22:56:12 +01:00
|
|
|
|
(this_sp, gdbarch_ptr_bit (gdbarch) / 8);
|
2004-04-24 08:10:01 +02:00
|
|
|
|
|
|
|
|
|
if (hppa_debug)
|
2005-11-19 13:38:56 +01:00
|
|
|
|
fprintf_unfiltered (gdb_stdlog, " (base=0x%s) [saved]",
|
2004-04-24 08:10:01 +02:00
|
|
|
|
paddr_nz (cache->base));
|
|
|
|
|
}
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
else
|
2004-04-24 08:10:01 +02:00
|
|
|
|
{
|
2004-06-07 17:28:47 +02:00
|
|
|
|
/* The prologue has been slowly allocating stack space. Adjust
|
|
|
|
|
the SP back. */
|
|
|
|
|
cache->base = this_sp - frame_size;
|
2004-04-24 08:10:01 +02:00
|
|
|
|
if (hppa_debug)
|
2005-11-19 13:38:56 +01:00
|
|
|
|
fprintf_unfiltered (gdb_stdlog, " (base=0x%s) [unwind adjust]",
|
2004-04-24 08:10:01 +02:00
|
|
|
|
paddr_nz (cache->base));
|
|
|
|
|
|
|
|
|
|
}
|
2004-03-07 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Replace DEPRECATED_FP_REGNUM with HPPA_FP_REGNUM,
FP0_REGNUM with HPPA_FP0_REGNUM, and SP_REGNUM with
HPPA_SP_REGNUM.
(hppa_register_raw_size, hppa_register_byte, hppa_read_fp)
(hppa_target_read_fp): Delete.
(hppa_gdbarch_init): Do not set deprecated register_raw_size,
register_virtual_size, max_register_raw_size,
max_register_virtual_size, register_byte, register_size,
target_read_fp, fp_regnum, and register_bytes. Set register_type
instead of register_virtual_type.
(hppa32_register_type, hppa64_register_type): Replace
hppa32_register_virtual_type and hppa64_register_virtual_type.
* config/pa/tm-hppa.h (HPPA_FP0_REGNUM, HPPA_SP_REGNUM)
(HPPA_FP_REGNUM): Define.
2004-03-07 20:58:27 +01:00
|
|
|
|
trad_frame_set_value (cache->saved_regs, HPPA_SP_REGNUM, cache->base);
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
}
|
|
|
|
|
|
2004-02-27 22:47:53 +01:00
|
|
|
|
/* The PC is found in the "return register", "Millicode" uses "r31"
|
|
|
|
|
as the return register while normal code uses "rp". */
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
if (u->Millicode)
|
2004-04-24 08:10:01 +02:00
|
|
|
|
{
|
2004-05-19 05:07:58 +02:00
|
|
|
|
if (trad_frame_addr_p (cache->saved_regs, 31))
|
2005-11-19 13:38:56 +01:00
|
|
|
|
{
|
|
|
|
|
cache->saved_regs[HPPA_PCOQ_HEAD_REGNUM] = cache->saved_regs[31];
|
|
|
|
|
if (hppa_debug)
|
|
|
|
|
fprintf_unfiltered (gdb_stdlog, " (pc=r31) [stack] } ");
|
|
|
|
|
}
|
2004-04-24 08:10:01 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
2008-05-08 06:21:45 +02:00
|
|
|
|
ULONGEST r31 = get_frame_register_unsigned (this_frame, 31);
|
2004-05-06 Randolph Chung <tausq@debian.org>
* config/pa/tm-hppa.h (RO_REGNUM, FLAGS_REGNUM, RP_REGNUM)
(HPPA_FP_REGNUM, HPPA_SP_REGNUM, SAR_REGNUM, IPSW_REGNUM)
(PCOQ_HEAD_REGNUM, PCSQ_HEAD_REGNUM, PCOQ_TAIL_REGNUM, PCSQ_TAIL_REGNUM)
(EIEM_REGNUM, IIR_REGNUM, ISR_REGNUM, IOR_REGNUM, SR4_REGNUM)
(RCR_REGNUM, PID0_REGNUM, PID1_REGNUM, PID2_REGNUM, PID3_REGNUM)
(CCR_REGNUM, TR0_REGNUM, CR27_REGNUM, HPPA_FP0_REGNUM, FP4_REGNUM)
(ARG0_REGNUM, ARG1_REGNUM, ARG2_REGNUM, ARG3_REGNUM): Move *_REGNUM
definitions ...
* hppa-tdep.h: ... to here, with HPPA_ prefix.
* Makefile.in (hppah-nat.o): Add $(hppa_tdep_h)
* hppa-hpux-tdep.c (hppa32_hpux_frame_find_saved_regs_in_sig)
(hppa64_hpux_frame_find_saved_regs_in_sig)
(child_get_current_exception_event): Add HPPA_ prefix to *_REGNUM usage.
* hppa-linux-nat.c (GR_REGNUM, TR_REGNUM, greg_map): Likewise.
* hppa-linux-tdep.c (hppa_dwarf_reg_to_regnum)
(hppa_linux_target_write_pc, hppa_linux_sigtramp_frame_unwind_cache)
(hppa_linux_sigtramp_frame_prev_register): Likewise.
* hppa-tdep.c (hppa32_return_value, hppa64_return_value)
(hppa32_push_dummy_call, hppa64_push_dummy_call, hppa64_frame_align)
(hppa_target_read_pc, hppa_target_write_pc, hppa_frame_cache)
(hppa_frame_prev_register, hppa_stub_frame_unwind_cache)
(hppa_stub_frame_prev_register, hppa_unwind_dummy_id)
(hppa_skip_permanent_breakpoint, hppa_instruction_nullified)
(hppa32_register_type, hppa_cannot_store_register)
(hppa_fetch_pointer_argument, hppa_pseudo_register_read): Likewise.
* hppah-nat.c (store_inferior_registers, fetch_register): Likewise.
* hpread.c (hpread_process_one_debug_symbol): Likewise.
* pa64solib.c (pa64_solib_have_load_event)
(pa64_solib_have_unload_event, pa64_solib_loaded_library_pathname)
(pa64_solib_unloaded_library_pathname): Likewise.
* somsolib.c (som_solib_have_load_event, som_solib_have_unload_event)
(som_solib_library_pathname): Likewise.
2004-05-07 07:48:50 +02:00
|
|
|
|
trad_frame_set_value (cache->saved_regs, HPPA_PCOQ_HEAD_REGNUM, r31);
|
2005-11-19 13:38:56 +01:00
|
|
|
|
if (hppa_debug)
|
|
|
|
|
fprintf_unfiltered (gdb_stdlog, " (pc=r31) [frame] } ");
|
2004-04-24 08:10:01 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
else
|
2004-04-24 08:10:01 +02:00
|
|
|
|
{
|
2004-05-06 Randolph Chung <tausq@debian.org>
* config/pa/tm-hppa.h (RO_REGNUM, FLAGS_REGNUM, RP_REGNUM)
(HPPA_FP_REGNUM, HPPA_SP_REGNUM, SAR_REGNUM, IPSW_REGNUM)
(PCOQ_HEAD_REGNUM, PCSQ_HEAD_REGNUM, PCOQ_TAIL_REGNUM, PCSQ_TAIL_REGNUM)
(EIEM_REGNUM, IIR_REGNUM, ISR_REGNUM, IOR_REGNUM, SR4_REGNUM)
(RCR_REGNUM, PID0_REGNUM, PID1_REGNUM, PID2_REGNUM, PID3_REGNUM)
(CCR_REGNUM, TR0_REGNUM, CR27_REGNUM, HPPA_FP0_REGNUM, FP4_REGNUM)
(ARG0_REGNUM, ARG1_REGNUM, ARG2_REGNUM, ARG3_REGNUM): Move *_REGNUM
definitions ...
* hppa-tdep.h: ... to here, with HPPA_ prefix.
* Makefile.in (hppah-nat.o): Add $(hppa_tdep_h)
* hppa-hpux-tdep.c (hppa32_hpux_frame_find_saved_regs_in_sig)
(hppa64_hpux_frame_find_saved_regs_in_sig)
(child_get_current_exception_event): Add HPPA_ prefix to *_REGNUM usage.
* hppa-linux-nat.c (GR_REGNUM, TR_REGNUM, greg_map): Likewise.
* hppa-linux-tdep.c (hppa_dwarf_reg_to_regnum)
(hppa_linux_target_write_pc, hppa_linux_sigtramp_frame_unwind_cache)
(hppa_linux_sigtramp_frame_prev_register): Likewise.
* hppa-tdep.c (hppa32_return_value, hppa64_return_value)
(hppa32_push_dummy_call, hppa64_push_dummy_call, hppa64_frame_align)
(hppa_target_read_pc, hppa_target_write_pc, hppa_frame_cache)
(hppa_frame_prev_register, hppa_stub_frame_unwind_cache)
(hppa_stub_frame_prev_register, hppa_unwind_dummy_id)
(hppa_skip_permanent_breakpoint, hppa_instruction_nullified)
(hppa32_register_type, hppa_cannot_store_register)
(hppa_fetch_pointer_argument, hppa_pseudo_register_read): Likewise.
* hppah-nat.c (store_inferior_registers, fetch_register): Likewise.
* hpread.c (hpread_process_one_debug_symbol): Likewise.
* pa64solib.c (pa64_solib_have_load_event)
(pa64_solib_have_unload_event, pa64_solib_loaded_library_pathname)
(pa64_solib_unloaded_library_pathname): Likewise.
* somsolib.c (som_solib_have_load_event, som_solib_have_unload_event)
(som_solib_library_pathname): Likewise.
2004-05-07 07:48:50 +02:00
|
|
|
|
if (trad_frame_addr_p (cache->saved_regs, HPPA_RP_REGNUM))
|
2005-11-19 13:38:56 +01:00
|
|
|
|
{
|
|
|
|
|
cache->saved_regs[HPPA_PCOQ_HEAD_REGNUM] =
|
|
|
|
|
cache->saved_regs[HPPA_RP_REGNUM];
|
|
|
|
|
if (hppa_debug)
|
|
|
|
|
fprintf_unfiltered (gdb_stdlog, " (pc=rp) [stack] } ");
|
|
|
|
|
}
|
2004-04-24 08:10:01 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
2008-05-08 06:21:45 +02:00
|
|
|
|
ULONGEST rp = get_frame_register_unsigned (this_frame,
|
|
|
|
|
HPPA_RP_REGNUM);
|
2004-05-06 Randolph Chung <tausq@debian.org>
* config/pa/tm-hppa.h (RO_REGNUM, FLAGS_REGNUM, RP_REGNUM)
(HPPA_FP_REGNUM, HPPA_SP_REGNUM, SAR_REGNUM, IPSW_REGNUM)
(PCOQ_HEAD_REGNUM, PCSQ_HEAD_REGNUM, PCOQ_TAIL_REGNUM, PCSQ_TAIL_REGNUM)
(EIEM_REGNUM, IIR_REGNUM, ISR_REGNUM, IOR_REGNUM, SR4_REGNUM)
(RCR_REGNUM, PID0_REGNUM, PID1_REGNUM, PID2_REGNUM, PID3_REGNUM)
(CCR_REGNUM, TR0_REGNUM, CR27_REGNUM, HPPA_FP0_REGNUM, FP4_REGNUM)
(ARG0_REGNUM, ARG1_REGNUM, ARG2_REGNUM, ARG3_REGNUM): Move *_REGNUM
definitions ...
* hppa-tdep.h: ... to here, with HPPA_ prefix.
* Makefile.in (hppah-nat.o): Add $(hppa_tdep_h)
* hppa-hpux-tdep.c (hppa32_hpux_frame_find_saved_regs_in_sig)
(hppa64_hpux_frame_find_saved_regs_in_sig)
(child_get_current_exception_event): Add HPPA_ prefix to *_REGNUM usage.
* hppa-linux-nat.c (GR_REGNUM, TR_REGNUM, greg_map): Likewise.
* hppa-linux-tdep.c (hppa_dwarf_reg_to_regnum)
(hppa_linux_target_write_pc, hppa_linux_sigtramp_frame_unwind_cache)
(hppa_linux_sigtramp_frame_prev_register): Likewise.
* hppa-tdep.c (hppa32_return_value, hppa64_return_value)
(hppa32_push_dummy_call, hppa64_push_dummy_call, hppa64_frame_align)
(hppa_target_read_pc, hppa_target_write_pc, hppa_frame_cache)
(hppa_frame_prev_register, hppa_stub_frame_unwind_cache)
(hppa_stub_frame_prev_register, hppa_unwind_dummy_id)
(hppa_skip_permanent_breakpoint, hppa_instruction_nullified)
(hppa32_register_type, hppa_cannot_store_register)
(hppa_fetch_pointer_argument, hppa_pseudo_register_read): Likewise.
* hppah-nat.c (store_inferior_registers, fetch_register): Likewise.
* hpread.c (hpread_process_one_debug_symbol): Likewise.
* pa64solib.c (pa64_solib_have_load_event)
(pa64_solib_have_unload_event, pa64_solib_loaded_library_pathname)
(pa64_solib_unloaded_library_pathname): Likewise.
* somsolib.c (som_solib_have_load_event, som_solib_have_unload_event)
(som_solib_library_pathname): Likewise.
2004-05-07 07:48:50 +02:00
|
|
|
|
trad_frame_set_value (cache->saved_regs, HPPA_PCOQ_HEAD_REGNUM, rp);
|
2005-11-19 13:38:56 +01:00
|
|
|
|
if (hppa_debug)
|
|
|
|
|
fprintf_unfiltered (gdb_stdlog, " (pc=rp) [frame] } ");
|
2004-04-24 08:10:01 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
|
2004-11-12 01:48:12 +01:00
|
|
|
|
/* If Save_SP is set, then we expect the frame pointer to be saved in the
|
|
|
|
|
frame. However, there is a one-insn window where we haven't saved it
|
|
|
|
|
yet, but we've already clobbered it. Detect this case and fix it up.
|
|
|
|
|
|
|
|
|
|
The prologue sequence for frame-pointer functions is:
|
|
|
|
|
0: stw %rp, -20(%sp)
|
|
|
|
|
4: copy %r3, %r1
|
|
|
|
|
8: copy %sp, %r3
|
|
|
|
|
c: stw,ma %r1, XX(%sp)
|
|
|
|
|
|
|
|
|
|
So if we are at offset c, the r3 value that we want is not yet saved
|
|
|
|
|
on the stack, but it's been overwritten. The prologue analyzer will
|
|
|
|
|
set fp_in_r1 when it sees the copy insn so we know to get the value
|
|
|
|
|
from r1 instead. */
|
|
|
|
|
if (u->Save_SP && !trad_frame_addr_p (cache->saved_regs, HPPA_FP_REGNUM)
|
|
|
|
|
&& fp_in_r1)
|
|
|
|
|
{
|
2008-05-08 06:21:45 +02:00
|
|
|
|
ULONGEST r1 = get_frame_register_unsigned (this_frame, 1);
|
2004-11-12 01:48:12 +01:00
|
|
|
|
trad_frame_set_value (cache->saved_regs, HPPA_FP_REGNUM, r1);
|
|
|
|
|
}
|
2004-06-07 17:28:47 +02:00
|
|
|
|
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
{
|
|
|
|
|
/* Convert all the offsets into addresses. */
|
|
|
|
|
int reg;
|
2007-10-30 22:56:12 +01:00
|
|
|
|
for (reg = 0; reg < gdbarch_num_regs (gdbarch); reg++)
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
{
|
|
|
|
|
if (trad_frame_addr_p (cache->saved_regs, reg))
|
|
|
|
|
cache->saved_regs[reg].addr += cache->base;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2004-12-08 02:48:03 +01:00
|
|
|
|
{
|
|
|
|
|
struct gdbarch_tdep *tdep;
|
|
|
|
|
|
|
|
|
|
tdep = gdbarch_tdep (gdbarch);
|
|
|
|
|
|
|
|
|
|
if (tdep->unwind_adjust_stub)
|
2008-05-08 06:21:45 +02:00
|
|
|
|
tdep->unwind_adjust_stub (this_frame, cache->base, cache->saved_regs);
|
2004-12-08 02:48:03 +01:00
|
|
|
|
}
|
|
|
|
|
|
2004-04-23 04:51:52 +02:00
|
|
|
|
if (hppa_debug)
|
|
|
|
|
fprintf_unfiltered (gdb_stdlog, "base=0x%s }",
|
|
|
|
|
paddr_nz (((struct hppa_frame_cache *)*this_cache)->base));
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
return (*this_cache);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2008-05-08 06:21:45 +02:00
|
|
|
|
hppa_frame_this_id (struct frame_info *this_frame, void **this_cache,
|
|
|
|
|
struct frame_id *this_id)
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
{
|
2004-11-04 00:20:43 +01:00
|
|
|
|
struct hppa_frame_cache *info;
|
2008-05-08 06:21:45 +02:00
|
|
|
|
CORE_ADDR pc = get_frame_pc (this_frame);
|
2004-11-04 00:20:43 +01:00
|
|
|
|
struct unwind_table_entry *u;
|
|
|
|
|
|
2008-05-08 06:21:45 +02:00
|
|
|
|
info = hppa_frame_cache (this_frame, this_cache);
|
|
|
|
|
u = hppa_find_unwind_entry_in_block (this_frame);
|
2004-11-04 00:20:43 +01:00
|
|
|
|
|
|
|
|
|
(*this_id) = frame_id_build (info->base, u->region_start);
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
}
|
|
|
|
|
|
2008-05-08 06:21:45 +02:00
|
|
|
|
static struct value *
|
|
|
|
|
hppa_frame_prev_register (struct frame_info *this_frame,
|
|
|
|
|
void **this_cache, int regnum)
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
{
|
2008-05-08 06:21:45 +02:00
|
|
|
|
struct hppa_frame_cache *info = hppa_frame_cache (this_frame, this_cache);
|
|
|
|
|
|
|
|
|
|
return hppa_frame_prev_register_helper (this_frame, info->saved_regs, regnum);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
hppa_frame_unwind_sniffer (const struct frame_unwind *self,
|
|
|
|
|
struct frame_info *this_frame, void **this_cache)
|
|
|
|
|
{
|
|
|
|
|
if (hppa_find_unwind_entry_in_block (this_frame))
|
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
|
|
return 0;
|
2004-05-08 05:17:57 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static const struct frame_unwind hppa_frame_unwind =
|
|
|
|
|
{
|
|
|
|
|
NORMAL_FRAME,
|
|
|
|
|
hppa_frame_this_id,
|
2008-05-08 06:21:45 +02:00
|
|
|
|
hppa_frame_prev_register,
|
|
|
|
|
NULL,
|
|
|
|
|
hppa_frame_unwind_sniffer
|
2004-05-08 05:17:57 +02:00
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* This is a generic fallback frame unwinder that kicks in if we fail all
|
|
|
|
|
the other ones. Normally we would expect the stub and regular unwinder
|
|
|
|
|
to work, but in some cases we might hit a function that just doesn't
|
|
|
|
|
have any unwind information available. In this case we try to do
|
|
|
|
|
unwinding solely based on code reading. This is obviously going to be
|
|
|
|
|
slow, so only use this as a last resort. Currently this will only
|
|
|
|
|
identify the stack and pc for the frame. */
|
|
|
|
|
|
|
|
|
|
static struct hppa_frame_cache *
|
2008-05-08 06:21:45 +02:00
|
|
|
|
hppa_fallback_frame_cache (struct frame_info *this_frame, void **this_cache)
|
2004-05-08 05:17:57 +02:00
|
|
|
|
{
|
|
|
|
|
struct hppa_frame_cache *cache;
|
2005-06-19 00:03:41 +02:00
|
|
|
|
unsigned int frame_size = 0;
|
|
|
|
|
int found_rp = 0;
|
|
|
|
|
CORE_ADDR start_pc;
|
2004-05-08 05:17:57 +02:00
|
|
|
|
|
2004-11-04 00:20:43 +01:00
|
|
|
|
if (hppa_debug)
|
2005-06-19 00:03:41 +02:00
|
|
|
|
fprintf_unfiltered (gdb_stdlog,
|
|
|
|
|
"{ hppa_fallback_frame_cache (frame=%d) -> ",
|
2008-05-08 06:21:45 +02:00
|
|
|
|
frame_relative_level (this_frame));
|
2004-11-04 00:20:43 +01:00
|
|
|
|
|
2004-05-08 05:17:57 +02:00
|
|
|
|
cache = FRAME_OBSTACK_ZALLOC (struct hppa_frame_cache);
|
|
|
|
|
(*this_cache) = cache;
|
2008-05-08 06:21:45 +02:00
|
|
|
|
cache->saved_regs = trad_frame_alloc_saved_regs (this_frame);
|
2004-05-08 05:17:57 +02:00
|
|
|
|
|
2008-05-08 06:21:45 +02:00
|
|
|
|
start_pc = get_frame_func (this_frame);
|
2005-06-19 00:03:41 +02:00
|
|
|
|
if (start_pc)
|
2004-05-08 05:17:57 +02:00
|
|
|
|
{
|
2008-05-08 06:21:45 +02:00
|
|
|
|
CORE_ADDR cur_pc = get_frame_pc (this_frame);
|
2005-06-19 00:03:41 +02:00
|
|
|
|
CORE_ADDR pc;
|
2004-05-08 05:17:57 +02:00
|
|
|
|
|
2005-06-19 00:03:41 +02:00
|
|
|
|
for (pc = start_pc; pc < cur_pc; pc += 4)
|
|
|
|
|
{
|
|
|
|
|
unsigned int insn;
|
2004-05-08 05:17:57 +02:00
|
|
|
|
|
2005-06-19 00:03:41 +02:00
|
|
|
|
insn = read_memory_unsigned_integer (pc, 4);
|
|
|
|
|
frame_size += prologue_inst_adjust_sp (insn);
|
2004-05-26 06:02:24 +02:00
|
|
|
|
|
2005-06-19 00:03:41 +02:00
|
|
|
|
/* There are limited ways to store the return pointer into the
|
|
|
|
|
stack. */
|
|
|
|
|
if (insn == 0x6bc23fd9) /* stw rp,-0x14(sr0,sp) */
|
|
|
|
|
{
|
|
|
|
|
cache->saved_regs[HPPA_RP_REGNUM].addr = -20;
|
|
|
|
|
found_rp = 1;
|
|
|
|
|
}
|
2005-11-19 13:39:50 +01:00
|
|
|
|
else if (insn == 0x0fc212c1
|
|
|
|
|
|| insn == 0x73c23fe1) /* std rp,-0x10(sr0,sp) */
|
2005-06-19 00:03:41 +02:00
|
|
|
|
{
|
|
|
|
|
cache->saved_regs[HPPA_RP_REGNUM].addr = -16;
|
|
|
|
|
found_rp = 1;
|
|
|
|
|
}
|
|
|
|
|
}
|
2004-02-27 22:47:53 +01:00
|
|
|
|
}
|
2004-05-08 05:17:57 +02:00
|
|
|
|
|
2004-11-04 00:20:43 +01:00
|
|
|
|
if (hppa_debug)
|
2005-06-19 00:03:41 +02:00
|
|
|
|
fprintf_unfiltered (gdb_stdlog, " frame_size=%d, found_rp=%d }\n",
|
|
|
|
|
frame_size, found_rp);
|
2004-11-04 00:20:43 +01:00
|
|
|
|
|
2008-05-08 06:21:45 +02:00
|
|
|
|
cache->base = get_frame_register_unsigned (this_frame, HPPA_SP_REGNUM);
|
2005-06-19 00:03:41 +02:00
|
|
|
|
cache->base -= frame_size;
|
2004-05-26 06:02:24 +02:00
|
|
|
|
trad_frame_set_value (cache->saved_regs, HPPA_SP_REGNUM, cache->base);
|
2004-05-08 05:17:57 +02:00
|
|
|
|
|
|
|
|
|
if (trad_frame_addr_p (cache->saved_regs, HPPA_RP_REGNUM))
|
|
|
|
|
{
|
|
|
|
|
cache->saved_regs[HPPA_RP_REGNUM].addr += cache->base;
|
2005-06-19 00:03:41 +02:00
|
|
|
|
cache->saved_regs[HPPA_PCOQ_HEAD_REGNUM] =
|
|
|
|
|
cache->saved_regs[HPPA_RP_REGNUM];
|
2004-05-08 05:17:57 +02:00
|
|
|
|
}
|
2004-02-27 22:47:53 +01:00
|
|
|
|
else
|
|
|
|
|
{
|
2005-06-19 00:03:41 +02:00
|
|
|
|
ULONGEST rp;
|
2008-05-08 06:21:45 +02:00
|
|
|
|
rp = get_frame_register_unsigned (this_frame, HPPA_RP_REGNUM);
|
2004-05-08 05:17:57 +02:00
|
|
|
|
trad_frame_set_value (cache->saved_regs, HPPA_PCOQ_HEAD_REGNUM, rp);
|
2004-02-27 22:47:53 +01:00
|
|
|
|
}
|
2004-05-08 05:17:57 +02:00
|
|
|
|
|
|
|
|
|
return cache;
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
}
|
|
|
|
|
|
2004-05-08 05:17:57 +02:00
|
|
|
|
static void
|
2008-05-08 06:21:45 +02:00
|
|
|
|
hppa_fallback_frame_this_id (struct frame_info *this_frame, void **this_cache,
|
2004-05-08 05:17:57 +02:00
|
|
|
|
struct frame_id *this_id)
|
|
|
|
|
{
|
|
|
|
|
struct hppa_frame_cache *info =
|
2008-05-08 06:21:45 +02:00
|
|
|
|
hppa_fallback_frame_cache (this_frame, this_cache);
|
|
|
|
|
|
|
|
|
|
(*this_id) = frame_id_build (info->base, get_frame_func (this_frame));
|
2004-05-08 05:17:57 +02:00
|
|
|
|
}
|
|
|
|
|
|
2008-05-08 06:21:45 +02:00
|
|
|
|
static struct value *
|
|
|
|
|
hppa_fallback_frame_prev_register (struct frame_info *this_frame,
|
|
|
|
|
void **this_cache, int regnum)
|
2004-05-08 05:17:57 +02:00
|
|
|
|
{
|
|
|
|
|
struct hppa_frame_cache *info =
|
2008-05-08 06:21:45 +02:00
|
|
|
|
hppa_fallback_frame_cache (this_frame, this_cache);
|
|
|
|
|
|
|
|
|
|
return hppa_frame_prev_register_helper (this_frame, info->saved_regs, regnum);
|
2004-05-08 05:17:57 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static const struct frame_unwind hppa_fallback_frame_unwind =
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
{
|
|
|
|
|
NORMAL_FRAME,
|
2004-05-08 05:17:57 +02:00
|
|
|
|
hppa_fallback_frame_this_id,
|
2008-05-08 06:21:45 +02:00
|
|
|
|
hppa_fallback_frame_prev_register,
|
|
|
|
|
NULL,
|
|
|
|
|
default_frame_sniffer
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
};
|
|
|
|
|
|
2004-04-24 08:13:32 +02:00
|
|
|
|
/* Stub frames, used for all kinds of call stubs. */
|
|
|
|
|
struct hppa_stub_unwind_cache
|
|
|
|
|
{
|
|
|
|
|
CORE_ADDR base;
|
|
|
|
|
struct trad_frame_saved_reg *saved_regs;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static struct hppa_stub_unwind_cache *
|
2008-05-08 06:21:45 +02:00
|
|
|
|
hppa_stub_frame_unwind_cache (struct frame_info *this_frame,
|
2004-04-24 08:13:32 +02:00
|
|
|
|
void **this_cache)
|
|
|
|
|
{
|
2008-05-08 06:21:45 +02:00
|
|
|
|
struct gdbarch *gdbarch = get_frame_arch (this_frame);
|
2004-04-24 08:13:32 +02:00
|
|
|
|
struct hppa_stub_unwind_cache *info;
|
2004-05-17 18:46:06 +02:00
|
|
|
|
struct unwind_table_entry *u;
|
2004-04-24 08:13:32 +02:00
|
|
|
|
|
|
|
|
|
if (*this_cache)
|
|
|
|
|
return *this_cache;
|
|
|
|
|
|
|
|
|
|
info = FRAME_OBSTACK_ZALLOC (struct hppa_stub_unwind_cache);
|
|
|
|
|
*this_cache = info;
|
2008-05-08 06:21:45 +02:00
|
|
|
|
info->saved_regs = trad_frame_alloc_saved_regs (this_frame);
|
2004-04-24 08:13:32 +02:00
|
|
|
|
|
2008-05-08 06:21:45 +02:00
|
|
|
|
info->base = get_frame_register_unsigned (this_frame, HPPA_SP_REGNUM);
|
2004-04-24 08:13:32 +02:00
|
|
|
|
|
2004-05-19 04:15:22 +02:00
|
|
|
|
if (gdbarch_osabi (gdbarch) == GDB_OSABI_HPUX_SOM)
|
2004-05-17 18:46:06 +02:00
|
|
|
|
{
|
|
|
|
|
/* HPUX uses export stubs in function calls; the export stub clobbers
|
|
|
|
|
the return value of the caller, and, later restores it from the
|
|
|
|
|
stack. */
|
2008-05-08 06:21:45 +02:00
|
|
|
|
u = find_unwind_entry (get_frame_pc (this_frame));
|
2004-05-17 18:46:06 +02:00
|
|
|
|
|
|
|
|
|
if (u && u->stub_unwind.stub_type == EXPORT)
|
|
|
|
|
{
|
|
|
|
|
info->saved_regs[HPPA_PCOQ_HEAD_REGNUM].addr = info->base - 24;
|
|
|
|
|
|
|
|
|
|
return info;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* By default we assume that stubs do not change the rp. */
|
|
|
|
|
info->saved_regs[HPPA_PCOQ_HEAD_REGNUM].realreg = HPPA_RP_REGNUM;
|
|
|
|
|
|
2004-04-24 08:13:32 +02:00
|
|
|
|
return info;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2008-05-08 06:21:45 +02:00
|
|
|
|
hppa_stub_frame_this_id (struct frame_info *this_frame,
|
2004-04-24 08:13:32 +02:00
|
|
|
|
void **this_prologue_cache,
|
|
|
|
|
struct frame_id *this_id)
|
|
|
|
|
{
|
|
|
|
|
struct hppa_stub_unwind_cache *info
|
2008-05-08 06:21:45 +02:00
|
|
|
|
= hppa_stub_frame_unwind_cache (this_frame, this_prologue_cache);
|
2004-12-08 02:44:02 +01:00
|
|
|
|
|
|
|
|
|
if (info)
|
2008-05-08 06:21:45 +02:00
|
|
|
|
*this_id = frame_id_build (info->base, get_frame_func (this_frame));
|
2004-12-08 02:44:02 +01:00
|
|
|
|
else
|
|
|
|
|
*this_id = null_frame_id;
|
2004-04-24 08:13:32 +02:00
|
|
|
|
}
|
|
|
|
|
|
2008-05-08 06:21:45 +02:00
|
|
|
|
static struct value *
|
|
|
|
|
hppa_stub_frame_prev_register (struct frame_info *this_frame,
|
|
|
|
|
void **this_prologue_cache, int regnum)
|
2004-04-24 08:13:32 +02:00
|
|
|
|
{
|
|
|
|
|
struct hppa_stub_unwind_cache *info
|
2008-05-08 06:21:45 +02:00
|
|
|
|
= hppa_stub_frame_unwind_cache (this_frame, this_prologue_cache);
|
2004-12-08 02:44:02 +01:00
|
|
|
|
|
2008-05-08 06:21:45 +02:00
|
|
|
|
if (info == NULL)
|
2005-02-10 Andrew Cagney <cagney@gnu.org>
Mark up all error and warning messages.
* ada-lang.c, amd64-tdep.c, arch-utils.c, breakpoint.c: Update.
* bsd-kvm.c, bsd-uthread.c, coff-solib.h, coffread.c: Update.
* core-aout.c, core-regset.c, corefile.c, corelow.c: Update.
* cp-abi.c, cp-support.c, cp-valprint.c, cris-tdep.c: Update.
* dbxread.c, demangle.c, doublest.c, dsrec.c: Update.
* dve3900-rom.c, dwarf2expr.c, dwarf2loc.c: Update.
* dwarf2read.c, dwarfread.c, elfread.c, eval.c: Update.
* event-top.c, exec.c, expprint.c, f-lang.c: Update.
* f-typeprint.c, f-valprint.c, fbsd-nat.c, findvar.c: Update.
* frame.c, frv-linux-tdep.c, gcore.c, gdbtypes.c: Update.
* gnu-nat.c, gnu-v2-abi.c, gnu-v3-abi.c, go32-nat.c: Update.
* hpacc-abi.c, hppa-hpux-nat.c, hppa-hpux-tdep.c: Update.
* hppa-linux-nat.c, hppa-linux-tdep.c, hppa-tdep.c: Update.
* hpread.c, hpux-thread.c, i386-linux-nat.c: Update.
* i386-linux-tdep.c, i386-tdep.c, i386bsd-nat.c: Update.
* i386gnu-nat.c, i387-tdep.c, ia64-linux-nat.c: Update.
* ia64-tdep.c, inf-child.c, inf-ptrace.c, inf-ttrace.c: Update.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Update.
* inftarg.c, interps.c, irix5-nat.c, jv-lang.c: Update.
* kod-cisco.c, kod.c, language.c, libunwind-frame.c: Update.
* linespec.c, linux-nat.c, linux-thread-db.c, m2-lang.c: Update.
* m32r-rom.c, m68hc11-tdep.c, m68k-tdep.c: Update.
* m68klinux-nat.c, macrocmd.c, macroexp.c, main.c: Update.
* maint.c, mdebugread.c, mem-break.c, memattr.c: Update.
* mips-linux-tdep.c, mips-tdep.c, mipsread.c, monitor.c: Update.
* nlmread.c, nto-procfs.c, objc-lang.c, objfiles.c: Update.
* observer.c, ocd.c, p-lang.c, p-typeprint.c: Update.
* p-valprint.c, pa64solib.c, parse.c, ppc-linux-tdep.c: Update.
* ppcnbsd-tdep.c, printcmd.c, procfs.c, remote-e7000.c: Update.
* remote-fileio.c, remote-m32r-sdi.c, remote-rdi.c: Update.
* remote-rdp.c, remote-sim.c, remote-st.c: Update.
* remote-utils.c, remote-utils.h, remote.c: Update.
* rom68k-rom.c, rs6000-nat.c, s390-tdep.c, scm-lang.c: Update.
* ser-e7kpc.c, ser-tcp.c, ser-unix.c, sh-tdep.c: Update.
* sh3-rom.c, shnbsd-tdep.c, sol-thread.c, solib-aix5.c: Update.
* solib-frv.c, solib-irix.c, solib-osf.c, solib-pa64.c: Update.
* solib-som.c, solib-sunos.c, solib-svr4.c, solib.c: Update.
* somread.c, somsolib.c, source.c, stabsread.c: Update.
* stack.c, std-regs.c, symfile-mem.c, symfile.c: Update.
* symmisc.c, symtab.c, target.c, thread.c, top.c: Update.
* tracepoint.c, trad-frame.c, typeprint.c, utils.c: Update.
* uw-thread.c, valarith.c, valops.c, valprint.c: Update.
* value.c, varobj.c, version.in, win32-nat.c, wince.c: Update.
* xcoffread.c, xcoffsolib.c, cli/cli-cmds.c: Update.
* cli/cli-decode.c, cli/cli-dump.c, cli/cli-logging.c: Update.
* cli/cli-script.c, cli/cli-setshow.c, mi/mi-cmd-break.c: Update.
* mi/mi-cmd-disas.c, mi/mi-cmd-env.c, mi/mi-cmd-file.c: Update.
* mi/mi-cmd-stack.c, mi/mi-cmd-var.c, mi/mi-getopt.c: Update.
* mi/mi-symbol-cmds.c, tui/tui-layout.c, tui/tui-stack.c: Update.
* tui/tui-win.c: Update.
2005-02-11 05:06:14 +01:00
|
|
|
|
error (_("Requesting registers from null frame."));
|
2004-04-24 08:13:32 +02:00
|
|
|
|
|
2008-05-08 06:21:45 +02:00
|
|
|
|
return hppa_frame_prev_register_helper (this_frame, info->saved_regs, regnum);
|
|
|
|
|
}
|
2004-04-24 08:13:32 +02:00
|
|
|
|
|
2008-05-08 06:21:45 +02:00
|
|
|
|
static int
|
|
|
|
|
hppa_stub_unwind_sniffer (const struct frame_unwind *self,
|
|
|
|
|
struct frame_info *this_frame,
|
|
|
|
|
void **this_cache)
|
2004-04-24 08:13:32 +02:00
|
|
|
|
{
|
2008-05-08 06:21:45 +02:00
|
|
|
|
CORE_ADDR pc = get_frame_address_in_block (this_frame);
|
|
|
|
|
struct gdbarch *gdbarch = get_frame_arch (this_frame);
|
2004-10-31 22:09:28 +01:00
|
|
|
|
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
|
2004-04-24 08:13:32 +02:00
|
|
|
|
|
2004-05-26 06:02:24 +02:00
|
|
|
|
if (pc == 0
|
2004-10-31 22:09:28 +01:00
|
|
|
|
|| (tdep->in_solib_call_trampoline != NULL
|
|
|
|
|
&& tdep->in_solib_call_trampoline (pc, NULL))
|
2007-10-08 14:50:56 +02:00
|
|
|
|
|| gdbarch_in_solib_return_trampoline (gdbarch, pc, NULL))
|
2008-05-08 06:21:45 +02:00
|
|
|
|
return 1;
|
|
|
|
|
return 0;
|
2004-04-24 08:13:32 +02:00
|
|
|
|
}
|
|
|
|
|
|
2008-05-08 06:21:45 +02:00
|
|
|
|
static const struct frame_unwind hppa_stub_frame_unwind = {
|
|
|
|
|
NORMAL_FRAME,
|
|
|
|
|
hppa_stub_frame_this_id,
|
|
|
|
|
hppa_stub_frame_prev_register,
|
|
|
|
|
NULL,
|
|
|
|
|
hppa_stub_unwind_sniffer
|
|
|
|
|
};
|
|
|
|
|
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
static struct frame_id
|
2008-05-08 06:21:45 +02:00
|
|
|
|
hppa_dummy_id (struct gdbarch *gdbarch, struct frame_info *this_frame)
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
{
|
2008-05-08 06:21:45 +02:00
|
|
|
|
return frame_id_build (get_frame_register_unsigned (this_frame,
|
|
|
|
|
HPPA_SP_REGNUM),
|
|
|
|
|
get_frame_pc (this_frame));
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
}
|
|
|
|
|
|
2004-12-07 19:04:11 +01:00
|
|
|
|
CORE_ADDR
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
hppa_unwind_pc (struct gdbarch *gdbarch, struct frame_info *next_frame)
|
|
|
|
|
{
|
2004-12-04 00:59:53 +01:00
|
|
|
|
ULONGEST ipsw;
|
|
|
|
|
CORE_ADDR pc;
|
|
|
|
|
|
2004-12-07 19:04:11 +01:00
|
|
|
|
ipsw = frame_unwind_register_unsigned (next_frame, HPPA_IPSW_REGNUM);
|
|
|
|
|
pc = frame_unwind_register_unsigned (next_frame, HPPA_PCOQ_HEAD_REGNUM);
|
2004-12-04 00:59:53 +01:00
|
|
|
|
|
|
|
|
|
/* If the current instruction is nullified, then we are effectively
|
|
|
|
|
still executing the previous instruction. Pretend we are still
|
2004-12-07 19:04:11 +01:00
|
|
|
|
there. This is needed when single stepping; if the nullified
|
|
|
|
|
instruction is on a different line, we don't want GDB to think
|
|
|
|
|
we've stepped onto that line. */
|
2004-12-04 00:59:53 +01:00
|
|
|
|
if (ipsw & 0x00200000)
|
|
|
|
|
pc -= 4;
|
|
|
|
|
|
2004-12-07 19:04:11 +01:00
|
|
|
|
return pc & ~0x3;
|
Index: ChangeLog
2004-02-22 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Include "trad-frame.h", "frame-unwind.h", and
"frame-base.h".
(struct hppa_frame_cache): Define.
(hppa_frame_cache, hppa_frame_this_id): New functions.
(hppa_frame_prev_register): New function.
(hppa_frame_unwind, hppa_frame_base): New variables.
(hppa_frame_unwind_sniffer): New function.
(hppa_frame_base_address, hppa_unwind_pc): New function.
(hppa_gdbarch_init): Set unwind_dummy_id, unwind_pc, frame unwind
sniffer, and frame base sniffer; keep disabled.
(hppa_frame_base_sniffer, hppa_unwind_dummy_id): New functions.
* Makefile.in: Update dependencies, fix s/nbsd/obsd/ typo.
2004-02-22 18:34:17 +01:00
|
|
|
|
}
|
|
|
|
|
|
2004-12-17 08:42:48 +01:00
|
|
|
|
/* Return the minimal symbol whose name is NAME and stub type is STUB_TYPE.
|
|
|
|
|
Return NULL if no such symbol was found. */
|
|
|
|
|
|
|
|
|
|
struct minimal_symbol *
|
|
|
|
|
hppa_lookup_stub_minimal_symbol (const char *name,
|
|
|
|
|
enum unwind_stub_types stub_type)
|
|
|
|
|
{
|
|
|
|
|
struct objfile *objfile;
|
|
|
|
|
struct minimal_symbol *msym;
|
|
|
|
|
|
|
|
|
|
ALL_MSYMBOLS (objfile, msym)
|
|
|
|
|
{
|
|
|
|
|
if (strcmp (SYMBOL_LINKAGE_NAME (msym), name) == 0)
|
|
|
|
|
{
|
|
|
|
|
struct unwind_table_entry *u;
|
|
|
|
|
|
|
|
|
|
u = find_unwind_entry (SYMBOL_VALUE (msym));
|
|
|
|
|
if (u != NULL && u->stub_unwind.stub_type == stub_type)
|
|
|
|
|
return msym;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return NULL;
|
|
|
|
|
}
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
unwind_command (char *exp, int from_tty)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
CORE_ADDR address;
|
|
|
|
|
struct unwind_table_entry *u;
|
|
|
|
|
|
|
|
|
|
/* If we have an expression, evaluate it and use it as the address. */
|
|
|
|
|
|
|
|
|
|
if (exp != 0 && *exp != 0)
|
|
|
|
|
address = parse_and_eval_address (exp);
|
|
|
|
|
else
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
u = find_unwind_entry (address);
|
|
|
|
|
|
|
|
|
|
if (!u)
|
|
|
|
|
{
|
|
|
|
|
printf_unfiltered ("Can't find unwind table entry for %s\n", exp);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
2005-06-19 23:25:47 +02:00
|
|
|
|
printf_unfiltered ("unwind_table_entry (0x%lx):\n", (unsigned long)u);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
printf_unfiltered ("\tregion_start = ");
|
|
|
|
|
print_address (u->region_start, gdb_stdout);
|
2004-11-04 00:20:43 +01:00
|
|
|
|
gdb_flush (gdb_stdout);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
printf_unfiltered ("\n\tregion_end = ");
|
|
|
|
|
print_address (u->region_end, gdb_stdout);
|
2004-11-04 00:20:43 +01:00
|
|
|
|
gdb_flush (gdb_stdout);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
#define pif(FLD) if (u->FLD) printf_unfiltered (" "#FLD);
|
|
|
|
|
|
|
|
|
|
printf_unfiltered ("\n\tflags =");
|
|
|
|
|
pif (Cannot_unwind);
|
|
|
|
|
pif (Millicode);
|
|
|
|
|
pif (Millicode_save_sr0);
|
|
|
|
|
pif (Entry_SR);
|
|
|
|
|
pif (Args_stored);
|
|
|
|
|
pif (Variable_Frame);
|
|
|
|
|
pif (Separate_Package_Body);
|
|
|
|
|
pif (Frame_Extension_Millicode);
|
|
|
|
|
pif (Stack_Overflow_Check);
|
|
|
|
|
pif (Two_Instruction_SP_Increment);
|
2006-03-01 06:43:03 +01:00
|
|
|
|
pif (sr4export);
|
|
|
|
|
pif (cxx_info);
|
|
|
|
|
pif (cxx_try_catch);
|
|
|
|
|
pif (sched_entry_seq);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
pif (Save_SP);
|
|
|
|
|
pif (Save_RP);
|
|
|
|
|
pif (Save_MRP_in_frame);
|
2006-03-01 06:43:03 +01:00
|
|
|
|
pif (save_r19);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
pif (Cleanup_defined);
|
|
|
|
|
pif (MPE_XL_interrupt_marker);
|
|
|
|
|
pif (HP_UX_interrupt_marker);
|
|
|
|
|
pif (Large_frame);
|
2006-03-01 06:43:03 +01:00
|
|
|
|
pif (alloca_frame);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
putchar_unfiltered ('\n');
|
|
|
|
|
|
|
|
|
|
#define pin(FLD) printf_unfiltered ("\t"#FLD" = 0x%x\n", u->FLD);
|
|
|
|
|
|
|
|
|
|
pin (Region_description);
|
|
|
|
|
pin (Entry_FR);
|
|
|
|
|
pin (Entry_GR);
|
|
|
|
|
pin (Total_frame_size);
|
2004-12-06 04:32:26 +01:00
|
|
|
|
|
|
|
|
|
if (u->stub_unwind.stub_type)
|
|
|
|
|
{
|
|
|
|
|
printf_unfiltered ("\tstub type = ");
|
|
|
|
|
switch (u->stub_unwind.stub_type)
|
|
|
|
|
{
|
|
|
|
|
case LONG_BRANCH:
|
|
|
|
|
printf_unfiltered ("long branch\n");
|
|
|
|
|
break;
|
|
|
|
|
case PARAMETER_RELOCATION:
|
|
|
|
|
printf_unfiltered ("parameter relocation\n");
|
|
|
|
|
break;
|
|
|
|
|
case EXPORT:
|
|
|
|
|
printf_unfiltered ("export\n");
|
|
|
|
|
break;
|
|
|
|
|
case IMPORT:
|
|
|
|
|
printf_unfiltered ("import\n");
|
|
|
|
|
break;
|
|
|
|
|
case IMPORT_SHLIB:
|
|
|
|
|
printf_unfiltered ("import shlib\n");
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
printf_unfiltered ("unknown (%d)\n", u->stub_unwind.stub_type);
|
|
|
|
|
}
|
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
2004-12-19 22:09:40 +01:00
|
|
|
|
/* Return the GDB type object for the "standard" data type of data in
|
|
|
|
|
register REGNUM. */
|
2002-11-08 04:35:47 +01:00
|
|
|
|
|
2004-03-07 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Replace DEPRECATED_FP_REGNUM with HPPA_FP_REGNUM,
FP0_REGNUM with HPPA_FP0_REGNUM, and SP_REGNUM with
HPPA_SP_REGNUM.
(hppa_register_raw_size, hppa_register_byte, hppa_read_fp)
(hppa_target_read_fp): Delete.
(hppa_gdbarch_init): Do not set deprecated register_raw_size,
register_virtual_size, max_register_raw_size,
max_register_virtual_size, register_byte, register_size,
target_read_fp, fp_regnum, and register_bytes. Set register_type
instead of register_virtual_type.
(hppa32_register_type, hppa64_register_type): Replace
hppa32_register_virtual_type and hppa64_register_virtual_type.
* config/pa/tm-hppa.h (HPPA_FP0_REGNUM, HPPA_SP_REGNUM)
(HPPA_FP_REGNUM): Define.
2004-03-07 20:58:27 +01:00
|
|
|
|
static struct type *
|
2004-12-19 22:09:40 +01:00
|
|
|
|
hppa32_register_type (struct gdbarch *gdbarch, int regnum)
|
2002-11-08 04:35:47 +01:00
|
|
|
|
{
|
2004-12-19 22:09:40 +01:00
|
|
|
|
if (regnum < HPPA_FP4_REGNUM)
|
2004-03-07 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Replace DEPRECATED_FP_REGNUM with HPPA_FP_REGNUM,
FP0_REGNUM with HPPA_FP0_REGNUM, and SP_REGNUM with
HPPA_SP_REGNUM.
(hppa_register_raw_size, hppa_register_byte, hppa_read_fp)
(hppa_target_read_fp): Delete.
(hppa_gdbarch_init): Do not set deprecated register_raw_size,
register_virtual_size, max_register_raw_size,
max_register_virtual_size, register_byte, register_size,
target_read_fp, fp_regnum, and register_bytes. Set register_type
instead of register_virtual_type.
(hppa32_register_type, hppa64_register_type): Replace
hppa32_register_virtual_type and hppa64_register_virtual_type.
* config/pa/tm-hppa.h (HPPA_FP0_REGNUM, HPPA_SP_REGNUM)
(HPPA_FP_REGNUM): Define.
2004-03-07 20:58:27 +01:00
|
|
|
|
return builtin_type_uint32;
|
2002-11-08 04:35:47 +01:00
|
|
|
|
else
|
* 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
|
|
|
|
return builtin_type_ieee_single;
|
2002-11-08 04:35:47 +01:00
|
|
|
|
}
|
|
|
|
|
|
2004-03-07 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Replace DEPRECATED_FP_REGNUM with HPPA_FP_REGNUM,
FP0_REGNUM with HPPA_FP0_REGNUM, and SP_REGNUM with
HPPA_SP_REGNUM.
(hppa_register_raw_size, hppa_register_byte, hppa_read_fp)
(hppa_target_read_fp): Delete.
(hppa_gdbarch_init): Do not set deprecated register_raw_size,
register_virtual_size, max_register_raw_size,
max_register_virtual_size, register_byte, register_size,
target_read_fp, fp_regnum, and register_bytes. Set register_type
instead of register_virtual_type.
(hppa32_register_type, hppa64_register_type): Replace
hppa32_register_virtual_type and hppa64_register_virtual_type.
* config/pa/tm-hppa.h (HPPA_FP0_REGNUM, HPPA_SP_REGNUM)
(HPPA_FP_REGNUM): Define.
2004-03-07 20:58:27 +01:00
|
|
|
|
static struct type *
|
2004-12-19 22:09:40 +01:00
|
|
|
|
hppa64_register_type (struct gdbarch *gdbarch, int regnum)
|
2003-08-16 01:02:05 +02:00
|
|
|
|
{
|
2004-12-19 22:09:40 +01:00
|
|
|
|
if (regnum < HPPA64_FP4_REGNUM)
|
2004-03-07 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Replace DEPRECATED_FP_REGNUM with HPPA_FP_REGNUM,
FP0_REGNUM with HPPA_FP0_REGNUM, and SP_REGNUM with
HPPA_SP_REGNUM.
(hppa_register_raw_size, hppa_register_byte, hppa_read_fp)
(hppa_target_read_fp): Delete.
(hppa_gdbarch_init): Do not set deprecated register_raw_size,
register_virtual_size, max_register_raw_size,
max_register_virtual_size, register_byte, register_size,
target_read_fp, fp_regnum, and register_bytes. Set register_type
instead of register_virtual_type.
(hppa32_register_type, hppa64_register_type): Replace
hppa32_register_virtual_type and hppa64_register_virtual_type.
* config/pa/tm-hppa.h (HPPA_FP0_REGNUM, HPPA_SP_REGNUM)
(HPPA_FP_REGNUM): Define.
2004-03-07 20:58:27 +01:00
|
|
|
|
return builtin_type_uint64;
|
2003-08-16 01:02:05 +02:00
|
|
|
|
else
|
* 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
|
|
|
|
return builtin_type_ieee_double;
|
2003-08-16 01:02:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
2004-12-19 22:09:40 +01:00
|
|
|
|
/* Return non-zero if REGNUM is not a register available to the user
|
|
|
|
|
through ptrace/ttrace. */
|
2002-11-08 04:35:47 +01:00
|
|
|
|
|
2004-04-17 17:34:16 +02:00
|
|
|
|
static int
|
2007-11-16 05:56:45 +01:00
|
|
|
|
hppa32_cannot_store_register (struct gdbarch *gdbarch, int regnum)
|
2002-11-08 04:35:47 +01:00
|
|
|
|
{
|
|
|
|
|
return (regnum == 0
|
2004-05-06 Randolph Chung <tausq@debian.org>
* config/pa/tm-hppa.h (RO_REGNUM, FLAGS_REGNUM, RP_REGNUM)
(HPPA_FP_REGNUM, HPPA_SP_REGNUM, SAR_REGNUM, IPSW_REGNUM)
(PCOQ_HEAD_REGNUM, PCSQ_HEAD_REGNUM, PCOQ_TAIL_REGNUM, PCSQ_TAIL_REGNUM)
(EIEM_REGNUM, IIR_REGNUM, ISR_REGNUM, IOR_REGNUM, SR4_REGNUM)
(RCR_REGNUM, PID0_REGNUM, PID1_REGNUM, PID2_REGNUM, PID3_REGNUM)
(CCR_REGNUM, TR0_REGNUM, CR27_REGNUM, HPPA_FP0_REGNUM, FP4_REGNUM)
(ARG0_REGNUM, ARG1_REGNUM, ARG2_REGNUM, ARG3_REGNUM): Move *_REGNUM
definitions ...
* hppa-tdep.h: ... to here, with HPPA_ prefix.
* Makefile.in (hppah-nat.o): Add $(hppa_tdep_h)
* hppa-hpux-tdep.c (hppa32_hpux_frame_find_saved_regs_in_sig)
(hppa64_hpux_frame_find_saved_regs_in_sig)
(child_get_current_exception_event): Add HPPA_ prefix to *_REGNUM usage.
* hppa-linux-nat.c (GR_REGNUM, TR_REGNUM, greg_map): Likewise.
* hppa-linux-tdep.c (hppa_dwarf_reg_to_regnum)
(hppa_linux_target_write_pc, hppa_linux_sigtramp_frame_unwind_cache)
(hppa_linux_sigtramp_frame_prev_register): Likewise.
* hppa-tdep.c (hppa32_return_value, hppa64_return_value)
(hppa32_push_dummy_call, hppa64_push_dummy_call, hppa64_frame_align)
(hppa_target_read_pc, hppa_target_write_pc, hppa_frame_cache)
(hppa_frame_prev_register, hppa_stub_frame_unwind_cache)
(hppa_stub_frame_prev_register, hppa_unwind_dummy_id)
(hppa_skip_permanent_breakpoint, hppa_instruction_nullified)
(hppa32_register_type, hppa_cannot_store_register)
(hppa_fetch_pointer_argument, hppa_pseudo_register_read): Likewise.
* hppah-nat.c (store_inferior_registers, fetch_register): Likewise.
* hpread.c (hpread_process_one_debug_symbol): Likewise.
* pa64solib.c (pa64_solib_have_load_event)
(pa64_solib_have_unload_event, pa64_solib_loaded_library_pathname)
(pa64_solib_unloaded_library_pathname): Likewise.
* somsolib.c (som_solib_have_load_event, som_solib_have_unload_event)
(som_solib_library_pathname): Likewise.
2004-05-07 07:48:50 +02:00
|
|
|
|
|| regnum == HPPA_PCSQ_HEAD_REGNUM
|
|
|
|
|
|| (regnum >= HPPA_PCSQ_TAIL_REGNUM && regnum < HPPA_IPSW_REGNUM)
|
|
|
|
|
|| (regnum > HPPA_IPSW_REGNUM && regnum < HPPA_FP4_REGNUM));
|
2004-12-19 22:09:40 +01:00
|
|
|
|
}
|
2002-11-08 04:35:47 +01:00
|
|
|
|
|
2007-08-29 06:11:06 +02:00
|
|
|
|
static int
|
2007-11-16 05:56:45 +01:00
|
|
|
|
hppa32_cannot_fetch_register (struct gdbarch *gdbarch, int regnum)
|
2007-08-29 06:11:06 +02:00
|
|
|
|
{
|
|
|
|
|
/* cr26 and cr27 are readable (but not writable) from userspace. */
|
|
|
|
|
if (regnum == HPPA_CR26_REGNUM || regnum == HPPA_CR27_REGNUM)
|
|
|
|
|
return 0;
|
|
|
|
|
else
|
2007-11-16 05:56:45 +01:00
|
|
|
|
return hppa32_cannot_store_register (gdbarch, regnum);
|
2007-08-29 06:11:06 +02:00
|
|
|
|
}
|
|
|
|
|
|
2004-12-19 22:09:40 +01:00
|
|
|
|
static int
|
2007-11-16 05:56:45 +01:00
|
|
|
|
hppa64_cannot_store_register (struct gdbarch *gdbarch, int regnum)
|
2004-12-19 22:09:40 +01:00
|
|
|
|
{
|
|
|
|
|
return (regnum == 0
|
|
|
|
|
|| regnum == HPPA_PCSQ_HEAD_REGNUM
|
|
|
|
|
|| (regnum >= HPPA_PCSQ_TAIL_REGNUM && regnum < HPPA_IPSW_REGNUM)
|
|
|
|
|
|| (regnum > HPPA_IPSW_REGNUM && regnum < HPPA64_FP4_REGNUM));
|
2002-11-08 04:35:47 +01:00
|
|
|
|
}
|
|
|
|
|
|
2007-08-29 06:11:06 +02:00
|
|
|
|
static int
|
2007-11-16 05:56:45 +01:00
|
|
|
|
hppa64_cannot_fetch_register (struct gdbarch *gdbarch, int regnum)
|
2007-08-29 06:11:06 +02:00
|
|
|
|
{
|
|
|
|
|
/* cr26 and cr27 are readable (but not writable) from userspace. */
|
|
|
|
|
if (regnum == HPPA_CR26_REGNUM || regnum == HPPA_CR27_REGNUM)
|
|
|
|
|
return 0;
|
|
|
|
|
else
|
2007-11-16 05:56:45 +01:00
|
|
|
|
return hppa64_cannot_store_register (gdbarch, regnum);
|
2007-08-29 06:11:06 +02:00
|
|
|
|
}
|
|
|
|
|
|
2004-04-17 17:34:16 +02:00
|
|
|
|
static CORE_ADDR
|
2002-11-08 04:35:47 +01:00
|
|
|
|
hppa_smash_text_address (CORE_ADDR addr)
|
|
|
|
|
{
|
|
|
|
|
/* The low two bits of the PC on the PA contain the privilege level.
|
|
|
|
|
Some genius implementing a (non-GCC) compiler apparently decided
|
|
|
|
|
this means that "addresses" in a text section therefore include a
|
|
|
|
|
privilege level, and thus symbol tables should contain these bits.
|
|
|
|
|
This seems like a bonehead thing to do--anyway, it seems to work
|
|
|
|
|
for our purposes to just ignore those bits. */
|
|
|
|
|
|
|
|
|
|
return (addr &= ~0x3);
|
|
|
|
|
}
|
|
|
|
|
|
2005-06-12 21:54:25 +02:00
|
|
|
|
/* Get the ARGIth function argument for the current function. */
|
|
|
|
|
|
2004-11-10 17:26:55 +01:00
|
|
|
|
static CORE_ADDR
|
2003-06-02 04:54:35 +02:00
|
|
|
|
hppa_fetch_pointer_argument (struct frame_info *frame, int argi,
|
|
|
|
|
struct type *type)
|
|
|
|
|
{
|
2005-06-12 21:54:25 +02:00
|
|
|
|
return get_frame_register_unsigned (frame, HPPA_R0_REGNUM + 26 - argi);
|
2003-06-02 04:54:35 +02:00
|
|
|
|
}
|
|
|
|
|
|
2004-04-17 19:31:40 +02:00
|
|
|
|
static void
|
|
|
|
|
hppa_pseudo_register_read (struct gdbarch *gdbarch, struct regcache *regcache,
|
2005-06-12 21:54:25 +02:00
|
|
|
|
int regnum, gdb_byte *buf)
|
2004-04-17 19:31:40 +02:00
|
|
|
|
{
|
|
|
|
|
ULONGEST tmp;
|
|
|
|
|
|
|
|
|
|
regcache_raw_read_unsigned (regcache, regnum, &tmp);
|
2004-05-06 Randolph Chung <tausq@debian.org>
* config/pa/tm-hppa.h (RO_REGNUM, FLAGS_REGNUM, RP_REGNUM)
(HPPA_FP_REGNUM, HPPA_SP_REGNUM, SAR_REGNUM, IPSW_REGNUM)
(PCOQ_HEAD_REGNUM, PCSQ_HEAD_REGNUM, PCOQ_TAIL_REGNUM, PCSQ_TAIL_REGNUM)
(EIEM_REGNUM, IIR_REGNUM, ISR_REGNUM, IOR_REGNUM, SR4_REGNUM)
(RCR_REGNUM, PID0_REGNUM, PID1_REGNUM, PID2_REGNUM, PID3_REGNUM)
(CCR_REGNUM, TR0_REGNUM, CR27_REGNUM, HPPA_FP0_REGNUM, FP4_REGNUM)
(ARG0_REGNUM, ARG1_REGNUM, ARG2_REGNUM, ARG3_REGNUM): Move *_REGNUM
definitions ...
* hppa-tdep.h: ... to here, with HPPA_ prefix.
* Makefile.in (hppah-nat.o): Add $(hppa_tdep_h)
* hppa-hpux-tdep.c (hppa32_hpux_frame_find_saved_regs_in_sig)
(hppa64_hpux_frame_find_saved_regs_in_sig)
(child_get_current_exception_event): Add HPPA_ prefix to *_REGNUM usage.
* hppa-linux-nat.c (GR_REGNUM, TR_REGNUM, greg_map): Likewise.
* hppa-linux-tdep.c (hppa_dwarf_reg_to_regnum)
(hppa_linux_target_write_pc, hppa_linux_sigtramp_frame_unwind_cache)
(hppa_linux_sigtramp_frame_prev_register): Likewise.
* hppa-tdep.c (hppa32_return_value, hppa64_return_value)
(hppa32_push_dummy_call, hppa64_push_dummy_call, hppa64_frame_align)
(hppa_target_read_pc, hppa_target_write_pc, hppa_frame_cache)
(hppa_frame_prev_register, hppa_stub_frame_unwind_cache)
(hppa_stub_frame_prev_register, hppa_unwind_dummy_id)
(hppa_skip_permanent_breakpoint, hppa_instruction_nullified)
(hppa32_register_type, hppa_cannot_store_register)
(hppa_fetch_pointer_argument, hppa_pseudo_register_read): Likewise.
* hppah-nat.c (store_inferior_registers, fetch_register): Likewise.
* hpread.c (hpread_process_one_debug_symbol): Likewise.
* pa64solib.c (pa64_solib_have_load_event)
(pa64_solib_have_unload_event, pa64_solib_loaded_library_pathname)
(pa64_solib_unloaded_library_pathname): Likewise.
* somsolib.c (som_solib_have_load_event, som_solib_have_unload_event)
(som_solib_library_pathname): Likewise.
2004-05-07 07:48:50 +02:00
|
|
|
|
if (regnum == HPPA_PCOQ_HEAD_REGNUM || regnum == HPPA_PCOQ_TAIL_REGNUM)
|
2004-04-17 19:31:40 +02:00
|
|
|
|
tmp &= ~0x3;
|
2005-06-12 21:54:25 +02:00
|
|
|
|
store_unsigned_integer (buf, sizeof tmp, tmp);
|
2004-04-17 19:31:40 +02:00
|
|
|
|
}
|
|
|
|
|
|
2004-06-07 04:08:07 +02:00
|
|
|
|
static CORE_ADDR
|
2008-02-18 17:11:21 +01:00
|
|
|
|
hppa_find_global_pointer (struct gdbarch *gdbarch, struct value *function)
|
2004-06-07 04:08:07 +02:00
|
|
|
|
{
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
2008-05-08 06:21:45 +02:00
|
|
|
|
struct value *
|
|
|
|
|
hppa_frame_prev_register_helper (struct frame_info *this_frame,
|
2004-05-08 05:17:57 +02:00
|
|
|
|
struct trad_frame_saved_reg saved_regs[],
|
2008-05-08 06:21:45 +02:00
|
|
|
|
int regnum)
|
2004-05-08 05:17:57 +02:00
|
|
|
|
{
|
2008-05-08 06:21:45 +02:00
|
|
|
|
struct gdbarch *arch = get_frame_arch (this_frame);
|
2004-12-21 23:50:54 +01:00
|
|
|
|
|
2004-05-30 16:11:00 +02:00
|
|
|
|
if (regnum == HPPA_PCOQ_TAIL_REGNUM)
|
|
|
|
|
{
|
2008-05-08 06:21:45 +02:00
|
|
|
|
int size = register_size (arch, HPPA_PCOQ_HEAD_REGNUM);
|
|
|
|
|
CORE_ADDR pc;
|
|
|
|
|
struct value *pcoq_val =
|
|
|
|
|
trad_frame_get_prev_register (this_frame, saved_regs,
|
|
|
|
|
HPPA_PCOQ_HEAD_REGNUM);
|
2004-05-30 16:11:00 +02:00
|
|
|
|
|
2008-05-08 06:21:45 +02:00
|
|
|
|
pc = extract_unsigned_integer (value_contents_all (pcoq_val), size);
|
|
|
|
|
return frame_unwind_got_constant (this_frame, regnum, pc + 4);
|
2004-05-30 16:11:00 +02:00
|
|
|
|
}
|
2004-05-08 05:17:57 +02:00
|
|
|
|
|
2004-12-07 19:04:11 +01:00
|
|
|
|
/* Make sure the "flags" register is zero in all unwound frames.
|
|
|
|
|
The "flags" registers is a HP-UX specific wart, and only the code
|
|
|
|
|
in hppa-hpux-tdep.c depends on it. However, it is easier to deal
|
|
|
|
|
with it here. This shouldn't affect other systems since those
|
|
|
|
|
should provide zero for the "flags" register anyway. */
|
|
|
|
|
if (regnum == HPPA_FLAGS_REGNUM)
|
2008-05-08 06:21:45 +02:00
|
|
|
|
return frame_unwind_got_constant (this_frame, regnum, 0);
|
2004-12-07 19:04:11 +01:00
|
|
|
|
|
2008-05-08 06:21:45 +02:00
|
|
|
|
return trad_frame_get_prev_register (this_frame, saved_regs, regnum);
|
2004-05-08 05:17:57 +02:00
|
|
|
|
}
|
2004-05-30 16:11:00 +02:00
|
|
|
|
|
2004-05-08 05:17:57 +02:00
|
|
|
|
|
2006-01-21 00:37:07 +01:00
|
|
|
|
/* An instruction to match. */
|
|
|
|
|
struct insn_pattern
|
|
|
|
|
{
|
|
|
|
|
unsigned int data; /* See if it matches this.... */
|
|
|
|
|
unsigned int mask; /* ... with this mask. */
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* See bfd/elf32-hppa.c */
|
|
|
|
|
static struct insn_pattern hppa_long_branch_stub[] = {
|
|
|
|
|
/* ldil LR'xxx,%r1 */
|
|
|
|
|
{ 0x20200000, 0xffe00000 },
|
|
|
|
|
/* be,n RR'xxx(%sr4,%r1) */
|
|
|
|
|
{ 0xe0202002, 0xffe02002 },
|
|
|
|
|
{ 0, 0 }
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static struct insn_pattern hppa_long_branch_pic_stub[] = {
|
|
|
|
|
/* b,l .+8, %r1 */
|
|
|
|
|
{ 0xe8200000, 0xffe00000 },
|
|
|
|
|
/* addil LR'xxx - ($PIC_pcrel$0 - 4), %r1 */
|
|
|
|
|
{ 0x28200000, 0xffe00000 },
|
|
|
|
|
/* be,n RR'xxxx - ($PIC_pcrel$0 - 8)(%sr4, %r1) */
|
|
|
|
|
{ 0xe0202002, 0xffe02002 },
|
|
|
|
|
{ 0, 0 }
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static struct insn_pattern hppa_import_stub[] = {
|
|
|
|
|
/* addil LR'xxx, %dp */
|
|
|
|
|
{ 0x2b600000, 0xffe00000 },
|
|
|
|
|
/* ldw RR'xxx(%r1), %r21 */
|
|
|
|
|
{ 0x48350000, 0xffffb000 },
|
|
|
|
|
/* bv %r0(%r21) */
|
|
|
|
|
{ 0xeaa0c000, 0xffffffff },
|
|
|
|
|
/* ldw RR'xxx+4(%r1), %r19 */
|
|
|
|
|
{ 0x48330000, 0xffffb000 },
|
|
|
|
|
{ 0, 0 }
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static struct insn_pattern hppa_import_pic_stub[] = {
|
|
|
|
|
/* addil LR'xxx,%r19 */
|
|
|
|
|
{ 0x2a600000, 0xffe00000 },
|
|
|
|
|
/* ldw RR'xxx(%r1),%r21 */
|
|
|
|
|
{ 0x48350000, 0xffffb000 },
|
|
|
|
|
/* bv %r0(%r21) */
|
|
|
|
|
{ 0xeaa0c000, 0xffffffff },
|
|
|
|
|
/* ldw RR'xxx+4(%r1),%r19 */
|
|
|
|
|
{ 0x48330000, 0xffffb000 },
|
|
|
|
|
{ 0, 0 },
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static struct insn_pattern hppa_plt_stub[] = {
|
|
|
|
|
/* b,l 1b, %r20 - 1b is 3 insns before here */
|
|
|
|
|
{ 0xea9f1fdd, 0xffffffff },
|
|
|
|
|
/* depi 0,31,2,%r20 */
|
|
|
|
|
{ 0xd6801c1e, 0xffffffff },
|
|
|
|
|
{ 0, 0 }
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static struct insn_pattern hppa_sigtramp[] = {
|
|
|
|
|
/* ldi 0, %r25 or ldi 1, %r25 */
|
|
|
|
|
{ 0x34190000, 0xfffffffd },
|
|
|
|
|
/* ldi __NR_rt_sigreturn, %r20 */
|
|
|
|
|
{ 0x3414015a, 0xffffffff },
|
|
|
|
|
/* be,l 0x100(%sr2, %r0), %sr0, %r31 */
|
|
|
|
|
{ 0xe4008200, 0xffffffff },
|
|
|
|
|
/* nop */
|
|
|
|
|
{ 0x08000240, 0xffffffff },
|
|
|
|
|
{ 0, 0 }
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* Maximum number of instructions on the patterns above. */
|
|
|
|
|
#define HPPA_MAX_INSN_PATTERN_LEN 4
|
|
|
|
|
|
|
|
|
|
/* Return non-zero if the instructions at PC match the series
|
|
|
|
|
described in PATTERN, or zero otherwise. PATTERN is an array of
|
|
|
|
|
'struct insn_pattern' objects, terminated by an entry whose mask is
|
|
|
|
|
zero.
|
|
|
|
|
|
|
|
|
|
When the match is successful, fill INSN[i] with what PATTERN[i]
|
|
|
|
|
matched. */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
hppa_match_insns (CORE_ADDR pc, struct insn_pattern *pattern,
|
|
|
|
|
unsigned int *insn)
|
|
|
|
|
{
|
|
|
|
|
CORE_ADDR npc = pc;
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
for (i = 0; pattern[i].mask; i++)
|
|
|
|
|
{
|
|
|
|
|
gdb_byte buf[HPPA_INSN_SIZE];
|
|
|
|
|
|
* breakpoint.h (breakpoint_restore_shadows): New
declaration.
* breakpoint.c (breakpoint_restore_shadows): New.
(read_memory_nobpt): Delete.
* gdbcore.h (read_memory_nobpt): Delete declaration.
* target.c (memory_xfer_partial): Call
breakpoint_restore_shadows.
(restore_show_memory_breakpoints)
(make_show_memory_beakpoints_cleanup): New.
(show_memory_breakpoints): New.
* target.h (make_show_memory_beakpoints_cleanup): Declare.
* ppc-linux-tdep.c (ppc_linux_memory_remove_breakpoint):
Make sure we see memory breakpoints when checking if
breakpoint is still there.
* alpha-tdep.c, alphanbsd-tdep.c, frame.c, frv-tdep.c,
hppa-linux-tdep.c, hppa-tdep.c, i386-linux-nat.c, i386-tdep.c,
m68klinux-tdep.c, mips-tdep.c, mn10300-tdep.c, s390-tdep.c,
sparc-tdep.c: Use target_read_memory instead of read_memory_nobpt.
2008-03-13 13:22:14 +01:00
|
|
|
|
target_read_memory (npc, buf, HPPA_INSN_SIZE);
|
2006-01-21 00:37:07 +01:00
|
|
|
|
insn[i] = extract_unsigned_integer (buf, HPPA_INSN_SIZE);
|
|
|
|
|
if ((insn[i] & pattern[i].mask) == pattern[i].data)
|
|
|
|
|
npc += 4;
|
|
|
|
|
else
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This relaxed version of the insstruction matcher allows us to match
|
|
|
|
|
from somewhere inside the pattern, by looking backwards in the
|
|
|
|
|
instruction scheme. */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
hppa_match_insns_relaxed (CORE_ADDR pc, struct insn_pattern *pattern,
|
|
|
|
|
unsigned int *insn)
|
|
|
|
|
{
|
|
|
|
|
int offset, len = 0;
|
|
|
|
|
|
|
|
|
|
while (pattern[len].mask)
|
|
|
|
|
len++;
|
|
|
|
|
|
|
|
|
|
for (offset = 0; offset < len; offset++)
|
|
|
|
|
if (hppa_match_insns (pc - offset * HPPA_INSN_SIZE, pattern, insn))
|
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
hppa_in_dyncall (CORE_ADDR pc)
|
|
|
|
|
{
|
|
|
|
|
struct unwind_table_entry *u;
|
|
|
|
|
|
|
|
|
|
u = find_unwind_entry (hppa_symbol_address ("$$dyncall"));
|
|
|
|
|
if (!u)
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
return (pc >= u->region_start && pc <= u->region_end);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
int
|
|
|
|
|
hppa_in_solib_call_trampoline (CORE_ADDR pc, char *name)
|
|
|
|
|
{
|
|
|
|
|
unsigned int insn[HPPA_MAX_INSN_PATTERN_LEN];
|
|
|
|
|
struct unwind_table_entry *u;
|
|
|
|
|
|
|
|
|
|
if (in_plt_section (pc, name) || hppa_in_dyncall (pc))
|
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
|
|
/* The GNU toolchain produces linker stubs without unwind
|
|
|
|
|
information. Since the pattern matching for linker stubs can be
|
|
|
|
|
quite slow, so bail out if we do have an unwind entry. */
|
|
|
|
|
|
|
|
|
|
u = find_unwind_entry (pc);
|
2006-02-19 08:21:26 +01:00
|
|
|
|
if (u != NULL)
|
2006-01-21 00:37:07 +01:00
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
return (hppa_match_insns_relaxed (pc, hppa_import_stub, insn)
|
|
|
|
|
|| hppa_match_insns_relaxed (pc, hppa_import_pic_stub, insn)
|
|
|
|
|
|| hppa_match_insns_relaxed (pc, hppa_long_branch_stub, insn)
|
|
|
|
|
|| hppa_match_insns_relaxed (pc, hppa_long_branch_pic_stub, insn));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This code skips several kind of "trampolines" used on PA-RISC
|
|
|
|
|
systems: $$dyncall, import stubs and PLT stubs. */
|
|
|
|
|
|
|
|
|
|
CORE_ADDR
|
2007-06-16 00:39:52 +02:00
|
|
|
|
hppa_skip_trampoline_code (struct frame_info *frame, CORE_ADDR pc)
|
2006-01-21 00:37:07 +01:00
|
|
|
|
{
|
|
|
|
|
unsigned int insn[HPPA_MAX_INSN_PATTERN_LEN];
|
|
|
|
|
int dp_rel;
|
|
|
|
|
|
|
|
|
|
/* $$dyncall handles both PLABELs and direct addresses. */
|
|
|
|
|
if (hppa_in_dyncall (pc))
|
|
|
|
|
{
|
2007-06-16 00:39:52 +02:00
|
|
|
|
pc = get_frame_register_unsigned (frame, HPPA_R0_REGNUM + 22);
|
2006-01-21 00:37:07 +01:00
|
|
|
|
|
|
|
|
|
/* PLABELs have bit 30 set; if it's a PLABEL, then dereference it. */
|
|
|
|
|
if (pc & 0x2)
|
|
|
|
|
pc = read_memory_typed_address (pc & ~0x3, builtin_type_void_func_ptr);
|
|
|
|
|
|
|
|
|
|
return pc;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
dp_rel = hppa_match_insns (pc, hppa_import_stub, insn);
|
|
|
|
|
if (dp_rel || hppa_match_insns (pc, hppa_import_pic_stub, insn))
|
|
|
|
|
{
|
|
|
|
|
/* Extract the target address from the addil/ldw sequence. */
|
|
|
|
|
pc = hppa_extract_21 (insn[0]) + hppa_extract_14 (insn[1]);
|
|
|
|
|
|
|
|
|
|
if (dp_rel)
|
2007-06-16 00:39:52 +02:00
|
|
|
|
pc += get_frame_register_unsigned (frame, HPPA_DP_REGNUM);
|
2006-01-21 00:37:07 +01:00
|
|
|
|
else
|
2007-06-16 00:39:52 +02:00
|
|
|
|
pc += get_frame_register_unsigned (frame, HPPA_R0_REGNUM + 19);
|
2006-01-21 00:37:07 +01:00
|
|
|
|
|
|
|
|
|
/* fallthrough */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (in_plt_section (pc, NULL))
|
|
|
|
|
{
|
|
|
|
|
pc = read_memory_typed_address (pc, builtin_type_void_func_ptr);
|
|
|
|
|
|
|
|
|
|
/* If the PLT slot has not yet been resolved, the target will be
|
|
|
|
|
the PLT stub. */
|
|
|
|
|
if (in_plt_section (pc, NULL))
|
|
|
|
|
{
|
|
|
|
|
/* Sanity check: are we pointing to the PLT stub? */
|
|
|
|
|
if (!hppa_match_insns (pc, hppa_plt_stub, insn))
|
|
|
|
|
{
|
|
|
|
|
warning (_("Cannot resolve PLT stub at 0x%s."), paddr_nz (pc));
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This should point to the fixup routine. */
|
|
|
|
|
pc = read_memory_typed_address (pc + 8, builtin_type_void_func_ptr);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return pc;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
2003-12-18 23:13:48 +01:00
|
|
|
|
/* Here is a table of C type sizes on hppa with various compiles
|
|
|
|
|
and options. I measured this on PA 9000/800 with HP-UX 11.11
|
|
|
|
|
and these compilers:
|
|
|
|
|
|
|
|
|
|
/usr/ccs/bin/cc HP92453-01 A.11.01.21
|
|
|
|
|
/opt/ansic/bin/cc HP92453-01 B.11.11.28706.GP
|
|
|
|
|
/opt/aCC/bin/aCC B3910B A.03.45
|
|
|
|
|
gcc gcc 3.3.2 native hppa2.0w-hp-hpux11.11
|
|
|
|
|
|
|
|
|
|
cc : 1 2 4 4 8 : 4 8 -- : 4 4
|
|
|
|
|
ansic +DA1.1 : 1 2 4 4 8 : 4 8 16 : 4 4
|
|
|
|
|
ansic +DA2.0 : 1 2 4 4 8 : 4 8 16 : 4 4
|
|
|
|
|
ansic +DA2.0W : 1 2 4 8 8 : 4 8 16 : 8 8
|
|
|
|
|
acc +DA1.1 : 1 2 4 4 8 : 4 8 16 : 4 4
|
|
|
|
|
acc +DA2.0 : 1 2 4 4 8 : 4 8 16 : 4 4
|
|
|
|
|
acc +DA2.0W : 1 2 4 8 8 : 4 8 16 : 8 8
|
|
|
|
|
gcc : 1 2 4 4 8 : 4 8 16 : 4 4
|
|
|
|
|
|
|
|
|
|
Each line is:
|
|
|
|
|
|
|
|
|
|
compiler and options
|
|
|
|
|
char, short, int, long, long long
|
|
|
|
|
float, double, long double
|
|
|
|
|
char *, void (*)()
|
|
|
|
|
|
|
|
|
|
So all these compilers use either ILP32 or LP64 model.
|
|
|
|
|
TODO: gcc has more options so it needs more investigation.
|
|
|
|
|
|
2003-12-19 07:45:03 +01:00
|
|
|
|
For floating point types, see:
|
|
|
|
|
|
|
|
|
|
http://docs.hp.com/hpux/pdf/B3906-90006.pdf
|
|
|
|
|
HP-UX floating-point guide, hpux 11.00
|
|
|
|
|
|
2003-12-18 23:13:48 +01:00
|
|
|
|
-- chastain 2003-12-18 */
|
|
|
|
|
|
2002-11-07 08:47:22 +01:00
|
|
|
|
static struct gdbarch *
|
|
|
|
|
hppa_gdbarch_init (struct gdbarch_info info, struct gdbarch_list *arches)
|
|
|
|
|
{
|
2003-08-16 01:02:05 +02:00
|
|
|
|
struct gdbarch_tdep *tdep;
|
2002-11-07 08:47:22 +01:00
|
|
|
|
struct gdbarch *gdbarch;
|
2002-12-03 00:30:34 +01:00
|
|
|
|
|
|
|
|
|
/* Try to determine the ABI of the object we are loading. */
|
2003-01-05 00:38:46 +01:00
|
|
|
|
if (info.abfd != NULL && info.osabi == GDB_OSABI_UNKNOWN)
|
2002-12-03 00:30:34 +01:00
|
|
|
|
{
|
2003-01-05 00:38:46 +01:00
|
|
|
|
/* If it's a SOM file, assume it's HP/UX SOM. */
|
|
|
|
|
if (bfd_get_flavour (info.abfd) == bfd_target_som_flavour)
|
|
|
|
|
info.osabi = GDB_OSABI_HPUX_SOM;
|
2002-12-03 00:30:34 +01:00
|
|
|
|
}
|
2002-11-07 08:47:22 +01:00
|
|
|
|
|
|
|
|
|
/* find a candidate among the list of pre-declared architectures. */
|
|
|
|
|
arches = gdbarch_list_lookup_by_info (arches, &info);
|
|
|
|
|
if (arches != NULL)
|
|
|
|
|
return (arches->gdbarch);
|
|
|
|
|
|
|
|
|
|
/* If none found, then allocate and initialize one. */
|
2004-04-17 19:41:10 +02:00
|
|
|
|
tdep = XZALLOC (struct gdbarch_tdep);
|
2003-08-16 01:02:05 +02:00
|
|
|
|
gdbarch = gdbarch_alloc (&info, tdep);
|
|
|
|
|
|
|
|
|
|
/* Determine from the bfd_arch_info structure if we are dealing with
|
|
|
|
|
a 32 or 64 bits architecture. If the bfd_arch_info is not available,
|
|
|
|
|
then default to a 32bit machine. */
|
|
|
|
|
if (info.bfd_arch_info != NULL)
|
|
|
|
|
tdep->bytes_per_address =
|
|
|
|
|
info.bfd_arch_info->bits_per_address / info.bfd_arch_info->bits_per_byte;
|
|
|
|
|
else
|
|
|
|
|
tdep->bytes_per_address = 4;
|
|
|
|
|
|
2004-06-07 04:08:07 +02:00
|
|
|
|
tdep->find_global_pointer = hppa_find_global_pointer;
|
|
|
|
|
|
2003-08-16 01:02:05 +02:00
|
|
|
|
/* Some parts of the gdbarch vector depend on whether we are running
|
|
|
|
|
on a 32 bits or 64 bits target. */
|
|
|
|
|
switch (tdep->bytes_per_address)
|
|
|
|
|
{
|
|
|
|
|
case 4:
|
|
|
|
|
set_gdbarch_num_regs (gdbarch, hppa32_num_regs);
|
|
|
|
|
set_gdbarch_register_name (gdbarch, hppa32_register_name);
|
2004-03-07 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Replace DEPRECATED_FP_REGNUM with HPPA_FP_REGNUM,
FP0_REGNUM with HPPA_FP0_REGNUM, and SP_REGNUM with
HPPA_SP_REGNUM.
(hppa_register_raw_size, hppa_register_byte, hppa_read_fp)
(hppa_target_read_fp): Delete.
(hppa_gdbarch_init): Do not set deprecated register_raw_size,
register_virtual_size, max_register_raw_size,
max_register_virtual_size, register_byte, register_size,
target_read_fp, fp_regnum, and register_bytes. Set register_type
instead of register_virtual_type.
(hppa32_register_type, hppa64_register_type): Replace
hppa32_register_virtual_type and hppa64_register_virtual_type.
* config/pa/tm-hppa.h (HPPA_FP0_REGNUM, HPPA_SP_REGNUM)
(HPPA_FP_REGNUM): Define.
2004-03-07 20:58:27 +01:00
|
|
|
|
set_gdbarch_register_type (gdbarch, hppa32_register_type);
|
2004-12-19 22:09:40 +01:00
|
|
|
|
set_gdbarch_cannot_store_register (gdbarch,
|
|
|
|
|
hppa32_cannot_store_register);
|
|
|
|
|
set_gdbarch_cannot_fetch_register (gdbarch,
|
2007-08-29 06:11:06 +02:00
|
|
|
|
hppa32_cannot_fetch_register);
|
2003-08-16 01:02:05 +02:00
|
|
|
|
break;
|
|
|
|
|
case 8:
|
|
|
|
|
set_gdbarch_num_regs (gdbarch, hppa64_num_regs);
|
|
|
|
|
set_gdbarch_register_name (gdbarch, hppa64_register_name);
|
2004-03-07 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Replace DEPRECATED_FP_REGNUM with HPPA_FP_REGNUM,
FP0_REGNUM with HPPA_FP0_REGNUM, and SP_REGNUM with
HPPA_SP_REGNUM.
(hppa_register_raw_size, hppa_register_byte, hppa_read_fp)
(hppa_target_read_fp): Delete.
(hppa_gdbarch_init): Do not set deprecated register_raw_size,
register_virtual_size, max_register_raw_size,
max_register_virtual_size, register_byte, register_size,
target_read_fp, fp_regnum, and register_bytes. Set register_type
instead of register_virtual_type.
(hppa32_register_type, hppa64_register_type): Replace
hppa32_register_virtual_type and hppa64_register_virtual_type.
* config/pa/tm-hppa.h (HPPA_FP0_REGNUM, HPPA_SP_REGNUM)
(HPPA_FP_REGNUM): Define.
2004-03-07 20:58:27 +01:00
|
|
|
|
set_gdbarch_register_type (gdbarch, hppa64_register_type);
|
2005-12-09 12:10:25 +01:00
|
|
|
|
set_gdbarch_dwarf2_reg_to_regnum (gdbarch, hppa64_dwarf_reg_to_regnum);
|
2004-12-19 22:09:40 +01:00
|
|
|
|
set_gdbarch_cannot_store_register (gdbarch,
|
|
|
|
|
hppa64_cannot_store_register);
|
|
|
|
|
set_gdbarch_cannot_fetch_register (gdbarch,
|
2007-08-29 06:11:06 +02:00
|
|
|
|
hppa64_cannot_fetch_register);
|
2003-08-16 01:02:05 +02:00
|
|
|
|
break;
|
|
|
|
|
default:
|
2005-02-11 Andrew Cagney <cagney@gnu.org>
Mark up error_no_arg, query, perror_with_name, complaint, and
internal_error.
* breakpoint.c, cp-abi.c, cp-namespace.c, cp-support.c: Update.
* cris-tdep.c, dbxread.c, dictionary.c, dsrec.c: Update.
* dummy-frame.c, dve3900-rom.c, dwarf2-frame.c, dwarf2expr.c: Update.
* dwarf2read.c, dwarfread.c, elfread.c, event-loop.c: Update.
* exceptions.c, exec.c, f-lang.c, findvar.c, fork-child.c: Update.
* frame-unwind.c, frame.c, frv-linux-tdep.c, frv-tdep.c: Update.
* gdb_assert.h, gdbarch.c, gdbtypes.c, gnu-nat.c: Update.
* go32-nat.c, hppa-tdep.c, hppabsd-nat.c, hpread.c: Update.
* i386-linux-nat.c, i386-nat.c, i386-tdep.c, i386bsd-nat.c: Update.
* i386fbsd-nat.c, inf-ptrace.c, inf-ttrace.c, infcall.c: Update.
* infcmd.c, inflow.c, infptrace.c, infrun.c, inftarg.c: Update.
* interps.c, language.c, linespec.c, linux-nat.c: Update.
* m32r-linux-nat.c, m68k-tdep.c, m68kbsd-nat.c: Update.
* m68klinux-nat.c, m88kbsd-nat.c, macroexp.c, macroscope.c: Update.
* macrotab.c, maint.c, mdebugread.c, memattr.c: Update.
* mips-linux-tdep.c, mips-tdep.c, mips64obsd-nat.c: Update.
* mipsnbsd-nat.c, mn10300-tdep.c, monitor.c, nto-procfs.c: Update.
* objc-lang.c, objfiles.c, objfiles.h, ocd.c, osabi.c: Update.
* parse.c, ppc-bdm.c, ppc-linux-nat.c, ppc-sysv-tdep.c: Update.
* ppcnbsd-nat.c, ppcobsd-nat.c, printcmd.c, procfs.c: Update.
* regcache.c, reggroups.c, remote-e7000.c, remote-mips.c: Update.
* remote-rdp.c, remote-sds.c, remote-sim.c, remote-st.c: Update.
* remote-utils.c, remote.c, rs6000-nat.c, rs6000-tdep.c: Update.
* s390-nat.c, s390-tdep.c, sentinel-frame.c, serial.c: Update.
* sh-tdep.c, sh3-rom.c, sh64-tdep.c, shnbsd-nat.c: Update.
* solib-aix5.c, solib-svr4.c, solib.c, source.c: Update.
* sparc-nat.c, stabsread.c, stack.c, symfile.c, symtab.c: Update.
* symtab.h, target.c, tracepoint.c, ui-file.c, ui-out.c: Update.
* utils.c, valops.c, valprint.c, vax-nat.c, vaxbsd-nat.c: Update.
* win32-nat.c, xcoffread.c, xstormy16-tdep.c: Update.
* cli/cli-cmds.c, cli/cli-logging.c, cli/cli-script.c: Update.
* cli/cli-setshow.c, mi/mi-cmd-break.c, mi/mi-cmds.c: Update.
* mi/mi-console.c, mi/mi-getopt.c, mi/mi-out.c: Update.
* tui/tui-file.c, tui/tui-interp.c: Update.
2005-02-11 19:13:55 +01:00
|
|
|
|
internal_error (__FILE__, __LINE__, _("Unsupported address size: %d"),
|
2003-08-16 01:02:05 +02:00
|
|
|
|
tdep->bytes_per_address);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
set_gdbarch_long_bit (gdbarch, tdep->bytes_per_address * TARGET_CHAR_BIT);
|
|
|
|
|
set_gdbarch_ptr_bit (gdbarch, tdep->bytes_per_address * TARGET_CHAR_BIT);
|
2002-11-07 08:47:22 +01:00
|
|
|
|
|
2003-12-18 23:13:48 +01:00
|
|
|
|
/* The following gdbarch vector elements are the same in both ILP32
|
|
|
|
|
and LP64, but might show differences some day. */
|
|
|
|
|
set_gdbarch_long_long_bit (gdbarch, 64);
|
|
|
|
|
set_gdbarch_long_double_bit (gdbarch, 128);
|
* 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_long_double_format (gdbarch, floatformats_ia64_quad);
|
2003-12-18 23:13:48 +01:00
|
|
|
|
|
2003-08-16 01:02:05 +02:00
|
|
|
|
/* The following gdbarch vector elements do not depend on the address
|
|
|
|
|
size, or in any other gdbarch element previously set. */
|
2002-12-26 21:10:13 +01:00
|
|
|
|
set_gdbarch_skip_prologue (gdbarch, hppa_skip_prologue);
|
2004-12-14 17:35:37 +01:00
|
|
|
|
set_gdbarch_in_function_epilogue_p (gdbarch,
|
|
|
|
|
hppa_in_function_epilogue_p);
|
2004-04-11 06:20:51 +02:00
|
|
|
|
set_gdbarch_inner_than (gdbarch, core_addr_greaterthan);
|
2004-03-07 Andrew Cagney <cagney@redhat.com>
* hppa-tdep.c: Replace DEPRECATED_FP_REGNUM with HPPA_FP_REGNUM,
FP0_REGNUM with HPPA_FP0_REGNUM, and SP_REGNUM with
HPPA_SP_REGNUM.
(hppa_register_raw_size, hppa_register_byte, hppa_read_fp)
(hppa_target_read_fp): Delete.
(hppa_gdbarch_init): Do not set deprecated register_raw_size,
register_virtual_size, max_register_raw_size,
max_register_virtual_size, register_byte, register_size,
target_read_fp, fp_regnum, and register_bytes. Set register_type
instead of register_virtual_type.
(hppa32_register_type, hppa64_register_type): Replace
hppa32_register_virtual_type and hppa64_register_virtual_type.
* config/pa/tm-hppa.h (HPPA_FP0_REGNUM, HPPA_SP_REGNUM)
(HPPA_FP_REGNUM): Define.
2004-03-07 20:58:27 +01:00
|
|
|
|
set_gdbarch_sp_regnum (gdbarch, HPPA_SP_REGNUM);
|
|
|
|
|
set_gdbarch_fp0_regnum (gdbarch, HPPA_FP0_REGNUM);
|
2003-08-13 19:09:09 +02:00
|
|
|
|
set_gdbarch_addr_bits_remove (gdbarch, hppa_smash_text_address);
|
2002-12-26 21:10:13 +01:00
|
|
|
|
set_gdbarch_smash_text_address (gdbarch, hppa_smash_text_address);
|
|
|
|
|
set_gdbarch_believe_pcc_promotion (gdbarch, 1);
|
2004-12-07 19:04:11 +01:00
|
|
|
|
set_gdbarch_read_pc (gdbarch, hppa_read_pc);
|
|
|
|
|
set_gdbarch_write_pc (gdbarch, hppa_write_pc);
|
2002-12-26 21:10:13 +01:00
|
|
|
|
|
2003-06-02 04:54:35 +02:00
|
|
|
|
/* Helper for function argument information. */
|
|
|
|
|
set_gdbarch_fetch_pointer_argument (gdbarch, hppa_fetch_pointer_argument);
|
|
|
|
|
|
2003-08-28 05:03:44 +02:00
|
|
|
|
set_gdbarch_print_insn (gdbarch, print_insn_hppa);
|
|
|
|
|
|
2003-09-04 20:04:25 +02:00
|
|
|
|
/* When a hardware watchpoint triggers, we'll move the inferior past
|
|
|
|
|
it by removing all eventpoints; stepping past the instruction
|
|
|
|
|
that caused the trigger; reinserting eventpoints; and checking
|
|
|
|
|
whether any watched location changed. */
|
|
|
|
|
set_gdbarch_have_nonsteppable_watchpoint (gdbarch, 1);
|
|
|
|
|
|
2004-02-11 17:46:20 +01:00
|
|
|
|
/* Inferior function call methods. */
|
2004-02-27 20:06:16 +01:00
|
|
|
|
switch (tdep->bytes_per_address)
|
2004-02-11 17:46:20 +01:00
|
|
|
|
{
|
2004-02-27 20:06:16 +01:00
|
|
|
|
case 4:
|
|
|
|
|
set_gdbarch_push_dummy_call (gdbarch, hppa32_push_dummy_call);
|
|
|
|
|
set_gdbarch_frame_align (gdbarch, hppa32_frame_align);
|
2004-06-07 04:08:07 +02:00
|
|
|
|
set_gdbarch_convert_from_func_ptr_addr
|
|
|
|
|
(gdbarch, hppa32_convert_from_func_ptr_addr);
|
2004-02-27 20:06:16 +01:00
|
|
|
|
break;
|
|
|
|
|
case 8:
|
2004-03-07 Andrew Cagney <cagney@redhat.com>
Unconditionally enable 64-bit frame and ABI code.
* hppa-tdep.c (hppa_gdbarch_init): Do not set deprecated
call_dummy_breakpoint_offset, call_dummy_length, stack_align,
push_dummy_frame, fix_call_dummy, push_arguments,
call_dummy_location, extract_return_value, use_struct_convention,
store_return_value, store_struct_return, saved_pc_after_call,
init_frame_pc, frame_init_saved_regs, init_extra_frame_info,
frame_chain, frame_chain_valid, frameless_function_invocation,
frame_saved_pc, and pop_frame.
2004-03-07 18:19:26 +01:00
|
|
|
|
set_gdbarch_push_dummy_call (gdbarch, hppa64_push_dummy_call);
|
|
|
|
|
set_gdbarch_frame_align (gdbarch, hppa64_frame_align);
|
2004-02-27 20:06:16 +01:00
|
|
|
|
break;
|
2004-03-07 Andrew Cagney <cagney@redhat.com>
Unconditionally enable 64-bit frame and ABI code.
* hppa-tdep.c (hppa_gdbarch_init): Do not set deprecated
call_dummy_breakpoint_offset, call_dummy_length, stack_align,
push_dummy_frame, fix_call_dummy, push_arguments,
call_dummy_location, extract_return_value, use_struct_convention,
store_return_value, store_struct_return, saved_pc_after_call,
init_frame_pc, frame_init_saved_regs, init_extra_frame_info,
frame_chain, frame_chain_valid, frameless_function_invocation,
frame_saved_pc, and pop_frame.
2004-03-07 18:19:26 +01:00
|
|
|
|
default:
|
2005-02-11 Andrew Cagney <cagney@gnu.org>
Mark up error_no_arg, query, perror_with_name, complaint, and
internal_error.
* breakpoint.c, cp-abi.c, cp-namespace.c, cp-support.c: Update.
* cris-tdep.c, dbxread.c, dictionary.c, dsrec.c: Update.
* dummy-frame.c, dve3900-rom.c, dwarf2-frame.c, dwarf2expr.c: Update.
* dwarf2read.c, dwarfread.c, elfread.c, event-loop.c: Update.
* exceptions.c, exec.c, f-lang.c, findvar.c, fork-child.c: Update.
* frame-unwind.c, frame.c, frv-linux-tdep.c, frv-tdep.c: Update.
* gdb_assert.h, gdbarch.c, gdbtypes.c, gnu-nat.c: Update.
* go32-nat.c, hppa-tdep.c, hppabsd-nat.c, hpread.c: Update.
* i386-linux-nat.c, i386-nat.c, i386-tdep.c, i386bsd-nat.c: Update.
* i386fbsd-nat.c, inf-ptrace.c, inf-ttrace.c, infcall.c: Update.
* infcmd.c, inflow.c, infptrace.c, infrun.c, inftarg.c: Update.
* interps.c, language.c, linespec.c, linux-nat.c: Update.
* m32r-linux-nat.c, m68k-tdep.c, m68kbsd-nat.c: Update.
* m68klinux-nat.c, m88kbsd-nat.c, macroexp.c, macroscope.c: Update.
* macrotab.c, maint.c, mdebugread.c, memattr.c: Update.
* mips-linux-tdep.c, mips-tdep.c, mips64obsd-nat.c: Update.
* mipsnbsd-nat.c, mn10300-tdep.c, monitor.c, nto-procfs.c: Update.
* objc-lang.c, objfiles.c, objfiles.h, ocd.c, osabi.c: Update.
* parse.c, ppc-bdm.c, ppc-linux-nat.c, ppc-sysv-tdep.c: Update.
* ppcnbsd-nat.c, ppcobsd-nat.c, printcmd.c, procfs.c: Update.
* regcache.c, reggroups.c, remote-e7000.c, remote-mips.c: Update.
* remote-rdp.c, remote-sds.c, remote-sim.c, remote-st.c: Update.
* remote-utils.c, remote.c, rs6000-nat.c, rs6000-tdep.c: Update.
* s390-nat.c, s390-tdep.c, sentinel-frame.c, serial.c: Update.
* sh-tdep.c, sh3-rom.c, sh64-tdep.c, shnbsd-nat.c: Update.
* solib-aix5.c, solib-svr4.c, solib.c, source.c: Update.
* sparc-nat.c, stabsread.c, stack.c, symfile.c, symtab.c: Update.
* symtab.h, target.c, tracepoint.c, ui-file.c, ui-out.c: Update.
* utils.c, valops.c, valprint.c, vax-nat.c, vaxbsd-nat.c: Update.
* win32-nat.c, xcoffread.c, xstormy16-tdep.c: Update.
* cli/cli-cmds.c, cli/cli-logging.c, cli/cli-script.c: Update.
* cli/cli-setshow.c, mi/mi-cmd-break.c, mi/mi-cmds.c: Update.
* mi/mi-console.c, mi/mi-getopt.c, mi/mi-out.c: Update.
* tui/tui-file.c, tui/tui-interp.c: Update.
2005-02-11 19:13:55 +01:00
|
|
|
|
internal_error (__FILE__, __LINE__, _("bad switch"));
|
2004-02-22 18:58:10 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Struct return methods. */
|
2004-02-27 20:06:16 +01:00
|
|
|
|
switch (tdep->bytes_per_address)
|
2004-02-22 18:58:10 +01:00
|
|
|
|
{
|
2004-02-27 20:06:16 +01:00
|
|
|
|
case 4:
|
|
|
|
|
set_gdbarch_return_value (gdbarch, hppa32_return_value);
|
|
|
|
|
break;
|
|
|
|
|
case 8:
|
2004-03-07 Andrew Cagney <cagney@redhat.com>
Unconditionally enable 64-bit frame and ABI code.
* hppa-tdep.c (hppa_gdbarch_init): Do not set deprecated
call_dummy_breakpoint_offset, call_dummy_length, stack_align,
push_dummy_frame, fix_call_dummy, push_arguments,
call_dummy_location, extract_return_value, use_struct_convention,
store_return_value, store_struct_return, saved_pc_after_call,
init_frame_pc, frame_init_saved_regs, init_extra_frame_info,
frame_chain, frame_chain_valid, frameless_function_invocation,
frame_saved_pc, and pop_frame.
2004-03-07 18:19:26 +01:00
|
|
|
|
set_gdbarch_return_value (gdbarch, hppa64_return_value);
|
2004-03-07 20:21:13 +01:00
|
|
|
|
break;
|
2004-02-27 20:06:16 +01:00
|
|
|
|
default:
|
2005-02-11 Andrew Cagney <cagney@gnu.org>
Mark up error_no_arg, query, perror_with_name, complaint, and
internal_error.
* breakpoint.c, cp-abi.c, cp-namespace.c, cp-support.c: Update.
* cris-tdep.c, dbxread.c, dictionary.c, dsrec.c: Update.
* dummy-frame.c, dve3900-rom.c, dwarf2-frame.c, dwarf2expr.c: Update.
* dwarf2read.c, dwarfread.c, elfread.c, event-loop.c: Update.
* exceptions.c, exec.c, f-lang.c, findvar.c, fork-child.c: Update.
* frame-unwind.c, frame.c, frv-linux-tdep.c, frv-tdep.c: Update.
* gdb_assert.h, gdbarch.c, gdbtypes.c, gnu-nat.c: Update.
* go32-nat.c, hppa-tdep.c, hppabsd-nat.c, hpread.c: Update.
* i386-linux-nat.c, i386-nat.c, i386-tdep.c, i386bsd-nat.c: Update.
* i386fbsd-nat.c, inf-ptrace.c, inf-ttrace.c, infcall.c: Update.
* infcmd.c, inflow.c, infptrace.c, infrun.c, inftarg.c: Update.
* interps.c, language.c, linespec.c, linux-nat.c: Update.
* m32r-linux-nat.c, m68k-tdep.c, m68kbsd-nat.c: Update.
* m68klinux-nat.c, m88kbsd-nat.c, macroexp.c, macroscope.c: Update.
* macrotab.c, maint.c, mdebugread.c, memattr.c: Update.
* mips-linux-tdep.c, mips-tdep.c, mips64obsd-nat.c: Update.
* mipsnbsd-nat.c, mn10300-tdep.c, monitor.c, nto-procfs.c: Update.
* objc-lang.c, objfiles.c, objfiles.h, ocd.c, osabi.c: Update.
* parse.c, ppc-bdm.c, ppc-linux-nat.c, ppc-sysv-tdep.c: Update.
* ppcnbsd-nat.c, ppcobsd-nat.c, printcmd.c, procfs.c: Update.
* regcache.c, reggroups.c, remote-e7000.c, remote-mips.c: Update.
* remote-rdp.c, remote-sds.c, remote-sim.c, remote-st.c: Update.
* remote-utils.c, remote.c, rs6000-nat.c, rs6000-tdep.c: Update.
* s390-nat.c, s390-tdep.c, sentinel-frame.c, serial.c: Update.
* sh-tdep.c, sh3-rom.c, sh64-tdep.c, shnbsd-nat.c: Update.
* solib-aix5.c, solib-svr4.c, solib.c, source.c: Update.
* sparc-nat.c, stabsread.c, stack.c, symfile.c, symtab.c: Update.
* symtab.h, target.c, tracepoint.c, ui-file.c, ui-out.c: Update.
* utils.c, valops.c, valprint.c, vax-nat.c, vaxbsd-nat.c: Update.
* win32-nat.c, xcoffread.c, xstormy16-tdep.c: Update.
* cli/cli-cmds.c, cli/cli-logging.c, cli/cli-script.c: Update.
* cli/cli-setshow.c, mi/mi-cmd-break.c, mi/mi-cmds.c: Update.
* mi/mi-console.c, mi/mi-getopt.c, mi/mi-out.c: Update.
* tui/tui-file.c, tui/tui-interp.c: Update.
2005-02-11 19:13:55 +01:00
|
|
|
|
internal_error (__FILE__, __LINE__, _("bad switch"));
|
2004-02-22 18:01:04 +01:00
|
|
|
|
}
|
2004-04-24 08:13:32 +02:00
|
|
|
|
|
2004-04-06 18:11:06 +02:00
|
|
|
|
set_gdbarch_breakpoint_from_pc (gdbarch, hppa_breakpoint_from_pc);
|
2004-04-24 08:13:32 +02:00
|
|
|
|
set_gdbarch_pseudo_register_read (gdbarch, hppa_pseudo_register_read);
|
2004-04-06 18:11:06 +02:00
|
|
|
|
|
2004-02-11 17:46:20 +01:00
|
|
|
|
/* Frame unwind methods. */
|
2008-05-08 06:21:45 +02:00
|
|
|
|
set_gdbarch_dummy_id (gdbarch, hppa_dummy_id);
|
2004-03-07 Andrew Cagney <cagney@redhat.com>
Unconditionally enable 64-bit frame and ABI code.
* hppa-tdep.c (hppa_gdbarch_init): Do not set deprecated
call_dummy_breakpoint_offset, call_dummy_length, stack_align,
push_dummy_frame, fix_call_dummy, push_arguments,
call_dummy_location, extract_return_value, use_struct_convention,
store_return_value, store_struct_return, saved_pc_after_call,
init_frame_pc, frame_init_saved_regs, init_extra_frame_info,
frame_chain, frame_chain_valid, frameless_function_invocation,
frame_saved_pc, and pop_frame.
2004-03-07 18:19:26 +01:00
|
|
|
|
set_gdbarch_unwind_pc (gdbarch, hppa_unwind_pc);
|
2004-04-24 08:13:32 +02:00
|
|
|
|
|
2004-04-29 05:36:50 +02:00
|
|
|
|
/* Hook in ABI-specific overrides, if they have been registered. */
|
|
|
|
|
gdbarch_init_osabi (info, gdbarch);
|
|
|
|
|
|
2004-04-24 08:13:32 +02:00
|
|
|
|
/* Hook in the default unwinders. */
|
2008-05-08 06:21:45 +02:00
|
|
|
|
frame_unwind_append_unwinder (gdbarch, &hppa_stub_frame_unwind);
|
|
|
|
|
frame_unwind_append_unwinder (gdbarch, &hppa_frame_unwind);
|
|
|
|
|
frame_unwind_append_unwinder (gdbarch, &hppa_fallback_frame_unwind);
|
2004-02-11 17:46:20 +01:00
|
|
|
|
|
2002-11-07 08:47:22 +01:00
|
|
|
|
return gdbarch;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2007-10-08 14:50:56 +02:00
|
|
|
|
hppa_dump_tdep (struct gdbarch *gdbarch, struct ui_file *file)
|
2002-11-07 08:47:22 +01:00
|
|
|
|
{
|
2007-10-08 14:50:56 +02:00
|
|
|
|
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
|
2004-04-17 19:41:10 +02:00
|
|
|
|
|
|
|
|
|
fprintf_unfiltered (file, "bytes_per_address = %d\n",
|
|
|
|
|
tdep->bytes_per_address);
|
|
|
|
|
fprintf_unfiltered (file, "elf = %s\n", tdep->is_elf ? "yes" : "no");
|
2002-11-07 08:47:22 +01:00
|
|
|
|
}
|
|
|
|
|
|
2002-11-07 03:19:56 +01:00
|
|
|
|
void
|
|
|
|
|
_initialize_hppa_tdep (void)
|
|
|
|
|
{
|
|
|
|
|
struct cmd_list_element *c;
|
|
|
|
|
|
2002-11-07 08:47:22 +01:00
|
|
|
|
gdbarch_register (bfd_arch_hppa, hppa_gdbarch_init, hppa_dump_tdep);
|
2002-11-07 03:19:56 +01:00
|
|
|
|
|
2004-04-17 Randolph Chung <tausq@debian.org>
* Makefile.in (hpread.o, pa64solib.o, somsolib.o): Add $(hppa_tdep_h)
* hppa-tdep.c (hppa_objfile_priv_data): New.
(SR4EXPORT_LDIL_OFFSET, SR4EXPORT_LDO_OFFSET): Use
HPPA_INSTRUCTION_SIZE.
(read_unwind_info): Use objfile_data to reference unwind info.
(find_unwind_entry): Likewise.
(hpread_adjust_stack_address): Move to hpread.c.
(_initialize_hppa_tdep): Register hppa objfile data.
* hppa-tdep.h (HPPA_INSTRUCTION_SIZE): Define.
(unwind_table_entry, unwind_stub_types): Move from tm-hppa.h.
(obj_unwind_info, obj_private_struct): Move from tm-hppa.h, and rename
with hppa_ prefix.
* hpread.c (hppa-tdep.h): Include.
(hpread_adjust_stack_address): Move from hppa-tdep.c.
(hpread_read_function_type, hpread_read_doc_function_type)
(hpread_process_one_debug_symbol): Call hpread_adjust_stack_address
directly. Use objfile_data to access solib data.
* pa64solib.c (hppa-tdep.h): Include.
(pa64_solib_add_solib_objfile): Use objfile_data to access solib data.
* somsolib.c (hppa-tdep.h): Include.
(som_solib_add_solib_objfile): Use objfile_data to access solib data.
* config/pa/tm-hppa.h (frame_info, frame_saved_regs, value, type)
(inferior_status): Remove unused forward declarations.
(INSTRUCTION_SIZE): Move to hppa-tdep.c.
(unwind_table_entry, unwind_stub_types, obj_unwind_info)
(obj_private_struct): Move to hppa-tdep.h.
(HPREAD_ADJUST_STACK_ADDRESS): Remove.
2004-04-17 19:19:29 +02:00
|
|
|
|
hppa_objfile_priv_data = register_objfile_data ();
|
|
|
|
|
|
2002-11-07 03:19:56 +01:00
|
|
|
|
add_cmd ("unwind", class_maintenance, unwind_command,
|
2005-02-14 Andrew Cagney <cagney@gnu.org>
Mark up add_cmd.
* arch-utils.c, avr-tdep.c, breakpoint.c, corefile.c: Update.
* cp-abi.c, cp-namespace.c, cp-support.c, dummy-frame.c: Update.
* exec.c, gnu-nat.c, go32-nat.c, hppa-tdep.c, infcmd.c: Update.
* infrun.c, interps.c, macrocmd.c, maint.c, memattr.c: Update.
* mips-tdep.c, ocd.c, osabi.c, printcmd.c, regcache.c: Update.
* reggroups.c, remote-fileio.c, remote-rdi.c, remote.c: Update.
* sol-thread.c, source.c, stack.c, symfile-mem.c: Update.
* symfile.c, thread.c, tracepoint.c, valprint.c, value.c: Update.
* win32-nat.c, cli/cli-cmds.c, cli/cli-dump.c: Update.
* cli/cli-logging.c, tui/tui-regs.c: Update.
2005-02-14 19:10:11 +01:00
|
|
|
|
_("Print unwind table entry at given address."),
|
2002-11-07 03:19:56 +01:00
|
|
|
|
&maintenanceprintlist);
|
|
|
|
|
|
2004-04-23 04:51:52 +02:00
|
|
|
|
/* Debug this files internals. */
|
2005-02-14 Andrew Cagney <cagney@gnu.org>
Mark up add_setshow functions, replace "PRINT:" comment prefix
with "FIXME: i18n:".
* aix-thread.c, alpha-tdep.c, arm-tdep.c, breakpoint.c: Update.
* cris-tdep.c, dwarf2read.c, frame.c, hppa-tdep.c: Update.
* infcall.c, m32r-rom.c, maint.c, mips-tdep.c: Update.
* nto-tdep.c, observer.c, remote-rdi.c, remote.c: Update.
* target.c, cli/cli-logging.c: Update.
2005-02-14 17:18:43 +01:00
|
|
|
|
add_setshow_boolean_cmd ("hppa", class_maintenance, &hppa_debug, _("\
|
|
|
|
|
Set whether hppa target specific debugging information should be displayed."),
|
|
|
|
|
_("\
|
|
|
|
|
Show whether hppa target specific debugging information is displayed."), _("\
|
2004-11-10 17:26:55 +01:00
|
|
|
|
This flag controls whether hppa target specific debugging information is\n\
|
|
|
|
|
displayed. This information is particularly useful for debugging frame\n\
|
2005-02-14 Andrew Cagney <cagney@gnu.org>
Mark up add_setshow functions, replace "PRINT:" comment prefix
with "FIXME: i18n:".
* aix-thread.c, alpha-tdep.c, arm-tdep.c, breakpoint.c: Update.
* cris-tdep.c, dwarf2read.c, frame.c, hppa-tdep.c: Update.
* infcall.c, m32r-rom.c, maint.c, mips-tdep.c: Update.
* nto-tdep.c, observer.c, remote-rdi.c, remote.c: Update.
* target.c, cli/cli-logging.c: Update.
2005-02-14 17:18:43 +01:00
|
|
|
|
unwinding problems."),
|
2005-02-17 Andrew Cagney <cagney@gnu.org>
* cli/cli-decode.c (add_setshow_cmd_full, add_setshow_enum_cmd)
(add_setshow_auto_boolean_cmd, add_setshow_boolean_cmd)
(add_setshow_filename_cmd, add_setshow_string_cmd)
(add_setshow_uinteger_cmd, add_setshow_zinteger_cmd): Delete
fprint_setshow parameter.
* command.h (fprint_setshow_ftype): Delete.
(add_setshow_cmd_full, add_setshow_enum_cmd)
(add_setshow_auto_boolean_cmd, add_setshow_boolean_cmd)
(add_setshow_filename_cmd, add_setshow_string_cmd)
(add_setshow_uinteger_cmd, add_setshow_zinteger_cmd): Delete
fprint_setshow parameter.
* aix-thread.c, alpha-tdep.c, arm-tdep.c, breakpoint.c: Update.
* complaints.c, cris-tdep.c, dwarf2read.c, frame.c: Update.
* hppa-tdep.c, infcall.c, m32r-rom.c, maint.c: Update.
* mips-tdep.c, nto-tdep.c, observer.c, remote-rdi.c: Update
* remote.c, target.c, cli/cli-logging.c: Update.
2005-02-17 14:49:56 +01:00
|
|
|
|
NULL,
|
2005-02-14 Andrew Cagney <cagney@gnu.org>
Mark up add_setshow functions, replace "PRINT:" comment prefix
with "FIXME: i18n:".
* aix-thread.c, alpha-tdep.c, arm-tdep.c, breakpoint.c: Update.
* cris-tdep.c, dwarf2read.c, frame.c, hppa-tdep.c: Update.
* infcall.c, m32r-rom.c, maint.c, mips-tdep.c: Update.
* nto-tdep.c, observer.c, remote-rdi.c, remote.c: Update.
* target.c, cli/cli-logging.c: Update.
2005-02-14 17:18:43 +01:00
|
|
|
|
NULL, /* FIXME: i18n: hppa debug flag is %s. */
|
2005-02-17 Andrew Cagney <cagney@gnu.org>
* cli/cli-decode.c (add_setshow_cmd_full, add_setshow_enum_cmd)
(add_setshow_auto_boolean_cmd, add_setshow_boolean_cmd)
(add_setshow_filename_cmd, add_setshow_string_cmd)
(add_setshow_uinteger_cmd, add_setshow_zinteger_cmd): Delete
fprint_setshow parameter.
* command.h (fprint_setshow_ftype): Delete.
(add_setshow_cmd_full, add_setshow_enum_cmd)
(add_setshow_auto_boolean_cmd, add_setshow_boolean_cmd)
(add_setshow_filename_cmd, add_setshow_string_cmd)
(add_setshow_uinteger_cmd, add_setshow_zinteger_cmd): Delete
fprint_setshow parameter.
* aix-thread.c, alpha-tdep.c, arm-tdep.c, breakpoint.c: Update.
* complaints.c, cris-tdep.c, dwarf2read.c, frame.c: Update.
* hppa-tdep.c, infcall.c, m32r-rom.c, maint.c: Update.
* mips-tdep.c, nto-tdep.c, observer.c, remote-rdi.c: Update
* remote.c, target.c, cli/cli-logging.c: Update.
2005-02-17 14:49:56 +01:00
|
|
|
|
&setdebuglist, &showdebuglist);
|
2002-11-07 03:19:56 +01:00
|
|
|
|
}
|