1 /* Target-dependent code for the HP PA architecture, for GDB.
3 Copyright 1986, 1987, 1989, 1990, 1991, 1992, 1993, 1994, 1995,
4 1996, 1998, 1999, 2000, 2001, 2002, 2003, 2004 Free Software
7 Contributed by the Center for Software Science at the
8 University of Utah (pa-gdb-bugs@cs.utah.edu).
10 This file is part of GDB.
12 This program is free software; you can redistribute it and/or modify
13 it under the terms of the GNU General Public License as published by
14 the Free Software Foundation; either version 2 of the License, or
15 (at your option) any later version.
17 This program is distributed in the hope that it will be useful,
18 but WITHOUT ANY WARRANTY; without even the implied warranty of
19 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 GNU General Public License for more details.
22 You should have received a copy of the GNU General Public License
23 along with this program; if not, write to the Free Software
24 Foundation, Inc., 59 Temple Place - Suite 330,
25 Boston, MA 02111-1307, USA. */
33 #include "completer.h"
36 #include "gdb_assert.h"
37 #include "infttrace.h"
38 #include "arch-utils.h"
39 /* For argument passing to the inferior */
43 #include "trad-frame.h"
44 #include "frame-unwind.h"
45 #include "frame-base.h"
48 #include <sys/types.h>
52 #include <sys/param.h>
55 #include <sys/ptrace.h>
56 #include <machine/save_state.h>
58 #ifdef COFF_ENCAPSULATE
59 #include "a.out.encap.h"
63 /*#include <sys/user.h> After a.out.h */
73 #include "hppa-tdep.h"
75 /* Some local constants. */
76 static const int hppa32_num_regs
= 128;
77 static const int hppa64_num_regs
= 96;
79 static const int hppa64_call_dummy_breakpoint_offset
= 22 * 4;
81 /* DEPRECATED_CALL_DUMMY_LENGTH is computed based on the size of a
82 word on the target machine, not the size of an instruction. Since
83 a word on this target holds two instructions we have to divide the
84 instruction size by two to get the word size of the dummy. */
85 static const int hppa32_call_dummy_length
= INSTRUCTION_SIZE
* 28;
86 static const int hppa64_call_dummy_length
= INSTRUCTION_SIZE
* 26 / 2;
88 /* Get at various relevent fields of an instruction word. */
91 #define MASK_14 0x3fff
92 #define MASK_21 0x1fffff
94 /* Define offsets into the call dummy for the target function address.
95 See comments related to CALL_DUMMY for more info. */
96 #define FUNC_LDIL_OFFSET (INSTRUCTION_SIZE * 9)
97 #define FUNC_LDO_OFFSET (INSTRUCTION_SIZE * 10)
99 /* Define offsets into the call dummy for the _sr4export address.
100 See comments related to CALL_DUMMY for more info. */
101 #define SR4EXPORT_LDIL_OFFSET (INSTRUCTION_SIZE * 12)
102 #define SR4EXPORT_LDO_OFFSET (INSTRUCTION_SIZE * 13)
104 /* To support detection of the pseudo-initial frame
105 that threads have. */
106 #define THREAD_INITIAL_FRAME_SYMBOL "__pthread_exit"
107 #define THREAD_INITIAL_FRAME_SYM_LEN sizeof(THREAD_INITIAL_FRAME_SYMBOL)
109 /* Sizes (in bytes) of the native unwind entries. */
110 #define UNWIND_ENTRY_SIZE 16
111 #define STUB_UNWIND_ENTRY_SIZE 8
113 static int get_field (unsigned word
, int from
, int to
);
115 static int extract_5_load (unsigned int);
117 static unsigned extract_5R_store (unsigned int);
119 static unsigned extract_5r_store (unsigned int);
121 static void hppa_frame_init_saved_regs (struct frame_info
*frame
);
123 static void find_dummy_frame_regs (struct frame_info
*, CORE_ADDR
*);
125 static int find_proc_framesize (CORE_ADDR
);
127 static int find_return_regnum (CORE_ADDR
);
129 struct unwind_table_entry
*find_unwind_entry (CORE_ADDR
);
131 static int extract_17 (unsigned int);
133 static unsigned deposit_21 (unsigned int, unsigned int);
135 static int extract_21 (unsigned);
137 static unsigned deposit_14 (int, unsigned int);
139 static int extract_14 (unsigned);
141 static void unwind_command (char *, int);
143 static int low_sign_extend (unsigned int, unsigned int);
145 static int sign_extend (unsigned int, unsigned int);
147 static int restore_pc_queue (CORE_ADDR
*);
149 static int hppa_alignof (struct type
*);
151 static int prologue_inst_adjust_sp (unsigned long);
153 static int is_branch (unsigned long);
155 static int inst_saves_gr (unsigned long);
157 static int inst_saves_fr (unsigned long);
159 static int pc_in_interrupt_handler (CORE_ADDR
);
161 static int pc_in_linker_stub (CORE_ADDR
);
163 static int compare_unwind_entries (const void *, const void *);
165 static void read_unwind_info (struct objfile
*);
167 static void internalize_unwinds (struct objfile
*,
168 struct unwind_table_entry
*,
169 asection
*, unsigned int,
170 unsigned int, CORE_ADDR
);
171 static void pa_print_registers (char *, int, int);
172 static void pa_strcat_registers (char *, int, int, struct ui_file
*);
173 static void pa_register_look_aside (char *, int, long *);
174 static void pa_print_fp_reg (int);
175 static void pa_strcat_fp_reg (int, struct ui_file
*, enum precision_type
);
176 static void record_text_segment_lowaddr (bfd
*, asection
*, void *);
177 /* FIXME: brobecker 2002-11-07: We will likely be able to make the
178 following functions static, once we hppa is partially multiarched. */
179 int hppa_reg_struct_has_addr (int gcc_p
, struct type
*type
);
180 CORE_ADDR
hppa_skip_prologue (CORE_ADDR pc
);
181 CORE_ADDR
hppa_skip_trampoline_code (CORE_ADDR pc
);
182 int hppa_in_solib_call_trampoline (CORE_ADDR pc
, char *name
);
183 int hppa_in_solib_return_trampoline (CORE_ADDR pc
, char *name
);
184 CORE_ADDR
hppa_saved_pc_after_call (struct frame_info
*frame
);
185 int hppa_inner_than (CORE_ADDR lhs
, CORE_ADDR rhs
);
186 CORE_ADDR
hppa32_stack_align (CORE_ADDR sp
);
187 CORE_ADDR
hppa64_stack_align (CORE_ADDR sp
);
188 int hppa_pc_requires_run_before_use (CORE_ADDR pc
);
189 int hppa_instruction_nullified (void);
190 int hppa_register_raw_size (int reg_nr
);
191 int hppa_register_byte (int reg_nr
);
192 struct type
* hppa32_register_virtual_type (int reg_nr
);
193 struct type
* hppa64_register_virtual_type (int reg_nr
);
194 void hppa_store_struct_return (CORE_ADDR addr
, CORE_ADDR sp
);
195 void hppa32_extract_return_value (struct type
*type
, char *regbuf
,
197 void hppa64_extract_return_value (struct type
*type
, char *regbuf
,
199 int hppa32_use_struct_convention (int gcc_p
, struct type
*type
);
200 int hppa64_use_struct_convention (int gcc_p
, struct type
*type
);
201 void hppa32_store_return_value (struct type
*type
, char *valbuf
);
202 void hppa64_store_return_value (struct type
*type
, char *valbuf
);
203 int hppa_cannot_store_register (int regnum
);
204 void hppa_init_extra_frame_info (int fromleaf
, struct frame_info
*frame
);
205 CORE_ADDR
hppa_frame_chain (struct frame_info
*frame
);
206 int hppa_frame_chain_valid (CORE_ADDR chain
, struct frame_info
*thisframe
);
207 int hppa_frameless_function_invocation (struct frame_info
*frame
);
208 CORE_ADDR
hppa_frame_saved_pc (struct frame_info
*frame
);
209 CORE_ADDR
hppa_frame_args_address (struct frame_info
*fi
);
210 int hppa_frame_num_args (struct frame_info
*frame
);
211 void hppa_push_dummy_frame (void);
212 void hppa_pop_frame (void);
213 CORE_ADDR
hppa_fix_call_dummy (char *dummy
, CORE_ADDR pc
, CORE_ADDR fun
,
214 int nargs
, struct value
**args
,
215 struct type
*type
, int gcc_p
);
216 CORE_ADDR
hppa_push_arguments (int nargs
, struct value
**args
, CORE_ADDR sp
,
217 int struct_return
, CORE_ADDR struct_addr
);
218 CORE_ADDR
hppa_smash_text_address (CORE_ADDR addr
);
219 CORE_ADDR
hppa_target_read_pc (ptid_t ptid
);
220 void hppa_target_write_pc (CORE_ADDR v
, ptid_t ptid
);
221 CORE_ADDR
hppa_target_read_fp (void);
225 struct minimal_symbol
*msym
;
226 CORE_ADDR solib_handle
;
227 CORE_ADDR return_val
;
231 static int cover_find_stub_with_shl_get (void *);
233 static int is_pa_2
= 0; /* False */
235 /* This is declared in symtab.c; set to 1 in hp-symtab-read.c */
236 extern int hp_som_som_object_present
;
238 /* In breakpoint.c */
239 extern int exception_catchpoints_are_fragile
;
241 /* Should call_function allocate stack space for a struct return? */
244 hppa32_use_struct_convention (int gcc_p
, struct type
*type
)
246 return (TYPE_LENGTH (type
) > 2 * DEPRECATED_REGISTER_SIZE
);
249 /* Same as hppa32_use_struct_convention() for the PA64 ABI. */
252 hppa64_use_struct_convention (int gcc_p
, struct type
*type
)
254 /* RM: struct upto 128 bits are returned in registers */
255 return TYPE_LENGTH (type
) > 16;
258 /* Handle 32/64-bit struct return conventions. */
260 static enum return_value_convention
261 hppa32_return_value (struct gdbarch
*gdbarch
,
262 struct type
*type
, struct regcache
*regcache
,
263 void *readbuf
, const void *writebuf
)
265 if (TYPE_CODE (type
) == TYPE_CODE_FLT
)
268 regcache_cooked_read_part (regcache
, FP4_REGNUM
, 0,
269 TYPE_LENGTH (type
), readbuf
);
270 if (writebuf
!= NULL
)
271 regcache_cooked_write_part (regcache
, FP4_REGNUM
, 0,
272 TYPE_LENGTH (type
), writebuf
);
273 return RETURN_VALUE_REGISTER_CONVENTION
;
275 if (TYPE_LENGTH (type
) <= 2 * 4)
277 /* The value always lives in the right hand end of the register
278 (or register pair)? */
281 int part
= TYPE_LENGTH (type
) % 4;
282 /* The left hand register contains only part of the value,
283 transfer that first so that the rest can be xfered as entire
288 regcache_cooked_read_part (regcache
, reg
, 4 - part
,
290 if (writebuf
!= NULL
)
291 regcache_cooked_write_part (regcache
, reg
, 4 - part
,
295 /* Now transfer the remaining register values. */
296 for (b
= part
; b
< TYPE_LENGTH (type
); b
+= 4)
299 regcache_cooked_read (regcache
, reg
, (char *) readbuf
+ b
);
300 if (writebuf
!= NULL
)
301 regcache_cooked_write (regcache
, reg
, (const char *) writebuf
+ b
);
304 return RETURN_VALUE_REGISTER_CONVENTION
;
307 return RETURN_VALUE_STRUCT_CONVENTION
;
310 static enum return_value_convention
311 hppa64_return_value (struct gdbarch
*gdbarch
,
312 struct type
*type
, struct regcache
*regcache
,
313 void *readbuf
, const void *writebuf
)
315 /* RM: Floats are returned in FR4R, doubles in FR4. Integral values
316 are in r28, padded on the left. Aggregates less that 65 bits are
317 in r28, right padded. Aggregates upto 128 bits are in r28 and
318 r29, right padded. */
319 if (TYPE_CODE (type
) == TYPE_CODE_FLT
)
321 /* Floats are right aligned? */
322 int offset
= register_size (gdbarch
, FP4_REGNUM
) - TYPE_LENGTH (type
);
324 regcache_cooked_read_part (regcache
, FP4_REGNUM
, offset
,
325 TYPE_LENGTH (type
), readbuf
);
326 if (writebuf
!= NULL
)
327 regcache_cooked_write_part (regcache
, FP4_REGNUM
, offset
,
328 TYPE_LENGTH (type
), writebuf
);
329 return RETURN_VALUE_REGISTER_CONVENTION
;
331 else if (TYPE_LENGTH (type
) <= 8 && is_integral_type (type
))
333 /* Integrals are right aligned. */
334 int offset
= register_size (gdbarch
, FP4_REGNUM
) - TYPE_LENGTH (type
);
336 regcache_cooked_read_part (regcache
, 28, offset
,
337 TYPE_LENGTH (type
), readbuf
);
338 if (writebuf
!= NULL
)
339 regcache_cooked_write_part (regcache
, 28, offset
,
340 TYPE_LENGTH (type
), writebuf
);
341 return RETURN_VALUE_REGISTER_CONVENTION
;
343 else if (TYPE_LENGTH (type
) <= 2 * 8)
345 /* Composite values are left aligned. */
347 for (b
= 0; b
< TYPE_LENGTH (type
); b
+= 8)
349 int part
= (TYPE_LENGTH (type
) - b
- 1) % 8 + 1;
351 regcache_cooked_read_part (regcache
, 28, 0, part
,
352 (char *) readbuf
+ b
);
353 if (writebuf
!= NULL
)
354 regcache_cooked_write_part (regcache
, 28, 0, part
,
355 (const char *) writebuf
+ b
);
357 return RETURN_VALUE_REGISTER_CONVENTION
;
360 return RETURN_VALUE_STRUCT_CONVENTION
;
363 /* Routines to extract various sized constants out of hppa
366 /* This assumes that no garbage lies outside of the lower bits of
370 sign_extend (unsigned val
, unsigned bits
)
372 return (int) (val
>> (bits
- 1) ? (-1 << bits
) | val
: val
);
375 /* For many immediate values the sign bit is the low bit! */
378 low_sign_extend (unsigned val
, unsigned bits
)
380 return (int) ((val
& 0x1 ? (-1 << (bits
- 1)) : 0) | val
>> 1);
383 /* Extract the bits at positions between FROM and TO, using HP's numbering
387 get_field (unsigned word
, int from
, int to
)
389 return ((word
) >> (31 - (to
)) & ((1 << ((to
) - (from
) + 1)) - 1));
392 /* extract the immediate field from a ld{bhw}s instruction */
395 extract_5_load (unsigned word
)
397 return low_sign_extend (word
>> 16 & MASK_5
, 5);
400 /* extract the immediate field from a break instruction */
403 extract_5r_store (unsigned word
)
405 return (word
& MASK_5
);
408 /* extract the immediate field from a {sr}sm instruction */
411 extract_5R_store (unsigned word
)
413 return (word
>> 16 & MASK_5
);
416 /* extract a 14 bit immediate field */
419 extract_14 (unsigned word
)
421 return low_sign_extend (word
& MASK_14
, 14);
424 /* deposit a 14 bit constant in a word */
427 deposit_14 (int opnd
, unsigned word
)
429 unsigned sign
= (opnd
< 0 ? 1 : 0);
431 return word
| ((unsigned) opnd
<< 1 & MASK_14
) | sign
;
434 /* extract a 21 bit constant */
437 extract_21 (unsigned word
)
443 val
= get_field (word
, 20, 20);
445 val
|= get_field (word
, 9, 19);
447 val
|= get_field (word
, 5, 6);
449 val
|= get_field (word
, 0, 4);
451 val
|= get_field (word
, 7, 8);
452 return sign_extend (val
, 21) << 11;
455 /* deposit a 21 bit constant in a word. Although 21 bit constants are
456 usually the top 21 bits of a 32 bit constant, we assume that only
457 the low 21 bits of opnd are relevant */
460 deposit_21 (unsigned opnd
, unsigned word
)
464 val
|= get_field (opnd
, 11 + 14, 11 + 18);
466 val
|= get_field (opnd
, 11 + 12, 11 + 13);
468 val
|= get_field (opnd
, 11 + 19, 11 + 20);
470 val
|= get_field (opnd
, 11 + 1, 11 + 11);
472 val
|= get_field (opnd
, 11 + 0, 11 + 0);
476 /* extract a 17 bit constant from branch instructions, returning the
477 19 bit signed value. */
480 extract_17 (unsigned word
)
482 return sign_extend (get_field (word
, 19, 28) |
483 get_field (word
, 29, 29) << 10 |
484 get_field (word
, 11, 15) << 11 |
485 (word
& 0x1) << 16, 17) << 2;
489 /* Compare the start address for two unwind entries returning 1 if
490 the first address is larger than the second, -1 if the second is
491 larger than the first, and zero if they are equal. */
494 compare_unwind_entries (const void *arg1
, const void *arg2
)
496 const struct unwind_table_entry
*a
= arg1
;
497 const struct unwind_table_entry
*b
= arg2
;
499 if (a
->region_start
> b
->region_start
)
501 else if (a
->region_start
< b
->region_start
)
507 static CORE_ADDR low_text_segment_address
;
510 record_text_segment_lowaddr (bfd
*abfd
, asection
*section
, void *ignored
)
512 if (((section
->flags
& (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
))
513 == (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
))
514 && section
->vma
< low_text_segment_address
)
515 low_text_segment_address
= section
->vma
;
519 internalize_unwinds (struct objfile
*objfile
, struct unwind_table_entry
*table
,
520 asection
*section
, unsigned int entries
, unsigned int size
,
521 CORE_ADDR text_offset
)
523 /* We will read the unwind entries into temporary memory, then
524 fill in the actual unwind table. */
529 char *buf
= alloca (size
);
531 low_text_segment_address
= -1;
533 /* If addresses are 64 bits wide, then unwinds are supposed to
534 be segment relative offsets instead of absolute addresses.
536 Note that when loading a shared library (text_offset != 0) the
537 unwinds are already relative to the text_offset that will be
539 if (TARGET_PTR_BIT
== 64 && text_offset
== 0)
541 bfd_map_over_sections (objfile
->obfd
,
542 record_text_segment_lowaddr
, NULL
);
544 /* ?!? Mask off some low bits. Should this instead subtract
545 out the lowest section's filepos or something like that?
546 This looks very hokey to me. */
547 low_text_segment_address
&= ~0xfff;
548 text_offset
+= low_text_segment_address
;
551 bfd_get_section_contents (objfile
->obfd
, section
, buf
, 0, size
);
553 /* Now internalize the information being careful to handle host/target
555 for (i
= 0; i
< entries
; i
++)
557 table
[i
].region_start
= bfd_get_32 (objfile
->obfd
,
559 table
[i
].region_start
+= text_offset
;
561 table
[i
].region_end
= bfd_get_32 (objfile
->obfd
, (bfd_byte
*) buf
);
562 table
[i
].region_end
+= text_offset
;
564 tmp
= bfd_get_32 (objfile
->obfd
, (bfd_byte
*) buf
);
566 table
[i
].Cannot_unwind
= (tmp
>> 31) & 0x1;
567 table
[i
].Millicode
= (tmp
>> 30) & 0x1;
568 table
[i
].Millicode_save_sr0
= (tmp
>> 29) & 0x1;
569 table
[i
].Region_description
= (tmp
>> 27) & 0x3;
570 table
[i
].reserved1
= (tmp
>> 26) & 0x1;
571 table
[i
].Entry_SR
= (tmp
>> 25) & 0x1;
572 table
[i
].Entry_FR
= (tmp
>> 21) & 0xf;
573 table
[i
].Entry_GR
= (tmp
>> 16) & 0x1f;
574 table
[i
].Args_stored
= (tmp
>> 15) & 0x1;
575 table
[i
].Variable_Frame
= (tmp
>> 14) & 0x1;
576 table
[i
].Separate_Package_Body
= (tmp
>> 13) & 0x1;
577 table
[i
].Frame_Extension_Millicode
= (tmp
>> 12) & 0x1;
578 table
[i
].Stack_Overflow_Check
= (tmp
>> 11) & 0x1;
579 table
[i
].Two_Instruction_SP_Increment
= (tmp
>> 10) & 0x1;
580 table
[i
].Ada_Region
= (tmp
>> 9) & 0x1;
581 table
[i
].cxx_info
= (tmp
>> 8) & 0x1;
582 table
[i
].cxx_try_catch
= (tmp
>> 7) & 0x1;
583 table
[i
].sched_entry_seq
= (tmp
>> 6) & 0x1;
584 table
[i
].reserved2
= (tmp
>> 5) & 0x1;
585 table
[i
].Save_SP
= (tmp
>> 4) & 0x1;
586 table
[i
].Save_RP
= (tmp
>> 3) & 0x1;
587 table
[i
].Save_MRP_in_frame
= (tmp
>> 2) & 0x1;
588 table
[i
].extn_ptr_defined
= (tmp
>> 1) & 0x1;
589 table
[i
].Cleanup_defined
= tmp
& 0x1;
590 tmp
= bfd_get_32 (objfile
->obfd
, (bfd_byte
*) buf
);
592 table
[i
].MPE_XL_interrupt_marker
= (tmp
>> 31) & 0x1;
593 table
[i
].HP_UX_interrupt_marker
= (tmp
>> 30) & 0x1;
594 table
[i
].Large_frame
= (tmp
>> 29) & 0x1;
595 table
[i
].Pseudo_SP_Set
= (tmp
>> 28) & 0x1;
596 table
[i
].reserved4
= (tmp
>> 27) & 0x1;
597 table
[i
].Total_frame_size
= tmp
& 0x7ffffff;
599 /* Stub unwinds are handled elsewhere. */
600 table
[i
].stub_unwind
.stub_type
= 0;
601 table
[i
].stub_unwind
.padding
= 0;
606 /* Read in the backtrace information stored in the `$UNWIND_START$' section of
607 the object file. This info is used mainly by find_unwind_entry() to find
608 out the stack frame size and frame pointer used by procedures. We put
609 everything on the psymbol obstack in the objfile so that it automatically
610 gets freed when the objfile is destroyed. */
613 read_unwind_info (struct objfile
*objfile
)
615 asection
*unwind_sec
, *stub_unwind_sec
;
616 unsigned unwind_size
, stub_unwind_size
, total_size
;
617 unsigned index
, unwind_entries
;
618 unsigned stub_entries
, total_entries
;
619 CORE_ADDR text_offset
;
620 struct obj_unwind_info
*ui
;
621 obj_private_data_t
*obj_private
;
623 text_offset
= ANOFFSET (objfile
->section_offsets
, 0);
624 ui
= (struct obj_unwind_info
*) obstack_alloc (&objfile
->objfile_obstack
,
625 sizeof (struct obj_unwind_info
));
631 /* For reasons unknown the HP PA64 tools generate multiple unwinder
632 sections in a single executable. So we just iterate over every
633 section in the BFD looking for unwinder sections intead of trying
634 to do a lookup with bfd_get_section_by_name.
636 First determine the total size of the unwind tables so that we
637 can allocate memory in a nice big hunk. */
639 for (unwind_sec
= objfile
->obfd
->sections
;
641 unwind_sec
= unwind_sec
->next
)
643 if (strcmp (unwind_sec
->name
, "$UNWIND_START$") == 0
644 || strcmp (unwind_sec
->name
, ".PARISC.unwind") == 0)
646 unwind_size
= bfd_section_size (objfile
->obfd
, unwind_sec
);
647 unwind_entries
= unwind_size
/ UNWIND_ENTRY_SIZE
;
649 total_entries
+= unwind_entries
;
653 /* Now compute the size of the stub unwinds. Note the ELF tools do not
654 use stub unwinds at the curren time. */
655 stub_unwind_sec
= bfd_get_section_by_name (objfile
->obfd
, "$UNWIND_END$");
659 stub_unwind_size
= bfd_section_size (objfile
->obfd
, stub_unwind_sec
);
660 stub_entries
= stub_unwind_size
/ STUB_UNWIND_ENTRY_SIZE
;
664 stub_unwind_size
= 0;
668 /* Compute total number of unwind entries and their total size. */
669 total_entries
+= stub_entries
;
670 total_size
= total_entries
* sizeof (struct unwind_table_entry
);
672 /* Allocate memory for the unwind table. */
673 ui
->table
= (struct unwind_table_entry
*)
674 obstack_alloc (&objfile
->objfile_obstack
, total_size
);
675 ui
->last
= total_entries
- 1;
677 /* Now read in each unwind section and internalize the standard unwind
680 for (unwind_sec
= objfile
->obfd
->sections
;
682 unwind_sec
= unwind_sec
->next
)
684 if (strcmp (unwind_sec
->name
, "$UNWIND_START$") == 0
685 || strcmp (unwind_sec
->name
, ".PARISC.unwind") == 0)
687 unwind_size
= bfd_section_size (objfile
->obfd
, unwind_sec
);
688 unwind_entries
= unwind_size
/ UNWIND_ENTRY_SIZE
;
690 internalize_unwinds (objfile
, &ui
->table
[index
], unwind_sec
,
691 unwind_entries
, unwind_size
, text_offset
);
692 index
+= unwind_entries
;
696 /* Now read in and internalize the stub unwind entries. */
697 if (stub_unwind_size
> 0)
700 char *buf
= alloca (stub_unwind_size
);
702 /* Read in the stub unwind entries. */
703 bfd_get_section_contents (objfile
->obfd
, stub_unwind_sec
, buf
,
704 0, stub_unwind_size
);
706 /* Now convert them into regular unwind entries. */
707 for (i
= 0; i
< stub_entries
; i
++, index
++)
709 /* Clear out the next unwind entry. */
710 memset (&ui
->table
[index
], 0, sizeof (struct unwind_table_entry
));
712 /* Convert offset & size into region_start and region_end.
713 Stuff away the stub type into "reserved" fields. */
714 ui
->table
[index
].region_start
= bfd_get_32 (objfile
->obfd
,
716 ui
->table
[index
].region_start
+= text_offset
;
718 ui
->table
[index
].stub_unwind
.stub_type
= bfd_get_8 (objfile
->obfd
,
721 ui
->table
[index
].region_end
722 = ui
->table
[index
].region_start
+ 4 *
723 (bfd_get_16 (objfile
->obfd
, (bfd_byte
*) buf
) - 1);
729 /* Unwind table needs to be kept sorted. */
730 qsort (ui
->table
, total_entries
, sizeof (struct unwind_table_entry
),
731 compare_unwind_entries
);
733 /* Keep a pointer to the unwind information. */
734 if (objfile
->obj_private
== NULL
)
736 obj_private
= (obj_private_data_t
*)
737 obstack_alloc (&objfile
->objfile_obstack
,
738 sizeof (obj_private_data_t
));
739 obj_private
->unwind_info
= NULL
;
740 obj_private
->so_info
= NULL
;
743 objfile
->obj_private
= obj_private
;
745 obj_private
= (obj_private_data_t
*) objfile
->obj_private
;
746 obj_private
->unwind_info
= ui
;
749 /* Lookup the unwind (stack backtrace) info for the given PC. We search all
750 of the objfiles seeking the unwind table entry for this PC. Each objfile
751 contains a sorted list of struct unwind_table_entry. Since we do a binary
752 search of the unwind tables, we depend upon them to be sorted. */
754 struct unwind_table_entry
*
755 find_unwind_entry (CORE_ADDR pc
)
757 int first
, middle
, last
;
758 struct objfile
*objfile
;
760 /* A function at address 0? Not in HP-UX! */
761 if (pc
== (CORE_ADDR
) 0)
764 ALL_OBJFILES (objfile
)
766 struct obj_unwind_info
*ui
;
768 if (objfile
->obj_private
)
769 ui
= ((obj_private_data_t
*) (objfile
->obj_private
))->unwind_info
;
773 read_unwind_info (objfile
);
774 if (objfile
->obj_private
== NULL
)
775 error ("Internal error reading unwind information.");
776 ui
= ((obj_private_data_t
*) (objfile
->obj_private
))->unwind_info
;
779 /* First, check the cache */
782 && pc
>= ui
->cache
->region_start
783 && pc
<= ui
->cache
->region_end
)
786 /* Not in the cache, do a binary search */
791 while (first
<= last
)
793 middle
= (first
+ last
) / 2;
794 if (pc
>= ui
->table
[middle
].region_start
795 && pc
<= ui
->table
[middle
].region_end
)
797 ui
->cache
= &ui
->table
[middle
];
798 return &ui
->table
[middle
];
801 if (pc
< ui
->table
[middle
].region_start
)
806 } /* ALL_OBJFILES() */
810 const unsigned char *
811 hppa_breakpoint_from_pc (CORE_ADDR
*pc
, int *len
)
813 static const unsigned char breakpoint
[] = {0x00, 0x01, 0x00, 0x04};
814 (*len
) = sizeof (breakpoint
);
818 /* Return the name of a register. */
821 hppa32_register_name (int i
)
823 static char *names
[] = {
824 "flags", "r1", "rp", "r3",
825 "r4", "r5", "r6", "r7",
826 "r8", "r9", "r10", "r11",
827 "r12", "r13", "r14", "r15",
828 "r16", "r17", "r18", "r19",
829 "r20", "r21", "r22", "r23",
830 "r24", "r25", "r26", "dp",
831 "ret0", "ret1", "sp", "r31",
832 "sar", "pcoqh", "pcsqh", "pcoqt",
833 "pcsqt", "eiem", "iir", "isr",
834 "ior", "ipsw", "goto", "sr4",
835 "sr0", "sr1", "sr2", "sr3",
836 "sr5", "sr6", "sr7", "cr0",
837 "cr8", "cr9", "ccr", "cr12",
838 "cr13", "cr24", "cr25", "cr26",
839 "mpsfu_high","mpsfu_low","mpsfu_ovflo","pad",
840 "fpsr", "fpe1", "fpe2", "fpe3",
841 "fpe4", "fpe5", "fpe6", "fpe7",
842 "fr4", "fr4R", "fr5", "fr5R",
843 "fr6", "fr6R", "fr7", "fr7R",
844 "fr8", "fr8R", "fr9", "fr9R",
845 "fr10", "fr10R", "fr11", "fr11R",
846 "fr12", "fr12R", "fr13", "fr13R",
847 "fr14", "fr14R", "fr15", "fr15R",
848 "fr16", "fr16R", "fr17", "fr17R",
849 "fr18", "fr18R", "fr19", "fr19R",
850 "fr20", "fr20R", "fr21", "fr21R",
851 "fr22", "fr22R", "fr23", "fr23R",
852 "fr24", "fr24R", "fr25", "fr25R",
853 "fr26", "fr26R", "fr27", "fr27R",
854 "fr28", "fr28R", "fr29", "fr29R",
855 "fr30", "fr30R", "fr31", "fr31R"
857 if (i
< 0 || i
>= (sizeof (names
) / sizeof (*names
)))
864 hppa64_register_name (int i
)
866 static char *names
[] = {
867 "flags", "r1", "rp", "r3",
868 "r4", "r5", "r6", "r7",
869 "r8", "r9", "r10", "r11",
870 "r12", "r13", "r14", "r15",
871 "r16", "r17", "r18", "r19",
872 "r20", "r21", "r22", "r23",
873 "r24", "r25", "r26", "dp",
874 "ret0", "ret1", "sp", "r31",
875 "sar", "pcoqh", "pcsqh", "pcoqt",
876 "pcsqt", "eiem", "iir", "isr",
877 "ior", "ipsw", "goto", "sr4",
878 "sr0", "sr1", "sr2", "sr3",
879 "sr5", "sr6", "sr7", "cr0",
880 "cr8", "cr9", "ccr", "cr12",
881 "cr13", "cr24", "cr25", "cr26",
882 "mpsfu_high","mpsfu_low","mpsfu_ovflo","pad",
883 "fpsr", "fpe1", "fpe2", "fpe3",
884 "fr4", "fr5", "fr6", "fr7",
885 "fr8", "fr9", "fr10", "fr11",
886 "fr12", "fr13", "fr14", "fr15",
887 "fr16", "fr17", "fr18", "fr19",
888 "fr20", "fr21", "fr22", "fr23",
889 "fr24", "fr25", "fr26", "fr27",
890 "fr28", "fr29", "fr30", "fr31"
892 if (i
< 0 || i
>= (sizeof (names
) / sizeof (*names
)))
900 /* Return the adjustment necessary to make for addresses on the stack
901 as presented by hpread.c.
903 This is necessary because of the stack direction on the PA and the
904 bizarre way in which someone (?) decided they wanted to handle
905 frame pointerless code in GDB. */
907 hpread_adjust_stack_address (CORE_ADDR func_addr
)
909 struct unwind_table_entry
*u
;
911 u
= find_unwind_entry (func_addr
);
915 return u
->Total_frame_size
<< 3;
918 /* Called to determine if PC is in an interrupt handler of some
922 pc_in_interrupt_handler (CORE_ADDR pc
)
924 struct unwind_table_entry
*u
;
925 struct minimal_symbol
*msym_us
;
927 u
= find_unwind_entry (pc
);
931 /* Oh joys. HPUX sets the interrupt bit for _sigreturn even though
932 its frame isn't a pure interrupt frame. Deal with this. */
933 msym_us
= lookup_minimal_symbol_by_pc (pc
);
935 return (u
->HP_UX_interrupt_marker
936 && !PC_IN_SIGTRAMP (pc
, DEPRECATED_SYMBOL_NAME (msym_us
)));
939 /* Called when no unwind descriptor was found for PC. Returns 1 if it
940 appears that PC is in a linker stub.
942 ?!? Need to handle stubs which appear in PA64 code. */
945 pc_in_linker_stub (CORE_ADDR pc
)
947 int found_magic_instruction
= 0;
951 /* If unable to read memory, assume pc is not in a linker stub. */
952 if (target_read_memory (pc
, buf
, 4) != 0)
955 /* We are looking for something like
957 ; $$dyncall jams RP into this special spot in the frame (RP')
958 ; before calling the "call stub"
961 ldsid (rp),r1 ; Get space associated with RP into r1
962 mtsp r1,sp ; Move it into space register 0
963 be,n 0(sr0),rp) ; back to your regularly scheduled program */
965 /* Maximum known linker stub size is 4 instructions. Search forward
966 from the given PC, then backward. */
967 for (i
= 0; i
< 4; i
++)
969 /* If we hit something with an unwind, stop searching this direction. */
971 if (find_unwind_entry (pc
+ i
* 4) != 0)
974 /* Check for ldsid (rp),r1 which is the magic instruction for a
975 return from a cross-space function call. */
976 if (read_memory_integer (pc
+ i
* 4, 4) == 0x004010a1)
978 found_magic_instruction
= 1;
981 /* Add code to handle long call/branch and argument relocation stubs
985 if (found_magic_instruction
!= 0)
988 /* Now look backward. */
989 for (i
= 0; i
< 4; i
++)
991 /* If we hit something with an unwind, stop searching this direction. */
993 if (find_unwind_entry (pc
- i
* 4) != 0)
996 /* Check for ldsid (rp),r1 which is the magic instruction for a
997 return from a cross-space function call. */
998 if (read_memory_integer (pc
- i
* 4, 4) == 0x004010a1)
1000 found_magic_instruction
= 1;
1003 /* Add code to handle long call/branch and argument relocation stubs
1006 return found_magic_instruction
;
1010 find_return_regnum (CORE_ADDR pc
)
1012 struct unwind_table_entry
*u
;
1014 u
= find_unwind_entry (pc
);
1025 /* Return size of frame, or -1 if we should use a frame pointer. */
1027 find_proc_framesize (CORE_ADDR pc
)
1029 struct unwind_table_entry
*u
;
1030 struct minimal_symbol
*msym_us
;
1032 /* This may indicate a bug in our callers... */
1033 if (pc
== (CORE_ADDR
) 0)
1036 u
= find_unwind_entry (pc
);
1040 if (pc_in_linker_stub (pc
))
1041 /* Linker stubs have a zero size frame. */
1047 msym_us
= lookup_minimal_symbol_by_pc (pc
);
1049 /* If Save_SP is set, and we're not in an interrupt or signal caller,
1050 then we have a frame pointer. Use it. */
1052 && !pc_in_interrupt_handler (pc
)
1054 && !PC_IN_SIGTRAMP (pc
, DEPRECATED_SYMBOL_NAME (msym_us
)))
1057 return u
->Total_frame_size
<< 3;
1060 /* Return offset from sp at which rp is saved, or 0 if not saved. */
1061 static int rp_saved (CORE_ADDR
);
1064 rp_saved (CORE_ADDR pc
)
1066 struct unwind_table_entry
*u
;
1068 /* A function at, and thus a return PC from, address 0? Not in HP-UX! */
1069 if (pc
== (CORE_ADDR
) 0)
1072 u
= find_unwind_entry (pc
);
1076 if (pc_in_linker_stub (pc
))
1077 /* This is the so-called RP'. */
1084 return (TARGET_PTR_BIT
== 64 ? -16 : -20);
1085 else if (u
->stub_unwind
.stub_type
!= 0)
1087 switch (u
->stub_unwind
.stub_type
)
1092 case PARAMETER_RELOCATION
:
1103 hppa_frameless_function_invocation (struct frame_info
*frame
)
1105 struct unwind_table_entry
*u
;
1107 u
= find_unwind_entry (get_frame_pc (frame
));
1112 return (u
->Total_frame_size
== 0 && u
->stub_unwind
.stub_type
== 0);
1115 /* Immediately after a function call, return the saved pc.
1116 Can't go through the frames for this because on some machines
1117 the new frame is not set up until the new function executes
1118 some instructions. */
1121 hppa_saved_pc_after_call (struct frame_info
*frame
)
1125 struct unwind_table_entry
*u
;
1127 ret_regnum
= find_return_regnum (get_frame_pc (frame
));
1128 pc
= read_register (ret_regnum
) & ~0x3;
1130 /* If PC is in a linker stub, then we need to dig the address
1131 the stub will return to out of the stack. */
1132 u
= find_unwind_entry (pc
);
1133 if (u
&& u
->stub_unwind
.stub_type
!= 0)
1134 return DEPRECATED_FRAME_SAVED_PC (frame
);
1140 hppa_frame_saved_pc (struct frame_info
*frame
)
1142 CORE_ADDR pc
= get_frame_pc (frame
);
1143 struct unwind_table_entry
*u
;
1144 CORE_ADDR old_pc
= 0;
1145 int spun_around_loop
= 0;
1148 /* BSD, HPUX & OSF1 all lay out the hardware state in the same manner
1149 at the base of the frame in an interrupt handler. Registers within
1150 are saved in the exact same order as GDB numbers registers. How
1152 if (pc_in_interrupt_handler (pc
))
1153 return read_memory_integer (get_frame_base (frame
) + PC_REGNUM
* 4,
1154 TARGET_PTR_BIT
/ 8) & ~0x3;
1156 if ((get_frame_pc (frame
) >= get_frame_base (frame
)
1157 && (get_frame_pc (frame
)
1158 <= (get_frame_base (frame
)
1159 /* A call dummy is sized in words, but it is actually a
1160 series of instructions. Account for that scaling
1162 + ((DEPRECATED_REGISTER_SIZE
/ INSTRUCTION_SIZE
)
1163 * DEPRECATED_CALL_DUMMY_LENGTH
)
1164 /* Similarly we have to account for 64bit wide register
1166 + (32 * DEPRECATED_REGISTER_SIZE
)
1167 /* We always consider FP regs 8 bytes long. */
1168 + (NUM_REGS
- FP0_REGNUM
) * 8
1169 /* Similarly we have to account for 64bit wide register
1171 + (6 * DEPRECATED_REGISTER_SIZE
)))))
1173 return read_memory_integer ((get_frame_base (frame
)
1174 + (TARGET_PTR_BIT
== 64 ? -16 : -20)),
1175 TARGET_PTR_BIT
/ 8) & ~0x3;
1178 #ifdef FRAME_SAVED_PC_IN_SIGTRAMP
1179 /* Deal with signal handler caller frames too. */
1180 if ((get_frame_type (frame
) == SIGTRAMP_FRAME
))
1183 FRAME_SAVED_PC_IN_SIGTRAMP (frame
, &rp
);
1188 if (hppa_frameless_function_invocation (frame
))
1192 ret_regnum
= find_return_regnum (pc
);
1194 /* If the next frame is an interrupt frame or a signal
1195 handler caller, then we need to look in the saved
1196 register area to get the return pointer (the values
1197 in the registers may not correspond to anything useful). */
1198 if (get_next_frame (frame
)
1199 && ((get_frame_type (get_next_frame (frame
)) == SIGTRAMP_FRAME
)
1200 || pc_in_interrupt_handler (get_frame_pc (get_next_frame (frame
)))))
1202 CORE_ADDR
*saved_regs
;
1203 hppa_frame_init_saved_regs (get_next_frame (frame
));
1204 saved_regs
= deprecated_get_frame_saved_regs (get_next_frame (frame
));
1205 if (read_memory_integer (saved_regs
[FLAGS_REGNUM
],
1206 TARGET_PTR_BIT
/ 8) & 0x2)
1208 pc
= read_memory_integer (saved_regs
[31],
1209 TARGET_PTR_BIT
/ 8) & ~0x3;
1211 /* Syscalls are really two frames. The syscall stub itself
1212 with a return pointer in %rp and the kernel call with
1213 a return pointer in %r31. We return the %rp variant
1214 if %r31 is the same as frame->pc. */
1215 if (pc
== get_frame_pc (frame
))
1216 pc
= read_memory_integer (saved_regs
[RP_REGNUM
],
1217 TARGET_PTR_BIT
/ 8) & ~0x3;
1220 pc
= read_memory_integer (saved_regs
[RP_REGNUM
],
1221 TARGET_PTR_BIT
/ 8) & ~0x3;
1224 pc
= read_register (ret_regnum
) & ~0x3;
1228 spun_around_loop
= 0;
1232 rp_offset
= rp_saved (pc
);
1234 /* Similar to code in frameless function case. If the next
1235 frame is a signal or interrupt handler, then dig the right
1236 information out of the saved register info. */
1238 && get_next_frame (frame
)
1239 && ((get_frame_type (get_next_frame (frame
)) == SIGTRAMP_FRAME
)
1240 || pc_in_interrupt_handler (get_frame_pc (get_next_frame (frame
)))))
1242 CORE_ADDR
*saved_regs
;
1243 hppa_frame_init_saved_regs (get_next_frame (frame
));
1244 saved_regs
= deprecated_get_frame_saved_regs (get_next_frame (frame
));
1245 if (read_memory_integer (saved_regs
[FLAGS_REGNUM
],
1246 TARGET_PTR_BIT
/ 8) & 0x2)
1248 pc
= read_memory_integer (saved_regs
[31],
1249 TARGET_PTR_BIT
/ 8) & ~0x3;
1251 /* Syscalls are really two frames. The syscall stub itself
1252 with a return pointer in %rp and the kernel call with
1253 a return pointer in %r31. We return the %rp variant
1254 if %r31 is the same as frame->pc. */
1255 if (pc
== get_frame_pc (frame
))
1256 pc
= read_memory_integer (saved_regs
[RP_REGNUM
],
1257 TARGET_PTR_BIT
/ 8) & ~0x3;
1260 pc
= read_memory_integer (saved_regs
[RP_REGNUM
],
1261 TARGET_PTR_BIT
/ 8) & ~0x3;
1263 else if (rp_offset
== 0)
1266 pc
= read_register (RP_REGNUM
) & ~0x3;
1271 pc
= read_memory_integer (get_frame_base (frame
) + rp_offset
,
1272 TARGET_PTR_BIT
/ 8) & ~0x3;
1276 /* If PC is inside a linker stub, then dig out the address the stub
1279 Don't do this for long branch stubs. Why? For some unknown reason
1280 _start is marked as a long branch stub in hpux10. */
1281 u
= find_unwind_entry (pc
);
1282 if (u
&& u
->stub_unwind
.stub_type
!= 0
1283 && u
->stub_unwind
.stub_type
!= LONG_BRANCH
)
1287 /* If this is a dynamic executable, and we're in a signal handler,
1288 then the call chain will eventually point us into the stub for
1289 _sigreturn. Unlike most cases, we'll be pointed to the branch
1290 to the real sigreturn rather than the code after the real branch!.
1292 Else, try to dig the address the stub will return to in the normal
1294 insn
= read_memory_integer (pc
, 4);
1295 if ((insn
& 0xfc00e000) == 0xe8000000)
1296 return (pc
+ extract_17 (insn
) + 8) & ~0x3;
1302 if (spun_around_loop
> 1)
1304 /* We're just about to go around the loop again with
1305 no more hope of success. Die. */
1306 error ("Unable to find return pc for this frame");
1316 /* We need to correct the PC and the FP for the outermost frame when we are
1317 in a system call. */
1320 hppa_init_extra_frame_info (int fromleaf
, struct frame_info
*frame
)
1325 if (get_next_frame (frame
) && !fromleaf
)
1328 /* If the next frame represents a frameless function invocation then
1329 we have to do some adjustments that are normally done by
1330 DEPRECATED_FRAME_CHAIN. (DEPRECATED_FRAME_CHAIN is not called in
1334 /* Find the framesize of *this* frame without peeking at the PC
1335 in the current frame structure (it isn't set yet). */
1336 framesize
= find_proc_framesize (DEPRECATED_FRAME_SAVED_PC (get_next_frame (frame
)));
1338 /* Now adjust our base frame accordingly. If we have a frame pointer
1339 use it, else subtract the size of this frame from the current
1340 frame. (we always want frame->frame to point at the lowest address
1342 if (framesize
== -1)
1343 deprecated_update_frame_base_hack (frame
, deprecated_read_fp ());
1345 deprecated_update_frame_base_hack (frame
, get_frame_base (frame
) - framesize
);
1349 flags
= read_register (FLAGS_REGNUM
);
1350 if (flags
& 2) /* In system call? */
1351 deprecated_update_frame_pc_hack (frame
, read_register (31) & ~0x3);
1353 /* The outermost frame is always derived from PC-framesize
1355 One might think frameless innermost frames should have
1356 a frame->frame that is the same as the parent's frame->frame.
1357 That is wrong; frame->frame in that case should be the *high*
1358 address of the parent's frame. It's complicated as hell to
1359 explain, but the parent *always* creates some stack space for
1360 the child. So the child actually does have a frame of some
1361 sorts, and its base is the high address in its parent's frame. */
1362 framesize
= find_proc_framesize (get_frame_pc (frame
));
1363 if (framesize
== -1)
1364 deprecated_update_frame_base_hack (frame
, deprecated_read_fp ());
1366 deprecated_update_frame_base_hack (frame
, read_register (SP_REGNUM
) - framesize
);
1369 /* Given a GDB frame, determine the address of the calling function's
1370 frame. This will be used to create a new GDB frame struct, and
1371 then DEPRECATED_INIT_EXTRA_FRAME_INFO and DEPRECATED_INIT_FRAME_PC
1372 will be called for the new frame.
1374 This may involve searching through prologues for several functions
1375 at boundaries where GCC calls HP C code, or where code which has
1376 a frame pointer calls code without a frame pointer. */
1379 hppa_frame_chain (struct frame_info
*frame
)
1381 int my_framesize
, caller_framesize
;
1382 struct unwind_table_entry
*u
;
1383 CORE_ADDR frame_base
;
1384 struct frame_info
*tmp_frame
;
1386 /* A frame in the current frame list, or zero. */
1387 struct frame_info
*saved_regs_frame
= 0;
1388 /* Where the registers were saved in saved_regs_frame. If
1389 saved_regs_frame is zero, this is garbage. */
1390 CORE_ADDR
*saved_regs
= NULL
;
1392 CORE_ADDR caller_pc
;
1394 struct minimal_symbol
*min_frame_symbol
;
1395 struct symbol
*frame_symbol
;
1396 char *frame_symbol_name
;
1398 /* If this is a threaded application, and we see the
1399 routine "__pthread_exit", treat it as the stack root
1401 min_frame_symbol
= lookup_minimal_symbol_by_pc (get_frame_pc (frame
));
1402 frame_symbol
= find_pc_function (get_frame_pc (frame
));
1404 if ((min_frame_symbol
!= 0) /* && (frame_symbol == 0) */ )
1406 /* The test above for "no user function name" would defend
1407 against the slim likelihood that a user might define a
1408 routine named "__pthread_exit" and then try to debug it.
1410 If it weren't commented out, and you tried to debug the
1411 pthread library itself, you'd get errors.
1413 So for today, we don't make that check. */
1414 frame_symbol_name
= DEPRECATED_SYMBOL_NAME (min_frame_symbol
);
1415 if (frame_symbol_name
!= 0)
1417 if (0 == strncmp (frame_symbol_name
,
1418 THREAD_INITIAL_FRAME_SYMBOL
,
1419 THREAD_INITIAL_FRAME_SYM_LEN
))
1421 /* Pretend we've reached the bottom of the stack. */
1422 return (CORE_ADDR
) 0;
1425 } /* End of hacky code for threads. */
1427 /* Handle HPUX, BSD, and OSF1 style interrupt frames first. These
1428 are easy; at *sp we have a full save state strucutre which we can
1429 pull the old stack pointer from. Also see frame_saved_pc for
1430 code to dig a saved PC out of the save state structure. */
1431 if (pc_in_interrupt_handler (get_frame_pc (frame
)))
1432 frame_base
= read_memory_integer (get_frame_base (frame
) + SP_REGNUM
* 4,
1433 TARGET_PTR_BIT
/ 8);
1434 #ifdef FRAME_BASE_BEFORE_SIGTRAMP
1435 else if ((get_frame_type (frame
) == SIGTRAMP_FRAME
))
1437 FRAME_BASE_BEFORE_SIGTRAMP (frame
, &frame_base
);
1441 frame_base
= get_frame_base (frame
);
1443 /* Get frame sizes for the current frame and the frame of the
1445 my_framesize
= find_proc_framesize (get_frame_pc (frame
));
1446 caller_pc
= DEPRECATED_FRAME_SAVED_PC (frame
);
1448 /* If we can't determine the caller's PC, then it's not likely we can
1449 really determine anything meaningful about its frame. We'll consider
1450 this to be stack bottom. */
1451 if (caller_pc
== (CORE_ADDR
) 0)
1452 return (CORE_ADDR
) 0;
1454 caller_framesize
= find_proc_framesize (DEPRECATED_FRAME_SAVED_PC (frame
));
1456 /* If caller does not have a frame pointer, then its frame
1457 can be found at current_frame - caller_framesize. */
1458 if (caller_framesize
!= -1)
1460 return frame_base
- caller_framesize
;
1462 /* Both caller and callee have frame pointers and are GCC compiled
1463 (SAVE_SP bit in unwind descriptor is on for both functions.
1464 The previous frame pointer is found at the top of the current frame. */
1465 if (caller_framesize
== -1 && my_framesize
== -1)
1467 return read_memory_integer (frame_base
, TARGET_PTR_BIT
/ 8);
1469 /* Caller has a frame pointer, but callee does not. This is a little
1470 more difficult as GCC and HP C lay out locals and callee register save
1471 areas very differently.
1473 The previous frame pointer could be in a register, or in one of
1474 several areas on the stack.
1476 Walk from the current frame to the innermost frame examining
1477 unwind descriptors to determine if %r3 ever gets saved into the
1478 stack. If so return whatever value got saved into the stack.
1479 If it was never saved in the stack, then the value in %r3 is still
1482 We use information from unwind descriptors to determine if %r3
1483 is saved into the stack (Entry_GR field has this information). */
1485 for (tmp_frame
= frame
; tmp_frame
; tmp_frame
= get_next_frame (tmp_frame
))
1487 u
= find_unwind_entry (get_frame_pc (tmp_frame
));
1491 /* We could find this information by examining prologues. I don't
1492 think anyone has actually written any tools (not even "strip")
1493 which leave them out of an executable, so maybe this is a moot
1495 /* ??rehrauer: Actually, it's quite possible to stepi your way into
1496 code that doesn't have unwind entries. For example, stepping into
1497 the dynamic linker will give you a PC that has none. Thus, I've
1498 disabled this warning. */
1500 warning ("Unable to find unwind for PC 0x%x -- Help!", get_frame_pc (tmp_frame
));
1502 return (CORE_ADDR
) 0;
1506 || (get_frame_type (tmp_frame
) == SIGTRAMP_FRAME
)
1507 || pc_in_interrupt_handler (get_frame_pc (tmp_frame
)))
1510 /* Entry_GR specifies the number of callee-saved general registers
1511 saved in the stack. It starts at %r3, so %r3 would be 1. */
1512 if (u
->Entry_GR
>= 1)
1514 /* The unwind entry claims that r3 is saved here. However,
1515 in optimized code, GCC often doesn't actually save r3.
1516 We'll discover this if we look at the prologue. */
1517 hppa_frame_init_saved_regs (tmp_frame
);
1518 saved_regs
= deprecated_get_frame_saved_regs (tmp_frame
);
1519 saved_regs_frame
= tmp_frame
;
1521 /* If we have an address for r3, that's good. */
1522 if (saved_regs
[DEPRECATED_FP_REGNUM
])
1529 /* We may have walked down the chain into a function with a frame
1532 && !(get_frame_type (tmp_frame
) == SIGTRAMP_FRAME
)
1533 && !pc_in_interrupt_handler (get_frame_pc (tmp_frame
)))
1535 return read_memory_integer (get_frame_base (tmp_frame
), TARGET_PTR_BIT
/ 8);
1537 /* %r3 was saved somewhere in the stack. Dig it out. */
1542 For optimization purposes many kernels don't have the
1543 callee saved registers into the save_state structure upon
1544 entry into the kernel for a syscall; the optimization
1545 is usually turned off if the process is being traced so
1546 that the debugger can get full register state for the
1549 This scheme works well except for two cases:
1551 * Attaching to a process when the process is in the
1552 kernel performing a system call (debugger can't get
1553 full register state for the inferior process since
1554 the process wasn't being traced when it entered the
1557 * Register state is not complete if the system call
1558 causes the process to core dump.
1561 The following heinous code is an attempt to deal with
1562 the lack of register state in a core dump. It will
1563 fail miserably if the function which performs the
1564 system call has a variable sized stack frame. */
1566 if (tmp_frame
!= saved_regs_frame
)
1568 hppa_frame_init_saved_regs (tmp_frame
);
1569 saved_regs
= deprecated_get_frame_saved_regs (tmp_frame
);
1572 /* Abominable hack. */
1573 if (current_target
.to_has_execution
== 0
1574 && ((saved_regs
[FLAGS_REGNUM
]
1575 && (read_memory_integer (saved_regs
[FLAGS_REGNUM
],
1578 || (saved_regs
[FLAGS_REGNUM
] == 0
1579 && read_register (FLAGS_REGNUM
) & 0x2)))
1581 u
= find_unwind_entry (DEPRECATED_FRAME_SAVED_PC (frame
));
1584 return read_memory_integer (saved_regs
[DEPRECATED_FP_REGNUM
],
1585 TARGET_PTR_BIT
/ 8);
1589 return frame_base
- (u
->Total_frame_size
<< 3);
1593 return read_memory_integer (saved_regs
[DEPRECATED_FP_REGNUM
],
1594 TARGET_PTR_BIT
/ 8);
1599 /* Get the innermost frame. */
1601 while (get_next_frame (tmp_frame
) != NULL
)
1602 tmp_frame
= get_next_frame (tmp_frame
);
1604 if (tmp_frame
!= saved_regs_frame
)
1606 hppa_frame_init_saved_regs (tmp_frame
);
1607 saved_regs
= deprecated_get_frame_saved_regs (tmp_frame
);
1610 /* Abominable hack. See above. */
1611 if (current_target
.to_has_execution
== 0
1612 && ((saved_regs
[FLAGS_REGNUM
]
1613 && (read_memory_integer (saved_regs
[FLAGS_REGNUM
],
1616 || (saved_regs
[FLAGS_REGNUM
] == 0
1617 && read_register (FLAGS_REGNUM
) & 0x2)))
1619 u
= find_unwind_entry (DEPRECATED_FRAME_SAVED_PC (frame
));
1622 return read_memory_integer (saved_regs
[DEPRECATED_FP_REGNUM
],
1623 TARGET_PTR_BIT
/ 8);
1627 return frame_base
- (u
->Total_frame_size
<< 3);
1631 /* The value in %r3 was never saved into the stack (thus %r3 still
1632 holds the value of the previous frame pointer). */
1633 return deprecated_read_fp ();
1638 /* To see if a frame chain is valid, see if the caller looks like it
1639 was compiled with gcc. */
1642 hppa_frame_chain_valid (CORE_ADDR chain
, struct frame_info
*thisframe
)
1644 struct minimal_symbol
*msym_us
;
1645 struct minimal_symbol
*msym_start
;
1646 struct unwind_table_entry
*u
, *next_u
= NULL
;
1647 struct frame_info
*next
;
1649 u
= find_unwind_entry (get_frame_pc (thisframe
));
1654 /* We can't just check that the same of msym_us is "_start", because
1655 someone idiotically decided that they were going to make a Ltext_end
1656 symbol with the same address. This Ltext_end symbol is totally
1657 indistinguishable (as nearly as I can tell) from the symbol for a function
1658 which is (legitimately, since it is in the user's namespace)
1659 named Ltext_end, so we can't just ignore it. */
1660 msym_us
= lookup_minimal_symbol_by_pc (DEPRECATED_FRAME_SAVED_PC (thisframe
));
1661 msym_start
= lookup_minimal_symbol ("_start", NULL
, NULL
);
1664 && SYMBOL_VALUE_ADDRESS (msym_us
) == SYMBOL_VALUE_ADDRESS (msym_start
))
1667 /* Grrrr. Some new idiot decided that they don't want _start for the
1668 PRO configurations; $START$ calls main directly.... Deal with it. */
1669 msym_start
= lookup_minimal_symbol ("$START$", NULL
, NULL
);
1672 && SYMBOL_VALUE_ADDRESS (msym_us
) == SYMBOL_VALUE_ADDRESS (msym_start
))
1675 next
= get_next_frame (thisframe
);
1677 next_u
= find_unwind_entry (get_frame_pc (next
));
1679 /* If this frame does not save SP, has no stack, isn't a stub,
1680 and doesn't "call" an interrupt routine or signal handler caller,
1681 then its not valid. */
1682 if (u
->Save_SP
|| u
->Total_frame_size
|| u
->stub_unwind
.stub_type
!= 0
1683 || (get_next_frame (thisframe
) && (get_frame_type (get_next_frame (thisframe
)) == SIGTRAMP_FRAME
))
1684 || (next_u
&& next_u
->HP_UX_interrupt_marker
))
1687 if (pc_in_linker_stub (get_frame_pc (thisframe
)))
1693 /* These functions deal with saving and restoring register state
1694 around a function call in the inferior. They keep the stack
1695 double-word aligned; eventually, on an hp700, the stack will have
1696 to be aligned to a 64-byte boundary. */
1699 hppa_push_dummy_frame (void)
1701 CORE_ADDR sp
, pc
, pcspace
;
1703 CORE_ADDR int_buffer
;
1706 pc
= hppa_target_read_pc (inferior_ptid
);
1707 int_buffer
= read_register (FLAGS_REGNUM
);
1708 if (int_buffer
& 0x2)
1710 const unsigned int sid
= (pc
>> 30) & 0x3;
1712 pcspace
= read_register (SR4_REGNUM
);
1714 pcspace
= read_register (SR4_REGNUM
+ 4 + sid
);
1717 pcspace
= read_register (PCSQ_HEAD_REGNUM
);
1719 /* Space for "arguments"; the RP goes in here. */
1720 sp
= read_register (SP_REGNUM
) + 48;
1721 int_buffer
= read_register (RP_REGNUM
) | 0x3;
1723 /* The 32bit and 64bit ABIs save the return pointer into different
1725 if (DEPRECATED_REGISTER_SIZE
== 8)
1726 write_memory (sp
- 16, (char *) &int_buffer
, DEPRECATED_REGISTER_SIZE
);
1728 write_memory (sp
- 20, (char *) &int_buffer
, DEPRECATED_REGISTER_SIZE
);
1730 int_buffer
= deprecated_read_fp ();
1731 write_memory (sp
, (char *) &int_buffer
, DEPRECATED_REGISTER_SIZE
);
1733 write_register (DEPRECATED_FP_REGNUM
, sp
);
1735 sp
+= 2 * DEPRECATED_REGISTER_SIZE
;
1737 for (regnum
= 1; regnum
< 32; regnum
++)
1738 if (regnum
!= RP_REGNUM
&& regnum
!= DEPRECATED_FP_REGNUM
)
1739 sp
= push_word (sp
, read_register (regnum
));
1741 /* This is not necessary for the 64bit ABI. In fact it is dangerous. */
1742 if (DEPRECATED_REGISTER_SIZE
!= 8)
1745 for (regnum
= FP0_REGNUM
; regnum
< NUM_REGS
; regnum
++)
1747 deprecated_read_register_bytes (DEPRECATED_REGISTER_BYTE (regnum
),
1748 (char *) &freg_buffer
, 8);
1749 sp
= push_bytes (sp
, (char *) &freg_buffer
, 8);
1751 sp
= push_word (sp
, read_register (IPSW_REGNUM
));
1752 sp
= push_word (sp
, read_register (SAR_REGNUM
));
1753 sp
= push_word (sp
, pc
);
1754 sp
= push_word (sp
, pcspace
);
1755 sp
= push_word (sp
, pc
+ 4);
1756 sp
= push_word (sp
, pcspace
);
1757 write_register (SP_REGNUM
, sp
);
1761 find_dummy_frame_regs (struct frame_info
*frame
,
1762 CORE_ADDR frame_saved_regs
[])
1764 CORE_ADDR fp
= get_frame_base (frame
);
1767 /* The 32bit and 64bit ABIs save RP into different locations. */
1768 if (DEPRECATED_REGISTER_SIZE
== 8)
1769 frame_saved_regs
[RP_REGNUM
] = (fp
- 16) & ~0x3;
1771 frame_saved_regs
[RP_REGNUM
] = (fp
- 20) & ~0x3;
1773 frame_saved_regs
[DEPRECATED_FP_REGNUM
] = fp
;
1775 frame_saved_regs
[1] = fp
+ (2 * DEPRECATED_REGISTER_SIZE
);
1777 for (fp
+= 3 * DEPRECATED_REGISTER_SIZE
, i
= 3; i
< 32; i
++)
1779 if (i
!= DEPRECATED_FP_REGNUM
)
1781 frame_saved_regs
[i
] = fp
;
1782 fp
+= DEPRECATED_REGISTER_SIZE
;
1786 /* This is not necessary or desirable for the 64bit ABI. */
1787 if (DEPRECATED_REGISTER_SIZE
!= 8)
1790 for (i
= FP0_REGNUM
; i
< NUM_REGS
; i
++, fp
+= 8)
1791 frame_saved_regs
[i
] = fp
;
1793 frame_saved_regs
[IPSW_REGNUM
] = fp
;
1794 frame_saved_regs
[SAR_REGNUM
] = fp
+ DEPRECATED_REGISTER_SIZE
;
1795 frame_saved_regs
[PCOQ_HEAD_REGNUM
] = fp
+ 2 * DEPRECATED_REGISTER_SIZE
;
1796 frame_saved_regs
[PCSQ_HEAD_REGNUM
] = fp
+ 3 * DEPRECATED_REGISTER_SIZE
;
1797 frame_saved_regs
[PCOQ_TAIL_REGNUM
] = fp
+ 4 * DEPRECATED_REGISTER_SIZE
;
1798 frame_saved_regs
[PCSQ_TAIL_REGNUM
] = fp
+ 5 * DEPRECATED_REGISTER_SIZE
;
1802 hppa_pop_frame (void)
1804 struct frame_info
*frame
= get_current_frame ();
1805 CORE_ADDR fp
, npc
, target_pc
;
1810 fp
= get_frame_base (frame
);
1811 hppa_frame_init_saved_regs (frame
);
1812 fsr
= deprecated_get_frame_saved_regs (frame
);
1814 #ifndef NO_PC_SPACE_QUEUE_RESTORE
1815 if (fsr
[IPSW_REGNUM
]) /* Restoring a call dummy frame */
1816 restore_pc_queue (fsr
);
1819 for (regnum
= 31; regnum
> 0; regnum
--)
1821 write_register (regnum
, read_memory_integer (fsr
[regnum
],
1822 DEPRECATED_REGISTER_SIZE
));
1824 for (regnum
= NUM_REGS
- 1; regnum
>= FP0_REGNUM
; regnum
--)
1827 read_memory (fsr
[regnum
], (char *) &freg_buffer
, 8);
1828 deprecated_write_register_bytes (DEPRECATED_REGISTER_BYTE (regnum
),
1829 (char *) &freg_buffer
, 8);
1832 if (fsr
[IPSW_REGNUM
])
1833 write_register (IPSW_REGNUM
,
1834 read_memory_integer (fsr
[IPSW_REGNUM
],
1835 DEPRECATED_REGISTER_SIZE
));
1837 if (fsr
[SAR_REGNUM
])
1838 write_register (SAR_REGNUM
,
1839 read_memory_integer (fsr
[SAR_REGNUM
],
1840 DEPRECATED_REGISTER_SIZE
));
1842 /* If the PC was explicitly saved, then just restore it. */
1843 if (fsr
[PCOQ_TAIL_REGNUM
])
1845 npc
= read_memory_integer (fsr
[PCOQ_TAIL_REGNUM
],
1846 DEPRECATED_REGISTER_SIZE
);
1847 write_register (PCOQ_TAIL_REGNUM
, npc
);
1849 /* Else use the value in %rp to set the new PC. */
1852 npc
= read_register (RP_REGNUM
);
1856 write_register (DEPRECATED_FP_REGNUM
, read_memory_integer (fp
, DEPRECATED_REGISTER_SIZE
));
1858 if (fsr
[IPSW_REGNUM
]) /* call dummy */
1859 write_register (SP_REGNUM
, fp
- 48);
1861 write_register (SP_REGNUM
, fp
);
1863 /* The PC we just restored may be inside a return trampoline. If so
1864 we want to restart the inferior and run it through the trampoline.
1866 Do this by setting a momentary breakpoint at the location the
1867 trampoline returns to.
1869 Don't skip through the trampoline if we're popping a dummy frame. */
1870 target_pc
= SKIP_TRAMPOLINE_CODE (npc
& ~0x3) & ~0x3;
1871 if (target_pc
&& !fsr
[IPSW_REGNUM
])
1873 struct symtab_and_line sal
;
1874 struct breakpoint
*breakpoint
;
1875 struct cleanup
*old_chain
;
1877 /* Set up our breakpoint. Set it to be silent as the MI code
1878 for "return_command" will print the frame we returned to. */
1879 sal
= find_pc_line (target_pc
, 0);
1881 breakpoint
= set_momentary_breakpoint (sal
, null_frame_id
, bp_finish
);
1882 breakpoint
->silent
= 1;
1884 /* So we can clean things up. */
1885 old_chain
= make_cleanup_delete_breakpoint (breakpoint
);
1887 /* Start up the inferior. */
1888 clear_proceed_status ();
1889 proceed_to_finish
= 1;
1890 proceed ((CORE_ADDR
) -1, TARGET_SIGNAL_DEFAULT
, 0);
1892 /* Perform our cleanups. */
1893 do_cleanups (old_chain
);
1895 flush_cached_frames ();
1898 /* After returning to a dummy on the stack, restore the instruction
1899 queue space registers. */
1902 restore_pc_queue (CORE_ADDR
*fsr
)
1904 CORE_ADDR pc
= read_pc ();
1905 CORE_ADDR new_pc
= read_memory_integer (fsr
[PCOQ_HEAD_REGNUM
],
1906 TARGET_PTR_BIT
/ 8);
1907 struct target_waitstatus w
;
1910 /* Advance past break instruction in the call dummy. */
1911 write_register (PCOQ_HEAD_REGNUM
, pc
+ 4);
1912 write_register (PCOQ_TAIL_REGNUM
, pc
+ 8);
1914 /* HPUX doesn't let us set the space registers or the space
1915 registers of the PC queue through ptrace. Boo, hiss.
1916 Conveniently, the call dummy has this sequence of instructions
1921 So, load up the registers and single step until we are in the
1924 write_register (21, read_memory_integer (fsr
[PCSQ_HEAD_REGNUM
],
1925 DEPRECATED_REGISTER_SIZE
));
1926 write_register (22, new_pc
);
1928 for (insn_count
= 0; insn_count
< 3; insn_count
++)
1930 /* FIXME: What if the inferior gets a signal right now? Want to
1931 merge this into wait_for_inferior (as a special kind of
1932 watchpoint? By setting a breakpoint at the end? Is there
1933 any other choice? Is there *any* way to do this stuff with
1934 ptrace() or some equivalent?). */
1936 target_wait (inferior_ptid
, &w
);
1938 if (w
.kind
== TARGET_WAITKIND_SIGNALLED
)
1940 stop_signal
= w
.value
.sig
;
1941 terminal_ours_for_output ();
1942 printf_unfiltered ("\nProgram terminated with signal %s, %s.\n",
1943 target_signal_to_name (stop_signal
),
1944 target_signal_to_string (stop_signal
));
1945 gdb_flush (gdb_stdout
);
1949 target_terminal_ours ();
1950 target_fetch_registers (-1);
1955 #ifdef PA20W_CALLING_CONVENTIONS
1957 /* This function pushes a stack frame with arguments as part of the
1958 inferior function calling mechanism.
1960 This is the version for the PA64, in which later arguments appear
1961 at higher addresses. (The stack always grows towards higher
1964 We simply allocate the appropriate amount of stack space and put
1965 arguments into their proper slots. The call dummy code will copy
1966 arguments into registers as needed by the ABI.
1968 This ABI also requires that the caller provide an argument pointer
1969 to the callee, so we do that too. */
1972 hppa_push_arguments (int nargs
, struct value
**args
, CORE_ADDR sp
,
1973 int struct_return
, CORE_ADDR struct_addr
)
1975 /* array of arguments' offsets */
1976 int *offset
= (int *) alloca (nargs
* sizeof (int));
1978 /* array of arguments' lengths: real lengths in bytes, not aligned to
1980 int *lengths
= (int *) alloca (nargs
* sizeof (int));
1982 /* The value of SP as it was passed into this function after
1984 CORE_ADDR orig_sp
= DEPRECATED_STACK_ALIGN (sp
);
1986 /* The number of stack bytes occupied by the current argument. */
1989 /* The total number of bytes reserved for the arguments. */
1990 int cum_bytes_reserved
= 0;
1992 /* Similarly, but aligned. */
1993 int cum_bytes_aligned
= 0;
1996 /* Iterate over each argument provided by the user. */
1997 for (i
= 0; i
< nargs
; i
++)
1999 struct type
*arg_type
= VALUE_TYPE (args
[i
]);
2001 /* Integral scalar values smaller than a register are padded on
2002 the left. We do this by promoting them to full-width,
2003 although the ABI says to pad them with garbage. */
2004 if (is_integral_type (arg_type
)
2005 && TYPE_LENGTH (arg_type
) < DEPRECATED_REGISTER_SIZE
)
2007 args
[i
] = value_cast ((TYPE_UNSIGNED (arg_type
)
2008 ? builtin_type_unsigned_long
2009 : builtin_type_long
),
2011 arg_type
= VALUE_TYPE (args
[i
]);
2014 lengths
[i
] = TYPE_LENGTH (arg_type
);
2016 /* Align the size of the argument to the word size for this
2018 bytes_reserved
= (lengths
[i
] + DEPRECATED_REGISTER_SIZE
- 1) & -DEPRECATED_REGISTER_SIZE
;
2020 offset
[i
] = cum_bytes_reserved
;
2022 /* Aggregates larger than eight bytes (the only types larger
2023 than eight bytes we have) are aligned on a 16-byte boundary,
2024 possibly padded on the right with garbage. This may leave an
2025 empty word on the stack, and thus an unused register, as per
2027 if (bytes_reserved
> 8)
2029 /* Round up the offset to a multiple of two slots. */
2030 int new_offset
= ((offset
[i
] + 2*DEPRECATED_REGISTER_SIZE
-1)
2031 & -(2*DEPRECATED_REGISTER_SIZE
));
2033 /* Note the space we've wasted, if any. */
2034 bytes_reserved
+= new_offset
- offset
[i
];
2035 offset
[i
] = new_offset
;
2038 cum_bytes_reserved
+= bytes_reserved
;
2041 /* CUM_BYTES_RESERVED already accounts for all the arguments
2042 passed by the user. However, the ABIs mandate minimum stack space
2043 allocations for outgoing arguments.
2045 The ABIs also mandate minimum stack alignments which we must
2047 cum_bytes_aligned
= DEPRECATED_STACK_ALIGN (cum_bytes_reserved
);
2048 sp
+= max (cum_bytes_aligned
, REG_PARM_STACK_SPACE
);
2050 /* Now write each of the args at the proper offset down the stack. */
2051 for (i
= 0; i
< nargs
; i
++)
2052 write_memory (orig_sp
+ offset
[i
], VALUE_CONTENTS (args
[i
]), lengths
[i
]);
2054 /* If a structure has to be returned, set up register 28 to hold its
2057 write_register (28, struct_addr
);
2059 /* For the PA64 we must pass a pointer to the outgoing argument list.
2060 The ABI mandates that the pointer should point to the first byte of
2061 storage beyond the register flushback area.
2063 However, the call dummy expects the outgoing argument pointer to
2064 be passed in register %r4. */
2065 write_register (4, orig_sp
+ REG_PARM_STACK_SPACE
);
2067 /* ?!? This needs further work. We need to set up the global data
2068 pointer for this procedure. This assumes the same global pointer
2069 for every procedure. The call dummy expects the dp value to
2070 be passed in register %r6. */
2071 write_register (6, read_register (27));
2073 /* The stack will have 64 bytes of additional space for a frame marker. */
2079 /* This function pushes a stack frame with arguments as part of the
2080 inferior function calling mechanism.
2082 This is the version of the function for the 32-bit PA machines, in
2083 which later arguments appear at lower addresses. (The stack always
2084 grows towards higher addresses.)
2086 We simply allocate the appropriate amount of stack space and put
2087 arguments into their proper slots. The call dummy code will copy
2088 arguments into registers as needed by the ABI. */
2091 hppa_push_arguments (int nargs
, struct value
**args
, CORE_ADDR sp
,
2092 int struct_return
, CORE_ADDR struct_addr
)
2094 /* array of arguments' offsets */
2095 int *offset
= (int *) alloca (nargs
* sizeof (int));
2097 /* array of arguments' lengths: real lengths in bytes, not aligned to
2099 int *lengths
= (int *) alloca (nargs
* sizeof (int));
2101 /* The number of stack bytes occupied by the current argument. */
2104 /* The total number of bytes reserved for the arguments. */
2105 int cum_bytes_reserved
= 0;
2107 /* Similarly, but aligned. */
2108 int cum_bytes_aligned
= 0;
2111 /* Iterate over each argument provided by the user. */
2112 for (i
= 0; i
< nargs
; i
++)
2114 lengths
[i
] = TYPE_LENGTH (VALUE_TYPE (args
[i
]));
2116 /* Align the size of the argument to the word size for this
2118 bytes_reserved
= (lengths
[i
] + DEPRECATED_REGISTER_SIZE
- 1) & -DEPRECATED_REGISTER_SIZE
;
2120 offset
[i
] = (cum_bytes_reserved
2121 + (lengths
[i
] > 4 ? bytes_reserved
: lengths
[i
]));
2123 /* If the argument is a double word argument, then it needs to be
2124 double word aligned. */
2125 if ((bytes_reserved
== 2 * DEPRECATED_REGISTER_SIZE
)
2126 && (offset
[i
] % 2 * DEPRECATED_REGISTER_SIZE
))
2129 /* BYTES_RESERVED is already aligned to the word, so we put
2130 the argument at one word more down the stack.
2132 This will leave one empty word on the stack, and one unused
2133 register as mandated by the ABI. */
2134 new_offset
= ((offset
[i
] + 2 * DEPRECATED_REGISTER_SIZE
- 1)
2135 & -(2 * DEPRECATED_REGISTER_SIZE
));
2137 if ((new_offset
- offset
[i
]) >= 2 * DEPRECATED_REGISTER_SIZE
)
2139 bytes_reserved
+= DEPRECATED_REGISTER_SIZE
;
2140 offset
[i
] += DEPRECATED_REGISTER_SIZE
;
2144 cum_bytes_reserved
+= bytes_reserved
;
2148 /* CUM_BYTES_RESERVED already accounts for all the arguments passed
2149 by the user. However, the ABI mandates minimum stack space
2150 allocations for outgoing arguments.
2152 The ABI also mandates minimum stack alignments which we must
2154 cum_bytes_aligned
= DEPRECATED_STACK_ALIGN (cum_bytes_reserved
);
2155 sp
+= max (cum_bytes_aligned
, REG_PARM_STACK_SPACE
);
2157 /* Now write each of the args at the proper offset down the stack.
2158 ?!? We need to promote values to a full register instead of skipping
2159 words in the stack. */
2160 for (i
= 0; i
< nargs
; i
++)
2161 write_memory (sp
- offset
[i
], VALUE_CONTENTS (args
[i
]), lengths
[i
]);
2163 /* If a structure has to be returned, set up register 28 to hold its
2166 write_register (28, struct_addr
);
2168 /* The stack will have 32 bytes of additional space for a frame marker. */
2174 /* This function pushes a stack frame with arguments as part of the
2175 inferior function calling mechanism.
2177 This is the version of the function for the 32-bit PA machines, in
2178 which later arguments appear at lower addresses. (The stack always
2179 grows towards higher addresses.)
2181 We simply allocate the appropriate amount of stack space and put
2182 arguments into their proper slots. */
2185 hppa32_push_dummy_call (struct gdbarch
*gdbarch
, CORE_ADDR func_addr
,
2186 struct regcache
*regcache
, CORE_ADDR bp_addr
,
2187 int nargs
, struct value
**args
, CORE_ADDR sp
,
2188 int struct_return
, CORE_ADDR struct_addr
)
2190 /* NOTE: cagney/2004-02-27: This is a guess - its implemented by
2191 reverse engineering testsuite failures. */
2193 /* Stack base address at which any pass-by-reference parameters are
2195 CORE_ADDR struct_end
= 0;
2196 /* Stack base address at which the first parameter is stored. */
2197 CORE_ADDR param_end
= 0;
2199 /* The inner most end of the stack after all the parameters have
2201 CORE_ADDR new_sp
= 0;
2203 /* Two passes. First pass computes the location of everything,
2204 second pass writes the bytes out. */
2206 for (write_pass
= 0; write_pass
< 2; write_pass
++)
2208 CORE_ADDR struct_ptr
= 0;
2209 CORE_ADDR param_ptr
= 0;
2210 int reg
= 27; /* NOTE: Registers go down. */
2212 for (i
= 0; i
< nargs
; i
++)
2214 struct value
*arg
= args
[i
];
2215 struct type
*type
= check_typedef (VALUE_TYPE (arg
));
2216 /* The corresponding parameter that is pushed onto the
2217 stack, and [possibly] passed in a register. */
2220 memset (param_val
, 0, sizeof param_val
);
2221 if (TYPE_LENGTH (type
) > 8)
2223 /* Large parameter, pass by reference. Store the value
2224 in "struct" area and then pass its address. */
2226 struct_ptr
+= align_up (TYPE_LENGTH (type
), 8);
2228 write_memory (struct_end
- struct_ptr
, VALUE_CONTENTS (arg
),
2229 TYPE_LENGTH (type
));
2230 store_unsigned_integer (param_val
, 4, struct_end
- struct_ptr
);
2232 else if (TYPE_CODE (type
) == TYPE_CODE_INT
2233 || TYPE_CODE (type
) == TYPE_CODE_ENUM
)
2235 /* Integer value store, right aligned. "unpack_long"
2236 takes care of any sign-extension problems. */
2237 param_len
= align_up (TYPE_LENGTH (type
), 4);
2238 store_unsigned_integer (param_val
, param_len
,
2240 VALUE_CONTENTS (arg
)));
2244 /* Small struct value, store right aligned? */
2245 param_len
= align_up (TYPE_LENGTH (type
), 4);
2246 memcpy (param_val
+ param_len
- TYPE_LENGTH (type
),
2247 VALUE_CONTENTS (arg
), TYPE_LENGTH (type
));
2249 param_ptr
+= param_len
;
2250 reg
-= param_len
/ 4;
2253 write_memory (param_end
- param_ptr
, param_val
, param_len
);
2256 regcache_cooked_write (regcache
, reg
, param_val
);
2258 regcache_cooked_write (regcache
, reg
+ 1, param_val
+ 4);
2263 /* Update the various stack pointers. */
2266 struct_end
= sp
+ struct_ptr
;
2267 /* PARAM_PTR already accounts for all the arguments passed
2268 by the user. However, the ABI mandates minimum stack
2269 space allocations for outgoing arguments. The ABI also
2270 mandates minimum stack alignments which we must
2272 param_end
= struct_end
+ max (align_up (param_ptr
, 8),
2273 REG_PARM_STACK_SPACE
);
2277 /* If a structure has to be returned, set up register 28 to hold its
2280 write_register (28, struct_addr
);
2282 /* Set the return address. */
2283 regcache_cooked_write_unsigned (regcache
, RP_REGNUM
, bp_addr
);
2285 /* The stack will have 32 bytes of additional space for a frame marker. */
2286 return param_end
+ 32;
2289 /* This function pushes a stack frame with arguments as part of the
2290 inferior function calling mechanism.
2292 This is the version for the PA64, in which later arguments appear
2293 at higher addresses. (The stack always grows towards higher
2296 We simply allocate the appropriate amount of stack space and put
2297 arguments into their proper slots.
2299 This ABI also requires that the caller provide an argument pointer
2300 to the callee, so we do that too. */
2303 hppa64_push_dummy_call (struct gdbarch
*gdbarch
, CORE_ADDR func_addr
,
2304 struct regcache
*regcache
, CORE_ADDR bp_addr
,
2305 int nargs
, struct value
**args
, CORE_ADDR sp
,
2306 int struct_return
, CORE_ADDR struct_addr
)
2308 /* Array of arguments' offsets. */
2309 int *offset
= (int *) alloca (nargs
* sizeof (int));
2311 /* Array of arguments' lengths: real lengths in bytes, not aligned
2313 int *lengths
= (int *) alloca (nargs
* sizeof (int));
2315 /* The value of SP as it was passed into this function. */
2316 CORE_ADDR orig_sp
= sp
;
2318 /* The number of stack bytes occupied by the current argument. */
2321 /* The total number of bytes reserved for the arguments. */
2322 int cum_bytes_reserved
= 0;
2324 /* Similarly, but aligned. */
2325 int cum_bytes_aligned
= 0;
2328 /* Iterate over each argument provided by the user. */
2329 for (i
= 0; i
< nargs
; i
++)
2331 struct type
*arg_type
= VALUE_TYPE (args
[i
]);
2333 /* Integral scalar values smaller than a register are padded on
2334 the left. We do this by promoting them to full-width,
2335 although the ABI says to pad them with garbage. */
2336 if (is_integral_type (arg_type
)
2337 && TYPE_LENGTH (arg_type
) < DEPRECATED_REGISTER_SIZE
)
2339 args
[i
] = value_cast ((TYPE_UNSIGNED (arg_type
)
2340 ? builtin_type_unsigned_long
2341 : builtin_type_long
),
2343 arg_type
= VALUE_TYPE (args
[i
]);
2346 lengths
[i
] = TYPE_LENGTH (arg_type
);
2348 /* Align the size of the argument to the word size for this
2350 bytes_reserved
= (lengths
[i
] + DEPRECATED_REGISTER_SIZE
- 1) & -DEPRECATED_REGISTER_SIZE
;
2352 offset
[i
] = cum_bytes_reserved
;
2354 /* Aggregates larger than eight bytes (the only types larger
2355 than eight bytes we have) are aligned on a 16-byte boundary,
2356 possibly padded on the right with garbage. This may leave an
2357 empty word on the stack, and thus an unused register, as per
2359 if (bytes_reserved
> 8)
2361 /* Round up the offset to a multiple of two slots. */
2362 int new_offset
= ((offset
[i
] + 2*DEPRECATED_REGISTER_SIZE
-1)
2363 & -(2*DEPRECATED_REGISTER_SIZE
));
2365 /* Note the space we've wasted, if any. */
2366 bytes_reserved
+= new_offset
- offset
[i
];
2367 offset
[i
] = new_offset
;
2370 cum_bytes_reserved
+= bytes_reserved
;
2373 /* CUM_BYTES_RESERVED already accounts for all the arguments passed
2374 by the user. However, the ABIs mandate minimum stack space
2375 allocations for outgoing arguments.
2377 The ABIs also mandate minimum stack alignments which we must
2379 cum_bytes_aligned
= align_up (cum_bytes_reserved
, 16);
2380 sp
+= max (cum_bytes_aligned
, REG_PARM_STACK_SPACE
);
2382 /* Now write each of the args at the proper offset down the
2384 for (i
= 0; i
< nargs
; i
++)
2385 write_memory (orig_sp
+ offset
[i
], VALUE_CONTENTS (args
[i
]), lengths
[i
]);
2387 /* If a structure has to be returned, set up register 28 to hold its
2390 write_register (28, struct_addr
);
2392 /* For the PA64 we must pass a pointer to the outgoing argument
2393 list. The ABI mandates that the pointer should point to the
2394 first byte of storage beyond the register flushback area.
2396 However, the call dummy expects the outgoing argument pointer to
2397 be passed in register %r4. */
2398 write_register (4, orig_sp
+ REG_PARM_STACK_SPACE
);
2400 /* ?!? This needs further work. We need to set up the global data
2401 pointer for this procedure. This assumes the same global pointer
2402 for every procedure. The call dummy expects the dp value to be
2403 passed in register %r6. */
2404 write_register (6, read_register (27));
2406 /* Set the return address. */
2407 regcache_cooked_write_unsigned (regcache
, RP_REGNUM
, bp_addr
);
2409 /* The stack will have 64 bytes of additional space for a frame
2416 hppa32_frame_align (struct gdbarch
*gdbarch
, CORE_ADDR addr
)
2418 /* HP frames are 64-byte (or cache line) aligned (yes that's _byte_
2420 return align_up (addr
, 64);
2423 /* Force all frames to 16-byte alignment. Better safe than sorry. */
2426 hppa64_frame_align (struct gdbarch
*gdbarch
, CORE_ADDR addr
)
2428 /* Just always 16-byte align. */
2429 return align_up (addr
, 16);
2433 /* elz: Used to lookup a symbol in the shared libraries.
2434 This function calls shl_findsym, indirectly through a
2435 call to __d_shl_get. __d_shl_get is in end.c, which is always
2436 linked in by the hp compilers/linkers.
2437 The call to shl_findsym cannot be made directly because it needs
2438 to be active in target address space.
2439 inputs: - minimal symbol pointer for the function we want to look up
2440 - address in target space of the descriptor for the library
2441 where we want to look the symbol up.
2442 This address is retrieved using the
2443 som_solib_get_solib_by_pc function (somsolib.c).
2444 output: - real address in the library of the function.
2445 note: the handle can be null, in which case shl_findsym will look for
2446 the symbol in all the loaded shared libraries.
2447 files to look at if you need reference on this stuff:
2448 dld.c, dld_shl_findsym.c
2450 man entry for shl_findsym */
2453 find_stub_with_shl_get (struct minimal_symbol
*function
, CORE_ADDR handle
)
2455 struct symbol
*get_sym
, *symbol2
;
2456 struct minimal_symbol
*buff_minsym
, *msymbol
;
2458 struct value
**args
;
2459 struct value
*funcval
;
2462 int x
, namelen
, err_value
, tmp
= -1;
2463 CORE_ADDR endo_buff_addr
, value_return_addr
, errno_return_addr
;
2464 CORE_ADDR stub_addr
;
2467 args
= alloca (sizeof (struct value
*) * 8); /* 6 for the arguments and one null one??? */
2468 funcval
= find_function_in_inferior ("__d_shl_get");
2469 get_sym
= lookup_symbol ("__d_shl_get", NULL
, VAR_DOMAIN
, NULL
, NULL
);
2470 buff_minsym
= lookup_minimal_symbol ("__buffer", NULL
, NULL
);
2471 msymbol
= lookup_minimal_symbol ("__shldp", NULL
, NULL
);
2472 symbol2
= lookup_symbol ("__shldp", NULL
, VAR_DOMAIN
, NULL
, NULL
);
2473 endo_buff_addr
= SYMBOL_VALUE_ADDRESS (buff_minsym
);
2474 namelen
= strlen (DEPRECATED_SYMBOL_NAME (function
));
2475 value_return_addr
= endo_buff_addr
+ namelen
;
2476 ftype
= check_typedef (SYMBOL_TYPE (get_sym
));
2479 if ((x
= value_return_addr
% 64) != 0)
2480 value_return_addr
= value_return_addr
+ 64 - x
;
2482 errno_return_addr
= value_return_addr
+ 64;
2485 /* set up stuff needed by __d_shl_get in buffer in end.o */
2487 target_write_memory (endo_buff_addr
, DEPRECATED_SYMBOL_NAME (function
), namelen
);
2489 target_write_memory (value_return_addr
, (char *) &tmp
, 4);
2491 target_write_memory (errno_return_addr
, (char *) &tmp
, 4);
2493 target_write_memory (SYMBOL_VALUE_ADDRESS (msymbol
),
2494 (char *) &handle
, 4);
2496 /* now prepare the arguments for the call */
2498 args
[0] = value_from_longest (TYPE_FIELD_TYPE (ftype
, 0), 12);
2499 args
[1] = value_from_pointer (TYPE_FIELD_TYPE (ftype
, 1), SYMBOL_VALUE_ADDRESS (msymbol
));
2500 args
[2] = value_from_pointer (TYPE_FIELD_TYPE (ftype
, 2), endo_buff_addr
);
2501 args
[3] = value_from_longest (TYPE_FIELD_TYPE (ftype
, 3), TYPE_PROCEDURE
);
2502 args
[4] = value_from_pointer (TYPE_FIELD_TYPE (ftype
, 4), value_return_addr
);
2503 args
[5] = value_from_pointer (TYPE_FIELD_TYPE (ftype
, 5), errno_return_addr
);
2505 /* now call the function */
2507 val
= call_function_by_hand (funcval
, 6, args
);
2509 /* now get the results */
2511 target_read_memory (errno_return_addr
, (char *) &err_value
, sizeof (err_value
));
2513 target_read_memory (value_return_addr
, (char *) &stub_addr
, sizeof (stub_addr
));
2515 error ("call to __d_shl_get failed, error code is %d", err_value
);
2520 /* Cover routine for find_stub_with_shl_get to pass to catch_errors */
2522 cover_find_stub_with_shl_get (void *args_untyped
)
2524 args_for_find_stub
*args
= args_untyped
;
2525 args
->return_val
= find_stub_with_shl_get (args
->msym
, args
->solib_handle
);
2529 /* Insert the specified number of args and function address
2530 into a call sequence of the above form stored at DUMMYNAME.
2532 On the hppa we need to call the stack dummy through $$dyncall.
2533 Therefore our version of DEPRECATED_FIX_CALL_DUMMY takes an extra
2534 argument, real_pc, which is the location where gdb should start up
2535 the inferior to do the function call.
2537 This has to work across several versions of hpux, bsd, osf1. It has to
2538 work regardless of what compiler was used to build the inferior program.
2539 It should work regardless of whether or not end.o is available. It has
2540 to work even if gdb can not call into the dynamic loader in the inferior
2541 to query it for symbol names and addresses.
2543 Yes, all those cases should work. Luckily code exists to handle most
2544 of them. The complexity is in selecting exactly what scheme should
2545 be used to perform the inferior call.
2547 At the current time this routine is known not to handle cases where
2548 the program was linked with HP's compiler without including end.o.
2550 Please contact Jeff Law (law@cygnus.com) before changing this code. */
2553 hppa_fix_call_dummy (char *dummy
, CORE_ADDR pc
, CORE_ADDR fun
, int nargs
,
2554 struct value
**args
, struct type
*type
, int gcc_p
)
2556 CORE_ADDR dyncall_addr
;
2557 struct minimal_symbol
*msymbol
;
2558 struct minimal_symbol
*trampoline
;
2559 int flags
= read_register (FLAGS_REGNUM
);
2560 struct unwind_table_entry
*u
= NULL
;
2561 CORE_ADDR new_stub
= 0;
2562 CORE_ADDR solib_handle
= 0;
2564 /* Nonzero if we will use GCC's PLT call routine. This routine must be
2565 passed an import stub, not a PLABEL. It is also necessary to set %r19
2566 (the PIC register) before performing the call.
2568 If zero, then we are using __d_plt_call (HP's PLT call routine) or we
2569 are calling the target directly. When using __d_plt_call we want to
2570 use a PLABEL instead of an import stub. */
2571 int using_gcc_plt_call
= 1;
2573 #ifdef GDB_TARGET_IS_HPPA_20W
2574 /* We currently use completely different code for the PA2.0W inferior
2575 function call sequences. This needs to be cleaned up. */
2577 CORE_ADDR pcsqh
, pcsqt
, pcoqh
, pcoqt
, sr5
;
2578 struct target_waitstatus w
;
2582 struct objfile
*objfile
;
2584 /* We can not modify the PC space queues directly, so we start
2585 up the inferior and execute a couple instructions to set the
2586 space queues so that they point to the call dummy in the stack. */
2587 pcsqh
= read_register (PCSQ_HEAD_REGNUM
);
2588 sr5
= read_register (SR5_REGNUM
);
2591 pcoqh
= read_register (PCOQ_HEAD_REGNUM
);
2592 pcoqt
= read_register (PCOQ_TAIL_REGNUM
);
2593 if (target_read_memory (pcoqh
, buf
, 4) != 0)
2594 error ("Couldn't modify space queue\n");
2595 inst1
= extract_unsigned_integer (buf
, 4);
2597 if (target_read_memory (pcoqt
, buf
, 4) != 0)
2598 error ("Couldn't modify space queue\n");
2599 inst2
= extract_unsigned_integer (buf
, 4);
2602 *((int *) buf
) = 0xe820d000;
2603 if (target_write_memory (pcoqh
, buf
, 4) != 0)
2604 error ("Couldn't modify space queue\n");
2607 *((int *) buf
) = 0x08000240;
2608 if (target_write_memory (pcoqt
, buf
, 4) != 0)
2610 *((int *) buf
) = inst1
;
2611 target_write_memory (pcoqh
, buf
, 4);
2612 error ("Couldn't modify space queue\n");
2615 write_register (1, pc
);
2617 /* Single step twice, the BVE instruction will set the space queue
2618 such that it points to the PC value written immediately above
2619 (ie the call dummy). */
2621 target_wait (inferior_ptid
, &w
);
2623 target_wait (inferior_ptid
, &w
);
2625 /* Restore the two instructions at the old PC locations. */
2626 *((int *) buf
) = inst1
;
2627 target_write_memory (pcoqh
, buf
, 4);
2628 *((int *) buf
) = inst2
;
2629 target_write_memory (pcoqt
, buf
, 4);
2632 /* The call dummy wants the ultimate destination address initially
2634 write_register (5, fun
);
2636 /* We need to see if this objfile has a different DP value than our
2637 own (it could be a shared library for example). */
2638 ALL_OBJFILES (objfile
)
2640 struct obj_section
*s
;
2641 obj_private_data_t
*obj_private
;
2643 /* See if FUN is in any section within this shared library. */
2644 for (s
= objfile
->sections
; s
< objfile
->sections_end
; s
++)
2645 if (s
->addr
<= fun
&& fun
< s
->endaddr
)
2648 if (s
>= objfile
->sections_end
)
2651 obj_private
= (obj_private_data_t
*) objfile
->obj_private
;
2653 /* The DP value may be different for each objfile. But within an
2654 objfile each function uses the same dp value. Thus we do not need
2655 to grope around the opd section looking for dp values.
2657 ?!? This is not strictly correct since we may be in a shared library
2658 and want to call back into the main program. To make that case
2659 work correctly we need to set obj_private->dp for the main program's
2660 objfile, then remove this conditional. */
2661 if (obj_private
->dp
)
2662 write_register (27, obj_private
->dp
);
2669 #ifndef GDB_TARGET_IS_HPPA_20W
2670 /* Prefer __gcc_plt_call over the HP supplied routine because
2671 __gcc_plt_call works for any number of arguments. */
2673 if (lookup_minimal_symbol ("__gcc_plt_call", NULL
, NULL
) == NULL
)
2674 using_gcc_plt_call
= 0;
2676 msymbol
= lookup_minimal_symbol ("$$dyncall", NULL
, NULL
);
2677 if (msymbol
== NULL
)
2678 error ("Can't find an address for $$dyncall trampoline");
2680 dyncall_addr
= SYMBOL_VALUE_ADDRESS (msymbol
);
2682 /* FUN could be a procedure label, in which case we have to get
2683 its real address and the value of its GOT/DP if we plan to
2684 call the routine via gcc_plt_call. */
2685 if ((fun
& 0x2) && using_gcc_plt_call
)
2687 /* Get the GOT/DP value for the target function. It's
2688 at *(fun+4). Note the call dummy is *NOT* allowed to
2689 trash %r19 before calling the target function. */
2690 write_register (19, read_memory_integer ((fun
& ~0x3) + 4,
2691 DEPRECATED_REGISTER_SIZE
));
2693 /* Now get the real address for the function we are calling, it's
2695 fun
= (CORE_ADDR
) read_memory_integer (fun
& ~0x3,
2696 TARGET_PTR_BIT
/ 8);
2701 #ifndef GDB_TARGET_IS_PA_ELF
2702 /* FUN could be an export stub, the real address of a function, or
2703 a PLABEL. When using gcc's PLT call routine we must call an import
2704 stub rather than the export stub or real function for lazy binding
2707 If we are using the gcc PLT call routine, then we need to
2708 get the import stub for the target function. */
2709 if (using_gcc_plt_call
&& som_solib_get_got_by_pc (fun
))
2711 struct objfile
*objfile
;
2712 struct minimal_symbol
*funsymbol
, *stub_symbol
;
2713 CORE_ADDR newfun
= 0;
2715 funsymbol
= lookup_minimal_symbol_by_pc (fun
);
2717 error ("Unable to find minimal symbol for target function.\n");
2719 /* Search all the object files for an import symbol with the
2721 ALL_OBJFILES (objfile
)
2724 = lookup_minimal_symbol_solib_trampoline
2725 (DEPRECATED_SYMBOL_NAME (funsymbol
), objfile
);
2728 stub_symbol
= lookup_minimal_symbol (DEPRECATED_SYMBOL_NAME (funsymbol
),
2731 /* Found a symbol with the right name. */
2734 struct unwind_table_entry
*u
;
2735 /* It must be a shared library trampoline. */
2736 if (MSYMBOL_TYPE (stub_symbol
) != mst_solib_trampoline
)
2739 /* It must also be an import stub. */
2740 u
= find_unwind_entry (SYMBOL_VALUE (stub_symbol
));
2742 || (u
->stub_unwind
.stub_type
!= IMPORT
2743 #ifdef GDB_NATIVE_HPUX_11
2744 /* Sigh. The hpux 10.20 dynamic linker will blow
2745 chunks if we perform a call to an unbound function
2746 via the IMPORT_SHLIB stub. The hpux 11.00 dynamic
2747 linker will blow chunks if we do not call the
2748 unbound function via the IMPORT_SHLIB stub.
2750 We currently have no way to select bevahior on just
2751 the target. However, we only support HPUX/SOM in
2752 native mode. So we conditinalize on a native
2753 #ifdef. Ugly. Ugly. Ugly */
2754 && u
->stub_unwind
.stub_type
!= IMPORT_SHLIB
2759 /* OK. Looks like the correct import stub. */
2760 newfun
= SYMBOL_VALUE (stub_symbol
);
2763 /* If we found an IMPORT stub, then we want to stop
2764 searching now. If we found an IMPORT_SHLIB, we want
2765 to continue the search in the hopes that we will find
2767 if (u
->stub_unwind
.stub_type
== IMPORT
)
2772 /* Ouch. We did not find an import stub. Make an attempt to
2773 do the right thing instead of just croaking. Most of the
2774 time this will actually work. */
2776 write_register (19, som_solib_get_got_by_pc (fun
));
2778 u
= find_unwind_entry (fun
);
2780 && (u
->stub_unwind
.stub_type
== IMPORT
2781 || u
->stub_unwind
.stub_type
== IMPORT_SHLIB
))
2782 trampoline
= lookup_minimal_symbol ("__gcc_plt_call", NULL
, NULL
);
2784 /* If we found the import stub in the shared library, then we have
2785 to set %r19 before we call the stub. */
2786 if (u
&& u
->stub_unwind
.stub_type
== IMPORT_SHLIB
)
2787 write_register (19, som_solib_get_got_by_pc (fun
));
2792 /* If we are calling into another load module then have sr4export call the
2793 magic __d_plt_call routine which is linked in from end.o.
2795 You can't use _sr4export to make the call as the value in sp-24 will get
2796 fried and you end up returning to the wrong location. You can't call the
2797 target as the code to bind the PLT entry to a function can't return to a
2800 Also, query the dynamic linker in the inferior to provide a suitable
2801 PLABEL for the target function. */
2802 if (!using_gcc_plt_call
)
2806 /* Get a handle for the shared library containing FUN. Given the
2807 handle we can query the shared library for a PLABEL. */
2808 solib_handle
= som_solib_get_solib_by_pc (fun
);
2812 struct minimal_symbol
*fmsymbol
= lookup_minimal_symbol_by_pc (fun
);
2814 trampoline
= lookup_minimal_symbol ("__d_plt_call", NULL
, NULL
);
2816 if (trampoline
== NULL
)
2818 error ("Can't find an address for __d_plt_call or __gcc_plt_call trampoline\nSuggest linking executable with -g or compiling with gcc.");
2821 /* This is where sr4export will jump to. */
2822 new_fun
= SYMBOL_VALUE_ADDRESS (trampoline
);
2824 /* If the function is in a shared library, then call __d_shl_get to
2825 get a PLABEL for the target function. */
2826 new_stub
= find_stub_with_shl_get (fmsymbol
, solib_handle
);
2829 error ("Can't find an import stub for %s", DEPRECATED_SYMBOL_NAME (fmsymbol
));
2831 /* We have to store the address of the stub in __shlib_funcptr. */
2832 msymbol
= lookup_minimal_symbol ("__shlib_funcptr", NULL
,
2833 (struct objfile
*) NULL
);
2835 if (msymbol
== NULL
)
2836 error ("Can't find an address for __shlib_funcptr");
2837 target_write_memory (SYMBOL_VALUE_ADDRESS (msymbol
),
2838 (char *) &new_stub
, 4);
2840 /* We want sr4export to call __d_plt_call, so we claim it is
2841 the final target. Clear trampoline. */
2847 /* Store upper 21 bits of function address into ldil. fun will either be
2848 the final target (most cases) or __d_plt_call when calling into a shared
2849 library and __gcc_plt_call is not available. */
2850 store_unsigned_integer
2851 (&dummy
[FUNC_LDIL_OFFSET
],
2853 deposit_21 (fun
>> 11,
2854 extract_unsigned_integer (&dummy
[FUNC_LDIL_OFFSET
],
2855 INSTRUCTION_SIZE
)));
2857 /* Store lower 11 bits of function address into ldo */
2858 store_unsigned_integer
2859 (&dummy
[FUNC_LDO_OFFSET
],
2861 deposit_14 (fun
& MASK_11
,
2862 extract_unsigned_integer (&dummy
[FUNC_LDO_OFFSET
],
2863 INSTRUCTION_SIZE
)));
2864 #ifdef SR4EXPORT_LDIL_OFFSET
2867 CORE_ADDR trampoline_addr
;
2869 /* We may still need sr4export's address too. */
2871 if (trampoline
== NULL
)
2873 msymbol
= lookup_minimal_symbol ("_sr4export", NULL
, NULL
);
2874 if (msymbol
== NULL
)
2875 error ("Can't find an address for _sr4export trampoline");
2877 trampoline_addr
= SYMBOL_VALUE_ADDRESS (msymbol
);
2880 trampoline_addr
= SYMBOL_VALUE_ADDRESS (trampoline
);
2883 /* Store upper 21 bits of trampoline's address into ldil */
2884 store_unsigned_integer
2885 (&dummy
[SR4EXPORT_LDIL_OFFSET
],
2887 deposit_21 (trampoline_addr
>> 11,
2888 extract_unsigned_integer (&dummy
[SR4EXPORT_LDIL_OFFSET
],
2889 INSTRUCTION_SIZE
)));
2891 /* Store lower 11 bits of trampoline's address into ldo */
2892 store_unsigned_integer
2893 (&dummy
[SR4EXPORT_LDO_OFFSET
],
2895 deposit_14 (trampoline_addr
& MASK_11
,
2896 extract_unsigned_integer (&dummy
[SR4EXPORT_LDO_OFFSET
],
2897 INSTRUCTION_SIZE
)));
2901 write_register (22, pc
);
2903 /* If we are in a syscall, then we should call the stack dummy
2904 directly. $$dyncall is not needed as the kernel sets up the
2905 space id registers properly based on the value in %r31. In
2906 fact calling $$dyncall will not work because the value in %r22
2907 will be clobbered on the syscall exit path.
2909 Similarly if the current PC is in a shared library. Note however,
2910 this scheme won't work if the shared library isn't mapped into
2911 the same space as the stack. */
2914 #ifndef GDB_TARGET_IS_PA_ELF
2915 else if (som_solib_get_got_by_pc (hppa_target_read_pc (inferior_ptid
)))
2919 return dyncall_addr
;
2923 /* If the pid is in a syscall, then the FP register is not readable.
2924 We'll return zero in that case, rather than attempting to read it
2925 and cause a warning. */
2928 hppa_read_fp (int pid
)
2930 int flags
= read_register (FLAGS_REGNUM
);
2934 return (CORE_ADDR
) 0;
2937 /* This is the only site that may directly read_register () the FP
2938 register. All others must use deprecated_read_fp (). */
2939 return read_register (DEPRECATED_FP_REGNUM
);
2943 hppa_target_read_fp (void)
2945 return hppa_read_fp (PIDGET (inferior_ptid
));
2948 /* Get the PC from %r31 if currently in a syscall. Also mask out privilege
2952 hppa_target_read_pc (ptid_t ptid
)
2954 int flags
= read_register_pid (FLAGS_REGNUM
, ptid
);
2956 /* The following test does not belong here. It is OS-specific, and belongs
2958 /* Test SS_INSYSCALL */
2960 return read_register_pid (31, ptid
) & ~0x3;
2962 return read_register_pid (PC_REGNUM
, ptid
) & ~0x3;
2965 /* Write out the PC. If currently in a syscall, then also write the new
2966 PC value into %r31. */
2969 hppa_target_write_pc (CORE_ADDR v
, ptid_t ptid
)
2971 int flags
= read_register_pid (FLAGS_REGNUM
, ptid
);
2973 /* The following test does not belong here. It is OS-specific, and belongs
2975 /* If in a syscall, then set %r31. Also make sure to get the
2976 privilege bits set correctly. */
2977 /* Test SS_INSYSCALL */
2979 write_register_pid (31, v
| 0x3, ptid
);
2981 write_register_pid (PC_REGNUM
, v
, ptid
);
2982 write_register_pid (PCOQ_TAIL_REGNUM
, v
+ 4, ptid
);
2985 /* return the alignment of a type in bytes. Structures have the maximum
2986 alignment required by their fields. */
2989 hppa_alignof (struct type
*type
)
2991 int max_align
, align
, i
;
2992 CHECK_TYPEDEF (type
);
2993 switch (TYPE_CODE (type
))
2998 return TYPE_LENGTH (type
);
2999 case TYPE_CODE_ARRAY
:
3000 return hppa_alignof (TYPE_FIELD_TYPE (type
, 0));
3001 case TYPE_CODE_STRUCT
:
3002 case TYPE_CODE_UNION
:
3004 for (i
= 0; i
< TYPE_NFIELDS (type
); i
++)
3006 /* Bit fields have no real alignment. */
3007 /* if (!TYPE_FIELD_BITPOS (type, i)) */
3008 if (!TYPE_FIELD_BITSIZE (type
, i
)) /* elz: this should be bitsize */
3010 align
= hppa_alignof (TYPE_FIELD_TYPE (type
, i
));
3011 max_align
= max (max_align
, align
);
3020 /* Print the register regnum, or all registers if regnum is -1 */
3023 pa_do_registers_info (int regnum
, int fpregs
)
3025 char *raw_regs
= alloca (DEPRECATED_REGISTER_BYTES
);
3028 /* Make a copy of gdb's save area (may cause actual
3029 reads from the target). */
3030 for (i
= 0; i
< NUM_REGS
; i
++)
3031 frame_register_read (deprecated_selected_frame
, i
,
3032 raw_regs
+ DEPRECATED_REGISTER_BYTE (i
));
3035 pa_print_registers (raw_regs
, regnum
, fpregs
);
3036 else if (regnum
< FP4_REGNUM
)
3040 /* Why is the value not passed through "extract_signed_integer"
3041 as in "pa_print_registers" below? */
3042 pa_register_look_aside (raw_regs
, regnum
, ®_val
[0]);
3046 printf_unfiltered ("%s %lx\n", REGISTER_NAME (regnum
), reg_val
[1]);
3050 /* Fancy % formats to prevent leading zeros. */
3051 if (reg_val
[0] == 0)
3052 printf_unfiltered ("%s %lx\n", REGISTER_NAME (regnum
), reg_val
[1]);
3054 printf_unfiltered ("%s %lx%8.8lx\n", REGISTER_NAME (regnum
),
3055 reg_val
[0], reg_val
[1]);
3059 /* Note that real floating point values only start at
3060 FP4_REGNUM. FP0 and up are just status and error
3061 registers, which have integral (bit) values. */
3062 pa_print_fp_reg (regnum
);
3065 /********** new function ********************/
3067 pa_do_strcat_registers_info (int regnum
, int fpregs
, struct ui_file
*stream
,
3068 enum precision_type precision
)
3070 char *raw_regs
= alloca (DEPRECATED_REGISTER_BYTES
);
3073 /* Make a copy of gdb's save area (may cause actual
3074 reads from the target). */
3075 for (i
= 0; i
< NUM_REGS
; i
++)
3076 frame_register_read (deprecated_selected_frame
, i
,
3077 raw_regs
+ DEPRECATED_REGISTER_BYTE (i
));
3080 pa_strcat_registers (raw_regs
, regnum
, fpregs
, stream
);
3082 else if (regnum
< FP4_REGNUM
)
3086 /* Why is the value not passed through "extract_signed_integer"
3087 as in "pa_print_registers" below? */
3088 pa_register_look_aside (raw_regs
, regnum
, ®_val
[0]);
3092 fprintf_unfiltered (stream
, "%s %lx", REGISTER_NAME (regnum
), reg_val
[1]);
3096 /* Fancy % formats to prevent leading zeros. */
3097 if (reg_val
[0] == 0)
3098 fprintf_unfiltered (stream
, "%s %lx", REGISTER_NAME (regnum
),
3101 fprintf_unfiltered (stream
, "%s %lx%8.8lx", REGISTER_NAME (regnum
),
3102 reg_val
[0], reg_val
[1]);
3106 /* Note that real floating point values only start at
3107 FP4_REGNUM. FP0 and up are just status and error
3108 registers, which have integral (bit) values. */
3109 pa_strcat_fp_reg (regnum
, stream
, precision
);
3112 /* If this is a PA2.0 machine, fetch the real 64-bit register
3113 value. Otherwise use the info from gdb's saved register area.
3115 Note that reg_val is really expected to be an array of longs,
3116 with two elements. */
3118 pa_register_look_aside (char *raw_regs
, int regnum
, long *raw_val
)
3120 static int know_which
= 0; /* False */
3123 unsigned int offset
;
3128 char buf
[MAX_REGISTER_SIZE
];
3133 if (CPU_PA_RISC2_0
== sysconf (_SC_CPU_VERSION
))
3138 know_which
= 1; /* True */
3146 raw_val
[1] = *(long *) (raw_regs
+ DEPRECATED_REGISTER_BYTE (regnum
));
3150 /* Code below copied from hppah-nat.c, with fixes for wide
3151 registers, using different area of save_state, etc. */
3152 if (regnum
== FLAGS_REGNUM
|| regnum
>= FP0_REGNUM
||
3153 !HAVE_STRUCT_SAVE_STATE_T
|| !HAVE_STRUCT_MEMBER_SS_WIDE
)
3155 /* Use narrow regs area of save_state and default macro. */
3156 offset
= U_REGS_OFFSET
;
3157 regaddr
= register_addr (regnum
, offset
);
3162 /* Use wide regs area, and calculate registers as 8 bytes wide.
3164 We'd like to do this, but current version of "C" doesn't
3167 offset = offsetof(save_state_t, ss_wide);
3169 Note that to avoid "C" doing typed pointer arithmetic, we
3170 have to cast away the type in our offset calculation:
3171 otherwise we get an offset of 1! */
3173 /* NB: save_state_t is not available before HPUX 9.
3174 The ss_wide field is not available previous to HPUX 10.20,
3175 so to avoid compile-time warnings, we only compile this for
3176 PA 2.0 processors. This control path should only be followed
3177 if we're debugging a PA 2.0 processor, so this should not cause
3180 /* #if the following code out so that this file can still be
3181 compiled on older HPUX boxes (< 10.20) which don't have
3182 this structure/structure member. */
3183 #if HAVE_STRUCT_SAVE_STATE_T == 1 && HAVE_STRUCT_MEMBER_SS_WIDE == 1
3186 offset
= ((int) &temp
.ss_wide
) - ((int) &temp
);
3187 regaddr
= offset
+ regnum
* 8;
3192 for (i
= start
; i
< 2; i
++)
3195 raw_val
[i
] = call_ptrace (PT_RUREGS
, PIDGET (inferior_ptid
),
3196 (PTRACE_ARG3_TYPE
) regaddr
, 0);
3199 /* Warning, not error, in case we are attached; sometimes the
3200 kernel doesn't let us at the registers. */
3201 char *err
= safe_strerror (errno
);
3202 char *msg
= alloca (strlen (err
) + 128);
3203 sprintf (msg
, "reading register %s: %s", REGISTER_NAME (regnum
), err
);
3208 regaddr
+= sizeof (long);
3211 if (regnum
== PCOQ_HEAD_REGNUM
|| regnum
== PCOQ_TAIL_REGNUM
)
3212 raw_val
[1] &= ~0x3; /* I think we're masking out space bits */
3218 /* "Info all-reg" command */
3221 pa_print_registers (char *raw_regs
, int regnum
, int fpregs
)
3224 /* Alas, we are compiled so that "long long" is 32 bits */
3227 int rows
= 48, columns
= 2;
3229 for (i
= 0; i
< rows
; i
++)
3231 for (j
= 0; j
< columns
; j
++)
3233 /* We display registers in column-major order. */
3234 int regnum
= i
+ j
* rows
;
3236 /* Q: Why is the value passed through "extract_signed_integer",
3237 while above, in "pa_do_registers_info" it isn't?
3239 pa_register_look_aside (raw_regs
, regnum
, &raw_val
[0]);
3241 /* Even fancier % formats to prevent leading zeros
3242 and still maintain the output in columns. */
3245 /* Being big-endian, on this machine the low bits
3246 (the ones we want to look at) are in the second longword. */
3247 long_val
= extract_signed_integer (&raw_val
[1], 4);
3248 printf_filtered ("%10.10s: %8lx ",
3249 REGISTER_NAME (regnum
), long_val
);
3253 /* raw_val = extract_signed_integer(&raw_val, 8); */
3254 if (raw_val
[0] == 0)
3255 printf_filtered ("%10.10s: %8lx ",
3256 REGISTER_NAME (regnum
), raw_val
[1]);
3258 printf_filtered ("%10.10s: %8lx%8.8lx ",
3259 REGISTER_NAME (regnum
),
3260 raw_val
[0], raw_val
[1]);
3263 printf_unfiltered ("\n");
3267 for (i
= FP4_REGNUM
; i
< NUM_REGS
; i
++) /* FP4_REGNUM == 72 */
3268 pa_print_fp_reg (i
);
3271 /************* new function ******************/
3273 pa_strcat_registers (char *raw_regs
, int regnum
, int fpregs
,
3274 struct ui_file
*stream
)
3277 long raw_val
[2]; /* Alas, we are compiled so that "long long" is 32 bits */
3279 enum precision_type precision
;
3281 precision
= unspecified_precision
;
3283 for (i
= 0; i
< 18; i
++)
3285 for (j
= 0; j
< 4; j
++)
3287 /* Q: Why is the value passed through "extract_signed_integer",
3288 while above, in "pa_do_registers_info" it isn't?
3290 pa_register_look_aside (raw_regs
, i
+ (j
* 18), &raw_val
[0]);
3292 /* Even fancier % formats to prevent leading zeros
3293 and still maintain the output in columns. */
3296 /* Being big-endian, on this machine the low bits
3297 (the ones we want to look at) are in the second longword. */
3298 long_val
= extract_signed_integer (&raw_val
[1], 4);
3299 fprintf_filtered (stream
, "%8.8s: %8lx ",
3300 REGISTER_NAME (i
+ (j
* 18)), long_val
);
3304 /* raw_val = extract_signed_integer(&raw_val, 8); */
3305 if (raw_val
[0] == 0)
3306 fprintf_filtered (stream
, "%8.8s: %8lx ",
3307 REGISTER_NAME (i
+ (j
* 18)), raw_val
[1]);
3309 fprintf_filtered (stream
, "%8.8s: %8lx%8.8lx ",
3310 REGISTER_NAME (i
+ (j
* 18)), raw_val
[0],
3314 fprintf_unfiltered (stream
, "\n");
3318 for (i
= FP4_REGNUM
; i
< NUM_REGS
; i
++) /* FP4_REGNUM == 72 */
3319 pa_strcat_fp_reg (i
, stream
, precision
);
3323 pa_print_fp_reg (int i
)
3325 char raw_buffer
[MAX_REGISTER_SIZE
];
3326 char virtual_buffer
[MAX_REGISTER_SIZE
];
3328 /* Get 32bits of data. */
3329 frame_register_read (deprecated_selected_frame
, i
, raw_buffer
);
3331 /* Put it in the buffer. No conversions are ever necessary. */
3332 memcpy (virtual_buffer
, raw_buffer
, DEPRECATED_REGISTER_RAW_SIZE (i
));
3334 fputs_filtered (REGISTER_NAME (i
), gdb_stdout
);
3335 print_spaces_filtered (8 - strlen (REGISTER_NAME (i
)), gdb_stdout
);
3336 fputs_filtered ("(single precision) ", gdb_stdout
);
3338 val_print (DEPRECATED_REGISTER_VIRTUAL_TYPE (i
), virtual_buffer
, 0, 0, gdb_stdout
, 0,
3339 1, 0, Val_pretty_default
);
3340 printf_filtered ("\n");
3342 /* If "i" is even, then this register can also be a double-precision
3343 FP register. Dump it out as such. */
3346 /* Get the data in raw format for the 2nd half. */
3347 frame_register_read (deprecated_selected_frame
, i
+ 1, raw_buffer
);
3349 /* Copy it into the appropriate part of the virtual buffer. */
3350 memcpy (virtual_buffer
+ DEPRECATED_REGISTER_RAW_SIZE (i
), raw_buffer
,
3351 DEPRECATED_REGISTER_RAW_SIZE (i
));
3353 /* Dump it as a double. */
3354 fputs_filtered (REGISTER_NAME (i
), gdb_stdout
);
3355 print_spaces_filtered (8 - strlen (REGISTER_NAME (i
)), gdb_stdout
);
3356 fputs_filtered ("(double precision) ", gdb_stdout
);
3358 val_print (builtin_type_double
, virtual_buffer
, 0, 0, gdb_stdout
, 0,
3359 1, 0, Val_pretty_default
);
3360 printf_filtered ("\n");
3364 /*************** new function ***********************/
3366 pa_strcat_fp_reg (int i
, struct ui_file
*stream
, enum precision_type precision
)
3368 char raw_buffer
[MAX_REGISTER_SIZE
];
3369 char virtual_buffer
[MAX_REGISTER_SIZE
];
3371 fputs_filtered (REGISTER_NAME (i
), stream
);
3372 print_spaces_filtered (8 - strlen (REGISTER_NAME (i
)), stream
);
3374 /* Get 32bits of data. */
3375 frame_register_read (deprecated_selected_frame
, i
, raw_buffer
);
3377 /* Put it in the buffer. No conversions are ever necessary. */
3378 memcpy (virtual_buffer
, raw_buffer
, DEPRECATED_REGISTER_RAW_SIZE (i
));
3380 if (precision
== double_precision
&& (i
% 2) == 0)
3383 char raw_buf
[MAX_REGISTER_SIZE
];
3385 /* Get the data in raw format for the 2nd half. */
3386 frame_register_read (deprecated_selected_frame
, i
+ 1, raw_buf
);
3388 /* Copy it into the appropriate part of the virtual buffer. */
3389 memcpy (virtual_buffer
+ DEPRECATED_REGISTER_RAW_SIZE (i
), raw_buf
,
3390 DEPRECATED_REGISTER_RAW_SIZE (i
));
3392 val_print (builtin_type_double
, virtual_buffer
, 0, 0, stream
, 0,
3393 1, 0, Val_pretty_default
);
3398 val_print (DEPRECATED_REGISTER_VIRTUAL_TYPE (i
), virtual_buffer
, 0, 0, stream
, 0,
3399 1, 0, Val_pretty_default
);
3404 /* Return one if PC is in the call path of a trampoline, else return zero.
3406 Note we return one for *any* call trampoline (long-call, arg-reloc), not
3407 just shared library trampolines (import, export). */
3410 hppa_in_solib_call_trampoline (CORE_ADDR pc
, char *name
)
3412 struct minimal_symbol
*minsym
;
3413 struct unwind_table_entry
*u
;
3414 static CORE_ADDR dyncall
= 0;
3415 static CORE_ADDR sr4export
= 0;
3417 #ifdef GDB_TARGET_IS_HPPA_20W
3418 /* PA64 has a completely different stub/trampoline scheme. Is it
3419 better? Maybe. It's certainly harder to determine with any
3420 certainty that we are in a stub because we can not refer to the
3423 The heuristic is simple. Try to lookup the current PC value in th
3424 minimal symbol table. If that fails, then assume we are not in a
3427 Then see if the PC value falls within the section bounds for the
3428 section containing the minimal symbol we found in the first
3429 step. If it does, then assume we are not in a stub and return.
3431 Finally peek at the instructions to see if they look like a stub. */
3433 struct minimal_symbol
*minsym
;
3438 minsym
= lookup_minimal_symbol_by_pc (pc
);
3442 sec
= SYMBOL_BFD_SECTION (minsym
);
3444 if (bfd_get_section_vma (sec
->owner
, sec
) <= pc
3445 && pc
< (bfd_get_section_vma (sec
->owner
, sec
)
3446 + bfd_section_size (sec
->owner
, sec
)))
3449 /* We might be in a stub. Peek at the instructions. Stubs are 3
3450 instructions long. */
3451 insn
= read_memory_integer (pc
, 4);
3453 /* Find out where we think we are within the stub. */
3454 if ((insn
& 0xffffc00e) == 0x53610000)
3456 else if ((insn
& 0xffffffff) == 0xe820d000)
3458 else if ((insn
& 0xffffc00e) == 0x537b0000)
3463 /* Now verify each insn in the range looks like a stub instruction. */
3464 insn
= read_memory_integer (addr
, 4);
3465 if ((insn
& 0xffffc00e) != 0x53610000)
3468 /* Now verify each insn in the range looks like a stub instruction. */
3469 insn
= read_memory_integer (addr
+ 4, 4);
3470 if ((insn
& 0xffffffff) != 0xe820d000)
3473 /* Now verify each insn in the range looks like a stub instruction. */
3474 insn
= read_memory_integer (addr
+ 8, 4);
3475 if ((insn
& 0xffffc00e) != 0x537b0000)
3478 /* Looks like a stub. */
3483 /* FIXME XXX - dyncall and sr4export must be initialized whenever we get a
3486 /* First see if PC is in one of the two C-library trampolines. */
3489 minsym
= lookup_minimal_symbol ("$$dyncall", NULL
, NULL
);
3491 dyncall
= SYMBOL_VALUE_ADDRESS (minsym
);
3498 minsym
= lookup_minimal_symbol ("_sr4export", NULL
, NULL
);
3500 sr4export
= SYMBOL_VALUE_ADDRESS (minsym
);
3505 if (pc
== dyncall
|| pc
== sr4export
)
3508 minsym
= lookup_minimal_symbol_by_pc (pc
);
3509 if (minsym
&& strcmp (DEPRECATED_SYMBOL_NAME (minsym
), ".stub") == 0)
3512 /* Get the unwind descriptor corresponding to PC, return zero
3513 if no unwind was found. */
3514 u
= find_unwind_entry (pc
);
3518 /* If this isn't a linker stub, then return now. */
3519 if (u
->stub_unwind
.stub_type
== 0)
3522 /* By definition a long-branch stub is a call stub. */
3523 if (u
->stub_unwind
.stub_type
== LONG_BRANCH
)
3526 /* The call and return path execute the same instructions within
3527 an IMPORT stub! So an IMPORT stub is both a call and return
3529 if (u
->stub_unwind
.stub_type
== IMPORT
)
3532 /* Parameter relocation stubs always have a call path and may have a
3534 if (u
->stub_unwind
.stub_type
== PARAMETER_RELOCATION
3535 || u
->stub_unwind
.stub_type
== EXPORT
)
3539 /* Search forward from the current PC until we hit a branch
3540 or the end of the stub. */
3541 for (addr
= pc
; addr
<= u
->region_end
; addr
+= 4)
3545 insn
= read_memory_integer (addr
, 4);
3547 /* Does it look like a bl? If so then it's the call path, if
3548 we find a bv or be first, then we're on the return path. */
3549 if ((insn
& 0xfc00e000) == 0xe8000000)
3551 else if ((insn
& 0xfc00e001) == 0xe800c000
3552 || (insn
& 0xfc000000) == 0xe0000000)
3556 /* Should never happen. */
3557 warning ("Unable to find branch in parameter relocation stub.\n");
3561 /* Unknown stub type. For now, just return zero. */
3565 /* Return one if PC is in the return path of a trampoline, else return zero.
3567 Note we return one for *any* call trampoline (long-call, arg-reloc), not
3568 just shared library trampolines (import, export). */
3571 hppa_in_solib_return_trampoline (CORE_ADDR pc
, char *name
)
3573 struct unwind_table_entry
*u
;
3575 /* Get the unwind descriptor corresponding to PC, return zero
3576 if no unwind was found. */
3577 u
= find_unwind_entry (pc
);
3581 /* If this isn't a linker stub or it's just a long branch stub, then
3583 if (u
->stub_unwind
.stub_type
== 0 || u
->stub_unwind
.stub_type
== LONG_BRANCH
)
3586 /* The call and return path execute the same instructions within
3587 an IMPORT stub! So an IMPORT stub is both a call and return
3589 if (u
->stub_unwind
.stub_type
== IMPORT
)
3592 /* Parameter relocation stubs always have a call path and may have a
3594 if (u
->stub_unwind
.stub_type
== PARAMETER_RELOCATION
3595 || u
->stub_unwind
.stub_type
== EXPORT
)
3599 /* Search forward from the current PC until we hit a branch
3600 or the end of the stub. */
3601 for (addr
= pc
; addr
<= u
->region_end
; addr
+= 4)
3605 insn
= read_memory_integer (addr
, 4);
3607 /* Does it look like a bl? If so then it's the call path, if
3608 we find a bv or be first, then we're on the return path. */
3609 if ((insn
& 0xfc00e000) == 0xe8000000)
3611 else if ((insn
& 0xfc00e001) == 0xe800c000
3612 || (insn
& 0xfc000000) == 0xe0000000)
3616 /* Should never happen. */
3617 warning ("Unable to find branch in parameter relocation stub.\n");
3621 /* Unknown stub type. For now, just return zero. */
3626 /* Figure out if PC is in a trampoline, and if so find out where
3627 the trampoline will jump to. If not in a trampoline, return zero.
3629 Simple code examination probably is not a good idea since the code
3630 sequences in trampolines can also appear in user code.
3632 We use unwinds and information from the minimal symbol table to
3633 determine when we're in a trampoline. This won't work for ELF
3634 (yet) since it doesn't create stub unwind entries. Whether or
3635 not ELF will create stub unwinds or normal unwinds for linker
3636 stubs is still being debated.
3638 This should handle simple calls through dyncall or sr4export,
3639 long calls, argument relocation stubs, and dyncall/sr4export
3640 calling an argument relocation stub. It even handles some stubs
3641 used in dynamic executables. */
3644 hppa_skip_trampoline_code (CORE_ADDR pc
)
3647 long prev_inst
, curr_inst
, loc
;
3648 static CORE_ADDR dyncall
= 0;
3649 static CORE_ADDR dyncall_external
= 0;
3650 static CORE_ADDR sr4export
= 0;
3651 struct minimal_symbol
*msym
;
3652 struct unwind_table_entry
*u
;
3654 /* FIXME XXX - dyncall and sr4export must be initialized whenever we get a
3659 msym
= lookup_minimal_symbol ("$$dyncall", NULL
, NULL
);
3661 dyncall
= SYMBOL_VALUE_ADDRESS (msym
);
3666 if (!dyncall_external
)
3668 msym
= lookup_minimal_symbol ("$$dyncall_external", NULL
, NULL
);
3670 dyncall_external
= SYMBOL_VALUE_ADDRESS (msym
);
3672 dyncall_external
= -1;
3677 msym
= lookup_minimal_symbol ("_sr4export", NULL
, NULL
);
3679 sr4export
= SYMBOL_VALUE_ADDRESS (msym
);
3684 /* Addresses passed to dyncall may *NOT* be the actual address
3685 of the function. So we may have to do something special. */
3688 pc
= (CORE_ADDR
) read_register (22);
3690 /* If bit 30 (counting from the left) is on, then pc is the address of
3691 the PLT entry for this function, not the address of the function
3692 itself. Bit 31 has meaning too, but only for MPE. */
3694 pc
= (CORE_ADDR
) read_memory_integer (pc
& ~0x3, TARGET_PTR_BIT
/ 8);
3696 if (pc
== dyncall_external
)
3698 pc
= (CORE_ADDR
) read_register (22);
3699 pc
= (CORE_ADDR
) read_memory_integer (pc
& ~0x3, TARGET_PTR_BIT
/ 8);
3701 else if (pc
== sr4export
)
3702 pc
= (CORE_ADDR
) (read_register (22));
3704 /* Get the unwind descriptor corresponding to PC, return zero
3705 if no unwind was found. */
3706 u
= find_unwind_entry (pc
);
3710 /* If this isn't a linker stub, then return now. */
3711 /* elz: attention here! (FIXME) because of a compiler/linker
3712 error, some stubs which should have a non zero stub_unwind.stub_type
3713 have unfortunately a value of zero. So this function would return here
3714 as if we were not in a trampoline. To fix this, we go look at the partial
3715 symbol information, which reports this guy as a stub.
3716 (FIXME): Unfortunately, we are not that lucky: it turns out that the
3717 partial symbol information is also wrong sometimes. This is because
3718 when it is entered (somread.c::som_symtab_read()) it can happen that
3719 if the type of the symbol (from the som) is Entry, and the symbol is
3720 in a shared library, then it can also be a trampoline. This would
3721 be OK, except that I believe the way they decide if we are ina shared library
3722 does not work. SOOOO..., even if we have a regular function w/o trampolines
3723 its minimal symbol can be assigned type mst_solib_trampoline.
3724 Also, if we find that the symbol is a real stub, then we fix the unwind
3725 descriptor, and define the stub type to be EXPORT.
3726 Hopefully this is correct most of the times. */
3727 if (u
->stub_unwind
.stub_type
== 0)
3730 /* elz: NOTE (FIXME!) once the problem with the unwind information is fixed
3731 we can delete all the code which appears between the lines */
3732 /*--------------------------------------------------------------------------*/
3733 msym
= lookup_minimal_symbol_by_pc (pc
);
3735 if (msym
== NULL
|| MSYMBOL_TYPE (msym
) != mst_solib_trampoline
)
3736 return orig_pc
== pc
? 0 : pc
& ~0x3;
3738 else if (msym
!= NULL
&& MSYMBOL_TYPE (msym
) == mst_solib_trampoline
)
3740 struct objfile
*objfile
;
3741 struct minimal_symbol
*msymbol
;
3742 int function_found
= 0;
3744 /* go look if there is another minimal symbol with the same name as
3745 this one, but with type mst_text. This would happen if the msym
3746 is an actual trampoline, in which case there would be another
3747 symbol with the same name corresponding to the real function */
3749 ALL_MSYMBOLS (objfile
, msymbol
)
3751 if (MSYMBOL_TYPE (msymbol
) == mst_text
3752 && DEPRECATED_STREQ (DEPRECATED_SYMBOL_NAME (msymbol
), DEPRECATED_SYMBOL_NAME (msym
)))
3760 /* the type of msym is correct (mst_solib_trampoline), but
3761 the unwind info is wrong, so set it to the correct value */
3762 u
->stub_unwind
.stub_type
= EXPORT
;
3764 /* the stub type info in the unwind is correct (this is not a
3765 trampoline), but the msym type information is wrong, it
3766 should be mst_text. So we need to fix the msym, and also
3767 get out of this function */
3769 MSYMBOL_TYPE (msym
) = mst_text
;
3770 return orig_pc
== pc
? 0 : pc
& ~0x3;
3774 /*--------------------------------------------------------------------------*/
3777 /* It's a stub. Search for a branch and figure out where it goes.
3778 Note we have to handle multi insn branch sequences like ldil;ble.
3779 Most (all?) other branches can be determined by examining the contents
3780 of certain registers and the stack. */
3787 /* Make sure we haven't walked outside the range of this stub. */
3788 if (u
!= find_unwind_entry (loc
))
3790 warning ("Unable to find branch in linker stub");
3791 return orig_pc
== pc
? 0 : pc
& ~0x3;
3794 prev_inst
= curr_inst
;
3795 curr_inst
= read_memory_integer (loc
, 4);
3797 /* Does it look like a branch external using %r1? Then it's the
3798 branch from the stub to the actual function. */
3799 if ((curr_inst
& 0xffe0e000) == 0xe0202000)
3801 /* Yup. See if the previous instruction loaded
3802 a value into %r1. If so compute and return the jump address. */
3803 if ((prev_inst
& 0xffe00000) == 0x20200000)
3804 return (extract_21 (prev_inst
) + extract_17 (curr_inst
)) & ~0x3;
3807 warning ("Unable to find ldil X,%%r1 before ble Y(%%sr4,%%r1).");
3808 return orig_pc
== pc
? 0 : pc
& ~0x3;
3812 /* Does it look like a be 0(sr0,%r21)? OR
3813 Does it look like a be, n 0(sr0,%r21)? OR
3814 Does it look like a bve (r21)? (this is on PA2.0)
3815 Does it look like a bve, n(r21)? (this is also on PA2.0)
3816 That's the branch from an
3817 import stub to an export stub.
3819 It is impossible to determine the target of the branch via
3820 simple examination of instructions and/or data (consider
3821 that the address in the plabel may be the address of the
3822 bind-on-reference routine in the dynamic loader).
3824 So we have try an alternative approach.
3826 Get the name of the symbol at our current location; it should
3827 be a stub symbol with the same name as the symbol in the
3830 Then lookup a minimal symbol with the same name; we should
3831 get the minimal symbol for the target routine in the shared
3832 library as those take precedence of import/export stubs. */
3833 if ((curr_inst
== 0xe2a00000) ||
3834 (curr_inst
== 0xe2a00002) ||
3835 (curr_inst
== 0xeaa0d000) ||
3836 (curr_inst
== 0xeaa0d002))
3838 struct minimal_symbol
*stubsym
, *libsym
;
3840 stubsym
= lookup_minimal_symbol_by_pc (loc
);
3841 if (stubsym
== NULL
)
3843 warning ("Unable to find symbol for 0x%lx", loc
);
3844 return orig_pc
== pc
? 0 : pc
& ~0x3;
3847 libsym
= lookup_minimal_symbol (DEPRECATED_SYMBOL_NAME (stubsym
), NULL
, NULL
);
3850 warning ("Unable to find library symbol for %s\n",
3851 DEPRECATED_SYMBOL_NAME (stubsym
));
3852 return orig_pc
== pc
? 0 : pc
& ~0x3;
3855 return SYMBOL_VALUE (libsym
);
3858 /* Does it look like bl X,%rp or bl X,%r0? Another way to do a
3859 branch from the stub to the actual function. */
3861 else if ((curr_inst
& 0xffe0e000) == 0xe8400000
3862 || (curr_inst
& 0xffe0e000) == 0xe8000000
3863 || (curr_inst
& 0xffe0e000) == 0xe800A000)
3864 return (loc
+ extract_17 (curr_inst
) + 8) & ~0x3;
3866 /* Does it look like bv (rp)? Note this depends on the
3867 current stack pointer being the same as the stack
3868 pointer in the stub itself! This is a branch on from the
3869 stub back to the original caller. */
3870 /*else if ((curr_inst & 0xffe0e000) == 0xe840c000) */
3871 else if ((curr_inst
& 0xffe0f000) == 0xe840c000)
3873 /* Yup. See if the previous instruction loaded
3875 if (prev_inst
== 0x4bc23ff1)
3876 return (read_memory_integer
3877 (read_register (SP_REGNUM
) - 8, 4)) & ~0x3;
3880 warning ("Unable to find restore of %%rp before bv (%%rp).");
3881 return orig_pc
== pc
? 0 : pc
& ~0x3;
3885 /* elz: added this case to capture the new instruction
3886 at the end of the return part of an export stub used by
3887 the PA2.0: BVE, n (rp) */
3888 else if ((curr_inst
& 0xffe0f000) == 0xe840d000)
3890 return (read_memory_integer
3891 (read_register (SP_REGNUM
) - 24, TARGET_PTR_BIT
/ 8)) & ~0x3;
3894 /* What about be,n 0(sr0,%rp)? It's just another way we return to
3895 the original caller from the stub. Used in dynamic executables. */
3896 else if (curr_inst
== 0xe0400002)
3898 /* The value we jump to is sitting in sp - 24. But that's
3899 loaded several instructions before the be instruction.
3900 I guess we could check for the previous instruction being
3901 mtsp %r1,%sr0 if we want to do sanity checking. */
3902 return (read_memory_integer
3903 (read_register (SP_REGNUM
) - 24, TARGET_PTR_BIT
/ 8)) & ~0x3;
3906 /* Haven't found the branch yet, but we're still in the stub.
3913 /* For the given instruction (INST), return any adjustment it makes
3914 to the stack pointer or zero for no adjustment.
3916 This only handles instructions commonly found in prologues. */
3919 prologue_inst_adjust_sp (unsigned long inst
)
3921 /* This must persist across calls. */
3922 static int save_high21
;
3924 /* The most common way to perform a stack adjustment ldo X(sp),sp */
3925 if ((inst
& 0xffffc000) == 0x37de0000)
3926 return extract_14 (inst
);
3929 if ((inst
& 0xffe00000) == 0x6fc00000)
3930 return extract_14 (inst
);
3932 /* std,ma X,D(sp) */
3933 if ((inst
& 0xffe00008) == 0x73c00008)
3934 return (inst
& 0x1 ? -1 << 13 : 0) | (((inst
>> 4) & 0x3ff) << 3);
3936 /* addil high21,%r1; ldo low11,(%r1),%r30)
3937 save high bits in save_high21 for later use. */
3938 if ((inst
& 0xffe00000) == 0x28200000)
3940 save_high21
= extract_21 (inst
);
3944 if ((inst
& 0xffff0000) == 0x343e0000)
3945 return save_high21
+ extract_14 (inst
);
3947 /* fstws as used by the HP compilers. */
3948 if ((inst
& 0xffffffe0) == 0x2fd01220)
3949 return extract_5_load (inst
);
3951 /* No adjustment. */
3955 /* Return nonzero if INST is a branch of some kind, else return zero. */
3958 is_branch (unsigned long inst
)
3987 /* Return the register number for a GR which is saved by INST or
3988 zero it INST does not save a GR. */
3991 inst_saves_gr (unsigned long inst
)
3993 /* Does it look like a stw? */
3994 if ((inst
>> 26) == 0x1a || (inst
>> 26) == 0x1b
3995 || (inst
>> 26) == 0x1f
3996 || ((inst
>> 26) == 0x1f
3997 && ((inst
>> 6) == 0xa)))
3998 return extract_5R_store (inst
);
4000 /* Does it look like a std? */
4001 if ((inst
>> 26) == 0x1c
4002 || ((inst
>> 26) == 0x03
4003 && ((inst
>> 6) & 0xf) == 0xb))
4004 return extract_5R_store (inst
);
4006 /* Does it look like a stwm? GCC & HPC may use this in prologues. */
4007 if ((inst
>> 26) == 0x1b)
4008 return extract_5R_store (inst
);
4010 /* Does it look like sth or stb? HPC versions 9.0 and later use these
4012 if ((inst
>> 26) == 0x19 || (inst
>> 26) == 0x18
4013 || ((inst
>> 26) == 0x3
4014 && (((inst
>> 6) & 0xf) == 0x8
4015 || (inst
>> 6) & 0xf) == 0x9))
4016 return extract_5R_store (inst
);
4021 /* Return the register number for a FR which is saved by INST or
4022 zero it INST does not save a FR.
4024 Note we only care about full 64bit register stores (that's the only
4025 kind of stores the prologue will use).
4027 FIXME: What about argument stores with the HP compiler in ANSI mode? */
4030 inst_saves_fr (unsigned long inst
)
4032 /* is this an FSTD ? */
4033 if ((inst
& 0xfc00dfc0) == 0x2c001200)
4034 return extract_5r_store (inst
);
4035 if ((inst
& 0xfc000002) == 0x70000002)
4036 return extract_5R_store (inst
);
4037 /* is this an FSTW ? */
4038 if ((inst
& 0xfc00df80) == 0x24001200)
4039 return extract_5r_store (inst
);
4040 if ((inst
& 0xfc000002) == 0x7c000000)
4041 return extract_5R_store (inst
);
4045 /* Advance PC across any function entry prologue instructions
4046 to reach some "real" code.
4048 Use information in the unwind table to determine what exactly should
4049 be in the prologue. */
4053 skip_prologue_hard_way (CORE_ADDR pc
)
4056 CORE_ADDR orig_pc
= pc
;
4057 unsigned long inst
, stack_remaining
, save_gr
, save_fr
, save_rp
, save_sp
;
4058 unsigned long args_stored
, status
, i
, restart_gr
, restart_fr
;
4059 struct unwind_table_entry
*u
;
4065 u
= find_unwind_entry (pc
);
4069 /* If we are not at the beginning of a function, then return now. */
4070 if ((pc
& ~0x3) != u
->region_start
)
4073 /* This is how much of a frame adjustment we need to account for. */
4074 stack_remaining
= u
->Total_frame_size
<< 3;
4076 /* Magic register saves we want to know about. */
4077 save_rp
= u
->Save_RP
;
4078 save_sp
= u
->Save_SP
;
4080 /* An indication that args may be stored into the stack. Unfortunately
4081 the HPUX compilers tend to set this in cases where no args were
4085 /* Turn the Entry_GR field into a bitmask. */
4087 for (i
= 3; i
< u
->Entry_GR
+ 3; i
++)
4089 /* Frame pointer gets saved into a special location. */
4090 if (u
->Save_SP
&& i
== DEPRECATED_FP_REGNUM
)
4093 save_gr
|= (1 << i
);
4095 save_gr
&= ~restart_gr
;
4097 /* Turn the Entry_FR field into a bitmask too. */
4099 for (i
= 12; i
< u
->Entry_FR
+ 12; i
++)
4100 save_fr
|= (1 << i
);
4101 save_fr
&= ~restart_fr
;
4103 /* Loop until we find everything of interest or hit a branch.
4105 For unoptimized GCC code and for any HP CC code this will never ever
4106 examine any user instructions.
4108 For optimzied GCC code we're faced with problems. GCC will schedule
4109 its prologue and make prologue instructions available for delay slot
4110 filling. The end result is user code gets mixed in with the prologue
4111 and a prologue instruction may be in the delay slot of the first branch
4114 Some unexpected things are expected with debugging optimized code, so
4115 we allow this routine to walk past user instructions in optimized
4117 while (save_gr
|| save_fr
|| save_rp
|| save_sp
|| stack_remaining
> 0
4120 unsigned int reg_num
;
4121 unsigned long old_stack_remaining
, old_save_gr
, old_save_fr
;
4122 unsigned long old_save_rp
, old_save_sp
, next_inst
;
4124 /* Save copies of all the triggers so we can compare them later
4126 old_save_gr
= save_gr
;
4127 old_save_fr
= save_fr
;
4128 old_save_rp
= save_rp
;
4129 old_save_sp
= save_sp
;
4130 old_stack_remaining
= stack_remaining
;
4132 status
= target_read_memory (pc
, buf
, 4);
4133 inst
= extract_unsigned_integer (buf
, 4);
4139 /* Note the interesting effects of this instruction. */
4140 stack_remaining
-= prologue_inst_adjust_sp (inst
);
4142 /* There are limited ways to store the return pointer into the
4144 if (inst
== 0x6bc23fd9 || inst
== 0x0fc212c1)
4147 /* These are the only ways we save SP into the stack. At this time
4148 the HP compilers never bother to save SP into the stack. */
4149 if ((inst
& 0xffffc000) == 0x6fc10000
4150 || (inst
& 0xffffc00c) == 0x73c10008)
4153 /* Are we loading some register with an offset from the argument
4155 if ((inst
& 0xffe00000) == 0x37a00000
4156 || (inst
& 0xffffffe0) == 0x081d0240)
4162 /* Account for general and floating-point register saves. */
4163 reg_num
= inst_saves_gr (inst
);
4164 save_gr
&= ~(1 << reg_num
);
4166 /* Ugh. Also account for argument stores into the stack.
4167 Unfortunately args_stored only tells us that some arguments
4168 where stored into the stack. Not how many or what kind!
4170 This is a kludge as on the HP compiler sets this bit and it
4171 never does prologue scheduling. So once we see one, skip past
4172 all of them. We have similar code for the fp arg stores below.
4174 FIXME. Can still die if we have a mix of GR and FR argument
4176 if (reg_num
>= (TARGET_PTR_BIT
== 64 ? 19 : 23) && reg_num
<= 26)
4178 while (reg_num
>= (TARGET_PTR_BIT
== 64 ? 19 : 23) && reg_num
<= 26)
4181 status
= target_read_memory (pc
, buf
, 4);
4182 inst
= extract_unsigned_integer (buf
, 4);
4185 reg_num
= inst_saves_gr (inst
);
4191 reg_num
= inst_saves_fr (inst
);
4192 save_fr
&= ~(1 << reg_num
);
4194 status
= target_read_memory (pc
+ 4, buf
, 4);
4195 next_inst
= extract_unsigned_integer (buf
, 4);
4201 /* We've got to be read to handle the ldo before the fp register
4203 if ((inst
& 0xfc000000) == 0x34000000
4204 && inst_saves_fr (next_inst
) >= 4
4205 && inst_saves_fr (next_inst
) <= (TARGET_PTR_BIT
== 64 ? 11 : 7))
4207 /* So we drop into the code below in a reasonable state. */
4208 reg_num
= inst_saves_fr (next_inst
);
4212 /* Ugh. Also account for argument stores into the stack.
4213 This is a kludge as on the HP compiler sets this bit and it
4214 never does prologue scheduling. So once we see one, skip past
4216 if (reg_num
>= 4 && reg_num
<= (TARGET_PTR_BIT
== 64 ? 11 : 7))
4218 while (reg_num
>= 4 && reg_num
<= (TARGET_PTR_BIT
== 64 ? 11 : 7))
4221 status
= target_read_memory (pc
, buf
, 4);
4222 inst
= extract_unsigned_integer (buf
, 4);
4225 if ((inst
& 0xfc000000) != 0x34000000)
4227 status
= target_read_memory (pc
+ 4, buf
, 4);
4228 next_inst
= extract_unsigned_integer (buf
, 4);
4231 reg_num
= inst_saves_fr (next_inst
);
4237 /* Quit if we hit any kind of branch. This can happen if a prologue
4238 instruction is in the delay slot of the first call/branch. */
4239 if (is_branch (inst
))
4242 /* What a crock. The HP compilers set args_stored even if no
4243 arguments were stored into the stack (boo hiss). This could
4244 cause this code to then skip a bunch of user insns (up to the
4247 To combat this we try to identify when args_stored was bogusly
4248 set and clear it. We only do this when args_stored is nonzero,
4249 all other resources are accounted for, and nothing changed on
4252 && !(save_gr
|| save_fr
|| save_rp
|| save_sp
|| stack_remaining
> 0)
4253 && old_save_gr
== save_gr
&& old_save_fr
== save_fr
4254 && old_save_rp
== save_rp
&& old_save_sp
== save_sp
4255 && old_stack_remaining
== stack_remaining
)
4262 /* We've got a tenative location for the end of the prologue. However
4263 because of limitations in the unwind descriptor mechanism we may
4264 have went too far into user code looking for the save of a register
4265 that does not exist. So, if there registers we expected to be saved
4266 but never were, mask them out and restart.
4268 This should only happen in optimized code, and should be very rare. */
4269 if (save_gr
|| (save_fr
&& !(restart_fr
|| restart_gr
)))
4272 restart_gr
= save_gr
;
4273 restart_fr
= save_fr
;
4281 /* Return the address of the PC after the last prologue instruction if
4282 we can determine it from the debug symbols. Else return zero. */
4285 after_prologue (CORE_ADDR pc
)
4287 struct symtab_and_line sal
;
4288 CORE_ADDR func_addr
, func_end
;
4291 /* If we can not find the symbol in the partial symbol table, then
4292 there is no hope we can determine the function's start address
4294 if (!find_pc_partial_function (pc
, NULL
, &func_addr
, &func_end
))
4297 /* Get the line associated with FUNC_ADDR. */
4298 sal
= find_pc_line (func_addr
, 0);
4300 /* There are only two cases to consider. First, the end of the source line
4301 is within the function bounds. In that case we return the end of the
4302 source line. Second is the end of the source line extends beyond the
4303 bounds of the current function. We need to use the slow code to
4304 examine instructions in that case.
4306 Anything else is simply a bug elsewhere. Fixing it here is absolutely
4307 the wrong thing to do. In fact, it should be entirely possible for this
4308 function to always return zero since the slow instruction scanning code
4309 is supposed to *always* work. If it does not, then it is a bug. */
4310 if (sal
.end
< func_end
)
4316 /* To skip prologues, I use this predicate. Returns either PC itself
4317 if the code at PC does not look like a function prologue; otherwise
4318 returns an address that (if we're lucky) follows the prologue. If
4319 LENIENT, then we must skip everything which is involved in setting
4320 up the frame (it's OK to skip more, just so long as we don't skip
4321 anything which might clobber the registers which are being saved.
4322 Currently we must not skip more on the alpha, but we might the lenient
4326 hppa_skip_prologue (CORE_ADDR pc
)
4330 CORE_ADDR post_prologue_pc
;
4333 /* See if we can determine the end of the prologue via the symbol table.
4334 If so, then return either PC, or the PC after the prologue, whichever
4337 post_prologue_pc
= after_prologue (pc
);
4339 /* If after_prologue returned a useful address, then use it. Else
4340 fall back on the instruction skipping code.
4342 Some folks have claimed this causes problems because the breakpoint
4343 may be the first instruction of the prologue. If that happens, then
4344 the instruction skipping code has a bug that needs to be fixed. */
4345 if (post_prologue_pc
!= 0)
4346 return max (pc
, post_prologue_pc
);
4348 return (skip_prologue_hard_way (pc
));
4351 /* Put here the code to store, into the SAVED_REGS, the addresses of
4352 the saved registers of frame described by FRAME_INFO. This
4353 includes special registers such as pc and fp saved in special ways
4354 in the stack frame. sp is even more special: the address we return
4355 for it IS the sp for the next frame. */
4358 hppa_frame_find_saved_regs (struct frame_info
*frame_info
,
4359 CORE_ADDR frame_saved_regs
[])
4362 struct unwind_table_entry
*u
;
4363 unsigned long inst
, stack_remaining
, save_gr
, save_fr
, save_rp
, save_sp
;
4367 int final_iteration
;
4369 /* Zero out everything. */
4370 memset (frame_saved_regs
, '\0', SIZEOF_FRAME_SAVED_REGS
);
4372 /* Call dummy frames always look the same, so there's no need to
4373 examine the dummy code to determine locations of saved registers;
4374 instead, let find_dummy_frame_regs fill in the correct offsets
4375 for the saved registers. */
4376 if ((get_frame_pc (frame_info
) >= get_frame_base (frame_info
)
4377 && (get_frame_pc (frame_info
)
4378 <= (get_frame_base (frame_info
)
4379 /* A call dummy is sized in words, but it is actually a
4380 series of instructions. Account for that scaling
4382 + ((DEPRECATED_REGISTER_SIZE
/ INSTRUCTION_SIZE
)
4383 * DEPRECATED_CALL_DUMMY_LENGTH
)
4384 /* Similarly we have to account for 64bit wide register
4386 + (32 * DEPRECATED_REGISTER_SIZE
)
4387 /* We always consider FP regs 8 bytes long. */
4388 + (NUM_REGS
- FP0_REGNUM
) * 8
4389 /* Similarly we have to account for 64bit wide register
4391 + (6 * DEPRECATED_REGISTER_SIZE
)))))
4392 find_dummy_frame_regs (frame_info
, frame_saved_regs
);
4394 /* Interrupt handlers are special too. They lay out the register
4395 state in the exact same order as the register numbers in GDB. */
4396 if (pc_in_interrupt_handler (get_frame_pc (frame_info
)))
4398 for (i
= 0; i
< NUM_REGS
; i
++)
4400 /* SP is a little special. */
4402 frame_saved_regs
[SP_REGNUM
]
4403 = read_memory_integer (get_frame_base (frame_info
) + SP_REGNUM
* 4,
4404 TARGET_PTR_BIT
/ 8);
4406 frame_saved_regs
[i
] = get_frame_base (frame_info
) + i
* 4;
4411 #ifdef FRAME_FIND_SAVED_REGS_IN_SIGTRAMP
4412 /* Handle signal handler callers. */
4413 if ((get_frame_type (frame_info
) == SIGTRAMP_FRAME
))
4415 FRAME_FIND_SAVED_REGS_IN_SIGTRAMP (frame_info
, frame_saved_regs
);
4420 /* Get the starting address of the function referred to by the PC
4422 pc
= get_frame_func (frame_info
);
4425 u
= find_unwind_entry (pc
);
4429 /* This is how much of a frame adjustment we need to account for. */
4430 stack_remaining
= u
->Total_frame_size
<< 3;
4432 /* Magic register saves we want to know about. */
4433 save_rp
= u
->Save_RP
;
4434 save_sp
= u
->Save_SP
;
4436 /* Turn the Entry_GR field into a bitmask. */
4438 for (i
= 3; i
< u
->Entry_GR
+ 3; i
++)
4440 /* Frame pointer gets saved into a special location. */
4441 if (u
->Save_SP
&& i
== DEPRECATED_FP_REGNUM
)
4444 save_gr
|= (1 << i
);
4447 /* Turn the Entry_FR field into a bitmask too. */
4449 for (i
= 12; i
< u
->Entry_FR
+ 12; i
++)
4450 save_fr
|= (1 << i
);
4452 /* The frame always represents the value of %sp at entry to the
4453 current function (and is thus equivalent to the "saved" stack
4455 frame_saved_regs
[SP_REGNUM
] = get_frame_base (frame_info
);
4457 /* Loop until we find everything of interest or hit a branch.
4459 For unoptimized GCC code and for any HP CC code this will never ever
4460 examine any user instructions.
4462 For optimized GCC code we're faced with problems. GCC will schedule
4463 its prologue and make prologue instructions available for delay slot
4464 filling. The end result is user code gets mixed in with the prologue
4465 and a prologue instruction may be in the delay slot of the first branch
4468 Some unexpected things are expected with debugging optimized code, so
4469 we allow this routine to walk past user instructions in optimized
4471 final_iteration
= 0;
4472 while ((save_gr
|| save_fr
|| save_rp
|| save_sp
|| stack_remaining
> 0)
4473 && pc
<= get_frame_pc (frame_info
))
4475 status
= target_read_memory (pc
, buf
, 4);
4476 inst
= extract_unsigned_integer (buf
, 4);
4482 /* Note the interesting effects of this instruction. */
4483 stack_remaining
-= prologue_inst_adjust_sp (inst
);
4485 /* There are limited ways to store the return pointer into the
4487 if (inst
== 0x6bc23fd9) /* stw rp,-0x14(sr0,sp) */
4490 frame_saved_regs
[RP_REGNUM
] = get_frame_base (frame_info
) - 20;
4492 else if (inst
== 0x0fc212c1) /* std rp,-0x10(sr0,sp) */
4495 frame_saved_regs
[RP_REGNUM
] = get_frame_base (frame_info
) - 16;
4498 /* Note if we saved SP into the stack. This also happens to indicate
4499 the location of the saved frame pointer. */
4500 if ( (inst
& 0xffffc000) == 0x6fc10000 /* stw,ma r1,N(sr0,sp) */
4501 || (inst
& 0xffffc00c) == 0x73c10008) /* std,ma r1,N(sr0,sp) */
4503 frame_saved_regs
[DEPRECATED_FP_REGNUM
] = get_frame_base (frame_info
);
4507 /* Account for general and floating-point register saves. */
4508 reg
= inst_saves_gr (inst
);
4509 if (reg
>= 3 && reg
<= 18
4510 && (!u
->Save_SP
|| reg
!= DEPRECATED_FP_REGNUM
))
4512 save_gr
&= ~(1 << reg
);
4514 /* stwm with a positive displacement is a *post modify*. */
4515 if ((inst
>> 26) == 0x1b
4516 && extract_14 (inst
) >= 0)
4517 frame_saved_regs
[reg
] = get_frame_base (frame_info
);
4518 /* A std has explicit post_modify forms. */
4519 else if ((inst
& 0xfc00000c) == 0x70000008)
4520 frame_saved_regs
[reg
] = get_frame_base (frame_info
);
4525 if ((inst
>> 26) == 0x1c)
4526 offset
= (inst
& 0x1 ? -1 << 13 : 0) | (((inst
>> 4) & 0x3ff) << 3);
4527 else if ((inst
>> 26) == 0x03)
4528 offset
= low_sign_extend (inst
& 0x1f, 5);
4530 offset
= extract_14 (inst
);
4532 /* Handle code with and without frame pointers. */
4534 frame_saved_regs
[reg
]
4535 = get_frame_base (frame_info
) + offset
;
4537 frame_saved_regs
[reg
]
4538 = (get_frame_base (frame_info
) + (u
->Total_frame_size
<< 3)
4544 /* GCC handles callee saved FP regs a little differently.
4546 It emits an instruction to put the value of the start of
4547 the FP store area into %r1. It then uses fstds,ma with
4548 a basereg of %r1 for the stores.
4550 HP CC emits them at the current stack pointer modifying
4551 the stack pointer as it stores each register. */
4553 /* ldo X(%r3),%r1 or ldo X(%r30),%r1. */
4554 if ((inst
& 0xffffc000) == 0x34610000
4555 || (inst
& 0xffffc000) == 0x37c10000)
4556 fp_loc
= extract_14 (inst
);
4558 reg
= inst_saves_fr (inst
);
4559 if (reg
>= 12 && reg
<= 21)
4561 /* Note +4 braindamage below is necessary because the FP status
4562 registers are internally 8 registers rather than the expected
4564 save_fr
&= ~(1 << reg
);
4567 /* 1st HP CC FP register store. After this instruction
4568 we've set enough state that the GCC and HPCC code are
4569 both handled in the same manner. */
4570 frame_saved_regs
[reg
+ FP4_REGNUM
+ 4] = get_frame_base (frame_info
);
4575 frame_saved_regs
[reg
+ FP0_REGNUM
+ 4]
4576 = get_frame_base (frame_info
) + fp_loc
;
4581 /* Quit if we hit any kind of branch the previous iteration. */
4582 if (final_iteration
)
4585 /* We want to look precisely one instruction beyond the branch
4586 if we have not found everything yet. */
4587 if (is_branch (inst
))
4588 final_iteration
= 1;
4595 /* XXX - deprecated. This is a compatibility function for targets
4596 that do not yet implement DEPRECATED_FRAME_INIT_SAVED_REGS. */
4597 /* Find the addresses in which registers are saved in FRAME. */
4600 hppa_frame_init_saved_regs (struct frame_info
*frame
)
4602 if (deprecated_get_frame_saved_regs (frame
) == NULL
)
4603 frame_saved_regs_zalloc (frame
);
4604 hppa_frame_find_saved_regs (frame
, deprecated_get_frame_saved_regs (frame
));
4607 struct hppa_frame_cache
4610 struct trad_frame_saved_reg
*saved_regs
;
4613 static struct hppa_frame_cache
*
4614 hppa_frame_cache (struct frame_info
*next_frame
, void **this_cache
)
4616 struct hppa_frame_cache
*cache
;
4621 struct unwind_table_entry
*u
;
4624 if ((*this_cache
) != NULL
)
4625 return (*this_cache
);
4626 cache
= FRAME_OBSTACK_ZALLOC (struct hppa_frame_cache
);
4627 (*this_cache
) = cache
;
4628 cache
->saved_regs
= trad_frame_alloc_saved_regs (next_frame
);
4631 u
= find_unwind_entry (frame_func_unwind (next_frame
));
4635 /* Turn the Entry_GR field into a bitmask. */
4637 for (i
= 3; i
< u
->Entry_GR
+ 3; i
++)
4639 /* Frame pointer gets saved into a special location. */
4640 if (u
->Save_SP
&& i
== DEPRECATED_FP_REGNUM
)
4643 saved_gr_mask
|= (1 << i
);
4646 /* Turn the Entry_FR field into a bitmask too. */
4648 for (i
= 12; i
< u
->Entry_FR
+ 12; i
++)
4649 saved_fr_mask
|= (1 << i
);
4651 /* Loop until we find everything of interest or hit a branch.
4653 For unoptimized GCC code and for any HP CC code this will never ever
4654 examine any user instructions.
4656 For optimized GCC code we're faced with problems. GCC will schedule
4657 its prologue and make prologue instructions available for delay slot
4658 filling. The end result is user code gets mixed in with the prologue
4659 and a prologue instruction may be in the delay slot of the first branch
4662 Some unexpected things are expected with debugging optimized code, so
4663 we allow this routine to walk past user instructions in optimized
4666 int final_iteration
= 0;
4668 CORE_ADDR end_pc
= skip_prologue_using_sal (pc
);
4669 int looking_for_sp
= u
->Save_SP
;
4670 int looking_for_rp
= u
->Save_RP
;
4673 end_pc
= frame_pc_unwind (next_frame
);
4675 for (pc
= frame_func_unwind (next_frame
);
4676 ((saved_gr_mask
|| saved_fr_mask
4677 || looking_for_sp
|| looking_for_rp
4678 || frame_size
< (u
->Total_frame_size
<< 3))
4684 long status
= target_read_memory (pc
, buf4
, sizeof buf4
);
4685 long inst
= extract_unsigned_integer (buf4
, sizeof buf4
);
4687 /* Note the interesting effects of this instruction. */
4688 frame_size
+= prologue_inst_adjust_sp (inst
);
4690 /* There are limited ways to store the return pointer into the
4692 if (inst
== 0x6bc23fd9) /* stw rp,-0x14(sr0,sp) */
4695 cache
->saved_regs
[RP_REGNUM
].addr
= -20;
4697 else if (inst
== 0x0fc212c1) /* std rp,-0x10(sr0,sp) */
4700 cache
->saved_regs
[RP_REGNUM
].addr
= -16;
4703 /* Check to see if we saved SP into the stack. This also
4704 happens to indicate the location of the saved frame
4706 if ((inst
& 0xffffc000) == 0x6fc10000 /* stw,ma r1,N(sr0,sp) */
4707 || (inst
& 0xffffc00c) == 0x73c10008) /* std,ma r1,N(sr0,sp) */
4710 cache
->saved_regs
[DEPRECATED_FP_REGNUM
].addr
= 0;
4713 /* Account for general and floating-point register saves. */
4714 reg
= inst_saves_gr (inst
);
4715 if (reg
>= 3 && reg
<= 18
4716 && (!u
->Save_SP
|| reg
!= DEPRECATED_FP_REGNUM
))
4718 saved_gr_mask
&= ~(1 << reg
);
4719 if ((inst
>> 26) == 0x1b && extract_14 (inst
) >= 0)
4720 /* stwm with a positive displacement is a _post_
4722 cache
->saved_regs
[reg
].addr
= 0;
4723 else if ((inst
& 0xfc00000c) == 0x70000008)
4724 /* A std has explicit post_modify forms. */
4725 cache
->saved_regs
[reg
].addr
= 0;
4730 if ((inst
>> 26) == 0x1c)
4731 offset
= (inst
& 0x1 ? -1 << 13 : 0) | (((inst
>> 4) & 0x3ff) << 3);
4732 else if ((inst
>> 26) == 0x03)
4733 offset
= low_sign_extend (inst
& 0x1f, 5);
4735 offset
= extract_14 (inst
);
4737 /* Handle code with and without frame pointers. */
4739 cache
->saved_regs
[reg
].addr
= offset
;
4741 cache
->saved_regs
[reg
].addr
= (u
->Total_frame_size
<< 3) + offset
;
4745 /* GCC handles callee saved FP regs a little differently.
4747 It emits an instruction to put the value of the start of
4748 the FP store area into %r1. It then uses fstds,ma with a
4749 basereg of %r1 for the stores.
4751 HP CC emits them at the current stack pointer modifying the
4752 stack pointer as it stores each register. */
4754 /* ldo X(%r3),%r1 or ldo X(%r30),%r1. */
4755 if ((inst
& 0xffffc000) == 0x34610000
4756 || (inst
& 0xffffc000) == 0x37c10000)
4757 fp_loc
= extract_14 (inst
);
4759 reg
= inst_saves_fr (inst
);
4760 if (reg
>= 12 && reg
<= 21)
4762 /* Note +4 braindamage below is necessary because the FP
4763 status registers are internally 8 registers rather than
4764 the expected 4 registers. */
4765 saved_fr_mask
&= ~(1 << reg
);
4768 /* 1st HP CC FP register store. After this
4769 instruction we've set enough state that the GCC and
4770 HPCC code are both handled in the same manner. */
4771 cache
->saved_regs
[reg
+ FP4_REGNUM
+ 4].addr
= 0;
4776 cache
->saved_regs
[reg
+ FP0_REGNUM
+ 4].addr
= fp_loc
;
4781 /* Quit if we hit any kind of branch the previous iteration. */
4782 if (final_iteration
)
4784 /* We want to look precisely one instruction beyond the branch
4785 if we have not found everything yet. */
4786 if (is_branch (inst
))
4787 final_iteration
= 1;
4792 /* The frame base always represents the value of %sp at entry to
4793 the current function (and is thus equivalent to the "saved"
4795 CORE_ADDR this_sp
= frame_unwind_register_unsigned (next_frame
, SP_REGNUM
);
4796 /* FIXME: cagney/2004-02-22: This assumes that the frame has been
4797 created. If it hasn't everything will be out-of-wack. */
4798 if (u
->Save_SP
&& trad_frame_addr_p (cache
->saved_regs
, SP_REGNUM
))
4799 /* Both we're expecting the SP to be saved and the SP has been
4800 saved. The entry SP value is saved at this frame's SP
4802 cache
->base
= read_memory_integer (this_sp
, TARGET_PTR_BIT
/ 8);
4804 /* The prologue has been slowly allocating stack space. Adjust
4806 cache
->base
= this_sp
- frame_size
;
4807 trad_frame_set_value (cache
->saved_regs
, SP_REGNUM
, cache
->base
);
4810 /* The PC is found in the "return register". */
4812 cache
->saved_regs
[PC_REGNUM
] = cache
->saved_regs
[31];
4814 cache
->saved_regs
[PC_REGNUM
] = cache
->saved_regs
[RP_REGNUM
];
4817 /* Convert all the offsets into addresses. */
4819 for (reg
= 0; reg
< NUM_REGS
; reg
++)
4821 if (trad_frame_addr_p (cache
->saved_regs
, reg
))
4822 cache
->saved_regs
[reg
].addr
+= cache
->base
;
4826 return (*this_cache
);
4830 hppa_frame_this_id (struct frame_info
*next_frame
, void **this_cache
,
4831 struct frame_id
*this_id
)
4833 struct hppa_frame_cache
*info
= hppa_frame_cache (next_frame
, this_cache
);
4834 (*this_id
) = frame_id_build (info
->base
, frame_func_unwind (next_frame
));
4838 hppa_frame_prev_register (struct frame_info
*next_frame
,
4840 int regnum
, int *optimizedp
,
4841 enum lval_type
*lvalp
, CORE_ADDR
*addrp
,
4842 int *realnump
, void *valuep
)
4844 struct hppa_frame_cache
*info
= hppa_frame_cache (next_frame
, this_cache
);
4845 trad_frame_prev_register (next_frame
, info
->saved_regs
, regnum
,
4846 optimizedp
, lvalp
, addrp
, realnump
, valuep
);
4849 static const struct frame_unwind hppa_frame_unwind
=
4853 hppa_frame_prev_register
4856 static const struct frame_unwind
*
4857 hppa_frame_unwind_sniffer (struct frame_info
*next_frame
)
4859 return &hppa_frame_unwind
;
4863 hppa_frame_base_address (struct frame_info
*next_frame
,
4866 struct hppa_frame_cache
*info
= hppa_frame_cache (next_frame
,
4871 static const struct frame_base hppa_frame_base
= {
4873 hppa_frame_base_address
,
4874 hppa_frame_base_address
,
4875 hppa_frame_base_address
4878 static const struct frame_base
*
4879 hppa_frame_base_sniffer (struct frame_info
*next_frame
)
4881 return &hppa_frame_base
;
4884 static struct frame_id
4885 hppa_unwind_dummy_id (struct gdbarch
*gdbarch
, struct frame_info
*next_frame
)
4887 return frame_id_build (frame_unwind_register_unsigned (next_frame
,
4889 frame_pc_unwind (next_frame
));
4893 hppa_unwind_pc (struct gdbarch
*gdbarch
, struct frame_info
*next_frame
)
4895 return frame_unwind_register_signed (next_frame
, PC_REGNUM
) & ~3;
4898 /* Exception handling support for the HP-UX ANSI C++ compiler.
4899 The compiler (aCC) provides a callback for exception events;
4900 GDB can set a breakpoint on this callback and find out what
4901 exception event has occurred. */
4903 /* The name of the hook to be set to point to the callback function */
4904 static char HP_ACC_EH_notify_hook
[] = "__eh_notify_hook";
4905 /* The name of the function to be used to set the hook value */
4906 static char HP_ACC_EH_set_hook_value
[] = "__eh_set_hook_value";
4907 /* The name of the callback function in end.o */
4908 static char HP_ACC_EH_notify_callback
[] = "__d_eh_notify_callback";
4909 /* Name of function in end.o on which a break is set (called by above) */
4910 static char HP_ACC_EH_break
[] = "__d_eh_break";
4911 /* Name of flag (in end.o) that enables catching throws */
4912 static char HP_ACC_EH_catch_throw
[] = "__d_eh_catch_throw";
4913 /* Name of flag (in end.o) that enables catching catching */
4914 static char HP_ACC_EH_catch_catch
[] = "__d_eh_catch_catch";
4915 /* The enum used by aCC */
4923 /* Is exception-handling support available with this executable? */
4924 static int hp_cxx_exception_support
= 0;
4925 /* Has the initialize function been run? */
4926 int hp_cxx_exception_support_initialized
= 0;
4927 /* Similar to above, but imported from breakpoint.c -- non-target-specific */
4928 extern int exception_support_initialized
;
4929 /* Address of __eh_notify_hook */
4930 static CORE_ADDR eh_notify_hook_addr
= 0;
4931 /* Address of __d_eh_notify_callback */
4932 static CORE_ADDR eh_notify_callback_addr
= 0;
4933 /* Address of __d_eh_break */
4934 static CORE_ADDR eh_break_addr
= 0;
4935 /* Address of __d_eh_catch_catch */
4936 static CORE_ADDR eh_catch_catch_addr
= 0;
4937 /* Address of __d_eh_catch_throw */
4938 static CORE_ADDR eh_catch_throw_addr
= 0;
4939 /* Sal for __d_eh_break */
4940 static struct symtab_and_line
*break_callback_sal
= 0;
4942 /* Code in end.c expects __d_pid to be set in the inferior,
4943 otherwise __d_eh_notify_callback doesn't bother to call
4944 __d_eh_break! So we poke the pid into this symbol
4949 setup_d_pid_in_inferior (void)
4952 struct minimal_symbol
*msymbol
;
4953 char buf
[4]; /* FIXME 32x64? */
4955 /* Slam the pid of the process into __d_pid; failing is only a warning! */
4956 msymbol
= lookup_minimal_symbol ("__d_pid", NULL
, symfile_objfile
);
4957 if (msymbol
== NULL
)
4959 warning ("Unable to find __d_pid symbol in object file.");
4960 warning ("Suggest linking executable with -g (links in /opt/langtools/lib/end.o).");
4964 anaddr
= SYMBOL_VALUE_ADDRESS (msymbol
);
4965 store_unsigned_integer (buf
, 4, PIDGET (inferior_ptid
)); /* FIXME 32x64? */
4966 if (target_write_memory (anaddr
, buf
, 4)) /* FIXME 32x64? */
4968 warning ("Unable to write __d_pid");
4969 warning ("Suggest linking executable with -g (links in /opt/langtools/lib/end.o).");
4975 /* Initialize exception catchpoint support by looking for the
4976 necessary hooks/callbacks in end.o, etc., and set the hook value to
4977 point to the required debug function
4983 initialize_hp_cxx_exception_support (void)
4985 struct symtabs_and_lines sals
;
4986 struct cleanup
*old_chain
;
4987 struct cleanup
*canonical_strings_chain
= NULL
;
4990 char *addr_end
= NULL
;
4991 char **canonical
= (char **) NULL
;
4993 struct symbol
*sym
= NULL
;
4994 struct minimal_symbol
*msym
= NULL
;
4995 struct objfile
*objfile
;
4996 asection
*shlib_info
;
4998 /* Detect and disallow recursion. On HP-UX with aCC, infinite
4999 recursion is a possibility because finding the hook for exception
5000 callbacks involves making a call in the inferior, which means
5001 re-inserting breakpoints which can re-invoke this code */
5003 static int recurse
= 0;
5006 hp_cxx_exception_support_initialized
= 0;
5007 exception_support_initialized
= 0;
5011 hp_cxx_exception_support
= 0;
5013 /* First check if we have seen any HP compiled objects; if not,
5014 it is very unlikely that HP's idiosyncratic callback mechanism
5015 for exception handling debug support will be available!
5016 This will percolate back up to breakpoint.c, where our callers
5017 will decide to try the g++ exception-handling support instead. */
5018 if (!hp_som_som_object_present
)
5021 /* We have a SOM executable with SOM debug info; find the hooks */
5023 /* First look for the notify hook provided by aCC runtime libs */
5024 /* If we find this symbol, we conclude that the executable must
5025 have HP aCC exception support built in. If this symbol is not
5026 found, even though we're a HP SOM-SOM file, we may have been
5027 built with some other compiler (not aCC). This results percolates
5028 back up to our callers in breakpoint.c which can decide to
5029 try the g++ style of exception support instead.
5030 If this symbol is found but the other symbols we require are
5031 not found, there is something weird going on, and g++ support
5032 should *not* be tried as an alternative.
5034 ASSUMPTION: Only HP aCC code will have __eh_notify_hook defined.
5035 ASSUMPTION: HP aCC and g++ modules cannot be linked together. */
5037 /* libCsup has this hook; it'll usually be non-debuggable */
5038 msym
= lookup_minimal_symbol (HP_ACC_EH_notify_hook
, NULL
, NULL
);
5041 eh_notify_hook_addr
= SYMBOL_VALUE_ADDRESS (msym
);
5042 hp_cxx_exception_support
= 1;
5046 warning ("Unable to find exception callback hook (%s).", HP_ACC_EH_notify_hook
);
5047 warning ("Executable may not have been compiled debuggable with HP aCC.");
5048 warning ("GDB will be unable to intercept exception events.");
5049 eh_notify_hook_addr
= 0;
5050 hp_cxx_exception_support
= 0;
5054 /* Next look for the notify callback routine in end.o */
5055 /* This is always available in the SOM symbol dictionary if end.o is linked in */
5056 msym
= lookup_minimal_symbol (HP_ACC_EH_notify_callback
, NULL
, NULL
);
5059 eh_notify_callback_addr
= SYMBOL_VALUE_ADDRESS (msym
);
5060 hp_cxx_exception_support
= 1;
5064 warning ("Unable to find exception callback routine (%s).", HP_ACC_EH_notify_callback
);
5065 warning ("Suggest linking executable with -g (links in /opt/langtools/lib/end.o).");
5066 warning ("GDB will be unable to intercept exception events.");
5067 eh_notify_callback_addr
= 0;
5071 #ifndef GDB_TARGET_IS_HPPA_20W
5072 /* Check whether the executable is dynamically linked or archive bound */
5073 /* With an archive-bound executable we can use the raw addresses we find
5074 for the callback function, etc. without modification. For an executable
5075 with shared libraries, we have to do more work to find the plabel, which
5076 can be the target of a call through $$dyncall from the aCC runtime support
5077 library (libCsup) which is linked shared by default by aCC. */
5078 /* This test below was copied from somsolib.c/somread.c. It may not be a very
5079 reliable one to test that an executable is linked shared. pai/1997-07-18 */
5080 shlib_info
= bfd_get_section_by_name (symfile_objfile
->obfd
, "$SHLIB_INFO$");
5081 if (shlib_info
&& (bfd_section_size (symfile_objfile
->obfd
, shlib_info
) != 0))
5083 /* The minsym we have has the local code address, but that's not the
5084 plabel that can be used by an inter-load-module call. */
5085 /* Find solib handle for main image (which has end.o), and use that
5086 and the min sym as arguments to __d_shl_get() (which does the equivalent
5087 of shl_findsym()) to find the plabel. */
5089 args_for_find_stub args
;
5090 static char message
[] = "Error while finding exception callback hook:\n";
5092 args
.solib_handle
= som_solib_get_solib_by_pc (eh_notify_callback_addr
);
5094 args
.return_val
= 0;
5097 catch_errors (cover_find_stub_with_shl_get
, &args
, message
,
5099 eh_notify_callback_addr
= args
.return_val
;
5102 exception_catchpoints_are_fragile
= 1;
5104 if (!eh_notify_callback_addr
)
5106 /* We can get here either if there is no plabel in the export list
5107 for the main image, or if something strange happened (?) */
5108 warning ("Couldn't find a plabel (indirect function label) for the exception callback.");
5109 warning ("GDB will not be able to intercept exception events.");
5114 exception_catchpoints_are_fragile
= 0;
5117 /* Now, look for the breakpointable routine in end.o */
5118 /* This should also be available in the SOM symbol dict. if end.o linked in */
5119 msym
= lookup_minimal_symbol (HP_ACC_EH_break
, NULL
, NULL
);
5122 eh_break_addr
= SYMBOL_VALUE_ADDRESS (msym
);
5123 hp_cxx_exception_support
= 1;
5127 warning ("Unable to find exception callback routine to set breakpoint (%s).", HP_ACC_EH_break
);
5128 warning ("Suggest linking executable with -g (link in /opt/langtools/lib/end.o).");
5129 warning ("GDB will be unable to intercept exception events.");
5134 /* Next look for the catch enable flag provided in end.o */
5135 sym
= lookup_symbol (HP_ACC_EH_catch_catch
, (struct block
*) NULL
,
5136 VAR_DOMAIN
, 0, (struct symtab
**) NULL
);
5137 if (sym
) /* sometimes present in debug info */
5139 eh_catch_catch_addr
= SYMBOL_VALUE_ADDRESS (sym
);
5140 hp_cxx_exception_support
= 1;
5143 /* otherwise look in SOM symbol dict. */
5145 msym
= lookup_minimal_symbol (HP_ACC_EH_catch_catch
, NULL
, NULL
);
5148 eh_catch_catch_addr
= SYMBOL_VALUE_ADDRESS (msym
);
5149 hp_cxx_exception_support
= 1;
5153 warning ("Unable to enable interception of exception catches.");
5154 warning ("Executable may not have been compiled debuggable with HP aCC.");
5155 warning ("Suggest linking executable with -g (link in /opt/langtools/lib/end.o).");
5160 /* Next look for the catch enable flag provided end.o */
5161 sym
= lookup_symbol (HP_ACC_EH_catch_catch
, (struct block
*) NULL
,
5162 VAR_DOMAIN
, 0, (struct symtab
**) NULL
);
5163 if (sym
) /* sometimes present in debug info */
5165 eh_catch_throw_addr
= SYMBOL_VALUE_ADDRESS (sym
);
5166 hp_cxx_exception_support
= 1;
5169 /* otherwise look in SOM symbol dict. */
5171 msym
= lookup_minimal_symbol (HP_ACC_EH_catch_throw
, NULL
, NULL
);
5174 eh_catch_throw_addr
= SYMBOL_VALUE_ADDRESS (msym
);
5175 hp_cxx_exception_support
= 1;
5179 warning ("Unable to enable interception of exception throws.");
5180 warning ("Executable may not have been compiled debuggable with HP aCC.");
5181 warning ("Suggest linking executable with -g (link in /opt/langtools/lib/end.o).");
5187 hp_cxx_exception_support
= 2; /* everything worked so far */
5188 hp_cxx_exception_support_initialized
= 1;
5189 exception_support_initialized
= 1;
5194 /* Target operation for enabling or disabling interception of
5196 KIND is either EX_EVENT_THROW or EX_EVENT_CATCH
5197 ENABLE is either 0 (disable) or 1 (enable).
5198 Return value is NULL if no support found;
5199 -1 if something went wrong,
5200 or a pointer to a symtab/line struct if the breakpointable
5201 address was found. */
5203 struct symtab_and_line
*
5204 child_enable_exception_callback (enum exception_event_kind kind
, int enable
)
5208 if (!exception_support_initialized
|| !hp_cxx_exception_support_initialized
)
5209 if (!initialize_hp_cxx_exception_support ())
5212 switch (hp_cxx_exception_support
)
5215 /* Assuming no HP support at all */
5218 /* HP support should be present, but something went wrong */
5219 return (struct symtab_and_line
*) -1; /* yuck! */
5220 /* there may be other cases in the future */
5223 /* Set the EH hook to point to the callback routine */
5224 store_unsigned_integer (buf
, 4, enable
? eh_notify_callback_addr
: 0); /* FIXME 32x64 problem */
5225 /* pai: (temp) FIXME should there be a pack operation first? */
5226 if (target_write_memory (eh_notify_hook_addr
, buf
, 4)) /* FIXME 32x64 problem */
5228 warning ("Could not write to target memory for exception event callback.");
5229 warning ("Interception of exception events may not work.");
5230 return (struct symtab_and_line
*) -1;
5234 /* Ensure that __d_pid is set up correctly -- end.c code checks this. :-( */
5235 if (PIDGET (inferior_ptid
) > 0)
5237 if (setup_d_pid_in_inferior ())
5238 return (struct symtab_and_line
*) -1;
5242 warning ("Internal error: Invalid inferior pid? Cannot intercept exception events.");
5243 return (struct symtab_and_line
*) -1;
5249 case EX_EVENT_THROW
:
5250 store_unsigned_integer (buf
, 4, enable
? 1 : 0);
5251 if (target_write_memory (eh_catch_throw_addr
, buf
, 4)) /* FIXME 32x64? */
5253 warning ("Couldn't enable exception throw interception.");
5254 return (struct symtab_and_line
*) -1;
5257 case EX_EVENT_CATCH
:
5258 store_unsigned_integer (buf
, 4, enable
? 1 : 0);
5259 if (target_write_memory (eh_catch_catch_addr
, buf
, 4)) /* FIXME 32x64? */
5261 warning ("Couldn't enable exception catch interception.");
5262 return (struct symtab_and_line
*) -1;
5266 error ("Request to enable unknown or unsupported exception event.");
5269 /* Copy break address into new sal struct, malloc'ing if needed. */
5270 if (!break_callback_sal
)
5272 break_callback_sal
= (struct symtab_and_line
*) xmalloc (sizeof (struct symtab_and_line
));
5274 init_sal (break_callback_sal
);
5275 break_callback_sal
->symtab
= NULL
;
5276 break_callback_sal
->pc
= eh_break_addr
;
5277 break_callback_sal
->line
= 0;
5278 break_callback_sal
->end
= eh_break_addr
;
5280 return break_callback_sal
;
5283 /* Record some information about the current exception event */
5284 static struct exception_event_record current_ex_event
;
5285 /* Convenience struct */
5286 static struct symtab_and_line null_symtab_and_line
=
5289 /* Report current exception event. Returns a pointer to a record
5290 that describes the kind of the event, where it was thrown from,
5291 and where it will be caught. More information may be reported
5293 struct exception_event_record
*
5294 child_get_current_exception_event (void)
5296 CORE_ADDR event_kind
;
5297 CORE_ADDR throw_addr
;
5298 CORE_ADDR catch_addr
;
5299 struct frame_info
*fi
, *curr_frame
;
5302 curr_frame
= get_current_frame ();
5304 return (struct exception_event_record
*) NULL
;
5306 /* Go up one frame to __d_eh_notify_callback, because at the
5307 point when this code is executed, there's garbage in the
5308 arguments of __d_eh_break. */
5309 fi
= find_relative_frame (curr_frame
, &level
);
5311 return (struct exception_event_record
*) NULL
;
5315 /* Read in the arguments */
5316 /* __d_eh_notify_callback() is called with 3 arguments:
5317 1. event kind catch or throw
5318 2. the target address if known
5319 3. a flag -- not sure what this is. pai/1997-07-17 */
5320 event_kind
= read_register (ARG0_REGNUM
);
5321 catch_addr
= read_register (ARG1_REGNUM
);
5323 /* Now go down to a user frame */
5324 /* For a throw, __d_eh_break is called by
5325 __d_eh_notify_callback which is called by
5326 __notify_throw which is called
5328 For a catch, __d_eh_break is called by
5329 __d_eh_notify_callback which is called by
5330 <stackwalking stuff> which is called by
5331 __throw__<stuff> or __rethrow_<stuff> which is called
5333 /* FIXME: Don't use such magic numbers; search for the frames */
5334 level
= (event_kind
== EX_EVENT_THROW
) ? 3 : 4;
5335 fi
= find_relative_frame (curr_frame
, &level
);
5337 return (struct exception_event_record
*) NULL
;
5340 throw_addr
= get_frame_pc (fi
);
5342 /* Go back to original (top) frame */
5343 select_frame (curr_frame
);
5345 current_ex_event
.kind
= (enum exception_event_kind
) event_kind
;
5346 current_ex_event
.throw_sal
= find_pc_line (throw_addr
, 1);
5347 current_ex_event
.catch_sal
= find_pc_line (catch_addr
, 1);
5349 return ¤t_ex_event
;
5352 /* Instead of this nasty cast, add a method pvoid() that prints out a
5353 host VOID data type (remember %p isn't portable). */
5356 hppa_pointer_to_address_hack (void *ptr
)
5358 gdb_assert (sizeof (ptr
) == TYPE_LENGTH (builtin_type_void_data_ptr
));
5359 return POINTER_TO_ADDRESS (builtin_type_void_data_ptr
, &ptr
);
5363 unwind_command (char *exp
, int from_tty
)
5366 struct unwind_table_entry
*u
;
5368 /* If we have an expression, evaluate it and use it as the address. */
5370 if (exp
!= 0 && *exp
!= 0)
5371 address
= parse_and_eval_address (exp
);
5375 u
= find_unwind_entry (address
);
5379 printf_unfiltered ("Can't find unwind table entry for %s\n", exp
);
5383 printf_unfiltered ("unwind_table_entry (0x%s):\n",
5384 paddr_nz (hppa_pointer_to_address_hack (u
)));
5386 printf_unfiltered ("\tregion_start = ");
5387 print_address (u
->region_start
, gdb_stdout
);
5389 printf_unfiltered ("\n\tregion_end = ");
5390 print_address (u
->region_end
, gdb_stdout
);
5392 #define pif(FLD) if (u->FLD) printf_unfiltered (" "#FLD);
5394 printf_unfiltered ("\n\tflags =");
5395 pif (Cannot_unwind
);
5397 pif (Millicode_save_sr0
);
5400 pif (Variable_Frame
);
5401 pif (Separate_Package_Body
);
5402 pif (Frame_Extension_Millicode
);
5403 pif (Stack_Overflow_Check
);
5404 pif (Two_Instruction_SP_Increment
);
5408 pif (Save_MRP_in_frame
);
5409 pif (extn_ptr_defined
);
5410 pif (Cleanup_defined
);
5411 pif (MPE_XL_interrupt_marker
);
5412 pif (HP_UX_interrupt_marker
);
5415 putchar_unfiltered ('\n');
5417 #define pin(FLD) printf_unfiltered ("\t"#FLD" = 0x%x\n", u->FLD);
5419 pin (Region_description
);
5422 pin (Total_frame_size
);
5426 hppa_skip_permanent_breakpoint (void)
5428 /* To step over a breakpoint instruction on the PA takes some
5429 fiddling with the instruction address queue.
5431 When we stop at a breakpoint, the IA queue front (the instruction
5432 we're executing now) points at the breakpoint instruction, and
5433 the IA queue back (the next instruction to execute) points to
5434 whatever instruction we would execute after the breakpoint, if it
5435 were an ordinary instruction. This is the case even if the
5436 breakpoint is in the delay slot of a branch instruction.
5438 Clearly, to step past the breakpoint, we need to set the queue
5439 front to the back. But what do we put in the back? What
5440 instruction comes after that one? Because of the branch delay
5441 slot, the next insn is always at the back + 4. */
5442 write_register (PCOQ_HEAD_REGNUM
, read_register (PCOQ_TAIL_REGNUM
));
5443 write_register (PCSQ_HEAD_REGNUM
, read_register (PCSQ_TAIL_REGNUM
));
5445 write_register (PCOQ_TAIL_REGNUM
, read_register (PCOQ_TAIL_REGNUM
) + 4);
5446 /* We can leave the tail's space the same, since there's no jump. */
5449 /* Copy the function value from VALBUF into the proper location
5450 for a function return.
5452 Called only in the context of the "return" command. */
5455 hppa32_store_return_value (struct type
*type
, char *valbuf
)
5457 /* For software floating point, the return value goes into the
5458 integer registers. But we do not have any flag to key this on,
5459 so we always store the value into the integer registers.
5461 If its a float value, then we also store it into the floating
5463 deprecated_write_register_bytes (DEPRECATED_REGISTER_BYTE (28)
5464 + (TYPE_LENGTH (type
) > 4
5465 ? (8 - TYPE_LENGTH (type
))
5466 : (4 - TYPE_LENGTH (type
))),
5467 valbuf
, TYPE_LENGTH (type
));
5468 if (TYPE_CODE (type
) == TYPE_CODE_FLT
)
5469 deprecated_write_register_bytes (DEPRECATED_REGISTER_BYTE (FP4_REGNUM
),
5470 valbuf
, TYPE_LENGTH (type
));
5473 /* Same as hppa32_store_return_value(), but for the PA64 ABI. */
5476 hppa64_store_return_value (struct type
*type
, char *valbuf
)
5478 if (TYPE_CODE (type
) == TYPE_CODE_FLT
)
5479 deprecated_write_register_bytes
5480 (DEPRECATED_REGISTER_BYTE (FP4_REGNUM
)
5481 + DEPRECATED_REGISTER_SIZE
- TYPE_LENGTH (type
),
5482 valbuf
, TYPE_LENGTH (type
));
5483 else if (is_integral_type(type
))
5484 deprecated_write_register_bytes
5485 (DEPRECATED_REGISTER_BYTE (28)
5486 + DEPRECATED_REGISTER_SIZE
- TYPE_LENGTH (type
),
5487 valbuf
, TYPE_LENGTH (type
));
5488 else if (TYPE_LENGTH (type
) <= 8)
5489 deprecated_write_register_bytes
5490 (DEPRECATED_REGISTER_BYTE (28),valbuf
, TYPE_LENGTH (type
));
5491 else if (TYPE_LENGTH (type
) <= 16)
5493 deprecated_write_register_bytes (DEPRECATED_REGISTER_BYTE (28),valbuf
, 8);
5494 deprecated_write_register_bytes
5495 (DEPRECATED_REGISTER_BYTE (29), valbuf
+ 8, TYPE_LENGTH (type
) - 8);
5499 /* Copy the function's return value into VALBUF.
5501 This function is called only in the context of "target function calls",
5502 ie. when the debugger forces a function to be called in the child, and
5503 when the debugger forces a fucntion to return prematurely via the
5504 "return" command. */
5507 hppa32_extract_return_value (struct type
*type
, char *regbuf
, char *valbuf
)
5509 if (TYPE_CODE (type
) == TYPE_CODE_FLT
)
5510 memcpy (valbuf
, regbuf
+ DEPRECATED_REGISTER_BYTE (FP4_REGNUM
), TYPE_LENGTH (type
));
5514 + DEPRECATED_REGISTER_BYTE (28)
5515 + (TYPE_LENGTH (type
) > 4
5516 ? (8 - TYPE_LENGTH (type
))
5517 : (4 - TYPE_LENGTH (type
)))),
5518 TYPE_LENGTH (type
));
5521 /* Same as hppa32_extract_return_value but for the PA64 ABI case. */
5524 hppa64_extract_return_value (struct type
*type
, char *regbuf
, char *valbuf
)
5526 /* RM: Floats are returned in FR4R, doubles in FR4.
5527 Integral values are in r28, padded on the left.
5528 Aggregates less that 65 bits are in r28, right padded.
5529 Aggregates upto 128 bits are in r28 and r29, right padded. */
5530 if (TYPE_CODE (type
) == TYPE_CODE_FLT
)
5532 regbuf
+ DEPRECATED_REGISTER_BYTE (FP4_REGNUM
)
5533 + DEPRECATED_REGISTER_SIZE
- TYPE_LENGTH (type
),
5534 TYPE_LENGTH (type
));
5535 else if (is_integral_type(type
))
5537 regbuf
+ DEPRECATED_REGISTER_BYTE (28)
5538 + DEPRECATED_REGISTER_SIZE
- TYPE_LENGTH (type
),
5539 TYPE_LENGTH (type
));
5540 else if (TYPE_LENGTH (type
) <= 8)
5541 memcpy (valbuf
, regbuf
+ DEPRECATED_REGISTER_BYTE (28),
5542 TYPE_LENGTH (type
));
5543 else if (TYPE_LENGTH (type
) <= 16)
5545 memcpy (valbuf
, regbuf
+ DEPRECATED_REGISTER_BYTE (28), 8);
5546 memcpy (valbuf
+ 8, regbuf
+ DEPRECATED_REGISTER_BYTE (29),
5547 TYPE_LENGTH (type
) - 8);
5552 hppa_reg_struct_has_addr (int gcc_p
, struct type
*type
)
5554 /* On the PA, any pass-by-value structure > 8 bytes is actually passed
5555 via a pointer regardless of its type or the compiler used. */
5556 return (TYPE_LENGTH (type
) > 8);
5560 hppa_inner_than (CORE_ADDR lhs
, CORE_ADDR rhs
)
5562 /* Stack grows upward */
5567 hppa32_stack_align (CORE_ADDR sp
)
5569 /* elz: adjust the quantity to the next highest value which is
5570 64-bit aligned. This is used in valops.c, when the sp is adjusted.
5571 On hppa the sp must always be kept 64-bit aligned */
5572 return ((sp
% 8) ? (sp
+ 7) & -8 : sp
);
5576 hppa64_stack_align (CORE_ADDR sp
)
5578 /* The PA64 ABI mandates a 16 byte stack alignment. */
5579 return ((sp
% 16) ? (sp
+ 15) & -16 : sp
);
5583 hppa_pc_requires_run_before_use (CORE_ADDR pc
)
5585 /* Sometimes we may pluck out a minimal symbol that has a negative address.
5587 An example of this occurs when an a.out is linked against a foo.sl.
5588 The foo.sl defines a global bar(), and the a.out declares a signature
5589 for bar(). However, the a.out doesn't directly call bar(), but passes
5590 its address in another call.
5592 If you have this scenario and attempt to "break bar" before running,
5593 gdb will find a minimal symbol for bar() in the a.out. But that
5594 symbol's address will be negative. What this appears to denote is
5595 an index backwards from the base of the procedure linkage table (PLT)
5596 into the data linkage table (DLT), the end of which is contiguous
5597 with the start of the PLT. This is clearly not a valid address for
5598 us to set a breakpoint on.
5600 Note that one must be careful in how one checks for a negative address.
5601 0xc0000000 is a legitimate address of something in a shared text
5602 segment, for example. Since I don't know what the possible range
5603 is of these "really, truly negative" addresses that come from the
5604 minimal symbols, I'm resorting to the gross hack of checking the
5605 top byte of the address for all 1's. Sigh. */
5607 return (!target_has_stack
&& (pc
& 0xFF000000));
5611 hppa_instruction_nullified (void)
5613 /* brobecker 2002/11/07: Couldn't we use a ULONGEST here? It would
5614 avoid the type cast. I'm leaving it as is for now as I'm doing
5615 semi-mechanical multiarching-related changes. */
5616 const int ipsw
= (int) read_register (IPSW_REGNUM
);
5617 const int flags
= (int) read_register (FLAGS_REGNUM
);
5619 return ((ipsw
& 0x00200000) && !(flags
& 0x2));
5623 hppa_register_raw_size (int reg_nr
)
5625 /* All registers have the same size. */
5626 return DEPRECATED_REGISTER_SIZE
;
5629 /* Index within the register vector of the first byte of the space i
5630 used for register REG_NR. */
5633 hppa_register_byte (int reg_nr
)
5635 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
5637 return reg_nr
* tdep
->bytes_per_address
;
5640 /* Return the GDB type object for the "standard" data type of data
5644 hppa32_register_virtual_type (int reg_nr
)
5646 if (reg_nr
< FP4_REGNUM
)
5647 return builtin_type_int
;
5649 return builtin_type_float
;
5652 /* Return the GDB type object for the "standard" data type of data
5653 in register N. hppa64 version. */
5656 hppa64_register_virtual_type (int reg_nr
)
5658 if (reg_nr
< FP4_REGNUM
)
5659 return builtin_type_unsigned_long_long
;
5661 return builtin_type_double
;
5664 /* Store the address of the place in which to copy the structure the
5665 subroutine will return. This is called from call_function. */
5668 hppa_store_struct_return (CORE_ADDR addr
, CORE_ADDR sp
)
5670 write_register (28, addr
);
5672 /* Return True if REGNUM is not a register available to the user
5673 through ptrace(). */
5676 hppa_cannot_store_register (int regnum
)
5679 || regnum
== PCSQ_HEAD_REGNUM
5680 || (regnum
>= PCSQ_TAIL_REGNUM
&& regnum
< IPSW_REGNUM
)
5681 || (regnum
> IPSW_REGNUM
&& regnum
< FP4_REGNUM
));
5686 hppa_smash_text_address (CORE_ADDR addr
)
5688 /* The low two bits of the PC on the PA contain the privilege level.
5689 Some genius implementing a (non-GCC) compiler apparently decided
5690 this means that "addresses" in a text section therefore include a
5691 privilege level, and thus symbol tables should contain these bits.
5692 This seems like a bonehead thing to do--anyway, it seems to work
5693 for our purposes to just ignore those bits. */
5695 return (addr
&= ~0x3);
5698 /* Get the ith function argument for the current function. */
5700 hppa_fetch_pointer_argument (struct frame_info
*frame
, int argi
,
5704 get_frame_register (frame
, R0_REGNUM
+ 26 - argi
, &addr
);
5708 /* Here is a table of C type sizes on hppa with various compiles
5709 and options. I measured this on PA 9000/800 with HP-UX 11.11
5710 and these compilers:
5712 /usr/ccs/bin/cc HP92453-01 A.11.01.21
5713 /opt/ansic/bin/cc HP92453-01 B.11.11.28706.GP
5714 /opt/aCC/bin/aCC B3910B A.03.45
5715 gcc gcc 3.3.2 native hppa2.0w-hp-hpux11.11
5717 cc : 1 2 4 4 8 : 4 8 -- : 4 4
5718 ansic +DA1.1 : 1 2 4 4 8 : 4 8 16 : 4 4
5719 ansic +DA2.0 : 1 2 4 4 8 : 4 8 16 : 4 4
5720 ansic +DA2.0W : 1 2 4 8 8 : 4 8 16 : 8 8
5721 acc +DA1.1 : 1 2 4 4 8 : 4 8 16 : 4 4
5722 acc +DA2.0 : 1 2 4 4 8 : 4 8 16 : 4 4
5723 acc +DA2.0W : 1 2 4 8 8 : 4 8 16 : 8 8
5724 gcc : 1 2 4 4 8 : 4 8 16 : 4 4
5728 compiler and options
5729 char, short, int, long, long long
5730 float, double, long double
5733 So all these compilers use either ILP32 or LP64 model.
5734 TODO: gcc has more options so it needs more investigation.
5736 For floating point types, see:
5738 http://docs.hp.com/hpux/pdf/B3906-90006.pdf
5739 HP-UX floating-point guide, hpux 11.00
5741 -- chastain 2003-12-18 */
5743 static struct gdbarch
*
5744 hppa_gdbarch_init (struct gdbarch_info info
, struct gdbarch_list
*arches
)
5746 struct gdbarch_tdep
*tdep
;
5747 struct gdbarch
*gdbarch
;
5749 /* Try to determine the ABI of the object we are loading. */
5750 if (info
.abfd
!= NULL
&& info
.osabi
== GDB_OSABI_UNKNOWN
)
5752 /* If it's a SOM file, assume it's HP/UX SOM. */
5753 if (bfd_get_flavour (info
.abfd
) == bfd_target_som_flavour
)
5754 info
.osabi
= GDB_OSABI_HPUX_SOM
;
5757 /* find a candidate among the list of pre-declared architectures. */
5758 arches
= gdbarch_list_lookup_by_info (arches
, &info
);
5760 return (arches
->gdbarch
);
5762 /* If none found, then allocate and initialize one. */
5763 tdep
= XMALLOC (struct gdbarch_tdep
);
5764 gdbarch
= gdbarch_alloc (&info
, tdep
);
5766 /* Determine from the bfd_arch_info structure if we are dealing with
5767 a 32 or 64 bits architecture. If the bfd_arch_info is not available,
5768 then default to a 32bit machine. */
5769 if (info
.bfd_arch_info
!= NULL
)
5770 tdep
->bytes_per_address
=
5771 info
.bfd_arch_info
->bits_per_address
/ info
.bfd_arch_info
->bits_per_byte
;
5773 tdep
->bytes_per_address
= 4;
5775 /* Some parts of the gdbarch vector depend on whether we are running
5776 on a 32 bits or 64 bits target. */
5777 switch (tdep
->bytes_per_address
)
5780 set_gdbarch_num_regs (gdbarch
, hppa32_num_regs
);
5781 set_gdbarch_register_name (gdbarch
, hppa32_register_name
);
5782 set_gdbarch_deprecated_register_virtual_type
5783 (gdbarch
, hppa32_register_virtual_type
);
5786 set_gdbarch_num_regs (gdbarch
, hppa64_num_regs
);
5787 set_gdbarch_register_name (gdbarch
, hppa64_register_name
);
5788 set_gdbarch_deprecated_register_virtual_type
5789 (gdbarch
, hppa64_register_virtual_type
);
5792 internal_error (__FILE__
, __LINE__
, "Unsupported address size: %d",
5793 tdep
->bytes_per_address
);
5796 /* The following gdbarch vector elements depend on other parts of this
5797 vector which have been set above, depending on the ABI. */
5798 set_gdbarch_deprecated_register_bytes
5799 (gdbarch
, gdbarch_num_regs (gdbarch
) * tdep
->bytes_per_address
);
5800 set_gdbarch_long_bit (gdbarch
, tdep
->bytes_per_address
* TARGET_CHAR_BIT
);
5801 set_gdbarch_ptr_bit (gdbarch
, tdep
->bytes_per_address
* TARGET_CHAR_BIT
);
5803 /* The following gdbarch vector elements are the same in both ILP32
5804 and LP64, but might show differences some day. */
5805 set_gdbarch_long_long_bit (gdbarch
, 64);
5806 set_gdbarch_long_double_bit (gdbarch
, 128);
5807 set_gdbarch_long_double_format (gdbarch
, &floatformat_ia64_quad_big
);
5809 /* The following gdbarch vector elements do not depend on the address
5810 size, or in any other gdbarch element previously set. */
5811 set_gdbarch_skip_prologue (gdbarch
, hppa_skip_prologue
);
5812 set_gdbarch_skip_trampoline_code (gdbarch
, hppa_skip_trampoline_code
);
5813 set_gdbarch_in_solib_call_trampoline (gdbarch
, hppa_in_solib_call_trampoline
);
5814 set_gdbarch_in_solib_return_trampoline (gdbarch
,
5815 hppa_in_solib_return_trampoline
);
5816 set_gdbarch_inner_than (gdbarch
, hppa_inner_than
);
5817 set_gdbarch_deprecated_register_size (gdbarch
, tdep
->bytes_per_address
);
5818 set_gdbarch_deprecated_fp_regnum (gdbarch
, 3);
5819 set_gdbarch_sp_regnum (gdbarch
, 30);
5820 set_gdbarch_fp0_regnum (gdbarch
, 64);
5821 set_gdbarch_pc_regnum (gdbarch
, PCOQ_HEAD_REGNUM
);
5822 set_gdbarch_deprecated_register_raw_size (gdbarch
, hppa_register_raw_size
);
5823 set_gdbarch_deprecated_register_byte (gdbarch
, hppa_register_byte
);
5824 set_gdbarch_deprecated_register_virtual_size (gdbarch
, hppa_register_raw_size
);
5825 set_gdbarch_deprecated_max_register_raw_size (gdbarch
, tdep
->bytes_per_address
);
5826 set_gdbarch_deprecated_max_register_virtual_size (gdbarch
, 8);
5827 set_gdbarch_cannot_store_register (gdbarch
, hppa_cannot_store_register
);
5828 set_gdbarch_addr_bits_remove (gdbarch
, hppa_smash_text_address
);
5829 set_gdbarch_smash_text_address (gdbarch
, hppa_smash_text_address
);
5830 set_gdbarch_believe_pcc_promotion (gdbarch
, 1);
5831 set_gdbarch_read_pc (gdbarch
, hppa_target_read_pc
);
5832 set_gdbarch_write_pc (gdbarch
, hppa_target_write_pc
);
5833 set_gdbarch_deprecated_target_read_fp (gdbarch
, hppa_target_read_fp
);
5835 /* Helper for function argument information. */
5836 set_gdbarch_fetch_pointer_argument (gdbarch
, hppa_fetch_pointer_argument
);
5838 set_gdbarch_print_insn (gdbarch
, print_insn_hppa
);
5840 /* When a hardware watchpoint triggers, we'll move the inferior past
5841 it by removing all eventpoints; stepping past the instruction
5842 that caused the trigger; reinserting eventpoints; and checking
5843 whether any watched location changed. */
5844 set_gdbarch_have_nonsteppable_watchpoint (gdbarch
, 1);
5846 /* Inferior function call methods. */
5849 switch (tdep
->bytes_per_address
)
5852 set_gdbarch_push_dummy_call (gdbarch
, hppa32_push_dummy_call
);
5853 set_gdbarch_frame_align (gdbarch
, hppa32_frame_align
);
5856 set_gdbarch_push_dummy_call (gdbarch
, hppa64_push_dummy_call
);
5857 set_gdbarch_frame_align (gdbarch
, hppa64_frame_align
);
5863 switch (tdep
->bytes_per_address
)
5866 set_gdbarch_deprecated_call_dummy_length (gdbarch
, hppa32_call_dummy_length
);
5867 set_gdbarch_deprecated_stack_align (gdbarch
, hppa32_stack_align
);
5868 set_gdbarch_deprecated_reg_struct_has_addr (gdbarch
, hppa_reg_struct_has_addr
);
5871 set_gdbarch_deprecated_call_dummy_breakpoint_offset (gdbarch
, hppa64_call_dummy_breakpoint_offset
);
5872 set_gdbarch_deprecated_call_dummy_length (gdbarch
, hppa64_call_dummy_length
);
5873 set_gdbarch_deprecated_stack_align (gdbarch
, hppa64_stack_align
);
5876 set_gdbarch_deprecated_push_dummy_frame (gdbarch
, hppa_push_dummy_frame
);
5877 /* set_gdbarch_deprecated_fix_call_dummy (gdbarch, hppa_fix_call_dummy); */
5878 set_gdbarch_deprecated_push_arguments (gdbarch
, hppa_push_arguments
);
5879 set_gdbarch_deprecated_use_generic_dummy_frames (gdbarch
, 0);
5880 set_gdbarch_deprecated_pc_in_call_dummy (gdbarch
, deprecated_pc_in_call_dummy_on_stack
);
5881 set_gdbarch_call_dummy_location (gdbarch
, ON_STACK
);
5884 /* Struct return methods. */
5887 switch (tdep
->bytes_per_address
)
5890 set_gdbarch_return_value (gdbarch
, hppa32_return_value
);
5893 set_gdbarch_return_value (gdbarch
, hppa64_return_value
);
5896 internal_error (__FILE__
, __LINE__
, "bad switch");
5901 switch (tdep
->bytes_per_address
)
5904 set_gdbarch_deprecated_extract_return_value (gdbarch
, hppa32_extract_return_value
);
5905 set_gdbarch_use_struct_convention (gdbarch
, hppa32_use_struct_convention
);
5906 set_gdbarch_deprecated_store_return_value (gdbarch
, hppa32_store_return_value
);
5909 set_gdbarch_deprecated_extract_return_value (gdbarch
, hppa64_extract_return_value
);
5910 set_gdbarch_use_struct_convention (gdbarch
, hppa64_use_struct_convention
);
5911 set_gdbarch_deprecated_store_return_value (gdbarch
, hppa64_store_return_value
);
5914 set_gdbarch_deprecated_store_struct_return (gdbarch
, hppa_store_struct_return
);
5917 /* Frame unwind methods. */
5920 set_gdbarch_unwind_dummy_id (gdbarch
, hppa_unwind_dummy_id
);
5921 set_gdbarch_unwind_pc (gdbarch
, hppa_unwind_pc
);
5922 frame_unwind_append_sniffer (gdbarch
, hppa_frame_unwind_sniffer
);
5923 frame_base_append_sniffer (gdbarch
, hppa_frame_base_sniffer
);
5927 set_gdbarch_deprecated_saved_pc_after_call (gdbarch
, hppa_saved_pc_after_call
);
5928 set_gdbarch_deprecated_init_frame_pc (gdbarch
, deprecated_init_frame_pc_default
);
5929 set_gdbarch_deprecated_frame_init_saved_regs (gdbarch
, hppa_frame_init_saved_regs
);
5930 set_gdbarch_deprecated_init_extra_frame_info (gdbarch
, hppa_init_extra_frame_info
);
5931 set_gdbarch_deprecated_frame_chain (gdbarch
, hppa_frame_chain
);
5932 set_gdbarch_deprecated_frame_chain_valid (gdbarch
, hppa_frame_chain_valid
);
5933 set_gdbarch_deprecated_frameless_function_invocation (gdbarch
, hppa_frameless_function_invocation
);
5934 set_gdbarch_deprecated_frame_saved_pc (gdbarch
, hppa_frame_saved_pc
);
5935 set_gdbarch_deprecated_pop_frame (gdbarch
, hppa_pop_frame
);
5938 /* Hook in ABI-specific overrides, if they have been registered. */
5939 gdbarch_init_osabi (info
, gdbarch
);
5945 hppa_dump_tdep (struct gdbarch
*current_gdbarch
, struct ui_file
*file
)
5947 /* Nothing to print for the moment. */
5951 _initialize_hppa_tdep (void)
5953 struct cmd_list_element
*c
;
5954 void break_at_finish_command (char *arg
, int from_tty
);
5955 void tbreak_at_finish_command (char *arg
, int from_tty
);
5956 void break_at_finish_at_depth_command (char *arg
, int from_tty
);
5958 gdbarch_register (bfd_arch_hppa
, hppa_gdbarch_init
, hppa_dump_tdep
);
5960 add_cmd ("unwind", class_maintenance
, unwind_command
,
5961 "Print unwind table entry at given address.",
5962 &maintenanceprintlist
);
5964 deprecate_cmd (add_com ("xbreak", class_breakpoint
,
5965 break_at_finish_command
,
5966 concat ("Set breakpoint at procedure exit. \n\
5967 Argument may be function name, or \"*\" and an address.\n\
5968 If function is specified, break at end of code for that function.\n\
5969 If an address is specified, break at the end of the function that contains \n\
5970 that exact address.\n",
5971 "With no arg, uses current execution address of selected stack frame.\n\
5972 This is useful for breaking on return to a stack frame.\n\
5974 Multiple breakpoints at one place are permitted, and useful if conditional.\n\
5976 Do \"help breakpoints\" for info on other commands dealing with breakpoints.", NULL
)), NULL
);
5977 deprecate_cmd (add_com_alias ("xb", "xbreak", class_breakpoint
, 1), NULL
);
5978 deprecate_cmd (add_com_alias ("xbr", "xbreak", class_breakpoint
, 1), NULL
);
5979 deprecate_cmd (add_com_alias ("xbre", "xbreak", class_breakpoint
, 1), NULL
);
5980 deprecate_cmd (add_com_alias ("xbrea", "xbreak", class_breakpoint
, 1), NULL
);
5982 deprecate_cmd (c
= add_com ("txbreak", class_breakpoint
,
5983 tbreak_at_finish_command
,
5984 "Set temporary breakpoint at procedure exit. Either there should\n\
5985 be no argument or the argument must be a depth.\n"), NULL
);
5986 set_cmd_completer (c
, location_completer
);
5989 deprecate_cmd (add_com ("bx", class_breakpoint
,
5990 break_at_finish_at_depth_command
,
5991 "Set breakpoint at procedure exit. Either there should\n\
5992 be no argument or the argument must be a depth.\n"), NULL
);