-/* The relaxed version of the insn matcher allows us to match from somewhere
- inside the pattern, by looking backwards in the instruction scheme. */
-static int
-insns_match_pattern_relaxed (CORE_ADDR pc,
- struct insn_pattern *pattern,
- unsigned int *insn)
-{
- int pat_len = 0;
- int offset;
-
- while (pattern[pat_len].mask)
- pat_len++;
-
- for (offset = 0; offset < pat_len; offset++)
- {
- if (insns_match_pattern (pc - offset * 4,
- pattern, insn))
- return 1;
- }
-
- return 0;
-}
-
-static int
-hppa_linux_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;
-}
-
-/* There are several kinds of "trampolines" that we need to deal with:
- - long branch stubs: these are inserted by the linker when a branch
- target is too far away for a branch insn to reach
- - plt stubs: these should go into the .plt section, so are easy to find
- - import stubs: used to call from object to shared lib or shared lib to
- shared lib; these go in regular text sections. In fact the linker tries
- to put them throughout the code because branches have limited reachability.
- We use the same mechanism as ppc64 to recognize the stub insn patterns.
- - $$dyncall: similar to hpux, hppa-linux uses $$dyncall for indirect function
- calls. $$dyncall is exported by libgcc.a */
-static int
-hppa_linux_in_solib_call_trampoline (CORE_ADDR pc, char *name)
-{
- unsigned int insn[HPPA_MAX_INSN_PATTERN_LEN];
- int r;
- struct unwind_table_entry *u;
-
- /* on hppa-linux, linker stubs have no unwind information. Since the pattern
- matching for linker stubs can be quite slow, we try to avoid it if
- we can. */
- u = find_unwind_entry (pc);
-
- r = in_plt_section (pc, name)
- || hppa_linux_in_dyncall (pc)
- || (u == NULL
- && (insns_match_pattern_relaxed (pc, hppa_import_stub, insn)
- || insns_match_pattern_relaxed (pc, hppa_import_pic_stub, insn)
- || insns_match_pattern_relaxed (pc, hppa_long_branch_stub, insn)
- || insns_match_pattern_relaxed (pc, hppa_long_branch_pic_stub, insn)));
-
- return r;
-}
-
-static CORE_ADDR
-hppa_linux_skip_trampoline_code (CORE_ADDR pc)
-{
- unsigned int insn[HPPA_MAX_INSN_PATTERN_LEN];
- int dp_rel, pic_rel;
-
- /* dyncall handles both PLABELs and direct addresses */
- if (hppa_linux_in_dyncall (pc))
- {
- pc = (CORE_ADDR) read_register (22);
-
- /* PLABELs have bit 30 set; if it's a PLABEL, then dereference it */
- if (pc & 0x2)
- pc = (CORE_ADDR) read_memory_integer (pc & ~0x3, TARGET_PTR_BIT / 8);
-
- return pc;
- }
-
- dp_rel = pic_rel = 0;
- if ((dp_rel = insns_match_pattern (pc, hppa_import_stub, insn))
- || (pic_rel = insns_match_pattern (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)
- pc += (CORE_ADDR) read_register (27);
- else
- pc += (CORE_ADDR) read_register (19);
-
- /* fallthrough */
- }
-
- if (in_plt_section (pc, NULL))
- {
- pc = (CORE_ADDR) read_memory_integer (pc, TARGET_PTR_BIT / 8);
-
- /* 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 (insns_match_pattern (pc, hppa_plt_stub, insn))
- {
- /* this should point to the fixup routine */
- pc = (CORE_ADDR) read_memory_integer (pc + 8, TARGET_PTR_BIT / 8);
- }
- else
- {
- error (_("Cannot resolve plt stub at 0x%s."),
- paddr_nz (pc));
- pc = 0;
- }
- }
- }
-
- return pc;
-}
-