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 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 /* For argument passing to the inferior */
39 #include <sys/types.h>
43 #include <sys/param.h>
46 #include <sys/ptrace.h>
47 #include <machine/save_state.h>
49 #ifdef COFF_ENCAPSULATE
50 #include "a.out.encap.h"
54 /*#include <sys/user.h> After a.out.h */
65 /* To support detection of the pseudo-initial frame
67 #define THREAD_INITIAL_FRAME_SYMBOL "__pthread_exit"
68 #define THREAD_INITIAL_FRAME_SYM_LEN sizeof(THREAD_INITIAL_FRAME_SYMBOL)
70 static int extract_5_load (unsigned int);
72 static unsigned extract_5R_store (unsigned int);
74 static unsigned extract_5r_store (unsigned int);
76 static void find_dummy_frame_regs (struct frame_info
*,
77 struct frame_saved_regs
*);
79 static int find_proc_framesize (CORE_ADDR
);
81 static int find_return_regnum (CORE_ADDR
);
83 struct unwind_table_entry
*find_unwind_entry (CORE_ADDR
);
85 static int extract_17 (unsigned int);
87 static unsigned deposit_21 (unsigned int, unsigned int);
89 static int extract_21 (unsigned);
91 static unsigned deposit_14 (int, unsigned int);
93 static int extract_14 (unsigned);
95 static void unwind_command (char *, int);
97 static int low_sign_extend (unsigned int, unsigned int);
99 static int sign_extend (unsigned int, unsigned int);
101 static int restore_pc_queue (struct frame_saved_regs
*);
103 static int hppa_alignof (struct type
*);
105 /* To support multi-threading and stepping. */
106 int hppa_prepare_to_proceed ();
108 static int prologue_inst_adjust_sp (unsigned long);
110 static int is_branch (unsigned long);
112 static int inst_saves_gr (unsigned long);
114 static int inst_saves_fr (unsigned long);
116 static int pc_in_interrupt_handler (CORE_ADDR
);
118 static int pc_in_linker_stub (CORE_ADDR
);
120 static int compare_unwind_entries (const void *, const void *);
122 static void read_unwind_info (struct objfile
*);
124 static void internalize_unwinds (struct objfile
*,
125 struct unwind_table_entry
*,
126 asection
*, unsigned int,
127 unsigned int, CORE_ADDR
);
128 static void pa_print_registers (char *, int, int);
129 static void pa_strcat_registers (char *, int, int, struct ui_file
*);
130 static void pa_register_look_aside (char *, int, long *);
131 static void pa_print_fp_reg (int);
132 static void pa_strcat_fp_reg (int, struct ui_file
*, enum precision_type
);
133 static void record_text_segment_lowaddr (bfd
*, asection
*, void *);
134 /* FIXME: brobecker 2002-11-07: We will likely be able to make the
135 following functions static, once we hppa is partially multiarched. */
136 int hppa_reg_struct_has_addr (int gcc_p
, struct type
*type
);
137 int hppa_inner_than (CORE_ADDR lhs
, CORE_ADDR rhs
);
138 CORE_ADDR
hppa_stack_align (CORE_ADDR sp
);
139 int hppa_pc_requires_run_before_use (CORE_ADDR pc
);
140 int hppa_instruction_nullified (void);
141 int hppa_register_byte (int reg_nr
);
142 struct type
* hppa_register_virtual_type (int reg_nr
);
143 void hppa_store_struct_return (CORE_ADDR addr
, CORE_ADDR sp
);
144 int hppa_cannot_store_register (int regnum
);
145 CORE_ADDR
hppa_frame_args_address (struct frame_info
*fi
);
146 CORE_ADDR
hppa_frame_locals_address (struct frame_info
*fi
);
147 CORE_ADDR
hppa_smash_text_address (CORE_ADDR addr
);
148 int hppa_coerce_float_to_double (struct type
*formal
, struct type
*actual
);
152 struct minimal_symbol
*msym
;
153 CORE_ADDR solib_handle
;
154 CORE_ADDR return_val
;
158 static int cover_find_stub_with_shl_get (PTR
);
160 static int is_pa_2
= 0; /* False */
162 /* This is declared in symtab.c; set to 1 in hp-symtab-read.c */
163 extern int hp_som_som_object_present
;
165 /* In breakpoint.c */
166 extern int exception_catchpoints_are_fragile
;
168 /* Should call_function allocate stack space for a struct return? */
171 hppa_use_struct_convention (int gcc_p
, struct type
*type
)
173 return (TYPE_LENGTH (type
) > 2 * REGISTER_SIZE
);
177 /* Routines to extract various sized constants out of hppa
180 /* This assumes that no garbage lies outside of the lower bits of
184 sign_extend (unsigned val
, unsigned bits
)
186 return (int) (val
>> (bits
- 1) ? (-1 << bits
) | val
: val
);
189 /* For many immediate values the sign bit is the low bit! */
192 low_sign_extend (unsigned val
, unsigned bits
)
194 return (int) ((val
& 0x1 ? (-1 << (bits
- 1)) : 0) | val
>> 1);
197 /* extract the immediate field from a ld{bhw}s instruction */
200 extract_5_load (unsigned word
)
202 return low_sign_extend (word
>> 16 & MASK_5
, 5);
205 /* extract the immediate field from a break instruction */
208 extract_5r_store (unsigned word
)
210 return (word
& MASK_5
);
213 /* extract the immediate field from a {sr}sm instruction */
216 extract_5R_store (unsigned word
)
218 return (word
>> 16 & MASK_5
);
221 /* extract a 14 bit immediate field */
224 extract_14 (unsigned word
)
226 return low_sign_extend (word
& MASK_14
, 14);
229 /* deposit a 14 bit constant in a word */
232 deposit_14 (int opnd
, unsigned word
)
234 unsigned sign
= (opnd
< 0 ? 1 : 0);
236 return word
| ((unsigned) opnd
<< 1 & MASK_14
) | sign
;
239 /* extract a 21 bit constant */
242 extract_21 (unsigned word
)
248 val
= GET_FIELD (word
, 20, 20);
250 val
|= GET_FIELD (word
, 9, 19);
252 val
|= GET_FIELD (word
, 5, 6);
254 val
|= GET_FIELD (word
, 0, 4);
256 val
|= GET_FIELD (word
, 7, 8);
257 return sign_extend (val
, 21) << 11;
260 /* deposit a 21 bit constant in a word. Although 21 bit constants are
261 usually the top 21 bits of a 32 bit constant, we assume that only
262 the low 21 bits of opnd are relevant */
265 deposit_21 (unsigned opnd
, unsigned word
)
269 val
|= GET_FIELD (opnd
, 11 + 14, 11 + 18);
271 val
|= GET_FIELD (opnd
, 11 + 12, 11 + 13);
273 val
|= GET_FIELD (opnd
, 11 + 19, 11 + 20);
275 val
|= GET_FIELD (opnd
, 11 + 1, 11 + 11);
277 val
|= GET_FIELD (opnd
, 11 + 0, 11 + 0);
281 /* extract a 17 bit constant from branch instructions, returning the
282 19 bit signed value. */
285 extract_17 (unsigned word
)
287 return sign_extend (GET_FIELD (word
, 19, 28) |
288 GET_FIELD (word
, 29, 29) << 10 |
289 GET_FIELD (word
, 11, 15) << 11 |
290 (word
& 0x1) << 16, 17) << 2;
294 /* Compare the start address for two unwind entries returning 1 if
295 the first address is larger than the second, -1 if the second is
296 larger than the first, and zero if they are equal. */
299 compare_unwind_entries (const void *arg1
, const void *arg2
)
301 const struct unwind_table_entry
*a
= arg1
;
302 const struct unwind_table_entry
*b
= arg2
;
304 if (a
->region_start
> b
->region_start
)
306 else if (a
->region_start
< b
->region_start
)
312 static CORE_ADDR low_text_segment_address
;
315 record_text_segment_lowaddr (bfd
*abfd
, asection
*section
, void *ignored
)
317 if (((section
->flags
& (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
))
318 == (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
))
319 && section
->vma
< low_text_segment_address
)
320 low_text_segment_address
= section
->vma
;
324 internalize_unwinds (struct objfile
*objfile
, struct unwind_table_entry
*table
,
325 asection
*section
, unsigned int entries
, unsigned int size
,
326 CORE_ADDR text_offset
)
328 /* We will read the unwind entries into temporary memory, then
329 fill in the actual unwind table. */
334 char *buf
= alloca (size
);
336 low_text_segment_address
= -1;
338 /* If addresses are 64 bits wide, then unwinds are supposed to
339 be segment relative offsets instead of absolute addresses.
341 Note that when loading a shared library (text_offset != 0) the
342 unwinds are already relative to the text_offset that will be
344 if (TARGET_PTR_BIT
== 64 && text_offset
== 0)
346 bfd_map_over_sections (objfile
->obfd
,
347 record_text_segment_lowaddr
, (PTR
) NULL
);
349 /* ?!? Mask off some low bits. Should this instead subtract
350 out the lowest section's filepos or something like that?
351 This looks very hokey to me. */
352 low_text_segment_address
&= ~0xfff;
353 text_offset
+= low_text_segment_address
;
356 bfd_get_section_contents (objfile
->obfd
, section
, buf
, 0, size
);
358 /* Now internalize the information being careful to handle host/target
360 for (i
= 0; i
< entries
; i
++)
362 table
[i
].region_start
= bfd_get_32 (objfile
->obfd
,
364 table
[i
].region_start
+= text_offset
;
366 table
[i
].region_end
= bfd_get_32 (objfile
->obfd
, (bfd_byte
*) buf
);
367 table
[i
].region_end
+= text_offset
;
369 tmp
= bfd_get_32 (objfile
->obfd
, (bfd_byte
*) buf
);
371 table
[i
].Cannot_unwind
= (tmp
>> 31) & 0x1;
372 table
[i
].Millicode
= (tmp
>> 30) & 0x1;
373 table
[i
].Millicode_save_sr0
= (tmp
>> 29) & 0x1;
374 table
[i
].Region_description
= (tmp
>> 27) & 0x3;
375 table
[i
].reserved1
= (tmp
>> 26) & 0x1;
376 table
[i
].Entry_SR
= (tmp
>> 25) & 0x1;
377 table
[i
].Entry_FR
= (tmp
>> 21) & 0xf;
378 table
[i
].Entry_GR
= (tmp
>> 16) & 0x1f;
379 table
[i
].Args_stored
= (tmp
>> 15) & 0x1;
380 table
[i
].Variable_Frame
= (tmp
>> 14) & 0x1;
381 table
[i
].Separate_Package_Body
= (tmp
>> 13) & 0x1;
382 table
[i
].Frame_Extension_Millicode
= (tmp
>> 12) & 0x1;
383 table
[i
].Stack_Overflow_Check
= (tmp
>> 11) & 0x1;
384 table
[i
].Two_Instruction_SP_Increment
= (tmp
>> 10) & 0x1;
385 table
[i
].Ada_Region
= (tmp
>> 9) & 0x1;
386 table
[i
].cxx_info
= (tmp
>> 8) & 0x1;
387 table
[i
].cxx_try_catch
= (tmp
>> 7) & 0x1;
388 table
[i
].sched_entry_seq
= (tmp
>> 6) & 0x1;
389 table
[i
].reserved2
= (tmp
>> 5) & 0x1;
390 table
[i
].Save_SP
= (tmp
>> 4) & 0x1;
391 table
[i
].Save_RP
= (tmp
>> 3) & 0x1;
392 table
[i
].Save_MRP_in_frame
= (tmp
>> 2) & 0x1;
393 table
[i
].extn_ptr_defined
= (tmp
>> 1) & 0x1;
394 table
[i
].Cleanup_defined
= tmp
& 0x1;
395 tmp
= bfd_get_32 (objfile
->obfd
, (bfd_byte
*) buf
);
397 table
[i
].MPE_XL_interrupt_marker
= (tmp
>> 31) & 0x1;
398 table
[i
].HP_UX_interrupt_marker
= (tmp
>> 30) & 0x1;
399 table
[i
].Large_frame
= (tmp
>> 29) & 0x1;
400 table
[i
].Pseudo_SP_Set
= (tmp
>> 28) & 0x1;
401 table
[i
].reserved4
= (tmp
>> 27) & 0x1;
402 table
[i
].Total_frame_size
= tmp
& 0x7ffffff;
404 /* Stub unwinds are handled elsewhere. */
405 table
[i
].stub_unwind
.stub_type
= 0;
406 table
[i
].stub_unwind
.padding
= 0;
411 /* Read in the backtrace information stored in the `$UNWIND_START$' section of
412 the object file. This info is used mainly by find_unwind_entry() to find
413 out the stack frame size and frame pointer used by procedures. We put
414 everything on the psymbol obstack in the objfile so that it automatically
415 gets freed when the objfile is destroyed. */
418 read_unwind_info (struct objfile
*objfile
)
420 asection
*unwind_sec
, *stub_unwind_sec
;
421 unsigned unwind_size
, stub_unwind_size
, total_size
;
422 unsigned index
, unwind_entries
;
423 unsigned stub_entries
, total_entries
;
424 CORE_ADDR text_offset
;
425 struct obj_unwind_info
*ui
;
426 obj_private_data_t
*obj_private
;
428 text_offset
= ANOFFSET (objfile
->section_offsets
, 0);
429 ui
= (struct obj_unwind_info
*) obstack_alloc (&objfile
->psymbol_obstack
,
430 sizeof (struct obj_unwind_info
));
436 /* For reasons unknown the HP PA64 tools generate multiple unwinder
437 sections in a single executable. So we just iterate over every
438 section in the BFD looking for unwinder sections intead of trying
439 to do a lookup with bfd_get_section_by_name.
441 First determine the total size of the unwind tables so that we
442 can allocate memory in a nice big hunk. */
444 for (unwind_sec
= objfile
->obfd
->sections
;
446 unwind_sec
= unwind_sec
->next
)
448 if (strcmp (unwind_sec
->name
, "$UNWIND_START$") == 0
449 || strcmp (unwind_sec
->name
, ".PARISC.unwind") == 0)
451 unwind_size
= bfd_section_size (objfile
->obfd
, unwind_sec
);
452 unwind_entries
= unwind_size
/ UNWIND_ENTRY_SIZE
;
454 total_entries
+= unwind_entries
;
458 /* Now compute the size of the stub unwinds. Note the ELF tools do not
459 use stub unwinds at the curren time. */
460 stub_unwind_sec
= bfd_get_section_by_name (objfile
->obfd
, "$UNWIND_END$");
464 stub_unwind_size
= bfd_section_size (objfile
->obfd
, stub_unwind_sec
);
465 stub_entries
= stub_unwind_size
/ STUB_UNWIND_ENTRY_SIZE
;
469 stub_unwind_size
= 0;
473 /* Compute total number of unwind entries and their total size. */
474 total_entries
+= stub_entries
;
475 total_size
= total_entries
* sizeof (struct unwind_table_entry
);
477 /* Allocate memory for the unwind table. */
478 ui
->table
= (struct unwind_table_entry
*)
479 obstack_alloc (&objfile
->psymbol_obstack
, total_size
);
480 ui
->last
= total_entries
- 1;
482 /* Now read in each unwind section and internalize the standard unwind
485 for (unwind_sec
= objfile
->obfd
->sections
;
487 unwind_sec
= unwind_sec
->next
)
489 if (strcmp (unwind_sec
->name
, "$UNWIND_START$") == 0
490 || strcmp (unwind_sec
->name
, ".PARISC.unwind") == 0)
492 unwind_size
= bfd_section_size (objfile
->obfd
, unwind_sec
);
493 unwind_entries
= unwind_size
/ UNWIND_ENTRY_SIZE
;
495 internalize_unwinds (objfile
, &ui
->table
[index
], unwind_sec
,
496 unwind_entries
, unwind_size
, text_offset
);
497 index
+= unwind_entries
;
501 /* Now read in and internalize the stub unwind entries. */
502 if (stub_unwind_size
> 0)
505 char *buf
= alloca (stub_unwind_size
);
507 /* Read in the stub unwind entries. */
508 bfd_get_section_contents (objfile
->obfd
, stub_unwind_sec
, buf
,
509 0, stub_unwind_size
);
511 /* Now convert them into regular unwind entries. */
512 for (i
= 0; i
< stub_entries
; i
++, index
++)
514 /* Clear out the next unwind entry. */
515 memset (&ui
->table
[index
], 0, sizeof (struct unwind_table_entry
));
517 /* Convert offset & size into region_start and region_end.
518 Stuff away the stub type into "reserved" fields. */
519 ui
->table
[index
].region_start
= bfd_get_32 (objfile
->obfd
,
521 ui
->table
[index
].region_start
+= text_offset
;
523 ui
->table
[index
].stub_unwind
.stub_type
= bfd_get_8 (objfile
->obfd
,
526 ui
->table
[index
].region_end
527 = ui
->table
[index
].region_start
+ 4 *
528 (bfd_get_16 (objfile
->obfd
, (bfd_byte
*) buf
) - 1);
534 /* Unwind table needs to be kept sorted. */
535 qsort (ui
->table
, total_entries
, sizeof (struct unwind_table_entry
),
536 compare_unwind_entries
);
538 /* Keep a pointer to the unwind information. */
539 if (objfile
->obj_private
== NULL
)
541 obj_private
= (obj_private_data_t
*)
542 obstack_alloc (&objfile
->psymbol_obstack
,
543 sizeof (obj_private_data_t
));
544 obj_private
->unwind_info
= NULL
;
545 obj_private
->so_info
= NULL
;
548 objfile
->obj_private
= (PTR
) obj_private
;
550 obj_private
= (obj_private_data_t
*) objfile
->obj_private
;
551 obj_private
->unwind_info
= ui
;
554 /* Lookup the unwind (stack backtrace) info for the given PC. We search all
555 of the objfiles seeking the unwind table entry for this PC. Each objfile
556 contains a sorted list of struct unwind_table_entry. Since we do a binary
557 search of the unwind tables, we depend upon them to be sorted. */
559 struct unwind_table_entry
*
560 find_unwind_entry (CORE_ADDR pc
)
562 int first
, middle
, last
;
563 struct objfile
*objfile
;
565 /* A function at address 0? Not in HP-UX! */
566 if (pc
== (CORE_ADDR
) 0)
569 ALL_OBJFILES (objfile
)
571 struct obj_unwind_info
*ui
;
573 if (objfile
->obj_private
)
574 ui
= ((obj_private_data_t
*) (objfile
->obj_private
))->unwind_info
;
578 read_unwind_info (objfile
);
579 if (objfile
->obj_private
== NULL
)
580 error ("Internal error reading unwind information.");
581 ui
= ((obj_private_data_t
*) (objfile
->obj_private
))->unwind_info
;
584 /* First, check the cache */
587 && pc
>= ui
->cache
->region_start
588 && pc
<= ui
->cache
->region_end
)
591 /* Not in the cache, do a binary search */
596 while (first
<= last
)
598 middle
= (first
+ last
) / 2;
599 if (pc
>= ui
->table
[middle
].region_start
600 && pc
<= ui
->table
[middle
].region_end
)
602 ui
->cache
= &ui
->table
[middle
];
603 return &ui
->table
[middle
];
606 if (pc
< ui
->table
[middle
].region_start
)
611 } /* ALL_OBJFILES() */
615 /* Return the adjustment necessary to make for addresses on the stack
616 as presented by hpread.c.
618 This is necessary because of the stack direction on the PA and the
619 bizarre way in which someone (?) decided they wanted to handle
620 frame pointerless code in GDB. */
622 hpread_adjust_stack_address (CORE_ADDR func_addr
)
624 struct unwind_table_entry
*u
;
626 u
= find_unwind_entry (func_addr
);
630 return u
->Total_frame_size
<< 3;
633 /* Called to determine if PC is in an interrupt handler of some
637 pc_in_interrupt_handler (CORE_ADDR pc
)
639 struct unwind_table_entry
*u
;
640 struct minimal_symbol
*msym_us
;
642 u
= find_unwind_entry (pc
);
646 /* Oh joys. HPUX sets the interrupt bit for _sigreturn even though
647 its frame isn't a pure interrupt frame. Deal with this. */
648 msym_us
= lookup_minimal_symbol_by_pc (pc
);
650 return (u
->HP_UX_interrupt_marker
651 && !PC_IN_SIGTRAMP (pc
, SYMBOL_NAME (msym_us
)));
654 /* Called when no unwind descriptor was found for PC. Returns 1 if it
655 appears that PC is in a linker stub.
657 ?!? Need to handle stubs which appear in PA64 code. */
660 pc_in_linker_stub (CORE_ADDR pc
)
662 int found_magic_instruction
= 0;
666 /* If unable to read memory, assume pc is not in a linker stub. */
667 if (target_read_memory (pc
, buf
, 4) != 0)
670 /* We are looking for something like
672 ; $$dyncall jams RP into this special spot in the frame (RP')
673 ; before calling the "call stub"
676 ldsid (rp),r1 ; Get space associated with RP into r1
677 mtsp r1,sp ; Move it into space register 0
678 be,n 0(sr0),rp) ; back to your regularly scheduled program */
680 /* Maximum known linker stub size is 4 instructions. Search forward
681 from the given PC, then backward. */
682 for (i
= 0; i
< 4; i
++)
684 /* If we hit something with an unwind, stop searching this direction. */
686 if (find_unwind_entry (pc
+ i
* 4) != 0)
689 /* Check for ldsid (rp),r1 which is the magic instruction for a
690 return from a cross-space function call. */
691 if (read_memory_integer (pc
+ i
* 4, 4) == 0x004010a1)
693 found_magic_instruction
= 1;
696 /* Add code to handle long call/branch and argument relocation stubs
700 if (found_magic_instruction
!= 0)
703 /* Now look backward. */
704 for (i
= 0; i
< 4; i
++)
706 /* If we hit something with an unwind, stop searching this direction. */
708 if (find_unwind_entry (pc
- i
* 4) != 0)
711 /* Check for ldsid (rp),r1 which is the magic instruction for a
712 return from a cross-space function call. */
713 if (read_memory_integer (pc
- i
* 4, 4) == 0x004010a1)
715 found_magic_instruction
= 1;
718 /* Add code to handle long call/branch and argument relocation stubs
721 return found_magic_instruction
;
725 find_return_regnum (CORE_ADDR pc
)
727 struct unwind_table_entry
*u
;
729 u
= find_unwind_entry (pc
);
740 /* Return size of frame, or -1 if we should use a frame pointer. */
742 find_proc_framesize (CORE_ADDR pc
)
744 struct unwind_table_entry
*u
;
745 struct minimal_symbol
*msym_us
;
747 /* This may indicate a bug in our callers... */
748 if (pc
== (CORE_ADDR
) 0)
751 u
= find_unwind_entry (pc
);
755 if (pc_in_linker_stub (pc
))
756 /* Linker stubs have a zero size frame. */
762 msym_us
= lookup_minimal_symbol_by_pc (pc
);
764 /* If Save_SP is set, and we're not in an interrupt or signal caller,
765 then we have a frame pointer. Use it. */
767 && !pc_in_interrupt_handler (pc
)
769 && !PC_IN_SIGTRAMP (pc
, SYMBOL_NAME (msym_us
)))
772 return u
->Total_frame_size
<< 3;
775 /* Return offset from sp at which rp is saved, or 0 if not saved. */
776 static int rp_saved (CORE_ADDR
);
779 rp_saved (CORE_ADDR pc
)
781 struct unwind_table_entry
*u
;
783 /* A function at, and thus a return PC from, address 0? Not in HP-UX! */
784 if (pc
== (CORE_ADDR
) 0)
787 u
= find_unwind_entry (pc
);
791 if (pc_in_linker_stub (pc
))
792 /* This is the so-called RP'. */
799 return (TARGET_PTR_BIT
== 64 ? -16 : -20);
800 else if (u
->stub_unwind
.stub_type
!= 0)
802 switch (u
->stub_unwind
.stub_type
)
807 case PARAMETER_RELOCATION
:
818 frameless_function_invocation (struct frame_info
*frame
)
820 struct unwind_table_entry
*u
;
822 u
= find_unwind_entry (frame
->pc
);
827 return (u
->Total_frame_size
== 0 && u
->stub_unwind
.stub_type
== 0);
830 /* Immediately after a function call, return the saved pc.
831 Can't go through the frames for this because on some machines
832 the new frame is not set up until the new function executes
833 some instructions. */
836 saved_pc_after_call (struct frame_info
*frame
)
840 struct unwind_table_entry
*u
;
842 ret_regnum
= find_return_regnum (get_frame_pc (frame
));
843 pc
= read_register (ret_regnum
) & ~0x3;
845 /* If PC is in a linker stub, then we need to dig the address
846 the stub will return to out of the stack. */
847 u
= find_unwind_entry (pc
);
848 if (u
&& u
->stub_unwind
.stub_type
!= 0)
849 return FRAME_SAVED_PC (frame
);
855 hppa_frame_saved_pc (struct frame_info
*frame
)
857 CORE_ADDR pc
= get_frame_pc (frame
);
858 struct unwind_table_entry
*u
;
860 int spun_around_loop
= 0;
863 /* BSD, HPUX & OSF1 all lay out the hardware state in the same manner
864 at the base of the frame in an interrupt handler. Registers within
865 are saved in the exact same order as GDB numbers registers. How
867 if (pc_in_interrupt_handler (pc
))
868 return read_memory_integer (frame
->frame
+ PC_REGNUM
* 4,
869 TARGET_PTR_BIT
/ 8) & ~0x3;
871 if ((frame
->pc
>= frame
->frame
872 && frame
->pc
<= (frame
->frame
873 /* A call dummy is sized in words, but it is
874 actually a series of instructions. Account
875 for that scaling factor. */
876 + ((REGISTER_SIZE
/ INSTRUCTION_SIZE
)
878 /* Similarly we have to account for 64bit
879 wide register saves. */
880 + (32 * REGISTER_SIZE
)
881 /* We always consider FP regs 8 bytes long. */
882 + (NUM_REGS
- FP0_REGNUM
) * 8
883 /* Similarly we have to account for 64bit
884 wide register saves. */
885 + (6 * REGISTER_SIZE
))))
887 return read_memory_integer ((frame
->frame
888 + (TARGET_PTR_BIT
== 64 ? -16 : -20)),
889 TARGET_PTR_BIT
/ 8) & ~0x3;
892 #ifdef FRAME_SAVED_PC_IN_SIGTRAMP
893 /* Deal with signal handler caller frames too. */
894 if ((get_frame_type (frame
) == SIGTRAMP_FRAME
))
897 FRAME_SAVED_PC_IN_SIGTRAMP (frame
, &rp
);
902 if (frameless_function_invocation (frame
))
906 ret_regnum
= find_return_regnum (pc
);
908 /* If the next frame is an interrupt frame or a signal
909 handler caller, then we need to look in the saved
910 register area to get the return pointer (the values
911 in the registers may not correspond to anything useful). */
913 && ((get_frame_type (frame
->next
) == SIGTRAMP_FRAME
)
914 || pc_in_interrupt_handler (frame
->next
->pc
)))
916 struct frame_saved_regs saved_regs
;
918 get_frame_saved_regs (frame
->next
, &saved_regs
);
919 if (read_memory_integer (saved_regs
.regs
[FLAGS_REGNUM
],
920 TARGET_PTR_BIT
/ 8) & 0x2)
922 pc
= read_memory_integer (saved_regs
.regs
[31],
923 TARGET_PTR_BIT
/ 8) & ~0x3;
925 /* Syscalls are really two frames. The syscall stub itself
926 with a return pointer in %rp and the kernel call with
927 a return pointer in %r31. We return the %rp variant
928 if %r31 is the same as frame->pc. */
930 pc
= read_memory_integer (saved_regs
.regs
[RP_REGNUM
],
931 TARGET_PTR_BIT
/ 8) & ~0x3;
934 pc
= read_memory_integer (saved_regs
.regs
[RP_REGNUM
],
935 TARGET_PTR_BIT
/ 8) & ~0x3;
938 pc
= read_register (ret_regnum
) & ~0x3;
942 spun_around_loop
= 0;
946 rp_offset
= rp_saved (pc
);
948 /* Similar to code in frameless function case. If the next
949 frame is a signal or interrupt handler, then dig the right
950 information out of the saved register info. */
953 && ((get_frame_type (frame
->next
) == SIGTRAMP_FRAME
)
954 || pc_in_interrupt_handler (frame
->next
->pc
)))
956 struct frame_saved_regs saved_regs
;
958 get_frame_saved_regs (frame
->next
, &saved_regs
);
959 if (read_memory_integer (saved_regs
.regs
[FLAGS_REGNUM
],
960 TARGET_PTR_BIT
/ 8) & 0x2)
962 pc
= read_memory_integer (saved_regs
.regs
[31],
963 TARGET_PTR_BIT
/ 8) & ~0x3;
965 /* Syscalls are really two frames. The syscall stub itself
966 with a return pointer in %rp and the kernel call with
967 a return pointer in %r31. We return the %rp variant
968 if %r31 is the same as frame->pc. */
970 pc
= read_memory_integer (saved_regs
.regs
[RP_REGNUM
],
971 TARGET_PTR_BIT
/ 8) & ~0x3;
974 pc
= read_memory_integer (saved_regs
.regs
[RP_REGNUM
],
975 TARGET_PTR_BIT
/ 8) & ~0x3;
977 else if (rp_offset
== 0)
980 pc
= read_register (RP_REGNUM
) & ~0x3;
985 pc
= read_memory_integer (frame
->frame
+ rp_offset
,
986 TARGET_PTR_BIT
/ 8) & ~0x3;
990 /* If PC is inside a linker stub, then dig out the address the stub
993 Don't do this for long branch stubs. Why? For some unknown reason
994 _start is marked as a long branch stub in hpux10. */
995 u
= find_unwind_entry (pc
);
996 if (u
&& u
->stub_unwind
.stub_type
!= 0
997 && u
->stub_unwind
.stub_type
!= LONG_BRANCH
)
1001 /* If this is a dynamic executable, and we're in a signal handler,
1002 then the call chain will eventually point us into the stub for
1003 _sigreturn. Unlike most cases, we'll be pointed to the branch
1004 to the real sigreturn rather than the code after the real branch!.
1006 Else, try to dig the address the stub will return to in the normal
1008 insn
= read_memory_integer (pc
, 4);
1009 if ((insn
& 0xfc00e000) == 0xe8000000)
1010 return (pc
+ extract_17 (insn
) + 8) & ~0x3;
1016 if (spun_around_loop
> 1)
1018 /* We're just about to go around the loop again with
1019 no more hope of success. Die. */
1020 error ("Unable to find return pc for this frame");
1030 /* We need to correct the PC and the FP for the outermost frame when we are
1031 in a system call. */
1034 init_extra_frame_info (int fromleaf
, struct frame_info
*frame
)
1039 if (frame
->next
&& !fromleaf
)
1042 /* If the next frame represents a frameless function invocation
1043 then we have to do some adjustments that are normally done by
1044 FRAME_CHAIN. (FRAME_CHAIN is not called in this case.) */
1047 /* Find the framesize of *this* frame without peeking at the PC
1048 in the current frame structure (it isn't set yet). */
1049 framesize
= find_proc_framesize (FRAME_SAVED_PC (get_next_frame (frame
)));
1051 /* Now adjust our base frame accordingly. If we have a frame pointer
1052 use it, else subtract the size of this frame from the current
1053 frame. (we always want frame->frame to point at the lowest address
1055 if (framesize
== -1)
1056 frame
->frame
= TARGET_READ_FP ();
1058 frame
->frame
-= framesize
;
1062 flags
= read_register (FLAGS_REGNUM
);
1063 if (flags
& 2) /* In system call? */
1064 frame
->pc
= read_register (31) & ~0x3;
1066 /* The outermost frame is always derived from PC-framesize
1068 One might think frameless innermost frames should have
1069 a frame->frame that is the same as the parent's frame->frame.
1070 That is wrong; frame->frame in that case should be the *high*
1071 address of the parent's frame. It's complicated as hell to
1072 explain, but the parent *always* creates some stack space for
1073 the child. So the child actually does have a frame of some
1074 sorts, and its base is the high address in its parent's frame. */
1075 framesize
= find_proc_framesize (frame
->pc
);
1076 if (framesize
== -1)
1077 frame
->frame
= TARGET_READ_FP ();
1079 frame
->frame
= read_register (SP_REGNUM
) - framesize
;
1082 /* Given a GDB frame, determine the address of the calling function's frame.
1083 This will be used to create a new GDB frame struct, and then
1084 INIT_EXTRA_FRAME_INFO and INIT_FRAME_PC will be called for the new frame.
1086 This may involve searching through prologues for several functions
1087 at boundaries where GCC calls HP C code, or where code which has
1088 a frame pointer calls code without a frame pointer. */
1091 frame_chain (struct frame_info
*frame
)
1093 int my_framesize
, caller_framesize
;
1094 struct unwind_table_entry
*u
;
1095 CORE_ADDR frame_base
;
1096 struct frame_info
*tmp_frame
;
1098 /* A frame in the current frame list, or zero. */
1099 struct frame_info
*saved_regs_frame
= 0;
1100 /* Where the registers were saved in saved_regs_frame.
1101 If saved_regs_frame is zero, this is garbage. */
1102 struct frame_saved_regs saved_regs
;
1104 CORE_ADDR caller_pc
;
1106 struct minimal_symbol
*min_frame_symbol
;
1107 struct symbol
*frame_symbol
;
1108 char *frame_symbol_name
;
1110 /* If this is a threaded application, and we see the
1111 routine "__pthread_exit", treat it as the stack root
1113 min_frame_symbol
= lookup_minimal_symbol_by_pc (frame
->pc
);
1114 frame_symbol
= find_pc_function (frame
->pc
);
1116 if ((min_frame_symbol
!= 0) /* && (frame_symbol == 0) */ )
1118 /* The test above for "no user function name" would defend
1119 against the slim likelihood that a user might define a
1120 routine named "__pthread_exit" and then try to debug it.
1122 If it weren't commented out, and you tried to debug the
1123 pthread library itself, you'd get errors.
1125 So for today, we don't make that check. */
1126 frame_symbol_name
= SYMBOL_NAME (min_frame_symbol
);
1127 if (frame_symbol_name
!= 0)
1129 if (0 == strncmp (frame_symbol_name
,
1130 THREAD_INITIAL_FRAME_SYMBOL
,
1131 THREAD_INITIAL_FRAME_SYM_LEN
))
1133 /* Pretend we've reached the bottom of the stack. */
1134 return (CORE_ADDR
) 0;
1137 } /* End of hacky code for threads. */
1139 /* Handle HPUX, BSD, and OSF1 style interrupt frames first. These
1140 are easy; at *sp we have a full save state strucutre which we can
1141 pull the old stack pointer from. Also see frame_saved_pc for
1142 code to dig a saved PC out of the save state structure. */
1143 if (pc_in_interrupt_handler (frame
->pc
))
1144 frame_base
= read_memory_integer (frame
->frame
+ SP_REGNUM
* 4,
1145 TARGET_PTR_BIT
/ 8);
1146 #ifdef FRAME_BASE_BEFORE_SIGTRAMP
1147 else if ((get_frame_type (frame
) == SIGTRAMP_FRAME
))
1149 FRAME_BASE_BEFORE_SIGTRAMP (frame
, &frame_base
);
1153 frame_base
= frame
->frame
;
1155 /* Get frame sizes for the current frame and the frame of the
1157 my_framesize
= find_proc_framesize (frame
->pc
);
1158 caller_pc
= FRAME_SAVED_PC (frame
);
1160 /* If we can't determine the caller's PC, then it's not likely we can
1161 really determine anything meaningful about its frame. We'll consider
1162 this to be stack bottom. */
1163 if (caller_pc
== (CORE_ADDR
) 0)
1164 return (CORE_ADDR
) 0;
1166 caller_framesize
= find_proc_framesize (FRAME_SAVED_PC (frame
));
1168 /* If caller does not have a frame pointer, then its frame
1169 can be found at current_frame - caller_framesize. */
1170 if (caller_framesize
!= -1)
1172 return frame_base
- caller_framesize
;
1174 /* Both caller and callee have frame pointers and are GCC compiled
1175 (SAVE_SP bit in unwind descriptor is on for both functions.
1176 The previous frame pointer is found at the top of the current frame. */
1177 if (caller_framesize
== -1 && my_framesize
== -1)
1179 return read_memory_integer (frame_base
, TARGET_PTR_BIT
/ 8);
1181 /* Caller has a frame pointer, but callee does not. This is a little
1182 more difficult as GCC and HP C lay out locals and callee register save
1183 areas very differently.
1185 The previous frame pointer could be in a register, or in one of
1186 several areas on the stack.
1188 Walk from the current frame to the innermost frame examining
1189 unwind descriptors to determine if %r3 ever gets saved into the
1190 stack. If so return whatever value got saved into the stack.
1191 If it was never saved in the stack, then the value in %r3 is still
1194 We use information from unwind descriptors to determine if %r3
1195 is saved into the stack (Entry_GR field has this information). */
1197 for (tmp_frame
= frame
; tmp_frame
; tmp_frame
= tmp_frame
->next
)
1199 u
= find_unwind_entry (tmp_frame
->pc
);
1203 /* We could find this information by examining prologues. I don't
1204 think anyone has actually written any tools (not even "strip")
1205 which leave them out of an executable, so maybe this is a moot
1207 /* ??rehrauer: Actually, it's quite possible to stepi your way into
1208 code that doesn't have unwind entries. For example, stepping into
1209 the dynamic linker will give you a PC that has none. Thus, I've
1210 disabled this warning. */
1212 warning ("Unable to find unwind for PC 0x%x -- Help!", tmp_frame
->pc
);
1214 return (CORE_ADDR
) 0;
1218 || (get_frame_type (tmp_frame
) == SIGTRAMP_FRAME
)
1219 || pc_in_interrupt_handler (tmp_frame
->pc
))
1222 /* Entry_GR specifies the number of callee-saved general registers
1223 saved in the stack. It starts at %r3, so %r3 would be 1. */
1224 if (u
->Entry_GR
>= 1)
1226 /* The unwind entry claims that r3 is saved here. However,
1227 in optimized code, GCC often doesn't actually save r3.
1228 We'll discover this if we look at the prologue. */
1229 get_frame_saved_regs (tmp_frame
, &saved_regs
);
1230 saved_regs_frame
= tmp_frame
;
1232 /* If we have an address for r3, that's good. */
1233 if (saved_regs
.regs
[FP_REGNUM
])
1240 /* We may have walked down the chain into a function with a frame
1243 && !(get_frame_type (tmp_frame
) == SIGTRAMP_FRAME
)
1244 && !pc_in_interrupt_handler (tmp_frame
->pc
))
1246 return read_memory_integer (tmp_frame
->frame
, TARGET_PTR_BIT
/ 8);
1248 /* %r3 was saved somewhere in the stack. Dig it out. */
1253 For optimization purposes many kernels don't have the
1254 callee saved registers into the save_state structure upon
1255 entry into the kernel for a syscall; the optimization
1256 is usually turned off if the process is being traced so
1257 that the debugger can get full register state for the
1260 This scheme works well except for two cases:
1262 * Attaching to a process when the process is in the
1263 kernel performing a system call (debugger can't get
1264 full register state for the inferior process since
1265 the process wasn't being traced when it entered the
1268 * Register state is not complete if the system call
1269 causes the process to core dump.
1272 The following heinous code is an attempt to deal with
1273 the lack of register state in a core dump. It will
1274 fail miserably if the function which performs the
1275 system call has a variable sized stack frame. */
1277 if (tmp_frame
!= saved_regs_frame
)
1278 get_frame_saved_regs (tmp_frame
, &saved_regs
);
1280 /* Abominable hack. */
1281 if (current_target
.to_has_execution
== 0
1282 && ((saved_regs
.regs
[FLAGS_REGNUM
]
1283 && (read_memory_integer (saved_regs
.regs
[FLAGS_REGNUM
],
1286 || (saved_regs
.regs
[FLAGS_REGNUM
] == 0
1287 && read_register (FLAGS_REGNUM
) & 0x2)))
1289 u
= find_unwind_entry (FRAME_SAVED_PC (frame
));
1292 return read_memory_integer (saved_regs
.regs
[FP_REGNUM
],
1293 TARGET_PTR_BIT
/ 8);
1297 return frame_base
- (u
->Total_frame_size
<< 3);
1301 return read_memory_integer (saved_regs
.regs
[FP_REGNUM
],
1302 TARGET_PTR_BIT
/ 8);
1307 /* Get the innermost frame. */
1309 while (tmp_frame
->next
!= NULL
)
1310 tmp_frame
= tmp_frame
->next
;
1312 if (tmp_frame
!= saved_regs_frame
)
1313 get_frame_saved_regs (tmp_frame
, &saved_regs
);
1315 /* Abominable hack. See above. */
1316 if (current_target
.to_has_execution
== 0
1317 && ((saved_regs
.regs
[FLAGS_REGNUM
]
1318 && (read_memory_integer (saved_regs
.regs
[FLAGS_REGNUM
],
1321 || (saved_regs
.regs
[FLAGS_REGNUM
] == 0
1322 && read_register (FLAGS_REGNUM
) & 0x2)))
1324 u
= find_unwind_entry (FRAME_SAVED_PC (frame
));
1327 return read_memory_integer (saved_regs
.regs
[FP_REGNUM
],
1328 TARGET_PTR_BIT
/ 8);
1332 return frame_base
- (u
->Total_frame_size
<< 3);
1336 /* The value in %r3 was never saved into the stack (thus %r3 still
1337 holds the value of the previous frame pointer). */
1338 return TARGET_READ_FP ();
1343 /* To see if a frame chain is valid, see if the caller looks like it
1344 was compiled with gcc. */
1347 hppa_frame_chain_valid (CORE_ADDR chain
, struct frame_info
*thisframe
)
1349 struct minimal_symbol
*msym_us
;
1350 struct minimal_symbol
*msym_start
;
1351 struct unwind_table_entry
*u
, *next_u
= NULL
;
1352 struct frame_info
*next
;
1357 u
= find_unwind_entry (thisframe
->pc
);
1362 /* We can't just check that the same of msym_us is "_start", because
1363 someone idiotically decided that they were going to make a Ltext_end
1364 symbol with the same address. This Ltext_end symbol is totally
1365 indistinguishable (as nearly as I can tell) from the symbol for a function
1366 which is (legitimately, since it is in the user's namespace)
1367 named Ltext_end, so we can't just ignore it. */
1368 msym_us
= lookup_minimal_symbol_by_pc (FRAME_SAVED_PC (thisframe
));
1369 msym_start
= lookup_minimal_symbol ("_start", NULL
, NULL
);
1372 && SYMBOL_VALUE_ADDRESS (msym_us
) == SYMBOL_VALUE_ADDRESS (msym_start
))
1375 /* Grrrr. Some new idiot decided that they don't want _start for the
1376 PRO configurations; $START$ calls main directly.... Deal with it. */
1377 msym_start
= lookup_minimal_symbol ("$START$", NULL
, NULL
);
1380 && SYMBOL_VALUE_ADDRESS (msym_us
) == SYMBOL_VALUE_ADDRESS (msym_start
))
1383 next
= get_next_frame (thisframe
);
1385 next_u
= find_unwind_entry (next
->pc
);
1387 /* If this frame does not save SP, has no stack, isn't a stub,
1388 and doesn't "call" an interrupt routine or signal handler caller,
1389 then its not valid. */
1390 if (u
->Save_SP
|| u
->Total_frame_size
|| u
->stub_unwind
.stub_type
!= 0
1391 || (thisframe
->next
&& (get_frame_type (thisframe
->next
) == SIGTRAMP_FRAME
))
1392 || (next_u
&& next_u
->HP_UX_interrupt_marker
))
1395 if (pc_in_linker_stub (thisframe
->pc
))
1402 These functions deal with saving and restoring register state
1403 around a function call in the inferior. They keep the stack
1404 double-word aligned; eventually, on an hp700, the stack will have
1405 to be aligned to a 64-byte boundary. */
1408 push_dummy_frame (struct inferior_status
*inf_status
)
1410 CORE_ADDR sp
, pc
, pcspace
;
1411 register int regnum
;
1412 CORE_ADDR int_buffer
;
1415 /* Oh, what a hack. If we're trying to perform an inferior call
1416 while the inferior is asleep, we have to make sure to clear
1417 the "in system call" bit in the flag register (the call will
1418 start after the syscall returns, so we're no longer in the system
1419 call!) This state is kept in "inf_status", change it there.
1421 We also need a number of horrid hacks to deal with lossage in the
1422 PC queue registers (apparently they're not valid when the in syscall
1424 pc
= target_read_pc (inferior_ptid
);
1425 int_buffer
= read_register (FLAGS_REGNUM
);
1426 if (int_buffer
& 0x2)
1430 write_inferior_status_register (inf_status
, 0, int_buffer
);
1431 write_inferior_status_register (inf_status
, PCOQ_HEAD_REGNUM
, pc
+ 0);
1432 write_inferior_status_register (inf_status
, PCOQ_TAIL_REGNUM
, pc
+ 4);
1433 sid
= (pc
>> 30) & 0x3;
1435 pcspace
= read_register (SR4_REGNUM
);
1437 pcspace
= read_register (SR4_REGNUM
+ 4 + sid
);
1438 write_inferior_status_register (inf_status
, PCSQ_HEAD_REGNUM
, pcspace
);
1439 write_inferior_status_register (inf_status
, PCSQ_TAIL_REGNUM
, pcspace
);
1442 pcspace
= read_register (PCSQ_HEAD_REGNUM
);
1444 /* Space for "arguments"; the RP goes in here. */
1445 sp
= read_register (SP_REGNUM
) + 48;
1446 int_buffer
= read_register (RP_REGNUM
) | 0x3;
1448 /* The 32bit and 64bit ABIs save the return pointer into different
1450 if (REGISTER_SIZE
== 8)
1451 write_memory (sp
- 16, (char *) &int_buffer
, REGISTER_SIZE
);
1453 write_memory (sp
- 20, (char *) &int_buffer
, REGISTER_SIZE
);
1455 int_buffer
= TARGET_READ_FP ();
1456 write_memory (sp
, (char *) &int_buffer
, REGISTER_SIZE
);
1458 write_register (FP_REGNUM
, sp
);
1460 sp
+= 2 * REGISTER_SIZE
;
1462 for (regnum
= 1; regnum
< 32; regnum
++)
1463 if (regnum
!= RP_REGNUM
&& regnum
!= FP_REGNUM
)
1464 sp
= push_word (sp
, read_register (regnum
));
1466 /* This is not necessary for the 64bit ABI. In fact it is dangerous. */
1467 if (REGISTER_SIZE
!= 8)
1470 for (regnum
= FP0_REGNUM
; regnum
< NUM_REGS
; regnum
++)
1472 deprecated_read_register_bytes (REGISTER_BYTE (regnum
),
1473 (char *) &freg_buffer
, 8);
1474 sp
= push_bytes (sp
, (char *) &freg_buffer
, 8);
1476 sp
= push_word (sp
, read_register (IPSW_REGNUM
));
1477 sp
= push_word (sp
, read_register (SAR_REGNUM
));
1478 sp
= push_word (sp
, pc
);
1479 sp
= push_word (sp
, pcspace
);
1480 sp
= push_word (sp
, pc
+ 4);
1481 sp
= push_word (sp
, pcspace
);
1482 write_register (SP_REGNUM
, sp
);
1486 find_dummy_frame_regs (struct frame_info
*frame
,
1487 struct frame_saved_regs
*frame_saved_regs
)
1489 CORE_ADDR fp
= frame
->frame
;
1492 /* The 32bit and 64bit ABIs save RP into different locations. */
1493 if (REGISTER_SIZE
== 8)
1494 frame_saved_regs
->regs
[RP_REGNUM
] = (fp
- 16) & ~0x3;
1496 frame_saved_regs
->regs
[RP_REGNUM
] = (fp
- 20) & ~0x3;
1498 frame_saved_regs
->regs
[FP_REGNUM
] = fp
;
1500 frame_saved_regs
->regs
[1] = fp
+ (2 * REGISTER_SIZE
);
1502 for (fp
+= 3 * REGISTER_SIZE
, i
= 3; i
< 32; i
++)
1506 frame_saved_regs
->regs
[i
] = fp
;
1507 fp
+= REGISTER_SIZE
;
1511 /* This is not necessary or desirable for the 64bit ABI. */
1512 if (REGISTER_SIZE
!= 8)
1515 for (i
= FP0_REGNUM
; i
< NUM_REGS
; i
++, fp
+= 8)
1516 frame_saved_regs
->regs
[i
] = fp
;
1518 frame_saved_regs
->regs
[IPSW_REGNUM
] = fp
;
1519 frame_saved_regs
->regs
[SAR_REGNUM
] = fp
+ REGISTER_SIZE
;
1520 frame_saved_regs
->regs
[PCOQ_HEAD_REGNUM
] = fp
+ 2 * REGISTER_SIZE
;
1521 frame_saved_regs
->regs
[PCSQ_HEAD_REGNUM
] = fp
+ 3 * REGISTER_SIZE
;
1522 frame_saved_regs
->regs
[PCOQ_TAIL_REGNUM
] = fp
+ 4 * REGISTER_SIZE
;
1523 frame_saved_regs
->regs
[PCSQ_TAIL_REGNUM
] = fp
+ 5 * REGISTER_SIZE
;
1527 hppa_pop_frame (void)
1529 register struct frame_info
*frame
= get_current_frame ();
1530 register CORE_ADDR fp
, npc
, target_pc
;
1531 register int regnum
;
1532 struct frame_saved_regs fsr
;
1535 fp
= FRAME_FP (frame
);
1536 get_frame_saved_regs (frame
, &fsr
);
1538 #ifndef NO_PC_SPACE_QUEUE_RESTORE
1539 if (fsr
.regs
[IPSW_REGNUM
]) /* Restoring a call dummy frame */
1540 restore_pc_queue (&fsr
);
1543 for (regnum
= 31; regnum
> 0; regnum
--)
1544 if (fsr
.regs
[regnum
])
1545 write_register (regnum
, read_memory_integer (fsr
.regs
[regnum
],
1548 for (regnum
= NUM_REGS
- 1; regnum
>= FP0_REGNUM
; regnum
--)
1549 if (fsr
.regs
[regnum
])
1551 read_memory (fsr
.regs
[regnum
], (char *) &freg_buffer
, 8);
1552 deprecated_write_register_bytes (REGISTER_BYTE (regnum
),
1553 (char *) &freg_buffer
, 8);
1556 if (fsr
.regs
[IPSW_REGNUM
])
1557 write_register (IPSW_REGNUM
,
1558 read_memory_integer (fsr
.regs
[IPSW_REGNUM
],
1561 if (fsr
.regs
[SAR_REGNUM
])
1562 write_register (SAR_REGNUM
,
1563 read_memory_integer (fsr
.regs
[SAR_REGNUM
],
1566 /* If the PC was explicitly saved, then just restore it. */
1567 if (fsr
.regs
[PCOQ_TAIL_REGNUM
])
1569 npc
= read_memory_integer (fsr
.regs
[PCOQ_TAIL_REGNUM
],
1571 write_register (PCOQ_TAIL_REGNUM
, npc
);
1573 /* Else use the value in %rp to set the new PC. */
1576 npc
= read_register (RP_REGNUM
);
1580 write_register (FP_REGNUM
, read_memory_integer (fp
, REGISTER_SIZE
));
1582 if (fsr
.regs
[IPSW_REGNUM
]) /* call dummy */
1583 write_register (SP_REGNUM
, fp
- 48);
1585 write_register (SP_REGNUM
, fp
);
1587 /* The PC we just restored may be inside a return trampoline. If so
1588 we want to restart the inferior and run it through the trampoline.
1590 Do this by setting a momentary breakpoint at the location the
1591 trampoline returns to.
1593 Don't skip through the trampoline if we're popping a dummy frame. */
1594 target_pc
= SKIP_TRAMPOLINE_CODE (npc
& ~0x3) & ~0x3;
1595 if (target_pc
&& !fsr
.regs
[IPSW_REGNUM
])
1597 struct symtab_and_line sal
;
1598 struct breakpoint
*breakpoint
;
1599 struct cleanup
*old_chain
;
1601 /* Set up our breakpoint. Set it to be silent as the MI code
1602 for "return_command" will print the frame we returned to. */
1603 sal
= find_pc_line (target_pc
, 0);
1605 breakpoint
= set_momentary_breakpoint (sal
, NULL
, bp_finish
);
1606 breakpoint
->silent
= 1;
1608 /* So we can clean things up. */
1609 old_chain
= make_cleanup_delete_breakpoint (breakpoint
);
1611 /* Start up the inferior. */
1612 clear_proceed_status ();
1613 proceed_to_finish
= 1;
1614 proceed ((CORE_ADDR
) -1, TARGET_SIGNAL_DEFAULT
, 0);
1616 /* Perform our cleanups. */
1617 do_cleanups (old_chain
);
1619 flush_cached_frames ();
1622 /* After returning to a dummy on the stack, restore the instruction
1623 queue space registers. */
1626 restore_pc_queue (struct frame_saved_regs
*fsr
)
1628 CORE_ADDR pc
= read_pc ();
1629 CORE_ADDR new_pc
= read_memory_integer (fsr
->regs
[PCOQ_HEAD_REGNUM
],
1630 TARGET_PTR_BIT
/ 8);
1631 struct target_waitstatus w
;
1634 /* Advance past break instruction in the call dummy. */
1635 write_register (PCOQ_HEAD_REGNUM
, pc
+ 4);
1636 write_register (PCOQ_TAIL_REGNUM
, pc
+ 8);
1638 /* HPUX doesn't let us set the space registers or the space
1639 registers of the PC queue through ptrace. Boo, hiss.
1640 Conveniently, the call dummy has this sequence of instructions
1645 So, load up the registers and single step until we are in the
1648 write_register (21, read_memory_integer (fsr
->regs
[PCSQ_HEAD_REGNUM
],
1650 write_register (22, new_pc
);
1652 for (insn_count
= 0; insn_count
< 3; insn_count
++)
1654 /* FIXME: What if the inferior gets a signal right now? Want to
1655 merge this into wait_for_inferior (as a special kind of
1656 watchpoint? By setting a breakpoint at the end? Is there
1657 any other choice? Is there *any* way to do this stuff with
1658 ptrace() or some equivalent?). */
1660 target_wait (inferior_ptid
, &w
);
1662 if (w
.kind
== TARGET_WAITKIND_SIGNALLED
)
1664 stop_signal
= w
.value
.sig
;
1665 terminal_ours_for_output ();
1666 printf_unfiltered ("\nProgram terminated with signal %s, %s.\n",
1667 target_signal_to_name (stop_signal
),
1668 target_signal_to_string (stop_signal
));
1669 gdb_flush (gdb_stdout
);
1673 target_terminal_ours ();
1674 target_fetch_registers (-1);
1679 #ifdef PA20W_CALLING_CONVENTIONS
1681 /* This function pushes a stack frame with arguments as part of the
1682 inferior function calling mechanism.
1684 This is the version for the PA64, in which later arguments appear
1685 at higher addresses. (The stack always grows towards higher
1688 We simply allocate the appropriate amount of stack space and put
1689 arguments into their proper slots. The call dummy code will copy
1690 arguments into registers as needed by the ABI.
1692 This ABI also requires that the caller provide an argument pointer
1693 to the callee, so we do that too. */
1696 hppa_push_arguments (int nargs
, struct value
**args
, CORE_ADDR sp
,
1697 int struct_return
, CORE_ADDR struct_addr
)
1699 /* array of arguments' offsets */
1700 int *offset
= (int *) alloca (nargs
* sizeof (int));
1702 /* array of arguments' lengths: real lengths in bytes, not aligned to
1704 int *lengths
= (int *) alloca (nargs
* sizeof (int));
1706 /* The value of SP as it was passed into this function after
1708 CORE_ADDR orig_sp
= STACK_ALIGN (sp
);
1710 /* The number of stack bytes occupied by the current argument. */
1713 /* The total number of bytes reserved for the arguments. */
1714 int cum_bytes_reserved
= 0;
1716 /* Similarly, but aligned. */
1717 int cum_bytes_aligned
= 0;
1720 /* Iterate over each argument provided by the user. */
1721 for (i
= 0; i
< nargs
; i
++)
1723 struct type
*arg_type
= VALUE_TYPE (args
[i
]);
1725 /* Integral scalar values smaller than a register are padded on
1726 the left. We do this by promoting them to full-width,
1727 although the ABI says to pad them with garbage. */
1728 if (is_integral_type (arg_type
)
1729 && TYPE_LENGTH (arg_type
) < REGISTER_SIZE
)
1731 args
[i
] = value_cast ((TYPE_UNSIGNED (arg_type
)
1732 ? builtin_type_unsigned_long
1733 : builtin_type_long
),
1735 arg_type
= VALUE_TYPE (args
[i
]);
1738 lengths
[i
] = TYPE_LENGTH (arg_type
);
1740 /* Align the size of the argument to the word size for this
1742 bytes_reserved
= (lengths
[i
] + REGISTER_SIZE
- 1) & -REGISTER_SIZE
;
1744 offset
[i
] = cum_bytes_reserved
;
1746 /* Aggregates larger than eight bytes (the only types larger
1747 than eight bytes we have) are aligned on a 16-byte boundary,
1748 possibly padded on the right with garbage. This may leave an
1749 empty word on the stack, and thus an unused register, as per
1751 if (bytes_reserved
> 8)
1753 /* Round up the offset to a multiple of two slots. */
1754 int new_offset
= ((offset
[i
] + 2*REGISTER_SIZE
-1)
1755 & -(2*REGISTER_SIZE
));
1757 /* Note the space we've wasted, if any. */
1758 bytes_reserved
+= new_offset
- offset
[i
];
1759 offset
[i
] = new_offset
;
1762 cum_bytes_reserved
+= bytes_reserved
;
1765 /* CUM_BYTES_RESERVED already accounts for all the arguments
1766 passed by the user. However, the ABIs mandate minimum stack space
1767 allocations for outgoing arguments.
1769 The ABIs also mandate minimum stack alignments which we must
1771 cum_bytes_aligned
= STACK_ALIGN (cum_bytes_reserved
);
1772 sp
+= max (cum_bytes_aligned
, REG_PARM_STACK_SPACE
);
1774 /* Now write each of the args at the proper offset down the stack. */
1775 for (i
= 0; i
< nargs
; i
++)
1776 write_memory (orig_sp
+ offset
[i
], VALUE_CONTENTS (args
[i
]), lengths
[i
]);
1778 /* If a structure has to be returned, set up register 28 to hold its
1781 write_register (28, struct_addr
);
1783 /* For the PA64 we must pass a pointer to the outgoing argument list.
1784 The ABI mandates that the pointer should point to the first byte of
1785 storage beyond the register flushback area.
1787 However, the call dummy expects the outgoing argument pointer to
1788 be passed in register %r4. */
1789 write_register (4, orig_sp
+ REG_PARM_STACK_SPACE
);
1791 /* ?!? This needs further work. We need to set up the global data
1792 pointer for this procedure. This assumes the same global pointer
1793 for every procedure. The call dummy expects the dp value to
1794 be passed in register %r6. */
1795 write_register (6, read_register (27));
1797 /* The stack will have 64 bytes of additional space for a frame marker. */
1803 /* This function pushes a stack frame with arguments as part of the
1804 inferior function calling mechanism.
1806 This is the version of the function for the 32-bit PA machines, in
1807 which later arguments appear at lower addresses. (The stack always
1808 grows towards higher addresses.)
1810 We simply allocate the appropriate amount of stack space and put
1811 arguments into their proper slots. The call dummy code will copy
1812 arguments into registers as needed by the ABI. */
1815 hppa_push_arguments (int nargs
, struct value
**args
, CORE_ADDR sp
,
1816 int struct_return
, CORE_ADDR struct_addr
)
1818 /* array of arguments' offsets */
1819 int *offset
= (int *) alloca (nargs
* sizeof (int));
1821 /* array of arguments' lengths: real lengths in bytes, not aligned to
1823 int *lengths
= (int *) alloca (nargs
* sizeof (int));
1825 /* The number of stack bytes occupied by the current argument. */
1828 /* The total number of bytes reserved for the arguments. */
1829 int cum_bytes_reserved
= 0;
1831 /* Similarly, but aligned. */
1832 int cum_bytes_aligned
= 0;
1835 /* Iterate over each argument provided by the user. */
1836 for (i
= 0; i
< nargs
; i
++)
1838 lengths
[i
] = TYPE_LENGTH (VALUE_TYPE (args
[i
]));
1840 /* Align the size of the argument to the word size for this
1842 bytes_reserved
= (lengths
[i
] + REGISTER_SIZE
- 1) & -REGISTER_SIZE
;
1844 offset
[i
] = (cum_bytes_reserved
1845 + (lengths
[i
] > 4 ? bytes_reserved
: lengths
[i
]));
1847 /* If the argument is a double word argument, then it needs to be
1848 double word aligned. */
1849 if ((bytes_reserved
== 2 * REGISTER_SIZE
)
1850 && (offset
[i
] % 2 * REGISTER_SIZE
))
1853 /* BYTES_RESERVED is already aligned to the word, so we put
1854 the argument at one word more down the stack.
1856 This will leave one empty word on the stack, and one unused
1857 register as mandated by the ABI. */
1858 new_offset
= ((offset
[i
] + 2 * REGISTER_SIZE
- 1)
1859 & -(2 * REGISTER_SIZE
));
1861 if ((new_offset
- offset
[i
]) >= 2 * REGISTER_SIZE
)
1863 bytes_reserved
+= REGISTER_SIZE
;
1864 offset
[i
] += REGISTER_SIZE
;
1868 cum_bytes_reserved
+= bytes_reserved
;
1872 /* CUM_BYTES_RESERVED already accounts for all the arguments passed
1873 by the user. However, the ABI mandates minimum stack space
1874 allocations for outgoing arguments.
1876 The ABI also mandates minimum stack alignments which we must
1878 cum_bytes_aligned
= STACK_ALIGN (cum_bytes_reserved
);
1879 sp
+= max (cum_bytes_aligned
, REG_PARM_STACK_SPACE
);
1881 /* Now write each of the args at the proper offset down the stack.
1882 ?!? We need to promote values to a full register instead of skipping
1883 words in the stack. */
1884 for (i
= 0; i
< nargs
; i
++)
1885 write_memory (sp
- offset
[i
], VALUE_CONTENTS (args
[i
]), lengths
[i
]);
1887 /* If a structure has to be returned, set up register 28 to hold its
1890 write_register (28, struct_addr
);
1892 /* The stack will have 32 bytes of additional space for a frame marker. */
1898 /* elz: this function returns a value which is built looking at the given address.
1899 It is called from call_function_by_hand, in case we need to return a
1900 value which is larger than 64 bits, and it is stored in the stack rather than
1901 in the registers r28 and r29 or fr4.
1902 This function does the same stuff as value_being_returned in values.c, but
1903 gets the value from the stack rather than from the buffer where all the
1904 registers were saved when the function called completed. */
1906 hppa_value_returned_from_stack (register struct type
*valtype
, CORE_ADDR addr
)
1908 register struct value
*val
;
1910 val
= allocate_value (valtype
);
1911 CHECK_TYPEDEF (valtype
);
1912 target_read_memory (addr
, VALUE_CONTENTS_RAW (val
), TYPE_LENGTH (valtype
));
1919 /* elz: Used to lookup a symbol in the shared libraries.
1920 This function calls shl_findsym, indirectly through a
1921 call to __d_shl_get. __d_shl_get is in end.c, which is always
1922 linked in by the hp compilers/linkers.
1923 The call to shl_findsym cannot be made directly because it needs
1924 to be active in target address space.
1925 inputs: - minimal symbol pointer for the function we want to look up
1926 - address in target space of the descriptor for the library
1927 where we want to look the symbol up.
1928 This address is retrieved using the
1929 som_solib_get_solib_by_pc function (somsolib.c).
1930 output: - real address in the library of the function.
1931 note: the handle can be null, in which case shl_findsym will look for
1932 the symbol in all the loaded shared libraries.
1933 files to look at if you need reference on this stuff:
1934 dld.c, dld_shl_findsym.c
1936 man entry for shl_findsym */
1939 find_stub_with_shl_get (struct minimal_symbol
*function
, CORE_ADDR handle
)
1941 struct symbol
*get_sym
, *symbol2
;
1942 struct minimal_symbol
*buff_minsym
, *msymbol
;
1944 struct value
**args
;
1945 struct value
*funcval
;
1948 int x
, namelen
, err_value
, tmp
= -1;
1949 CORE_ADDR endo_buff_addr
, value_return_addr
, errno_return_addr
;
1950 CORE_ADDR stub_addr
;
1953 args
= alloca (sizeof (struct value
*) * 8); /* 6 for the arguments and one null one??? */
1954 funcval
= find_function_in_inferior ("__d_shl_get");
1955 get_sym
= lookup_symbol ("__d_shl_get", NULL
, VAR_NAMESPACE
, NULL
, NULL
);
1956 buff_minsym
= lookup_minimal_symbol ("__buffer", NULL
, NULL
);
1957 msymbol
= lookup_minimal_symbol ("__shldp", NULL
, NULL
);
1958 symbol2
= lookup_symbol ("__shldp", NULL
, VAR_NAMESPACE
, NULL
, NULL
);
1959 endo_buff_addr
= SYMBOL_VALUE_ADDRESS (buff_minsym
);
1960 namelen
= strlen (SYMBOL_NAME (function
));
1961 value_return_addr
= endo_buff_addr
+ namelen
;
1962 ftype
= check_typedef (SYMBOL_TYPE (get_sym
));
1965 if ((x
= value_return_addr
% 64) != 0)
1966 value_return_addr
= value_return_addr
+ 64 - x
;
1968 errno_return_addr
= value_return_addr
+ 64;
1971 /* set up stuff needed by __d_shl_get in buffer in end.o */
1973 target_write_memory (endo_buff_addr
, SYMBOL_NAME (function
), namelen
);
1975 target_write_memory (value_return_addr
, (char *) &tmp
, 4);
1977 target_write_memory (errno_return_addr
, (char *) &tmp
, 4);
1979 target_write_memory (SYMBOL_VALUE_ADDRESS (msymbol
),
1980 (char *) &handle
, 4);
1982 /* now prepare the arguments for the call */
1984 args
[0] = value_from_longest (TYPE_FIELD_TYPE (ftype
, 0), 12);
1985 args
[1] = value_from_pointer (TYPE_FIELD_TYPE (ftype
, 1), SYMBOL_VALUE_ADDRESS (msymbol
));
1986 args
[2] = value_from_pointer (TYPE_FIELD_TYPE (ftype
, 2), endo_buff_addr
);
1987 args
[3] = value_from_longest (TYPE_FIELD_TYPE (ftype
, 3), TYPE_PROCEDURE
);
1988 args
[4] = value_from_pointer (TYPE_FIELD_TYPE (ftype
, 4), value_return_addr
);
1989 args
[5] = value_from_pointer (TYPE_FIELD_TYPE (ftype
, 5), errno_return_addr
);
1991 /* now call the function */
1993 val
= call_function_by_hand (funcval
, 6, args
);
1995 /* now get the results */
1997 target_read_memory (errno_return_addr
, (char *) &err_value
, sizeof (err_value
));
1999 target_read_memory (value_return_addr
, (char *) &stub_addr
, sizeof (stub_addr
));
2001 error ("call to __d_shl_get failed, error code is %d", err_value
);
2006 /* Cover routine for find_stub_with_shl_get to pass to catch_errors */
2008 cover_find_stub_with_shl_get (PTR args_untyped
)
2010 args_for_find_stub
*args
= args_untyped
;
2011 args
->return_val
= find_stub_with_shl_get (args
->msym
, args
->solib_handle
);
2015 /* Insert the specified number of args and function address
2016 into a call sequence of the above form stored at DUMMYNAME.
2018 On the hppa we need to call the stack dummy through $$dyncall.
2019 Therefore our version of FIX_CALL_DUMMY takes an extra argument,
2020 real_pc, which is the location where gdb should start up the
2021 inferior to do the function call.
2023 This has to work across several versions of hpux, bsd, osf1. It has to
2024 work regardless of what compiler was used to build the inferior program.
2025 It should work regardless of whether or not end.o is available. It has
2026 to work even if gdb can not call into the dynamic loader in the inferior
2027 to query it for symbol names and addresses.
2029 Yes, all those cases should work. Luckily code exists to handle most
2030 of them. The complexity is in selecting exactly what scheme should
2031 be used to perform the inferior call.
2033 At the current time this routine is known not to handle cases where
2034 the program was linked with HP's compiler without including end.o.
2036 Please contact Jeff Law (law@cygnus.com) before changing this code. */
2039 hppa_fix_call_dummy (char *dummy
, CORE_ADDR pc
, CORE_ADDR fun
, int nargs
,
2040 struct value
**args
, struct type
*type
, int gcc_p
)
2042 CORE_ADDR dyncall_addr
;
2043 struct minimal_symbol
*msymbol
;
2044 struct minimal_symbol
*trampoline
;
2045 int flags
= read_register (FLAGS_REGNUM
);
2046 struct unwind_table_entry
*u
= NULL
;
2047 CORE_ADDR new_stub
= 0;
2048 CORE_ADDR solib_handle
= 0;
2050 /* Nonzero if we will use GCC's PLT call routine. This routine must be
2051 passed an import stub, not a PLABEL. It is also necessary to set %r19
2052 (the PIC register) before performing the call.
2054 If zero, then we are using __d_plt_call (HP's PLT call routine) or we
2055 are calling the target directly. When using __d_plt_call we want to
2056 use a PLABEL instead of an import stub. */
2057 int using_gcc_plt_call
= 1;
2059 #ifdef GDB_TARGET_IS_HPPA_20W
2060 /* We currently use completely different code for the PA2.0W inferior
2061 function call sequences. This needs to be cleaned up. */
2063 CORE_ADDR pcsqh
, pcsqt
, pcoqh
, pcoqt
, sr5
;
2064 struct target_waitstatus w
;
2068 struct objfile
*objfile
;
2070 /* We can not modify the PC space queues directly, so we start
2071 up the inferior and execute a couple instructions to set the
2072 space queues so that they point to the call dummy in the stack. */
2073 pcsqh
= read_register (PCSQ_HEAD_REGNUM
);
2074 sr5
= read_register (SR5_REGNUM
);
2077 pcoqh
= read_register (PCOQ_HEAD_REGNUM
);
2078 pcoqt
= read_register (PCOQ_TAIL_REGNUM
);
2079 if (target_read_memory (pcoqh
, buf
, 4) != 0)
2080 error ("Couldn't modify space queue\n");
2081 inst1
= extract_unsigned_integer (buf
, 4);
2083 if (target_read_memory (pcoqt
, buf
, 4) != 0)
2084 error ("Couldn't modify space queue\n");
2085 inst2
= extract_unsigned_integer (buf
, 4);
2088 *((int *) buf
) = 0xe820d000;
2089 if (target_write_memory (pcoqh
, buf
, 4) != 0)
2090 error ("Couldn't modify space queue\n");
2093 *((int *) buf
) = 0x08000240;
2094 if (target_write_memory (pcoqt
, buf
, 4) != 0)
2096 *((int *) buf
) = inst1
;
2097 target_write_memory (pcoqh
, buf
, 4);
2098 error ("Couldn't modify space queue\n");
2101 write_register (1, pc
);
2103 /* Single step twice, the BVE instruction will set the space queue
2104 such that it points to the PC value written immediately above
2105 (ie the call dummy). */
2107 target_wait (inferior_ptid
, &w
);
2109 target_wait (inferior_ptid
, &w
);
2111 /* Restore the two instructions at the old PC locations. */
2112 *((int *) buf
) = inst1
;
2113 target_write_memory (pcoqh
, buf
, 4);
2114 *((int *) buf
) = inst2
;
2115 target_write_memory (pcoqt
, buf
, 4);
2118 /* The call dummy wants the ultimate destination address initially
2120 write_register (5, fun
);
2122 /* We need to see if this objfile has a different DP value than our
2123 own (it could be a shared library for example). */
2124 ALL_OBJFILES (objfile
)
2126 struct obj_section
*s
;
2127 obj_private_data_t
*obj_private
;
2129 /* See if FUN is in any section within this shared library. */
2130 for (s
= objfile
->sections
; s
< objfile
->sections_end
; s
++)
2131 if (s
->addr
<= fun
&& fun
< s
->endaddr
)
2134 if (s
>= objfile
->sections_end
)
2137 obj_private
= (obj_private_data_t
*) objfile
->obj_private
;
2139 /* The DP value may be different for each objfile. But within an
2140 objfile each function uses the same dp value. Thus we do not need
2141 to grope around the opd section looking for dp values.
2143 ?!? This is not strictly correct since we may be in a shared library
2144 and want to call back into the main program. To make that case
2145 work correctly we need to set obj_private->dp for the main program's
2146 objfile, then remove this conditional. */
2147 if (obj_private
->dp
)
2148 write_register (27, obj_private
->dp
);
2155 #ifndef GDB_TARGET_IS_HPPA_20W
2156 /* Prefer __gcc_plt_call over the HP supplied routine because
2157 __gcc_plt_call works for any number of arguments. */
2159 if (lookup_minimal_symbol ("__gcc_plt_call", NULL
, NULL
) == NULL
)
2160 using_gcc_plt_call
= 0;
2162 msymbol
= lookup_minimal_symbol ("$$dyncall", NULL
, NULL
);
2163 if (msymbol
== NULL
)
2164 error ("Can't find an address for $$dyncall trampoline");
2166 dyncall_addr
= SYMBOL_VALUE_ADDRESS (msymbol
);
2168 /* FUN could be a procedure label, in which case we have to get
2169 its real address and the value of its GOT/DP if we plan to
2170 call the routine via gcc_plt_call. */
2171 if ((fun
& 0x2) && using_gcc_plt_call
)
2173 /* Get the GOT/DP value for the target function. It's
2174 at *(fun+4). Note the call dummy is *NOT* allowed to
2175 trash %r19 before calling the target function. */
2176 write_register (19, read_memory_integer ((fun
& ~0x3) + 4,
2179 /* Now get the real address for the function we are calling, it's
2181 fun
= (CORE_ADDR
) read_memory_integer (fun
& ~0x3,
2182 TARGET_PTR_BIT
/ 8);
2187 #ifndef GDB_TARGET_IS_PA_ELF
2188 /* FUN could be an export stub, the real address of a function, or
2189 a PLABEL. When using gcc's PLT call routine we must call an import
2190 stub rather than the export stub or real function for lazy binding
2193 If we are using the gcc PLT call routine, then we need to
2194 get the import stub for the target function. */
2195 if (using_gcc_plt_call
&& som_solib_get_got_by_pc (fun
))
2197 struct objfile
*objfile
;
2198 struct minimal_symbol
*funsymbol
, *stub_symbol
;
2199 CORE_ADDR newfun
= 0;
2201 funsymbol
= lookup_minimal_symbol_by_pc (fun
);
2203 error ("Unable to find minimal symbol for target function.\n");
2205 /* Search all the object files for an import symbol with the
2207 ALL_OBJFILES (objfile
)
2210 = lookup_minimal_symbol_solib_trampoline
2211 (SYMBOL_NAME (funsymbol
), NULL
, objfile
);
2214 stub_symbol
= lookup_minimal_symbol (SYMBOL_NAME (funsymbol
),
2217 /* Found a symbol with the right name. */
2220 struct unwind_table_entry
*u
;
2221 /* It must be a shared library trampoline. */
2222 if (MSYMBOL_TYPE (stub_symbol
) != mst_solib_trampoline
)
2225 /* It must also be an import stub. */
2226 u
= find_unwind_entry (SYMBOL_VALUE (stub_symbol
));
2228 || (u
->stub_unwind
.stub_type
!= IMPORT
2229 #ifdef GDB_NATIVE_HPUX_11
2230 /* Sigh. The hpux 10.20 dynamic linker will blow
2231 chunks if we perform a call to an unbound function
2232 via the IMPORT_SHLIB stub. The hpux 11.00 dynamic
2233 linker will blow chunks if we do not call the
2234 unbound function via the IMPORT_SHLIB stub.
2236 We currently have no way to select bevahior on just
2237 the target. However, we only support HPUX/SOM in
2238 native mode. So we conditinalize on a native
2239 #ifdef. Ugly. Ugly. Ugly */
2240 && u
->stub_unwind
.stub_type
!= IMPORT_SHLIB
2245 /* OK. Looks like the correct import stub. */
2246 newfun
= SYMBOL_VALUE (stub_symbol
);
2249 /* If we found an IMPORT stub, then we want to stop
2250 searching now. If we found an IMPORT_SHLIB, we want
2251 to continue the search in the hopes that we will find
2253 if (u
->stub_unwind
.stub_type
== IMPORT
)
2258 /* Ouch. We did not find an import stub. Make an attempt to
2259 do the right thing instead of just croaking. Most of the
2260 time this will actually work. */
2262 write_register (19, som_solib_get_got_by_pc (fun
));
2264 u
= find_unwind_entry (fun
);
2266 && (u
->stub_unwind
.stub_type
== IMPORT
2267 || u
->stub_unwind
.stub_type
== IMPORT_SHLIB
))
2268 trampoline
= lookup_minimal_symbol ("__gcc_plt_call", NULL
, NULL
);
2270 /* If we found the import stub in the shared library, then we have
2271 to set %r19 before we call the stub. */
2272 if (u
&& u
->stub_unwind
.stub_type
== IMPORT_SHLIB
)
2273 write_register (19, som_solib_get_got_by_pc (fun
));
2278 /* If we are calling into another load module then have sr4export call the
2279 magic __d_plt_call routine which is linked in from end.o.
2281 You can't use _sr4export to make the call as the value in sp-24 will get
2282 fried and you end up returning to the wrong location. You can't call the
2283 target as the code to bind the PLT entry to a function can't return to a
2286 Also, query the dynamic linker in the inferior to provide a suitable
2287 PLABEL for the target function. */
2288 if (!using_gcc_plt_call
)
2292 /* Get a handle for the shared library containing FUN. Given the
2293 handle we can query the shared library for a PLABEL. */
2294 solib_handle
= som_solib_get_solib_by_pc (fun
);
2298 struct minimal_symbol
*fmsymbol
= lookup_minimal_symbol_by_pc (fun
);
2300 trampoline
= lookup_minimal_symbol ("__d_plt_call", NULL
, NULL
);
2302 if (trampoline
== NULL
)
2304 error ("Can't find an address for __d_plt_call or __gcc_plt_call trampoline\nSuggest linking executable with -g or compiling with gcc.");
2307 /* This is where sr4export will jump to. */
2308 new_fun
= SYMBOL_VALUE_ADDRESS (trampoline
);
2310 /* If the function is in a shared library, then call __d_shl_get to
2311 get a PLABEL for the target function. */
2312 new_stub
= find_stub_with_shl_get (fmsymbol
, solib_handle
);
2315 error ("Can't find an import stub for %s", SYMBOL_NAME (fmsymbol
));
2317 /* We have to store the address of the stub in __shlib_funcptr. */
2318 msymbol
= lookup_minimal_symbol ("__shlib_funcptr", NULL
,
2319 (struct objfile
*) NULL
);
2321 if (msymbol
== NULL
)
2322 error ("Can't find an address for __shlib_funcptr");
2323 target_write_memory (SYMBOL_VALUE_ADDRESS (msymbol
),
2324 (char *) &new_stub
, 4);
2326 /* We want sr4export to call __d_plt_call, so we claim it is
2327 the final target. Clear trampoline. */
2333 /* Store upper 21 bits of function address into ldil. fun will either be
2334 the final target (most cases) or __d_plt_call when calling into a shared
2335 library and __gcc_plt_call is not available. */
2336 store_unsigned_integer
2337 (&dummy
[FUNC_LDIL_OFFSET
],
2339 deposit_21 (fun
>> 11,
2340 extract_unsigned_integer (&dummy
[FUNC_LDIL_OFFSET
],
2341 INSTRUCTION_SIZE
)));
2343 /* Store lower 11 bits of function address into ldo */
2344 store_unsigned_integer
2345 (&dummy
[FUNC_LDO_OFFSET
],
2347 deposit_14 (fun
& MASK_11
,
2348 extract_unsigned_integer (&dummy
[FUNC_LDO_OFFSET
],
2349 INSTRUCTION_SIZE
)));
2350 #ifdef SR4EXPORT_LDIL_OFFSET
2353 CORE_ADDR trampoline_addr
;
2355 /* We may still need sr4export's address too. */
2357 if (trampoline
== NULL
)
2359 msymbol
= lookup_minimal_symbol ("_sr4export", NULL
, NULL
);
2360 if (msymbol
== NULL
)
2361 error ("Can't find an address for _sr4export trampoline");
2363 trampoline_addr
= SYMBOL_VALUE_ADDRESS (msymbol
);
2366 trampoline_addr
= SYMBOL_VALUE_ADDRESS (trampoline
);
2369 /* Store upper 21 bits of trampoline's address into ldil */
2370 store_unsigned_integer
2371 (&dummy
[SR4EXPORT_LDIL_OFFSET
],
2373 deposit_21 (trampoline_addr
>> 11,
2374 extract_unsigned_integer (&dummy
[SR4EXPORT_LDIL_OFFSET
],
2375 INSTRUCTION_SIZE
)));
2377 /* Store lower 11 bits of trampoline's address into ldo */
2378 store_unsigned_integer
2379 (&dummy
[SR4EXPORT_LDO_OFFSET
],
2381 deposit_14 (trampoline_addr
& MASK_11
,
2382 extract_unsigned_integer (&dummy
[SR4EXPORT_LDO_OFFSET
],
2383 INSTRUCTION_SIZE
)));
2387 write_register (22, pc
);
2389 /* If we are in a syscall, then we should call the stack dummy
2390 directly. $$dyncall is not needed as the kernel sets up the
2391 space id registers properly based on the value in %r31. In
2392 fact calling $$dyncall will not work because the value in %r22
2393 will be clobbered on the syscall exit path.
2395 Similarly if the current PC is in a shared library. Note however,
2396 this scheme won't work if the shared library isn't mapped into
2397 the same space as the stack. */
2400 #ifndef GDB_TARGET_IS_PA_ELF
2401 else if (som_solib_get_got_by_pc (target_read_pc (inferior_ptid
)))
2405 return dyncall_addr
;
2412 /* If the pid is in a syscall, then the FP register is not readable.
2413 We'll return zero in that case, rather than attempting to read it
2414 and cause a warning. */
2416 target_read_fp (int pid
)
2418 int flags
= read_register (FLAGS_REGNUM
);
2422 return (CORE_ADDR
) 0;
2425 /* This is the only site that may directly read_register () the FP
2426 register. All others must use TARGET_READ_FP (). */
2427 return read_register (FP_REGNUM
);
2431 /* Get the PC from %r31 if currently in a syscall. Also mask out privilege
2435 target_read_pc (ptid_t ptid
)
2437 int flags
= read_register_pid (FLAGS_REGNUM
, ptid
);
2439 /* The following test does not belong here. It is OS-specific, and belongs
2441 /* Test SS_INSYSCALL */
2443 return read_register_pid (31, ptid
) & ~0x3;
2445 return read_register_pid (PC_REGNUM
, ptid
) & ~0x3;
2448 /* Write out the PC. If currently in a syscall, then also write the new
2449 PC value into %r31. */
2452 target_write_pc (CORE_ADDR v
, ptid_t ptid
)
2454 int flags
= read_register_pid (FLAGS_REGNUM
, ptid
);
2456 /* The following test does not belong here. It is OS-specific, and belongs
2458 /* If in a syscall, then set %r31. Also make sure to get the
2459 privilege bits set correctly. */
2460 /* Test SS_INSYSCALL */
2462 write_register_pid (31, v
| 0x3, ptid
);
2464 write_register_pid (PC_REGNUM
, v
, ptid
);
2465 write_register_pid (NPC_REGNUM
, v
+ 4, ptid
);
2468 /* return the alignment of a type in bytes. Structures have the maximum
2469 alignment required by their fields. */
2472 hppa_alignof (struct type
*type
)
2474 int max_align
, align
, i
;
2475 CHECK_TYPEDEF (type
);
2476 switch (TYPE_CODE (type
))
2481 return TYPE_LENGTH (type
);
2482 case TYPE_CODE_ARRAY
:
2483 return hppa_alignof (TYPE_FIELD_TYPE (type
, 0));
2484 case TYPE_CODE_STRUCT
:
2485 case TYPE_CODE_UNION
:
2487 for (i
= 0; i
< TYPE_NFIELDS (type
); i
++)
2489 /* Bit fields have no real alignment. */
2490 /* if (!TYPE_FIELD_BITPOS (type, i)) */
2491 if (!TYPE_FIELD_BITSIZE (type
, i
)) /* elz: this should be bitsize */
2493 align
= hppa_alignof (TYPE_FIELD_TYPE (type
, i
));
2494 max_align
= max (max_align
, align
);
2503 /* Print the register regnum, or all registers if regnum is -1 */
2506 pa_do_registers_info (int regnum
, int fpregs
)
2508 char raw_regs
[REGISTER_BYTES
];
2511 /* Make a copy of gdb's save area (may cause actual
2512 reads from the target). */
2513 for (i
= 0; i
< NUM_REGS
; i
++)
2514 frame_register_read (selected_frame
, i
, raw_regs
+ REGISTER_BYTE (i
));
2517 pa_print_registers (raw_regs
, regnum
, fpregs
);
2518 else if (regnum
< FP4_REGNUM
)
2522 /* Why is the value not passed through "extract_signed_integer"
2523 as in "pa_print_registers" below? */
2524 pa_register_look_aside (raw_regs
, regnum
, ®_val
[0]);
2528 printf_unfiltered ("%s %lx\n", REGISTER_NAME (regnum
), reg_val
[1]);
2532 /* Fancy % formats to prevent leading zeros. */
2533 if (reg_val
[0] == 0)
2534 printf_unfiltered ("%s %lx\n", REGISTER_NAME (regnum
), reg_val
[1]);
2536 printf_unfiltered ("%s %lx%8.8lx\n", REGISTER_NAME (regnum
),
2537 reg_val
[0], reg_val
[1]);
2541 /* Note that real floating point values only start at
2542 FP4_REGNUM. FP0 and up are just status and error
2543 registers, which have integral (bit) values. */
2544 pa_print_fp_reg (regnum
);
2547 /********** new function ********************/
2549 pa_do_strcat_registers_info (int regnum
, int fpregs
, struct ui_file
*stream
,
2550 enum precision_type precision
)
2552 char raw_regs
[REGISTER_BYTES
];
2555 /* Make a copy of gdb's save area (may cause actual
2556 reads from the target). */
2557 for (i
= 0; i
< NUM_REGS
; i
++)
2558 frame_register_read (selected_frame
, i
, raw_regs
+ REGISTER_BYTE (i
));
2561 pa_strcat_registers (raw_regs
, regnum
, fpregs
, stream
);
2563 else if (regnum
< FP4_REGNUM
)
2567 /* Why is the value not passed through "extract_signed_integer"
2568 as in "pa_print_registers" below? */
2569 pa_register_look_aside (raw_regs
, regnum
, ®_val
[0]);
2573 fprintf_unfiltered (stream
, "%s %lx", REGISTER_NAME (regnum
), reg_val
[1]);
2577 /* Fancy % formats to prevent leading zeros. */
2578 if (reg_val
[0] == 0)
2579 fprintf_unfiltered (stream
, "%s %lx", REGISTER_NAME (regnum
),
2582 fprintf_unfiltered (stream
, "%s %lx%8.8lx", REGISTER_NAME (regnum
),
2583 reg_val
[0], reg_val
[1]);
2587 /* Note that real floating point values only start at
2588 FP4_REGNUM. FP0 and up are just status and error
2589 registers, which have integral (bit) values. */
2590 pa_strcat_fp_reg (regnum
, stream
, precision
);
2593 /* If this is a PA2.0 machine, fetch the real 64-bit register
2594 value. Otherwise use the info from gdb's saved register area.
2596 Note that reg_val is really expected to be an array of longs,
2597 with two elements. */
2599 pa_register_look_aside (char *raw_regs
, int regnum
, long *raw_val
)
2601 static int know_which
= 0; /* False */
2604 unsigned int offset
;
2609 char buf
[MAX_REGISTER_RAW_SIZE
];
2614 if (CPU_PA_RISC2_0
== sysconf (_SC_CPU_VERSION
))
2619 know_which
= 1; /* True */
2627 raw_val
[1] = *(long *) (raw_regs
+ REGISTER_BYTE (regnum
));
2631 /* Code below copied from hppah-nat.c, with fixes for wide
2632 registers, using different area of save_state, etc. */
2633 if (regnum
== FLAGS_REGNUM
|| regnum
>= FP0_REGNUM
||
2634 !HAVE_STRUCT_SAVE_STATE_T
|| !HAVE_STRUCT_MEMBER_SS_WIDE
)
2636 /* Use narrow regs area of save_state and default macro. */
2637 offset
= U_REGS_OFFSET
;
2638 regaddr
= register_addr (regnum
, offset
);
2643 /* Use wide regs area, and calculate registers as 8 bytes wide.
2645 We'd like to do this, but current version of "C" doesn't
2648 offset = offsetof(save_state_t, ss_wide);
2650 Note that to avoid "C" doing typed pointer arithmetic, we
2651 have to cast away the type in our offset calculation:
2652 otherwise we get an offset of 1! */
2654 /* NB: save_state_t is not available before HPUX 9.
2655 The ss_wide field is not available previous to HPUX 10.20,
2656 so to avoid compile-time warnings, we only compile this for
2657 PA 2.0 processors. This control path should only be followed
2658 if we're debugging a PA 2.0 processor, so this should not cause
2661 /* #if the following code out so that this file can still be
2662 compiled on older HPUX boxes (< 10.20) which don't have
2663 this structure/structure member. */
2664 #if HAVE_STRUCT_SAVE_STATE_T == 1 && HAVE_STRUCT_MEMBER_SS_WIDE == 1
2667 offset
= ((int) &temp
.ss_wide
) - ((int) &temp
);
2668 regaddr
= offset
+ regnum
* 8;
2673 for (i
= start
; i
< 2; i
++)
2676 raw_val
[i
] = call_ptrace (PT_RUREGS
, PIDGET (inferior_ptid
),
2677 (PTRACE_ARG3_TYPE
) regaddr
, 0);
2680 /* Warning, not error, in case we are attached; sometimes the
2681 kernel doesn't let us at the registers. */
2682 char *err
= safe_strerror (errno
);
2683 char *msg
= alloca (strlen (err
) + 128);
2684 sprintf (msg
, "reading register %s: %s", REGISTER_NAME (regnum
), err
);
2689 regaddr
+= sizeof (long);
2692 if (regnum
== PCOQ_HEAD_REGNUM
|| regnum
== PCOQ_TAIL_REGNUM
)
2693 raw_val
[1] &= ~0x3; /* I think we're masking out space bits */
2699 /* "Info all-reg" command */
2702 pa_print_registers (char *raw_regs
, int regnum
, int fpregs
)
2705 /* Alas, we are compiled so that "long long" is 32 bits */
2708 int rows
= 48, columns
= 2;
2710 for (i
= 0; i
< rows
; i
++)
2712 for (j
= 0; j
< columns
; j
++)
2714 /* We display registers in column-major order. */
2715 int regnum
= i
+ j
* rows
;
2717 /* Q: Why is the value passed through "extract_signed_integer",
2718 while above, in "pa_do_registers_info" it isn't?
2720 pa_register_look_aside (raw_regs
, regnum
, &raw_val
[0]);
2722 /* Even fancier % formats to prevent leading zeros
2723 and still maintain the output in columns. */
2726 /* Being big-endian, on this machine the low bits
2727 (the ones we want to look at) are in the second longword. */
2728 long_val
= extract_signed_integer (&raw_val
[1], 4);
2729 printf_filtered ("%10.10s: %8lx ",
2730 REGISTER_NAME (regnum
), long_val
);
2734 /* raw_val = extract_signed_integer(&raw_val, 8); */
2735 if (raw_val
[0] == 0)
2736 printf_filtered ("%10.10s: %8lx ",
2737 REGISTER_NAME (regnum
), raw_val
[1]);
2739 printf_filtered ("%10.10s: %8lx%8.8lx ",
2740 REGISTER_NAME (regnum
),
2741 raw_val
[0], raw_val
[1]);
2744 printf_unfiltered ("\n");
2748 for (i
= FP4_REGNUM
; i
< NUM_REGS
; i
++) /* FP4_REGNUM == 72 */
2749 pa_print_fp_reg (i
);
2752 /************* new function ******************/
2754 pa_strcat_registers (char *raw_regs
, int regnum
, int fpregs
,
2755 struct ui_file
*stream
)
2758 long raw_val
[2]; /* Alas, we are compiled so that "long long" is 32 bits */
2760 enum precision_type precision
;
2762 precision
= unspecified_precision
;
2764 for (i
= 0; i
< 18; i
++)
2766 for (j
= 0; j
< 4; j
++)
2768 /* Q: Why is the value passed through "extract_signed_integer",
2769 while above, in "pa_do_registers_info" it isn't?
2771 pa_register_look_aside (raw_regs
, i
+ (j
* 18), &raw_val
[0]);
2773 /* Even fancier % formats to prevent leading zeros
2774 and still maintain the output in columns. */
2777 /* Being big-endian, on this machine the low bits
2778 (the ones we want to look at) are in the second longword. */
2779 long_val
= extract_signed_integer (&raw_val
[1], 4);
2780 fprintf_filtered (stream
, "%8.8s: %8lx ",
2781 REGISTER_NAME (i
+ (j
* 18)), long_val
);
2785 /* raw_val = extract_signed_integer(&raw_val, 8); */
2786 if (raw_val
[0] == 0)
2787 fprintf_filtered (stream
, "%8.8s: %8lx ",
2788 REGISTER_NAME (i
+ (j
* 18)), raw_val
[1]);
2790 fprintf_filtered (stream
, "%8.8s: %8lx%8.8lx ",
2791 REGISTER_NAME (i
+ (j
* 18)), raw_val
[0],
2795 fprintf_unfiltered (stream
, "\n");
2799 for (i
= FP4_REGNUM
; i
< NUM_REGS
; i
++) /* FP4_REGNUM == 72 */
2800 pa_strcat_fp_reg (i
, stream
, precision
);
2804 pa_print_fp_reg (int i
)
2806 char raw_buffer
[MAX_REGISTER_RAW_SIZE
];
2807 char virtual_buffer
[MAX_REGISTER_VIRTUAL_SIZE
];
2809 /* Get 32bits of data. */
2810 frame_register_read (selected_frame
, i
, raw_buffer
);
2812 /* Put it in the buffer. No conversions are ever necessary. */
2813 memcpy (virtual_buffer
, raw_buffer
, REGISTER_RAW_SIZE (i
));
2815 fputs_filtered (REGISTER_NAME (i
), gdb_stdout
);
2816 print_spaces_filtered (8 - strlen (REGISTER_NAME (i
)), gdb_stdout
);
2817 fputs_filtered ("(single precision) ", gdb_stdout
);
2819 val_print (REGISTER_VIRTUAL_TYPE (i
), virtual_buffer
, 0, 0, gdb_stdout
, 0,
2820 1, 0, Val_pretty_default
);
2821 printf_filtered ("\n");
2823 /* If "i" is even, then this register can also be a double-precision
2824 FP register. Dump it out as such. */
2827 /* Get the data in raw format for the 2nd half. */
2828 frame_register_read (selected_frame
, i
+ 1, raw_buffer
);
2830 /* Copy it into the appropriate part of the virtual buffer. */
2831 memcpy (virtual_buffer
+ REGISTER_RAW_SIZE (i
), raw_buffer
,
2832 REGISTER_RAW_SIZE (i
));
2834 /* Dump it as a double. */
2835 fputs_filtered (REGISTER_NAME (i
), gdb_stdout
);
2836 print_spaces_filtered (8 - strlen (REGISTER_NAME (i
)), gdb_stdout
);
2837 fputs_filtered ("(double precision) ", gdb_stdout
);
2839 val_print (builtin_type_double
, virtual_buffer
, 0, 0, gdb_stdout
, 0,
2840 1, 0, Val_pretty_default
);
2841 printf_filtered ("\n");
2845 /*************** new function ***********************/
2847 pa_strcat_fp_reg (int i
, struct ui_file
*stream
, enum precision_type precision
)
2849 char raw_buffer
[MAX_REGISTER_RAW_SIZE
];
2850 char virtual_buffer
[MAX_REGISTER_VIRTUAL_SIZE
];
2852 fputs_filtered (REGISTER_NAME (i
), stream
);
2853 print_spaces_filtered (8 - strlen (REGISTER_NAME (i
)), stream
);
2855 /* Get 32bits of data. */
2856 frame_register_read (selected_frame
, i
, raw_buffer
);
2858 /* Put it in the buffer. No conversions are ever necessary. */
2859 memcpy (virtual_buffer
, raw_buffer
, REGISTER_RAW_SIZE (i
));
2861 if (precision
== double_precision
&& (i
% 2) == 0)
2864 char raw_buf
[MAX_REGISTER_RAW_SIZE
];
2866 /* Get the data in raw format for the 2nd half. */
2867 frame_register_read (selected_frame
, i
+ 1, raw_buf
);
2869 /* Copy it into the appropriate part of the virtual buffer. */
2870 memcpy (virtual_buffer
+ REGISTER_RAW_SIZE (i
), raw_buf
, REGISTER_RAW_SIZE (i
));
2872 val_print (builtin_type_double
, virtual_buffer
, 0, 0, stream
, 0,
2873 1, 0, Val_pretty_default
);
2878 val_print (REGISTER_VIRTUAL_TYPE (i
), virtual_buffer
, 0, 0, stream
, 0,
2879 1, 0, Val_pretty_default
);
2884 /* Return one if PC is in the call path of a trampoline, else return zero.
2886 Note we return one for *any* call trampoline (long-call, arg-reloc), not
2887 just shared library trampolines (import, export). */
2890 in_solib_call_trampoline (CORE_ADDR pc
, char *name
)
2892 struct minimal_symbol
*minsym
;
2893 struct unwind_table_entry
*u
;
2894 static CORE_ADDR dyncall
= 0;
2895 static CORE_ADDR sr4export
= 0;
2897 #ifdef GDB_TARGET_IS_HPPA_20W
2898 /* PA64 has a completely different stub/trampoline scheme. Is it
2899 better? Maybe. It's certainly harder to determine with any
2900 certainty that we are in a stub because we can not refer to the
2903 The heuristic is simple. Try to lookup the current PC value in th
2904 minimal symbol table. If that fails, then assume we are not in a
2907 Then see if the PC value falls within the section bounds for the
2908 section containing the minimal symbol we found in the first
2909 step. If it does, then assume we are not in a stub and return.
2911 Finally peek at the instructions to see if they look like a stub. */
2913 struct minimal_symbol
*minsym
;
2918 minsym
= lookup_minimal_symbol_by_pc (pc
);
2922 sec
= SYMBOL_BFD_SECTION (minsym
);
2925 && sec
->vma
+ sec
->_cooked_size
< pc
)
2928 /* We might be in a stub. Peek at the instructions. Stubs are 3
2929 instructions long. */
2930 insn
= read_memory_integer (pc
, 4);
2932 /* Find out where we think we are within the stub. */
2933 if ((insn
& 0xffffc00e) == 0x53610000)
2935 else if ((insn
& 0xffffffff) == 0xe820d000)
2937 else if ((insn
& 0xffffc00e) == 0x537b0000)
2942 /* Now verify each insn in the range looks like a stub instruction. */
2943 insn
= read_memory_integer (addr
, 4);
2944 if ((insn
& 0xffffc00e) != 0x53610000)
2947 /* Now verify each insn in the range looks like a stub instruction. */
2948 insn
= read_memory_integer (addr
+ 4, 4);
2949 if ((insn
& 0xffffffff) != 0xe820d000)
2952 /* Now verify each insn in the range looks like a stub instruction. */
2953 insn
= read_memory_integer (addr
+ 8, 4);
2954 if ((insn
& 0xffffc00e) != 0x537b0000)
2957 /* Looks like a stub. */
2962 /* FIXME XXX - dyncall and sr4export must be initialized whenever we get a
2965 /* First see if PC is in one of the two C-library trampolines. */
2968 minsym
= lookup_minimal_symbol ("$$dyncall", NULL
, NULL
);
2970 dyncall
= SYMBOL_VALUE_ADDRESS (minsym
);
2977 minsym
= lookup_minimal_symbol ("_sr4export", NULL
, NULL
);
2979 sr4export
= SYMBOL_VALUE_ADDRESS (minsym
);
2984 if (pc
== dyncall
|| pc
== sr4export
)
2987 minsym
= lookup_minimal_symbol_by_pc (pc
);
2988 if (minsym
&& strcmp (SYMBOL_NAME (minsym
), ".stub") == 0)
2991 /* Get the unwind descriptor corresponding to PC, return zero
2992 if no unwind was found. */
2993 u
= find_unwind_entry (pc
);
2997 /* If this isn't a linker stub, then return now. */
2998 if (u
->stub_unwind
.stub_type
== 0)
3001 /* By definition a long-branch stub is a call stub. */
3002 if (u
->stub_unwind
.stub_type
== LONG_BRANCH
)
3005 /* The call and return path execute the same instructions within
3006 an IMPORT stub! So an IMPORT stub is both a call and return
3008 if (u
->stub_unwind
.stub_type
== IMPORT
)
3011 /* Parameter relocation stubs always have a call path and may have a
3013 if (u
->stub_unwind
.stub_type
== PARAMETER_RELOCATION
3014 || u
->stub_unwind
.stub_type
== EXPORT
)
3018 /* Search forward from the current PC until we hit a branch
3019 or the end of the stub. */
3020 for (addr
= pc
; addr
<= u
->region_end
; addr
+= 4)
3024 insn
= read_memory_integer (addr
, 4);
3026 /* Does it look like a bl? If so then it's the call path, if
3027 we find a bv or be first, then we're on the return path. */
3028 if ((insn
& 0xfc00e000) == 0xe8000000)
3030 else if ((insn
& 0xfc00e001) == 0xe800c000
3031 || (insn
& 0xfc000000) == 0xe0000000)
3035 /* Should never happen. */
3036 warning ("Unable to find branch in parameter relocation stub.\n");
3040 /* Unknown stub type. For now, just return zero. */
3044 /* Return one if PC is in the return path of a trampoline, else return zero.
3046 Note we return one for *any* call trampoline (long-call, arg-reloc), not
3047 just shared library trampolines (import, export). */
3050 in_solib_return_trampoline (CORE_ADDR pc
, char *name
)
3052 struct unwind_table_entry
*u
;
3054 /* Get the unwind descriptor corresponding to PC, return zero
3055 if no unwind was found. */
3056 u
= find_unwind_entry (pc
);
3060 /* If this isn't a linker stub or it's just a long branch stub, then
3062 if (u
->stub_unwind
.stub_type
== 0 || u
->stub_unwind
.stub_type
== LONG_BRANCH
)
3065 /* The call and return path execute the same instructions within
3066 an IMPORT stub! So an IMPORT stub is both a call and return
3068 if (u
->stub_unwind
.stub_type
== IMPORT
)
3071 /* Parameter relocation stubs always have a call path and may have a
3073 if (u
->stub_unwind
.stub_type
== PARAMETER_RELOCATION
3074 || u
->stub_unwind
.stub_type
== EXPORT
)
3078 /* Search forward from the current PC until we hit a branch
3079 or the end of the stub. */
3080 for (addr
= pc
; addr
<= u
->region_end
; addr
+= 4)
3084 insn
= read_memory_integer (addr
, 4);
3086 /* Does it look like a bl? If so then it's the call path, if
3087 we find a bv or be first, then we're on the return path. */
3088 if ((insn
& 0xfc00e000) == 0xe8000000)
3090 else if ((insn
& 0xfc00e001) == 0xe800c000
3091 || (insn
& 0xfc000000) == 0xe0000000)
3095 /* Should never happen. */
3096 warning ("Unable to find branch in parameter relocation stub.\n");
3100 /* Unknown stub type. For now, just return zero. */
3105 /* Figure out if PC is in a trampoline, and if so find out where
3106 the trampoline will jump to. If not in a trampoline, return zero.
3108 Simple code examination probably is not a good idea since the code
3109 sequences in trampolines can also appear in user code.
3111 We use unwinds and information from the minimal symbol table to
3112 determine when we're in a trampoline. This won't work for ELF
3113 (yet) since it doesn't create stub unwind entries. Whether or
3114 not ELF will create stub unwinds or normal unwinds for linker
3115 stubs is still being debated.
3117 This should handle simple calls through dyncall or sr4export,
3118 long calls, argument relocation stubs, and dyncall/sr4export
3119 calling an argument relocation stub. It even handles some stubs
3120 used in dynamic executables. */
3123 skip_trampoline_code (CORE_ADDR pc
, char *name
)
3126 long prev_inst
, curr_inst
, loc
;
3127 static CORE_ADDR dyncall
= 0;
3128 static CORE_ADDR dyncall_external
= 0;
3129 static CORE_ADDR sr4export
= 0;
3130 struct minimal_symbol
*msym
;
3131 struct unwind_table_entry
*u
;
3133 /* FIXME XXX - dyncall and sr4export must be initialized whenever we get a
3138 msym
= lookup_minimal_symbol ("$$dyncall", NULL
, NULL
);
3140 dyncall
= SYMBOL_VALUE_ADDRESS (msym
);
3145 if (!dyncall_external
)
3147 msym
= lookup_minimal_symbol ("$$dyncall_external", NULL
, NULL
);
3149 dyncall_external
= SYMBOL_VALUE_ADDRESS (msym
);
3151 dyncall_external
= -1;
3156 msym
= lookup_minimal_symbol ("_sr4export", NULL
, NULL
);
3158 sr4export
= SYMBOL_VALUE_ADDRESS (msym
);
3163 /* Addresses passed to dyncall may *NOT* be the actual address
3164 of the function. So we may have to do something special. */
3167 pc
= (CORE_ADDR
) read_register (22);
3169 /* If bit 30 (counting from the left) is on, then pc is the address of
3170 the PLT entry for this function, not the address of the function
3171 itself. Bit 31 has meaning too, but only for MPE. */
3173 pc
= (CORE_ADDR
) read_memory_integer (pc
& ~0x3, TARGET_PTR_BIT
/ 8);
3175 if (pc
== dyncall_external
)
3177 pc
= (CORE_ADDR
) read_register (22);
3178 pc
= (CORE_ADDR
) read_memory_integer (pc
& ~0x3, TARGET_PTR_BIT
/ 8);
3180 else if (pc
== sr4export
)
3181 pc
= (CORE_ADDR
) (read_register (22));
3183 /* Get the unwind descriptor corresponding to PC, return zero
3184 if no unwind was found. */
3185 u
= find_unwind_entry (pc
);
3189 /* If this isn't a linker stub, then return now. */
3190 /* elz: attention here! (FIXME) because of a compiler/linker
3191 error, some stubs which should have a non zero stub_unwind.stub_type
3192 have unfortunately a value of zero. So this function would return here
3193 as if we were not in a trampoline. To fix this, we go look at the partial
3194 symbol information, which reports this guy as a stub.
3195 (FIXME): Unfortunately, we are not that lucky: it turns out that the
3196 partial symbol information is also wrong sometimes. This is because
3197 when it is entered (somread.c::som_symtab_read()) it can happen that
3198 if the type of the symbol (from the som) is Entry, and the symbol is
3199 in a shared library, then it can also be a trampoline. This would
3200 be OK, except that I believe the way they decide if we are ina shared library
3201 does not work. SOOOO..., even if we have a regular function w/o trampolines
3202 its minimal symbol can be assigned type mst_solib_trampoline.
3203 Also, if we find that the symbol is a real stub, then we fix the unwind
3204 descriptor, and define the stub type to be EXPORT.
3205 Hopefully this is correct most of the times. */
3206 if (u
->stub_unwind
.stub_type
== 0)
3209 /* elz: NOTE (FIXME!) once the problem with the unwind information is fixed
3210 we can delete all the code which appears between the lines */
3211 /*--------------------------------------------------------------------------*/
3212 msym
= lookup_minimal_symbol_by_pc (pc
);
3214 if (msym
== NULL
|| MSYMBOL_TYPE (msym
) != mst_solib_trampoline
)
3215 return orig_pc
== pc
? 0 : pc
& ~0x3;
3217 else if (msym
!= NULL
&& MSYMBOL_TYPE (msym
) == mst_solib_trampoline
)
3219 struct objfile
*objfile
;
3220 struct minimal_symbol
*msymbol
;
3221 int function_found
= 0;
3223 /* go look if there is another minimal symbol with the same name as
3224 this one, but with type mst_text. This would happen if the msym
3225 is an actual trampoline, in which case there would be another
3226 symbol with the same name corresponding to the real function */
3228 ALL_MSYMBOLS (objfile
, msymbol
)
3230 if (MSYMBOL_TYPE (msymbol
) == mst_text
3231 && STREQ (SYMBOL_NAME (msymbol
), SYMBOL_NAME (msym
)))
3239 /* the type of msym is correct (mst_solib_trampoline), but
3240 the unwind info is wrong, so set it to the correct value */
3241 u
->stub_unwind
.stub_type
= EXPORT
;
3243 /* the stub type info in the unwind is correct (this is not a
3244 trampoline), but the msym type information is wrong, it
3245 should be mst_text. So we need to fix the msym, and also
3246 get out of this function */
3248 MSYMBOL_TYPE (msym
) = mst_text
;
3249 return orig_pc
== pc
? 0 : pc
& ~0x3;
3253 /*--------------------------------------------------------------------------*/
3256 /* It's a stub. Search for a branch and figure out where it goes.
3257 Note we have to handle multi insn branch sequences like ldil;ble.
3258 Most (all?) other branches can be determined by examining the contents
3259 of certain registers and the stack. */
3266 /* Make sure we haven't walked outside the range of this stub. */
3267 if (u
!= find_unwind_entry (loc
))
3269 warning ("Unable to find branch in linker stub");
3270 return orig_pc
== pc
? 0 : pc
& ~0x3;
3273 prev_inst
= curr_inst
;
3274 curr_inst
= read_memory_integer (loc
, 4);
3276 /* Does it look like a branch external using %r1? Then it's the
3277 branch from the stub to the actual function. */
3278 if ((curr_inst
& 0xffe0e000) == 0xe0202000)
3280 /* Yup. See if the previous instruction loaded
3281 a value into %r1. If so compute and return the jump address. */
3282 if ((prev_inst
& 0xffe00000) == 0x20200000)
3283 return (extract_21 (prev_inst
) + extract_17 (curr_inst
)) & ~0x3;
3286 warning ("Unable to find ldil X,%%r1 before ble Y(%%sr4,%%r1).");
3287 return orig_pc
== pc
? 0 : pc
& ~0x3;
3291 /* Does it look like a be 0(sr0,%r21)? OR
3292 Does it look like a be, n 0(sr0,%r21)? OR
3293 Does it look like a bve (r21)? (this is on PA2.0)
3294 Does it look like a bve, n(r21)? (this is also on PA2.0)
3295 That's the branch from an
3296 import stub to an export stub.
3298 It is impossible to determine the target of the branch via
3299 simple examination of instructions and/or data (consider
3300 that the address in the plabel may be the address of the
3301 bind-on-reference routine in the dynamic loader).
3303 So we have try an alternative approach.
3305 Get the name of the symbol at our current location; it should
3306 be a stub symbol with the same name as the symbol in the
3309 Then lookup a minimal symbol with the same name; we should
3310 get the minimal symbol for the target routine in the shared
3311 library as those take precedence of import/export stubs. */
3312 if ((curr_inst
== 0xe2a00000) ||
3313 (curr_inst
== 0xe2a00002) ||
3314 (curr_inst
== 0xeaa0d000) ||
3315 (curr_inst
== 0xeaa0d002))
3317 struct minimal_symbol
*stubsym
, *libsym
;
3319 stubsym
= lookup_minimal_symbol_by_pc (loc
);
3320 if (stubsym
== NULL
)
3322 warning ("Unable to find symbol for 0x%lx", loc
);
3323 return orig_pc
== pc
? 0 : pc
& ~0x3;
3326 libsym
= lookup_minimal_symbol (SYMBOL_NAME (stubsym
), NULL
, NULL
);
3329 warning ("Unable to find library symbol for %s\n",
3330 SYMBOL_NAME (stubsym
));
3331 return orig_pc
== pc
? 0 : pc
& ~0x3;
3334 return SYMBOL_VALUE (libsym
);
3337 /* Does it look like bl X,%rp or bl X,%r0? Another way to do a
3338 branch from the stub to the actual function. */
3340 else if ((curr_inst
& 0xffe0e000) == 0xe8400000
3341 || (curr_inst
& 0xffe0e000) == 0xe8000000
3342 || (curr_inst
& 0xffe0e000) == 0xe800A000)
3343 return (loc
+ extract_17 (curr_inst
) + 8) & ~0x3;
3345 /* Does it look like bv (rp)? Note this depends on the
3346 current stack pointer being the same as the stack
3347 pointer in the stub itself! This is a branch on from the
3348 stub back to the original caller. */
3349 /*else if ((curr_inst & 0xffe0e000) == 0xe840c000) */
3350 else if ((curr_inst
& 0xffe0f000) == 0xe840c000)
3352 /* Yup. See if the previous instruction loaded
3354 if (prev_inst
== 0x4bc23ff1)
3355 return (read_memory_integer
3356 (read_register (SP_REGNUM
) - 8, 4)) & ~0x3;
3359 warning ("Unable to find restore of %%rp before bv (%%rp).");
3360 return orig_pc
== pc
? 0 : pc
& ~0x3;
3364 /* elz: added this case to capture the new instruction
3365 at the end of the return part of an export stub used by
3366 the PA2.0: BVE, n (rp) */
3367 else if ((curr_inst
& 0xffe0f000) == 0xe840d000)
3369 return (read_memory_integer
3370 (read_register (SP_REGNUM
) - 24, TARGET_PTR_BIT
/ 8)) & ~0x3;
3373 /* What about be,n 0(sr0,%rp)? It's just another way we return to
3374 the original caller from the stub. Used in dynamic executables. */
3375 else if (curr_inst
== 0xe0400002)
3377 /* The value we jump to is sitting in sp - 24. But that's
3378 loaded several instructions before the be instruction.
3379 I guess we could check for the previous instruction being
3380 mtsp %r1,%sr0 if we want to do sanity checking. */
3381 return (read_memory_integer
3382 (read_register (SP_REGNUM
) - 24, TARGET_PTR_BIT
/ 8)) & ~0x3;
3385 /* Haven't found the branch yet, but we're still in the stub.
3392 /* For the given instruction (INST), return any adjustment it makes
3393 to the stack pointer or zero for no adjustment.
3395 This only handles instructions commonly found in prologues. */
3398 prologue_inst_adjust_sp (unsigned long inst
)
3400 /* This must persist across calls. */
3401 static int save_high21
;
3403 /* The most common way to perform a stack adjustment ldo X(sp),sp */
3404 if ((inst
& 0xffffc000) == 0x37de0000)
3405 return extract_14 (inst
);
3408 if ((inst
& 0xffe00000) == 0x6fc00000)
3409 return extract_14 (inst
);
3411 /* std,ma X,D(sp) */
3412 if ((inst
& 0xffe00008) == 0x73c00008)
3413 return (inst
& 0x1 ? -1 << 13 : 0) | (((inst
>> 4) & 0x3ff) << 3);
3415 /* addil high21,%r1; ldo low11,(%r1),%r30)
3416 save high bits in save_high21 for later use. */
3417 if ((inst
& 0xffe00000) == 0x28200000)
3419 save_high21
= extract_21 (inst
);
3423 if ((inst
& 0xffff0000) == 0x343e0000)
3424 return save_high21
+ extract_14 (inst
);
3426 /* fstws as used by the HP compilers. */
3427 if ((inst
& 0xffffffe0) == 0x2fd01220)
3428 return extract_5_load (inst
);
3430 /* No adjustment. */
3434 /* Return nonzero if INST is a branch of some kind, else return zero. */
3437 is_branch (unsigned long inst
)
3466 /* Return the register number for a GR which is saved by INST or
3467 zero it INST does not save a GR. */
3470 inst_saves_gr (unsigned long inst
)
3472 /* Does it look like a stw? */
3473 if ((inst
>> 26) == 0x1a || (inst
>> 26) == 0x1b
3474 || (inst
>> 26) == 0x1f
3475 || ((inst
>> 26) == 0x1f
3476 && ((inst
>> 6) == 0xa)))
3477 return extract_5R_store (inst
);
3479 /* Does it look like a std? */
3480 if ((inst
>> 26) == 0x1c
3481 || ((inst
>> 26) == 0x03
3482 && ((inst
>> 6) & 0xf) == 0xb))
3483 return extract_5R_store (inst
);
3485 /* Does it look like a stwm? GCC & HPC may use this in prologues. */
3486 if ((inst
>> 26) == 0x1b)
3487 return extract_5R_store (inst
);
3489 /* Does it look like sth or stb? HPC versions 9.0 and later use these
3491 if ((inst
>> 26) == 0x19 || (inst
>> 26) == 0x18
3492 || ((inst
>> 26) == 0x3
3493 && (((inst
>> 6) & 0xf) == 0x8
3494 || (inst
>> 6) & 0xf) == 0x9))
3495 return extract_5R_store (inst
);
3500 /* Return the register number for a FR which is saved by INST or
3501 zero it INST does not save a FR.
3503 Note we only care about full 64bit register stores (that's the only
3504 kind of stores the prologue will use).
3506 FIXME: What about argument stores with the HP compiler in ANSI mode? */
3509 inst_saves_fr (unsigned long inst
)
3511 /* is this an FSTD ? */
3512 if ((inst
& 0xfc00dfc0) == 0x2c001200)
3513 return extract_5r_store (inst
);
3514 if ((inst
& 0xfc000002) == 0x70000002)
3515 return extract_5R_store (inst
);
3516 /* is this an FSTW ? */
3517 if ((inst
& 0xfc00df80) == 0x24001200)
3518 return extract_5r_store (inst
);
3519 if ((inst
& 0xfc000002) == 0x7c000000)
3520 return extract_5R_store (inst
);
3524 /* Advance PC across any function entry prologue instructions
3525 to reach some "real" code.
3527 Use information in the unwind table to determine what exactly should
3528 be in the prologue. */
3532 skip_prologue_hard_way (CORE_ADDR pc
)
3535 CORE_ADDR orig_pc
= pc
;
3536 unsigned long inst
, stack_remaining
, save_gr
, save_fr
, save_rp
, save_sp
;
3537 unsigned long args_stored
, status
, i
, restart_gr
, restart_fr
;
3538 struct unwind_table_entry
*u
;
3544 u
= find_unwind_entry (pc
);
3548 /* If we are not at the beginning of a function, then return now. */
3549 if ((pc
& ~0x3) != u
->region_start
)
3552 /* This is how much of a frame adjustment we need to account for. */
3553 stack_remaining
= u
->Total_frame_size
<< 3;
3555 /* Magic register saves we want to know about. */
3556 save_rp
= u
->Save_RP
;
3557 save_sp
= u
->Save_SP
;
3559 /* An indication that args may be stored into the stack. Unfortunately
3560 the HPUX compilers tend to set this in cases where no args were
3564 /* Turn the Entry_GR field into a bitmask. */
3566 for (i
= 3; i
< u
->Entry_GR
+ 3; i
++)
3568 /* Frame pointer gets saved into a special location. */
3569 if (u
->Save_SP
&& i
== FP_REGNUM
)
3572 save_gr
|= (1 << i
);
3574 save_gr
&= ~restart_gr
;
3576 /* Turn the Entry_FR field into a bitmask too. */
3578 for (i
= 12; i
< u
->Entry_FR
+ 12; i
++)
3579 save_fr
|= (1 << i
);
3580 save_fr
&= ~restart_fr
;
3582 /* Loop until we find everything of interest or hit a branch.
3584 For unoptimized GCC code and for any HP CC code this will never ever
3585 examine any user instructions.
3587 For optimzied GCC code we're faced with problems. GCC will schedule
3588 its prologue and make prologue instructions available for delay slot
3589 filling. The end result is user code gets mixed in with the prologue
3590 and a prologue instruction may be in the delay slot of the first branch
3593 Some unexpected things are expected with debugging optimized code, so
3594 we allow this routine to walk past user instructions in optimized
3596 while (save_gr
|| save_fr
|| save_rp
|| save_sp
|| stack_remaining
> 0
3599 unsigned int reg_num
;
3600 unsigned long old_stack_remaining
, old_save_gr
, old_save_fr
;
3601 unsigned long old_save_rp
, old_save_sp
, next_inst
;
3603 /* Save copies of all the triggers so we can compare them later
3605 old_save_gr
= save_gr
;
3606 old_save_fr
= save_fr
;
3607 old_save_rp
= save_rp
;
3608 old_save_sp
= save_sp
;
3609 old_stack_remaining
= stack_remaining
;
3611 status
= target_read_memory (pc
, buf
, 4);
3612 inst
= extract_unsigned_integer (buf
, 4);
3618 /* Note the interesting effects of this instruction. */
3619 stack_remaining
-= prologue_inst_adjust_sp (inst
);
3621 /* There are limited ways to store the return pointer into the
3623 if (inst
== 0x6bc23fd9 || inst
== 0x0fc212c1)
3626 /* These are the only ways we save SP into the stack. At this time
3627 the HP compilers never bother to save SP into the stack. */
3628 if ((inst
& 0xffffc000) == 0x6fc10000
3629 || (inst
& 0xffffc00c) == 0x73c10008)
3632 /* Are we loading some register with an offset from the argument
3634 if ((inst
& 0xffe00000) == 0x37a00000
3635 || (inst
& 0xffffffe0) == 0x081d0240)
3641 /* Account for general and floating-point register saves. */
3642 reg_num
= inst_saves_gr (inst
);
3643 save_gr
&= ~(1 << reg_num
);
3645 /* Ugh. Also account for argument stores into the stack.
3646 Unfortunately args_stored only tells us that some arguments
3647 where stored into the stack. Not how many or what kind!
3649 This is a kludge as on the HP compiler sets this bit and it
3650 never does prologue scheduling. So once we see one, skip past
3651 all of them. We have similar code for the fp arg stores below.
3653 FIXME. Can still die if we have a mix of GR and FR argument
3655 if (reg_num
>= (TARGET_PTR_BIT
== 64 ? 19 : 23) && reg_num
<= 26)
3657 while (reg_num
>= (TARGET_PTR_BIT
== 64 ? 19 : 23) && reg_num
<= 26)
3660 status
= target_read_memory (pc
, buf
, 4);
3661 inst
= extract_unsigned_integer (buf
, 4);
3664 reg_num
= inst_saves_gr (inst
);
3670 reg_num
= inst_saves_fr (inst
);
3671 save_fr
&= ~(1 << reg_num
);
3673 status
= target_read_memory (pc
+ 4, buf
, 4);
3674 next_inst
= extract_unsigned_integer (buf
, 4);
3680 /* We've got to be read to handle the ldo before the fp register
3682 if ((inst
& 0xfc000000) == 0x34000000
3683 && inst_saves_fr (next_inst
) >= 4
3684 && inst_saves_fr (next_inst
) <= (TARGET_PTR_BIT
== 64 ? 11 : 7))
3686 /* So we drop into the code below in a reasonable state. */
3687 reg_num
= inst_saves_fr (next_inst
);
3691 /* Ugh. Also account for argument stores into the stack.
3692 This is a kludge as on the HP compiler sets this bit and it
3693 never does prologue scheduling. So once we see one, skip past
3695 if (reg_num
>= 4 && reg_num
<= (TARGET_PTR_BIT
== 64 ? 11 : 7))
3697 while (reg_num
>= 4 && reg_num
<= (TARGET_PTR_BIT
== 64 ? 11 : 7))
3700 status
= target_read_memory (pc
, buf
, 4);
3701 inst
= extract_unsigned_integer (buf
, 4);
3704 if ((inst
& 0xfc000000) != 0x34000000)
3706 status
= target_read_memory (pc
+ 4, buf
, 4);
3707 next_inst
= extract_unsigned_integer (buf
, 4);
3710 reg_num
= inst_saves_fr (next_inst
);
3716 /* Quit if we hit any kind of branch. This can happen if a prologue
3717 instruction is in the delay slot of the first call/branch. */
3718 if (is_branch (inst
))
3721 /* What a crock. The HP compilers set args_stored even if no
3722 arguments were stored into the stack (boo hiss). This could
3723 cause this code to then skip a bunch of user insns (up to the
3726 To combat this we try to identify when args_stored was bogusly
3727 set and clear it. We only do this when args_stored is nonzero,
3728 all other resources are accounted for, and nothing changed on
3731 && !(save_gr
|| save_fr
|| save_rp
|| save_sp
|| stack_remaining
> 0)
3732 && old_save_gr
== save_gr
&& old_save_fr
== save_fr
3733 && old_save_rp
== save_rp
&& old_save_sp
== save_sp
3734 && old_stack_remaining
== stack_remaining
)
3741 /* We've got a tenative location for the end of the prologue. However
3742 because of limitations in the unwind descriptor mechanism we may
3743 have went too far into user code looking for the save of a register
3744 that does not exist. So, if there registers we expected to be saved
3745 but never were, mask them out and restart.
3747 This should only happen in optimized code, and should be very rare. */
3748 if (save_gr
|| (save_fr
&& !(restart_fr
|| restart_gr
)))
3751 restart_gr
= save_gr
;
3752 restart_fr
= save_fr
;
3760 /* Return the address of the PC after the last prologue instruction if
3761 we can determine it from the debug symbols. Else return zero. */
3764 after_prologue (CORE_ADDR pc
)
3766 struct symtab_and_line sal
;
3767 CORE_ADDR func_addr
, func_end
;
3770 /* If we can not find the symbol in the partial symbol table, then
3771 there is no hope we can determine the function's start address
3773 if (!find_pc_partial_function (pc
, NULL
, &func_addr
, &func_end
))
3776 /* Get the line associated with FUNC_ADDR. */
3777 sal
= find_pc_line (func_addr
, 0);
3779 /* There are only two cases to consider. First, the end of the source line
3780 is within the function bounds. In that case we return the end of the
3781 source line. Second is the end of the source line extends beyond the
3782 bounds of the current function. We need to use the slow code to
3783 examine instructions in that case.
3785 Anything else is simply a bug elsewhere. Fixing it here is absolutely
3786 the wrong thing to do. In fact, it should be entirely possible for this
3787 function to always return zero since the slow instruction scanning code
3788 is supposed to *always* work. If it does not, then it is a bug. */
3789 if (sal
.end
< func_end
)
3795 /* To skip prologues, I use this predicate. Returns either PC itself
3796 if the code at PC does not look like a function prologue; otherwise
3797 returns an address that (if we're lucky) follows the prologue. If
3798 LENIENT, then we must skip everything which is involved in setting
3799 up the frame (it's OK to skip more, just so long as we don't skip
3800 anything which might clobber the registers which are being saved.
3801 Currently we must not skip more on the alpha, but we might the lenient
3805 hppa_skip_prologue (CORE_ADDR pc
)
3809 CORE_ADDR post_prologue_pc
;
3812 /* See if we can determine the end of the prologue via the symbol table.
3813 If so, then return either PC, or the PC after the prologue, whichever
3816 post_prologue_pc
= after_prologue (pc
);
3818 /* If after_prologue returned a useful address, then use it. Else
3819 fall back on the instruction skipping code.
3821 Some folks have claimed this causes problems because the breakpoint
3822 may be the first instruction of the prologue. If that happens, then
3823 the instruction skipping code has a bug that needs to be fixed. */
3824 if (post_prologue_pc
!= 0)
3825 return max (pc
, post_prologue_pc
);
3827 return (skip_prologue_hard_way (pc
));
3830 /* Put here the code to store, into a struct frame_saved_regs,
3831 the addresses of the saved registers of frame described by FRAME_INFO.
3832 This includes special registers such as pc and fp saved in special
3833 ways in the stack frame. sp is even more special:
3834 the address we return for it IS the sp for the next frame. */
3837 hppa_frame_find_saved_regs (struct frame_info
*frame_info
,
3838 struct frame_saved_regs
*frame_saved_regs
)
3841 struct unwind_table_entry
*u
;
3842 unsigned long inst
, stack_remaining
, save_gr
, save_fr
, save_rp
, save_sp
;
3846 int final_iteration
;
3848 /* Zero out everything. */
3849 memset (frame_saved_regs
, '\0', sizeof (struct frame_saved_regs
));
3851 /* Call dummy frames always look the same, so there's no need to
3852 examine the dummy code to determine locations of saved registers;
3853 instead, let find_dummy_frame_regs fill in the correct offsets
3854 for the saved registers. */
3855 if ((frame_info
->pc
>= frame_info
->frame
3856 && frame_info
->pc
<= (frame_info
->frame
3857 /* A call dummy is sized in words, but it is
3858 actually a series of instructions. Account
3859 for that scaling factor. */
3860 + ((REGISTER_SIZE
/ INSTRUCTION_SIZE
)
3861 * CALL_DUMMY_LENGTH
)
3862 /* Similarly we have to account for 64bit
3863 wide register saves. */
3864 + (32 * REGISTER_SIZE
)
3865 /* We always consider FP regs 8 bytes long. */
3866 + (NUM_REGS
- FP0_REGNUM
) * 8
3867 /* Similarly we have to account for 64bit
3868 wide register saves. */
3869 + (6 * REGISTER_SIZE
))))
3870 find_dummy_frame_regs (frame_info
, frame_saved_regs
);
3872 /* Interrupt handlers are special too. They lay out the register
3873 state in the exact same order as the register numbers in GDB. */
3874 if (pc_in_interrupt_handler (frame_info
->pc
))
3876 for (i
= 0; i
< NUM_REGS
; i
++)
3878 /* SP is a little special. */
3880 frame_saved_regs
->regs
[SP_REGNUM
]
3881 = read_memory_integer (frame_info
->frame
+ SP_REGNUM
* 4,
3882 TARGET_PTR_BIT
/ 8);
3884 frame_saved_regs
->regs
[i
] = frame_info
->frame
+ i
* 4;
3889 #ifdef FRAME_FIND_SAVED_REGS_IN_SIGTRAMP
3890 /* Handle signal handler callers. */
3891 if ((get_frame_type (frame_info
) == SIGTRAMP_FRAME
))
3893 FRAME_FIND_SAVED_REGS_IN_SIGTRAMP (frame_info
, frame_saved_regs
);
3898 /* Get the starting address of the function referred to by the PC
3900 pc
= get_pc_function_start (frame_info
->pc
);
3903 u
= find_unwind_entry (pc
);
3907 /* This is how much of a frame adjustment we need to account for. */
3908 stack_remaining
= u
->Total_frame_size
<< 3;
3910 /* Magic register saves we want to know about. */
3911 save_rp
= u
->Save_RP
;
3912 save_sp
= u
->Save_SP
;
3914 /* Turn the Entry_GR field into a bitmask. */
3916 for (i
= 3; i
< u
->Entry_GR
+ 3; i
++)
3918 /* Frame pointer gets saved into a special location. */
3919 if (u
->Save_SP
&& i
== FP_REGNUM
)
3922 save_gr
|= (1 << i
);
3925 /* Turn the Entry_FR field into a bitmask too. */
3927 for (i
= 12; i
< u
->Entry_FR
+ 12; i
++)
3928 save_fr
|= (1 << i
);
3930 /* The frame always represents the value of %sp at entry to the
3931 current function (and is thus equivalent to the "saved" stack
3933 frame_saved_regs
->regs
[SP_REGNUM
] = frame_info
->frame
;
3935 /* Loop until we find everything of interest or hit a branch.
3937 For unoptimized GCC code and for any HP CC code this will never ever
3938 examine any user instructions.
3940 For optimized GCC code we're faced with problems. GCC will schedule
3941 its prologue and make prologue instructions available for delay slot
3942 filling. The end result is user code gets mixed in with the prologue
3943 and a prologue instruction may be in the delay slot of the first branch
3946 Some unexpected things are expected with debugging optimized code, so
3947 we allow this routine to walk past user instructions in optimized
3949 final_iteration
= 0;
3950 while ((save_gr
|| save_fr
|| save_rp
|| save_sp
|| stack_remaining
> 0)
3951 && pc
<= frame_info
->pc
)
3953 status
= target_read_memory (pc
, buf
, 4);
3954 inst
= extract_unsigned_integer (buf
, 4);
3960 /* Note the interesting effects of this instruction. */
3961 stack_remaining
-= prologue_inst_adjust_sp (inst
);
3963 /* There are limited ways to store the return pointer into the
3965 if (inst
== 0x6bc23fd9) /* stw rp,-0x14(sr0,sp) */
3968 frame_saved_regs
->regs
[RP_REGNUM
] = frame_info
->frame
- 20;
3970 else if (inst
== 0x0fc212c1) /* std rp,-0x10(sr0,sp) */
3973 frame_saved_regs
->regs
[RP_REGNUM
] = frame_info
->frame
- 16;
3976 /* Note if we saved SP into the stack. This also happens to indicate
3977 the location of the saved frame pointer. */
3978 if ( (inst
& 0xffffc000) == 0x6fc10000 /* stw,ma r1,N(sr0,sp) */
3979 || (inst
& 0xffffc00c) == 0x73c10008) /* std,ma r1,N(sr0,sp) */
3981 frame_saved_regs
->regs
[FP_REGNUM
] = frame_info
->frame
;
3985 /* Account for general and floating-point register saves. */
3986 reg
= inst_saves_gr (inst
);
3987 if (reg
>= 3 && reg
<= 18
3988 && (!u
->Save_SP
|| reg
!= FP_REGNUM
))
3990 save_gr
&= ~(1 << reg
);
3992 /* stwm with a positive displacement is a *post modify*. */
3993 if ((inst
>> 26) == 0x1b
3994 && extract_14 (inst
) >= 0)
3995 frame_saved_regs
->regs
[reg
] = frame_info
->frame
;
3996 /* A std has explicit post_modify forms. */
3997 else if ((inst
& 0xfc00000c0) == 0x70000008)
3998 frame_saved_regs
->regs
[reg
] = frame_info
->frame
;
4003 if ((inst
>> 26) == 0x1c)
4004 offset
= (inst
& 0x1 ? -1 << 13 : 0) | (((inst
>> 4) & 0x3ff) << 3);
4005 else if ((inst
>> 26) == 0x03)
4006 offset
= low_sign_extend (inst
& 0x1f, 5);
4008 offset
= extract_14 (inst
);
4010 /* Handle code with and without frame pointers. */
4012 frame_saved_regs
->regs
[reg
]
4013 = frame_info
->frame
+ offset
;
4015 frame_saved_regs
->regs
[reg
]
4016 = (frame_info
->frame
+ (u
->Total_frame_size
<< 3)
4022 /* GCC handles callee saved FP regs a little differently.
4024 It emits an instruction to put the value of the start of
4025 the FP store area into %r1. It then uses fstds,ma with
4026 a basereg of %r1 for the stores.
4028 HP CC emits them at the current stack pointer modifying
4029 the stack pointer as it stores each register. */
4031 /* ldo X(%r3),%r1 or ldo X(%r30),%r1. */
4032 if ((inst
& 0xffffc000) == 0x34610000
4033 || (inst
& 0xffffc000) == 0x37c10000)
4034 fp_loc
= extract_14 (inst
);
4036 reg
= inst_saves_fr (inst
);
4037 if (reg
>= 12 && reg
<= 21)
4039 /* Note +4 braindamage below is necessary because the FP status
4040 registers are internally 8 registers rather than the expected
4042 save_fr
&= ~(1 << reg
);
4045 /* 1st HP CC FP register store. After this instruction
4046 we've set enough state that the GCC and HPCC code are
4047 both handled in the same manner. */
4048 frame_saved_regs
->regs
[reg
+ FP4_REGNUM
+ 4] = frame_info
->frame
;
4053 frame_saved_regs
->regs
[reg
+ FP0_REGNUM
+ 4]
4054 = frame_info
->frame
+ fp_loc
;
4059 /* Quit if we hit any kind of branch the previous iteration. */
4060 if (final_iteration
)
4063 /* We want to look precisely one instruction beyond the branch
4064 if we have not found everything yet. */
4065 if (is_branch (inst
))
4066 final_iteration
= 1;
4074 /* Exception handling support for the HP-UX ANSI C++ compiler.
4075 The compiler (aCC) provides a callback for exception events;
4076 GDB can set a breakpoint on this callback and find out what
4077 exception event has occurred. */
4079 /* The name of the hook to be set to point to the callback function */
4080 static char HP_ACC_EH_notify_hook
[] = "__eh_notify_hook";
4081 /* The name of the function to be used to set the hook value */
4082 static char HP_ACC_EH_set_hook_value
[] = "__eh_set_hook_value";
4083 /* The name of the callback function in end.o */
4084 static char HP_ACC_EH_notify_callback
[] = "__d_eh_notify_callback";
4085 /* Name of function in end.o on which a break is set (called by above) */
4086 static char HP_ACC_EH_break
[] = "__d_eh_break";
4087 /* Name of flag (in end.o) that enables catching throws */
4088 static char HP_ACC_EH_catch_throw
[] = "__d_eh_catch_throw";
4089 /* Name of flag (in end.o) that enables catching catching */
4090 static char HP_ACC_EH_catch_catch
[] = "__d_eh_catch_catch";
4091 /* The enum used by aCC */
4099 /* Is exception-handling support available with this executable? */
4100 static int hp_cxx_exception_support
= 0;
4101 /* Has the initialize function been run? */
4102 int hp_cxx_exception_support_initialized
= 0;
4103 /* Similar to above, but imported from breakpoint.c -- non-target-specific */
4104 extern int exception_support_initialized
;
4105 /* Address of __eh_notify_hook */
4106 static CORE_ADDR eh_notify_hook_addr
= 0;
4107 /* Address of __d_eh_notify_callback */
4108 static CORE_ADDR eh_notify_callback_addr
= 0;
4109 /* Address of __d_eh_break */
4110 static CORE_ADDR eh_break_addr
= 0;
4111 /* Address of __d_eh_catch_catch */
4112 static CORE_ADDR eh_catch_catch_addr
= 0;
4113 /* Address of __d_eh_catch_throw */
4114 static CORE_ADDR eh_catch_throw_addr
= 0;
4115 /* Sal for __d_eh_break */
4116 static struct symtab_and_line
*break_callback_sal
= 0;
4118 /* Code in end.c expects __d_pid to be set in the inferior,
4119 otherwise __d_eh_notify_callback doesn't bother to call
4120 __d_eh_break! So we poke the pid into this symbol
4125 setup_d_pid_in_inferior (void)
4128 struct minimal_symbol
*msymbol
;
4129 char buf
[4]; /* FIXME 32x64? */
4131 /* Slam the pid of the process into __d_pid; failing is only a warning! */
4132 msymbol
= lookup_minimal_symbol ("__d_pid", NULL
, symfile_objfile
);
4133 if (msymbol
== NULL
)
4135 warning ("Unable to find __d_pid symbol in object file.");
4136 warning ("Suggest linking executable with -g (links in /opt/langtools/lib/end.o).");
4140 anaddr
= SYMBOL_VALUE_ADDRESS (msymbol
);
4141 store_unsigned_integer (buf
, 4, PIDGET (inferior_ptid
)); /* FIXME 32x64? */
4142 if (target_write_memory (anaddr
, buf
, 4)) /* FIXME 32x64? */
4144 warning ("Unable to write __d_pid");
4145 warning ("Suggest linking executable with -g (links in /opt/langtools/lib/end.o).");
4151 /* Initialize exception catchpoint support by looking for the
4152 necessary hooks/callbacks in end.o, etc., and set the hook value to
4153 point to the required debug function
4159 initialize_hp_cxx_exception_support (void)
4161 struct symtabs_and_lines sals
;
4162 struct cleanup
*old_chain
;
4163 struct cleanup
*canonical_strings_chain
= NULL
;
4166 char *addr_end
= NULL
;
4167 char **canonical
= (char **) NULL
;
4169 struct symbol
*sym
= NULL
;
4170 struct minimal_symbol
*msym
= NULL
;
4171 struct objfile
*objfile
;
4172 asection
*shlib_info
;
4174 /* Detect and disallow recursion. On HP-UX with aCC, infinite
4175 recursion is a possibility because finding the hook for exception
4176 callbacks involves making a call in the inferior, which means
4177 re-inserting breakpoints which can re-invoke this code */
4179 static int recurse
= 0;
4182 hp_cxx_exception_support_initialized
= 0;
4183 exception_support_initialized
= 0;
4187 hp_cxx_exception_support
= 0;
4189 /* First check if we have seen any HP compiled objects; if not,
4190 it is very unlikely that HP's idiosyncratic callback mechanism
4191 for exception handling debug support will be available!
4192 This will percolate back up to breakpoint.c, where our callers
4193 will decide to try the g++ exception-handling support instead. */
4194 if (!hp_som_som_object_present
)
4197 /* We have a SOM executable with SOM debug info; find the hooks */
4199 /* First look for the notify hook provided by aCC runtime libs */
4200 /* If we find this symbol, we conclude that the executable must
4201 have HP aCC exception support built in. If this symbol is not
4202 found, even though we're a HP SOM-SOM file, we may have been
4203 built with some other compiler (not aCC). This results percolates
4204 back up to our callers in breakpoint.c which can decide to
4205 try the g++ style of exception support instead.
4206 If this symbol is found but the other symbols we require are
4207 not found, there is something weird going on, and g++ support
4208 should *not* be tried as an alternative.
4210 ASSUMPTION: Only HP aCC code will have __eh_notify_hook defined.
4211 ASSUMPTION: HP aCC and g++ modules cannot be linked together. */
4213 /* libCsup has this hook; it'll usually be non-debuggable */
4214 msym
= lookup_minimal_symbol (HP_ACC_EH_notify_hook
, NULL
, NULL
);
4217 eh_notify_hook_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4218 hp_cxx_exception_support
= 1;
4222 warning ("Unable to find exception callback hook (%s).", HP_ACC_EH_notify_hook
);
4223 warning ("Executable may not have been compiled debuggable with HP aCC.");
4224 warning ("GDB will be unable to intercept exception events.");
4225 eh_notify_hook_addr
= 0;
4226 hp_cxx_exception_support
= 0;
4230 /* Next look for the notify callback routine in end.o */
4231 /* This is always available in the SOM symbol dictionary if end.o is linked in */
4232 msym
= lookup_minimal_symbol (HP_ACC_EH_notify_callback
, NULL
, NULL
);
4235 eh_notify_callback_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4236 hp_cxx_exception_support
= 1;
4240 warning ("Unable to find exception callback routine (%s).", HP_ACC_EH_notify_callback
);
4241 warning ("Suggest linking executable with -g (links in /opt/langtools/lib/end.o).");
4242 warning ("GDB will be unable to intercept exception events.");
4243 eh_notify_callback_addr
= 0;
4247 #ifndef GDB_TARGET_IS_HPPA_20W
4248 /* Check whether the executable is dynamically linked or archive bound */
4249 /* With an archive-bound executable we can use the raw addresses we find
4250 for the callback function, etc. without modification. For an executable
4251 with shared libraries, we have to do more work to find the plabel, which
4252 can be the target of a call through $$dyncall from the aCC runtime support
4253 library (libCsup) which is linked shared by default by aCC. */
4254 /* This test below was copied from somsolib.c/somread.c. It may not be a very
4255 reliable one to test that an executable is linked shared. pai/1997-07-18 */
4256 shlib_info
= bfd_get_section_by_name (symfile_objfile
->obfd
, "$SHLIB_INFO$");
4257 if (shlib_info
&& (bfd_section_size (symfile_objfile
->obfd
, shlib_info
) != 0))
4259 /* The minsym we have has the local code address, but that's not the
4260 plabel that can be used by an inter-load-module call. */
4261 /* Find solib handle for main image (which has end.o), and use that
4262 and the min sym as arguments to __d_shl_get() (which does the equivalent
4263 of shl_findsym()) to find the plabel. */
4265 args_for_find_stub args
;
4266 static char message
[] = "Error while finding exception callback hook:\n";
4268 args
.solib_handle
= som_solib_get_solib_by_pc (eh_notify_callback_addr
);
4270 args
.return_val
= 0;
4273 catch_errors (cover_find_stub_with_shl_get
, (PTR
) &args
, message
,
4275 eh_notify_callback_addr
= args
.return_val
;
4278 exception_catchpoints_are_fragile
= 1;
4280 if (!eh_notify_callback_addr
)
4282 /* We can get here either if there is no plabel in the export list
4283 for the main image, or if something strange happened (?) */
4284 warning ("Couldn't find a plabel (indirect function label) for the exception callback.");
4285 warning ("GDB will not be able to intercept exception events.");
4290 exception_catchpoints_are_fragile
= 0;
4293 /* Now, look for the breakpointable routine in end.o */
4294 /* This should also be available in the SOM symbol dict. if end.o linked in */
4295 msym
= lookup_minimal_symbol (HP_ACC_EH_break
, NULL
, NULL
);
4298 eh_break_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4299 hp_cxx_exception_support
= 1;
4303 warning ("Unable to find exception callback routine to set breakpoint (%s).", HP_ACC_EH_break
);
4304 warning ("Suggest linking executable with -g (link in /opt/langtools/lib/end.o).");
4305 warning ("GDB will be unable to intercept exception events.");
4310 /* Next look for the catch enable flag provided in end.o */
4311 sym
= lookup_symbol (HP_ACC_EH_catch_catch
, (struct block
*) NULL
,
4312 VAR_NAMESPACE
, 0, (struct symtab
**) NULL
);
4313 if (sym
) /* sometimes present in debug info */
4315 eh_catch_catch_addr
= SYMBOL_VALUE_ADDRESS (sym
);
4316 hp_cxx_exception_support
= 1;
4319 /* otherwise look in SOM symbol dict. */
4321 msym
= lookup_minimal_symbol (HP_ACC_EH_catch_catch
, NULL
, NULL
);
4324 eh_catch_catch_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4325 hp_cxx_exception_support
= 1;
4329 warning ("Unable to enable interception of exception catches.");
4330 warning ("Executable may not have been compiled debuggable with HP aCC.");
4331 warning ("Suggest linking executable with -g (link in /opt/langtools/lib/end.o).");
4336 /* Next look for the catch enable flag provided end.o */
4337 sym
= lookup_symbol (HP_ACC_EH_catch_catch
, (struct block
*) NULL
,
4338 VAR_NAMESPACE
, 0, (struct symtab
**) NULL
);
4339 if (sym
) /* sometimes present in debug info */
4341 eh_catch_throw_addr
= SYMBOL_VALUE_ADDRESS (sym
);
4342 hp_cxx_exception_support
= 1;
4345 /* otherwise look in SOM symbol dict. */
4347 msym
= lookup_minimal_symbol (HP_ACC_EH_catch_throw
, NULL
, NULL
);
4350 eh_catch_throw_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4351 hp_cxx_exception_support
= 1;
4355 warning ("Unable to enable interception of exception throws.");
4356 warning ("Executable may not have been compiled debuggable with HP aCC.");
4357 warning ("Suggest linking executable with -g (link in /opt/langtools/lib/end.o).");
4363 hp_cxx_exception_support
= 2; /* everything worked so far */
4364 hp_cxx_exception_support_initialized
= 1;
4365 exception_support_initialized
= 1;
4370 /* Target operation for enabling or disabling interception of
4372 KIND is either EX_EVENT_THROW or EX_EVENT_CATCH
4373 ENABLE is either 0 (disable) or 1 (enable).
4374 Return value is NULL if no support found;
4375 -1 if something went wrong,
4376 or a pointer to a symtab/line struct if the breakpointable
4377 address was found. */
4379 struct symtab_and_line
*
4380 child_enable_exception_callback (enum exception_event_kind kind
, int enable
)
4384 if (!exception_support_initialized
|| !hp_cxx_exception_support_initialized
)
4385 if (!initialize_hp_cxx_exception_support ())
4388 switch (hp_cxx_exception_support
)
4391 /* Assuming no HP support at all */
4394 /* HP support should be present, but something went wrong */
4395 return (struct symtab_and_line
*) -1; /* yuck! */
4396 /* there may be other cases in the future */
4399 /* Set the EH hook to point to the callback routine */
4400 store_unsigned_integer (buf
, 4, enable
? eh_notify_callback_addr
: 0); /* FIXME 32x64 problem */
4401 /* pai: (temp) FIXME should there be a pack operation first? */
4402 if (target_write_memory (eh_notify_hook_addr
, buf
, 4)) /* FIXME 32x64 problem */
4404 warning ("Could not write to target memory for exception event callback.");
4405 warning ("Interception of exception events may not work.");
4406 return (struct symtab_and_line
*) -1;
4410 /* Ensure that __d_pid is set up correctly -- end.c code checks this. :-( */
4411 if (PIDGET (inferior_ptid
) > 0)
4413 if (setup_d_pid_in_inferior ())
4414 return (struct symtab_and_line
*) -1;
4418 warning ("Internal error: Invalid inferior pid? Cannot intercept exception events.");
4419 return (struct symtab_and_line
*) -1;
4425 case EX_EVENT_THROW
:
4426 store_unsigned_integer (buf
, 4, enable
? 1 : 0);
4427 if (target_write_memory (eh_catch_throw_addr
, buf
, 4)) /* FIXME 32x64? */
4429 warning ("Couldn't enable exception throw interception.");
4430 return (struct symtab_and_line
*) -1;
4433 case EX_EVENT_CATCH
:
4434 store_unsigned_integer (buf
, 4, enable
? 1 : 0);
4435 if (target_write_memory (eh_catch_catch_addr
, buf
, 4)) /* FIXME 32x64? */
4437 warning ("Couldn't enable exception catch interception.");
4438 return (struct symtab_and_line
*) -1;
4442 error ("Request to enable unknown or unsupported exception event.");
4445 /* Copy break address into new sal struct, malloc'ing if needed. */
4446 if (!break_callback_sal
)
4448 break_callback_sal
= (struct symtab_and_line
*) xmalloc (sizeof (struct symtab_and_line
));
4450 init_sal (break_callback_sal
);
4451 break_callback_sal
->symtab
= NULL
;
4452 break_callback_sal
->pc
= eh_break_addr
;
4453 break_callback_sal
->line
= 0;
4454 break_callback_sal
->end
= eh_break_addr
;
4456 return break_callback_sal
;
4459 /* Record some information about the current exception event */
4460 static struct exception_event_record current_ex_event
;
4461 /* Convenience struct */
4462 static struct symtab_and_line null_symtab_and_line
=
4465 /* Report current exception event. Returns a pointer to a record
4466 that describes the kind of the event, where it was thrown from,
4467 and where it will be caught. More information may be reported
4469 struct exception_event_record
*
4470 child_get_current_exception_event (void)
4472 CORE_ADDR event_kind
;
4473 CORE_ADDR throw_addr
;
4474 CORE_ADDR catch_addr
;
4475 struct frame_info
*fi
, *curr_frame
;
4478 curr_frame
= get_current_frame ();
4480 return (struct exception_event_record
*) NULL
;
4482 /* Go up one frame to __d_eh_notify_callback, because at the
4483 point when this code is executed, there's garbage in the
4484 arguments of __d_eh_break. */
4485 fi
= find_relative_frame (curr_frame
, &level
);
4487 return (struct exception_event_record
*) NULL
;
4491 /* Read in the arguments */
4492 /* __d_eh_notify_callback() is called with 3 arguments:
4493 1. event kind catch or throw
4494 2. the target address if known
4495 3. a flag -- not sure what this is. pai/1997-07-17 */
4496 event_kind
= read_register (ARG0_REGNUM
);
4497 catch_addr
= read_register (ARG1_REGNUM
);
4499 /* Now go down to a user frame */
4500 /* For a throw, __d_eh_break is called by
4501 __d_eh_notify_callback which is called by
4502 __notify_throw which is called
4504 For a catch, __d_eh_break is called by
4505 __d_eh_notify_callback which is called by
4506 <stackwalking stuff> which is called by
4507 __throw__<stuff> or __rethrow_<stuff> which is called
4509 /* FIXME: Don't use such magic numbers; search for the frames */
4510 level
= (event_kind
== EX_EVENT_THROW
) ? 3 : 4;
4511 fi
= find_relative_frame (curr_frame
, &level
);
4513 return (struct exception_event_record
*) NULL
;
4516 throw_addr
= fi
->pc
;
4518 /* Go back to original (top) frame */
4519 select_frame (curr_frame
);
4521 current_ex_event
.kind
= (enum exception_event_kind
) event_kind
;
4522 current_ex_event
.throw_sal
= find_pc_line (throw_addr
, 1);
4523 current_ex_event
.catch_sal
= find_pc_line (catch_addr
, 1);
4525 return ¤t_ex_event
;
4529 unwind_command (char *exp
, int from_tty
)
4532 struct unwind_table_entry
*u
;
4534 /* If we have an expression, evaluate it and use it as the address. */
4536 if (exp
!= 0 && *exp
!= 0)
4537 address
= parse_and_eval_address (exp
);
4541 u
= find_unwind_entry (address
);
4545 printf_unfiltered ("Can't find unwind table entry for %s\n", exp
);
4549 printf_unfiltered ("unwind_table_entry (0x%s):\n",
4550 paddr_nz (host_pointer_to_address (u
)));
4552 printf_unfiltered ("\tregion_start = ");
4553 print_address (u
->region_start
, gdb_stdout
);
4555 printf_unfiltered ("\n\tregion_end = ");
4556 print_address (u
->region_end
, gdb_stdout
);
4558 #define pif(FLD) if (u->FLD) printf_unfiltered (" "#FLD);
4560 printf_unfiltered ("\n\tflags =");
4561 pif (Cannot_unwind
);
4563 pif (Millicode_save_sr0
);
4566 pif (Variable_Frame
);
4567 pif (Separate_Package_Body
);
4568 pif (Frame_Extension_Millicode
);
4569 pif (Stack_Overflow_Check
);
4570 pif (Two_Instruction_SP_Increment
);
4574 pif (Save_MRP_in_frame
);
4575 pif (extn_ptr_defined
);
4576 pif (Cleanup_defined
);
4577 pif (MPE_XL_interrupt_marker
);
4578 pif (HP_UX_interrupt_marker
);
4581 putchar_unfiltered ('\n');
4583 #define pin(FLD) printf_unfiltered ("\t"#FLD" = 0x%x\n", u->FLD);
4585 pin (Region_description
);
4588 pin (Total_frame_size
);
4591 #ifdef PREPARE_TO_PROCEED
4593 /* If the user has switched threads, and there is a breakpoint
4594 at the old thread's pc location, then switch to that thread
4595 and return TRUE, else return FALSE and don't do a thread
4596 switch (or rather, don't seem to have done a thread switch).
4598 Ptrace-based gdb will always return FALSE to the thread-switch
4599 query, and thus also to PREPARE_TO_PROCEED.
4601 The important thing is whether there is a BPT instruction,
4602 not how many user breakpoints there are. So we have to worry
4603 about things like these:
4607 o User hits bp, no switch -- NO
4609 o User hits bp, switches threads -- YES
4611 o User hits bp, deletes bp, switches threads -- NO
4613 o User hits bp, deletes one of two or more bps
4614 at that PC, user switches threads -- YES
4616 o Plus, since we're buffering events, the user may have hit a
4617 breakpoint, deleted the breakpoint and then gotten another
4618 hit on that same breakpoint on another thread which
4619 actually hit before the delete. (FIXME in breakpoint.c
4620 so that "dead" breakpoints are ignored?) -- NO
4622 For these reasons, we have to violate information hiding and
4623 call "breakpoint_here_p". If core gdb thinks there is a bpt
4624 here, that's what counts, as core gdb is the one which is
4625 putting the BPT instruction in and taking it out.
4627 Note that this implementation is potentially redundant now that
4628 default_prepare_to_proceed() has been added.
4630 FIXME This may not support switching threads after Ctrl-C
4631 correctly. The default implementation does support this. */
4633 hppa_prepare_to_proceed (void)
4636 pid_t current_thread
;
4638 old_thread
= hppa_switched_threads (PIDGET (inferior_ptid
));
4639 if (old_thread
!= 0)
4641 /* Switched over from "old_thread". Try to do
4642 as little work as possible, 'cause mostly
4643 we're going to switch back. */
4645 CORE_ADDR old_pc
= read_pc ();
4647 /* Yuk, shouldn't use global to specify current
4648 thread. But that's how gdb does it. */
4649 current_thread
= PIDGET (inferior_ptid
);
4650 inferior_ptid
= pid_to_ptid (old_thread
);
4652 new_pc
= read_pc ();
4653 if (new_pc
!= old_pc
/* If at same pc, no need */
4654 && breakpoint_here_p (new_pc
))
4656 /* User hasn't deleted the BP.
4657 Return TRUE, finishing switch to "old_thread". */
4658 flush_cached_frames ();
4659 registers_changed ();
4661 printf ("---> PREPARE_TO_PROCEED (was %d, now %d)!\n",
4662 current_thread
, PIDGET (inferior_ptid
));
4668 /* Otherwise switch back to the user-chosen thread. */
4669 inferior_ptid
= pid_to_ptid (current_thread
);
4670 new_pc
= read_pc (); /* Re-prime register cache */
4675 #endif /* PREPARE_TO_PROCEED */
4678 hppa_skip_permanent_breakpoint (void)
4680 /* To step over a breakpoint instruction on the PA takes some
4681 fiddling with the instruction address queue.
4683 When we stop at a breakpoint, the IA queue front (the instruction
4684 we're executing now) points at the breakpoint instruction, and
4685 the IA queue back (the next instruction to execute) points to
4686 whatever instruction we would execute after the breakpoint, if it
4687 were an ordinary instruction. This is the case even if the
4688 breakpoint is in the delay slot of a branch instruction.
4690 Clearly, to step past the breakpoint, we need to set the queue
4691 front to the back. But what do we put in the back? What
4692 instruction comes after that one? Because of the branch delay
4693 slot, the next insn is always at the back + 4. */
4694 write_register (PCOQ_HEAD_REGNUM
, read_register (PCOQ_TAIL_REGNUM
));
4695 write_register (PCSQ_HEAD_REGNUM
, read_register (PCSQ_TAIL_REGNUM
));
4697 write_register (PCOQ_TAIL_REGNUM
, read_register (PCOQ_TAIL_REGNUM
) + 4);
4698 /* We can leave the tail's space the same, since there's no jump. */
4701 /* Copy the function value from VALBUF into the proper location
4702 for a function return.
4704 Called only in the context of the "return" command. */
4707 hppa_store_return_value (struct type
*type
, char *valbuf
)
4709 /* For software floating point, the return value goes into the
4710 integer registers. But we do not have any flag to key this on,
4711 so we always store the value into the integer registers.
4713 If its a float value, then we also store it into the floating
4715 deprecated_write_register_bytes (REGISTER_BYTE (28)
4716 + (TYPE_LENGTH (type
) > 4
4717 ? (8 - TYPE_LENGTH (type
))
4718 : (4 - TYPE_LENGTH (type
))),
4719 valbuf
, TYPE_LENGTH (type
));
4720 if (! SOFT_FLOAT
&& TYPE_CODE (type
) == TYPE_CODE_FLT
)
4721 deprecated_write_register_bytes (REGISTER_BYTE (FP4_REGNUM
),
4722 valbuf
, TYPE_LENGTH (type
));
4725 /* Copy the function's return value into VALBUF.
4727 This function is called only in the context of "target function calls",
4728 ie. when the debugger forces a function to be called in the child, and
4729 when the debugger forces a fucntion to return prematurely via the
4730 "return" command. */
4733 hppa_extract_return_value (struct type
*type
, char *regbuf
, char *valbuf
)
4735 if (! SOFT_FLOAT
&& TYPE_CODE (type
) == TYPE_CODE_FLT
)
4737 (char *)regbuf
+ REGISTER_BYTE (FP4_REGNUM
),
4738 TYPE_LENGTH (type
));
4742 + REGISTER_BYTE (28)
4743 + (TYPE_LENGTH (type
) > 4
4744 ? (8 - TYPE_LENGTH (type
))
4745 : (4 - TYPE_LENGTH (type
)))),
4746 TYPE_LENGTH (type
));
4750 hppa_reg_struct_has_addr (int gcc_p
, struct type
*type
)
4752 /* On the PA, any pass-by-value structure > 8 bytes is actually passed
4753 via a pointer regardless of its type or the compiler used. */
4754 return (TYPE_LENGTH (type
) > 8);
4758 hppa_inner_than (CORE_ADDR lhs
, CORE_ADDR rhs
)
4760 /* Stack grows upward */
4765 hppa_stack_align (CORE_ADDR sp
)
4767 /* elz: adjust the quantity to the next highest value which is
4768 64-bit aligned. This is used in valops.c, when the sp is adjusted.
4769 On hppa the sp must always be kept 64-bit aligned */
4770 return ((sp
% 8) ? (sp
+ 7) & -8 : sp
);
4774 hppa_pc_requires_run_before_use (CORE_ADDR pc
)
4776 /* Sometimes we may pluck out a minimal symbol that has a negative address.
4778 An example of this occurs when an a.out is linked against a foo.sl.
4779 The foo.sl defines a global bar(), and the a.out declares a signature
4780 for bar(). However, the a.out doesn't directly call bar(), but passes
4781 its address in another call.
4783 If you have this scenario and attempt to "break bar" before running,
4784 gdb will find a minimal symbol for bar() in the a.out. But that
4785 symbol's address will be negative. What this appears to denote is
4786 an index backwards from the base of the procedure linkage table (PLT)
4787 into the data linkage table (DLT), the end of which is contiguous
4788 with the start of the PLT. This is clearly not a valid address for
4789 us to set a breakpoint on.
4791 Note that one must be careful in how one checks for a negative address.
4792 0xc0000000 is a legitimate address of something in a shared text
4793 segment, for example. Since I don't know what the possible range
4794 is of these "really, truly negative" addresses that come from the
4795 minimal symbols, I'm resorting to the gross hack of checking the
4796 top byte of the address for all 1's. Sigh. */
4798 return (!target_has_stack
&& (pc
& 0xFF000000));
4802 hppa_instruction_nullified (void)
4804 /* brobecker 2002/11/07: Couldn't we use a ULONGEST here? It would
4805 avoid the type cast. I'm leaving it as is for now as I'm doing
4806 semi-mechanical multiarching-related changes. */
4807 const int ipsw
= (int) read_register (IPSW_REGNUM
);
4808 const int flags
= (int) read_register (FLAGS_REGNUM
);
4810 return ((ipsw
& 0x00200000) && !(flags
& 0x2));
4813 /* Index within the register vector of the first byte of the space i
4814 used for register REG_NR. */
4817 hppa_register_byte (int reg_nr
)
4822 /* Return the GDB type object for the "standard" data type of data
4826 hppa_register_virtual_type (int reg_nr
)
4828 if (reg_nr
< FP4_REGNUM
)
4829 return builtin_type_int
;
4831 return builtin_type_float
;
4834 /* Store the address of the place in which to copy the structure the
4835 subroutine will return. This is called from call_function. */
4838 hppa_store_struct_return (CORE_ADDR addr
, CORE_ADDR sp
)
4840 write_register (28, addr
);
4843 /* Return True if REGNUM is not a register available to the user
4844 through ptrace(). */
4847 hppa_cannot_store_register (int regnum
)
4850 || regnum
== PCSQ_HEAD_REGNUM
4851 || (regnum
>= PCSQ_TAIL_REGNUM
&& regnum
< IPSW_REGNUM
)
4852 || (regnum
> IPSW_REGNUM
&& regnum
< FP4_REGNUM
));
4857 hppa_frame_args_address (struct frame_info
*fi
)
4863 hppa_frame_locals_address (struct frame_info
*fi
)
4869 hppa_smash_text_address (CORE_ADDR addr
)
4871 /* The low two bits of the PC on the PA contain the privilege level.
4872 Some genius implementing a (non-GCC) compiler apparently decided
4873 this means that "addresses" in a text section therefore include a
4874 privilege level, and thus symbol tables should contain these bits.
4875 This seems like a bonehead thing to do--anyway, it seems to work
4876 for our purposes to just ignore those bits. */
4878 return (addr
&= ~0x3);
4882 hppa_coerce_float_to_double (struct type
*formal
, struct type
*actual
)
4884 /* FIXME: For the pa, it appears that the debug info marks the
4885 parameters as floats regardless of whether the function is
4886 prototyped, but the actual values are passed as doubles for the
4887 non-prototyped case and floats for the prototyped case. Thus we
4888 choose to make the non-prototyped case work for C and break the
4889 prototyped case, since the non-prototyped case is probably much
4891 return (current_language
-> la_language
== language_c
);
4894 static struct gdbarch
*
4895 hppa_gdbarch_init (struct gdbarch_info info
, struct gdbarch_list
*arches
)
4897 struct gdbarch
*gdbarch
;
4899 /* find a candidate among the list of pre-declared architectures. */
4900 arches
= gdbarch_list_lookup_by_info (arches
, &info
);
4902 return (arches
->gdbarch
);
4904 /* If none found, then allocate and initialize one. */
4905 gdbarch
= gdbarch_alloc (&info
, NULL
);
4911 hppa_dump_tdep (struct gdbarch
*current_gdbarch
, struct ui_file
*file
)
4913 /* Nothing to print for the moment. */
4917 _initialize_hppa_tdep (void)
4919 struct cmd_list_element
*c
;
4920 void break_at_finish_command (char *arg
, int from_tty
);
4921 void tbreak_at_finish_command (char *arg
, int from_tty
);
4922 void break_at_finish_at_depth_command (char *arg
, int from_tty
);
4924 gdbarch_register (bfd_arch_hppa
, hppa_gdbarch_init
, hppa_dump_tdep
);
4925 tm_print_insn
= print_insn_hppa
;
4927 add_cmd ("unwind", class_maintenance
, unwind_command
,
4928 "Print unwind table entry at given address.",
4929 &maintenanceprintlist
);
4931 deprecate_cmd (add_com ("xbreak", class_breakpoint
,
4932 break_at_finish_command
,
4933 concat ("Set breakpoint at procedure exit. \n\
4934 Argument may be function name, or \"*\" and an address.\n\
4935 If function is specified, break at end of code for that function.\n\
4936 If an address is specified, break at the end of the function that contains \n\
4937 that exact address.\n",
4938 "With no arg, uses current execution address of selected stack frame.\n\
4939 This is useful for breaking on return to a stack frame.\n\
4941 Multiple breakpoints at one place are permitted, and useful if conditional.\n\
4943 Do \"help breakpoints\" for info on other commands dealing with breakpoints.", NULL
)), NULL
);
4944 deprecate_cmd (add_com_alias ("xb", "xbreak", class_breakpoint
, 1), NULL
);
4945 deprecate_cmd (add_com_alias ("xbr", "xbreak", class_breakpoint
, 1), NULL
);
4946 deprecate_cmd (add_com_alias ("xbre", "xbreak", class_breakpoint
, 1), NULL
);
4947 deprecate_cmd (add_com_alias ("xbrea", "xbreak", class_breakpoint
, 1), NULL
);
4949 deprecate_cmd (c
= add_com ("txbreak", class_breakpoint
,
4950 tbreak_at_finish_command
,
4951 "Set temporary breakpoint at procedure exit. Either there should\n\
4952 be no argument or the argument must be a depth.\n"), NULL
);
4953 set_cmd_completer (c
, location_completer
);
4956 deprecate_cmd (add_com ("bx", class_breakpoint
,
4957 break_at_finish_at_depth_command
,
4958 "Set breakpoint at procedure exit. Either there should\n\
4959 be no argument or the argument must be a depth.\n"), NULL
);