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 Free Software Foundation, Inc.
6 Contributed by the Center for Software Science at the
7 University of Utah (pa-gdb-bugs@cs.utah.edu).
9 This file is part of GDB.
11 This program is free software; you can redistribute it and/or modify
12 it under the terms of the GNU General Public License as published by
13 the Free Software Foundation; either version 2 of the License, or
14 (at your option) any later version.
16 This program is distributed in the hope that it will be useful,
17 but WITHOUT ANY WARRANTY; without even the implied warranty of
18 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 GNU General Public License for more details.
21 You should have received a copy of the GNU General Public License
22 along with this program; if not, write to the Free Software
23 Foundation, Inc., 59 Temple Place - Suite 330,
24 Boston, MA 02111-1307, USA. */
32 #include "completer.h"
35 #include "gdb_assert.h"
36 #include "infttrace.h"
37 /* For argument passing to the inferior */
42 #include <sys/types.h>
46 #include <sys/param.h>
49 #include <sys/ptrace.h>
50 #include <machine/save_state.h>
52 #ifdef COFF_ENCAPSULATE
53 #include "a.out.encap.h"
57 /*#include <sys/user.h> After a.out.h */
68 /* Some local constants. */
69 static const int hppa_num_regs
= 128;
71 /* To support detection of the pseudo-initial frame
73 #define THREAD_INITIAL_FRAME_SYMBOL "__pthread_exit"
74 #define THREAD_INITIAL_FRAME_SYM_LEN sizeof(THREAD_INITIAL_FRAME_SYMBOL)
76 static int extract_5_load (unsigned int);
78 static unsigned extract_5R_store (unsigned int);
80 static unsigned extract_5r_store (unsigned int);
82 static void find_dummy_frame_regs (struct frame_info
*, CORE_ADDR
*);
84 static int find_proc_framesize (CORE_ADDR
);
86 static int find_return_regnum (CORE_ADDR
);
88 struct unwind_table_entry
*find_unwind_entry (CORE_ADDR
);
90 static int extract_17 (unsigned int);
92 static unsigned deposit_21 (unsigned int, unsigned int);
94 static int extract_21 (unsigned);
96 static unsigned deposit_14 (int, unsigned int);
98 static int extract_14 (unsigned);
100 static void unwind_command (char *, int);
102 static int low_sign_extend (unsigned int, unsigned int);
104 static int sign_extend (unsigned int, unsigned int);
106 static int restore_pc_queue (CORE_ADDR
*);
108 static int hppa_alignof (struct type
*);
110 /* To support multi-threading and stepping. */
111 int hppa_prepare_to_proceed ();
113 static int prologue_inst_adjust_sp (unsigned long);
115 static int is_branch (unsigned long);
117 static int inst_saves_gr (unsigned long);
119 static int inst_saves_fr (unsigned long);
121 static int pc_in_interrupt_handler (CORE_ADDR
);
123 static int pc_in_linker_stub (CORE_ADDR
);
125 static int compare_unwind_entries (const void *, const void *);
127 static void read_unwind_info (struct objfile
*);
129 static void internalize_unwinds (struct objfile
*,
130 struct unwind_table_entry
*,
131 asection
*, unsigned int,
132 unsigned int, CORE_ADDR
);
133 static void pa_print_registers (char *, int, int);
134 static void pa_strcat_registers (char *, int, int, struct ui_file
*);
135 static void pa_register_look_aside (char *, int, long *);
136 static void pa_print_fp_reg (int);
137 static void pa_strcat_fp_reg (int, struct ui_file
*, enum precision_type
);
138 static void record_text_segment_lowaddr (bfd
*, asection
*, void *);
139 /* FIXME: brobecker 2002-11-07: We will likely be able to make the
140 following functions static, once we hppa is partially multiarched. */
141 int hppa_reg_struct_has_addr (int gcc_p
, struct type
*type
);
142 CORE_ADDR
hppa_skip_prologue (CORE_ADDR pc
);
143 CORE_ADDR
hppa_skip_trampoline_code (CORE_ADDR pc
);
144 int hppa_in_solib_call_trampoline (CORE_ADDR pc
, char *name
);
145 int hppa_in_solib_return_trampoline (CORE_ADDR pc
, char *name
);
146 CORE_ADDR
hppa_saved_pc_after_call (struct frame_info
*frame
);
147 int hppa_inner_than (CORE_ADDR lhs
, CORE_ADDR rhs
);
148 CORE_ADDR
hppa_stack_align (CORE_ADDR sp
);
149 int hppa_pc_requires_run_before_use (CORE_ADDR pc
);
150 int hppa_instruction_nullified (void);
151 int hppa_register_raw_size (int reg_nr
);
152 int hppa_register_byte (int reg_nr
);
153 struct type
* hppa_register_virtual_type (int reg_nr
);
154 void hppa_store_struct_return (CORE_ADDR addr
, CORE_ADDR sp
);
155 void hppa_extract_return_value (struct type
*type
, char *regbuf
, char *valbuf
);
156 int hppa_use_struct_convention (int gcc_p
, struct type
*type
);
157 void hppa_store_return_value (struct type
*type
, char *valbuf
);
158 CORE_ADDR
hppa_extract_struct_value_address (char *regbuf
);
159 int hppa_cannot_store_register (int regnum
);
160 void hppa_init_extra_frame_info (int fromleaf
, struct frame_info
*frame
);
161 CORE_ADDR
hppa_frame_chain (struct frame_info
*frame
);
162 int hppa_frame_chain_valid (CORE_ADDR chain
, struct frame_info
*thisframe
);
163 int hppa_frameless_function_invocation (struct frame_info
*frame
);
164 CORE_ADDR
hppa_frame_saved_pc (struct frame_info
*frame
);
165 CORE_ADDR
hppa_frame_args_address (struct frame_info
*fi
);
166 CORE_ADDR
hppa_frame_locals_address (struct frame_info
*fi
);
167 int hppa_frame_num_args (struct frame_info
*frame
);
168 void hppa_push_dummy_frame (void);
169 void hppa_pop_frame (void);
170 CORE_ADDR
hppa_fix_call_dummy (char *dummy
, CORE_ADDR pc
, CORE_ADDR fun
,
171 int nargs
, struct value
**args
,
172 struct type
*type
, int gcc_p
);
173 CORE_ADDR
hppa_push_arguments (int nargs
, struct value
**args
, CORE_ADDR sp
,
174 int struct_return
, CORE_ADDR struct_addr
);
175 CORE_ADDR
hppa_smash_text_address (CORE_ADDR addr
);
176 CORE_ADDR
hppa_target_read_pc (ptid_t ptid
);
177 void hppa_target_write_pc (CORE_ADDR v
, ptid_t ptid
);
178 CORE_ADDR
hppa_target_read_fp (void);
182 struct minimal_symbol
*msym
;
183 CORE_ADDR solib_handle
;
184 CORE_ADDR return_val
;
188 static int cover_find_stub_with_shl_get (void *);
190 static int is_pa_2
= 0; /* False */
192 /* This is declared in symtab.c; set to 1 in hp-symtab-read.c */
193 extern int hp_som_som_object_present
;
195 /* In breakpoint.c */
196 extern int exception_catchpoints_are_fragile
;
198 /* Should call_function allocate stack space for a struct return? */
201 hppa_use_struct_convention (int gcc_p
, struct type
*type
)
203 return (TYPE_LENGTH (type
) > 2 * DEPRECATED_REGISTER_SIZE
);
207 /* Routines to extract various sized constants out of hppa
210 /* This assumes that no garbage lies outside of the lower bits of
214 sign_extend (unsigned val
, unsigned bits
)
216 return (int) (val
>> (bits
- 1) ? (-1 << bits
) | val
: val
);
219 /* For many immediate values the sign bit is the low bit! */
222 low_sign_extend (unsigned val
, unsigned bits
)
224 return (int) ((val
& 0x1 ? (-1 << (bits
- 1)) : 0) | val
>> 1);
227 /* extract the immediate field from a ld{bhw}s instruction */
230 extract_5_load (unsigned word
)
232 return low_sign_extend (word
>> 16 & MASK_5
, 5);
235 /* extract the immediate field from a break instruction */
238 extract_5r_store (unsigned word
)
240 return (word
& MASK_5
);
243 /* extract the immediate field from a {sr}sm instruction */
246 extract_5R_store (unsigned word
)
248 return (word
>> 16 & MASK_5
);
251 /* extract a 14 bit immediate field */
254 extract_14 (unsigned word
)
256 return low_sign_extend (word
& MASK_14
, 14);
259 /* deposit a 14 bit constant in a word */
262 deposit_14 (int opnd
, unsigned word
)
264 unsigned sign
= (opnd
< 0 ? 1 : 0);
266 return word
| ((unsigned) opnd
<< 1 & MASK_14
) | sign
;
269 /* extract a 21 bit constant */
272 extract_21 (unsigned word
)
278 val
= GET_FIELD (word
, 20, 20);
280 val
|= GET_FIELD (word
, 9, 19);
282 val
|= GET_FIELD (word
, 5, 6);
284 val
|= GET_FIELD (word
, 0, 4);
286 val
|= GET_FIELD (word
, 7, 8);
287 return sign_extend (val
, 21) << 11;
290 /* deposit a 21 bit constant in a word. Although 21 bit constants are
291 usually the top 21 bits of a 32 bit constant, we assume that only
292 the low 21 bits of opnd are relevant */
295 deposit_21 (unsigned opnd
, unsigned word
)
299 val
|= GET_FIELD (opnd
, 11 + 14, 11 + 18);
301 val
|= GET_FIELD (opnd
, 11 + 12, 11 + 13);
303 val
|= GET_FIELD (opnd
, 11 + 19, 11 + 20);
305 val
|= GET_FIELD (opnd
, 11 + 1, 11 + 11);
307 val
|= GET_FIELD (opnd
, 11 + 0, 11 + 0);
311 /* extract a 17 bit constant from branch instructions, returning the
312 19 bit signed value. */
315 extract_17 (unsigned word
)
317 return sign_extend (GET_FIELD (word
, 19, 28) |
318 GET_FIELD (word
, 29, 29) << 10 |
319 GET_FIELD (word
, 11, 15) << 11 |
320 (word
& 0x1) << 16, 17) << 2;
324 /* Compare the start address for two unwind entries returning 1 if
325 the first address is larger than the second, -1 if the second is
326 larger than the first, and zero if they are equal. */
329 compare_unwind_entries (const void *arg1
, const void *arg2
)
331 const struct unwind_table_entry
*a
= arg1
;
332 const struct unwind_table_entry
*b
= arg2
;
334 if (a
->region_start
> b
->region_start
)
336 else if (a
->region_start
< b
->region_start
)
342 static CORE_ADDR low_text_segment_address
;
345 record_text_segment_lowaddr (bfd
*abfd
, asection
*section
, void *ignored
)
347 if (((section
->flags
& (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
))
348 == (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
))
349 && section
->vma
< low_text_segment_address
)
350 low_text_segment_address
= section
->vma
;
354 internalize_unwinds (struct objfile
*objfile
, struct unwind_table_entry
*table
,
355 asection
*section
, unsigned int entries
, unsigned int size
,
356 CORE_ADDR text_offset
)
358 /* We will read the unwind entries into temporary memory, then
359 fill in the actual unwind table. */
364 char *buf
= alloca (size
);
366 low_text_segment_address
= -1;
368 /* If addresses are 64 bits wide, then unwinds are supposed to
369 be segment relative offsets instead of absolute addresses.
371 Note that when loading a shared library (text_offset != 0) the
372 unwinds are already relative to the text_offset that will be
374 if (TARGET_PTR_BIT
== 64 && text_offset
== 0)
376 bfd_map_over_sections (objfile
->obfd
,
377 record_text_segment_lowaddr
, NULL
);
379 /* ?!? Mask off some low bits. Should this instead subtract
380 out the lowest section's filepos or something like that?
381 This looks very hokey to me. */
382 low_text_segment_address
&= ~0xfff;
383 text_offset
+= low_text_segment_address
;
386 bfd_get_section_contents (objfile
->obfd
, section
, buf
, 0, size
);
388 /* Now internalize the information being careful to handle host/target
390 for (i
= 0; i
< entries
; i
++)
392 table
[i
].region_start
= bfd_get_32 (objfile
->obfd
,
394 table
[i
].region_start
+= text_offset
;
396 table
[i
].region_end
= bfd_get_32 (objfile
->obfd
, (bfd_byte
*) buf
);
397 table
[i
].region_end
+= text_offset
;
399 tmp
= bfd_get_32 (objfile
->obfd
, (bfd_byte
*) buf
);
401 table
[i
].Cannot_unwind
= (tmp
>> 31) & 0x1;
402 table
[i
].Millicode
= (tmp
>> 30) & 0x1;
403 table
[i
].Millicode_save_sr0
= (tmp
>> 29) & 0x1;
404 table
[i
].Region_description
= (tmp
>> 27) & 0x3;
405 table
[i
].reserved1
= (tmp
>> 26) & 0x1;
406 table
[i
].Entry_SR
= (tmp
>> 25) & 0x1;
407 table
[i
].Entry_FR
= (tmp
>> 21) & 0xf;
408 table
[i
].Entry_GR
= (tmp
>> 16) & 0x1f;
409 table
[i
].Args_stored
= (tmp
>> 15) & 0x1;
410 table
[i
].Variable_Frame
= (tmp
>> 14) & 0x1;
411 table
[i
].Separate_Package_Body
= (tmp
>> 13) & 0x1;
412 table
[i
].Frame_Extension_Millicode
= (tmp
>> 12) & 0x1;
413 table
[i
].Stack_Overflow_Check
= (tmp
>> 11) & 0x1;
414 table
[i
].Two_Instruction_SP_Increment
= (tmp
>> 10) & 0x1;
415 table
[i
].Ada_Region
= (tmp
>> 9) & 0x1;
416 table
[i
].cxx_info
= (tmp
>> 8) & 0x1;
417 table
[i
].cxx_try_catch
= (tmp
>> 7) & 0x1;
418 table
[i
].sched_entry_seq
= (tmp
>> 6) & 0x1;
419 table
[i
].reserved2
= (tmp
>> 5) & 0x1;
420 table
[i
].Save_SP
= (tmp
>> 4) & 0x1;
421 table
[i
].Save_RP
= (tmp
>> 3) & 0x1;
422 table
[i
].Save_MRP_in_frame
= (tmp
>> 2) & 0x1;
423 table
[i
].extn_ptr_defined
= (tmp
>> 1) & 0x1;
424 table
[i
].Cleanup_defined
= tmp
& 0x1;
425 tmp
= bfd_get_32 (objfile
->obfd
, (bfd_byte
*) buf
);
427 table
[i
].MPE_XL_interrupt_marker
= (tmp
>> 31) & 0x1;
428 table
[i
].HP_UX_interrupt_marker
= (tmp
>> 30) & 0x1;
429 table
[i
].Large_frame
= (tmp
>> 29) & 0x1;
430 table
[i
].Pseudo_SP_Set
= (tmp
>> 28) & 0x1;
431 table
[i
].reserved4
= (tmp
>> 27) & 0x1;
432 table
[i
].Total_frame_size
= tmp
& 0x7ffffff;
434 /* Stub unwinds are handled elsewhere. */
435 table
[i
].stub_unwind
.stub_type
= 0;
436 table
[i
].stub_unwind
.padding
= 0;
441 /* Read in the backtrace information stored in the `$UNWIND_START$' section of
442 the object file. This info is used mainly by find_unwind_entry() to find
443 out the stack frame size and frame pointer used by procedures. We put
444 everything on the psymbol obstack in the objfile so that it automatically
445 gets freed when the objfile is destroyed. */
448 read_unwind_info (struct objfile
*objfile
)
450 asection
*unwind_sec
, *stub_unwind_sec
;
451 unsigned unwind_size
, stub_unwind_size
, total_size
;
452 unsigned index
, unwind_entries
;
453 unsigned stub_entries
, total_entries
;
454 CORE_ADDR text_offset
;
455 struct obj_unwind_info
*ui
;
456 obj_private_data_t
*obj_private
;
458 text_offset
= ANOFFSET (objfile
->section_offsets
, 0);
459 ui
= (struct obj_unwind_info
*) obstack_alloc (&objfile
->psymbol_obstack
,
460 sizeof (struct obj_unwind_info
));
466 /* For reasons unknown the HP PA64 tools generate multiple unwinder
467 sections in a single executable. So we just iterate over every
468 section in the BFD looking for unwinder sections intead of trying
469 to do a lookup with bfd_get_section_by_name.
471 First determine the total size of the unwind tables so that we
472 can allocate memory in a nice big hunk. */
474 for (unwind_sec
= objfile
->obfd
->sections
;
476 unwind_sec
= unwind_sec
->next
)
478 if (strcmp (unwind_sec
->name
, "$UNWIND_START$") == 0
479 || strcmp (unwind_sec
->name
, ".PARISC.unwind") == 0)
481 unwind_size
= bfd_section_size (objfile
->obfd
, unwind_sec
);
482 unwind_entries
= unwind_size
/ UNWIND_ENTRY_SIZE
;
484 total_entries
+= unwind_entries
;
488 /* Now compute the size of the stub unwinds. Note the ELF tools do not
489 use stub unwinds at the curren time. */
490 stub_unwind_sec
= bfd_get_section_by_name (objfile
->obfd
, "$UNWIND_END$");
494 stub_unwind_size
= bfd_section_size (objfile
->obfd
, stub_unwind_sec
);
495 stub_entries
= stub_unwind_size
/ STUB_UNWIND_ENTRY_SIZE
;
499 stub_unwind_size
= 0;
503 /* Compute total number of unwind entries and their total size. */
504 total_entries
+= stub_entries
;
505 total_size
= total_entries
* sizeof (struct unwind_table_entry
);
507 /* Allocate memory for the unwind table. */
508 ui
->table
= (struct unwind_table_entry
*)
509 obstack_alloc (&objfile
->psymbol_obstack
, total_size
);
510 ui
->last
= total_entries
- 1;
512 /* Now read in each unwind section and internalize the standard unwind
515 for (unwind_sec
= objfile
->obfd
->sections
;
517 unwind_sec
= unwind_sec
->next
)
519 if (strcmp (unwind_sec
->name
, "$UNWIND_START$") == 0
520 || strcmp (unwind_sec
->name
, ".PARISC.unwind") == 0)
522 unwind_size
= bfd_section_size (objfile
->obfd
, unwind_sec
);
523 unwind_entries
= unwind_size
/ UNWIND_ENTRY_SIZE
;
525 internalize_unwinds (objfile
, &ui
->table
[index
], unwind_sec
,
526 unwind_entries
, unwind_size
, text_offset
);
527 index
+= unwind_entries
;
531 /* Now read in and internalize the stub unwind entries. */
532 if (stub_unwind_size
> 0)
535 char *buf
= alloca (stub_unwind_size
);
537 /* Read in the stub unwind entries. */
538 bfd_get_section_contents (objfile
->obfd
, stub_unwind_sec
, buf
,
539 0, stub_unwind_size
);
541 /* Now convert them into regular unwind entries. */
542 for (i
= 0; i
< stub_entries
; i
++, index
++)
544 /* Clear out the next unwind entry. */
545 memset (&ui
->table
[index
], 0, sizeof (struct unwind_table_entry
));
547 /* Convert offset & size into region_start and region_end.
548 Stuff away the stub type into "reserved" fields. */
549 ui
->table
[index
].region_start
= bfd_get_32 (objfile
->obfd
,
551 ui
->table
[index
].region_start
+= text_offset
;
553 ui
->table
[index
].stub_unwind
.stub_type
= bfd_get_8 (objfile
->obfd
,
556 ui
->table
[index
].region_end
557 = ui
->table
[index
].region_start
+ 4 *
558 (bfd_get_16 (objfile
->obfd
, (bfd_byte
*) buf
) - 1);
564 /* Unwind table needs to be kept sorted. */
565 qsort (ui
->table
, total_entries
, sizeof (struct unwind_table_entry
),
566 compare_unwind_entries
);
568 /* Keep a pointer to the unwind information. */
569 if (objfile
->obj_private
== NULL
)
571 obj_private
= (obj_private_data_t
*)
572 obstack_alloc (&objfile
->psymbol_obstack
,
573 sizeof (obj_private_data_t
));
574 obj_private
->unwind_info
= NULL
;
575 obj_private
->so_info
= NULL
;
578 objfile
->obj_private
= obj_private
;
580 obj_private
= (obj_private_data_t
*) objfile
->obj_private
;
581 obj_private
->unwind_info
= ui
;
584 /* Lookup the unwind (stack backtrace) info for the given PC. We search all
585 of the objfiles seeking the unwind table entry for this PC. Each objfile
586 contains a sorted list of struct unwind_table_entry. Since we do a binary
587 search of the unwind tables, we depend upon them to be sorted. */
589 struct unwind_table_entry
*
590 find_unwind_entry (CORE_ADDR pc
)
592 int first
, middle
, last
;
593 struct objfile
*objfile
;
595 /* A function at address 0? Not in HP-UX! */
596 if (pc
== (CORE_ADDR
) 0)
599 ALL_OBJFILES (objfile
)
601 struct obj_unwind_info
*ui
;
603 if (objfile
->obj_private
)
604 ui
= ((obj_private_data_t
*) (objfile
->obj_private
))->unwind_info
;
608 read_unwind_info (objfile
);
609 if (objfile
->obj_private
== NULL
)
610 error ("Internal error reading unwind information.");
611 ui
= ((obj_private_data_t
*) (objfile
->obj_private
))->unwind_info
;
614 /* First, check the cache */
617 && pc
>= ui
->cache
->region_start
618 && pc
<= ui
->cache
->region_end
)
621 /* Not in the cache, do a binary search */
626 while (first
<= last
)
628 middle
= (first
+ last
) / 2;
629 if (pc
>= ui
->table
[middle
].region_start
630 && pc
<= ui
->table
[middle
].region_end
)
632 ui
->cache
= &ui
->table
[middle
];
633 return &ui
->table
[middle
];
636 if (pc
< ui
->table
[middle
].region_start
)
641 } /* ALL_OBJFILES() */
645 const unsigned char *
646 hppa_breakpoint_from_pc (CORE_ADDR
*pc
, int *len
)
648 static const char breakpoint
[] = {0x00, 0x01, 0x00, 0x04};
649 (*len
) = sizeof (breakpoint
);
653 /* Return the adjustment necessary to make for addresses on the stack
654 as presented by hpread.c.
656 This is necessary because of the stack direction on the PA and the
657 bizarre way in which someone (?) decided they wanted to handle
658 frame pointerless code in GDB. */
660 hpread_adjust_stack_address (CORE_ADDR func_addr
)
662 struct unwind_table_entry
*u
;
664 u
= find_unwind_entry (func_addr
);
668 return u
->Total_frame_size
<< 3;
671 /* Called to determine if PC is in an interrupt handler of some
675 pc_in_interrupt_handler (CORE_ADDR pc
)
677 struct unwind_table_entry
*u
;
678 struct minimal_symbol
*msym_us
;
680 u
= find_unwind_entry (pc
);
684 /* Oh joys. HPUX sets the interrupt bit for _sigreturn even though
685 its frame isn't a pure interrupt frame. Deal with this. */
686 msym_us
= lookup_minimal_symbol_by_pc (pc
);
688 return (u
->HP_UX_interrupt_marker
689 && !PC_IN_SIGTRAMP (pc
, DEPRECATED_SYMBOL_NAME (msym_us
)));
692 /* Called when no unwind descriptor was found for PC. Returns 1 if it
693 appears that PC is in a linker stub.
695 ?!? Need to handle stubs which appear in PA64 code. */
698 pc_in_linker_stub (CORE_ADDR pc
)
700 int found_magic_instruction
= 0;
704 /* If unable to read memory, assume pc is not in a linker stub. */
705 if (target_read_memory (pc
, buf
, 4) != 0)
708 /* We are looking for something like
710 ; $$dyncall jams RP into this special spot in the frame (RP')
711 ; before calling the "call stub"
714 ldsid (rp),r1 ; Get space associated with RP into r1
715 mtsp r1,sp ; Move it into space register 0
716 be,n 0(sr0),rp) ; back to your regularly scheduled program */
718 /* Maximum known linker stub size is 4 instructions. Search forward
719 from the given PC, then backward. */
720 for (i
= 0; i
< 4; i
++)
722 /* If we hit something with an unwind, stop searching this direction. */
724 if (find_unwind_entry (pc
+ i
* 4) != 0)
727 /* Check for ldsid (rp),r1 which is the magic instruction for a
728 return from a cross-space function call. */
729 if (read_memory_integer (pc
+ i
* 4, 4) == 0x004010a1)
731 found_magic_instruction
= 1;
734 /* Add code to handle long call/branch and argument relocation stubs
738 if (found_magic_instruction
!= 0)
741 /* Now look backward. */
742 for (i
= 0; i
< 4; i
++)
744 /* If we hit something with an unwind, stop searching this direction. */
746 if (find_unwind_entry (pc
- i
* 4) != 0)
749 /* Check for ldsid (rp),r1 which is the magic instruction for a
750 return from a cross-space function call. */
751 if (read_memory_integer (pc
- i
* 4, 4) == 0x004010a1)
753 found_magic_instruction
= 1;
756 /* Add code to handle long call/branch and argument relocation stubs
759 return found_magic_instruction
;
763 find_return_regnum (CORE_ADDR pc
)
765 struct unwind_table_entry
*u
;
767 u
= find_unwind_entry (pc
);
778 /* Return size of frame, or -1 if we should use a frame pointer. */
780 find_proc_framesize (CORE_ADDR pc
)
782 struct unwind_table_entry
*u
;
783 struct minimal_symbol
*msym_us
;
785 /* This may indicate a bug in our callers... */
786 if (pc
== (CORE_ADDR
) 0)
789 u
= find_unwind_entry (pc
);
793 if (pc_in_linker_stub (pc
))
794 /* Linker stubs have a zero size frame. */
800 msym_us
= lookup_minimal_symbol_by_pc (pc
);
802 /* If Save_SP is set, and we're not in an interrupt or signal caller,
803 then we have a frame pointer. Use it. */
805 && !pc_in_interrupt_handler (pc
)
807 && !PC_IN_SIGTRAMP (pc
, DEPRECATED_SYMBOL_NAME (msym_us
)))
810 return u
->Total_frame_size
<< 3;
813 /* Return offset from sp at which rp is saved, or 0 if not saved. */
814 static int rp_saved (CORE_ADDR
);
817 rp_saved (CORE_ADDR pc
)
819 struct unwind_table_entry
*u
;
821 /* A function at, and thus a return PC from, address 0? Not in HP-UX! */
822 if (pc
== (CORE_ADDR
) 0)
825 u
= find_unwind_entry (pc
);
829 if (pc_in_linker_stub (pc
))
830 /* This is the so-called RP'. */
837 return (TARGET_PTR_BIT
== 64 ? -16 : -20);
838 else if (u
->stub_unwind
.stub_type
!= 0)
840 switch (u
->stub_unwind
.stub_type
)
845 case PARAMETER_RELOCATION
:
856 hppa_frameless_function_invocation (struct frame_info
*frame
)
858 struct unwind_table_entry
*u
;
860 u
= find_unwind_entry (get_frame_pc (frame
));
865 return (u
->Total_frame_size
== 0 && u
->stub_unwind
.stub_type
== 0);
868 /* Immediately after a function call, return the saved pc.
869 Can't go through the frames for this because on some machines
870 the new frame is not set up until the new function executes
871 some instructions. */
874 hppa_saved_pc_after_call (struct frame_info
*frame
)
878 struct unwind_table_entry
*u
;
880 ret_regnum
= find_return_regnum (get_frame_pc (frame
));
881 pc
= read_register (ret_regnum
) & ~0x3;
883 /* If PC is in a linker stub, then we need to dig the address
884 the stub will return to out of the stack. */
885 u
= find_unwind_entry (pc
);
886 if (u
&& u
->stub_unwind
.stub_type
!= 0)
887 return DEPRECATED_FRAME_SAVED_PC (frame
);
893 hppa_frame_saved_pc (struct frame_info
*frame
)
895 CORE_ADDR pc
= get_frame_pc (frame
);
896 struct unwind_table_entry
*u
;
897 CORE_ADDR old_pc
= 0;
898 int spun_around_loop
= 0;
901 /* BSD, HPUX & OSF1 all lay out the hardware state in the same manner
902 at the base of the frame in an interrupt handler. Registers within
903 are saved in the exact same order as GDB numbers registers. How
905 if (pc_in_interrupt_handler (pc
))
906 return read_memory_integer (get_frame_base (frame
) + PC_REGNUM
* 4,
907 TARGET_PTR_BIT
/ 8) & ~0x3;
909 if ((get_frame_pc (frame
) >= get_frame_base (frame
)
910 && (get_frame_pc (frame
)
911 <= (get_frame_base (frame
)
912 /* A call dummy is sized in words, but it is actually a
913 series of instructions. Account for that scaling
915 + ((DEPRECATED_REGISTER_SIZE
/ INSTRUCTION_SIZE
)
916 * DEPRECATED_CALL_DUMMY_LENGTH
)
917 /* Similarly we have to account for 64bit wide register
919 + (32 * DEPRECATED_REGISTER_SIZE
)
920 /* We always consider FP regs 8 bytes long. */
921 + (NUM_REGS
- FP0_REGNUM
) * 8
922 /* Similarly we have to account for 64bit wide register
924 + (6 * DEPRECATED_REGISTER_SIZE
)))))
926 return read_memory_integer ((get_frame_base (frame
)
927 + (TARGET_PTR_BIT
== 64 ? -16 : -20)),
928 TARGET_PTR_BIT
/ 8) & ~0x3;
931 #ifdef FRAME_SAVED_PC_IN_SIGTRAMP
932 /* Deal with signal handler caller frames too. */
933 if ((get_frame_type (frame
) == SIGTRAMP_FRAME
))
936 FRAME_SAVED_PC_IN_SIGTRAMP (frame
, &rp
);
941 if (hppa_frameless_function_invocation (frame
))
945 ret_regnum
= find_return_regnum (pc
);
947 /* If the next frame is an interrupt frame or a signal
948 handler caller, then we need to look in the saved
949 register area to get the return pointer (the values
950 in the registers may not correspond to anything useful). */
951 if (get_next_frame (frame
)
952 && ((get_frame_type (get_next_frame (frame
)) == SIGTRAMP_FRAME
)
953 || pc_in_interrupt_handler (get_frame_pc (get_next_frame (frame
)))))
955 CORE_ADDR
*saved_regs
;
956 hppa_frame_init_saved_regs (get_next_frame (frame
));
957 saved_regs
= get_frame_saved_regs (get_next_frame (frame
));
958 if (read_memory_integer (saved_regs
[FLAGS_REGNUM
],
959 TARGET_PTR_BIT
/ 8) & 0x2)
961 pc
= read_memory_integer (saved_regs
[31],
962 TARGET_PTR_BIT
/ 8) & ~0x3;
964 /* Syscalls are really two frames. The syscall stub itself
965 with a return pointer in %rp and the kernel call with
966 a return pointer in %r31. We return the %rp variant
967 if %r31 is the same as frame->pc. */
968 if (pc
== get_frame_pc (frame
))
969 pc
= read_memory_integer (saved_regs
[RP_REGNUM
],
970 TARGET_PTR_BIT
/ 8) & ~0x3;
973 pc
= read_memory_integer (saved_regs
[RP_REGNUM
],
974 TARGET_PTR_BIT
/ 8) & ~0x3;
977 pc
= read_register (ret_regnum
) & ~0x3;
981 spun_around_loop
= 0;
985 rp_offset
= rp_saved (pc
);
987 /* Similar to code in frameless function case. If the next
988 frame is a signal or interrupt handler, then dig the right
989 information out of the saved register info. */
991 && get_next_frame (frame
)
992 && ((get_frame_type (get_next_frame (frame
)) == SIGTRAMP_FRAME
)
993 || pc_in_interrupt_handler (get_frame_pc (get_next_frame (frame
)))))
995 CORE_ADDR
*saved_regs
;
996 hppa_frame_init_saved_regs (get_next_frame (frame
));
997 saved_regs
= get_frame_saved_regs (get_next_frame (frame
));
998 if (read_memory_integer (saved_regs
[FLAGS_REGNUM
],
999 TARGET_PTR_BIT
/ 8) & 0x2)
1001 pc
= read_memory_integer (saved_regs
[31],
1002 TARGET_PTR_BIT
/ 8) & ~0x3;
1004 /* Syscalls are really two frames. The syscall stub itself
1005 with a return pointer in %rp and the kernel call with
1006 a return pointer in %r31. We return the %rp variant
1007 if %r31 is the same as frame->pc. */
1008 if (pc
== get_frame_pc (frame
))
1009 pc
= read_memory_integer (saved_regs
[RP_REGNUM
],
1010 TARGET_PTR_BIT
/ 8) & ~0x3;
1013 pc
= read_memory_integer (saved_regs
[RP_REGNUM
],
1014 TARGET_PTR_BIT
/ 8) & ~0x3;
1016 else if (rp_offset
== 0)
1019 pc
= read_register (RP_REGNUM
) & ~0x3;
1024 pc
= read_memory_integer (get_frame_base (frame
) + rp_offset
,
1025 TARGET_PTR_BIT
/ 8) & ~0x3;
1029 /* If PC is inside a linker stub, then dig out the address the stub
1032 Don't do this for long branch stubs. Why? For some unknown reason
1033 _start is marked as a long branch stub in hpux10. */
1034 u
= find_unwind_entry (pc
);
1035 if (u
&& u
->stub_unwind
.stub_type
!= 0
1036 && u
->stub_unwind
.stub_type
!= LONG_BRANCH
)
1040 /* If this is a dynamic executable, and we're in a signal handler,
1041 then the call chain will eventually point us into the stub for
1042 _sigreturn. Unlike most cases, we'll be pointed to the branch
1043 to the real sigreturn rather than the code after the real branch!.
1045 Else, try to dig the address the stub will return to in the normal
1047 insn
= read_memory_integer (pc
, 4);
1048 if ((insn
& 0xfc00e000) == 0xe8000000)
1049 return (pc
+ extract_17 (insn
) + 8) & ~0x3;
1055 if (spun_around_loop
> 1)
1057 /* We're just about to go around the loop again with
1058 no more hope of success. Die. */
1059 error ("Unable to find return pc for this frame");
1069 /* We need to correct the PC and the FP for the outermost frame when we are
1070 in a system call. */
1073 hppa_init_extra_frame_info (int fromleaf
, struct frame_info
*frame
)
1078 if (get_next_frame (frame
) && !fromleaf
)
1081 /* If the next frame represents a frameless function invocation then
1082 we have to do some adjustments that are normally done by
1083 DEPRECATED_FRAME_CHAIN. (DEPRECATED_FRAME_CHAIN is not called in
1087 /* Find the framesize of *this* frame without peeking at the PC
1088 in the current frame structure (it isn't set yet). */
1089 framesize
= find_proc_framesize (DEPRECATED_FRAME_SAVED_PC (get_next_frame (frame
)));
1091 /* Now adjust our base frame accordingly. If we have a frame pointer
1092 use it, else subtract the size of this frame from the current
1093 frame. (we always want frame->frame to point at the lowest address
1095 if (framesize
== -1)
1096 deprecated_update_frame_base_hack (frame
, deprecated_read_fp ());
1098 deprecated_update_frame_base_hack (frame
, get_frame_base (frame
) - framesize
);
1102 flags
= read_register (FLAGS_REGNUM
);
1103 if (flags
& 2) /* In system call? */
1104 deprecated_update_frame_pc_hack (frame
, read_register (31) & ~0x3);
1106 /* The outermost frame is always derived from PC-framesize
1108 One might think frameless innermost frames should have
1109 a frame->frame that is the same as the parent's frame->frame.
1110 That is wrong; frame->frame in that case should be the *high*
1111 address of the parent's frame. It's complicated as hell to
1112 explain, but the parent *always* creates some stack space for
1113 the child. So the child actually does have a frame of some
1114 sorts, and its base is the high address in its parent's frame. */
1115 framesize
= find_proc_framesize (get_frame_pc (frame
));
1116 if (framesize
== -1)
1117 deprecated_update_frame_base_hack (frame
, deprecated_read_fp ());
1119 deprecated_update_frame_base_hack (frame
, read_register (SP_REGNUM
) - framesize
);
1122 /* Given a GDB frame, determine the address of the calling function's
1123 frame. This will be used to create a new GDB frame struct, and
1124 then DEPRECATED_INIT_EXTRA_FRAME_INFO and DEPRECATED_INIT_FRAME_PC
1125 will be called for the new frame.
1127 This may involve searching through prologues for several functions
1128 at boundaries where GCC calls HP C code, or where code which has
1129 a frame pointer calls code without a frame pointer. */
1132 hppa_frame_chain (struct frame_info
*frame
)
1134 int my_framesize
, caller_framesize
;
1135 struct unwind_table_entry
*u
;
1136 CORE_ADDR frame_base
;
1137 struct frame_info
*tmp_frame
;
1139 /* A frame in the current frame list, or zero. */
1140 struct frame_info
*saved_regs_frame
= 0;
1141 /* Where the registers were saved in saved_regs_frame. If
1142 saved_regs_frame is zero, this is garbage. */
1143 CORE_ADDR
*saved_regs
= NULL
;
1145 CORE_ADDR caller_pc
;
1147 struct minimal_symbol
*min_frame_symbol
;
1148 struct symbol
*frame_symbol
;
1149 char *frame_symbol_name
;
1151 /* If this is a threaded application, and we see the
1152 routine "__pthread_exit", treat it as the stack root
1154 min_frame_symbol
= lookup_minimal_symbol_by_pc (get_frame_pc (frame
));
1155 frame_symbol
= find_pc_function (get_frame_pc (frame
));
1157 if ((min_frame_symbol
!= 0) /* && (frame_symbol == 0) */ )
1159 /* The test above for "no user function name" would defend
1160 against the slim likelihood that a user might define a
1161 routine named "__pthread_exit" and then try to debug it.
1163 If it weren't commented out, and you tried to debug the
1164 pthread library itself, you'd get errors.
1166 So for today, we don't make that check. */
1167 frame_symbol_name
= DEPRECATED_SYMBOL_NAME (min_frame_symbol
);
1168 if (frame_symbol_name
!= 0)
1170 if (0 == strncmp (frame_symbol_name
,
1171 THREAD_INITIAL_FRAME_SYMBOL
,
1172 THREAD_INITIAL_FRAME_SYM_LEN
))
1174 /* Pretend we've reached the bottom of the stack. */
1175 return (CORE_ADDR
) 0;
1178 } /* End of hacky code for threads. */
1180 /* Handle HPUX, BSD, and OSF1 style interrupt frames first. These
1181 are easy; at *sp we have a full save state strucutre which we can
1182 pull the old stack pointer from. Also see frame_saved_pc for
1183 code to dig a saved PC out of the save state structure. */
1184 if (pc_in_interrupt_handler (get_frame_pc (frame
)))
1185 frame_base
= read_memory_integer (get_frame_base (frame
) + SP_REGNUM
* 4,
1186 TARGET_PTR_BIT
/ 8);
1187 #ifdef FRAME_BASE_BEFORE_SIGTRAMP
1188 else if ((get_frame_type (frame
) == SIGTRAMP_FRAME
))
1190 FRAME_BASE_BEFORE_SIGTRAMP (frame
, &frame_base
);
1194 frame_base
= get_frame_base (frame
);
1196 /* Get frame sizes for the current frame and the frame of the
1198 my_framesize
= find_proc_framesize (get_frame_pc (frame
));
1199 caller_pc
= DEPRECATED_FRAME_SAVED_PC (frame
);
1201 /* If we can't determine the caller's PC, then it's not likely we can
1202 really determine anything meaningful about its frame. We'll consider
1203 this to be stack bottom. */
1204 if (caller_pc
== (CORE_ADDR
) 0)
1205 return (CORE_ADDR
) 0;
1207 caller_framesize
= find_proc_framesize (DEPRECATED_FRAME_SAVED_PC (frame
));
1209 /* If caller does not have a frame pointer, then its frame
1210 can be found at current_frame - caller_framesize. */
1211 if (caller_framesize
!= -1)
1213 return frame_base
- caller_framesize
;
1215 /* Both caller and callee have frame pointers and are GCC compiled
1216 (SAVE_SP bit in unwind descriptor is on for both functions.
1217 The previous frame pointer is found at the top of the current frame. */
1218 if (caller_framesize
== -1 && my_framesize
== -1)
1220 return read_memory_integer (frame_base
, TARGET_PTR_BIT
/ 8);
1222 /* Caller has a frame pointer, but callee does not. This is a little
1223 more difficult as GCC and HP C lay out locals and callee register save
1224 areas very differently.
1226 The previous frame pointer could be in a register, or in one of
1227 several areas on the stack.
1229 Walk from the current frame to the innermost frame examining
1230 unwind descriptors to determine if %r3 ever gets saved into the
1231 stack. If so return whatever value got saved into the stack.
1232 If it was never saved in the stack, then the value in %r3 is still
1235 We use information from unwind descriptors to determine if %r3
1236 is saved into the stack (Entry_GR field has this information). */
1238 for (tmp_frame
= frame
; tmp_frame
; tmp_frame
= get_next_frame (tmp_frame
))
1240 u
= find_unwind_entry (get_frame_pc (tmp_frame
));
1244 /* We could find this information by examining prologues. I don't
1245 think anyone has actually written any tools (not even "strip")
1246 which leave them out of an executable, so maybe this is a moot
1248 /* ??rehrauer: Actually, it's quite possible to stepi your way into
1249 code that doesn't have unwind entries. For example, stepping into
1250 the dynamic linker will give you a PC that has none. Thus, I've
1251 disabled this warning. */
1253 warning ("Unable to find unwind for PC 0x%x -- Help!", get_frame_pc (tmp_frame
));
1255 return (CORE_ADDR
) 0;
1259 || (get_frame_type (tmp_frame
) == SIGTRAMP_FRAME
)
1260 || pc_in_interrupt_handler (get_frame_pc (tmp_frame
)))
1263 /* Entry_GR specifies the number of callee-saved general registers
1264 saved in the stack. It starts at %r3, so %r3 would be 1. */
1265 if (u
->Entry_GR
>= 1)
1267 /* The unwind entry claims that r3 is saved here. However,
1268 in optimized code, GCC often doesn't actually save r3.
1269 We'll discover this if we look at the prologue. */
1270 hppa_frame_init_saved_regs (tmp_frame
);
1271 saved_regs
= get_frame_saved_regs (tmp_frame
);
1272 saved_regs_frame
= tmp_frame
;
1274 /* If we have an address for r3, that's good. */
1275 if (saved_regs
[DEPRECATED_FP_REGNUM
])
1282 /* We may have walked down the chain into a function with a frame
1285 && !(get_frame_type (tmp_frame
) == SIGTRAMP_FRAME
)
1286 && !pc_in_interrupt_handler (get_frame_pc (tmp_frame
)))
1288 return read_memory_integer (get_frame_base (tmp_frame
), TARGET_PTR_BIT
/ 8);
1290 /* %r3 was saved somewhere in the stack. Dig it out. */
1295 For optimization purposes many kernels don't have the
1296 callee saved registers into the save_state structure upon
1297 entry into the kernel for a syscall; the optimization
1298 is usually turned off if the process is being traced so
1299 that the debugger can get full register state for the
1302 This scheme works well except for two cases:
1304 * Attaching to a process when the process is in the
1305 kernel performing a system call (debugger can't get
1306 full register state for the inferior process since
1307 the process wasn't being traced when it entered the
1310 * Register state is not complete if the system call
1311 causes the process to core dump.
1314 The following heinous code is an attempt to deal with
1315 the lack of register state in a core dump. It will
1316 fail miserably if the function which performs the
1317 system call has a variable sized stack frame. */
1319 if (tmp_frame
!= saved_regs_frame
)
1321 hppa_frame_init_saved_regs (tmp_frame
);
1322 saved_regs
= get_frame_saved_regs (tmp_frame
);
1325 /* Abominable hack. */
1326 if (current_target
.to_has_execution
== 0
1327 && ((saved_regs
[FLAGS_REGNUM
]
1328 && (read_memory_integer (saved_regs
[FLAGS_REGNUM
],
1331 || (saved_regs
[FLAGS_REGNUM
] == 0
1332 && read_register (FLAGS_REGNUM
) & 0x2)))
1334 u
= find_unwind_entry (DEPRECATED_FRAME_SAVED_PC (frame
));
1337 return read_memory_integer (saved_regs
[DEPRECATED_FP_REGNUM
],
1338 TARGET_PTR_BIT
/ 8);
1342 return frame_base
- (u
->Total_frame_size
<< 3);
1346 return read_memory_integer (saved_regs
[DEPRECATED_FP_REGNUM
],
1347 TARGET_PTR_BIT
/ 8);
1352 /* Get the innermost frame. */
1354 while (get_next_frame (tmp_frame
) != NULL
)
1355 tmp_frame
= get_next_frame (tmp_frame
);
1357 if (tmp_frame
!= saved_regs_frame
)
1359 hppa_frame_init_saved_regs (tmp_frame
);
1360 saved_regs
= get_frame_saved_regs (tmp_frame
);
1363 /* Abominable hack. See above. */
1364 if (current_target
.to_has_execution
== 0
1365 && ((saved_regs
[FLAGS_REGNUM
]
1366 && (read_memory_integer (saved_regs
[FLAGS_REGNUM
],
1369 || (saved_regs
[FLAGS_REGNUM
] == 0
1370 && read_register (FLAGS_REGNUM
) & 0x2)))
1372 u
= find_unwind_entry (DEPRECATED_FRAME_SAVED_PC (frame
));
1375 return read_memory_integer (saved_regs
[DEPRECATED_FP_REGNUM
],
1376 TARGET_PTR_BIT
/ 8);
1380 return frame_base
- (u
->Total_frame_size
<< 3);
1384 /* The value in %r3 was never saved into the stack (thus %r3 still
1385 holds the value of the previous frame pointer). */
1386 return deprecated_read_fp ();
1391 /* To see if a frame chain is valid, see if the caller looks like it
1392 was compiled with gcc. */
1395 hppa_frame_chain_valid (CORE_ADDR chain
, struct frame_info
*thisframe
)
1397 struct minimal_symbol
*msym_us
;
1398 struct minimal_symbol
*msym_start
;
1399 struct unwind_table_entry
*u
, *next_u
= NULL
;
1400 struct frame_info
*next
;
1402 u
= find_unwind_entry (get_frame_pc (thisframe
));
1407 /* We can't just check that the same of msym_us is "_start", because
1408 someone idiotically decided that they were going to make a Ltext_end
1409 symbol with the same address. This Ltext_end symbol is totally
1410 indistinguishable (as nearly as I can tell) from the symbol for a function
1411 which is (legitimately, since it is in the user's namespace)
1412 named Ltext_end, so we can't just ignore it. */
1413 msym_us
= lookup_minimal_symbol_by_pc (DEPRECATED_FRAME_SAVED_PC (thisframe
));
1414 msym_start
= lookup_minimal_symbol ("_start", NULL
, NULL
);
1417 && SYMBOL_VALUE_ADDRESS (msym_us
) == SYMBOL_VALUE_ADDRESS (msym_start
))
1420 /* Grrrr. Some new idiot decided that they don't want _start for the
1421 PRO configurations; $START$ calls main directly.... Deal with it. */
1422 msym_start
= lookup_minimal_symbol ("$START$", NULL
, NULL
);
1425 && SYMBOL_VALUE_ADDRESS (msym_us
) == SYMBOL_VALUE_ADDRESS (msym_start
))
1428 next
= get_next_frame (thisframe
);
1430 next_u
= find_unwind_entry (get_frame_pc (next
));
1432 /* If this frame does not save SP, has no stack, isn't a stub,
1433 and doesn't "call" an interrupt routine or signal handler caller,
1434 then its not valid. */
1435 if (u
->Save_SP
|| u
->Total_frame_size
|| u
->stub_unwind
.stub_type
!= 0
1436 || (get_next_frame (thisframe
) && (get_frame_type (get_next_frame (thisframe
)) == SIGTRAMP_FRAME
))
1437 || (next_u
&& next_u
->HP_UX_interrupt_marker
))
1440 if (pc_in_linker_stub (get_frame_pc (thisframe
)))
1446 /* These functions deal with saving and restoring register state
1447 around a function call in the inferior. They keep the stack
1448 double-word aligned; eventually, on an hp700, the stack will have
1449 to be aligned to a 64-byte boundary. */
1452 hppa_push_dummy_frame (void)
1454 CORE_ADDR sp
, pc
, pcspace
;
1455 register int regnum
;
1456 CORE_ADDR int_buffer
;
1459 pc
= hppa_target_read_pc (inferior_ptid
);
1460 int_buffer
= read_register (FLAGS_REGNUM
);
1461 if (int_buffer
& 0x2)
1463 const unsigned int sid
= (pc
>> 30) & 0x3;
1465 pcspace
= read_register (SR4_REGNUM
);
1467 pcspace
= read_register (SR4_REGNUM
+ 4 + sid
);
1470 pcspace
= read_register (PCSQ_HEAD_REGNUM
);
1472 /* Space for "arguments"; the RP goes in here. */
1473 sp
= read_register (SP_REGNUM
) + 48;
1474 int_buffer
= read_register (RP_REGNUM
) | 0x3;
1476 /* The 32bit and 64bit ABIs save the return pointer into different
1478 if (DEPRECATED_REGISTER_SIZE
== 8)
1479 write_memory (sp
- 16, (char *) &int_buffer
, DEPRECATED_REGISTER_SIZE
);
1481 write_memory (sp
- 20, (char *) &int_buffer
, DEPRECATED_REGISTER_SIZE
);
1483 int_buffer
= deprecated_read_fp ();
1484 write_memory (sp
, (char *) &int_buffer
, DEPRECATED_REGISTER_SIZE
);
1486 write_register (DEPRECATED_FP_REGNUM
, sp
);
1488 sp
+= 2 * DEPRECATED_REGISTER_SIZE
;
1490 for (regnum
= 1; regnum
< 32; regnum
++)
1491 if (regnum
!= RP_REGNUM
&& regnum
!= DEPRECATED_FP_REGNUM
)
1492 sp
= push_word (sp
, read_register (regnum
));
1494 /* This is not necessary for the 64bit ABI. In fact it is dangerous. */
1495 if (DEPRECATED_REGISTER_SIZE
!= 8)
1498 for (regnum
= FP0_REGNUM
; regnum
< NUM_REGS
; regnum
++)
1500 deprecated_read_register_bytes (REGISTER_BYTE (regnum
),
1501 (char *) &freg_buffer
, 8);
1502 sp
= push_bytes (sp
, (char *) &freg_buffer
, 8);
1504 sp
= push_word (sp
, read_register (IPSW_REGNUM
));
1505 sp
= push_word (sp
, read_register (SAR_REGNUM
));
1506 sp
= push_word (sp
, pc
);
1507 sp
= push_word (sp
, pcspace
);
1508 sp
= push_word (sp
, pc
+ 4);
1509 sp
= push_word (sp
, pcspace
);
1510 write_register (SP_REGNUM
, sp
);
1514 find_dummy_frame_regs (struct frame_info
*frame
,
1515 CORE_ADDR frame_saved_regs
[])
1517 CORE_ADDR fp
= get_frame_base (frame
);
1520 /* The 32bit and 64bit ABIs save RP into different locations. */
1521 if (DEPRECATED_REGISTER_SIZE
== 8)
1522 frame_saved_regs
[RP_REGNUM
] = (fp
- 16) & ~0x3;
1524 frame_saved_regs
[RP_REGNUM
] = (fp
- 20) & ~0x3;
1526 frame_saved_regs
[DEPRECATED_FP_REGNUM
] = fp
;
1528 frame_saved_regs
[1] = fp
+ (2 * DEPRECATED_REGISTER_SIZE
);
1530 for (fp
+= 3 * DEPRECATED_REGISTER_SIZE
, i
= 3; i
< 32; i
++)
1532 if (i
!= DEPRECATED_FP_REGNUM
)
1534 frame_saved_regs
[i
] = fp
;
1535 fp
+= DEPRECATED_REGISTER_SIZE
;
1539 /* This is not necessary or desirable for the 64bit ABI. */
1540 if (DEPRECATED_REGISTER_SIZE
!= 8)
1543 for (i
= FP0_REGNUM
; i
< NUM_REGS
; i
++, fp
+= 8)
1544 frame_saved_regs
[i
] = fp
;
1546 frame_saved_regs
[IPSW_REGNUM
] = fp
;
1547 frame_saved_regs
[SAR_REGNUM
] = fp
+ DEPRECATED_REGISTER_SIZE
;
1548 frame_saved_regs
[PCOQ_HEAD_REGNUM
] = fp
+ 2 * DEPRECATED_REGISTER_SIZE
;
1549 frame_saved_regs
[PCSQ_HEAD_REGNUM
] = fp
+ 3 * DEPRECATED_REGISTER_SIZE
;
1550 frame_saved_regs
[PCOQ_TAIL_REGNUM
] = fp
+ 4 * DEPRECATED_REGISTER_SIZE
;
1551 frame_saved_regs
[PCSQ_TAIL_REGNUM
] = fp
+ 5 * DEPRECATED_REGISTER_SIZE
;
1555 hppa_pop_frame (void)
1557 register struct frame_info
*frame
= get_current_frame ();
1558 register CORE_ADDR fp
, npc
, target_pc
;
1559 register int regnum
;
1563 fp
= get_frame_base (frame
);
1564 hppa_frame_init_saved_regs (frame
);
1565 fsr
= get_frame_saved_regs (frame
);
1567 #ifndef NO_PC_SPACE_QUEUE_RESTORE
1568 if (fsr
[IPSW_REGNUM
]) /* Restoring a call dummy frame */
1569 restore_pc_queue (fsr
);
1572 for (regnum
= 31; regnum
> 0; regnum
--)
1574 write_register (regnum
, read_memory_integer (fsr
[regnum
],
1575 DEPRECATED_REGISTER_SIZE
));
1577 for (regnum
= NUM_REGS
- 1; regnum
>= FP0_REGNUM
; regnum
--)
1580 read_memory (fsr
[regnum
], (char *) &freg_buffer
, 8);
1581 deprecated_write_register_bytes (REGISTER_BYTE (regnum
),
1582 (char *) &freg_buffer
, 8);
1585 if (fsr
[IPSW_REGNUM
])
1586 write_register (IPSW_REGNUM
,
1587 read_memory_integer (fsr
[IPSW_REGNUM
],
1588 DEPRECATED_REGISTER_SIZE
));
1590 if (fsr
[SAR_REGNUM
])
1591 write_register (SAR_REGNUM
,
1592 read_memory_integer (fsr
[SAR_REGNUM
],
1593 DEPRECATED_REGISTER_SIZE
));
1595 /* If the PC was explicitly saved, then just restore it. */
1596 if (fsr
[PCOQ_TAIL_REGNUM
])
1598 npc
= read_memory_integer (fsr
[PCOQ_TAIL_REGNUM
],
1599 DEPRECATED_REGISTER_SIZE
);
1600 write_register (PCOQ_TAIL_REGNUM
, npc
);
1602 /* Else use the value in %rp to set the new PC. */
1605 npc
= read_register (RP_REGNUM
);
1609 write_register (DEPRECATED_FP_REGNUM
, read_memory_integer (fp
, DEPRECATED_REGISTER_SIZE
));
1611 if (fsr
[IPSW_REGNUM
]) /* call dummy */
1612 write_register (SP_REGNUM
, fp
- 48);
1614 write_register (SP_REGNUM
, fp
);
1616 /* The PC we just restored may be inside a return trampoline. If so
1617 we want to restart the inferior and run it through the trampoline.
1619 Do this by setting a momentary breakpoint at the location the
1620 trampoline returns to.
1622 Don't skip through the trampoline if we're popping a dummy frame. */
1623 target_pc
= SKIP_TRAMPOLINE_CODE (npc
& ~0x3) & ~0x3;
1624 if (target_pc
&& !fsr
[IPSW_REGNUM
])
1626 struct symtab_and_line sal
;
1627 struct breakpoint
*breakpoint
;
1628 struct cleanup
*old_chain
;
1630 /* Set up our breakpoint. Set it to be silent as the MI code
1631 for "return_command" will print the frame we returned to. */
1632 sal
= find_pc_line (target_pc
, 0);
1634 breakpoint
= set_momentary_breakpoint (sal
, null_frame_id
, bp_finish
);
1635 breakpoint
->silent
= 1;
1637 /* So we can clean things up. */
1638 old_chain
= make_cleanup_delete_breakpoint (breakpoint
);
1640 /* Start up the inferior. */
1641 clear_proceed_status ();
1642 proceed_to_finish
= 1;
1643 proceed ((CORE_ADDR
) -1, TARGET_SIGNAL_DEFAULT
, 0);
1645 /* Perform our cleanups. */
1646 do_cleanups (old_chain
);
1648 flush_cached_frames ();
1651 /* After returning to a dummy on the stack, restore the instruction
1652 queue space registers. */
1655 restore_pc_queue (CORE_ADDR
*fsr
)
1657 CORE_ADDR pc
= read_pc ();
1658 CORE_ADDR new_pc
= read_memory_integer (fsr
[PCOQ_HEAD_REGNUM
],
1659 TARGET_PTR_BIT
/ 8);
1660 struct target_waitstatus w
;
1663 /* Advance past break instruction in the call dummy. */
1664 write_register (PCOQ_HEAD_REGNUM
, pc
+ 4);
1665 write_register (PCOQ_TAIL_REGNUM
, pc
+ 8);
1667 /* HPUX doesn't let us set the space registers or the space
1668 registers of the PC queue through ptrace. Boo, hiss.
1669 Conveniently, the call dummy has this sequence of instructions
1674 So, load up the registers and single step until we are in the
1677 write_register (21, read_memory_integer (fsr
[PCSQ_HEAD_REGNUM
],
1678 DEPRECATED_REGISTER_SIZE
));
1679 write_register (22, new_pc
);
1681 for (insn_count
= 0; insn_count
< 3; insn_count
++)
1683 /* FIXME: What if the inferior gets a signal right now? Want to
1684 merge this into wait_for_inferior (as a special kind of
1685 watchpoint? By setting a breakpoint at the end? Is there
1686 any other choice? Is there *any* way to do this stuff with
1687 ptrace() or some equivalent?). */
1689 target_wait (inferior_ptid
, &w
);
1691 if (w
.kind
== TARGET_WAITKIND_SIGNALLED
)
1693 stop_signal
= w
.value
.sig
;
1694 terminal_ours_for_output ();
1695 printf_unfiltered ("\nProgram terminated with signal %s, %s.\n",
1696 target_signal_to_name (stop_signal
),
1697 target_signal_to_string (stop_signal
));
1698 gdb_flush (gdb_stdout
);
1702 target_terminal_ours ();
1703 target_fetch_registers (-1);
1708 #ifdef PA20W_CALLING_CONVENTIONS
1710 /* This function pushes a stack frame with arguments as part of the
1711 inferior function calling mechanism.
1713 This is the version for the PA64, in which later arguments appear
1714 at higher addresses. (The stack always grows towards higher
1717 We simply allocate the appropriate amount of stack space and put
1718 arguments into their proper slots. The call dummy code will copy
1719 arguments into registers as needed by the ABI.
1721 This ABI also requires that the caller provide an argument pointer
1722 to the callee, so we do that too. */
1725 hppa_push_arguments (int nargs
, struct value
**args
, CORE_ADDR sp
,
1726 int struct_return
, CORE_ADDR struct_addr
)
1728 /* array of arguments' offsets */
1729 int *offset
= (int *) alloca (nargs
* sizeof (int));
1731 /* array of arguments' lengths: real lengths in bytes, not aligned to
1733 int *lengths
= (int *) alloca (nargs
* sizeof (int));
1735 /* The value of SP as it was passed into this function after
1737 CORE_ADDR orig_sp
= STACK_ALIGN (sp
);
1739 /* The number of stack bytes occupied by the current argument. */
1742 /* The total number of bytes reserved for the arguments. */
1743 int cum_bytes_reserved
= 0;
1745 /* Similarly, but aligned. */
1746 int cum_bytes_aligned
= 0;
1749 /* Iterate over each argument provided by the user. */
1750 for (i
= 0; i
< nargs
; i
++)
1752 struct type
*arg_type
= VALUE_TYPE (args
[i
]);
1754 /* Integral scalar values smaller than a register are padded on
1755 the left. We do this by promoting them to full-width,
1756 although the ABI says to pad them with garbage. */
1757 if (is_integral_type (arg_type
)
1758 && TYPE_LENGTH (arg_type
) < DEPRECATED_REGISTER_SIZE
)
1760 args
[i
] = value_cast ((TYPE_UNSIGNED (arg_type
)
1761 ? builtin_type_unsigned_long
1762 : builtin_type_long
),
1764 arg_type
= VALUE_TYPE (args
[i
]);
1767 lengths
[i
] = TYPE_LENGTH (arg_type
);
1769 /* Align the size of the argument to the word size for this
1771 bytes_reserved
= (lengths
[i
] + DEPRECATED_REGISTER_SIZE
- 1) & -DEPRECATED_REGISTER_SIZE
;
1773 offset
[i
] = cum_bytes_reserved
;
1775 /* Aggregates larger than eight bytes (the only types larger
1776 than eight bytes we have) are aligned on a 16-byte boundary,
1777 possibly padded on the right with garbage. This may leave an
1778 empty word on the stack, and thus an unused register, as per
1780 if (bytes_reserved
> 8)
1782 /* Round up the offset to a multiple of two slots. */
1783 int new_offset
= ((offset
[i
] + 2*DEPRECATED_REGISTER_SIZE
-1)
1784 & -(2*DEPRECATED_REGISTER_SIZE
));
1786 /* Note the space we've wasted, if any. */
1787 bytes_reserved
+= new_offset
- offset
[i
];
1788 offset
[i
] = new_offset
;
1791 cum_bytes_reserved
+= bytes_reserved
;
1794 /* CUM_BYTES_RESERVED already accounts for all the arguments
1795 passed by the user. However, the ABIs mandate minimum stack space
1796 allocations for outgoing arguments.
1798 The ABIs also mandate minimum stack alignments which we must
1800 cum_bytes_aligned
= STACK_ALIGN (cum_bytes_reserved
);
1801 sp
+= max (cum_bytes_aligned
, REG_PARM_STACK_SPACE
);
1803 /* Now write each of the args at the proper offset down the stack. */
1804 for (i
= 0; i
< nargs
; i
++)
1805 write_memory (orig_sp
+ offset
[i
], VALUE_CONTENTS (args
[i
]), lengths
[i
]);
1807 /* If a structure has to be returned, set up register 28 to hold its
1810 write_register (28, struct_addr
);
1812 /* For the PA64 we must pass a pointer to the outgoing argument list.
1813 The ABI mandates that the pointer should point to the first byte of
1814 storage beyond the register flushback area.
1816 However, the call dummy expects the outgoing argument pointer to
1817 be passed in register %r4. */
1818 write_register (4, orig_sp
+ REG_PARM_STACK_SPACE
);
1820 /* ?!? This needs further work. We need to set up the global data
1821 pointer for this procedure. This assumes the same global pointer
1822 for every procedure. The call dummy expects the dp value to
1823 be passed in register %r6. */
1824 write_register (6, read_register (27));
1826 /* The stack will have 64 bytes of additional space for a frame marker. */
1832 /* This function pushes a stack frame with arguments as part of the
1833 inferior function calling mechanism.
1835 This is the version of the function for the 32-bit PA machines, in
1836 which later arguments appear at lower addresses. (The stack always
1837 grows towards higher addresses.)
1839 We simply allocate the appropriate amount of stack space and put
1840 arguments into their proper slots. The call dummy code will copy
1841 arguments into registers as needed by the ABI. */
1844 hppa_push_arguments (int nargs
, struct value
**args
, CORE_ADDR sp
,
1845 int struct_return
, CORE_ADDR struct_addr
)
1847 /* array of arguments' offsets */
1848 int *offset
= (int *) alloca (nargs
* sizeof (int));
1850 /* array of arguments' lengths: real lengths in bytes, not aligned to
1852 int *lengths
= (int *) alloca (nargs
* sizeof (int));
1854 /* The number of stack bytes occupied by the current argument. */
1857 /* The total number of bytes reserved for the arguments. */
1858 int cum_bytes_reserved
= 0;
1860 /* Similarly, but aligned. */
1861 int cum_bytes_aligned
= 0;
1864 /* Iterate over each argument provided by the user. */
1865 for (i
= 0; i
< nargs
; i
++)
1867 lengths
[i
] = TYPE_LENGTH (VALUE_TYPE (args
[i
]));
1869 /* Align the size of the argument to the word size for this
1871 bytes_reserved
= (lengths
[i
] + DEPRECATED_REGISTER_SIZE
- 1) & -DEPRECATED_REGISTER_SIZE
;
1873 offset
[i
] = (cum_bytes_reserved
1874 + (lengths
[i
] > 4 ? bytes_reserved
: lengths
[i
]));
1876 /* If the argument is a double word argument, then it needs to be
1877 double word aligned. */
1878 if ((bytes_reserved
== 2 * DEPRECATED_REGISTER_SIZE
)
1879 && (offset
[i
] % 2 * DEPRECATED_REGISTER_SIZE
))
1882 /* BYTES_RESERVED is already aligned to the word, so we put
1883 the argument at one word more down the stack.
1885 This will leave one empty word on the stack, and one unused
1886 register as mandated by the ABI. */
1887 new_offset
= ((offset
[i
] + 2 * DEPRECATED_REGISTER_SIZE
- 1)
1888 & -(2 * DEPRECATED_REGISTER_SIZE
));
1890 if ((new_offset
- offset
[i
]) >= 2 * DEPRECATED_REGISTER_SIZE
)
1892 bytes_reserved
+= DEPRECATED_REGISTER_SIZE
;
1893 offset
[i
] += DEPRECATED_REGISTER_SIZE
;
1897 cum_bytes_reserved
+= bytes_reserved
;
1901 /* CUM_BYTES_RESERVED already accounts for all the arguments passed
1902 by the user. However, the ABI mandates minimum stack space
1903 allocations for outgoing arguments.
1905 The ABI also mandates minimum stack alignments which we must
1907 cum_bytes_aligned
= STACK_ALIGN (cum_bytes_reserved
);
1908 sp
+= max (cum_bytes_aligned
, REG_PARM_STACK_SPACE
);
1910 /* Now write each of the args at the proper offset down the stack.
1911 ?!? We need to promote values to a full register instead of skipping
1912 words in the stack. */
1913 for (i
= 0; i
< nargs
; i
++)
1914 write_memory (sp
- offset
[i
], VALUE_CONTENTS (args
[i
]), lengths
[i
]);
1916 /* If a structure has to be returned, set up register 28 to hold its
1919 write_register (28, struct_addr
);
1921 /* The stack will have 32 bytes of additional space for a frame marker. */
1927 /* elz: this function returns a value which is built looking at the given address.
1928 It is called from call_function_by_hand, in case we need to return a
1929 value which is larger than 64 bits, and it is stored in the stack rather than
1930 in the registers r28 and r29 or fr4.
1931 This function does the same stuff as value_being_returned in values.c, but
1932 gets the value from the stack rather than from the buffer where all the
1933 registers were saved when the function called completed. */
1935 hppa_value_returned_from_stack (register struct type
*valtype
, CORE_ADDR addr
)
1937 register struct value
*val
;
1939 val
= allocate_value (valtype
);
1940 CHECK_TYPEDEF (valtype
);
1941 target_read_memory (addr
, VALUE_CONTENTS_RAW (val
), TYPE_LENGTH (valtype
));
1948 /* elz: Used to lookup a symbol in the shared libraries.
1949 This function calls shl_findsym, indirectly through a
1950 call to __d_shl_get. __d_shl_get is in end.c, which is always
1951 linked in by the hp compilers/linkers.
1952 The call to shl_findsym cannot be made directly because it needs
1953 to be active in target address space.
1954 inputs: - minimal symbol pointer for the function we want to look up
1955 - address in target space of the descriptor for the library
1956 where we want to look the symbol up.
1957 This address is retrieved using the
1958 som_solib_get_solib_by_pc function (somsolib.c).
1959 output: - real address in the library of the function.
1960 note: the handle can be null, in which case shl_findsym will look for
1961 the symbol in all the loaded shared libraries.
1962 files to look at if you need reference on this stuff:
1963 dld.c, dld_shl_findsym.c
1965 man entry for shl_findsym */
1968 find_stub_with_shl_get (struct minimal_symbol
*function
, CORE_ADDR handle
)
1970 struct symbol
*get_sym
, *symbol2
;
1971 struct minimal_symbol
*buff_minsym
, *msymbol
;
1973 struct value
**args
;
1974 struct value
*funcval
;
1977 int x
, namelen
, err_value
, tmp
= -1;
1978 CORE_ADDR endo_buff_addr
, value_return_addr
, errno_return_addr
;
1979 CORE_ADDR stub_addr
;
1982 args
= alloca (sizeof (struct value
*) * 8); /* 6 for the arguments and one null one??? */
1983 funcval
= find_function_in_inferior ("__d_shl_get");
1984 get_sym
= lookup_symbol ("__d_shl_get", NULL
, VAR_DOMAIN
, NULL
, NULL
);
1985 buff_minsym
= lookup_minimal_symbol ("__buffer", NULL
, NULL
);
1986 msymbol
= lookup_minimal_symbol ("__shldp", NULL
, NULL
);
1987 symbol2
= lookup_symbol ("__shldp", NULL
, VAR_DOMAIN
, NULL
, NULL
);
1988 endo_buff_addr
= SYMBOL_VALUE_ADDRESS (buff_minsym
);
1989 namelen
= strlen (DEPRECATED_SYMBOL_NAME (function
));
1990 value_return_addr
= endo_buff_addr
+ namelen
;
1991 ftype
= check_typedef (SYMBOL_TYPE (get_sym
));
1994 if ((x
= value_return_addr
% 64) != 0)
1995 value_return_addr
= value_return_addr
+ 64 - x
;
1997 errno_return_addr
= value_return_addr
+ 64;
2000 /* set up stuff needed by __d_shl_get in buffer in end.o */
2002 target_write_memory (endo_buff_addr
, DEPRECATED_SYMBOL_NAME (function
), namelen
);
2004 target_write_memory (value_return_addr
, (char *) &tmp
, 4);
2006 target_write_memory (errno_return_addr
, (char *) &tmp
, 4);
2008 target_write_memory (SYMBOL_VALUE_ADDRESS (msymbol
),
2009 (char *) &handle
, 4);
2011 /* now prepare the arguments for the call */
2013 args
[0] = value_from_longest (TYPE_FIELD_TYPE (ftype
, 0), 12);
2014 args
[1] = value_from_pointer (TYPE_FIELD_TYPE (ftype
, 1), SYMBOL_VALUE_ADDRESS (msymbol
));
2015 args
[2] = value_from_pointer (TYPE_FIELD_TYPE (ftype
, 2), endo_buff_addr
);
2016 args
[3] = value_from_longest (TYPE_FIELD_TYPE (ftype
, 3), TYPE_PROCEDURE
);
2017 args
[4] = value_from_pointer (TYPE_FIELD_TYPE (ftype
, 4), value_return_addr
);
2018 args
[5] = value_from_pointer (TYPE_FIELD_TYPE (ftype
, 5), errno_return_addr
);
2020 /* now call the function */
2022 val
= call_function_by_hand (funcval
, 6, args
);
2024 /* now get the results */
2026 target_read_memory (errno_return_addr
, (char *) &err_value
, sizeof (err_value
));
2028 target_read_memory (value_return_addr
, (char *) &stub_addr
, sizeof (stub_addr
));
2030 error ("call to __d_shl_get failed, error code is %d", err_value
);
2035 /* Cover routine for find_stub_with_shl_get to pass to catch_errors */
2037 cover_find_stub_with_shl_get (void *args_untyped
)
2039 args_for_find_stub
*args
= args_untyped
;
2040 args
->return_val
= find_stub_with_shl_get (args
->msym
, args
->solib_handle
);
2044 /* Insert the specified number of args and function address
2045 into a call sequence of the above form stored at DUMMYNAME.
2047 On the hppa we need to call the stack dummy through $$dyncall.
2048 Therefore our version of DEPRECATED_FIX_CALL_DUMMY takes an extra
2049 argument, real_pc, which is the location where gdb should start up
2050 the inferior to do the function call.
2052 This has to work across several versions of hpux, bsd, osf1. It has to
2053 work regardless of what compiler was used to build the inferior program.
2054 It should work regardless of whether or not end.o is available. It has
2055 to work even if gdb can not call into the dynamic loader in the inferior
2056 to query it for symbol names and addresses.
2058 Yes, all those cases should work. Luckily code exists to handle most
2059 of them. The complexity is in selecting exactly what scheme should
2060 be used to perform the inferior call.
2062 At the current time this routine is known not to handle cases where
2063 the program was linked with HP's compiler without including end.o.
2065 Please contact Jeff Law (law@cygnus.com) before changing this code. */
2068 hppa_fix_call_dummy (char *dummy
, CORE_ADDR pc
, CORE_ADDR fun
, int nargs
,
2069 struct value
**args
, struct type
*type
, int gcc_p
)
2071 CORE_ADDR dyncall_addr
;
2072 struct minimal_symbol
*msymbol
;
2073 struct minimal_symbol
*trampoline
;
2074 int flags
= read_register (FLAGS_REGNUM
);
2075 struct unwind_table_entry
*u
= NULL
;
2076 CORE_ADDR new_stub
= 0;
2077 CORE_ADDR solib_handle
= 0;
2079 /* Nonzero if we will use GCC's PLT call routine. This routine must be
2080 passed an import stub, not a PLABEL. It is also necessary to set %r19
2081 (the PIC register) before performing the call.
2083 If zero, then we are using __d_plt_call (HP's PLT call routine) or we
2084 are calling the target directly. When using __d_plt_call we want to
2085 use a PLABEL instead of an import stub. */
2086 int using_gcc_plt_call
= 1;
2088 #ifdef GDB_TARGET_IS_HPPA_20W
2089 /* We currently use completely different code for the PA2.0W inferior
2090 function call sequences. This needs to be cleaned up. */
2092 CORE_ADDR pcsqh
, pcsqt
, pcoqh
, pcoqt
, sr5
;
2093 struct target_waitstatus w
;
2097 struct objfile
*objfile
;
2099 /* We can not modify the PC space queues directly, so we start
2100 up the inferior and execute a couple instructions to set the
2101 space queues so that they point to the call dummy in the stack. */
2102 pcsqh
= read_register (PCSQ_HEAD_REGNUM
);
2103 sr5
= read_register (SR5_REGNUM
);
2106 pcoqh
= read_register (PCOQ_HEAD_REGNUM
);
2107 pcoqt
= read_register (PCOQ_TAIL_REGNUM
);
2108 if (target_read_memory (pcoqh
, buf
, 4) != 0)
2109 error ("Couldn't modify space queue\n");
2110 inst1
= extract_unsigned_integer (buf
, 4);
2112 if (target_read_memory (pcoqt
, buf
, 4) != 0)
2113 error ("Couldn't modify space queue\n");
2114 inst2
= extract_unsigned_integer (buf
, 4);
2117 *((int *) buf
) = 0xe820d000;
2118 if (target_write_memory (pcoqh
, buf
, 4) != 0)
2119 error ("Couldn't modify space queue\n");
2122 *((int *) buf
) = 0x08000240;
2123 if (target_write_memory (pcoqt
, buf
, 4) != 0)
2125 *((int *) buf
) = inst1
;
2126 target_write_memory (pcoqh
, buf
, 4);
2127 error ("Couldn't modify space queue\n");
2130 write_register (1, pc
);
2132 /* Single step twice, the BVE instruction will set the space queue
2133 such that it points to the PC value written immediately above
2134 (ie the call dummy). */
2136 target_wait (inferior_ptid
, &w
);
2138 target_wait (inferior_ptid
, &w
);
2140 /* Restore the two instructions at the old PC locations. */
2141 *((int *) buf
) = inst1
;
2142 target_write_memory (pcoqh
, buf
, 4);
2143 *((int *) buf
) = inst2
;
2144 target_write_memory (pcoqt
, buf
, 4);
2147 /* The call dummy wants the ultimate destination address initially
2149 write_register (5, fun
);
2151 /* We need to see if this objfile has a different DP value than our
2152 own (it could be a shared library for example). */
2153 ALL_OBJFILES (objfile
)
2155 struct obj_section
*s
;
2156 obj_private_data_t
*obj_private
;
2158 /* See if FUN is in any section within this shared library. */
2159 for (s
= objfile
->sections
; s
< objfile
->sections_end
; s
++)
2160 if (s
->addr
<= fun
&& fun
< s
->endaddr
)
2163 if (s
>= objfile
->sections_end
)
2166 obj_private
= (obj_private_data_t
*) objfile
->obj_private
;
2168 /* The DP value may be different for each objfile. But within an
2169 objfile each function uses the same dp value. Thus we do not need
2170 to grope around the opd section looking for dp values.
2172 ?!? This is not strictly correct since we may be in a shared library
2173 and want to call back into the main program. To make that case
2174 work correctly we need to set obj_private->dp for the main program's
2175 objfile, then remove this conditional. */
2176 if (obj_private
->dp
)
2177 write_register (27, obj_private
->dp
);
2184 #ifndef GDB_TARGET_IS_HPPA_20W
2185 /* Prefer __gcc_plt_call over the HP supplied routine because
2186 __gcc_plt_call works for any number of arguments. */
2188 if (lookup_minimal_symbol ("__gcc_plt_call", NULL
, NULL
) == NULL
)
2189 using_gcc_plt_call
= 0;
2191 msymbol
= lookup_minimal_symbol ("$$dyncall", NULL
, NULL
);
2192 if (msymbol
== NULL
)
2193 error ("Can't find an address for $$dyncall trampoline");
2195 dyncall_addr
= SYMBOL_VALUE_ADDRESS (msymbol
);
2197 /* FUN could be a procedure label, in which case we have to get
2198 its real address and the value of its GOT/DP if we plan to
2199 call the routine via gcc_plt_call. */
2200 if ((fun
& 0x2) && using_gcc_plt_call
)
2202 /* Get the GOT/DP value for the target function. It's
2203 at *(fun+4). Note the call dummy is *NOT* allowed to
2204 trash %r19 before calling the target function. */
2205 write_register (19, read_memory_integer ((fun
& ~0x3) + 4,
2206 DEPRECATED_REGISTER_SIZE
));
2208 /* Now get the real address for the function we are calling, it's
2210 fun
= (CORE_ADDR
) read_memory_integer (fun
& ~0x3,
2211 TARGET_PTR_BIT
/ 8);
2216 #ifndef GDB_TARGET_IS_PA_ELF
2217 /* FUN could be an export stub, the real address of a function, or
2218 a PLABEL. When using gcc's PLT call routine we must call an import
2219 stub rather than the export stub or real function for lazy binding
2222 If we are using the gcc PLT call routine, then we need to
2223 get the import stub for the target function. */
2224 if (using_gcc_plt_call
&& som_solib_get_got_by_pc (fun
))
2226 struct objfile
*objfile
;
2227 struct minimal_symbol
*funsymbol
, *stub_symbol
;
2228 CORE_ADDR newfun
= 0;
2230 funsymbol
= lookup_minimal_symbol_by_pc (fun
);
2232 error ("Unable to find minimal symbol for target function.\n");
2234 /* Search all the object files for an import symbol with the
2236 ALL_OBJFILES (objfile
)
2239 = lookup_minimal_symbol_solib_trampoline
2240 (DEPRECATED_SYMBOL_NAME (funsymbol
), NULL
, objfile
);
2243 stub_symbol
= lookup_minimal_symbol (DEPRECATED_SYMBOL_NAME (funsymbol
),
2246 /* Found a symbol with the right name. */
2249 struct unwind_table_entry
*u
;
2250 /* It must be a shared library trampoline. */
2251 if (MSYMBOL_TYPE (stub_symbol
) != mst_solib_trampoline
)
2254 /* It must also be an import stub. */
2255 u
= find_unwind_entry (SYMBOL_VALUE (stub_symbol
));
2257 || (u
->stub_unwind
.stub_type
!= IMPORT
2258 #ifdef GDB_NATIVE_HPUX_11
2259 /* Sigh. The hpux 10.20 dynamic linker will blow
2260 chunks if we perform a call to an unbound function
2261 via the IMPORT_SHLIB stub. The hpux 11.00 dynamic
2262 linker will blow chunks if we do not call the
2263 unbound function via the IMPORT_SHLIB stub.
2265 We currently have no way to select bevahior on just
2266 the target. However, we only support HPUX/SOM in
2267 native mode. So we conditinalize on a native
2268 #ifdef. Ugly. Ugly. Ugly */
2269 && u
->stub_unwind
.stub_type
!= IMPORT_SHLIB
2274 /* OK. Looks like the correct import stub. */
2275 newfun
= SYMBOL_VALUE (stub_symbol
);
2278 /* If we found an IMPORT stub, then we want to stop
2279 searching now. If we found an IMPORT_SHLIB, we want
2280 to continue the search in the hopes that we will find
2282 if (u
->stub_unwind
.stub_type
== IMPORT
)
2287 /* Ouch. We did not find an import stub. Make an attempt to
2288 do the right thing instead of just croaking. Most of the
2289 time this will actually work. */
2291 write_register (19, som_solib_get_got_by_pc (fun
));
2293 u
= find_unwind_entry (fun
);
2295 && (u
->stub_unwind
.stub_type
== IMPORT
2296 || u
->stub_unwind
.stub_type
== IMPORT_SHLIB
))
2297 trampoline
= lookup_minimal_symbol ("__gcc_plt_call", NULL
, NULL
);
2299 /* If we found the import stub in the shared library, then we have
2300 to set %r19 before we call the stub. */
2301 if (u
&& u
->stub_unwind
.stub_type
== IMPORT_SHLIB
)
2302 write_register (19, som_solib_get_got_by_pc (fun
));
2307 /* If we are calling into another load module then have sr4export call the
2308 magic __d_plt_call routine which is linked in from end.o.
2310 You can't use _sr4export to make the call as the value in sp-24 will get
2311 fried and you end up returning to the wrong location. You can't call the
2312 target as the code to bind the PLT entry to a function can't return to a
2315 Also, query the dynamic linker in the inferior to provide a suitable
2316 PLABEL for the target function. */
2317 if (!using_gcc_plt_call
)
2321 /* Get a handle for the shared library containing FUN. Given the
2322 handle we can query the shared library for a PLABEL. */
2323 solib_handle
= som_solib_get_solib_by_pc (fun
);
2327 struct minimal_symbol
*fmsymbol
= lookup_minimal_symbol_by_pc (fun
);
2329 trampoline
= lookup_minimal_symbol ("__d_plt_call", NULL
, NULL
);
2331 if (trampoline
== NULL
)
2333 error ("Can't find an address for __d_plt_call or __gcc_plt_call trampoline\nSuggest linking executable with -g or compiling with gcc.");
2336 /* This is where sr4export will jump to. */
2337 new_fun
= SYMBOL_VALUE_ADDRESS (trampoline
);
2339 /* If the function is in a shared library, then call __d_shl_get to
2340 get a PLABEL for the target function. */
2341 new_stub
= find_stub_with_shl_get (fmsymbol
, solib_handle
);
2344 error ("Can't find an import stub for %s", DEPRECATED_SYMBOL_NAME (fmsymbol
));
2346 /* We have to store the address of the stub in __shlib_funcptr. */
2347 msymbol
= lookup_minimal_symbol ("__shlib_funcptr", NULL
,
2348 (struct objfile
*) NULL
);
2350 if (msymbol
== NULL
)
2351 error ("Can't find an address for __shlib_funcptr");
2352 target_write_memory (SYMBOL_VALUE_ADDRESS (msymbol
),
2353 (char *) &new_stub
, 4);
2355 /* We want sr4export to call __d_plt_call, so we claim it is
2356 the final target. Clear trampoline. */
2362 /* Store upper 21 bits of function address into ldil. fun will either be
2363 the final target (most cases) or __d_plt_call when calling into a shared
2364 library and __gcc_plt_call is not available. */
2365 store_unsigned_integer
2366 (&dummy
[FUNC_LDIL_OFFSET
],
2368 deposit_21 (fun
>> 11,
2369 extract_unsigned_integer (&dummy
[FUNC_LDIL_OFFSET
],
2370 INSTRUCTION_SIZE
)));
2372 /* Store lower 11 bits of function address into ldo */
2373 store_unsigned_integer
2374 (&dummy
[FUNC_LDO_OFFSET
],
2376 deposit_14 (fun
& MASK_11
,
2377 extract_unsigned_integer (&dummy
[FUNC_LDO_OFFSET
],
2378 INSTRUCTION_SIZE
)));
2379 #ifdef SR4EXPORT_LDIL_OFFSET
2382 CORE_ADDR trampoline_addr
;
2384 /* We may still need sr4export's address too. */
2386 if (trampoline
== NULL
)
2388 msymbol
= lookup_minimal_symbol ("_sr4export", NULL
, NULL
);
2389 if (msymbol
== NULL
)
2390 error ("Can't find an address for _sr4export trampoline");
2392 trampoline_addr
= SYMBOL_VALUE_ADDRESS (msymbol
);
2395 trampoline_addr
= SYMBOL_VALUE_ADDRESS (trampoline
);
2398 /* Store upper 21 bits of trampoline's address into ldil */
2399 store_unsigned_integer
2400 (&dummy
[SR4EXPORT_LDIL_OFFSET
],
2402 deposit_21 (trampoline_addr
>> 11,
2403 extract_unsigned_integer (&dummy
[SR4EXPORT_LDIL_OFFSET
],
2404 INSTRUCTION_SIZE
)));
2406 /* Store lower 11 bits of trampoline's address into ldo */
2407 store_unsigned_integer
2408 (&dummy
[SR4EXPORT_LDO_OFFSET
],
2410 deposit_14 (trampoline_addr
& MASK_11
,
2411 extract_unsigned_integer (&dummy
[SR4EXPORT_LDO_OFFSET
],
2412 INSTRUCTION_SIZE
)));
2416 write_register (22, pc
);
2418 /* If we are in a syscall, then we should call the stack dummy
2419 directly. $$dyncall is not needed as the kernel sets up the
2420 space id registers properly based on the value in %r31. In
2421 fact calling $$dyncall will not work because the value in %r22
2422 will be clobbered on the syscall exit path.
2424 Similarly if the current PC is in a shared library. Note however,
2425 this scheme won't work if the shared library isn't mapped into
2426 the same space as the stack. */
2429 #ifndef GDB_TARGET_IS_PA_ELF
2430 else if (som_solib_get_got_by_pc (hppa_target_read_pc (inferior_ptid
)))
2434 return dyncall_addr
;
2438 /* If the pid is in a syscall, then the FP register is not readable.
2439 We'll return zero in that case, rather than attempting to read it
2440 and cause a warning. */
2443 hppa_read_fp (int pid
)
2445 int flags
= read_register (FLAGS_REGNUM
);
2449 return (CORE_ADDR
) 0;
2452 /* This is the only site that may directly read_register () the FP
2453 register. All others must use deprecated_read_fp (). */
2454 return read_register (DEPRECATED_FP_REGNUM
);
2458 hppa_target_read_fp (void)
2460 return hppa_read_fp (PIDGET (inferior_ptid
));
2463 /* Get the PC from %r31 if currently in a syscall. Also mask out privilege
2467 hppa_target_read_pc (ptid_t ptid
)
2469 int flags
= read_register_pid (FLAGS_REGNUM
, ptid
);
2471 /* The following test does not belong here. It is OS-specific, and belongs
2473 /* Test SS_INSYSCALL */
2475 return read_register_pid (31, ptid
) & ~0x3;
2477 return read_register_pid (PC_REGNUM
, ptid
) & ~0x3;
2480 /* Write out the PC. If currently in a syscall, then also write the new
2481 PC value into %r31. */
2484 hppa_target_write_pc (CORE_ADDR v
, ptid_t ptid
)
2486 int flags
= read_register_pid (FLAGS_REGNUM
, ptid
);
2488 /* The following test does not belong here. It is OS-specific, and belongs
2490 /* If in a syscall, then set %r31. Also make sure to get the
2491 privilege bits set correctly. */
2492 /* Test SS_INSYSCALL */
2494 write_register_pid (31, v
| 0x3, ptid
);
2496 write_register_pid (PC_REGNUM
, v
, ptid
);
2497 write_register_pid (NPC_REGNUM
, v
+ 4, ptid
);
2500 /* return the alignment of a type in bytes. Structures have the maximum
2501 alignment required by their fields. */
2504 hppa_alignof (struct type
*type
)
2506 int max_align
, align
, i
;
2507 CHECK_TYPEDEF (type
);
2508 switch (TYPE_CODE (type
))
2513 return TYPE_LENGTH (type
);
2514 case TYPE_CODE_ARRAY
:
2515 return hppa_alignof (TYPE_FIELD_TYPE (type
, 0));
2516 case TYPE_CODE_STRUCT
:
2517 case TYPE_CODE_UNION
:
2519 for (i
= 0; i
< TYPE_NFIELDS (type
); i
++)
2521 /* Bit fields have no real alignment. */
2522 /* if (!TYPE_FIELD_BITPOS (type, i)) */
2523 if (!TYPE_FIELD_BITSIZE (type
, i
)) /* elz: this should be bitsize */
2525 align
= hppa_alignof (TYPE_FIELD_TYPE (type
, i
));
2526 max_align
= max (max_align
, align
);
2535 /* Print the register regnum, or all registers if regnum is -1 */
2538 pa_do_registers_info (int regnum
, int fpregs
)
2540 char raw_regs
[REGISTER_BYTES
];
2543 /* Make a copy of gdb's save area (may cause actual
2544 reads from the target). */
2545 for (i
= 0; i
< NUM_REGS
; i
++)
2546 frame_register_read (deprecated_selected_frame
, i
, raw_regs
+ REGISTER_BYTE (i
));
2549 pa_print_registers (raw_regs
, regnum
, fpregs
);
2550 else if (regnum
< FP4_REGNUM
)
2554 /* Why is the value not passed through "extract_signed_integer"
2555 as in "pa_print_registers" below? */
2556 pa_register_look_aside (raw_regs
, regnum
, ®_val
[0]);
2560 printf_unfiltered ("%s %lx\n", REGISTER_NAME (regnum
), reg_val
[1]);
2564 /* Fancy % formats to prevent leading zeros. */
2565 if (reg_val
[0] == 0)
2566 printf_unfiltered ("%s %lx\n", REGISTER_NAME (regnum
), reg_val
[1]);
2568 printf_unfiltered ("%s %lx%8.8lx\n", REGISTER_NAME (regnum
),
2569 reg_val
[0], reg_val
[1]);
2573 /* Note that real floating point values only start at
2574 FP4_REGNUM. FP0 and up are just status and error
2575 registers, which have integral (bit) values. */
2576 pa_print_fp_reg (regnum
);
2579 /********** new function ********************/
2581 pa_do_strcat_registers_info (int regnum
, int fpregs
, struct ui_file
*stream
,
2582 enum precision_type precision
)
2584 char raw_regs
[REGISTER_BYTES
];
2587 /* Make a copy of gdb's save area (may cause actual
2588 reads from the target). */
2589 for (i
= 0; i
< NUM_REGS
; i
++)
2590 frame_register_read (deprecated_selected_frame
, i
, raw_regs
+ REGISTER_BYTE (i
));
2593 pa_strcat_registers (raw_regs
, regnum
, fpregs
, stream
);
2595 else if (regnum
< FP4_REGNUM
)
2599 /* Why is the value not passed through "extract_signed_integer"
2600 as in "pa_print_registers" below? */
2601 pa_register_look_aside (raw_regs
, regnum
, ®_val
[0]);
2605 fprintf_unfiltered (stream
, "%s %lx", REGISTER_NAME (regnum
), reg_val
[1]);
2609 /* Fancy % formats to prevent leading zeros. */
2610 if (reg_val
[0] == 0)
2611 fprintf_unfiltered (stream
, "%s %lx", REGISTER_NAME (regnum
),
2614 fprintf_unfiltered (stream
, "%s %lx%8.8lx", REGISTER_NAME (regnum
),
2615 reg_val
[0], reg_val
[1]);
2619 /* Note that real floating point values only start at
2620 FP4_REGNUM. FP0 and up are just status and error
2621 registers, which have integral (bit) values. */
2622 pa_strcat_fp_reg (regnum
, stream
, precision
);
2625 /* If this is a PA2.0 machine, fetch the real 64-bit register
2626 value. Otherwise use the info from gdb's saved register area.
2628 Note that reg_val is really expected to be an array of longs,
2629 with two elements. */
2631 pa_register_look_aside (char *raw_regs
, int regnum
, long *raw_val
)
2633 static int know_which
= 0; /* False */
2636 unsigned int offset
;
2641 char buf
[MAX_REGISTER_SIZE
];
2646 if (CPU_PA_RISC2_0
== sysconf (_SC_CPU_VERSION
))
2651 know_which
= 1; /* True */
2659 raw_val
[1] = *(long *) (raw_regs
+ REGISTER_BYTE (regnum
));
2663 /* Code below copied from hppah-nat.c, with fixes for wide
2664 registers, using different area of save_state, etc. */
2665 if (regnum
== FLAGS_REGNUM
|| regnum
>= FP0_REGNUM
||
2666 !HAVE_STRUCT_SAVE_STATE_T
|| !HAVE_STRUCT_MEMBER_SS_WIDE
)
2668 /* Use narrow regs area of save_state and default macro. */
2669 offset
= U_REGS_OFFSET
;
2670 regaddr
= register_addr (regnum
, offset
);
2675 /* Use wide regs area, and calculate registers as 8 bytes wide.
2677 We'd like to do this, but current version of "C" doesn't
2680 offset = offsetof(save_state_t, ss_wide);
2682 Note that to avoid "C" doing typed pointer arithmetic, we
2683 have to cast away the type in our offset calculation:
2684 otherwise we get an offset of 1! */
2686 /* NB: save_state_t is not available before HPUX 9.
2687 The ss_wide field is not available previous to HPUX 10.20,
2688 so to avoid compile-time warnings, we only compile this for
2689 PA 2.0 processors. This control path should only be followed
2690 if we're debugging a PA 2.0 processor, so this should not cause
2693 /* #if the following code out so that this file can still be
2694 compiled on older HPUX boxes (< 10.20) which don't have
2695 this structure/structure member. */
2696 #if HAVE_STRUCT_SAVE_STATE_T == 1 && HAVE_STRUCT_MEMBER_SS_WIDE == 1
2699 offset
= ((int) &temp
.ss_wide
) - ((int) &temp
);
2700 regaddr
= offset
+ regnum
* 8;
2705 for (i
= start
; i
< 2; i
++)
2708 raw_val
[i
] = call_ptrace (PT_RUREGS
, PIDGET (inferior_ptid
),
2709 (PTRACE_ARG3_TYPE
) regaddr
, 0);
2712 /* Warning, not error, in case we are attached; sometimes the
2713 kernel doesn't let us at the registers. */
2714 char *err
= safe_strerror (errno
);
2715 char *msg
= alloca (strlen (err
) + 128);
2716 sprintf (msg
, "reading register %s: %s", REGISTER_NAME (regnum
), err
);
2721 regaddr
+= sizeof (long);
2724 if (regnum
== PCOQ_HEAD_REGNUM
|| regnum
== PCOQ_TAIL_REGNUM
)
2725 raw_val
[1] &= ~0x3; /* I think we're masking out space bits */
2731 /* "Info all-reg" command */
2734 pa_print_registers (char *raw_regs
, int regnum
, int fpregs
)
2737 /* Alas, we are compiled so that "long long" is 32 bits */
2740 int rows
= 48, columns
= 2;
2742 for (i
= 0; i
< rows
; i
++)
2744 for (j
= 0; j
< columns
; j
++)
2746 /* We display registers in column-major order. */
2747 int regnum
= i
+ j
* rows
;
2749 /* Q: Why is the value passed through "extract_signed_integer",
2750 while above, in "pa_do_registers_info" it isn't?
2752 pa_register_look_aside (raw_regs
, regnum
, &raw_val
[0]);
2754 /* Even fancier % formats to prevent leading zeros
2755 and still maintain the output in columns. */
2758 /* Being big-endian, on this machine the low bits
2759 (the ones we want to look at) are in the second longword. */
2760 long_val
= extract_signed_integer (&raw_val
[1], 4);
2761 printf_filtered ("%10.10s: %8lx ",
2762 REGISTER_NAME (regnum
), long_val
);
2766 /* raw_val = extract_signed_integer(&raw_val, 8); */
2767 if (raw_val
[0] == 0)
2768 printf_filtered ("%10.10s: %8lx ",
2769 REGISTER_NAME (regnum
), raw_val
[1]);
2771 printf_filtered ("%10.10s: %8lx%8.8lx ",
2772 REGISTER_NAME (regnum
),
2773 raw_val
[0], raw_val
[1]);
2776 printf_unfiltered ("\n");
2780 for (i
= FP4_REGNUM
; i
< NUM_REGS
; i
++) /* FP4_REGNUM == 72 */
2781 pa_print_fp_reg (i
);
2784 /************* new function ******************/
2786 pa_strcat_registers (char *raw_regs
, int regnum
, int fpregs
,
2787 struct ui_file
*stream
)
2790 long raw_val
[2]; /* Alas, we are compiled so that "long long" is 32 bits */
2792 enum precision_type precision
;
2794 precision
= unspecified_precision
;
2796 for (i
= 0; i
< 18; i
++)
2798 for (j
= 0; j
< 4; j
++)
2800 /* Q: Why is the value passed through "extract_signed_integer",
2801 while above, in "pa_do_registers_info" it isn't?
2803 pa_register_look_aside (raw_regs
, i
+ (j
* 18), &raw_val
[0]);
2805 /* Even fancier % formats to prevent leading zeros
2806 and still maintain the output in columns. */
2809 /* Being big-endian, on this machine the low bits
2810 (the ones we want to look at) are in the second longword. */
2811 long_val
= extract_signed_integer (&raw_val
[1], 4);
2812 fprintf_filtered (stream
, "%8.8s: %8lx ",
2813 REGISTER_NAME (i
+ (j
* 18)), long_val
);
2817 /* raw_val = extract_signed_integer(&raw_val, 8); */
2818 if (raw_val
[0] == 0)
2819 fprintf_filtered (stream
, "%8.8s: %8lx ",
2820 REGISTER_NAME (i
+ (j
* 18)), raw_val
[1]);
2822 fprintf_filtered (stream
, "%8.8s: %8lx%8.8lx ",
2823 REGISTER_NAME (i
+ (j
* 18)), raw_val
[0],
2827 fprintf_unfiltered (stream
, "\n");
2831 for (i
= FP4_REGNUM
; i
< NUM_REGS
; i
++) /* FP4_REGNUM == 72 */
2832 pa_strcat_fp_reg (i
, stream
, precision
);
2836 pa_print_fp_reg (int i
)
2838 char raw_buffer
[MAX_REGISTER_SIZE
];
2839 char virtual_buffer
[MAX_REGISTER_SIZE
];
2841 /* Get 32bits of data. */
2842 frame_register_read (deprecated_selected_frame
, i
, raw_buffer
);
2844 /* Put it in the buffer. No conversions are ever necessary. */
2845 memcpy (virtual_buffer
, raw_buffer
, REGISTER_RAW_SIZE (i
));
2847 fputs_filtered (REGISTER_NAME (i
), gdb_stdout
);
2848 print_spaces_filtered (8 - strlen (REGISTER_NAME (i
)), gdb_stdout
);
2849 fputs_filtered ("(single precision) ", gdb_stdout
);
2851 val_print (REGISTER_VIRTUAL_TYPE (i
), virtual_buffer
, 0, 0, gdb_stdout
, 0,
2852 1, 0, Val_pretty_default
);
2853 printf_filtered ("\n");
2855 /* If "i" is even, then this register can also be a double-precision
2856 FP register. Dump it out as such. */
2859 /* Get the data in raw format for the 2nd half. */
2860 frame_register_read (deprecated_selected_frame
, i
+ 1, raw_buffer
);
2862 /* Copy it into the appropriate part of the virtual buffer. */
2863 memcpy (virtual_buffer
+ REGISTER_RAW_SIZE (i
), raw_buffer
,
2864 REGISTER_RAW_SIZE (i
));
2866 /* Dump it as a double. */
2867 fputs_filtered (REGISTER_NAME (i
), gdb_stdout
);
2868 print_spaces_filtered (8 - strlen (REGISTER_NAME (i
)), gdb_stdout
);
2869 fputs_filtered ("(double precision) ", gdb_stdout
);
2871 val_print (builtin_type_double
, virtual_buffer
, 0, 0, gdb_stdout
, 0,
2872 1, 0, Val_pretty_default
);
2873 printf_filtered ("\n");
2877 /*************** new function ***********************/
2879 pa_strcat_fp_reg (int i
, struct ui_file
*stream
, enum precision_type precision
)
2881 char raw_buffer
[MAX_REGISTER_SIZE
];
2882 char virtual_buffer
[MAX_REGISTER_SIZE
];
2884 fputs_filtered (REGISTER_NAME (i
), stream
);
2885 print_spaces_filtered (8 - strlen (REGISTER_NAME (i
)), stream
);
2887 /* Get 32bits of data. */
2888 frame_register_read (deprecated_selected_frame
, i
, raw_buffer
);
2890 /* Put it in the buffer. No conversions are ever necessary. */
2891 memcpy (virtual_buffer
, raw_buffer
, REGISTER_RAW_SIZE (i
));
2893 if (precision
== double_precision
&& (i
% 2) == 0)
2896 char raw_buf
[MAX_REGISTER_SIZE
];
2898 /* Get the data in raw format for the 2nd half. */
2899 frame_register_read (deprecated_selected_frame
, i
+ 1, raw_buf
);
2901 /* Copy it into the appropriate part of the virtual buffer. */
2902 memcpy (virtual_buffer
+ REGISTER_RAW_SIZE (i
), raw_buf
, REGISTER_RAW_SIZE (i
));
2904 val_print (builtin_type_double
, virtual_buffer
, 0, 0, stream
, 0,
2905 1, 0, Val_pretty_default
);
2910 val_print (REGISTER_VIRTUAL_TYPE (i
), virtual_buffer
, 0, 0, stream
, 0,
2911 1, 0, Val_pretty_default
);
2916 /* Return one if PC is in the call path of a trampoline, else return zero.
2918 Note we return one for *any* call trampoline (long-call, arg-reloc), not
2919 just shared library trampolines (import, export). */
2922 hppa_in_solib_call_trampoline (CORE_ADDR pc
, char *name
)
2924 struct minimal_symbol
*minsym
;
2925 struct unwind_table_entry
*u
;
2926 static CORE_ADDR dyncall
= 0;
2927 static CORE_ADDR sr4export
= 0;
2929 #ifdef GDB_TARGET_IS_HPPA_20W
2930 /* PA64 has a completely different stub/trampoline scheme. Is it
2931 better? Maybe. It's certainly harder to determine with any
2932 certainty that we are in a stub because we can not refer to the
2935 The heuristic is simple. Try to lookup the current PC value in th
2936 minimal symbol table. If that fails, then assume we are not in a
2939 Then see if the PC value falls within the section bounds for the
2940 section containing the minimal symbol we found in the first
2941 step. If it does, then assume we are not in a stub and return.
2943 Finally peek at the instructions to see if they look like a stub. */
2945 struct minimal_symbol
*minsym
;
2950 minsym
= lookup_minimal_symbol_by_pc (pc
);
2954 sec
= SYMBOL_BFD_SECTION (minsym
);
2957 && sec
->vma
+ sec
->_cooked_size
< pc
)
2960 /* We might be in a stub. Peek at the instructions. Stubs are 3
2961 instructions long. */
2962 insn
= read_memory_integer (pc
, 4);
2964 /* Find out where we think we are within the stub. */
2965 if ((insn
& 0xffffc00e) == 0x53610000)
2967 else if ((insn
& 0xffffffff) == 0xe820d000)
2969 else if ((insn
& 0xffffc00e) == 0x537b0000)
2974 /* Now verify each insn in the range looks like a stub instruction. */
2975 insn
= read_memory_integer (addr
, 4);
2976 if ((insn
& 0xffffc00e) != 0x53610000)
2979 /* Now verify each insn in the range looks like a stub instruction. */
2980 insn
= read_memory_integer (addr
+ 4, 4);
2981 if ((insn
& 0xffffffff) != 0xe820d000)
2984 /* Now verify each insn in the range looks like a stub instruction. */
2985 insn
= read_memory_integer (addr
+ 8, 4);
2986 if ((insn
& 0xffffc00e) != 0x537b0000)
2989 /* Looks like a stub. */
2994 /* FIXME XXX - dyncall and sr4export must be initialized whenever we get a
2997 /* First see if PC is in one of the two C-library trampolines. */
3000 minsym
= lookup_minimal_symbol ("$$dyncall", NULL
, NULL
);
3002 dyncall
= SYMBOL_VALUE_ADDRESS (minsym
);
3009 minsym
= lookup_minimal_symbol ("_sr4export", NULL
, NULL
);
3011 sr4export
= SYMBOL_VALUE_ADDRESS (minsym
);
3016 if (pc
== dyncall
|| pc
== sr4export
)
3019 minsym
= lookup_minimal_symbol_by_pc (pc
);
3020 if (minsym
&& strcmp (DEPRECATED_SYMBOL_NAME (minsym
), ".stub") == 0)
3023 /* Get the unwind descriptor corresponding to PC, return zero
3024 if no unwind was found. */
3025 u
= find_unwind_entry (pc
);
3029 /* If this isn't a linker stub, then return now. */
3030 if (u
->stub_unwind
.stub_type
== 0)
3033 /* By definition a long-branch stub is a call stub. */
3034 if (u
->stub_unwind
.stub_type
== LONG_BRANCH
)
3037 /* The call and return path execute the same instructions within
3038 an IMPORT stub! So an IMPORT stub is both a call and return
3040 if (u
->stub_unwind
.stub_type
== IMPORT
)
3043 /* Parameter relocation stubs always have a call path and may have a
3045 if (u
->stub_unwind
.stub_type
== PARAMETER_RELOCATION
3046 || u
->stub_unwind
.stub_type
== EXPORT
)
3050 /* Search forward from the current PC until we hit a branch
3051 or the end of the stub. */
3052 for (addr
= pc
; addr
<= u
->region_end
; addr
+= 4)
3056 insn
= read_memory_integer (addr
, 4);
3058 /* Does it look like a bl? If so then it's the call path, if
3059 we find a bv or be first, then we're on the return path. */
3060 if ((insn
& 0xfc00e000) == 0xe8000000)
3062 else if ((insn
& 0xfc00e001) == 0xe800c000
3063 || (insn
& 0xfc000000) == 0xe0000000)
3067 /* Should never happen. */
3068 warning ("Unable to find branch in parameter relocation stub.\n");
3072 /* Unknown stub type. For now, just return zero. */
3076 /* Return one if PC is in the return path of a trampoline, else return zero.
3078 Note we return one for *any* call trampoline (long-call, arg-reloc), not
3079 just shared library trampolines (import, export). */
3082 hppa_in_solib_return_trampoline (CORE_ADDR pc
, char *name
)
3084 struct unwind_table_entry
*u
;
3086 /* Get the unwind descriptor corresponding to PC, return zero
3087 if no unwind was found. */
3088 u
= find_unwind_entry (pc
);
3092 /* If this isn't a linker stub or it's just a long branch stub, then
3094 if (u
->stub_unwind
.stub_type
== 0 || u
->stub_unwind
.stub_type
== LONG_BRANCH
)
3097 /* The call and return path execute the same instructions within
3098 an IMPORT stub! So an IMPORT stub is both a call and return
3100 if (u
->stub_unwind
.stub_type
== IMPORT
)
3103 /* Parameter relocation stubs always have a call path and may have a
3105 if (u
->stub_unwind
.stub_type
== PARAMETER_RELOCATION
3106 || u
->stub_unwind
.stub_type
== EXPORT
)
3110 /* Search forward from the current PC until we hit a branch
3111 or the end of the stub. */
3112 for (addr
= pc
; addr
<= u
->region_end
; addr
+= 4)
3116 insn
= read_memory_integer (addr
, 4);
3118 /* Does it look like a bl? If so then it's the call path, if
3119 we find a bv or be first, then we're on the return path. */
3120 if ((insn
& 0xfc00e000) == 0xe8000000)
3122 else if ((insn
& 0xfc00e001) == 0xe800c000
3123 || (insn
& 0xfc000000) == 0xe0000000)
3127 /* Should never happen. */
3128 warning ("Unable to find branch in parameter relocation stub.\n");
3132 /* Unknown stub type. For now, just return zero. */
3137 /* Figure out if PC is in a trampoline, and if so find out where
3138 the trampoline will jump to. If not in a trampoline, return zero.
3140 Simple code examination probably is not a good idea since the code
3141 sequences in trampolines can also appear in user code.
3143 We use unwinds and information from the minimal symbol table to
3144 determine when we're in a trampoline. This won't work for ELF
3145 (yet) since it doesn't create stub unwind entries. Whether or
3146 not ELF will create stub unwinds or normal unwinds for linker
3147 stubs is still being debated.
3149 This should handle simple calls through dyncall or sr4export,
3150 long calls, argument relocation stubs, and dyncall/sr4export
3151 calling an argument relocation stub. It even handles some stubs
3152 used in dynamic executables. */
3155 hppa_skip_trampoline_code (CORE_ADDR pc
)
3158 long prev_inst
, curr_inst
, loc
;
3159 static CORE_ADDR dyncall
= 0;
3160 static CORE_ADDR dyncall_external
= 0;
3161 static CORE_ADDR sr4export
= 0;
3162 struct minimal_symbol
*msym
;
3163 struct unwind_table_entry
*u
;
3165 /* FIXME XXX - dyncall and sr4export must be initialized whenever we get a
3170 msym
= lookup_minimal_symbol ("$$dyncall", NULL
, NULL
);
3172 dyncall
= SYMBOL_VALUE_ADDRESS (msym
);
3177 if (!dyncall_external
)
3179 msym
= lookup_minimal_symbol ("$$dyncall_external", NULL
, NULL
);
3181 dyncall_external
= SYMBOL_VALUE_ADDRESS (msym
);
3183 dyncall_external
= -1;
3188 msym
= lookup_minimal_symbol ("_sr4export", NULL
, NULL
);
3190 sr4export
= SYMBOL_VALUE_ADDRESS (msym
);
3195 /* Addresses passed to dyncall may *NOT* be the actual address
3196 of the function. So we may have to do something special. */
3199 pc
= (CORE_ADDR
) read_register (22);
3201 /* If bit 30 (counting from the left) is on, then pc is the address of
3202 the PLT entry for this function, not the address of the function
3203 itself. Bit 31 has meaning too, but only for MPE. */
3205 pc
= (CORE_ADDR
) read_memory_integer (pc
& ~0x3, TARGET_PTR_BIT
/ 8);
3207 if (pc
== dyncall_external
)
3209 pc
= (CORE_ADDR
) read_register (22);
3210 pc
= (CORE_ADDR
) read_memory_integer (pc
& ~0x3, TARGET_PTR_BIT
/ 8);
3212 else if (pc
== sr4export
)
3213 pc
= (CORE_ADDR
) (read_register (22));
3215 /* Get the unwind descriptor corresponding to PC, return zero
3216 if no unwind was found. */
3217 u
= find_unwind_entry (pc
);
3221 /* If this isn't a linker stub, then return now. */
3222 /* elz: attention here! (FIXME) because of a compiler/linker
3223 error, some stubs which should have a non zero stub_unwind.stub_type
3224 have unfortunately a value of zero. So this function would return here
3225 as if we were not in a trampoline. To fix this, we go look at the partial
3226 symbol information, which reports this guy as a stub.
3227 (FIXME): Unfortunately, we are not that lucky: it turns out that the
3228 partial symbol information is also wrong sometimes. This is because
3229 when it is entered (somread.c::som_symtab_read()) it can happen that
3230 if the type of the symbol (from the som) is Entry, and the symbol is
3231 in a shared library, then it can also be a trampoline. This would
3232 be OK, except that I believe the way they decide if we are ina shared library
3233 does not work. SOOOO..., even if we have a regular function w/o trampolines
3234 its minimal symbol can be assigned type mst_solib_trampoline.
3235 Also, if we find that the symbol is a real stub, then we fix the unwind
3236 descriptor, and define the stub type to be EXPORT.
3237 Hopefully this is correct most of the times. */
3238 if (u
->stub_unwind
.stub_type
== 0)
3241 /* elz: NOTE (FIXME!) once the problem with the unwind information is fixed
3242 we can delete all the code which appears between the lines */
3243 /*--------------------------------------------------------------------------*/
3244 msym
= lookup_minimal_symbol_by_pc (pc
);
3246 if (msym
== NULL
|| MSYMBOL_TYPE (msym
) != mst_solib_trampoline
)
3247 return orig_pc
== pc
? 0 : pc
& ~0x3;
3249 else if (msym
!= NULL
&& MSYMBOL_TYPE (msym
) == mst_solib_trampoline
)
3251 struct objfile
*objfile
;
3252 struct minimal_symbol
*msymbol
;
3253 int function_found
= 0;
3255 /* go look if there is another minimal symbol with the same name as
3256 this one, but with type mst_text. This would happen if the msym
3257 is an actual trampoline, in which case there would be another
3258 symbol with the same name corresponding to the real function */
3260 ALL_MSYMBOLS (objfile
, msymbol
)
3262 if (MSYMBOL_TYPE (msymbol
) == mst_text
3263 && STREQ (DEPRECATED_SYMBOL_NAME (msymbol
), DEPRECATED_SYMBOL_NAME (msym
)))
3271 /* the type of msym is correct (mst_solib_trampoline), but
3272 the unwind info is wrong, so set it to the correct value */
3273 u
->stub_unwind
.stub_type
= EXPORT
;
3275 /* the stub type info in the unwind is correct (this is not a
3276 trampoline), but the msym type information is wrong, it
3277 should be mst_text. So we need to fix the msym, and also
3278 get out of this function */
3280 MSYMBOL_TYPE (msym
) = mst_text
;
3281 return orig_pc
== pc
? 0 : pc
& ~0x3;
3285 /*--------------------------------------------------------------------------*/
3288 /* It's a stub. Search for a branch and figure out where it goes.
3289 Note we have to handle multi insn branch sequences like ldil;ble.
3290 Most (all?) other branches can be determined by examining the contents
3291 of certain registers and the stack. */
3298 /* Make sure we haven't walked outside the range of this stub. */
3299 if (u
!= find_unwind_entry (loc
))
3301 warning ("Unable to find branch in linker stub");
3302 return orig_pc
== pc
? 0 : pc
& ~0x3;
3305 prev_inst
= curr_inst
;
3306 curr_inst
= read_memory_integer (loc
, 4);
3308 /* Does it look like a branch external using %r1? Then it's the
3309 branch from the stub to the actual function. */
3310 if ((curr_inst
& 0xffe0e000) == 0xe0202000)
3312 /* Yup. See if the previous instruction loaded
3313 a value into %r1. If so compute and return the jump address. */
3314 if ((prev_inst
& 0xffe00000) == 0x20200000)
3315 return (extract_21 (prev_inst
) + extract_17 (curr_inst
)) & ~0x3;
3318 warning ("Unable to find ldil X,%%r1 before ble Y(%%sr4,%%r1).");
3319 return orig_pc
== pc
? 0 : pc
& ~0x3;
3323 /* Does it look like a be 0(sr0,%r21)? OR
3324 Does it look like a be, n 0(sr0,%r21)? OR
3325 Does it look like a bve (r21)? (this is on PA2.0)
3326 Does it look like a bve, n(r21)? (this is also on PA2.0)
3327 That's the branch from an
3328 import stub to an export stub.
3330 It is impossible to determine the target of the branch via
3331 simple examination of instructions and/or data (consider
3332 that the address in the plabel may be the address of the
3333 bind-on-reference routine in the dynamic loader).
3335 So we have try an alternative approach.
3337 Get the name of the symbol at our current location; it should
3338 be a stub symbol with the same name as the symbol in the
3341 Then lookup a minimal symbol with the same name; we should
3342 get the minimal symbol for the target routine in the shared
3343 library as those take precedence of import/export stubs. */
3344 if ((curr_inst
== 0xe2a00000) ||
3345 (curr_inst
== 0xe2a00002) ||
3346 (curr_inst
== 0xeaa0d000) ||
3347 (curr_inst
== 0xeaa0d002))
3349 struct minimal_symbol
*stubsym
, *libsym
;
3351 stubsym
= lookup_minimal_symbol_by_pc (loc
);
3352 if (stubsym
== NULL
)
3354 warning ("Unable to find symbol for 0x%lx", loc
);
3355 return orig_pc
== pc
? 0 : pc
& ~0x3;
3358 libsym
= lookup_minimal_symbol (DEPRECATED_SYMBOL_NAME (stubsym
), NULL
, NULL
);
3361 warning ("Unable to find library symbol for %s\n",
3362 DEPRECATED_SYMBOL_NAME (stubsym
));
3363 return orig_pc
== pc
? 0 : pc
& ~0x3;
3366 return SYMBOL_VALUE (libsym
);
3369 /* Does it look like bl X,%rp or bl X,%r0? Another way to do a
3370 branch from the stub to the actual function. */
3372 else if ((curr_inst
& 0xffe0e000) == 0xe8400000
3373 || (curr_inst
& 0xffe0e000) == 0xe8000000
3374 || (curr_inst
& 0xffe0e000) == 0xe800A000)
3375 return (loc
+ extract_17 (curr_inst
) + 8) & ~0x3;
3377 /* Does it look like bv (rp)? Note this depends on the
3378 current stack pointer being the same as the stack
3379 pointer in the stub itself! This is a branch on from the
3380 stub back to the original caller. */
3381 /*else if ((curr_inst & 0xffe0e000) == 0xe840c000) */
3382 else if ((curr_inst
& 0xffe0f000) == 0xe840c000)
3384 /* Yup. See if the previous instruction loaded
3386 if (prev_inst
== 0x4bc23ff1)
3387 return (read_memory_integer
3388 (read_register (SP_REGNUM
) - 8, 4)) & ~0x3;
3391 warning ("Unable to find restore of %%rp before bv (%%rp).");
3392 return orig_pc
== pc
? 0 : pc
& ~0x3;
3396 /* elz: added this case to capture the new instruction
3397 at the end of the return part of an export stub used by
3398 the PA2.0: BVE, n (rp) */
3399 else if ((curr_inst
& 0xffe0f000) == 0xe840d000)
3401 return (read_memory_integer
3402 (read_register (SP_REGNUM
) - 24, TARGET_PTR_BIT
/ 8)) & ~0x3;
3405 /* What about be,n 0(sr0,%rp)? It's just another way we return to
3406 the original caller from the stub. Used in dynamic executables. */
3407 else if (curr_inst
== 0xe0400002)
3409 /* The value we jump to is sitting in sp - 24. But that's
3410 loaded several instructions before the be instruction.
3411 I guess we could check for the previous instruction being
3412 mtsp %r1,%sr0 if we want to do sanity checking. */
3413 return (read_memory_integer
3414 (read_register (SP_REGNUM
) - 24, TARGET_PTR_BIT
/ 8)) & ~0x3;
3417 /* Haven't found the branch yet, but we're still in the stub.
3424 /* For the given instruction (INST), return any adjustment it makes
3425 to the stack pointer or zero for no adjustment.
3427 This only handles instructions commonly found in prologues. */
3430 prologue_inst_adjust_sp (unsigned long inst
)
3432 /* This must persist across calls. */
3433 static int save_high21
;
3435 /* The most common way to perform a stack adjustment ldo X(sp),sp */
3436 if ((inst
& 0xffffc000) == 0x37de0000)
3437 return extract_14 (inst
);
3440 if ((inst
& 0xffe00000) == 0x6fc00000)
3441 return extract_14 (inst
);
3443 /* std,ma X,D(sp) */
3444 if ((inst
& 0xffe00008) == 0x73c00008)
3445 return (inst
& 0x1 ? -1 << 13 : 0) | (((inst
>> 4) & 0x3ff) << 3);
3447 /* addil high21,%r1; ldo low11,(%r1),%r30)
3448 save high bits in save_high21 for later use. */
3449 if ((inst
& 0xffe00000) == 0x28200000)
3451 save_high21
= extract_21 (inst
);
3455 if ((inst
& 0xffff0000) == 0x343e0000)
3456 return save_high21
+ extract_14 (inst
);
3458 /* fstws as used by the HP compilers. */
3459 if ((inst
& 0xffffffe0) == 0x2fd01220)
3460 return extract_5_load (inst
);
3462 /* No adjustment. */
3466 /* Return nonzero if INST is a branch of some kind, else return zero. */
3469 is_branch (unsigned long inst
)
3498 /* Return the register number for a GR which is saved by INST or
3499 zero it INST does not save a GR. */
3502 inst_saves_gr (unsigned long inst
)
3504 /* Does it look like a stw? */
3505 if ((inst
>> 26) == 0x1a || (inst
>> 26) == 0x1b
3506 || (inst
>> 26) == 0x1f
3507 || ((inst
>> 26) == 0x1f
3508 && ((inst
>> 6) == 0xa)))
3509 return extract_5R_store (inst
);
3511 /* Does it look like a std? */
3512 if ((inst
>> 26) == 0x1c
3513 || ((inst
>> 26) == 0x03
3514 && ((inst
>> 6) & 0xf) == 0xb))
3515 return extract_5R_store (inst
);
3517 /* Does it look like a stwm? GCC & HPC may use this in prologues. */
3518 if ((inst
>> 26) == 0x1b)
3519 return extract_5R_store (inst
);
3521 /* Does it look like sth or stb? HPC versions 9.0 and later use these
3523 if ((inst
>> 26) == 0x19 || (inst
>> 26) == 0x18
3524 || ((inst
>> 26) == 0x3
3525 && (((inst
>> 6) & 0xf) == 0x8
3526 || (inst
>> 6) & 0xf) == 0x9))
3527 return extract_5R_store (inst
);
3532 /* Return the register number for a FR which is saved by INST or
3533 zero it INST does not save a FR.
3535 Note we only care about full 64bit register stores (that's the only
3536 kind of stores the prologue will use).
3538 FIXME: What about argument stores with the HP compiler in ANSI mode? */
3541 inst_saves_fr (unsigned long inst
)
3543 /* is this an FSTD ? */
3544 if ((inst
& 0xfc00dfc0) == 0x2c001200)
3545 return extract_5r_store (inst
);
3546 if ((inst
& 0xfc000002) == 0x70000002)
3547 return extract_5R_store (inst
);
3548 /* is this an FSTW ? */
3549 if ((inst
& 0xfc00df80) == 0x24001200)
3550 return extract_5r_store (inst
);
3551 if ((inst
& 0xfc000002) == 0x7c000000)
3552 return extract_5R_store (inst
);
3556 /* Advance PC across any function entry prologue instructions
3557 to reach some "real" code.
3559 Use information in the unwind table to determine what exactly should
3560 be in the prologue. */
3564 skip_prologue_hard_way (CORE_ADDR pc
)
3567 CORE_ADDR orig_pc
= pc
;
3568 unsigned long inst
, stack_remaining
, save_gr
, save_fr
, save_rp
, save_sp
;
3569 unsigned long args_stored
, status
, i
, restart_gr
, restart_fr
;
3570 struct unwind_table_entry
*u
;
3576 u
= find_unwind_entry (pc
);
3580 /* If we are not at the beginning of a function, then return now. */
3581 if ((pc
& ~0x3) != u
->region_start
)
3584 /* This is how much of a frame adjustment we need to account for. */
3585 stack_remaining
= u
->Total_frame_size
<< 3;
3587 /* Magic register saves we want to know about. */
3588 save_rp
= u
->Save_RP
;
3589 save_sp
= u
->Save_SP
;
3591 /* An indication that args may be stored into the stack. Unfortunately
3592 the HPUX compilers tend to set this in cases where no args were
3596 /* Turn the Entry_GR field into a bitmask. */
3598 for (i
= 3; i
< u
->Entry_GR
+ 3; i
++)
3600 /* Frame pointer gets saved into a special location. */
3601 if (u
->Save_SP
&& i
== DEPRECATED_FP_REGNUM
)
3604 save_gr
|= (1 << i
);
3606 save_gr
&= ~restart_gr
;
3608 /* Turn the Entry_FR field into a bitmask too. */
3610 for (i
= 12; i
< u
->Entry_FR
+ 12; i
++)
3611 save_fr
|= (1 << i
);
3612 save_fr
&= ~restart_fr
;
3614 /* Loop until we find everything of interest or hit a branch.
3616 For unoptimized GCC code and for any HP CC code this will never ever
3617 examine any user instructions.
3619 For optimzied GCC code we're faced with problems. GCC will schedule
3620 its prologue and make prologue instructions available for delay slot
3621 filling. The end result is user code gets mixed in with the prologue
3622 and a prologue instruction may be in the delay slot of the first branch
3625 Some unexpected things are expected with debugging optimized code, so
3626 we allow this routine to walk past user instructions in optimized
3628 while (save_gr
|| save_fr
|| save_rp
|| save_sp
|| stack_remaining
> 0
3631 unsigned int reg_num
;
3632 unsigned long old_stack_remaining
, old_save_gr
, old_save_fr
;
3633 unsigned long old_save_rp
, old_save_sp
, next_inst
;
3635 /* Save copies of all the triggers so we can compare them later
3637 old_save_gr
= save_gr
;
3638 old_save_fr
= save_fr
;
3639 old_save_rp
= save_rp
;
3640 old_save_sp
= save_sp
;
3641 old_stack_remaining
= stack_remaining
;
3643 status
= target_read_memory (pc
, buf
, 4);
3644 inst
= extract_unsigned_integer (buf
, 4);
3650 /* Note the interesting effects of this instruction. */
3651 stack_remaining
-= prologue_inst_adjust_sp (inst
);
3653 /* There are limited ways to store the return pointer into the
3655 if (inst
== 0x6bc23fd9 || inst
== 0x0fc212c1)
3658 /* These are the only ways we save SP into the stack. At this time
3659 the HP compilers never bother to save SP into the stack. */
3660 if ((inst
& 0xffffc000) == 0x6fc10000
3661 || (inst
& 0xffffc00c) == 0x73c10008)
3664 /* Are we loading some register with an offset from the argument
3666 if ((inst
& 0xffe00000) == 0x37a00000
3667 || (inst
& 0xffffffe0) == 0x081d0240)
3673 /* Account for general and floating-point register saves. */
3674 reg_num
= inst_saves_gr (inst
);
3675 save_gr
&= ~(1 << reg_num
);
3677 /* Ugh. Also account for argument stores into the stack.
3678 Unfortunately args_stored only tells us that some arguments
3679 where stored into the stack. Not how many or what kind!
3681 This is a kludge as on the HP compiler sets this bit and it
3682 never does prologue scheduling. So once we see one, skip past
3683 all of them. We have similar code for the fp arg stores below.
3685 FIXME. Can still die if we have a mix of GR and FR argument
3687 if (reg_num
>= (TARGET_PTR_BIT
== 64 ? 19 : 23) && reg_num
<= 26)
3689 while (reg_num
>= (TARGET_PTR_BIT
== 64 ? 19 : 23) && reg_num
<= 26)
3692 status
= target_read_memory (pc
, buf
, 4);
3693 inst
= extract_unsigned_integer (buf
, 4);
3696 reg_num
= inst_saves_gr (inst
);
3702 reg_num
= inst_saves_fr (inst
);
3703 save_fr
&= ~(1 << reg_num
);
3705 status
= target_read_memory (pc
+ 4, buf
, 4);
3706 next_inst
= extract_unsigned_integer (buf
, 4);
3712 /* We've got to be read to handle the ldo before the fp register
3714 if ((inst
& 0xfc000000) == 0x34000000
3715 && inst_saves_fr (next_inst
) >= 4
3716 && inst_saves_fr (next_inst
) <= (TARGET_PTR_BIT
== 64 ? 11 : 7))
3718 /* So we drop into the code below in a reasonable state. */
3719 reg_num
= inst_saves_fr (next_inst
);
3723 /* Ugh. Also account for argument stores into the stack.
3724 This is a kludge as on the HP compiler sets this bit and it
3725 never does prologue scheduling. So once we see one, skip past
3727 if (reg_num
>= 4 && reg_num
<= (TARGET_PTR_BIT
== 64 ? 11 : 7))
3729 while (reg_num
>= 4 && reg_num
<= (TARGET_PTR_BIT
== 64 ? 11 : 7))
3732 status
= target_read_memory (pc
, buf
, 4);
3733 inst
= extract_unsigned_integer (buf
, 4);
3736 if ((inst
& 0xfc000000) != 0x34000000)
3738 status
= target_read_memory (pc
+ 4, buf
, 4);
3739 next_inst
= extract_unsigned_integer (buf
, 4);
3742 reg_num
= inst_saves_fr (next_inst
);
3748 /* Quit if we hit any kind of branch. This can happen if a prologue
3749 instruction is in the delay slot of the first call/branch. */
3750 if (is_branch (inst
))
3753 /* What a crock. The HP compilers set args_stored even if no
3754 arguments were stored into the stack (boo hiss). This could
3755 cause this code to then skip a bunch of user insns (up to the
3758 To combat this we try to identify when args_stored was bogusly
3759 set and clear it. We only do this when args_stored is nonzero,
3760 all other resources are accounted for, and nothing changed on
3763 && !(save_gr
|| save_fr
|| save_rp
|| save_sp
|| stack_remaining
> 0)
3764 && old_save_gr
== save_gr
&& old_save_fr
== save_fr
3765 && old_save_rp
== save_rp
&& old_save_sp
== save_sp
3766 && old_stack_remaining
== stack_remaining
)
3773 /* We've got a tenative location for the end of the prologue. However
3774 because of limitations in the unwind descriptor mechanism we may
3775 have went too far into user code looking for the save of a register
3776 that does not exist. So, if there registers we expected to be saved
3777 but never were, mask them out and restart.
3779 This should only happen in optimized code, and should be very rare. */
3780 if (save_gr
|| (save_fr
&& !(restart_fr
|| restart_gr
)))
3783 restart_gr
= save_gr
;
3784 restart_fr
= save_fr
;
3792 /* Return the address of the PC after the last prologue instruction if
3793 we can determine it from the debug symbols. Else return zero. */
3796 after_prologue (CORE_ADDR pc
)
3798 struct symtab_and_line sal
;
3799 CORE_ADDR func_addr
, func_end
;
3802 /* If we can not find the symbol in the partial symbol table, then
3803 there is no hope we can determine the function's start address
3805 if (!find_pc_partial_function (pc
, NULL
, &func_addr
, &func_end
))
3808 /* Get the line associated with FUNC_ADDR. */
3809 sal
= find_pc_line (func_addr
, 0);
3811 /* There are only two cases to consider. First, the end of the source line
3812 is within the function bounds. In that case we return the end of the
3813 source line. Second is the end of the source line extends beyond the
3814 bounds of the current function. We need to use the slow code to
3815 examine instructions in that case.
3817 Anything else is simply a bug elsewhere. Fixing it here is absolutely
3818 the wrong thing to do. In fact, it should be entirely possible for this
3819 function to always return zero since the slow instruction scanning code
3820 is supposed to *always* work. If it does not, then it is a bug. */
3821 if (sal
.end
< func_end
)
3827 /* To skip prologues, I use this predicate. Returns either PC itself
3828 if the code at PC does not look like a function prologue; otherwise
3829 returns an address that (if we're lucky) follows the prologue. If
3830 LENIENT, then we must skip everything which is involved in setting
3831 up the frame (it's OK to skip more, just so long as we don't skip
3832 anything which might clobber the registers which are being saved.
3833 Currently we must not skip more on the alpha, but we might the lenient
3837 hppa_skip_prologue (CORE_ADDR pc
)
3841 CORE_ADDR post_prologue_pc
;
3844 /* See if we can determine the end of the prologue via the symbol table.
3845 If so, then return either PC, or the PC after the prologue, whichever
3848 post_prologue_pc
= after_prologue (pc
);
3850 /* If after_prologue returned a useful address, then use it. Else
3851 fall back on the instruction skipping code.
3853 Some folks have claimed this causes problems because the breakpoint
3854 may be the first instruction of the prologue. If that happens, then
3855 the instruction skipping code has a bug that needs to be fixed. */
3856 if (post_prologue_pc
!= 0)
3857 return max (pc
, post_prologue_pc
);
3859 return (skip_prologue_hard_way (pc
));
3862 /* Put here the code to store, into the SAVED_REGS, the addresses of
3863 the saved registers of frame described by FRAME_INFO. This
3864 includes special registers such as pc and fp saved in special ways
3865 in the stack frame. sp is even more special: the address we return
3866 for it IS the sp for the next frame. */
3869 hppa_frame_find_saved_regs (struct frame_info
*frame_info
,
3870 CORE_ADDR frame_saved_regs
[])
3873 struct unwind_table_entry
*u
;
3874 unsigned long inst
, stack_remaining
, save_gr
, save_fr
, save_rp
, save_sp
;
3878 int final_iteration
;
3880 /* Zero out everything. */
3881 memset (frame_saved_regs
, '\0', SIZEOF_FRAME_SAVED_REGS
);
3883 /* Call dummy frames always look the same, so there's no need to
3884 examine the dummy code to determine locations of saved registers;
3885 instead, let find_dummy_frame_regs fill in the correct offsets
3886 for the saved registers. */
3887 if ((get_frame_pc (frame_info
) >= get_frame_base (frame_info
)
3888 && (get_frame_pc (frame_info
)
3889 <= (get_frame_base (frame_info
)
3890 /* A call dummy is sized in words, but it is actually a
3891 series of instructions. Account for that scaling
3893 + ((DEPRECATED_REGISTER_SIZE
/ INSTRUCTION_SIZE
)
3894 * DEPRECATED_CALL_DUMMY_LENGTH
)
3895 /* Similarly we have to account for 64bit wide register
3897 + (32 * DEPRECATED_REGISTER_SIZE
)
3898 /* We always consider FP regs 8 bytes long. */
3899 + (NUM_REGS
- FP0_REGNUM
) * 8
3900 /* Similarly we have to account for 64bit wide register
3902 + (6 * DEPRECATED_REGISTER_SIZE
)))))
3903 find_dummy_frame_regs (frame_info
, frame_saved_regs
);
3905 /* Interrupt handlers are special too. They lay out the register
3906 state in the exact same order as the register numbers in GDB. */
3907 if (pc_in_interrupt_handler (get_frame_pc (frame_info
)))
3909 for (i
= 0; i
< NUM_REGS
; i
++)
3911 /* SP is a little special. */
3913 frame_saved_regs
[SP_REGNUM
]
3914 = read_memory_integer (get_frame_base (frame_info
) + SP_REGNUM
* 4,
3915 TARGET_PTR_BIT
/ 8);
3917 frame_saved_regs
[i
] = get_frame_base (frame_info
) + i
* 4;
3922 #ifdef FRAME_FIND_SAVED_REGS_IN_SIGTRAMP
3923 /* Handle signal handler callers. */
3924 if ((get_frame_type (frame_info
) == SIGTRAMP_FRAME
))
3926 FRAME_FIND_SAVED_REGS_IN_SIGTRAMP (frame_info
, frame_saved_regs
);
3931 /* Get the starting address of the function referred to by the PC
3933 pc
= get_frame_func (frame_info
);
3936 u
= find_unwind_entry (pc
);
3940 /* This is how much of a frame adjustment we need to account for. */
3941 stack_remaining
= u
->Total_frame_size
<< 3;
3943 /* Magic register saves we want to know about. */
3944 save_rp
= u
->Save_RP
;
3945 save_sp
= u
->Save_SP
;
3947 /* Turn the Entry_GR field into a bitmask. */
3949 for (i
= 3; i
< u
->Entry_GR
+ 3; i
++)
3951 /* Frame pointer gets saved into a special location. */
3952 if (u
->Save_SP
&& i
== DEPRECATED_FP_REGNUM
)
3955 save_gr
|= (1 << i
);
3958 /* Turn the Entry_FR field into a bitmask too. */
3960 for (i
= 12; i
< u
->Entry_FR
+ 12; i
++)
3961 save_fr
|= (1 << i
);
3963 /* The frame always represents the value of %sp at entry to the
3964 current function (and is thus equivalent to the "saved" stack
3966 frame_saved_regs
[SP_REGNUM
] = get_frame_base (frame_info
);
3968 /* Loop until we find everything of interest or hit a branch.
3970 For unoptimized GCC code and for any HP CC code this will never ever
3971 examine any user instructions.
3973 For optimized GCC code we're faced with problems. GCC will schedule
3974 its prologue and make prologue instructions available for delay slot
3975 filling. The end result is user code gets mixed in with the prologue
3976 and a prologue instruction may be in the delay slot of the first branch
3979 Some unexpected things are expected with debugging optimized code, so
3980 we allow this routine to walk past user instructions in optimized
3982 final_iteration
= 0;
3983 while ((save_gr
|| save_fr
|| save_rp
|| save_sp
|| stack_remaining
> 0)
3984 && pc
<= get_frame_pc (frame_info
))
3986 status
= target_read_memory (pc
, buf
, 4);
3987 inst
= extract_unsigned_integer (buf
, 4);
3993 /* Note the interesting effects of this instruction. */
3994 stack_remaining
-= prologue_inst_adjust_sp (inst
);
3996 /* There are limited ways to store the return pointer into the
3998 if (inst
== 0x6bc23fd9) /* stw rp,-0x14(sr0,sp) */
4001 frame_saved_regs
[RP_REGNUM
] = get_frame_base (frame_info
) - 20;
4003 else if (inst
== 0x0fc212c1) /* std rp,-0x10(sr0,sp) */
4006 frame_saved_regs
[RP_REGNUM
] = get_frame_base (frame_info
) - 16;
4009 /* Note if we saved SP into the stack. This also happens to indicate
4010 the location of the saved frame pointer. */
4011 if ( (inst
& 0xffffc000) == 0x6fc10000 /* stw,ma r1,N(sr0,sp) */
4012 || (inst
& 0xffffc00c) == 0x73c10008) /* std,ma r1,N(sr0,sp) */
4014 frame_saved_regs
[DEPRECATED_FP_REGNUM
] = get_frame_base (frame_info
);
4018 /* Account for general and floating-point register saves. */
4019 reg
= inst_saves_gr (inst
);
4020 if (reg
>= 3 && reg
<= 18
4021 && (!u
->Save_SP
|| reg
!= DEPRECATED_FP_REGNUM
))
4023 save_gr
&= ~(1 << reg
);
4025 /* stwm with a positive displacement is a *post modify*. */
4026 if ((inst
>> 26) == 0x1b
4027 && extract_14 (inst
) >= 0)
4028 frame_saved_regs
[reg
] = get_frame_base (frame_info
);
4029 /* A std has explicit post_modify forms. */
4030 else if ((inst
& 0xfc00000c0) == 0x70000008)
4031 frame_saved_regs
[reg
] = get_frame_base (frame_info
);
4036 if ((inst
>> 26) == 0x1c)
4037 offset
= (inst
& 0x1 ? -1 << 13 : 0) | (((inst
>> 4) & 0x3ff) << 3);
4038 else if ((inst
>> 26) == 0x03)
4039 offset
= low_sign_extend (inst
& 0x1f, 5);
4041 offset
= extract_14 (inst
);
4043 /* Handle code with and without frame pointers. */
4045 frame_saved_regs
[reg
]
4046 = get_frame_base (frame_info
) + offset
;
4048 frame_saved_regs
[reg
]
4049 = (get_frame_base (frame_info
) + (u
->Total_frame_size
<< 3)
4055 /* GCC handles callee saved FP regs a little differently.
4057 It emits an instruction to put the value of the start of
4058 the FP store area into %r1. It then uses fstds,ma with
4059 a basereg of %r1 for the stores.
4061 HP CC emits them at the current stack pointer modifying
4062 the stack pointer as it stores each register. */
4064 /* ldo X(%r3),%r1 or ldo X(%r30),%r1. */
4065 if ((inst
& 0xffffc000) == 0x34610000
4066 || (inst
& 0xffffc000) == 0x37c10000)
4067 fp_loc
= extract_14 (inst
);
4069 reg
= inst_saves_fr (inst
);
4070 if (reg
>= 12 && reg
<= 21)
4072 /* Note +4 braindamage below is necessary because the FP status
4073 registers are internally 8 registers rather than the expected
4075 save_fr
&= ~(1 << reg
);
4078 /* 1st HP CC FP register store. After this instruction
4079 we've set enough state that the GCC and HPCC code are
4080 both handled in the same manner. */
4081 frame_saved_regs
[reg
+ FP4_REGNUM
+ 4] = get_frame_base (frame_info
);
4086 frame_saved_regs
[reg
+ FP0_REGNUM
+ 4]
4087 = get_frame_base (frame_info
) + fp_loc
;
4092 /* Quit if we hit any kind of branch the previous iteration. */
4093 if (final_iteration
)
4096 /* We want to look precisely one instruction beyond the branch
4097 if we have not found everything yet. */
4098 if (is_branch (inst
))
4099 final_iteration
= 1;
4106 /* XXX - deprecated. This is a compatibility function for targets
4107 that do not yet implement DEPRECATED_FRAME_INIT_SAVED_REGS. */
4108 /* Find the addresses in which registers are saved in FRAME. */
4111 hppa_frame_init_saved_regs (struct frame_info
*frame
)
4113 if (get_frame_saved_regs (frame
) == NULL
)
4114 frame_saved_regs_zalloc (frame
);
4115 hppa_frame_find_saved_regs (frame
, get_frame_saved_regs (frame
));
4118 /* Exception handling support for the HP-UX ANSI C++ compiler.
4119 The compiler (aCC) provides a callback for exception events;
4120 GDB can set a breakpoint on this callback and find out what
4121 exception event has occurred. */
4123 /* The name of the hook to be set to point to the callback function */
4124 static char HP_ACC_EH_notify_hook
[] = "__eh_notify_hook";
4125 /* The name of the function to be used to set the hook value */
4126 static char HP_ACC_EH_set_hook_value
[] = "__eh_set_hook_value";
4127 /* The name of the callback function in end.o */
4128 static char HP_ACC_EH_notify_callback
[] = "__d_eh_notify_callback";
4129 /* Name of function in end.o on which a break is set (called by above) */
4130 static char HP_ACC_EH_break
[] = "__d_eh_break";
4131 /* Name of flag (in end.o) that enables catching throws */
4132 static char HP_ACC_EH_catch_throw
[] = "__d_eh_catch_throw";
4133 /* Name of flag (in end.o) that enables catching catching */
4134 static char HP_ACC_EH_catch_catch
[] = "__d_eh_catch_catch";
4135 /* The enum used by aCC */
4143 /* Is exception-handling support available with this executable? */
4144 static int hp_cxx_exception_support
= 0;
4145 /* Has the initialize function been run? */
4146 int hp_cxx_exception_support_initialized
= 0;
4147 /* Similar to above, but imported from breakpoint.c -- non-target-specific */
4148 extern int exception_support_initialized
;
4149 /* Address of __eh_notify_hook */
4150 static CORE_ADDR eh_notify_hook_addr
= 0;
4151 /* Address of __d_eh_notify_callback */
4152 static CORE_ADDR eh_notify_callback_addr
= 0;
4153 /* Address of __d_eh_break */
4154 static CORE_ADDR eh_break_addr
= 0;
4155 /* Address of __d_eh_catch_catch */
4156 static CORE_ADDR eh_catch_catch_addr
= 0;
4157 /* Address of __d_eh_catch_throw */
4158 static CORE_ADDR eh_catch_throw_addr
= 0;
4159 /* Sal for __d_eh_break */
4160 static struct symtab_and_line
*break_callback_sal
= 0;
4162 /* Code in end.c expects __d_pid to be set in the inferior,
4163 otherwise __d_eh_notify_callback doesn't bother to call
4164 __d_eh_break! So we poke the pid into this symbol
4169 setup_d_pid_in_inferior (void)
4172 struct minimal_symbol
*msymbol
;
4173 char buf
[4]; /* FIXME 32x64? */
4175 /* Slam the pid of the process into __d_pid; failing is only a warning! */
4176 msymbol
= lookup_minimal_symbol ("__d_pid", NULL
, symfile_objfile
);
4177 if (msymbol
== NULL
)
4179 warning ("Unable to find __d_pid symbol in object file.");
4180 warning ("Suggest linking executable with -g (links in /opt/langtools/lib/end.o).");
4184 anaddr
= SYMBOL_VALUE_ADDRESS (msymbol
);
4185 store_unsigned_integer (buf
, 4, PIDGET (inferior_ptid
)); /* FIXME 32x64? */
4186 if (target_write_memory (anaddr
, buf
, 4)) /* FIXME 32x64? */
4188 warning ("Unable to write __d_pid");
4189 warning ("Suggest linking executable with -g (links in /opt/langtools/lib/end.o).");
4195 /* Initialize exception catchpoint support by looking for the
4196 necessary hooks/callbacks in end.o, etc., and set the hook value to
4197 point to the required debug function
4203 initialize_hp_cxx_exception_support (void)
4205 struct symtabs_and_lines sals
;
4206 struct cleanup
*old_chain
;
4207 struct cleanup
*canonical_strings_chain
= NULL
;
4210 char *addr_end
= NULL
;
4211 char **canonical
= (char **) NULL
;
4213 struct symbol
*sym
= NULL
;
4214 struct minimal_symbol
*msym
= NULL
;
4215 struct objfile
*objfile
;
4216 asection
*shlib_info
;
4218 /* Detect and disallow recursion. On HP-UX with aCC, infinite
4219 recursion is a possibility because finding the hook for exception
4220 callbacks involves making a call in the inferior, which means
4221 re-inserting breakpoints which can re-invoke this code */
4223 static int recurse
= 0;
4226 hp_cxx_exception_support_initialized
= 0;
4227 exception_support_initialized
= 0;
4231 hp_cxx_exception_support
= 0;
4233 /* First check if we have seen any HP compiled objects; if not,
4234 it is very unlikely that HP's idiosyncratic callback mechanism
4235 for exception handling debug support will be available!
4236 This will percolate back up to breakpoint.c, where our callers
4237 will decide to try the g++ exception-handling support instead. */
4238 if (!hp_som_som_object_present
)
4241 /* We have a SOM executable with SOM debug info; find the hooks */
4243 /* First look for the notify hook provided by aCC runtime libs */
4244 /* If we find this symbol, we conclude that the executable must
4245 have HP aCC exception support built in. If this symbol is not
4246 found, even though we're a HP SOM-SOM file, we may have been
4247 built with some other compiler (not aCC). This results percolates
4248 back up to our callers in breakpoint.c which can decide to
4249 try the g++ style of exception support instead.
4250 If this symbol is found but the other symbols we require are
4251 not found, there is something weird going on, and g++ support
4252 should *not* be tried as an alternative.
4254 ASSUMPTION: Only HP aCC code will have __eh_notify_hook defined.
4255 ASSUMPTION: HP aCC and g++ modules cannot be linked together. */
4257 /* libCsup has this hook; it'll usually be non-debuggable */
4258 msym
= lookup_minimal_symbol (HP_ACC_EH_notify_hook
, NULL
, NULL
);
4261 eh_notify_hook_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4262 hp_cxx_exception_support
= 1;
4266 warning ("Unable to find exception callback hook (%s).", HP_ACC_EH_notify_hook
);
4267 warning ("Executable may not have been compiled debuggable with HP aCC.");
4268 warning ("GDB will be unable to intercept exception events.");
4269 eh_notify_hook_addr
= 0;
4270 hp_cxx_exception_support
= 0;
4274 /* Next look for the notify callback routine in end.o */
4275 /* This is always available in the SOM symbol dictionary if end.o is linked in */
4276 msym
= lookup_minimal_symbol (HP_ACC_EH_notify_callback
, NULL
, NULL
);
4279 eh_notify_callback_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4280 hp_cxx_exception_support
= 1;
4284 warning ("Unable to find exception callback routine (%s).", HP_ACC_EH_notify_callback
);
4285 warning ("Suggest linking executable with -g (links in /opt/langtools/lib/end.o).");
4286 warning ("GDB will be unable to intercept exception events.");
4287 eh_notify_callback_addr
= 0;
4291 #ifndef GDB_TARGET_IS_HPPA_20W
4292 /* Check whether the executable is dynamically linked or archive bound */
4293 /* With an archive-bound executable we can use the raw addresses we find
4294 for the callback function, etc. without modification. For an executable
4295 with shared libraries, we have to do more work to find the plabel, which
4296 can be the target of a call through $$dyncall from the aCC runtime support
4297 library (libCsup) which is linked shared by default by aCC. */
4298 /* This test below was copied from somsolib.c/somread.c. It may not be a very
4299 reliable one to test that an executable is linked shared. pai/1997-07-18 */
4300 shlib_info
= bfd_get_section_by_name (symfile_objfile
->obfd
, "$SHLIB_INFO$");
4301 if (shlib_info
&& (bfd_section_size (symfile_objfile
->obfd
, shlib_info
) != 0))
4303 /* The minsym we have has the local code address, but that's not the
4304 plabel that can be used by an inter-load-module call. */
4305 /* Find solib handle for main image (which has end.o), and use that
4306 and the min sym as arguments to __d_shl_get() (which does the equivalent
4307 of shl_findsym()) to find the plabel. */
4309 args_for_find_stub args
;
4310 static char message
[] = "Error while finding exception callback hook:\n";
4312 args
.solib_handle
= som_solib_get_solib_by_pc (eh_notify_callback_addr
);
4314 args
.return_val
= 0;
4317 catch_errors (cover_find_stub_with_shl_get
, &args
, message
,
4319 eh_notify_callback_addr
= args
.return_val
;
4322 exception_catchpoints_are_fragile
= 1;
4324 if (!eh_notify_callback_addr
)
4326 /* We can get here either if there is no plabel in the export list
4327 for the main image, or if something strange happened (?) */
4328 warning ("Couldn't find a plabel (indirect function label) for the exception callback.");
4329 warning ("GDB will not be able to intercept exception events.");
4334 exception_catchpoints_are_fragile
= 0;
4337 /* Now, look for the breakpointable routine in end.o */
4338 /* This should also be available in the SOM symbol dict. if end.o linked in */
4339 msym
= lookup_minimal_symbol (HP_ACC_EH_break
, NULL
, NULL
);
4342 eh_break_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4343 hp_cxx_exception_support
= 1;
4347 warning ("Unable to find exception callback routine to set breakpoint (%s).", HP_ACC_EH_break
);
4348 warning ("Suggest linking executable with -g (link in /opt/langtools/lib/end.o).");
4349 warning ("GDB will be unable to intercept exception events.");
4354 /* Next look for the catch enable flag provided in end.o */
4355 sym
= lookup_symbol (HP_ACC_EH_catch_catch
, (struct block
*) NULL
,
4356 VAR_DOMAIN
, 0, (struct symtab
**) NULL
);
4357 if (sym
) /* sometimes present in debug info */
4359 eh_catch_catch_addr
= SYMBOL_VALUE_ADDRESS (sym
);
4360 hp_cxx_exception_support
= 1;
4363 /* otherwise look in SOM symbol dict. */
4365 msym
= lookup_minimal_symbol (HP_ACC_EH_catch_catch
, NULL
, NULL
);
4368 eh_catch_catch_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4369 hp_cxx_exception_support
= 1;
4373 warning ("Unable to enable interception of exception catches.");
4374 warning ("Executable may not have been compiled debuggable with HP aCC.");
4375 warning ("Suggest linking executable with -g (link in /opt/langtools/lib/end.o).");
4380 /* Next look for the catch enable flag provided end.o */
4381 sym
= lookup_symbol (HP_ACC_EH_catch_catch
, (struct block
*) NULL
,
4382 VAR_DOMAIN
, 0, (struct symtab
**) NULL
);
4383 if (sym
) /* sometimes present in debug info */
4385 eh_catch_throw_addr
= SYMBOL_VALUE_ADDRESS (sym
);
4386 hp_cxx_exception_support
= 1;
4389 /* otherwise look in SOM symbol dict. */
4391 msym
= lookup_minimal_symbol (HP_ACC_EH_catch_throw
, NULL
, NULL
);
4394 eh_catch_throw_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4395 hp_cxx_exception_support
= 1;
4399 warning ("Unable to enable interception of exception throws.");
4400 warning ("Executable may not have been compiled debuggable with HP aCC.");
4401 warning ("Suggest linking executable with -g (link in /opt/langtools/lib/end.o).");
4407 hp_cxx_exception_support
= 2; /* everything worked so far */
4408 hp_cxx_exception_support_initialized
= 1;
4409 exception_support_initialized
= 1;
4414 /* Target operation for enabling or disabling interception of
4416 KIND is either EX_EVENT_THROW or EX_EVENT_CATCH
4417 ENABLE is either 0 (disable) or 1 (enable).
4418 Return value is NULL if no support found;
4419 -1 if something went wrong,
4420 or a pointer to a symtab/line struct if the breakpointable
4421 address was found. */
4423 struct symtab_and_line
*
4424 child_enable_exception_callback (enum exception_event_kind kind
, int enable
)
4428 if (!exception_support_initialized
|| !hp_cxx_exception_support_initialized
)
4429 if (!initialize_hp_cxx_exception_support ())
4432 switch (hp_cxx_exception_support
)
4435 /* Assuming no HP support at all */
4438 /* HP support should be present, but something went wrong */
4439 return (struct symtab_and_line
*) -1; /* yuck! */
4440 /* there may be other cases in the future */
4443 /* Set the EH hook to point to the callback routine */
4444 store_unsigned_integer (buf
, 4, enable
? eh_notify_callback_addr
: 0); /* FIXME 32x64 problem */
4445 /* pai: (temp) FIXME should there be a pack operation first? */
4446 if (target_write_memory (eh_notify_hook_addr
, buf
, 4)) /* FIXME 32x64 problem */
4448 warning ("Could not write to target memory for exception event callback.");
4449 warning ("Interception of exception events may not work.");
4450 return (struct symtab_and_line
*) -1;
4454 /* Ensure that __d_pid is set up correctly -- end.c code checks this. :-( */
4455 if (PIDGET (inferior_ptid
) > 0)
4457 if (setup_d_pid_in_inferior ())
4458 return (struct symtab_and_line
*) -1;
4462 warning ("Internal error: Invalid inferior pid? Cannot intercept exception events.");
4463 return (struct symtab_and_line
*) -1;
4469 case EX_EVENT_THROW
:
4470 store_unsigned_integer (buf
, 4, enable
? 1 : 0);
4471 if (target_write_memory (eh_catch_throw_addr
, buf
, 4)) /* FIXME 32x64? */
4473 warning ("Couldn't enable exception throw interception.");
4474 return (struct symtab_and_line
*) -1;
4477 case EX_EVENT_CATCH
:
4478 store_unsigned_integer (buf
, 4, enable
? 1 : 0);
4479 if (target_write_memory (eh_catch_catch_addr
, buf
, 4)) /* FIXME 32x64? */
4481 warning ("Couldn't enable exception catch interception.");
4482 return (struct symtab_and_line
*) -1;
4486 error ("Request to enable unknown or unsupported exception event.");
4489 /* Copy break address into new sal struct, malloc'ing if needed. */
4490 if (!break_callback_sal
)
4492 break_callback_sal
= (struct symtab_and_line
*) xmalloc (sizeof (struct symtab_and_line
));
4494 init_sal (break_callback_sal
);
4495 break_callback_sal
->symtab
= NULL
;
4496 break_callback_sal
->pc
= eh_break_addr
;
4497 break_callback_sal
->line
= 0;
4498 break_callback_sal
->end
= eh_break_addr
;
4500 return break_callback_sal
;
4503 /* Record some information about the current exception event */
4504 static struct exception_event_record current_ex_event
;
4505 /* Convenience struct */
4506 static struct symtab_and_line null_symtab_and_line
=
4509 /* Report current exception event. Returns a pointer to a record
4510 that describes the kind of the event, where it was thrown from,
4511 and where it will be caught. More information may be reported
4513 struct exception_event_record
*
4514 child_get_current_exception_event (void)
4516 CORE_ADDR event_kind
;
4517 CORE_ADDR throw_addr
;
4518 CORE_ADDR catch_addr
;
4519 struct frame_info
*fi
, *curr_frame
;
4522 curr_frame
= get_current_frame ();
4524 return (struct exception_event_record
*) NULL
;
4526 /* Go up one frame to __d_eh_notify_callback, because at the
4527 point when this code is executed, there's garbage in the
4528 arguments of __d_eh_break. */
4529 fi
= find_relative_frame (curr_frame
, &level
);
4531 return (struct exception_event_record
*) NULL
;
4535 /* Read in the arguments */
4536 /* __d_eh_notify_callback() is called with 3 arguments:
4537 1. event kind catch or throw
4538 2. the target address if known
4539 3. a flag -- not sure what this is. pai/1997-07-17 */
4540 event_kind
= read_register (ARG0_REGNUM
);
4541 catch_addr
= read_register (ARG1_REGNUM
);
4543 /* Now go down to a user frame */
4544 /* For a throw, __d_eh_break is called by
4545 __d_eh_notify_callback which is called by
4546 __notify_throw which is called
4548 For a catch, __d_eh_break is called by
4549 __d_eh_notify_callback which is called by
4550 <stackwalking stuff> which is called by
4551 __throw__<stuff> or __rethrow_<stuff> which is called
4553 /* FIXME: Don't use such magic numbers; search for the frames */
4554 level
= (event_kind
== EX_EVENT_THROW
) ? 3 : 4;
4555 fi
= find_relative_frame (curr_frame
, &level
);
4557 return (struct exception_event_record
*) NULL
;
4560 throw_addr
= get_frame_pc (fi
);
4562 /* Go back to original (top) frame */
4563 select_frame (curr_frame
);
4565 current_ex_event
.kind
= (enum exception_event_kind
) event_kind
;
4566 current_ex_event
.throw_sal
= find_pc_line (throw_addr
, 1);
4567 current_ex_event
.catch_sal
= find_pc_line (catch_addr
, 1);
4569 return ¤t_ex_event
;
4572 /* Instead of this nasty cast, add a method pvoid() that prints out a
4573 host VOID data type (remember %p isn't portable). */
4576 hppa_pointer_to_address_hack (void *ptr
)
4578 gdb_assert (sizeof (ptr
) == TYPE_LENGTH (builtin_type_void_data_ptr
));
4579 return POINTER_TO_ADDRESS (builtin_type_void_data_ptr
, &ptr
);
4583 unwind_command (char *exp
, int from_tty
)
4586 struct unwind_table_entry
*u
;
4588 /* If we have an expression, evaluate it and use it as the address. */
4590 if (exp
!= 0 && *exp
!= 0)
4591 address
= parse_and_eval_address (exp
);
4595 u
= find_unwind_entry (address
);
4599 printf_unfiltered ("Can't find unwind table entry for %s\n", exp
);
4603 printf_unfiltered ("unwind_table_entry (0x%s):\n",
4604 paddr_nz (hppa_pointer_to_address_hack (u
)));
4606 printf_unfiltered ("\tregion_start = ");
4607 print_address (u
->region_start
, gdb_stdout
);
4609 printf_unfiltered ("\n\tregion_end = ");
4610 print_address (u
->region_end
, gdb_stdout
);
4612 #define pif(FLD) if (u->FLD) printf_unfiltered (" "#FLD);
4614 printf_unfiltered ("\n\tflags =");
4615 pif (Cannot_unwind
);
4617 pif (Millicode_save_sr0
);
4620 pif (Variable_Frame
);
4621 pif (Separate_Package_Body
);
4622 pif (Frame_Extension_Millicode
);
4623 pif (Stack_Overflow_Check
);
4624 pif (Two_Instruction_SP_Increment
);
4628 pif (Save_MRP_in_frame
);
4629 pif (extn_ptr_defined
);
4630 pif (Cleanup_defined
);
4631 pif (MPE_XL_interrupt_marker
);
4632 pif (HP_UX_interrupt_marker
);
4635 putchar_unfiltered ('\n');
4637 #define pin(FLD) printf_unfiltered ("\t"#FLD" = 0x%x\n", u->FLD);
4639 pin (Region_description
);
4642 pin (Total_frame_size
);
4645 #ifdef PREPARE_TO_PROCEED
4647 /* If the user has switched threads, and there is a breakpoint
4648 at the old thread's pc location, then switch to that thread
4649 and return TRUE, else return FALSE and don't do a thread
4650 switch (or rather, don't seem to have done a thread switch).
4652 Ptrace-based gdb will always return FALSE to the thread-switch
4653 query, and thus also to PREPARE_TO_PROCEED.
4655 The important thing is whether there is a BPT instruction,
4656 not how many user breakpoints there are. So we have to worry
4657 about things like these:
4661 o User hits bp, no switch -- NO
4663 o User hits bp, switches threads -- YES
4665 o User hits bp, deletes bp, switches threads -- NO
4667 o User hits bp, deletes one of two or more bps
4668 at that PC, user switches threads -- YES
4670 o Plus, since we're buffering events, the user may have hit a
4671 breakpoint, deleted the breakpoint and then gotten another
4672 hit on that same breakpoint on another thread which
4673 actually hit before the delete. (FIXME in breakpoint.c
4674 so that "dead" breakpoints are ignored?) -- NO
4676 For these reasons, we have to violate information hiding and
4677 call "breakpoint_here_p". If core gdb thinks there is a bpt
4678 here, that's what counts, as core gdb is the one which is
4679 putting the BPT instruction in and taking it out.
4681 Note that this implementation is potentially redundant now that
4682 default_prepare_to_proceed() has been added.
4684 FIXME This may not support switching threads after Ctrl-C
4685 correctly. The default implementation does support this. */
4687 hppa_prepare_to_proceed (void)
4690 pid_t current_thread
;
4692 old_thread
= hppa_switched_threads (PIDGET (inferior_ptid
));
4693 if (old_thread
!= 0)
4695 /* Switched over from "old_thread". Try to do
4696 as little work as possible, 'cause mostly
4697 we're going to switch back. */
4699 CORE_ADDR old_pc
= read_pc ();
4701 /* Yuk, shouldn't use global to specify current
4702 thread. But that's how gdb does it. */
4703 current_thread
= PIDGET (inferior_ptid
);
4704 inferior_ptid
= pid_to_ptid (old_thread
);
4706 new_pc
= read_pc ();
4707 if (new_pc
!= old_pc
/* If at same pc, no need */
4708 && breakpoint_here_p (new_pc
))
4710 /* User hasn't deleted the BP.
4711 Return TRUE, finishing switch to "old_thread". */
4712 flush_cached_frames ();
4713 registers_changed ();
4715 printf ("---> PREPARE_TO_PROCEED (was %d, now %d)!\n",
4716 current_thread
, PIDGET (inferior_ptid
));
4722 /* Otherwise switch back to the user-chosen thread. */
4723 inferior_ptid
= pid_to_ptid (current_thread
);
4724 new_pc
= read_pc (); /* Re-prime register cache */
4729 #endif /* PREPARE_TO_PROCEED */
4732 hppa_skip_permanent_breakpoint (void)
4734 /* To step over a breakpoint instruction on the PA takes some
4735 fiddling with the instruction address queue.
4737 When we stop at a breakpoint, the IA queue front (the instruction
4738 we're executing now) points at the breakpoint instruction, and
4739 the IA queue back (the next instruction to execute) points to
4740 whatever instruction we would execute after the breakpoint, if it
4741 were an ordinary instruction. This is the case even if the
4742 breakpoint is in the delay slot of a branch instruction.
4744 Clearly, to step past the breakpoint, we need to set the queue
4745 front to the back. But what do we put in the back? What
4746 instruction comes after that one? Because of the branch delay
4747 slot, the next insn is always at the back + 4. */
4748 write_register (PCOQ_HEAD_REGNUM
, read_register (PCOQ_TAIL_REGNUM
));
4749 write_register (PCSQ_HEAD_REGNUM
, read_register (PCSQ_TAIL_REGNUM
));
4751 write_register (PCOQ_TAIL_REGNUM
, read_register (PCOQ_TAIL_REGNUM
) + 4);
4752 /* We can leave the tail's space the same, since there's no jump. */
4755 /* Copy the function value from VALBUF into the proper location
4756 for a function return.
4758 Called only in the context of the "return" command. */
4761 hppa_store_return_value (struct type
*type
, char *valbuf
)
4763 /* For software floating point, the return value goes into the
4764 integer registers. But we do not have any flag to key this on,
4765 so we always store the value into the integer registers.
4767 If its a float value, then we also store it into the floating
4769 deprecated_write_register_bytes (REGISTER_BYTE (28)
4770 + (TYPE_LENGTH (type
) > 4
4771 ? (8 - TYPE_LENGTH (type
))
4772 : (4 - TYPE_LENGTH (type
))),
4773 valbuf
, TYPE_LENGTH (type
));
4774 if (TYPE_CODE (type
) == TYPE_CODE_FLT
)
4775 deprecated_write_register_bytes (REGISTER_BYTE (FP4_REGNUM
),
4776 valbuf
, TYPE_LENGTH (type
));
4779 /* Copy the function's return value into VALBUF.
4781 This function is called only in the context of "target function calls",
4782 ie. when the debugger forces a function to be called in the child, and
4783 when the debugger forces a fucntion to return prematurely via the
4784 "return" command. */
4787 hppa_extract_return_value (struct type
*type
, char *regbuf
, char *valbuf
)
4789 if (TYPE_CODE (type
) == TYPE_CODE_FLT
)
4791 (char *)regbuf
+ REGISTER_BYTE (FP4_REGNUM
),
4792 TYPE_LENGTH (type
));
4796 + REGISTER_BYTE (28)
4797 + (TYPE_LENGTH (type
) > 4
4798 ? (8 - TYPE_LENGTH (type
))
4799 : (4 - TYPE_LENGTH (type
)))),
4800 TYPE_LENGTH (type
));
4804 hppa_reg_struct_has_addr (int gcc_p
, struct type
*type
)
4806 /* On the PA, any pass-by-value structure > 8 bytes is actually passed
4807 via a pointer regardless of its type or the compiler used. */
4808 return (TYPE_LENGTH (type
) > 8);
4812 hppa_inner_than (CORE_ADDR lhs
, CORE_ADDR rhs
)
4814 /* Stack grows upward */
4819 hppa_stack_align (CORE_ADDR sp
)
4821 /* elz: adjust the quantity to the next highest value which is
4822 64-bit aligned. This is used in valops.c, when the sp is adjusted.
4823 On hppa the sp must always be kept 64-bit aligned */
4824 return ((sp
% 8) ? (sp
+ 7) & -8 : sp
);
4828 hppa_pc_requires_run_before_use (CORE_ADDR pc
)
4830 /* Sometimes we may pluck out a minimal symbol that has a negative address.
4832 An example of this occurs when an a.out is linked against a foo.sl.
4833 The foo.sl defines a global bar(), and the a.out declares a signature
4834 for bar(). However, the a.out doesn't directly call bar(), but passes
4835 its address in another call.
4837 If you have this scenario and attempt to "break bar" before running,
4838 gdb will find a minimal symbol for bar() in the a.out. But that
4839 symbol's address will be negative. What this appears to denote is
4840 an index backwards from the base of the procedure linkage table (PLT)
4841 into the data linkage table (DLT), the end of which is contiguous
4842 with the start of the PLT. This is clearly not a valid address for
4843 us to set a breakpoint on.
4845 Note that one must be careful in how one checks for a negative address.
4846 0xc0000000 is a legitimate address of something in a shared text
4847 segment, for example. Since I don't know what the possible range
4848 is of these "really, truly negative" addresses that come from the
4849 minimal symbols, I'm resorting to the gross hack of checking the
4850 top byte of the address for all 1's. Sigh. */
4852 return (!target_has_stack
&& (pc
& 0xFF000000));
4856 hppa_instruction_nullified (void)
4858 /* brobecker 2002/11/07: Couldn't we use a ULONGEST here? It would
4859 avoid the type cast. I'm leaving it as is for now as I'm doing
4860 semi-mechanical multiarching-related changes. */
4861 const int ipsw
= (int) read_register (IPSW_REGNUM
);
4862 const int flags
= (int) read_register (FLAGS_REGNUM
);
4864 return ((ipsw
& 0x00200000) && !(flags
& 0x2));
4868 hppa_register_raw_size (int reg_nr
)
4870 /* All registers have the same size. */
4871 return DEPRECATED_REGISTER_SIZE
;
4874 /* Index within the register vector of the first byte of the space i
4875 used for register REG_NR. */
4878 hppa_register_byte (int reg_nr
)
4883 /* Return the GDB type object for the "standard" data type of data
4887 hppa_register_virtual_type (int reg_nr
)
4889 if (reg_nr
< FP4_REGNUM
)
4890 return builtin_type_int
;
4892 return builtin_type_float
;
4895 /* Store the address of the place in which to copy the structure the
4896 subroutine will return. This is called from call_function. */
4899 hppa_store_struct_return (CORE_ADDR addr
, CORE_ADDR sp
)
4901 write_register (28, addr
);
4905 hppa_extract_struct_value_address (char *regbuf
)
4907 /* Extract from an array REGBUF containing the (raw) register state
4908 the address in which a function should return its structure value,
4909 as a CORE_ADDR (or an expression that can be used as one). */
4910 /* FIXME: brobecker 2002-12-26.
4911 The current implementation is historical, but we should eventually
4912 implement it in a more robust manner as it relies on the fact that
4913 the address size is equal to the size of an int* _on the host_...
4914 One possible implementation that crossed my mind is to use
4916 return (*(int *)(regbuf
+ REGISTER_BYTE (28)));
4919 /* Return True if REGNUM is not a register available to the user
4920 through ptrace(). */
4923 hppa_cannot_store_register (int regnum
)
4926 || regnum
== PCSQ_HEAD_REGNUM
4927 || (regnum
>= PCSQ_TAIL_REGNUM
&& regnum
< IPSW_REGNUM
)
4928 || (regnum
> IPSW_REGNUM
&& regnum
< FP4_REGNUM
));
4933 hppa_frame_args_address (struct frame_info
*fi
)
4935 return get_frame_base (fi
);
4939 hppa_frame_locals_address (struct frame_info
*fi
)
4941 return get_frame_base (fi
);
4945 hppa_frame_num_args (struct frame_info
*frame
)
4947 /* We can't tell how many args there are now that the C compiler delays
4953 hppa_smash_text_address (CORE_ADDR addr
)
4955 /* The low two bits of the PC on the PA contain the privilege level.
4956 Some genius implementing a (non-GCC) compiler apparently decided
4957 this means that "addresses" in a text section therefore include a
4958 privilege level, and thus symbol tables should contain these bits.
4959 This seems like a bonehead thing to do--anyway, it seems to work
4960 for our purposes to just ignore those bits. */
4962 return (addr
&= ~0x3);
4965 static struct gdbarch
*
4966 hppa_gdbarch_init (struct gdbarch_info info
, struct gdbarch_list
*arches
)
4968 struct gdbarch
*gdbarch
;
4970 /* Try to determine the ABI of the object we are loading. */
4971 if (info
.abfd
!= NULL
&& info
.osabi
== GDB_OSABI_UNKNOWN
)
4973 /* If it's a SOM file, assume it's HP/UX SOM. */
4974 if (bfd_get_flavour (info
.abfd
) == bfd_target_som_flavour
)
4975 info
.osabi
= GDB_OSABI_HPUX_SOM
;
4978 /* find a candidate among the list of pre-declared architectures. */
4979 arches
= gdbarch_list_lookup_by_info (arches
, &info
);
4981 return (arches
->gdbarch
);
4983 /* If none found, then allocate and initialize one. */
4984 gdbarch
= gdbarch_alloc (&info
, NULL
);
4986 /* Hook in ABI-specific overrides, if they have been registered. */
4987 gdbarch_init_osabi (info
, gdbarch
);
4989 set_gdbarch_reg_struct_has_addr (gdbarch
, hppa_reg_struct_has_addr
);
4990 set_gdbarch_function_start_offset (gdbarch
, 0);
4991 set_gdbarch_skip_prologue (gdbarch
, hppa_skip_prologue
);
4992 set_gdbarch_skip_trampoline_code (gdbarch
, hppa_skip_trampoline_code
);
4993 set_gdbarch_in_solib_call_trampoline (gdbarch
, hppa_in_solib_call_trampoline
);
4994 set_gdbarch_in_solib_return_trampoline (gdbarch
,
4995 hppa_in_solib_return_trampoline
);
4996 set_gdbarch_deprecated_saved_pc_after_call (gdbarch
, hppa_saved_pc_after_call
);
4997 set_gdbarch_inner_than (gdbarch
, hppa_inner_than
);
4998 set_gdbarch_stack_align (gdbarch
, hppa_stack_align
);
4999 set_gdbarch_decr_pc_after_break (gdbarch
, 0);
5000 set_gdbarch_deprecated_register_size (gdbarch
, 4);
5001 set_gdbarch_num_regs (gdbarch
, hppa_num_regs
);
5002 set_gdbarch_deprecated_fp_regnum (gdbarch
, 3);
5003 set_gdbarch_sp_regnum (gdbarch
, 30);
5004 set_gdbarch_fp0_regnum (gdbarch
, 64);
5005 set_gdbarch_pc_regnum (gdbarch
, PCOQ_HEAD_REGNUM
);
5006 set_gdbarch_npc_regnum (gdbarch
, PCOQ_TAIL_REGNUM
);
5007 set_gdbarch_register_raw_size (gdbarch
, hppa_register_raw_size
);
5008 set_gdbarch_register_bytes (gdbarch
, hppa_num_regs
* 4);
5009 set_gdbarch_register_byte (gdbarch
, hppa_register_byte
);
5010 set_gdbarch_register_virtual_size (gdbarch
, hppa_register_raw_size
);
5011 set_gdbarch_deprecated_max_register_raw_size (gdbarch
, 4);
5012 set_gdbarch_deprecated_max_register_virtual_size (gdbarch
, 8);
5013 set_gdbarch_register_virtual_type (gdbarch
, hppa_register_virtual_type
);
5014 set_gdbarch_deprecated_store_struct_return (gdbarch
, hppa_store_struct_return
);
5015 set_gdbarch_deprecated_extract_return_value (gdbarch
,
5016 hppa_extract_return_value
);
5017 set_gdbarch_use_struct_convention (gdbarch
, hppa_use_struct_convention
);
5018 set_gdbarch_deprecated_store_return_value (gdbarch
, hppa_store_return_value
);
5019 set_gdbarch_deprecated_extract_struct_value_address
5020 (gdbarch
, hppa_extract_struct_value_address
);
5021 set_gdbarch_cannot_store_register (gdbarch
, hppa_cannot_store_register
);
5022 set_gdbarch_deprecated_init_extra_frame_info (gdbarch
, hppa_init_extra_frame_info
);
5023 set_gdbarch_deprecated_frame_chain (gdbarch
, hppa_frame_chain
);
5024 set_gdbarch_deprecated_frame_chain_valid (gdbarch
, hppa_frame_chain_valid
);
5025 set_gdbarch_frameless_function_invocation
5026 (gdbarch
, hppa_frameless_function_invocation
);
5027 set_gdbarch_deprecated_frame_saved_pc (gdbarch
, hppa_frame_saved_pc
);
5028 set_gdbarch_frame_args_address (gdbarch
, hppa_frame_args_address
);
5029 set_gdbarch_frame_locals_address (gdbarch
, hppa_frame_locals_address
);
5030 set_gdbarch_frame_num_args (gdbarch
, hppa_frame_num_args
);
5031 set_gdbarch_frame_args_skip (gdbarch
, 0);
5032 set_gdbarch_deprecated_push_dummy_frame (gdbarch
, hppa_push_dummy_frame
);
5033 set_gdbarch_deprecated_pop_frame (gdbarch
, hppa_pop_frame
);
5034 set_gdbarch_deprecated_call_dummy_length (gdbarch
, INSTRUCTION_SIZE
* 28);
5035 /* set_gdbarch_deprecated_fix_call_dummy (gdbarch, hppa_fix_call_dummy); */
5036 set_gdbarch_deprecated_push_arguments (gdbarch
, hppa_push_arguments
);
5037 set_gdbarch_smash_text_address (gdbarch
, hppa_smash_text_address
);
5038 set_gdbarch_believe_pcc_promotion (gdbarch
, 1);
5039 set_gdbarch_read_pc (gdbarch
, hppa_target_read_pc
);
5040 set_gdbarch_write_pc (gdbarch
, hppa_target_write_pc
);
5041 set_gdbarch_deprecated_target_read_fp (gdbarch
, hppa_target_read_fp
);
5047 hppa_dump_tdep (struct gdbarch
*current_gdbarch
, struct ui_file
*file
)
5049 /* Nothing to print for the moment. */
5053 _initialize_hppa_tdep (void)
5055 struct cmd_list_element
*c
;
5056 void break_at_finish_command (char *arg
, int from_tty
);
5057 void tbreak_at_finish_command (char *arg
, int from_tty
);
5058 void break_at_finish_at_depth_command (char *arg
, int from_tty
);
5060 gdbarch_register (bfd_arch_hppa
, hppa_gdbarch_init
, hppa_dump_tdep
);
5061 deprecated_tm_print_insn
= print_insn_hppa
;
5063 add_cmd ("unwind", class_maintenance
, unwind_command
,
5064 "Print unwind table entry at given address.",
5065 &maintenanceprintlist
);
5067 deprecate_cmd (add_com ("xbreak", class_breakpoint
,
5068 break_at_finish_command
,
5069 concat ("Set breakpoint at procedure exit. \n\
5070 Argument may be function name, or \"*\" and an address.\n\
5071 If function is specified, break at end of code for that function.\n\
5072 If an address is specified, break at the end of the function that contains \n\
5073 that exact address.\n",
5074 "With no arg, uses current execution address of selected stack frame.\n\
5075 This is useful for breaking on return to a stack frame.\n\
5077 Multiple breakpoints at one place are permitted, and useful if conditional.\n\
5079 Do \"help breakpoints\" for info on other commands dealing with breakpoints.", NULL
)), NULL
);
5080 deprecate_cmd (add_com_alias ("xb", "xbreak", class_breakpoint
, 1), NULL
);
5081 deprecate_cmd (add_com_alias ("xbr", "xbreak", class_breakpoint
, 1), NULL
);
5082 deprecate_cmd (add_com_alias ("xbre", "xbreak", class_breakpoint
, 1), NULL
);
5083 deprecate_cmd (add_com_alias ("xbrea", "xbreak", class_breakpoint
, 1), NULL
);
5085 deprecate_cmd (c
= add_com ("txbreak", class_breakpoint
,
5086 tbreak_at_finish_command
,
5087 "Set temporary breakpoint at procedure exit. Either there should\n\
5088 be no argument or the argument must be a depth.\n"), NULL
);
5089 set_cmd_completer (c
, location_completer
);
5092 deprecate_cmd (add_com ("bx", class_breakpoint
,
5093 break_at_finish_at_depth_command
,
5094 "Set breakpoint at procedure exit. Either there should\n\
5095 be no argument or the argument must be a depth.\n"), NULL
);