#include "defs.h"
#include "arch-utils.h"
#include "gdbcore.h"
#include "osabi.h"
#include "frame.h"
#include "frame-unwind.h"
#include "trad-frame.h"
#include "symtab.h"
#include "objfiles.h"
#include "inferior.h"
#include "infcall.h"
#include "observer.h"
#include "hppa-tdep.h"
#include "solib-som.h"
#include "solib-pa64.h"
#include "regset.h"
#include "exceptions.h"
#include "gdb_string.h"
#include <dl.h>
#include <machine/save_state.h>
#ifndef offsetof
#define offsetof(TYPE, MEMBER) ((unsigned long) &((TYPE *)0)->MEMBER)
#endif
#define IS_32BIT_TARGET(_gdbarch) \
((gdbarch_tdep (_gdbarch))->bytes_per_address == 4)
extern void _initialize_hppa_hpux_tdep (void);
extern initialize_file_ftype _initialize_hppa_hpux_tdep;
typedef struct
{
struct minimal_symbol *msym;
CORE_ADDR solib_handle;
CORE_ADDR return_val;
}
args_for_find_stub;
static int
in_opd_section (CORE_ADDR pc)
{
struct obj_section *s;
int retval = 0;
s = find_pc_section (pc);
retval = (s != NULL
&& s->the_bfd_section->name != NULL
&& strcmp (s->the_bfd_section->name, ".opd") == 0);
return (retval);
}
static int
hppa32_hpux_in_solib_call_trampoline (CORE_ADDR pc, char *name)
{
struct minimal_symbol *minsym;
struct unwind_table_entry *u;
if (pc == hppa_symbol_address("$$dyncall")
|| pc == hppa_symbol_address("_sr4export"))
return 1;
minsym = lookup_minimal_symbol_by_pc (pc);
if (minsym && strcmp (DEPRECATED_SYMBOL_NAME (minsym), ".stub") == 0)
return 1;
u = find_unwind_entry (pc);
if (!u)
return 0;
if (u->stub_unwind.stub_type == 0)
return 0;
if (u->stub_unwind.stub_type == LONG_BRANCH)
return 1;
if (u->stub_unwind.stub_type == IMPORT)
return 1;
if (u->stub_unwind.stub_type == PARAMETER_RELOCATION
|| u->stub_unwind.stub_type == EXPORT)
{
CORE_ADDR addr;
for (addr = pc; addr <= u->region_end; addr += 4)
{
unsigned long insn;
insn = read_memory_integer (addr, 4);
if ((insn & 0xfc00e000) == 0xe8000000)
return 1;
else if ((insn & 0xfc00e001) == 0xe800c000
|| (insn & 0xfc000000) == 0xe0000000)
return 0;
}
warning (_("Unable to find branch in parameter relocation stub."));
return 0;
}
return 0;
}
static int
hppa64_hpux_in_solib_call_trampoline (CORE_ADDR pc, char *name)
{
struct minimal_symbol *minsym;
asection *sec;
CORE_ADDR addr;
int insn, i;
minsym = lookup_minimal_symbol_by_pc (pc);
if (! minsym)
return 0;
sec = SYMBOL_BFD_SECTION (minsym);
if (bfd_get_section_vma (sec->owner, sec) <= pc
&& pc < (bfd_get_section_vma (sec->owner, sec)
+ bfd_section_size (sec->owner, sec)))
return 0;
insn = read_memory_integer (pc, 4);
if ((insn & 0xffffc00e) == 0x53610000)
addr = pc;
else if ((insn & 0xffffffff) == 0xe820d000)
addr = pc - 4;
else if ((insn & 0xffffc00e) == 0x537b0000)
addr = pc - 8;
else
return 0;
insn = read_memory_integer (addr, 4);
if ((insn & 0xffffc00e) != 0x53610000)
return 0;
insn = read_memory_integer (addr + 4, 4);
if ((insn & 0xffffffff) != 0xe820d000)
return 0;
insn = read_memory_integer (addr + 8, 4);
if ((insn & 0xffffc00e) != 0x537b0000)
return 0;
return 1;
}
static int
hppa_hpux_in_solib_return_trampoline (CORE_ADDR pc, char *name)
{
struct unwind_table_entry *u;
u = find_unwind_entry (pc);
if (!u)
return 0;
if (u->stub_unwind.stub_type == 0 || u->stub_unwind.stub_type == LONG_BRANCH)
return 0;
if (u->stub_unwind.stub_type == IMPORT)
return 1;
if (u->stub_unwind.stub_type == PARAMETER_RELOCATION
|| u->stub_unwind.stub_type == EXPORT)
{
CORE_ADDR addr;
for (addr = pc; addr <= u->region_end; addr += 4)
{
unsigned long insn;
insn = read_memory_integer (addr, 4);
if ((insn & 0xfc00e000) == 0xe8000000)
return 0;
else if ((insn & 0xfc00e001) == 0xe800c000
|| (insn & 0xfc000000) == 0xe0000000)
return 1;
}
warning (_("Unable to find branch in parameter relocation stub."));
return 0;
}
return 0;
}
static CORE_ADDR
hppa_hpux_skip_trampoline_code (CORE_ADDR pc)
{
long orig_pc = pc;
long prev_inst, curr_inst, loc;
struct minimal_symbol *msym;
struct unwind_table_entry *u;
if (pc == hppa_symbol_address("$$dyncall"))
{
pc = (CORE_ADDR) read_register (22);
if (pc & 0x2)
pc = (CORE_ADDR) read_memory_integer (pc & ~0x3, TARGET_PTR_BIT / 8);
}
if (pc == hppa_symbol_address("$$dyncall_external"))
{
pc = (CORE_ADDR) read_register (22);
pc = (CORE_ADDR) read_memory_integer (pc & ~0x3, TARGET_PTR_BIT / 8);
}
else if (pc == hppa_symbol_address("_sr4export"))
pc = (CORE_ADDR) (read_register (22));
u = find_unwind_entry (pc);
if (!u)
return 0;
if (u->stub_unwind.stub_type == 0)
{
msym = lookup_minimal_symbol_by_pc (pc);
if (msym == NULL || MSYMBOL_TYPE (msym) != mst_solib_trampoline)
return orig_pc == pc ? 0 : pc & ~0x3;
else if (msym != NULL && MSYMBOL_TYPE (msym) == mst_solib_trampoline)
{
struct objfile *objfile;
struct minimal_symbol *msymbol;
int function_found = 0;
ALL_MSYMBOLS (objfile, msymbol)
{
if (MSYMBOL_TYPE (msymbol) == mst_text
&& DEPRECATED_STREQ (DEPRECATED_SYMBOL_NAME (msymbol), DEPRECATED_SYMBOL_NAME (msym)))
{
function_found = 1;
break;
}
}
if (function_found)
u->stub_unwind.stub_type = EXPORT;
else
{
MSYMBOL_TYPE (msym) = mst_text;
return orig_pc == pc ? 0 : pc & ~0x3;
}
}
}
loc = pc;
curr_inst = 0;
prev_inst = 0;
while (1)
{
if (u != find_unwind_entry (loc))
{
warning (_("Unable to find branch in linker stub"));
return orig_pc == pc ? 0 : pc & ~0x3;
}
prev_inst = curr_inst;
curr_inst = read_memory_integer (loc, 4);
if ((curr_inst & 0xffe0e000) == 0xe0202000)
{
if ((prev_inst & 0xffe00000) == 0x20200000)
return (hppa_extract_21 (prev_inst) + hppa_extract_17 (curr_inst)) & ~0x3;
else
{
warning (_("Unable to find ldil X,%%r1 before ble Y(%%sr4,%%r1)."));
return orig_pc == pc ? 0 : pc & ~0x3;
}
}
if ((curr_inst == 0xe2a00000) ||
(curr_inst == 0xe2a00002) ||
(curr_inst == 0xeaa0d000) ||
(curr_inst == 0xeaa0d002))
{
struct minimal_symbol *stubsym, *libsym;
stubsym = lookup_minimal_symbol_by_pc (loc);
if (stubsym == NULL)
{
warning (_("Unable to find symbol for 0x%lx"), loc);
return orig_pc == pc ? 0 : pc & ~0x3;
}
libsym = lookup_minimal_symbol (DEPRECATED_SYMBOL_NAME (stubsym), NULL, NULL);
if (libsym == NULL)
{
warning (_("Unable to find library symbol for %s."),
DEPRECATED_SYMBOL_NAME (stubsym));
return orig_pc == pc ? 0 : pc & ~0x3;
}
return SYMBOL_VALUE (libsym);
}
else if ((curr_inst & 0xffe0e000) == 0xe8400000
|| (curr_inst & 0xffe0e000) == 0xe8000000
|| (curr_inst & 0xffe0e000) == 0xe800A000)
return (loc + hppa_extract_17 (curr_inst) + 8) & ~0x3;
else if ((curr_inst & 0xffe0f000) == 0xe840c000)
{
if (prev_inst == 0x4bc23ff1)
return (read_memory_integer
(read_register (HPPA_SP_REGNUM) - 8, 4)) & ~0x3;
else
{
warning (_("Unable to find restore of %%rp before bv (%%rp)."));
return orig_pc == pc ? 0 : pc & ~0x3;
}
}
else if ((curr_inst & 0xffe0f000) == 0xe840d000)
{
return (read_memory_integer
(read_register (HPPA_SP_REGNUM) - 24, TARGET_PTR_BIT / 8)) & ~0x3;
}
else if (curr_inst == 0xe0400002)
{
return (read_memory_integer
(read_register (HPPA_SP_REGNUM) - 24, TARGET_PTR_BIT / 8)) & ~0x3;
}
loc += 4;
}
}
void
hppa_skip_permanent_breakpoint (void)
{
write_register (HPPA_PCOQ_HEAD_REGNUM, read_register (HPPA_PCOQ_TAIL_REGNUM));
write_register (HPPA_PCSQ_HEAD_REGNUM, read_register (HPPA_PCSQ_TAIL_REGNUM));
write_register (HPPA_PCOQ_TAIL_REGNUM, read_register (HPPA_PCOQ_TAIL_REGNUM) + 4);
}
static char HP_ACC_EH_notify_hook[] = "__eh_notify_hook";
static char HP_ACC_EH_set_hook_value[] = "__eh_set_hook_value";
static char HP_ACC_EH_notify_callback[] = "__d_eh_notify_callback";
static char HP_ACC_EH_break[] = "__d_eh_break";
static char HP_ACC_EH_catch_throw[] = "__d_eh_catch_throw";
static char HP_ACC_EH_catch_catch[] = "__d_eh_catch_catch";
typedef enum
{
__EH_NOTIFY_THROW,
__EH_NOTIFY_CATCH
}
__eh_notification;
static int hp_cxx_exception_support = 0;
static int hp_cxx_exception_support_initialized = 0;
static CORE_ADDR eh_notify_hook_addr = 0;
static CORE_ADDR eh_notify_callback_addr = 0;
static CORE_ADDR eh_break_addr = 0;
static CORE_ADDR eh_catch_catch_addr = 0;
static CORE_ADDR eh_catch_throw_addr = 0;
static struct symtab_and_line *break_callback_sal = 0;
static int
setup_d_pid_in_inferior (void)
{
CORE_ADDR anaddr;
struct minimal_symbol *msymbol;
char buf[4];
msymbol = lookup_minimal_symbol ("__d_pid", NULL, symfile_objfile);
if (msymbol == NULL)
{
warning (_("Unable to find __d_pid symbol in object file.\n"
"Suggest linking executable with -g (links in /opt/langtools/lib/end.o)."));
return 1;
}
anaddr = SYMBOL_VALUE_ADDRESS (msymbol);
store_unsigned_integer (buf, 4, PIDGET (inferior_ptid));
if (target_write_memory (anaddr, buf, 4))
{
warning (_("Unable to write __d_pid.\n"
"Suggest linking executable with -g (links in /opt/langtools/lib/end.o)."));
return 1;
}
return 0;
}
static CORE_ADDR
find_stub_with_shl_get (struct minimal_symbol *function, CORE_ADDR handle)
{
struct symbol *get_sym, *symbol2;
struct minimal_symbol *buff_minsym, *msymbol;
struct type *ftype;
struct value **args;
struct value *funcval;
struct value *val;
int x, namelen, err_value, tmp = -1;
CORE_ADDR endo_buff_addr, value_return_addr, errno_return_addr;
CORE_ADDR stub_addr;
args = alloca (sizeof (struct value *) * 8);
funcval = find_function_in_inferior ("__d_shl_get");
get_sym = lookup_symbol ("__d_shl_get", NULL, VAR_DOMAIN, NULL, NULL);
buff_minsym = lookup_minimal_symbol ("__buffer", NULL, NULL);
msymbol = lookup_minimal_symbol ("__shldp", NULL, NULL);
symbol2 = lookup_symbol ("__shldp", NULL, VAR_DOMAIN, NULL, NULL);
endo_buff_addr = SYMBOL_VALUE_ADDRESS (buff_minsym);
namelen = strlen (DEPRECATED_SYMBOL_NAME (function));
value_return_addr = endo_buff_addr + namelen;
ftype = check_typedef (SYMBOL_TYPE (get_sym));
if ((x = value_return_addr % 64) != 0)
value_return_addr = value_return_addr + 64 - x;
errno_return_addr = value_return_addr + 64;
target_write_memory (endo_buff_addr, DEPRECATED_SYMBOL_NAME (function), namelen);
target_write_memory (value_return_addr, (char *) &tmp, 4);
target_write_memory (errno_return_addr, (char *) &tmp, 4);
target_write_memory (SYMBOL_VALUE_ADDRESS (msymbol),
(char *) &handle, 4);
args[0] = value_from_longest (TYPE_FIELD_TYPE (ftype, 0), 12);
args[1] = value_from_pointer (TYPE_FIELD_TYPE (ftype, 1), SYMBOL_VALUE_ADDRESS (msymbol));
args[2] = value_from_pointer (TYPE_FIELD_TYPE (ftype, 2), endo_buff_addr);
args[3] = value_from_longest (TYPE_FIELD_TYPE (ftype, 3), TYPE_PROCEDURE);
args[4] = value_from_pointer (TYPE_FIELD_TYPE (ftype, 4), value_return_addr);
args[5] = value_from_pointer (TYPE_FIELD_TYPE (ftype, 5), errno_return_addr);
val = call_function_by_hand (funcval, 6, args);
target_read_memory (errno_return_addr, (char *) &err_value, sizeof (err_value));
target_read_memory (value_return_addr, (char *) &stub_addr, sizeof (stub_addr));
if (stub_addr <= 0)
error (_("call to __d_shl_get failed, error code is %d"), err_value);
return (stub_addr);
}
static int
cover_find_stub_with_shl_get (void *args_untyped)
{
args_for_find_stub *args = args_untyped;
args->return_val = find_stub_with_shl_get (args->msym, args->solib_handle);
return 0;
}
static int
initialize_hp_cxx_exception_support (void)
{
struct symtabs_and_lines sals;
struct cleanup *old_chain;
struct cleanup *canonical_strings_chain = NULL;
int i;
char *addr_start;
char *addr_end = NULL;
char **canonical = (char **) NULL;
int thread = -1;
struct symbol *sym = NULL;
struct minimal_symbol *msym = NULL;
struct objfile *objfile;
asection *shlib_info;
static int recurse = 0;
if (recurse > 0)
{
hp_cxx_exception_support_initialized = 0;
deprecated_exception_support_initialized = 0;
return 0;
}
hp_cxx_exception_support = 0;
if (!deprecated_hp_som_som_object_present)
return 0;
msym = lookup_minimal_symbol (HP_ACC_EH_notify_hook, NULL, NULL);
if (msym)
{
eh_notify_hook_addr = SYMBOL_VALUE_ADDRESS (msym);
hp_cxx_exception_support = 1;
}
else
{
warning (_("\
Unable to find exception callback hook (%s).\n\
Executable may not have been compiled debuggable with HP aCC.\n\
GDB will be unable to intercept exception events."),
HP_ACC_EH_notify_hook);
eh_notify_hook_addr = 0;
hp_cxx_exception_support = 0;
return 0;
}
msym = lookup_minimal_symbol (HP_ACC_EH_notify_callback, NULL, NULL);
if (msym)
{
eh_notify_callback_addr = SYMBOL_VALUE_ADDRESS (msym);
hp_cxx_exception_support = 1;
}
else
{
warning (_("\
Unable to find exception callback routine (%s).\n\
Suggest linking executable with -g (links in /opt/langtools/lib/end.o).\n\
GDB will be unable to intercept exception events."),
HP_ACC_EH_notify_callback);
eh_notify_callback_addr = 0;
return 0;
}
#ifndef GDB_TARGET_IS_HPPA_20W
shlib_info = bfd_get_section_by_name (symfile_objfile->obfd, "$SHLIB_INFO$");
if (shlib_info && (bfd_section_size (symfile_objfile->obfd, shlib_info) != 0))
{
args_for_find_stub args;
static char message[] = "Error while finding exception callback hook:\n";
args.solib_handle = gdbarch_tdep (current_gdbarch)->solib_get_solib_by_pc (eh_notify_callback_addr);
args.msym = msym;
args.return_val = 0;
recurse++;
catch_errors (cover_find_stub_with_shl_get, &args, message,
RETURN_MASK_ALL);
eh_notify_callback_addr = args.return_val;
recurse--;
deprecated_exception_catchpoints_are_fragile = 1;
if (!eh_notify_callback_addr)
{
warning (_("\
Couldn't find a plabel (indirect function label) for the exception callback.\n\
GDB will not be able to intercept exception events."));
return 0;
}
}
else
deprecated_exception_catchpoints_are_fragile = 0;
#endif
msym = lookup_minimal_symbol (HP_ACC_EH_break, NULL, NULL);
if (msym)
{
eh_break_addr = SYMBOL_VALUE_ADDRESS (msym);
hp_cxx_exception_support = 1;
}
else
{
warning (_("\
Unable to find exception callback routine to set breakpoint (%s).\n\
Suggest linking executable with -g (link in /opt/langtools/lib/end.o).\n\
GDB will be unable to intercept exception events."),
HP_ACC_EH_break);
eh_break_addr = 0;
return 0;
}
sym = lookup_symbol (HP_ACC_EH_catch_catch, (struct block *) NULL,
VAR_DOMAIN, 0, (struct symtab **) NULL);
if (sym)
{
eh_catch_catch_addr = SYMBOL_VALUE_ADDRESS (sym);
hp_cxx_exception_support = 1;
}
else
{
msym = lookup_minimal_symbol (HP_ACC_EH_catch_catch, NULL, NULL);
if (msym)
{
eh_catch_catch_addr = SYMBOL_VALUE_ADDRESS (msym);
hp_cxx_exception_support = 1;
}
else
{
warning (_("\
Unable to enable interception of exception catches.\n\
Executable may not have been compiled debuggable with HP aCC.\n\
Suggest linking executable with -g (link in /opt/langtools/lib/end.o)."));
return 0;
}
}
sym = lookup_symbol (HP_ACC_EH_catch_catch, (struct block *) NULL,
VAR_DOMAIN, 0, (struct symtab **) NULL);
if (sym)
{
eh_catch_throw_addr = SYMBOL_VALUE_ADDRESS (sym);
hp_cxx_exception_support = 1;
}
else
{
msym = lookup_minimal_symbol (HP_ACC_EH_catch_throw, NULL, NULL);
if (msym)
{
eh_catch_throw_addr = SYMBOL_VALUE_ADDRESS (msym);
hp_cxx_exception_support = 1;
}
else
{
warning (_("\
Unable to enable interception of exception throws.\n\
Executable may not have been compiled debuggable with HP aCC.\n\
Suggest linking executable with -g (link in /opt/langtools/lib/end.o)."));
return 0;
}
}
hp_cxx_exception_support = 2;
hp_cxx_exception_support_initialized = 1;
deprecated_exception_support_initialized = 1;
return 1;
}
struct symtab_and_line *
child_enable_exception_callback (enum exception_event_kind kind, int enable)
{
char buf[4];
if (!deprecated_exception_support_initialized
|| !hp_cxx_exception_support_initialized)
if (!initialize_hp_cxx_exception_support ())
return NULL;
switch (hp_cxx_exception_support)
{
case 0:
return NULL;
case 1:
return (struct symtab_and_line *) -1;
}
store_unsigned_integer (buf, 4, enable ? eh_notify_callback_addr : 0);
if (target_write_memory (eh_notify_hook_addr, buf, 4))
{
warning (_("\
Could not write to target memory for exception event callback.\n\
Interception of exception events may not work."));
return (struct symtab_and_line *) -1;
}
if (enable)
{
if (PIDGET (inferior_ptid) > 0)
{
if (setup_d_pid_in_inferior ())
return (struct symtab_and_line *) -1;
}
else
{
warning (_("Internal error: Invalid inferior pid? Cannot intercept exception events."));
return (struct symtab_and_line *) -1;
}
}
switch (kind)
{
case EX_EVENT_THROW:
store_unsigned_integer (buf, 4, enable ? 1 : 0);
if (target_write_memory (eh_catch_throw_addr, buf, 4))
{
warning (_("Couldn't enable exception throw interception."));
return (struct symtab_and_line *) -1;
}
break;
case EX_EVENT_CATCH:
store_unsigned_integer (buf, 4, enable ? 1 : 0);
if (target_write_memory (eh_catch_catch_addr, buf, 4))
{
warning (_("Couldn't enable exception catch interception."));
return (struct symtab_and_line *) -1;
}
break;
default:
error (_("Request to enable unknown or unsupported exception event."));
}
if (!break_callback_sal)
break_callback_sal = XMALLOC (struct symtab_and_line);
init_sal (break_callback_sal);
break_callback_sal->symtab = NULL;
break_callback_sal->pc = eh_break_addr;
break_callback_sal->line = 0;
break_callback_sal->end = eh_break_addr;
return break_callback_sal;
}
static struct exception_event_record current_ex_event;
static struct symtab_and_line null_symtab_and_line =
{NULL, 0, 0, 0};
struct exception_event_record *
child_get_current_exception_event (void)
{
CORE_ADDR event_kind;
CORE_ADDR throw_addr;
CORE_ADDR catch_addr;
struct frame_info *fi, *curr_frame;
int level = 1;
curr_frame = get_current_frame ();
if (!curr_frame)
return (struct exception_event_record *) NULL;
fi = find_relative_frame (curr_frame, &level);
if (level != 0)
return (struct exception_event_record *) NULL;
select_frame (fi);
event_kind = read_register (HPPA_ARG0_REGNUM);
catch_addr = read_register (HPPA_ARG1_REGNUM);
level = (event_kind == EX_EVENT_THROW) ? 3 : 4;
fi = find_relative_frame (curr_frame, &level);
if (level != 0)
return (struct exception_event_record *) NULL;
select_frame (fi);
throw_addr = get_frame_pc (fi);
select_frame (curr_frame);
current_ex_event.kind = (enum exception_event_kind) event_kind;
current_ex_event.throw_sal = find_pc_line (throw_addr, 1);
current_ex_event.catch_sal = find_pc_line (catch_addr, 1);
return ¤t_ex_event;
}
struct hppa_hpux_sigtramp_unwind_cache
{
CORE_ADDR base;
struct trad_frame_saved_reg *saved_regs;
};
static int hppa_hpux_tramp_reg[] = {
HPPA_SAR_REGNUM,
HPPA_PCOQ_HEAD_REGNUM,
HPPA_PCSQ_HEAD_REGNUM,
HPPA_PCOQ_TAIL_REGNUM,
HPPA_PCSQ_TAIL_REGNUM,
HPPA_EIEM_REGNUM,
HPPA_IIR_REGNUM,
HPPA_ISR_REGNUM,
HPPA_IOR_REGNUM,
HPPA_IPSW_REGNUM,
-1,
HPPA_SR4_REGNUM,
HPPA_SR4_REGNUM + 1,
HPPA_SR4_REGNUM + 2,
HPPA_SR4_REGNUM + 3,
HPPA_SR4_REGNUM + 4,
HPPA_SR4_REGNUM + 5,
HPPA_SR4_REGNUM + 6,
HPPA_SR4_REGNUM + 7,
HPPA_RCR_REGNUM,
HPPA_PID0_REGNUM,
HPPA_PID1_REGNUM,
HPPA_CCR_REGNUM,
HPPA_PID2_REGNUM,
HPPA_PID3_REGNUM,
HPPA_TR0_REGNUM,
HPPA_TR0_REGNUM + 1,
HPPA_TR0_REGNUM + 2,
HPPA_CR27_REGNUM
};
static struct hppa_hpux_sigtramp_unwind_cache *
hppa_hpux_sigtramp_frame_unwind_cache (struct frame_info *next_frame,
void **this_cache)
{
struct gdbarch *gdbarch = get_frame_arch (next_frame);
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
struct hppa_hpux_sigtramp_unwind_cache *info;
unsigned int flag;
CORE_ADDR sp, scptr;
int i, incr, off, szoff;
if (*this_cache)
return *this_cache;
info = FRAME_OBSTACK_ZALLOC (struct hppa_hpux_sigtramp_unwind_cache);
*this_cache = info;
info->saved_regs = trad_frame_alloc_saved_regs (next_frame);
sp = frame_unwind_register_unsigned (next_frame, HPPA_SP_REGNUM);
scptr = sp - 1352;
off = scptr;
flag = read_memory_unsigned_integer(scptr, 4);
if (!(flag & 0x40))
{
off = scptr + offsetof (save_state_t, ss_narrow);
incr = 4;
szoff = 0;
}
else
{
off = scptr + offsetof (save_state_t, ss_wide) + 8;
incr = 8;
szoff = (tdep->bytes_per_address == 4 ? 4 : 0);
}
for (i = 1; i < 32; i++)
{
info->saved_regs[HPPA_R0_REGNUM + i].addr = off + szoff;
off += incr;
}
for (i = 0; i < ARRAY_SIZE (hppa_hpux_tramp_reg); i++)
{
if (hppa_hpux_tramp_reg[i] > 0)
info->saved_regs[hppa_hpux_tramp_reg[i]].addr = off + szoff;
off += incr;
}
info->base = frame_unwind_register_unsigned (next_frame, HPPA_SP_REGNUM);
return info;
}
static void
hppa_hpux_sigtramp_frame_this_id (struct frame_info *next_frame,
void **this_prologue_cache,
struct frame_id *this_id)
{
struct hppa_hpux_sigtramp_unwind_cache *info
= hppa_hpux_sigtramp_frame_unwind_cache (next_frame, this_prologue_cache);
*this_id = frame_id_build (info->base, frame_pc_unwind (next_frame));
}
static void
hppa_hpux_sigtramp_frame_prev_register (struct frame_info *next_frame,
void **this_prologue_cache,
int regnum, enum opt_state *optimizedp,
enum lval_type *lvalp,
CORE_ADDR *addrp,
int *realnump, gdb_byte *valuep)
{
struct hppa_hpux_sigtramp_unwind_cache *info
= hppa_hpux_sigtramp_frame_unwind_cache (next_frame, this_prologue_cache);
hppa_frame_prev_register_helper (next_frame, info->saved_regs, regnum,
optimizedp, lvalp, addrp, realnump, valuep);
}
static const struct frame_unwind hppa_hpux_sigtramp_frame_unwind = {
SIGTRAMP_FRAME,
hppa_hpux_sigtramp_frame_this_id,
hppa_hpux_sigtramp_frame_prev_register
};
static const struct frame_unwind *
hppa_hpux_sigtramp_unwind_sniffer (struct frame_info *next_frame)
{
CORE_ADDR pc = frame_pc_unwind (next_frame);
char *name;
find_pc_partial_function (pc, &name, NULL, NULL);
if (name && strcmp(name, "_sigreturn") == 0)
return &hppa_hpux_sigtramp_frame_unwind;
return NULL;
}
static CORE_ADDR
hppa32_hpux_find_global_pointer (struct value *function)
{
CORE_ADDR faddr;
faddr = value_as_address (function);
if (faddr & 2)
{
int status;
char buf[4];
faddr &= ~3;
status = target_read_memory (faddr + 4, buf, sizeof (buf));
if (status == 0)
return extract_unsigned_integer (buf, sizeof (buf));
}
return gdbarch_tdep (current_gdbarch)->solib_get_got_by_pc (faddr);
}
static CORE_ADDR
hppa64_hpux_find_global_pointer (struct value *function)
{
CORE_ADDR faddr;
char buf[32];
faddr = value_as_address (function);
if (in_opd_section (faddr))
{
target_read_memory (faddr, buf, sizeof (buf));
return extract_unsigned_integer (&buf[24], 8);
}
else
{
return gdbarch_tdep (current_gdbarch)->solib_get_got_by_pc (faddr);
}
}
static unsigned int ldsid_pattern[] = {
0x000010a0,
0x00001820,
0xe0000000
};
static CORE_ADDR
hppa_hpux_search_pattern (CORE_ADDR start, CORE_ADDR end,
unsigned int *patterns, int count)
{
unsigned int *buf;
int offset, i;
int region, insns;
region = end - start + 4;
insns = region / 4;
buf = (unsigned int *) alloca (region);
read_memory (start, (char *) buf, region);
for (i = 0; i < insns; i++)
buf[i] = extract_unsigned_integer (&buf[i], 4);
for (offset = 0; offset <= insns - count; offset++)
{
for (i = 0; i < count; i++)
{
if ((buf[offset + i] & patterns[i]) != patterns[i])
break;
}
if (i == count)
break;
}
if (offset <= insns - count)
return start + offset * 4;
else
return 0;
}
static CORE_ADDR
hppa32_hpux_search_dummy_call_sequence (struct gdbarch *gdbarch, CORE_ADDR pc,
int *argreg)
{
struct objfile *obj;
struct obj_section *sec;
struct hppa_objfile_private *priv;
struct frame_info *frame;
struct unwind_table_entry *u;
CORE_ADDR addr, rp;
char buf[4];
unsigned int insn;
sec = find_pc_section (pc);
obj = sec->objfile;
priv = objfile_data (obj, hppa_objfile_priv_data);
if (!priv)
priv = hppa_init_objfile_priv_data (obj);
if (!priv)
error (_("Internal error creating objfile private data."));
if (priv->dummy_call_sequence_addr != 0)
{
*argreg = priv->dummy_call_sequence_reg;
return priv->dummy_call_sequence_addr;
}
frame = get_current_frame ();
rp = frame_unwind_register_unsigned (frame, 2);
u = find_unwind_entry (rp);
if (u && u->stub_unwind.stub_type == EXPORT)
{
addr = hppa_hpux_search_pattern (u->region_start, u->region_end,
ldsid_pattern,
ARRAY_SIZE (ldsid_pattern));
if (addr)
goto found_pattern;
}
if (priv->unwind_info)
{
int i;
for (i = 0; i < priv->unwind_info->last; i++)
{
struct unwind_table_entry *u;
u = &priv->unwind_info->table[i];
if (u->stub_unwind.stub_type == EXPORT)
{
addr = hppa_hpux_search_pattern (u->region_start, u->region_end,
ldsid_pattern,
ARRAY_SIZE (ldsid_pattern));
if (addr)
{
goto found_pattern;
}
}
}
}
addr = hppa_symbol_address ("noshlibs");
sec = find_pc_section (addr);
if (sec && sec->objfile == obj)
{
CORE_ADDR start, end;
find_pc_partial_function (addr, NULL, &start, &end);
if (start != 0 && end != 0)
{
addr = hppa_hpux_search_pattern (start, end, ldsid_pattern,
ARRAY_SIZE (ldsid_pattern));
if (addr)
goto found_pattern;
}
}
return 0;
found_pattern:
target_read_memory (addr, buf, sizeof (buf));
insn = extract_unsigned_integer (buf, sizeof (buf));
priv->dummy_call_sequence_addr = addr;
priv->dummy_call_sequence_reg = (insn >> 21) & 0x1f;
*argreg = priv->dummy_call_sequence_reg;
return priv->dummy_call_sequence_addr;
}
static CORE_ADDR
hppa64_hpux_search_dummy_call_sequence (struct gdbarch *gdbarch, CORE_ADDR pc,
int *argreg)
{
struct objfile *obj;
struct obj_section *sec;
struct hppa_objfile_private *priv;
CORE_ADDR addr;
struct minimal_symbol *msym;
int i;
sec = find_pc_section (pc);
obj = sec->objfile;
priv = objfile_data (obj, hppa_objfile_priv_data);
if (!priv)
priv = hppa_init_objfile_priv_data (obj);
if (!priv)
error (_("Internal error creating objfile private data."));
if (priv->dummy_call_sequence_addr != 0)
{
*argreg = priv->dummy_call_sequence_reg;
return priv->dummy_call_sequence_addr;
}
for (i = 0, msym = obj->msymbols; i < obj->minimal_symbol_count; i++, msym++)
{
CORE_ADDR begin, end;
char *name;
unsigned int insns[2];
int offset;
find_pc_partial_function (SYMBOL_VALUE_ADDRESS (msym), &name,
&begin, &end);
if (name == NULL || begin == 0 || end == 0)
continue;
if (target_read_memory (end - sizeof (insns), (char *)insns, sizeof (insns)) == 0)
{
for (offset = 0; offset < ARRAY_SIZE (insns); offset++)
{
unsigned int insn;
insn = extract_unsigned_integer (&insns[offset], 4);
if (insn == 0xe840d002)
{
addr = (end - sizeof (insns)) + (offset * 4);
goto found_pattern;
}
}
}
}
return 0;
found_pattern:
priv->dummy_call_sequence_addr = addr;
priv->dummy_call_sequence_reg = HPPA_RP_REGNUM;
*argreg = priv->dummy_call_sequence_reg;
return priv->dummy_call_sequence_addr;
}
static CORE_ADDR
hppa_hpux_find_import_stub_for_addr (CORE_ADDR funcaddr)
{
struct objfile *objfile;
struct minimal_symbol *funsym, *stubsym;
CORE_ADDR stubaddr;
funsym = lookup_minimal_symbol_by_pc (funcaddr);
stubaddr = 0;
ALL_OBJFILES (objfile)
{
stubsym = lookup_minimal_symbol_solib_trampoline
(SYMBOL_LINKAGE_NAME (funsym), objfile);
if (stubsym)
{
struct unwind_table_entry *u;
u = find_unwind_entry (SYMBOL_VALUE (stubsym));
if (u == NULL
|| (u->stub_unwind.stub_type != IMPORT
&& u->stub_unwind.stub_type != IMPORT_SHLIB))
continue;
stubaddr = SYMBOL_VALUE (stubsym);
if (u->stub_unwind.stub_type == IMPORT)
break;
}
}
return stubaddr;
}
static int
hppa_hpux_sr_for_addr (CORE_ADDR addr)
{
int sr;
sr = addr >> (gdbarch_tdep (current_gdbarch)->bytes_per_address * 8 - 2);
return sr + 4;
}
static CORE_ADDR
hppa_hpux_find_dummy_bpaddr (CORE_ADDR addr)
{
struct obj_section *sec;
struct unwind_table_entry *u;
struct minimal_symbol *msym;
CORE_ADDR func;
int i;
sec = find_pc_section (addr);
if (sec)
{
u = find_unwind_entry (sec->addr);
if (!u || u->stub_unwind.stub_type == 0)
return sec->addr;
find_pc_partial_function (addr, NULL, &func, NULL);
for (i = 0, msym = sec->objfile->msymbols;
i < sec->objfile->minimal_symbol_count;
i++, msym++)
{
u = find_unwind_entry (SYMBOL_VALUE_ADDRESS (msym));
if (func != SYMBOL_VALUE_ADDRESS (msym)
&& (!u || u->stub_unwind.stub_type == 0))
return SYMBOL_VALUE_ADDRESS (msym);
}
}
warning (_("Cannot find suitable address to place dummy breakpoint; nested "
"calls may fail."));
return addr - 4;
}
static CORE_ADDR
hppa_hpux_push_dummy_code (struct gdbarch *gdbarch, CORE_ADDR sp,
CORE_ADDR funcaddr, int using_gcc,
struct value **args, int nargs,
struct type *value_type,
CORE_ADDR *real_pc, CORE_ADDR *bp_addr)
{
CORE_ADDR pc, stubaddr;
int argreg;
pc = read_pc ();
funcaddr = gdbarch_convert_from_func_ptr_addr (gdbarch, funcaddr, NULL);
if (hppa_hpux_sr_for_addr (pc) == hppa_hpux_sr_for_addr (funcaddr))
{
*bp_addr = hppa_hpux_find_dummy_bpaddr (pc);
*real_pc = funcaddr;
regcache_cooked_write_unsigned (current_regcache, HPPA_RP_REGNUM, *bp_addr);
return sp;
}
if (IS_32BIT_TARGET (gdbarch))
{
static unsigned int hppa32_tramp[] = {
0x0fdf1291,
0x02c010a1,
0x00011820,
0xe6c00000,
0x081f0242,
0x0fd11082,
0x004010a1,
0x00011820,
0xe0400000,
0x08000240
};
stubaddr = hppa_hpux_find_import_stub_for_addr (funcaddr);
if (stubaddr == 0)
error (_("Cannot call external function not referenced by application "
"(no import stub).\n"));
regcache_cooked_write_unsigned (current_regcache, 22, stubaddr);
write_memory (sp, (char *)&hppa32_tramp, sizeof (hppa32_tramp));
*bp_addr = hppa_hpux_find_dummy_bpaddr (pc);
regcache_cooked_write_unsigned (current_regcache, 31, *bp_addr);
*real_pc = hppa32_hpux_search_dummy_call_sequence (gdbarch, pc, &argreg);
if (*real_pc == 0)
error (_("Cannot make interspace call from here."));
regcache_cooked_write_unsigned (current_regcache, argreg, sp);
sp += sizeof (hppa32_tramp);
}
else
{
static unsigned int hppa64_tramp[] = {
0xeac0f000,
0x0fdf12d1,
0x0fd110c2,
0xe840d002,
0x08000240
};
regcache_cooked_write_unsigned (current_regcache, 22, funcaddr);
write_memory (sp, (char *)&hppa64_tramp, sizeof (hppa64_tramp));
*bp_addr = pc - 4;
regcache_cooked_write_unsigned (current_regcache, 31, *bp_addr);
*real_pc = hppa64_hpux_search_dummy_call_sequence (gdbarch, pc, &argreg);
if (*real_pc == 0)
error (_("Cannot make interspace call from here."));
regcache_cooked_write_unsigned (current_regcache, argreg, sp);
sp += sizeof (hppa64_tramp);
}
sp = gdbarch_frame_align (gdbarch, sp);
return sp;
}
#define HPPA_HPUX_SS_WIDEREGS 0x40
#define HPPA_HPUX_SS_FLAGS_OFFSET 0
#define HPPA_HPUX_SS_NARROW_OFFSET 4
#define HPPA_HPUX_SS_FPBLOCK_OFFSET 256
#define HPPA_HPUX_SS_WIDE_OFFSET 640
#define HPPA_HPUX_SAVE_STATE_SIZE 1152
#define HPPA_HPUX_PA89_SAVE_STATE_SIZE 512
static void
hppa_hpux_supply_ss_narrow (struct regcache *regcache,
int regnum, const char *save_state)
{
const char *ss_narrow = save_state + HPPA_HPUX_SS_NARROW_OFFSET;
int i, offset = 0;
for (i = HPPA_R1_REGNUM; i < HPPA_FP0_REGNUM; i++)
{
if (regnum == i || regnum == -1)
regcache_raw_supply (regcache, i, ss_narrow + offset);
offset += 4;
}
}
static void
hppa_hpux_supply_ss_fpblock (struct regcache *regcache,
int regnum, const char *save_state)
{
const char *ss_fpblock = save_state + HPPA_HPUX_SS_FPBLOCK_OFFSET;
int i, offset = 0;
if (register_size (get_regcache_arch (regcache), HPPA_FP0_REGNUM) == 4)
{
for (i = HPPA_FP0_REGNUM; i < HPPA_FP0_REGNUM + 64; i++)
{
if (regnum == i || regnum == -1)
regcache_raw_supply (regcache, i, ss_fpblock + offset);
offset += 4;
}
}
else
{
for (i = HPPA_FP0_REGNUM; i < HPPA_FP0_REGNUM + 32; i++)
{
if (regnum == i || regnum == -1)
regcache_raw_supply (regcache, i, ss_fpblock + offset);
offset += 8;
}
}
}
static void
hppa_hpux_supply_ss_wide (struct regcache *regcache,
int regnum, const char *save_state)
{
const char *ss_wide = save_state + HPPA_HPUX_SS_WIDE_OFFSET;
int i, offset = 8;
if (register_size (get_regcache_arch (regcache), HPPA_R1_REGNUM) == 4)
offset += 4;
for (i = HPPA_R1_REGNUM; i < HPPA_FP0_REGNUM; i++)
{
if (regnum == i || regnum == -1)
regcache_raw_supply (regcache, i, ss_wide + offset);
offset += 8;
}
}
static void
hppa_hpux_supply_save_state (const struct regset *regset,
struct regcache *regcache,
int regnum, const void *regs, size_t len)
{
const char *proc_info = regs;
const char *save_state = proc_info + 8;
ULONGEST flags;
flags = extract_unsigned_integer (save_state + HPPA_HPUX_SS_FLAGS_OFFSET, 4);
if (regnum == -1 || regnum == HPPA_FLAGS_REGNUM)
{
struct gdbarch *arch = get_regcache_arch (regcache);
size_t size = register_size (arch, HPPA_FLAGS_REGNUM);
char buf[8];
store_unsigned_integer (buf, size, flags);
regcache_raw_supply (regcache, HPPA_FLAGS_REGNUM, buf);
}
if (flags & HPPA_HPUX_SS_WIDEREGS && len < HPPA_HPUX_SAVE_STATE_SIZE)
error (_("Register set contents too small"));
if (flags & HPPA_HPUX_SS_WIDEREGS)
hppa_hpux_supply_ss_wide (regcache, regnum, save_state);
else
hppa_hpux_supply_ss_narrow (regcache, regnum, save_state);
hppa_hpux_supply_ss_fpblock (regcache, regnum, save_state);
}
static struct regset hppa_hpux_regset =
{
NULL,
hppa_hpux_supply_save_state
};
static const struct regset *
hppa_hpux_regset_from_core_section (struct gdbarch *gdbarch,
const char *sect_name, size_t sect_size)
{
if (strcmp (sect_name, ".reg") == 0
&& sect_size >= HPPA_HPUX_PA89_SAVE_STATE_SIZE + 8)
return &hppa_hpux_regset;
return NULL;
}
#define HPPA_HPUX_SS_INSYSCALL 0x02
static CORE_ADDR
hppa_hpux_read_pc (ptid_t ptid)
{
ULONGEST flags;
flags = read_register_pid (HPPA_FLAGS_REGNUM, ptid);
if (flags & HPPA_HPUX_SS_INSYSCALL)
return read_register_pid (HPPA_R31_REGNUM, ptid) & ~0x3;
return hppa_read_pc (ptid);
}
static void
hppa_hpux_write_pc (CORE_ADDR pc, ptid_t ptid)
{
ULONGEST flags;
flags = read_register_pid (HPPA_FLAGS_REGNUM, ptid);
if (flags & HPPA_HPUX_SS_INSYSCALL)
write_register_pid (HPPA_R31_REGNUM, pc | 0x3, ptid);
return hppa_write_pc (pc, ptid);
}
static CORE_ADDR
hppa_hpux_unwind_pc (struct gdbarch *gdbarch, struct frame_info *next_frame)
{
ULONGEST flags;
flags = frame_unwind_register_unsigned (next_frame, HPPA_FLAGS_REGNUM);
if (flags & HPPA_HPUX_SS_INSYSCALL)
return frame_unwind_register_unsigned (next_frame, HPPA_R31_REGNUM) & ~0x3;
return hppa_unwind_pc (gdbarch, next_frame);
}
static void
hppa_hpux_inferior_created (struct target_ops *objfile, int from_tty)
{
deprecated_hp_som_som_object_present = 0;
hp_cxx_exception_support_initialized = 0;
}
static void
hppa_hpux_unwind_adjust_stub (struct frame_info *next_frame, CORE_ADDR base,
struct trad_frame_saved_reg *saved_regs)
{
int optimized, realreg;
enum lval_type lval;
CORE_ADDR addr;
char buffer[sizeof(ULONGEST)];
ULONGEST val;
CORE_ADDR stubpc;
struct unwind_table_entry *u;
trad_frame_get_prev_register (next_frame, saved_regs,
HPPA_PCOQ_HEAD_REGNUM,
&optimized, &lval, &addr, &realreg, buffer);
val = extract_unsigned_integer (buffer,
register_size (get_frame_arch (next_frame),
HPPA_PCOQ_HEAD_REGNUM));
u = find_unwind_entry (val);
if (u && u->stub_unwind.stub_type == EXPORT)
{
stubpc = read_memory_integer (base - 24, TARGET_PTR_BIT / 8);
trad_frame_set_value (saved_regs, HPPA_PCOQ_HEAD_REGNUM, stubpc);
}
else if (hppa_symbol_address ("__gcc_plt_call")
== get_pc_function_start (val))
{
stubpc = read_memory_integer (base - 8, TARGET_PTR_BIT / 8);
trad_frame_set_value (saved_regs, HPPA_PCOQ_HEAD_REGNUM, stubpc);
}
}
static void
hppa_hpux_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
{
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
if (IS_32BIT_TARGET (gdbarch))
tdep->in_solib_call_trampoline = hppa32_hpux_in_solib_call_trampoline;
else
tdep->in_solib_call_trampoline = hppa64_hpux_in_solib_call_trampoline;
tdep->unwind_adjust_stub = hppa_hpux_unwind_adjust_stub;
set_gdbarch_in_solib_return_trampoline
(gdbarch, hppa_hpux_in_solib_return_trampoline);
set_gdbarch_skip_trampoline_code (gdbarch, hppa_hpux_skip_trampoline_code);
set_gdbarch_push_dummy_code (gdbarch, hppa_hpux_push_dummy_code);
set_gdbarch_call_dummy_location (gdbarch, ON_STACK);
set_gdbarch_read_pc (gdbarch, hppa_hpux_read_pc);
set_gdbarch_write_pc (gdbarch, hppa_hpux_write_pc);
set_gdbarch_unwind_pc (gdbarch, hppa_hpux_unwind_pc);
set_gdbarch_regset_from_core_section
(gdbarch, hppa_hpux_regset_from_core_section);
frame_unwind_append_sniffer (gdbarch, hppa_hpux_sigtramp_unwind_sniffer);
observer_attach_inferior_created (hppa_hpux_inferior_created);
}
static void
hppa_hpux_som_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
{
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
tdep->is_elf = 0;
tdep->find_global_pointer = hppa32_hpux_find_global_pointer;
hppa_hpux_init_abi (info, gdbarch);
som_solib_select (tdep);
}
static void
hppa_hpux_elf_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
{
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
tdep->is_elf = 1;
tdep->find_global_pointer = hppa64_hpux_find_global_pointer;
hppa_hpux_init_abi (info, gdbarch);
pa64_solib_select (tdep);
}
static enum gdb_osabi
hppa_hpux_core_osabi_sniffer (bfd *abfd)
{
if (strcmp (bfd_get_target (abfd), "hpux-core") == 0)
return GDB_OSABI_HPUX_SOM;
return GDB_OSABI_UNKNOWN;
}
void
_initialize_hppa_hpux_tdep (void)
{
gdbarch_register_osabi_sniffer (bfd_arch_unknown,
bfd_target_unknown_flavour,
hppa_hpux_core_osabi_sniffer);
gdbarch_register_osabi (bfd_arch_hppa, 0, GDB_OSABI_HPUX_SOM,
hppa_hpux_som_init_abi);
gdbarch_register_osabi (bfd_arch_hppa, bfd_mach_hppa20w, GDB_OSABI_HPUX_ELF,
hppa_hpux_elf_init_abi);
}