1 /* Target-dependent code for the HP PA architecture, for GDB.
2 Copyright 1986, 87, 89, 90, 91, 92, 93, 94, 95, 96, 1999
3 Free Software Foundation, Inc.
5 Contributed by the Center for Software Science at the
6 University of Utah (pa-gdb-bugs@cs.utah.edu).
8 This file is part of GDB.
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 2 of the License, or
13 (at your option) any later version.
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with this program; if not, write to the Free Software
22 Foundation, Inc., 59 Temple Place - Suite 330,
23 Boston, MA 02111-1307, USA. */
31 /* For argument passing to the inferior */
35 #include <sys/types.h>
39 #include <sys/param.h>
42 #include <sys/ptrace.h>
43 #include <machine/save_state.h>
45 #ifdef COFF_ENCAPSULATE
46 #include "a.out.encap.h"
50 /*#include <sys/user.h> After a.out.h */
61 /* To support asking "What CPU is this?" */
64 /* To support detection of the pseudo-initial frame
66 #define THREAD_INITIAL_FRAME_SYMBOL "__pthread_exit"
67 #define THREAD_INITIAL_FRAME_SYM_LEN sizeof(THREAD_INITIAL_FRAME_SYMBOL)
69 static int extract_5_load
PARAMS ((unsigned int));
71 static unsigned extract_5R_store
PARAMS ((unsigned int));
73 static unsigned extract_5r_store
PARAMS ((unsigned int));
75 static void find_dummy_frame_regs
PARAMS ((struct frame_info
*,
76 struct frame_saved_regs
*));
78 static int find_proc_framesize
PARAMS ((CORE_ADDR
));
80 static int find_return_regnum
PARAMS ((CORE_ADDR
));
82 struct unwind_table_entry
*find_unwind_entry
PARAMS ((CORE_ADDR
));
84 static int extract_17
PARAMS ((unsigned int));
86 static unsigned deposit_21
PARAMS ((unsigned int, unsigned int));
88 static int extract_21
PARAMS ((unsigned));
90 static unsigned deposit_14
PARAMS ((int, unsigned int));
92 static int extract_14
PARAMS ((unsigned));
94 static void unwind_command
PARAMS ((char *, int));
96 static int low_sign_extend
PARAMS ((unsigned int, unsigned int));
98 static int sign_extend
PARAMS ((unsigned int, unsigned int));
100 static int restore_pc_queue
PARAMS ((struct frame_saved_regs
*));
102 static int hppa_alignof
PARAMS ((struct type
*));
104 /* To support multi-threading and stepping. */
105 int hppa_prepare_to_proceed
PARAMS (());
107 static int prologue_inst_adjust_sp
PARAMS ((unsigned long));
109 static int is_branch
PARAMS ((unsigned long));
111 static int inst_saves_gr
PARAMS ((unsigned long));
113 static int inst_saves_fr
PARAMS ((unsigned long));
115 static int pc_in_interrupt_handler
PARAMS ((CORE_ADDR
));
117 static int pc_in_linker_stub
PARAMS ((CORE_ADDR
));
119 static int compare_unwind_entries
PARAMS ((const void *, const void *));
121 static void read_unwind_info
PARAMS ((struct objfile
*));
123 static void internalize_unwinds
PARAMS ((struct objfile
*,
124 struct unwind_table_entry
*,
125 asection
*, unsigned int,
126 unsigned int, CORE_ADDR
));
127 static void pa_print_registers
PARAMS ((char *, int, int));
128 static void pa_strcat_registers
PARAMS ((char *, int, int, GDB_FILE
*));
129 static void pa_register_look_aside
PARAMS ((char *, int, long *));
130 static void pa_print_fp_reg
PARAMS ((int));
131 static void pa_strcat_fp_reg
PARAMS ((int, GDB_FILE
*, enum precision_type
));
135 struct minimal_symbol
*msym
;
136 CORE_ADDR solib_handle
;
140 static CORE_ADDR cover_find_stub_with_shl_get
PARAMS ((args_for_find_stub
*));
142 static int is_pa_2
= 0; /* False */
144 /* This is declared in symtab.c; set to 1 in hp-symtab-read.c */
145 extern int hp_som_som_object_present
;
147 /* In breakpoint.c */
148 extern int exception_catchpoints_are_fragile
;
150 /* This is defined in valops.c. */
152 find_function_in_inferior
PARAMS ((char *));
154 /* Should call_function allocate stack space for a struct return? */
156 hppa_use_struct_convention (gcc_p
, type
)
160 return (TYPE_LENGTH (type
) > 8);
164 /* Routines to extract various sized constants out of hppa
167 /* This assumes that no garbage lies outside of the lower bits of
171 sign_extend (val
, bits
)
174 return (int) (val
>> (bits
- 1) ? (-1 << bits
) | val
: val
);
177 /* For many immediate values the sign bit is the low bit! */
180 low_sign_extend (val
, bits
)
183 return (int) ((val
& 0x1 ? (-1 << (bits
- 1)) : 0) | val
>> 1);
186 /* extract the immediate field from a ld{bhw}s instruction */
191 get_field (val
, from
, to
)
192 unsigned val
, from
, to
;
194 val
= val
>> 31 - to
;
195 return val
& ((1 << 32 - from
) - 1);
199 set_field (val
, from
, to
, new_val
)
200 unsigned *val
, from
, to
;
202 unsigned mask
= ~((1 << (to
- from
+ 1)) << (31 - from
));
203 return *val
= *val
& mask
| (new_val
<< (31 - from
));
206 /* extract a 3-bit space register number from a be, ble, mtsp or mfsp */
212 return GET_FIELD (word
, 18, 18) << 2 | GET_FIELD (word
, 16, 17);
218 extract_5_load (word
)
221 return low_sign_extend (word
>> 16 & MASK_5
, 5);
226 /* extract the immediate field from a st{bhw}s instruction */
229 extract_5_store (word
)
232 return low_sign_extend (word
& MASK_5
, 5);
237 /* extract the immediate field from a break instruction */
240 extract_5r_store (word
)
243 return (word
& MASK_5
);
246 /* extract the immediate field from a {sr}sm instruction */
249 extract_5R_store (word
)
252 return (word
>> 16 & MASK_5
);
255 /* extract an 11 bit immediate field */
263 return low_sign_extend (word
& MASK_11
, 11);
268 /* extract a 14 bit immediate field */
274 return low_sign_extend (word
& MASK_14
, 14);
277 /* deposit a 14 bit constant in a word */
280 deposit_14 (opnd
, word
)
284 unsigned sign
= (opnd
< 0 ? 1 : 0);
286 return word
| ((unsigned) opnd
<< 1 & MASK_14
) | sign
;
289 /* extract a 21 bit constant */
299 val
= GET_FIELD (word
, 20, 20);
301 val
|= GET_FIELD (word
, 9, 19);
303 val
|= GET_FIELD (word
, 5, 6);
305 val
|= GET_FIELD (word
, 0, 4);
307 val
|= GET_FIELD (word
, 7, 8);
308 return sign_extend (val
, 21) << 11;
311 /* deposit a 21 bit constant in a word. Although 21 bit constants are
312 usually the top 21 bits of a 32 bit constant, we assume that only
313 the low 21 bits of opnd are relevant */
316 deposit_21 (opnd
, word
)
321 val
|= GET_FIELD (opnd
, 11 + 14, 11 + 18);
323 val
|= GET_FIELD (opnd
, 11 + 12, 11 + 13);
325 val
|= GET_FIELD (opnd
, 11 + 19, 11 + 20);
327 val
|= GET_FIELD (opnd
, 11 + 1, 11 + 11);
329 val
|= GET_FIELD (opnd
, 11 + 0, 11 + 0);
333 /* extract a 12 bit constant from branch instructions */
341 return sign_extend (GET_FIELD (word
, 19, 28) |
342 GET_FIELD (word
, 29, 29) << 10 |
343 (word
& 0x1) << 11, 12) << 2;
346 /* Deposit a 17 bit constant in an instruction (like bl). */
349 deposit_17 (opnd
, word
)
352 word
|= GET_FIELD (opnd
, 15 + 0, 15 + 0); /* w */
353 word
|= GET_FIELD (opnd
, 15 + 1, 15 + 5) << 16; /* w1 */
354 word
|= GET_FIELD (opnd
, 15 + 6, 15 + 6) << 2; /* w2[10] */
355 word
|= GET_FIELD (opnd
, 15 + 7, 15 + 16) << 3; /* w2[0..9] */
362 /* extract a 17 bit constant from branch instructions, returning the
363 19 bit signed value. */
369 return sign_extend (GET_FIELD (word
, 19, 28) |
370 GET_FIELD (word
, 29, 29) << 10 |
371 GET_FIELD (word
, 11, 15) << 11 |
372 (word
& 0x1) << 16, 17) << 2;
376 /* Compare the start address for two unwind entries returning 1 if
377 the first address is larger than the second, -1 if the second is
378 larger than the first, and zero if they are equal. */
381 compare_unwind_entries (arg1
, arg2
)
385 const struct unwind_table_entry
*a
= arg1
;
386 const struct unwind_table_entry
*b
= arg2
;
388 if (a
->region_start
> b
->region_start
)
390 else if (a
->region_start
< b
->region_start
)
397 internalize_unwinds (objfile
, table
, section
, entries
, size
, text_offset
)
398 struct objfile
*objfile
;
399 struct unwind_table_entry
*table
;
401 unsigned int entries
, size
;
402 CORE_ADDR text_offset
;
404 /* We will read the unwind entries into temporary memory, then
405 fill in the actual unwind table. */
410 char *buf
= alloca (size
);
412 bfd_get_section_contents (objfile
->obfd
, section
, buf
, 0, size
);
414 /* Now internalize the information being careful to handle host/target
416 for (i
= 0; i
< entries
; i
++)
418 table
[i
].region_start
= bfd_get_32 (objfile
->obfd
,
420 table
[i
].region_start
+= text_offset
;
422 table
[i
].region_end
= bfd_get_32 (objfile
->obfd
, (bfd_byte
*) buf
);
423 table
[i
].region_end
+= text_offset
;
425 tmp
= bfd_get_32 (objfile
->obfd
, (bfd_byte
*) buf
);
427 table
[i
].Cannot_unwind
= (tmp
>> 31) & 0x1;
428 table
[i
].Millicode
= (tmp
>> 30) & 0x1;
429 table
[i
].Millicode_save_sr0
= (tmp
>> 29) & 0x1;
430 table
[i
].Region_description
= (tmp
>> 27) & 0x3;
431 table
[i
].reserved1
= (tmp
>> 26) & 0x1;
432 table
[i
].Entry_SR
= (tmp
>> 25) & 0x1;
433 table
[i
].Entry_FR
= (tmp
>> 21) & 0xf;
434 table
[i
].Entry_GR
= (tmp
>> 16) & 0x1f;
435 table
[i
].Args_stored
= (tmp
>> 15) & 0x1;
436 table
[i
].Variable_Frame
= (tmp
>> 14) & 0x1;
437 table
[i
].Separate_Package_Body
= (tmp
>> 13) & 0x1;
438 table
[i
].Frame_Extension_Millicode
= (tmp
>> 12) & 0x1;
439 table
[i
].Stack_Overflow_Check
= (tmp
>> 11) & 0x1;
440 table
[i
].Two_Instruction_SP_Increment
= (tmp
>> 10) & 0x1;
441 table
[i
].Ada_Region
= (tmp
>> 9) & 0x1;
442 table
[i
].cxx_info
= (tmp
>> 8) & 0x1;
443 table
[i
].cxx_try_catch
= (tmp
>> 7) & 0x1;
444 table
[i
].sched_entry_seq
= (tmp
>> 6) & 0x1;
445 table
[i
].reserved2
= (tmp
>> 5) & 0x1;
446 table
[i
].Save_SP
= (tmp
>> 4) & 0x1;
447 table
[i
].Save_RP
= (tmp
>> 3) & 0x1;
448 table
[i
].Save_MRP_in_frame
= (tmp
>> 2) & 0x1;
449 table
[i
].extn_ptr_defined
= (tmp
>> 1) & 0x1;
450 table
[i
].Cleanup_defined
= tmp
& 0x1;
451 tmp
= bfd_get_32 (objfile
->obfd
, (bfd_byte
*) buf
);
453 table
[i
].MPE_XL_interrupt_marker
= (tmp
>> 31) & 0x1;
454 table
[i
].HP_UX_interrupt_marker
= (tmp
>> 30) & 0x1;
455 table
[i
].Large_frame
= (tmp
>> 29) & 0x1;
456 table
[i
].Pseudo_SP_Set
= (tmp
>> 28) & 0x1;
457 table
[i
].reserved4
= (tmp
>> 27) & 0x1;
458 table
[i
].Total_frame_size
= tmp
& 0x7ffffff;
460 /* Stub unwinds are handled elsewhere. */
461 table
[i
].stub_unwind
.stub_type
= 0;
462 table
[i
].stub_unwind
.padding
= 0;
467 /* Read in the backtrace information stored in the `$UNWIND_START$' section of
468 the object file. This info is used mainly by find_unwind_entry() to find
469 out the stack frame size and frame pointer used by procedures. We put
470 everything on the psymbol obstack in the objfile so that it automatically
471 gets freed when the objfile is destroyed. */
474 read_unwind_info (objfile
)
475 struct objfile
*objfile
;
477 asection
*unwind_sec
, *elf_unwind_sec
, *stub_unwind_sec
;
478 unsigned unwind_size
, elf_unwind_size
, stub_unwind_size
, total_size
;
479 unsigned index
, unwind_entries
, elf_unwind_entries
;
480 unsigned stub_entries
, total_entries
;
481 CORE_ADDR text_offset
;
482 struct obj_unwind_info
*ui
;
483 obj_private_data_t
*obj_private
;
485 text_offset
= ANOFFSET (objfile
->section_offsets
, 0);
486 ui
= (struct obj_unwind_info
*) obstack_alloc (&objfile
->psymbol_obstack
,
487 sizeof (struct obj_unwind_info
));
493 /* Get hooks to all unwind sections. Note there is no linker-stub unwind
494 section in ELF at the moment. */
495 unwind_sec
= bfd_get_section_by_name (objfile
->obfd
, "$UNWIND_START$");
496 elf_unwind_sec
= bfd_get_section_by_name (objfile
->obfd
, ".PARISC.unwind");
497 stub_unwind_sec
= bfd_get_section_by_name (objfile
->obfd
, "$UNWIND_END$");
499 /* Get sizes and unwind counts for all sections. */
502 unwind_size
= bfd_section_size (objfile
->obfd
, unwind_sec
);
503 unwind_entries
= unwind_size
/ UNWIND_ENTRY_SIZE
;
513 elf_unwind_size
= bfd_section_size (objfile
->obfd
, elf_unwind_sec
); /* purecov: deadcode */
514 elf_unwind_entries
= elf_unwind_size
/ UNWIND_ENTRY_SIZE
; /* purecov: deadcode */
519 elf_unwind_entries
= 0;
524 stub_unwind_size
= bfd_section_size (objfile
->obfd
, stub_unwind_sec
);
525 stub_entries
= stub_unwind_size
/ STUB_UNWIND_ENTRY_SIZE
;
529 stub_unwind_size
= 0;
533 /* Compute total number of unwind entries and their total size. */
534 total_entries
= unwind_entries
+ elf_unwind_entries
+ stub_entries
;
535 total_size
= total_entries
* sizeof (struct unwind_table_entry
);
537 /* Allocate memory for the unwind table. */
538 ui
->table
= (struct unwind_table_entry
*)
539 obstack_alloc (&objfile
->psymbol_obstack
, total_size
);
540 ui
->last
= total_entries
- 1;
542 /* Internalize the standard unwind entries. */
544 internalize_unwinds (objfile
, &ui
->table
[index
], unwind_sec
,
545 unwind_entries
, unwind_size
, text_offset
);
546 index
+= unwind_entries
;
547 internalize_unwinds (objfile
, &ui
->table
[index
], elf_unwind_sec
,
548 elf_unwind_entries
, elf_unwind_size
, text_offset
);
549 index
+= elf_unwind_entries
;
551 /* Now internalize the stub unwind entries. */
552 if (stub_unwind_size
> 0)
555 char *buf
= alloca (stub_unwind_size
);
557 /* Read in the stub unwind entries. */
558 bfd_get_section_contents (objfile
->obfd
, stub_unwind_sec
, buf
,
559 0, stub_unwind_size
);
561 /* Now convert them into regular unwind entries. */
562 for (i
= 0; i
< stub_entries
; i
++, index
++)
564 /* Clear out the next unwind entry. */
565 memset (&ui
->table
[index
], 0, sizeof (struct unwind_table_entry
));
567 /* Convert offset & size into region_start and region_end.
568 Stuff away the stub type into "reserved" fields. */
569 ui
->table
[index
].region_start
= bfd_get_32 (objfile
->obfd
,
571 ui
->table
[index
].region_start
+= text_offset
;
573 ui
->table
[index
].stub_unwind
.stub_type
= bfd_get_8 (objfile
->obfd
,
576 ui
->table
[index
].region_end
577 = ui
->table
[index
].region_start
+ 4 *
578 (bfd_get_16 (objfile
->obfd
, (bfd_byte
*) buf
) - 1);
584 /* Unwind table needs to be kept sorted. */
585 qsort (ui
->table
, total_entries
, sizeof (struct unwind_table_entry
),
586 compare_unwind_entries
);
588 /* Keep a pointer to the unwind information. */
589 if (objfile
->obj_private
== NULL
)
591 obj_private
= (obj_private_data_t
*)
592 obstack_alloc (&objfile
->psymbol_obstack
,
593 sizeof (obj_private_data_t
));
594 obj_private
->unwind_info
= NULL
;
595 obj_private
->so_info
= NULL
;
597 objfile
->obj_private
= (PTR
) obj_private
;
599 obj_private
= (obj_private_data_t
*) objfile
->obj_private
;
600 obj_private
->unwind_info
= ui
;
603 /* Lookup the unwind (stack backtrace) info for the given PC. We search all
604 of the objfiles seeking the unwind table entry for this PC. Each objfile
605 contains a sorted list of struct unwind_table_entry. Since we do a binary
606 search of the unwind tables, we depend upon them to be sorted. */
608 struct unwind_table_entry
*
609 find_unwind_entry (pc
)
612 int first
, middle
, last
;
613 struct objfile
*objfile
;
615 /* A function at address 0? Not in HP-UX! */
616 if (pc
== (CORE_ADDR
) 0)
619 ALL_OBJFILES (objfile
)
621 struct obj_unwind_info
*ui
;
623 if (objfile
->obj_private
)
624 ui
= ((obj_private_data_t
*) (objfile
->obj_private
))->unwind_info
;
628 read_unwind_info (objfile
);
629 if (objfile
->obj_private
== NULL
)
630 error ("Internal error reading unwind information."); /* purecov: deadcode */
631 ui
= ((obj_private_data_t
*) (objfile
->obj_private
))->unwind_info
;
634 /* First, check the cache */
637 && pc
>= ui
->cache
->region_start
638 && pc
<= ui
->cache
->region_end
)
641 /* Not in the cache, do a binary search */
646 while (first
<= last
)
648 middle
= (first
+ last
) / 2;
649 if (pc
>= ui
->table
[middle
].region_start
650 && pc
<= ui
->table
[middle
].region_end
)
652 ui
->cache
= &ui
->table
[middle
];
653 return &ui
->table
[middle
];
656 if (pc
< ui
->table
[middle
].region_start
)
661 } /* ALL_OBJFILES() */
665 /* Return the adjustment necessary to make for addresses on the stack
666 as presented by hpread.c.
668 This is necessary because of the stack direction on the PA and the
669 bizarre way in which someone (?) decided they wanted to handle
670 frame pointerless code in GDB. */
672 hpread_adjust_stack_address (func_addr
)
675 struct unwind_table_entry
*u
;
677 u
= find_unwind_entry (func_addr
);
681 return u
->Total_frame_size
<< 3;
684 /* Called to determine if PC is in an interrupt handler of some
688 pc_in_interrupt_handler (pc
)
691 struct unwind_table_entry
*u
;
692 struct minimal_symbol
*msym_us
;
694 u
= find_unwind_entry (pc
);
698 /* Oh joys. HPUX sets the interrupt bit for _sigreturn even though
699 its frame isn't a pure interrupt frame. Deal with this. */
700 msym_us
= lookup_minimal_symbol_by_pc (pc
);
702 return u
->HP_UX_interrupt_marker
&& !IN_SIGTRAMP (pc
, SYMBOL_NAME (msym_us
));
705 /* Called when no unwind descriptor was found for PC. Returns 1 if it
706 appears that PC is in a linker stub. */
709 pc_in_linker_stub (pc
)
712 int found_magic_instruction
= 0;
716 /* If unable to read memory, assume pc is not in a linker stub. */
717 if (target_read_memory (pc
, buf
, 4) != 0)
720 /* We are looking for something like
722 ; $$dyncall jams RP into this special spot in the frame (RP')
723 ; before calling the "call stub"
726 ldsid (rp),r1 ; Get space associated with RP into r1
727 mtsp r1,sp ; Move it into space register 0
728 be,n 0(sr0),rp) ; back to your regularly scheduled program */
730 /* Maximum known linker stub size is 4 instructions. Search forward
731 from the given PC, then backward. */
732 for (i
= 0; i
< 4; i
++)
734 /* If we hit something with an unwind, stop searching this direction. */
736 if (find_unwind_entry (pc
+ i
* 4) != 0)
739 /* Check for ldsid (rp),r1 which is the magic instruction for a
740 return from a cross-space function call. */
741 if (read_memory_integer (pc
+ i
* 4, 4) == 0x004010a1)
743 found_magic_instruction
= 1;
746 /* Add code to handle long call/branch and argument relocation stubs
750 if (found_magic_instruction
!= 0)
753 /* Now look backward. */
754 for (i
= 0; i
< 4; i
++)
756 /* If we hit something with an unwind, stop searching this direction. */
758 if (find_unwind_entry (pc
- i
* 4) != 0)
761 /* Check for ldsid (rp),r1 which is the magic instruction for a
762 return from a cross-space function call. */
763 if (read_memory_integer (pc
- i
* 4, 4) == 0x004010a1)
765 found_magic_instruction
= 1;
768 /* Add code to handle long call/branch and argument relocation stubs
771 return found_magic_instruction
;
775 find_return_regnum (pc
)
778 struct unwind_table_entry
*u
;
780 u
= find_unwind_entry (pc
);
791 /* Return size of frame, or -1 if we should use a frame pointer. */
793 find_proc_framesize (pc
)
796 struct unwind_table_entry
*u
;
797 struct minimal_symbol
*msym_us
;
799 /* This may indicate a bug in our callers... */
800 if (pc
== (CORE_ADDR
) 0)
803 u
= find_unwind_entry (pc
);
807 if (pc_in_linker_stub (pc
))
808 /* Linker stubs have a zero size frame. */
814 msym_us
= lookup_minimal_symbol_by_pc (pc
);
816 /* If Save_SP is set, and we're not in an interrupt or signal caller,
817 then we have a frame pointer. Use it. */
818 if (u
->Save_SP
&& !pc_in_interrupt_handler (pc
)
819 && !IN_SIGTRAMP (pc
, SYMBOL_NAME (msym_us
)))
822 return u
->Total_frame_size
<< 3;
825 /* Return offset from sp at which rp is saved, or 0 if not saved. */
826 static int rp_saved
PARAMS ((CORE_ADDR
));
832 struct unwind_table_entry
*u
;
834 /* A function at, and thus a return PC from, address 0? Not in HP-UX! */
835 if (pc
== (CORE_ADDR
) 0)
838 u
= find_unwind_entry (pc
);
842 if (pc_in_linker_stub (pc
))
843 /* This is the so-called RP'. */
851 else if (u
->stub_unwind
.stub_type
!= 0)
853 switch (u
->stub_unwind
.stub_type
)
858 case PARAMETER_RELOCATION
:
869 frameless_function_invocation (frame
)
870 struct frame_info
*frame
;
872 struct unwind_table_entry
*u
;
874 u
= find_unwind_entry (frame
->pc
);
879 return (u
->Total_frame_size
== 0 && u
->stub_unwind
.stub_type
== 0);
883 saved_pc_after_call (frame
)
884 struct frame_info
*frame
;
888 struct unwind_table_entry
*u
;
890 ret_regnum
= find_return_regnum (get_frame_pc (frame
));
891 pc
= read_register (ret_regnum
) & ~0x3;
893 /* If PC is in a linker stub, then we need to dig the address
894 the stub will return to out of the stack. */
895 u
= find_unwind_entry (pc
);
896 if (u
&& u
->stub_unwind
.stub_type
!= 0)
897 return FRAME_SAVED_PC (frame
);
903 hppa_frame_saved_pc (frame
)
904 struct frame_info
*frame
;
906 CORE_ADDR pc
= get_frame_pc (frame
);
907 struct unwind_table_entry
*u
;
909 int spun_around_loop
= 0;
912 /* BSD, HPUX & OSF1 all lay out the hardware state in the same manner
913 at the base of the frame in an interrupt handler. Registers within
914 are saved in the exact same order as GDB numbers registers. How
916 if (pc_in_interrupt_handler (pc
))
917 return read_memory_integer (frame
->frame
+ PC_REGNUM
* 4, 4) & ~0x3;
919 #ifdef FRAME_SAVED_PC_IN_SIGTRAMP
920 /* Deal with signal handler caller frames too. */
921 if (frame
->signal_handler_caller
)
924 FRAME_SAVED_PC_IN_SIGTRAMP (frame
, &rp
);
929 if (frameless_function_invocation (frame
))
933 ret_regnum
= find_return_regnum (pc
);
935 /* If the next frame is an interrupt frame or a signal
936 handler caller, then we need to look in the saved
937 register area to get the return pointer (the values
938 in the registers may not correspond to anything useful). */
940 && (frame
->next
->signal_handler_caller
941 || pc_in_interrupt_handler (frame
->next
->pc
)))
943 struct frame_saved_regs saved_regs
;
945 get_frame_saved_regs (frame
->next
, &saved_regs
);
946 if (read_memory_integer (saved_regs
.regs
[FLAGS_REGNUM
], 4) & 0x2)
948 pc
= read_memory_integer (saved_regs
.regs
[31], 4) & ~0x3;
950 /* Syscalls are really two frames. The syscall stub itself
951 with a return pointer in %rp and the kernel call with
952 a return pointer in %r31. We return the %rp variant
953 if %r31 is the same as frame->pc. */
955 pc
= read_memory_integer (saved_regs
.regs
[RP_REGNUM
], 4) & ~0x3;
958 pc
= read_memory_integer (saved_regs
.regs
[RP_REGNUM
], 4) & ~0x3;
961 pc
= read_register (ret_regnum
) & ~0x3;
965 spun_around_loop
= 0;
969 rp_offset
= rp_saved (pc
);
971 /* Similar to code in frameless function case. If the next
972 frame is a signal or interrupt handler, then dig the right
973 information out of the saved register info. */
976 && (frame
->next
->signal_handler_caller
977 || pc_in_interrupt_handler (frame
->next
->pc
)))
979 struct frame_saved_regs saved_regs
;
981 get_frame_saved_regs (frame
->next
, &saved_regs
);
982 if (read_memory_integer (saved_regs
.regs
[FLAGS_REGNUM
], 4) & 0x2)
984 pc
= read_memory_integer (saved_regs
.regs
[31], 4) & ~0x3;
986 /* Syscalls are really two frames. The syscall stub itself
987 with a return pointer in %rp and the kernel call with
988 a return pointer in %r31. We return the %rp variant
989 if %r31 is the same as frame->pc. */
991 pc
= read_memory_integer (saved_regs
.regs
[RP_REGNUM
], 4) & ~0x3;
994 pc
= read_memory_integer (saved_regs
.regs
[RP_REGNUM
], 4) & ~0x3;
996 else if (rp_offset
== 0)
999 pc
= read_register (RP_REGNUM
) & ~0x3;
1004 pc
= read_memory_integer (frame
->frame
+ rp_offset
, 4) & ~0x3;
1008 /* If PC is inside a linker stub, then dig out the address the stub
1011 Don't do this for long branch stubs. Why? For some unknown reason
1012 _start is marked as a long branch stub in hpux10. */
1013 u
= find_unwind_entry (pc
);
1014 if (u
&& u
->stub_unwind
.stub_type
!= 0
1015 && u
->stub_unwind
.stub_type
!= LONG_BRANCH
)
1019 /* If this is a dynamic executable, and we're in a signal handler,
1020 then the call chain will eventually point us into the stub for
1021 _sigreturn. Unlike most cases, we'll be pointed to the branch
1022 to the real sigreturn rather than the code after the real branch!.
1024 Else, try to dig the address the stub will return to in the normal
1026 insn
= read_memory_integer (pc
, 4);
1027 if ((insn
& 0xfc00e000) == 0xe8000000)
1028 return (pc
+ extract_17 (insn
) + 8) & ~0x3;
1034 if (spun_around_loop
> 1)
1036 /* We're just about to go around the loop again with
1037 no more hope of success. Die. */
1038 error ("Unable to find return pc for this frame");
1048 /* We need to correct the PC and the FP for the outermost frame when we are
1049 in a system call. */
1052 init_extra_frame_info (fromleaf
, frame
)
1054 struct frame_info
*frame
;
1059 if (frame
->next
&& !fromleaf
)
1062 /* If the next frame represents a frameless function invocation
1063 then we have to do some adjustments that are normally done by
1064 FRAME_CHAIN. (FRAME_CHAIN is not called in this case.) */
1067 /* Find the framesize of *this* frame without peeking at the PC
1068 in the current frame structure (it isn't set yet). */
1069 framesize
= find_proc_framesize (FRAME_SAVED_PC (get_next_frame (frame
)));
1071 /* Now adjust our base frame accordingly. If we have a frame pointer
1072 use it, else subtract the size of this frame from the current
1073 frame. (we always want frame->frame to point at the lowest address
1075 if (framesize
== -1)
1076 frame
->frame
= TARGET_READ_FP ();
1078 frame
->frame
-= framesize
;
1082 flags
= read_register (FLAGS_REGNUM
);
1083 if (flags
& 2) /* In system call? */
1084 frame
->pc
= read_register (31) & ~0x3;
1086 /* The outermost frame is always derived from PC-framesize
1088 One might think frameless innermost frames should have
1089 a frame->frame that is the same as the parent's frame->frame.
1090 That is wrong; frame->frame in that case should be the *high*
1091 address of the parent's frame. It's complicated as hell to
1092 explain, but the parent *always* creates some stack space for
1093 the child. So the child actually does have a frame of some
1094 sorts, and its base is the high address in its parent's frame. */
1095 framesize
= find_proc_framesize (frame
->pc
);
1096 if (framesize
== -1)
1097 frame
->frame
= TARGET_READ_FP ();
1099 frame
->frame
= read_register (SP_REGNUM
) - framesize
;
1102 /* Given a GDB frame, determine the address of the calling function's frame.
1103 This will be used to create a new GDB frame struct, and then
1104 INIT_EXTRA_FRAME_INFO and INIT_FRAME_PC will be called for the new frame.
1106 This may involve searching through prologues for several functions
1107 at boundaries where GCC calls HP C code, or where code which has
1108 a frame pointer calls code without a frame pointer. */
1112 struct frame_info
*frame
;
1114 int my_framesize
, caller_framesize
;
1115 struct unwind_table_entry
*u
;
1116 CORE_ADDR frame_base
;
1117 struct frame_info
*tmp_frame
;
1119 CORE_ADDR caller_pc
;
1121 struct minimal_symbol
*min_frame_symbol
;
1122 struct symbol
*frame_symbol
;
1123 char *frame_symbol_name
;
1125 /* If this is a threaded application, and we see the
1126 routine "__pthread_exit", treat it as the stack root
1128 min_frame_symbol
= lookup_minimal_symbol_by_pc (frame
->pc
);
1129 frame_symbol
= find_pc_function (frame
->pc
);
1131 if ((min_frame_symbol
!= 0) /* && (frame_symbol == 0) */ )
1133 /* The test above for "no user function name" would defend
1134 against the slim likelihood that a user might define a
1135 routine named "__pthread_exit" and then try to debug it.
1137 If it weren't commented out, and you tried to debug the
1138 pthread library itself, you'd get errors.
1140 So for today, we don't make that check. */
1141 frame_symbol_name
= SYMBOL_NAME (min_frame_symbol
);
1142 if (frame_symbol_name
!= 0)
1144 if (0 == strncmp (frame_symbol_name
,
1145 THREAD_INITIAL_FRAME_SYMBOL
,
1146 THREAD_INITIAL_FRAME_SYM_LEN
))
1148 /* Pretend we've reached the bottom of the stack. */
1149 return (CORE_ADDR
) 0;
1152 } /* End of hacky code for threads. */
1154 /* Handle HPUX, BSD, and OSF1 style interrupt frames first. These
1155 are easy; at *sp we have a full save state strucutre which we can
1156 pull the old stack pointer from. Also see frame_saved_pc for
1157 code to dig a saved PC out of the save state structure. */
1158 if (pc_in_interrupt_handler (frame
->pc
))
1159 frame_base
= read_memory_integer (frame
->frame
+ SP_REGNUM
* 4, 4);
1160 #ifdef FRAME_BASE_BEFORE_SIGTRAMP
1161 else if (frame
->signal_handler_caller
)
1163 FRAME_BASE_BEFORE_SIGTRAMP (frame
, &frame_base
);
1167 frame_base
= frame
->frame
;
1169 /* Get frame sizes for the current frame and the frame of the
1171 my_framesize
= find_proc_framesize (frame
->pc
);
1172 caller_pc
= FRAME_SAVED_PC (frame
);
1174 /* If we can't determine the caller's PC, then it's not likely we can
1175 really determine anything meaningful about its frame. We'll consider
1176 this to be stack bottom. */
1177 if (caller_pc
== (CORE_ADDR
) 0)
1178 return (CORE_ADDR
) 0;
1180 caller_framesize
= find_proc_framesize (FRAME_SAVED_PC (frame
));
1182 /* If caller does not have a frame pointer, then its frame
1183 can be found at current_frame - caller_framesize. */
1184 if (caller_framesize
!= -1)
1186 return frame_base
- caller_framesize
;
1188 /* Both caller and callee have frame pointers and are GCC compiled
1189 (SAVE_SP bit in unwind descriptor is on for both functions.
1190 The previous frame pointer is found at the top of the current frame. */
1191 if (caller_framesize
== -1 && my_framesize
== -1)
1193 return read_memory_integer (frame_base
, 4);
1195 /* Caller has a frame pointer, but callee does not. This is a little
1196 more difficult as GCC and HP C lay out locals and callee register save
1197 areas very differently.
1199 The previous frame pointer could be in a register, or in one of
1200 several areas on the stack.
1202 Walk from the current frame to the innermost frame examining
1203 unwind descriptors to determine if %r3 ever gets saved into the
1204 stack. If so return whatever value got saved into the stack.
1205 If it was never saved in the stack, then the value in %r3 is still
1208 We use information from unwind descriptors to determine if %r3
1209 is saved into the stack (Entry_GR field has this information). */
1214 u
= find_unwind_entry (tmp_frame
->pc
);
1218 /* We could find this information by examining prologues. I don't
1219 think anyone has actually written any tools (not even "strip")
1220 which leave them out of an executable, so maybe this is a moot
1222 /* ??rehrauer: Actually, it's quite possible to stepi your way into
1223 code that doesn't have unwind entries. For example, stepping into
1224 the dynamic linker will give you a PC that has none. Thus, I've
1225 disabled this warning. */
1227 warning ("Unable to find unwind for PC 0x%x -- Help!", tmp_frame
->pc
);
1229 return (CORE_ADDR
) 0;
1232 /* Entry_GR specifies the number of callee-saved general registers
1233 saved in the stack. It starts at %r3, so %r3 would be 1. */
1234 if (u
->Entry_GR
>= 1 || u
->Save_SP
1235 || tmp_frame
->signal_handler_caller
1236 || pc_in_interrupt_handler (tmp_frame
->pc
))
1239 tmp_frame
= tmp_frame
->next
;
1244 /* We may have walked down the chain into a function with a frame
1247 && !tmp_frame
->signal_handler_caller
1248 && !pc_in_interrupt_handler (tmp_frame
->pc
))
1250 return read_memory_integer (tmp_frame
->frame
, 4);
1252 /* %r3 was saved somewhere in the stack. Dig it out. */
1255 struct frame_saved_regs saved_regs
;
1259 For optimization purposes many kernels don't have the
1260 callee saved registers into the save_state structure upon
1261 entry into the kernel for a syscall; the optimization
1262 is usually turned off if the process is being traced so
1263 that the debugger can get full register state for the
1266 This scheme works well except for two cases:
1268 * Attaching to a process when the process is in the
1269 kernel performing a system call (debugger can't get
1270 full register state for the inferior process since
1271 the process wasn't being traced when it entered the
1274 * Register state is not complete if the system call
1275 causes the process to core dump.
1278 The following heinous code is an attempt to deal with
1279 the lack of register state in a core dump. It will
1280 fail miserably if the function which performs the
1281 system call has a variable sized stack frame. */
1283 get_frame_saved_regs (tmp_frame
, &saved_regs
);
1285 /* Abominable hack. */
1286 if (current_target
.to_has_execution
== 0
1287 && ((saved_regs
.regs
[FLAGS_REGNUM
]
1288 && (read_memory_integer (saved_regs
.regs
[FLAGS_REGNUM
], 4)
1290 || (saved_regs
.regs
[FLAGS_REGNUM
] == 0
1291 && read_register (FLAGS_REGNUM
) & 0x2)))
1293 u
= find_unwind_entry (FRAME_SAVED_PC (frame
));
1296 return read_memory_integer (saved_regs
.regs
[FP_REGNUM
], 4);
1300 return frame_base
- (u
->Total_frame_size
<< 3);
1304 return read_memory_integer (saved_regs
.regs
[FP_REGNUM
], 4);
1309 struct frame_saved_regs saved_regs
;
1311 /* Get the innermost frame. */
1313 while (tmp_frame
->next
!= NULL
)
1314 tmp_frame
= tmp_frame
->next
;
1316 get_frame_saved_regs (tmp_frame
, &saved_regs
);
1317 /* Abominable hack. See above. */
1318 if (current_target
.to_has_execution
== 0
1319 && ((saved_regs
.regs
[FLAGS_REGNUM
]
1320 && (read_memory_integer (saved_regs
.regs
[FLAGS_REGNUM
], 4)
1322 || (saved_regs
.regs
[FLAGS_REGNUM
] == 0
1323 && read_register (FLAGS_REGNUM
) & 0x2)))
1325 u
= find_unwind_entry (FRAME_SAVED_PC (frame
));
1328 return read_memory_integer (saved_regs
.regs
[FP_REGNUM
], 4);
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 (chain
, thisframe
)
1349 struct frame_info
*thisframe
;
1351 struct minimal_symbol
*msym_us
;
1352 struct minimal_symbol
*msym_start
;
1353 struct unwind_table_entry
*u
, *next_u
= NULL
;
1354 struct frame_info
*next
;
1359 u
= find_unwind_entry (thisframe
->pc
);
1364 /* We can't just check that the same of msym_us is "_start", because
1365 someone idiotically decided that they were going to make a Ltext_end
1366 symbol with the same address. This Ltext_end symbol is totally
1367 indistinguishable (as nearly as I can tell) from the symbol for a function
1368 which is (legitimately, since it is in the user's namespace)
1369 named Ltext_end, so we can't just ignore it. */
1370 msym_us
= lookup_minimal_symbol_by_pc (FRAME_SAVED_PC (thisframe
));
1371 msym_start
= lookup_minimal_symbol ("_start", NULL
, NULL
);
1374 && SYMBOL_VALUE_ADDRESS (msym_us
) == SYMBOL_VALUE_ADDRESS (msym_start
))
1377 /* Grrrr. Some new idiot decided that they don't want _start for the
1378 PRO configurations; $START$ calls main directly.... Deal with it. */
1379 msym_start
= lookup_minimal_symbol ("$START$", NULL
, NULL
);
1382 && SYMBOL_VALUE_ADDRESS (msym_us
) == SYMBOL_VALUE_ADDRESS (msym_start
))
1385 next
= get_next_frame (thisframe
);
1387 next_u
= find_unwind_entry (next
->pc
);
1389 /* If this frame does not save SP, has no stack, isn't a stub,
1390 and doesn't "call" an interrupt routine or signal handler caller,
1391 then its not valid. */
1392 if (u
->Save_SP
|| u
->Total_frame_size
|| u
->stub_unwind
.stub_type
!= 0
1393 || (thisframe
->next
&& thisframe
->next
->signal_handler_caller
)
1394 || (next_u
&& next_u
->HP_UX_interrupt_marker
))
1397 if (pc_in_linker_stub (thisframe
->pc
))
1404 These functions deal with saving and restoring register state
1405 around a function call in the inferior. They keep the stack
1406 double-word aligned; eventually, on an hp700, the stack will have
1407 to be aligned to a 64-byte boundary. */
1410 push_dummy_frame (inf_status
)
1411 struct inferior_status
*inf_status
;
1413 CORE_ADDR sp
, pc
, pcspace
;
1414 register int regnum
;
1418 /* Oh, what a hack. If we're trying to perform an inferior call
1419 while the inferior is asleep, we have to make sure to clear
1420 the "in system call" bit in the flag register (the call will
1421 start after the syscall returns, so we're no longer in the system
1422 call!) This state is kept in "inf_status", change it there.
1424 We also need a number of horrid hacks to deal with lossage in the
1425 PC queue registers (apparently they're not valid when the in syscall
1427 pc
= target_read_pc (inferior_pid
);
1428 int_buffer
= read_register (FLAGS_REGNUM
);
1429 if (int_buffer
& 0x2)
1433 write_inferior_status_register (inf_status
, 0, int_buffer
);
1434 write_inferior_status_register (inf_status
, PCOQ_HEAD_REGNUM
, pc
+ 0);
1435 write_inferior_status_register (inf_status
, PCOQ_TAIL_REGNUM
, pc
+ 4);
1436 sid
= (pc
>> 30) & 0x3;
1438 pcspace
= read_register (SR4_REGNUM
);
1440 pcspace
= read_register (SR4_REGNUM
+ 4 + sid
);
1441 write_inferior_status_register (inf_status
, PCSQ_HEAD_REGNUM
, pcspace
);
1442 write_inferior_status_register (inf_status
, PCSQ_TAIL_REGNUM
, pcspace
);
1445 pcspace
= read_register (PCSQ_HEAD_REGNUM
);
1447 /* Space for "arguments"; the RP goes in here. */
1448 sp
= read_register (SP_REGNUM
) + 48;
1449 int_buffer
= read_register (RP_REGNUM
) | 0x3;
1450 write_memory (sp
- 20, (char *) &int_buffer
, 4);
1452 int_buffer
= TARGET_READ_FP ();
1453 write_memory (sp
, (char *) &int_buffer
, 4);
1455 write_register (FP_REGNUM
, sp
);
1459 for (regnum
= 1; regnum
< 32; regnum
++)
1460 if (regnum
!= RP_REGNUM
&& regnum
!= FP_REGNUM
)
1461 sp
= push_word (sp
, read_register (regnum
));
1465 for (regnum
= FP0_REGNUM
; regnum
< NUM_REGS
; regnum
++)
1467 read_register_bytes (REGISTER_BYTE (regnum
), (char *) &freg_buffer
, 8);
1468 sp
= push_bytes (sp
, (char *) &freg_buffer
, 8);
1470 sp
= push_word (sp
, read_register (IPSW_REGNUM
));
1471 sp
= push_word (sp
, read_register (SAR_REGNUM
));
1472 sp
= push_word (sp
, pc
);
1473 sp
= push_word (sp
, pcspace
);
1474 sp
= push_word (sp
, pc
+ 4);
1475 sp
= push_word (sp
, pcspace
);
1476 write_register (SP_REGNUM
, sp
);
1480 find_dummy_frame_regs (frame
, frame_saved_regs
)
1481 struct frame_info
*frame
;
1482 struct frame_saved_regs
*frame_saved_regs
;
1484 CORE_ADDR fp
= frame
->frame
;
1487 frame_saved_regs
->regs
[RP_REGNUM
] = (fp
- 20) & ~0x3;
1488 frame_saved_regs
->regs
[FP_REGNUM
] = fp
;
1489 frame_saved_regs
->regs
[1] = fp
+ 8;
1491 for (fp
+= 12, i
= 3; i
< 32; i
++)
1495 frame_saved_regs
->regs
[i
] = fp
;
1501 for (i
= FP0_REGNUM
; i
< NUM_REGS
; i
++, fp
+= 8)
1502 frame_saved_regs
->regs
[i
] = fp
;
1504 frame_saved_regs
->regs
[IPSW_REGNUM
] = fp
;
1505 frame_saved_regs
->regs
[SAR_REGNUM
] = fp
+ 4;
1506 frame_saved_regs
->regs
[PCOQ_HEAD_REGNUM
] = fp
+ 8;
1507 frame_saved_regs
->regs
[PCSQ_HEAD_REGNUM
] = fp
+ 12;
1508 frame_saved_regs
->regs
[PCOQ_TAIL_REGNUM
] = fp
+ 16;
1509 frame_saved_regs
->regs
[PCSQ_TAIL_REGNUM
] = fp
+ 20;
1515 register struct frame_info
*frame
= get_current_frame ();
1516 register CORE_ADDR fp
, npc
, target_pc
;
1517 register int regnum
;
1518 struct frame_saved_regs fsr
;
1521 fp
= FRAME_FP (frame
);
1522 get_frame_saved_regs (frame
, &fsr
);
1524 #ifndef NO_PC_SPACE_QUEUE_RESTORE
1525 if (fsr
.regs
[IPSW_REGNUM
]) /* Restoring a call dummy frame */
1526 restore_pc_queue (&fsr
);
1529 for (regnum
= 31; regnum
> 0; regnum
--)
1530 if (fsr
.regs
[regnum
])
1531 write_register (regnum
, read_memory_integer (fsr
.regs
[regnum
], 4));
1533 for (regnum
= NUM_REGS
- 1; regnum
>= FP0_REGNUM
; regnum
--)
1534 if (fsr
.regs
[regnum
])
1536 read_memory (fsr
.regs
[regnum
], (char *) &freg_buffer
, 8);
1537 write_register_bytes (REGISTER_BYTE (regnum
), (char *) &freg_buffer
, 8);
1540 if (fsr
.regs
[IPSW_REGNUM
])
1541 write_register (IPSW_REGNUM
,
1542 read_memory_integer (fsr
.regs
[IPSW_REGNUM
], 4));
1544 if (fsr
.regs
[SAR_REGNUM
])
1545 write_register (SAR_REGNUM
,
1546 read_memory_integer (fsr
.regs
[SAR_REGNUM
], 4));
1548 /* If the PC was explicitly saved, then just restore it. */
1549 if (fsr
.regs
[PCOQ_TAIL_REGNUM
])
1551 npc
= read_memory_integer (fsr
.regs
[PCOQ_TAIL_REGNUM
], 4);
1552 write_register (PCOQ_TAIL_REGNUM
, npc
);
1554 /* Else use the value in %rp to set the new PC. */
1557 npc
= read_register (RP_REGNUM
);
1561 write_register (FP_REGNUM
, read_memory_integer (fp
, 4));
1563 if (fsr
.regs
[IPSW_REGNUM
]) /* call dummy */
1564 write_register (SP_REGNUM
, fp
- 48);
1566 write_register (SP_REGNUM
, fp
);
1568 /* The PC we just restored may be inside a return trampoline. If so
1569 we want to restart the inferior and run it through the trampoline.
1571 Do this by setting a momentary breakpoint at the location the
1572 trampoline returns to.
1574 Don't skip through the trampoline if we're popping a dummy frame. */
1575 target_pc
= SKIP_TRAMPOLINE_CODE (npc
& ~0x3) & ~0x3;
1576 if (target_pc
&& !fsr
.regs
[IPSW_REGNUM
])
1578 struct symtab_and_line sal
;
1579 struct breakpoint
*breakpoint
;
1580 struct cleanup
*old_chain
;
1582 /* Set up our breakpoint. Set it to be silent as the MI code
1583 for "return_command" will print the frame we returned to. */
1584 sal
= find_pc_line (target_pc
, 0);
1586 breakpoint
= set_momentary_breakpoint (sal
, NULL
, bp_finish
);
1587 breakpoint
->silent
= 1;
1589 /* So we can clean things up. */
1590 old_chain
= make_cleanup ((make_cleanup_func
) delete_breakpoint
, breakpoint
);
1592 /* Start up the inferior. */
1593 clear_proceed_status ();
1594 proceed_to_finish
= 1;
1595 proceed ((CORE_ADDR
) - 1, TARGET_SIGNAL_DEFAULT
, 0);
1597 /* Perform our cleanups. */
1598 do_cleanups (old_chain
);
1600 flush_cached_frames ();
1603 /* After returning to a dummy on the stack, restore the instruction
1604 queue space registers. */
1607 restore_pc_queue (fsr
)
1608 struct frame_saved_regs
*fsr
;
1610 CORE_ADDR pc
= read_pc ();
1611 CORE_ADDR new_pc
= read_memory_integer (fsr
->regs
[PCOQ_HEAD_REGNUM
], 4);
1612 struct target_waitstatus w
;
1615 /* Advance past break instruction in the call dummy. */
1616 write_register (PCOQ_HEAD_REGNUM
, pc
+ 4);
1617 write_register (PCOQ_TAIL_REGNUM
, pc
+ 8);
1619 /* HPUX doesn't let us set the space registers or the space
1620 registers of the PC queue through ptrace. Boo, hiss.
1621 Conveniently, the call dummy has this sequence of instructions
1626 So, load up the registers and single step until we are in the
1629 write_register (21, read_memory_integer (fsr
->regs
[PCSQ_HEAD_REGNUM
], 4));
1630 write_register (22, new_pc
);
1632 for (insn_count
= 0; insn_count
< 3; insn_count
++)
1634 /* FIXME: What if the inferior gets a signal right now? Want to
1635 merge this into wait_for_inferior (as a special kind of
1636 watchpoint? By setting a breakpoint at the end? Is there
1637 any other choice? Is there *any* way to do this stuff with
1638 ptrace() or some equivalent?). */
1640 target_wait (inferior_pid
, &w
);
1642 if (w
.kind
== TARGET_WAITKIND_SIGNALLED
)
1644 stop_signal
= w
.value
.sig
;
1645 terminal_ours_for_output ();
1646 printf_unfiltered ("\nProgram terminated with signal %s, %s.\n",
1647 target_signal_to_name (stop_signal
),
1648 target_signal_to_string (stop_signal
));
1649 gdb_flush (gdb_stdout
);
1653 target_terminal_ours ();
1654 target_fetch_registers (-1);
1660 hppa_push_arguments (nargs
, args
, sp
, struct_return
, struct_addr
)
1665 CORE_ADDR struct_addr
;
1667 /* array of arguments' offsets */
1668 int *offset
= (int *) alloca (nargs
* sizeof (int));
1672 for (i
= 0; i
< nargs
; i
++)
1675 /* cum is the sum of the lengths in bytes of
1676 the arguments seen so far */
1677 cum
+= TYPE_LENGTH (VALUE_TYPE (args
[i
]));
1679 /* value must go at proper alignment. Assume alignment is a
1681 alignment
= hppa_alignof (VALUE_TYPE (args
[i
]));
1683 if (cum
% alignment
)
1684 cum
= (cum
+ alignment
) & -alignment
;
1688 sp
+= max ((cum
+ 7) & -8, 16);
1690 for (i
= 0; i
< nargs
; i
++)
1691 write_memory (sp
+ offset
[i
], VALUE_CONTENTS (args
[i
]),
1692 TYPE_LENGTH (VALUE_TYPE (args
[i
])));
1695 write_register (28, struct_addr
);
1700 /* elz: I am rewriting this function, because the one above is a very
1701 obscure piece of code.
1702 This function pushes the arguments on the stack. The stack grows up
1704 Each argument goes in one (or more) word (4 bytes) on the stack.
1705 The first four words for the args must be allocated, even if they
1707 The 'topmost' arg is arg0, the 'bottom-most' is arg3. (if you think of
1708 them as 1 word long).
1709 Below these there can be any number of arguments, as needed by the function.
1710 If an arg is bigger than one word, it will be written on the stack
1711 occupying as many words as needed. Args that are bigger than 64bits
1712 are not copied on the stack, a pointer is passed instead.
1714 On top of the arg0 word there are other 8 words (32bytes) which are used
1715 for other purposes */
1718 hppa_push_arguments (nargs
, args
, sp
, struct_return
, struct_addr
)
1723 CORE_ADDR struct_addr
;
1725 /* array of arguments' offsets */
1726 int *offset
= (int *) alloca (nargs
* sizeof (int));
1727 /* array of arguments' lengths: real lengths in bytes, not aligned to word size */
1728 int *lengths
= (int *) alloca (nargs
* sizeof (int));
1730 int bytes_reserved
; /* this is the number of bytes on the stack occupied by an
1731 argument. This will be always a multiple of 4 */
1733 int cum_bytes_reserved
= 0; /* this is the total number of bytes reserved by the args
1734 seen so far. It is a multiple of 4 always */
1735 int cum_bytes_aligned
= 0; /* same as above, but aligned on 8 bytes */
1738 /* When an arg does not occupy a whole word, for instance in bitfields:
1739 if the arg is x bits (0<x<32), it must be written
1740 starting from the (x-1)-th position down until the 0-th position.
1741 It is enough to align it to the word. */
1742 /* if an arg occupies 8 bytes, it must be aligned on the 64-bits
1743 high order word in odd arg word. */
1744 /* if an arg is larger than 64 bits, we need to pass a pointer to it, and
1745 copy the actual value on the stack, so that the callee can play with it.
1746 This is taken care of in valops.c in the call_function_by_hand function.
1747 The argument that is received in this function here has already be converted
1748 to a pointer to whatever is needed, so that it just can be pushed
1749 as a word argument */
1751 for (i
= 0; i
< nargs
; i
++)
1754 lengths
[i
] = TYPE_LENGTH (VALUE_TYPE (args
[i
]));
1757 bytes_reserved
= (lengths
[i
] / 4) * 4 + 4;
1759 bytes_reserved
= lengths
[i
];
1761 offset
[i
] = cum_bytes_reserved
+ lengths
[i
];
1763 if ((bytes_reserved
== 8) && (offset
[i
] % 8)) /* if 64-bit arg is not 64 bit aligned */
1766 /* bytes_reserved is already aligned to the word, so we put it at one word
1767 more down the stack. This will leave one empty word on the
1768 stack, and one unused register. This is OK, see the calling
1770 /* the offset may have to be moved to the corresponding position
1771 one word down the stack, to maintain
1773 new_offset
= (offset
[i
] / 8) * 8 + 8;
1774 if ((new_offset
- offset
[i
]) >= 4)
1776 bytes_reserved
+= 4;
1781 cum_bytes_reserved
+= bytes_reserved
;
1785 /* now move up the sp to reserve at least 4 words required for the args,
1786 or more than this if needed */
1787 /* wee also need to keep the sp aligned to 8 bytes */
1788 cum_bytes_aligned
= STACK_ALIGN (cum_bytes_reserved
);
1789 sp
+= max (cum_bytes_aligned
, 16);
1791 /* now write each of the args at the proper offset down the stack */
1792 for (i
= 0; i
< nargs
; i
++)
1793 write_memory (sp
- offset
[i
], VALUE_CONTENTS (args
[i
]), lengths
[i
]);
1796 /* if a structure has to be returned, set up register 28 to hold its address */
1798 write_register (28, struct_addr
);
1800 /* the stack will have other 8 words on top of the args */
1805 /* elz: this function returns a value which is built looking at the given address.
1806 It is called from call_function_by_hand, in case we need to return a
1807 value which is larger than 64 bits, and it is stored in the stack rather than
1808 in the registers r28 and r29 or fr4.
1809 This function does the same stuff as value_being_returned in values.c, but
1810 gets the value from the stack rather than from the buffer where all the
1811 registers were saved when the function called completed. */
1813 hppa_value_returned_from_stack (valtype
, addr
)
1814 register struct type
*valtype
;
1817 register value_ptr val
;
1819 val
= allocate_value (valtype
);
1820 CHECK_TYPEDEF (valtype
);
1821 target_read_memory (addr
, VALUE_CONTENTS_RAW (val
), TYPE_LENGTH (valtype
));
1828 /* elz: Used to lookup a symbol in the shared libraries.
1829 This function calls shl_findsym, indirectly through a
1830 call to __d_shl_get. __d_shl_get is in end.c, which is always
1831 linked in by the hp compilers/linkers.
1832 The call to shl_findsym cannot be made directly because it needs
1833 to be active in target address space.
1834 inputs: - minimal symbol pointer for the function we want to look up
1835 - address in target space of the descriptor for the library
1836 where we want to look the symbol up.
1837 This address is retrieved using the
1838 som_solib_get_solib_by_pc function (somsolib.c).
1839 output: - real address in the library of the function.
1840 note: the handle can be null, in which case shl_findsym will look for
1841 the symbol in all the loaded shared libraries.
1842 files to look at if you need reference on this stuff:
1843 dld.c, dld_shl_findsym.c
1845 man entry for shl_findsym */
1848 find_stub_with_shl_get (function
, handle
)
1849 struct minimal_symbol
*function
;
1852 struct symbol
*get_sym
, *symbol2
;
1853 struct minimal_symbol
*buff_minsym
, *msymbol
;
1856 value_ptr funcval
, val
;
1858 int x
, namelen
, err_value
, tmp
= -1;
1859 CORE_ADDR endo_buff_addr
, value_return_addr
, errno_return_addr
;
1860 CORE_ADDR stub_addr
;
1863 args
= (value_ptr
*) alloca (sizeof (value_ptr
) * 8); /* 6 for the arguments and one null one??? */
1864 funcval
= find_function_in_inferior ("__d_shl_get");
1865 get_sym
= lookup_symbol ("__d_shl_get", NULL
, VAR_NAMESPACE
, NULL
, NULL
);
1866 buff_minsym
= lookup_minimal_symbol ("__buffer", NULL
, NULL
);
1867 msymbol
= lookup_minimal_symbol ("__shldp", NULL
, NULL
);
1868 symbol2
= lookup_symbol ("__shldp", NULL
, VAR_NAMESPACE
, NULL
, NULL
);
1869 endo_buff_addr
= SYMBOL_VALUE_ADDRESS (buff_minsym
);
1870 namelen
= strlen (SYMBOL_NAME (function
));
1871 value_return_addr
= endo_buff_addr
+ namelen
;
1872 ftype
= check_typedef (SYMBOL_TYPE (get_sym
));
1875 if ((x
= value_return_addr
% 64) != 0)
1876 value_return_addr
= value_return_addr
+ 64 - x
;
1878 errno_return_addr
= value_return_addr
+ 64;
1881 /* set up stuff needed by __d_shl_get in buffer in end.o */
1883 target_write_memory (endo_buff_addr
, SYMBOL_NAME (function
), namelen
);
1885 target_write_memory (value_return_addr
, (char *) &tmp
, 4);
1887 target_write_memory (errno_return_addr
, (char *) &tmp
, 4);
1889 target_write_memory (SYMBOL_VALUE_ADDRESS (msymbol
),
1890 (char *) &handle
, 4);
1892 /* now prepare the arguments for the call */
1894 args
[0] = value_from_longest (TYPE_FIELD_TYPE (ftype
, 0), 12);
1895 args
[1] = value_from_longest (TYPE_FIELD_TYPE (ftype
, 1), SYMBOL_VALUE_ADDRESS (msymbol
));
1896 args
[2] = value_from_longest (TYPE_FIELD_TYPE (ftype
, 2), endo_buff_addr
);
1897 args
[3] = value_from_longest (TYPE_FIELD_TYPE (ftype
, 3), TYPE_PROCEDURE
);
1898 args
[4] = value_from_longest (TYPE_FIELD_TYPE (ftype
, 4), value_return_addr
);
1899 args
[5] = value_from_longest (TYPE_FIELD_TYPE (ftype
, 5), errno_return_addr
);
1901 /* now call the function */
1903 val
= call_function_by_hand (funcval
, 6, args
);
1905 /* now get the results */
1907 target_read_memory (errno_return_addr
, (char *) &err_value
, sizeof (err_value
));
1909 target_read_memory (value_return_addr
, (char *) &stub_addr
, sizeof (stub_addr
));
1911 error ("call to __d_shl_get failed, error code is %d", err_value
); /* purecov: deadcode */
1916 /* Cover routine for find_stub_with_shl_get to pass to catch_errors */
1918 cover_find_stub_with_shl_get (args
)
1919 args_for_find_stub
*args
;
1921 return find_stub_with_shl_get (args
->msym
, args
->solib_handle
);
1925 /* Insert the specified number of args and function address
1926 into a call sequence of the above form stored at DUMMYNAME.
1928 On the hppa we need to call the stack dummy through $$dyncall.
1929 Therefore our version of FIX_CALL_DUMMY takes an extra argument,
1930 real_pc, which is the location where gdb should start up the
1931 inferior to do the function call.
1933 This has to work across several versions of hpux, bsd, osf1. It has to
1934 work regardless of what compiler was used to build the inferior program.
1935 It should work regardless of whether or not end.o is available. It has
1936 to work even if gdb can not call into the dynamic loader in the inferior
1937 to query it for symbol names and addresses.
1939 Yes, all those cases should work. Luckily code exists to handle most
1940 of them. The complexity is in selecting exactly what scheme should
1941 be used to perform the inferior call.
1943 At the current time this routine is known not to handle cases where
1944 the program was linked with HP's compiler without including end.o.
1946 Please contact Jeff Law (law@cygnus.com) before changing this code. */
1949 hppa_fix_call_dummy (dummy
, pc
, fun
, nargs
, args
, type
, gcc_p
)
1958 CORE_ADDR dyncall_addr
;
1959 struct minimal_symbol
*msymbol
;
1960 struct minimal_symbol
*trampoline
;
1961 int flags
= read_register (FLAGS_REGNUM
);
1962 struct unwind_table_entry
*u
= NULL
;
1963 CORE_ADDR new_stub
= 0;
1964 CORE_ADDR solib_handle
= 0;
1966 /* Nonzero if we will use GCC's PLT call routine. This routine must be
1967 passed an import stub, not a PLABEL. It is also necessary to set %r19
1968 (the PIC register) before performing the call.
1970 If zero, then we are using __d_plt_call (HP's PLT call routine) or we
1971 are calling the target directly. When using __d_plt_call we want to
1972 use a PLABEL instead of an import stub. */
1973 int using_gcc_plt_call
= 1;
1975 /* Prefer __gcc_plt_call over the HP supplied routine because
1976 __gcc_plt_call works for any number of arguments. */
1978 if (lookup_minimal_symbol ("__gcc_plt_call", NULL
, NULL
) == NULL
)
1979 using_gcc_plt_call
= 0;
1981 msymbol
= lookup_minimal_symbol ("$$dyncall", NULL
, NULL
);
1982 if (msymbol
== NULL
)
1983 error ("Can't find an address for $$dyncall trampoline");
1985 dyncall_addr
= SYMBOL_VALUE_ADDRESS (msymbol
);
1987 /* FUN could be a procedure label, in which case we have to get
1988 its real address and the value of its GOT/DP if we plan to
1989 call the routine via gcc_plt_call. */
1990 if ((fun
& 0x2) && using_gcc_plt_call
)
1992 /* Get the GOT/DP value for the target function. It's
1993 at *(fun+4). Note the call dummy is *NOT* allowed to
1994 trash %r19 before calling the target function. */
1995 write_register (19, read_memory_integer ((fun
& ~0x3) + 4, 4));
1997 /* Now get the real address for the function we are calling, it's
1999 fun
= (CORE_ADDR
) read_memory_integer (fun
& ~0x3, 4);
2004 #ifndef GDB_TARGET_IS_PA_ELF
2005 /* FUN could be an export stub, the real address of a function, or
2006 a PLABEL. When using gcc's PLT call routine we must call an import
2007 stub rather than the export stub or real function for lazy binding
2010 /* If we are using the gcc PLT call routine, then we need to
2011 get the import stub for the target function. */
2012 if (using_gcc_plt_call
&& som_solib_get_got_by_pc (fun
))
2014 struct objfile
*objfile
;
2015 struct minimal_symbol
*funsymbol
, *stub_symbol
;
2016 CORE_ADDR newfun
= 0;
2018 funsymbol
= lookup_minimal_symbol_by_pc (fun
);
2020 error ("Unable to find minimal symbol for target fucntion.\n");
2022 /* Search all the object files for an import symbol with the
2024 ALL_OBJFILES (objfile
)
2027 = lookup_minimal_symbol_solib_trampoline
2028 (SYMBOL_NAME (funsymbol
), NULL
, objfile
);
2031 stub_symbol
= lookup_minimal_symbol (SYMBOL_NAME (funsymbol
),
2034 /* Found a symbol with the right name. */
2037 struct unwind_table_entry
*u
;
2038 /* It must be a shared library trampoline. */
2039 if (MSYMBOL_TYPE (stub_symbol
) != mst_solib_trampoline
)
2042 /* It must also be an import stub. */
2043 u
= find_unwind_entry (SYMBOL_VALUE (stub_symbol
));
2045 || (u
->stub_unwind
.stub_type
!= IMPORT
)
2046 && u
->stub_unwind
.stub_type
!= IMPORT_SHLIB
)
2049 /* OK. Looks like the correct import stub. */
2050 newfun
= SYMBOL_VALUE (stub_symbol
);
2055 /* Ouch. We did not find an import stub. Make an attempt to
2056 do the right thing instead of just croaking. Most of the
2057 time this will actually work. */
2059 write_register (19, som_solib_get_got_by_pc (fun
));
2061 u
= find_unwind_entry (fun
);
2063 && (u
->stub_unwind
.stub_type
== IMPORT
2064 || u
->stub_unwind
.stub_type
== IMPORT_SHLIB
))
2065 trampoline
= lookup_minimal_symbol ("__gcc_plt_call", NULL
, NULL
);
2067 /* If we found the import stub in the shared library, then we have
2068 to set %r19 before we call the stub. */
2069 if (u
&& u
->stub_unwind
.stub_type
== IMPORT_SHLIB
)
2070 write_register (19, som_solib_get_got_by_pc (fun
));
2075 /* If we are calling into another load module then have sr4export call the
2076 magic __d_plt_call routine which is linked in from end.o.
2078 You can't use _sr4export to make the call as the value in sp-24 will get
2079 fried and you end up returning to the wrong location. You can't call the
2080 target as the code to bind the PLT entry to a function can't return to a
2083 Also, query the dynamic linker in the inferior to provide a suitable
2084 PLABEL for the target function. */
2085 if (!using_gcc_plt_call
)
2089 /* Get a handle for the shared library containing FUN. Given the
2090 handle we can query the shared library for a PLABEL. */
2091 solib_handle
= som_solib_get_solib_by_pc (fun
);
2095 struct minimal_symbol
*fmsymbol
= lookup_minimal_symbol_by_pc (fun
);
2097 trampoline
= lookup_minimal_symbol ("__d_plt_call", NULL
, NULL
);
2099 if (trampoline
== NULL
)
2101 error ("Can't find an address for __d_plt_call or __gcc_plt_call trampoline\nSuggest linking executable with -g or compiling with gcc.");
2104 /* This is where sr4export will jump to. */
2105 new_fun
= SYMBOL_VALUE_ADDRESS (trampoline
);
2107 /* If the function is in a shared library, then call __d_shl_get to
2108 get a PLABEL for the target function. */
2109 new_stub
= find_stub_with_shl_get (fmsymbol
, solib_handle
);
2112 error ("Can't find an import stub for %s", SYMBOL_NAME (fmsymbol
));
2114 /* We have to store the address of the stub in __shlib_funcptr. */
2115 msymbol
= lookup_minimal_symbol ("__shlib_funcptr", NULL
,
2116 (struct objfile
*) NULL
);
2118 if (msymbol
== NULL
)
2119 error ("Can't find an address for __shlib_funcptr");
2120 target_write_memory (SYMBOL_VALUE_ADDRESS (msymbol
),
2121 (char *) &new_stub
, 4);
2123 /* We want sr4export to call __d_plt_call, so we claim it is
2124 the final target. Clear trampoline. */
2130 #ifndef GDB_TARGET_IS_HPPA_20W
2131 /* Store upper 21 bits of function address into ldil. fun will either be
2132 the final target (most cases) or __d_plt_call when calling into a shared
2133 library and __gcc_plt_call is not available. */
2134 store_unsigned_integer
2135 (&dummy
[FUNC_LDIL_OFFSET
],
2137 deposit_21 (fun
>> 11,
2138 extract_unsigned_integer (&dummy
[FUNC_LDIL_OFFSET
],
2139 INSTRUCTION_SIZE
)));
2141 /* Store lower 11 bits of function address into ldo */
2142 store_unsigned_integer
2143 (&dummy
[FUNC_LDO_OFFSET
],
2145 deposit_14 (fun
& MASK_11
,
2146 extract_unsigned_integer (&dummy
[FUNC_LDO_OFFSET
],
2147 INSTRUCTION_SIZE
)));
2148 #endif /* GDB_TARGET_IS_HPPA_20W */
2149 #ifdef SR4EXPORT_LDIL_OFFSET
2152 CORE_ADDR trampoline_addr
;
2154 /* We may still need sr4export's address too. */
2156 if (trampoline
== NULL
)
2158 msymbol
= lookup_minimal_symbol ("_sr4export", NULL
, NULL
);
2159 if (msymbol
== NULL
)
2160 error ("Can't find an address for _sr4export trampoline");
2162 trampoline_addr
= SYMBOL_VALUE_ADDRESS (msymbol
);
2165 trampoline_addr
= SYMBOL_VALUE_ADDRESS (trampoline
);
2168 /* Store upper 21 bits of trampoline's address into ldil */
2169 store_unsigned_integer
2170 (&dummy
[SR4EXPORT_LDIL_OFFSET
],
2172 deposit_21 (trampoline_addr
>> 11,
2173 extract_unsigned_integer (&dummy
[SR4EXPORT_LDIL_OFFSET
],
2174 INSTRUCTION_SIZE
)));
2176 /* Store lower 11 bits of trampoline's address into ldo */
2177 store_unsigned_integer
2178 (&dummy
[SR4EXPORT_LDO_OFFSET
],
2180 deposit_14 (trampoline_addr
& MASK_11
,
2181 extract_unsigned_integer (&dummy
[SR4EXPORT_LDO_OFFSET
],
2182 INSTRUCTION_SIZE
)));
2186 write_register (22, pc
);
2188 /* If we are in a syscall, then we should call the stack dummy
2189 directly. $$dyncall is not needed as the kernel sets up the
2190 space id registers properly based on the value in %r31. In
2191 fact calling $$dyncall will not work because the value in %r22
2192 will be clobbered on the syscall exit path.
2194 Similarly if the current PC is in a shared library. Note however,
2195 this scheme won't work if the shared library isn't mapped into
2196 the same space as the stack. */
2199 #ifndef GDB_TARGET_IS_PA_ELF
2200 else if (som_solib_get_got_by_pc (target_read_pc (inferior_pid
)))
2204 return dyncall_addr
;
2210 /* If the pid is in a syscall, then the FP register is not readable.
2211 We'll return zero in that case, rather than attempting to read it
2212 and cause a warning. */
2214 target_read_fp (pid
)
2217 int flags
= read_register (FLAGS_REGNUM
);
2221 return (CORE_ADDR
) 0;
2224 /* This is the only site that may directly read_register () the FP
2225 register. All others must use TARGET_READ_FP (). */
2226 return read_register (FP_REGNUM
);
2230 /* Get the PC from %r31 if currently in a syscall. Also mask out privilege
2234 target_read_pc (pid
)
2237 int flags
= read_register_pid (FLAGS_REGNUM
, pid
);
2239 /* The following test does not belong here. It is OS-specific, and belongs
2241 /* Test SS_INSYSCALL */
2243 return read_register_pid (31, pid
) & ~0x3;
2245 return read_register_pid (PC_REGNUM
, pid
) & ~0x3;
2248 /* Write out the PC. If currently in a syscall, then also write the new
2249 PC value into %r31. */
2252 target_write_pc (v
, pid
)
2256 int flags
= read_register_pid (FLAGS_REGNUM
, pid
);
2258 /* The following test does not belong here. It is OS-specific, and belongs
2260 /* If in a syscall, then set %r31. Also make sure to get the
2261 privilege bits set correctly. */
2262 /* Test SS_INSYSCALL */
2264 write_register_pid (31, v
| 0x3, pid
);
2266 write_register_pid (PC_REGNUM
, v
, pid
);
2267 write_register_pid (NPC_REGNUM
, v
+ 4, pid
);
2270 /* return the alignment of a type in bytes. Structures have the maximum
2271 alignment required by their fields. */
2277 int max_align
, align
, i
;
2278 CHECK_TYPEDEF (type
);
2279 switch (TYPE_CODE (type
))
2284 return TYPE_LENGTH (type
);
2285 case TYPE_CODE_ARRAY
:
2286 return hppa_alignof (TYPE_FIELD_TYPE (type
, 0));
2287 case TYPE_CODE_STRUCT
:
2288 case TYPE_CODE_UNION
:
2290 for (i
= 0; i
< TYPE_NFIELDS (type
); i
++)
2292 /* Bit fields have no real alignment. */
2293 /* if (!TYPE_FIELD_BITPOS (type, i)) */
2294 if (!TYPE_FIELD_BITSIZE (type
, i
)) /* elz: this should be bitsize */
2296 align
= hppa_alignof (TYPE_FIELD_TYPE (type
, i
));
2297 max_align
= max (max_align
, align
);
2306 /* Print the register regnum, or all registers if regnum is -1 */
2309 pa_do_registers_info (regnum
, fpregs
)
2313 char raw_regs
[REGISTER_BYTES
];
2316 /* Make a copy of gdb's save area (may cause actual
2317 reads from the target). */
2318 for (i
= 0; i
< NUM_REGS
; i
++)
2319 read_relative_register_raw_bytes (i
, raw_regs
+ REGISTER_BYTE (i
));
2322 pa_print_registers (raw_regs
, regnum
, fpregs
);
2323 else if (regnum
< FP4_REGNUM
)
2327 /* Why is the value not passed through "extract_signed_integer"
2328 as in "pa_print_registers" below? */
2329 pa_register_look_aside (raw_regs
, regnum
, ®_val
[0]);
2333 printf_unfiltered ("%s %x\n", REGISTER_NAME (regnum
), reg_val
[1]);
2337 /* Fancy % formats to prevent leading zeros. */
2338 if (reg_val
[0] == 0)
2339 printf_unfiltered ("%s %x\n", REGISTER_NAME (regnum
), reg_val
[1]);
2341 printf_unfiltered ("%s %x%8.8x\n", REGISTER_NAME (regnum
),
2342 reg_val
[0], reg_val
[1]);
2346 /* Note that real floating point values only start at
2347 FP4_REGNUM. FP0 and up are just status and error
2348 registers, which have integral (bit) values. */
2349 pa_print_fp_reg (regnum
);
2352 /********** new function ********************/
2354 pa_do_strcat_registers_info (regnum
, fpregs
, stream
, precision
)
2358 enum precision_type precision
;
2360 char raw_regs
[REGISTER_BYTES
];
2363 /* Make a copy of gdb's save area (may cause actual
2364 reads from the target). */
2365 for (i
= 0; i
< NUM_REGS
; i
++)
2366 read_relative_register_raw_bytes (i
, raw_regs
+ REGISTER_BYTE (i
));
2369 pa_strcat_registers (raw_regs
, regnum
, fpregs
, stream
);
2371 else if (regnum
< FP4_REGNUM
)
2375 /* Why is the value not passed through "extract_signed_integer"
2376 as in "pa_print_registers" below? */
2377 pa_register_look_aside (raw_regs
, regnum
, ®_val
[0]);
2381 fprintf_unfiltered (stream
, "%s %x", REGISTER_NAME (regnum
), reg_val
[1]);
2385 /* Fancy % formats to prevent leading zeros. */
2386 if (reg_val
[0] == 0)
2387 fprintf_unfiltered (stream
, "%s %x", REGISTER_NAME (regnum
),
2390 fprintf_unfiltered (stream
, "%s %x%8.8x", REGISTER_NAME (regnum
),
2391 reg_val
[0], reg_val
[1]);
2395 /* Note that real floating point values only start at
2396 FP4_REGNUM. FP0 and up are just status and error
2397 registers, which have integral (bit) values. */
2398 pa_strcat_fp_reg (regnum
, stream
, precision
);
2401 /* If this is a PA2.0 machine, fetch the real 64-bit register
2402 value. Otherwise use the info from gdb's saved register area.
2404 Note that reg_val is really expected to be an array of longs,
2405 with two elements. */
2407 pa_register_look_aside (raw_regs
, regnum
, raw_val
)
2412 static int know_which
= 0; /* False */
2415 unsigned int offset
;
2420 char buf
[MAX_REGISTER_RAW_SIZE
];
2425 if (CPU_PA_RISC2_0
== sysconf (_SC_CPU_VERSION
))
2430 know_which
= 1; /* True */
2438 raw_val
[1] = *(long *) (raw_regs
+ REGISTER_BYTE (regnum
));
2442 /* Code below copied from hppah-nat.c, with fixes for wide
2443 registers, using different area of save_state, etc. */
2444 if (regnum
== FLAGS_REGNUM
|| regnum
>= FP0_REGNUM
||
2445 !HAVE_STRUCT_SAVE_STATE_T
|| !HAVE_STRUCT_MEMBER_SS_WIDE
)
2447 /* Use narrow regs area of save_state and default macro. */
2448 offset
= U_REGS_OFFSET
;
2449 regaddr
= register_addr (regnum
, offset
);
2454 /* Use wide regs area, and calculate registers as 8 bytes wide.
2456 We'd like to do this, but current version of "C" doesn't
2459 offset = offsetof(save_state_t, ss_wide);
2461 Note that to avoid "C" doing typed pointer arithmetic, we
2462 have to cast away the type in our offset calculation:
2463 otherwise we get an offset of 1! */
2465 /* NB: save_state_t is not available before HPUX 9.
2466 The ss_wide field is not available previous to HPUX 10.20,
2467 so to avoid compile-time warnings, we only compile this for
2468 PA 2.0 processors. This control path should only be followed
2469 if we're debugging a PA 2.0 processor, so this should not cause
2472 /* #if the following code out so that this file can still be
2473 compiled on older HPUX boxes (< 10.20) which don't have
2474 this structure/structure member. */
2475 #if HAVE_STRUCT_SAVE_STATE_T == 1 && HAVE_STRUCT_MEMBER_SS_WIDE == 1
2478 offset
= ((int) &temp
.ss_wide
) - ((int) &temp
);
2479 regaddr
= offset
+ regnum
* 8;
2484 for (i
= start
; i
< 2; i
++)
2487 raw_val
[i
] = call_ptrace (PT_RUREGS
, inferior_pid
,
2488 (PTRACE_ARG3_TYPE
) regaddr
, 0);
2491 /* Warning, not error, in case we are attached; sometimes the
2492 kernel doesn't let us at the registers. */
2493 char *err
= safe_strerror (errno
);
2494 char *msg
= alloca (strlen (err
) + 128);
2495 sprintf (msg
, "reading register %s: %s", REGISTER_NAME (regnum
), err
);
2500 regaddr
+= sizeof (long);
2503 if (regnum
== PCOQ_HEAD_REGNUM
|| regnum
== PCOQ_TAIL_REGNUM
)
2504 raw_val
[1] &= ~0x3; /* I think we're masking out space bits */
2510 /* "Info all-reg" command */
2513 pa_print_registers (raw_regs
, regnum
, fpregs
)
2519 /* Alas, we are compiled so that "long long" is 32 bits */
2522 int rows
= 24, columns
= 3;
2524 for (i
= 0; i
< rows
; i
++)
2526 for (j
= 0; j
< columns
; j
++)
2528 /* We display registers in column-major order. */
2529 int regnum
= i
+ j
* rows
;
2531 /* Q: Why is the value passed through "extract_signed_integer",
2532 while above, in "pa_do_registers_info" it isn't?
2534 pa_register_look_aside (raw_regs
, regnum
, &raw_val
[0]);
2536 /* Even fancier % formats to prevent leading zeros
2537 and still maintain the output in columns. */
2540 /* Being big-endian, on this machine the low bits
2541 (the ones we want to look at) are in the second longword. */
2542 long_val
= extract_signed_integer (&raw_val
[1], 4);
2543 printf_filtered ("%8.8s: %8x",
2544 REGISTER_NAME (regnum
), long_val
);
2548 /* raw_val = extract_signed_integer(&raw_val, 8); */
2549 if (raw_val
[0] == 0)
2550 printf_filtered ("%8.8s: %8x",
2551 REGISTER_NAME (regnum
), raw_val
[1]);
2553 printf_filtered ("%8.8s: %8x%8.8x", REGISTER_NAME (regnum
),
2554 raw_val
[0], raw_val
[1]);
2557 printf_unfiltered ("\n");
2561 for (i
= FP4_REGNUM
; i
< NUM_REGS
; i
++) /* FP4_REGNUM == 72 */
2562 pa_print_fp_reg (i
);
2565 /************* new function ******************/
2567 pa_strcat_registers (raw_regs
, regnum
, fpregs
, stream
)
2574 long raw_val
[2]; /* Alas, we are compiled so that "long long" is 32 bits */
2576 enum precision_type precision
;
2578 precision
= unspecified_precision
;
2580 for (i
= 0; i
< 18; i
++)
2582 for (j
= 0; j
< 4; j
++)
2584 /* Q: Why is the value passed through "extract_signed_integer",
2585 while above, in "pa_do_registers_info" it isn't?
2587 pa_register_look_aside (raw_regs
, i
+ (j
* 18), &raw_val
[0]);
2589 /* Even fancier % formats to prevent leading zeros
2590 and still maintain the output in columns. */
2593 /* Being big-endian, on this machine the low bits
2594 (the ones we want to look at) are in the second longword. */
2595 long_val
= extract_signed_integer (&raw_val
[1], 4);
2596 fprintf_filtered (stream
, "%8.8s: %8x ", REGISTER_NAME (i
+ (j
* 18)), long_val
);
2600 /* raw_val = extract_signed_integer(&raw_val, 8); */
2601 if (raw_val
[0] == 0)
2602 fprintf_filtered (stream
, "%8.8s: %8x ", REGISTER_NAME (i
+ (j
* 18)),
2605 fprintf_filtered (stream
, "%8.8s: %8x%8.8x ", REGISTER_NAME (i
+ (j
* 18)),
2606 raw_val
[0], raw_val
[1]);
2609 fprintf_unfiltered (stream
, "\n");
2613 for (i
= FP4_REGNUM
; i
< NUM_REGS
; i
++) /* FP4_REGNUM == 72 */
2614 pa_strcat_fp_reg (i
, stream
, precision
);
2621 char raw_buffer
[MAX_REGISTER_RAW_SIZE
];
2622 char virtual_buffer
[MAX_REGISTER_VIRTUAL_SIZE
];
2624 /* Get 32bits of data. */
2625 read_relative_register_raw_bytes (i
, raw_buffer
);
2627 /* Put it in the buffer. No conversions are ever necessary. */
2628 memcpy (virtual_buffer
, raw_buffer
, REGISTER_RAW_SIZE (i
));
2630 fputs_filtered (REGISTER_NAME (i
), gdb_stdout
);
2631 print_spaces_filtered (8 - strlen (REGISTER_NAME (i
)), gdb_stdout
);
2632 fputs_filtered ("(single precision) ", gdb_stdout
);
2634 val_print (REGISTER_VIRTUAL_TYPE (i
), virtual_buffer
, 0, 0, gdb_stdout
, 0,
2635 1, 0, Val_pretty_default
);
2636 printf_filtered ("\n");
2638 /* If "i" is even, then this register can also be a double-precision
2639 FP register. Dump it out as such. */
2642 /* Get the data in raw format for the 2nd half. */
2643 read_relative_register_raw_bytes (i
+ 1, raw_buffer
);
2645 /* Copy it into the appropriate part of the virtual buffer. */
2646 memcpy (virtual_buffer
+ REGISTER_RAW_SIZE (i
), raw_buffer
,
2647 REGISTER_RAW_SIZE (i
));
2649 /* Dump it as a double. */
2650 fputs_filtered (REGISTER_NAME (i
), gdb_stdout
);
2651 print_spaces_filtered (8 - strlen (REGISTER_NAME (i
)), gdb_stdout
);
2652 fputs_filtered ("(double precision) ", gdb_stdout
);
2654 val_print (builtin_type_double
, virtual_buffer
, 0, 0, gdb_stdout
, 0,
2655 1, 0, Val_pretty_default
);
2656 printf_filtered ("\n");
2660 /*************** new function ***********************/
2662 pa_strcat_fp_reg (i
, stream
, precision
)
2665 enum precision_type precision
;
2667 char raw_buffer
[MAX_REGISTER_RAW_SIZE
];
2668 char virtual_buffer
[MAX_REGISTER_VIRTUAL_SIZE
];
2670 fputs_filtered (REGISTER_NAME (i
), stream
);
2671 print_spaces_filtered (8 - strlen (REGISTER_NAME (i
)), stream
);
2673 /* Get 32bits of data. */
2674 read_relative_register_raw_bytes (i
, raw_buffer
);
2676 /* Put it in the buffer. No conversions are ever necessary. */
2677 memcpy (virtual_buffer
, raw_buffer
, REGISTER_RAW_SIZE (i
));
2679 if (precision
== double_precision
&& (i
% 2) == 0)
2682 char raw_buf
[MAX_REGISTER_RAW_SIZE
];
2684 /* Get the data in raw format for the 2nd half. */
2685 read_relative_register_raw_bytes (i
+ 1, raw_buf
);
2687 /* Copy it into the appropriate part of the virtual buffer. */
2688 memcpy (virtual_buffer
+ REGISTER_RAW_SIZE (i
), raw_buf
, REGISTER_RAW_SIZE (i
));
2690 val_print (builtin_type_double
, virtual_buffer
, 0, 0, stream
, 0,
2691 1, 0, Val_pretty_default
);
2696 val_print (REGISTER_VIRTUAL_TYPE (i
), virtual_buffer
, 0, 0, stream
, 0,
2697 1, 0, Val_pretty_default
);
2702 /* Return one if PC is in the call path of a trampoline, else return zero.
2704 Note we return one for *any* call trampoline (long-call, arg-reloc), not
2705 just shared library trampolines (import, export). */
2708 in_solib_call_trampoline (pc
, name
)
2712 struct minimal_symbol
*minsym
;
2713 struct unwind_table_entry
*u
;
2714 static CORE_ADDR dyncall
= 0;
2715 static CORE_ADDR sr4export
= 0;
2717 /* FIXME XXX - dyncall and sr4export must be initialized whenever we get a
2720 /* First see if PC is in one of the two C-library trampolines. */
2723 minsym
= lookup_minimal_symbol ("$$dyncall", NULL
, NULL
);
2725 dyncall
= SYMBOL_VALUE_ADDRESS (minsym
);
2732 minsym
= lookup_minimal_symbol ("_sr4export", NULL
, NULL
);
2734 sr4export
= SYMBOL_VALUE_ADDRESS (minsym
);
2739 if (pc
== dyncall
|| pc
== sr4export
)
2742 /* Get the unwind descriptor corresponding to PC, return zero
2743 if no unwind was found. */
2744 u
= find_unwind_entry (pc
);
2748 /* If this isn't a linker stub, then return now. */
2749 if (u
->stub_unwind
.stub_type
== 0)
2752 /* By definition a long-branch stub is a call stub. */
2753 if (u
->stub_unwind
.stub_type
== LONG_BRANCH
)
2756 /* The call and return path execute the same instructions within
2757 an IMPORT stub! So an IMPORT stub is both a call and return
2759 if (u
->stub_unwind
.stub_type
== IMPORT
)
2762 /* Parameter relocation stubs always have a call path and may have a
2764 if (u
->stub_unwind
.stub_type
== PARAMETER_RELOCATION
2765 || u
->stub_unwind
.stub_type
== EXPORT
)
2769 /* Search forward from the current PC until we hit a branch
2770 or the end of the stub. */
2771 for (addr
= pc
; addr
<= u
->region_end
; addr
+= 4)
2775 insn
= read_memory_integer (addr
, 4);
2777 /* Does it look like a bl? If so then it's the call path, if
2778 we find a bv or be first, then we're on the return path. */
2779 if ((insn
& 0xfc00e000) == 0xe8000000)
2781 else if ((insn
& 0xfc00e001) == 0xe800c000
2782 || (insn
& 0xfc000000) == 0xe0000000)
2786 /* Should never happen. */
2787 warning ("Unable to find branch in parameter relocation stub.\n"); /* purecov: deadcode */
2788 return 0; /* purecov: deadcode */
2791 /* Unknown stub type. For now, just return zero. */
2792 return 0; /* purecov: deadcode */
2795 /* Return one if PC is in the return path of a trampoline, else return zero.
2797 Note we return one for *any* call trampoline (long-call, arg-reloc), not
2798 just shared library trampolines (import, export). */
2801 in_solib_return_trampoline (pc
, name
)
2805 struct unwind_table_entry
*u
;
2807 /* Get the unwind descriptor corresponding to PC, return zero
2808 if no unwind was found. */
2809 u
= find_unwind_entry (pc
);
2813 /* If this isn't a linker stub or it's just a long branch stub, then
2815 if (u
->stub_unwind
.stub_type
== 0 || u
->stub_unwind
.stub_type
== LONG_BRANCH
)
2818 /* The call and return path execute the same instructions within
2819 an IMPORT stub! So an IMPORT stub is both a call and return
2821 if (u
->stub_unwind
.stub_type
== IMPORT
)
2824 /* Parameter relocation stubs always have a call path and may have a
2826 if (u
->stub_unwind
.stub_type
== PARAMETER_RELOCATION
2827 || u
->stub_unwind
.stub_type
== EXPORT
)
2831 /* Search forward from the current PC until we hit a branch
2832 or the end of the stub. */
2833 for (addr
= pc
; addr
<= u
->region_end
; addr
+= 4)
2837 insn
= read_memory_integer (addr
, 4);
2839 /* Does it look like a bl? If so then it's the call path, if
2840 we find a bv or be first, then we're on the return path. */
2841 if ((insn
& 0xfc00e000) == 0xe8000000)
2843 else if ((insn
& 0xfc00e001) == 0xe800c000
2844 || (insn
& 0xfc000000) == 0xe0000000)
2848 /* Should never happen. */
2849 warning ("Unable to find branch in parameter relocation stub.\n"); /* purecov: deadcode */
2850 return 0; /* purecov: deadcode */
2853 /* Unknown stub type. For now, just return zero. */
2854 return 0; /* purecov: deadcode */
2858 /* Figure out if PC is in a trampoline, and if so find out where
2859 the trampoline will jump to. If not in a trampoline, return zero.
2861 Simple code examination probably is not a good idea since the code
2862 sequences in trampolines can also appear in user code.
2864 We use unwinds and information from the minimal symbol table to
2865 determine when we're in a trampoline. This won't work for ELF
2866 (yet) since it doesn't create stub unwind entries. Whether or
2867 not ELF will create stub unwinds or normal unwinds for linker
2868 stubs is still being debated.
2870 This should handle simple calls through dyncall or sr4export,
2871 long calls, argument relocation stubs, and dyncall/sr4export
2872 calling an argument relocation stub. It even handles some stubs
2873 used in dynamic executables. */
2877 skip_trampoline_code (pc
, name
)
2881 return find_solib_trampoline_target (pc
);
2887 skip_trampoline_code (pc
, name
)
2892 long prev_inst
, curr_inst
, loc
;
2893 static CORE_ADDR dyncall
= 0;
2894 static CORE_ADDR dyncall_external
= 0;
2895 static CORE_ADDR sr4export
= 0;
2896 struct minimal_symbol
*msym
;
2897 struct unwind_table_entry
*u
;
2900 /* FIXME XXX - dyncall and sr4export must be initialized whenever we get a
2905 msym
= lookup_minimal_symbol ("$$dyncall", NULL
, NULL
);
2907 dyncall
= SYMBOL_VALUE_ADDRESS (msym
);
2912 if (!dyncall_external
)
2914 msym
= lookup_minimal_symbol ("$$dyncall_external", NULL
, NULL
);
2916 dyncall_external
= SYMBOL_VALUE_ADDRESS (msym
);
2918 dyncall_external
= -1;
2923 msym
= lookup_minimal_symbol ("_sr4export", NULL
, NULL
);
2925 sr4export
= SYMBOL_VALUE_ADDRESS (msym
);
2930 /* Addresses passed to dyncall may *NOT* be the actual address
2931 of the function. So we may have to do something special. */
2934 pc
= (CORE_ADDR
) read_register (22);
2936 /* If bit 30 (counting from the left) is on, then pc is the address of
2937 the PLT entry for this function, not the address of the function
2938 itself. Bit 31 has meaning too, but only for MPE. */
2940 pc
= (CORE_ADDR
) read_memory_integer (pc
& ~0x3, 4);
2942 if (pc
== dyncall_external
)
2944 pc
= (CORE_ADDR
) read_register (22);
2945 pc
= (CORE_ADDR
) read_memory_integer (pc
& ~0x3, 4);
2947 else if (pc
== sr4export
)
2948 pc
= (CORE_ADDR
) (read_register (22));
2950 /* Get the unwind descriptor corresponding to PC, return zero
2951 if no unwind was found. */
2952 u
= find_unwind_entry (pc
);
2956 /* If this isn't a linker stub, then return now. */
2957 /* elz: attention here! (FIXME) because of a compiler/linker
2958 error, some stubs which should have a non zero stub_unwind.stub_type
2959 have unfortunately a value of zero. So this function would return here
2960 as if we were not in a trampoline. To fix this, we go look at the partial
2961 symbol information, which reports this guy as a stub.
2962 (FIXME): Unfortunately, we are not that lucky: it turns out that the
2963 partial symbol information is also wrong sometimes. This is because
2964 when it is entered (somread.c::som_symtab_read()) it can happen that
2965 if the type of the symbol (from the som) is Entry, and the symbol is
2966 in a shared library, then it can also be a trampoline. This would
2967 be OK, except that I believe the way they decide if we are ina shared library
2968 does not work. SOOOO..., even if we have a regular function w/o trampolines
2969 its minimal symbol can be assigned type mst_solib_trampoline.
2970 Also, if we find that the symbol is a real stub, then we fix the unwind
2971 descriptor, and define the stub type to be EXPORT.
2972 Hopefully this is correct most of the times. */
2973 if (u
->stub_unwind
.stub_type
== 0)
2976 /* elz: NOTE (FIXME!) once the problem with the unwind information is fixed
2977 we can delete all the code which appears between the lines */
2978 /*--------------------------------------------------------------------------*/
2979 msym
= lookup_minimal_symbol_by_pc (pc
);
2981 if (msym
== NULL
|| MSYMBOL_TYPE (msym
) != mst_solib_trampoline
)
2982 return orig_pc
== pc
? 0 : pc
& ~0x3;
2984 else if (msym
!= NULL
&& MSYMBOL_TYPE (msym
) == mst_solib_trampoline
)
2986 struct objfile
*objfile
;
2987 struct minimal_symbol
*msymbol
;
2988 int function_found
= 0;
2990 /* go look if there is another minimal symbol with the same name as
2991 this one, but with type mst_text. This would happen if the msym
2992 is an actual trampoline, in which case there would be another
2993 symbol with the same name corresponding to the real function */
2995 ALL_MSYMBOLS (objfile
, msymbol
)
2997 if (MSYMBOL_TYPE (msymbol
) == mst_text
2998 && STREQ (SYMBOL_NAME (msymbol
), SYMBOL_NAME (msym
)))
3006 /* the type of msym is correct (mst_solib_trampoline), but
3007 the unwind info is wrong, so set it to the correct value */
3008 u
->stub_unwind
.stub_type
= EXPORT
;
3010 /* the stub type info in the unwind is correct (this is not a
3011 trampoline), but the msym type information is wrong, it
3012 should be mst_text. So we need to fix the msym, and also
3013 get out of this function */
3015 MSYMBOL_TYPE (msym
) = mst_text
;
3016 return orig_pc
== pc
? 0 : pc
& ~0x3;
3020 /*--------------------------------------------------------------------------*/
3023 /* It's a stub. Search for a branch and figure out where it goes.
3024 Note we have to handle multi insn branch sequences like ldil;ble.
3025 Most (all?) other branches can be determined by examining the contents
3026 of certain registers and the stack. */
3033 /* Make sure we haven't walked outside the range of this stub. */
3034 if (u
!= find_unwind_entry (loc
))
3036 warning ("Unable to find branch in linker stub");
3037 return orig_pc
== pc
? 0 : pc
& ~0x3;
3040 prev_inst
= curr_inst
;
3041 curr_inst
= read_memory_integer (loc
, 4);
3043 /* Does it look like a branch external using %r1? Then it's the
3044 branch from the stub to the actual function. */
3045 if ((curr_inst
& 0xffe0e000) == 0xe0202000)
3047 /* Yup. See if the previous instruction loaded
3048 a value into %r1. If so compute and return the jump address. */
3049 if ((prev_inst
& 0xffe00000) == 0x20200000)
3050 return (extract_21 (prev_inst
) + extract_17 (curr_inst
)) & ~0x3;
3053 warning ("Unable to find ldil X,%%r1 before ble Y(%%sr4,%%r1).");
3054 return orig_pc
== pc
? 0 : pc
& ~0x3;
3058 /* Does it look like a be 0(sr0,%r21)? OR
3059 Does it look like a be, n 0(sr0,%r21)? OR
3060 Does it look like a bve (r21)? (this is on PA2.0)
3061 Does it look like a bve, n(r21)? (this is also on PA2.0)
3062 That's the branch from an
3063 import stub to an export stub.
3065 It is impossible to determine the target of the branch via
3066 simple examination of instructions and/or data (consider
3067 that the address in the plabel may be the address of the
3068 bind-on-reference routine in the dynamic loader).
3070 So we have try an alternative approach.
3072 Get the name of the symbol at our current location; it should
3073 be a stub symbol with the same name as the symbol in the
3076 Then lookup a minimal symbol with the same name; we should
3077 get the minimal symbol for the target routine in the shared
3078 library as those take precedence of import/export stubs. */
3079 if ((curr_inst
== 0xe2a00000) ||
3080 (curr_inst
== 0xe2a00002) ||
3081 (curr_inst
== 0xeaa0d000) ||
3082 (curr_inst
== 0xeaa0d002))
3084 struct minimal_symbol
*stubsym
, *libsym
;
3086 stubsym
= lookup_minimal_symbol_by_pc (loc
);
3087 if (stubsym
== NULL
)
3089 warning ("Unable to find symbol for 0x%x", loc
);
3090 return orig_pc
== pc
? 0 : pc
& ~0x3;
3093 libsym
= lookup_minimal_symbol (SYMBOL_NAME (stubsym
), NULL
, NULL
);
3096 warning ("Unable to find library symbol for %s\n",
3097 SYMBOL_NAME (stubsym
));
3098 return orig_pc
== pc
? 0 : pc
& ~0x3;
3101 return SYMBOL_VALUE (libsym
);
3104 /* Does it look like bl X,%rp or bl X,%r0? Another way to do a
3105 branch from the stub to the actual function. */
3107 else if ((curr_inst
& 0xffe0e000) == 0xe8400000
3108 || (curr_inst
& 0xffe0e000) == 0xe8000000
3109 || (curr_inst
& 0xffe0e000) == 0xe800A000)
3110 return (loc
+ extract_17 (curr_inst
) + 8) & ~0x3;
3112 /* Does it look like bv (rp)? Note this depends on the
3113 current stack pointer being the same as the stack
3114 pointer in the stub itself! This is a branch on from the
3115 stub back to the original caller. */
3116 /*else if ((curr_inst & 0xffe0e000) == 0xe840c000) */
3117 else if ((curr_inst
& 0xffe0f000) == 0xe840c000)
3119 /* Yup. See if the previous instruction loaded
3121 if (prev_inst
== 0x4bc23ff1)
3122 return (read_memory_integer
3123 (read_register (SP_REGNUM
) - 8, 4)) & ~0x3;
3126 warning ("Unable to find restore of %%rp before bv (%%rp).");
3127 return orig_pc
== pc
? 0 : pc
& ~0x3;
3131 /* elz: added this case to capture the new instruction
3132 at the end of the return part of an export stub used by
3133 the PA2.0: BVE, n (rp) */
3134 else if ((curr_inst
& 0xffe0f000) == 0xe840d000)
3136 return (read_memory_integer
3137 (read_register (SP_REGNUM
) - 24, 4)) & ~0x3;
3140 /* What about be,n 0(sr0,%rp)? It's just another way we return to
3141 the original caller from the stub. Used in dynamic executables. */
3142 else if (curr_inst
== 0xe0400002)
3144 /* The value we jump to is sitting in sp - 24. But that's
3145 loaded several instructions before the be instruction.
3146 I guess we could check for the previous instruction being
3147 mtsp %r1,%sr0 if we want to do sanity checking. */
3148 return (read_memory_integer
3149 (read_register (SP_REGNUM
) - 24, 4)) & ~0x3;
3152 /* Haven't found the branch yet, but we're still in the stub.
3159 /* For the given instruction (INST), return any adjustment it makes
3160 to the stack pointer or zero for no adjustment.
3162 This only handles instructions commonly found in prologues. */
3165 prologue_inst_adjust_sp (inst
)
3168 /* This must persist across calls. */
3169 static int save_high21
;
3171 /* The most common way to perform a stack adjustment ldo X(sp),sp */
3172 if ((inst
& 0xffffc000) == 0x37de0000)
3173 return extract_14 (inst
);
3176 if ((inst
& 0xffe00000) == 0x6fc00000)
3177 return extract_14 (inst
);
3179 /* addil high21,%r1; ldo low11,(%r1),%r30)
3180 save high bits in save_high21 for later use. */
3181 if ((inst
& 0xffe00000) == 0x28200000)
3183 save_high21
= extract_21 (inst
);
3187 if ((inst
& 0xffff0000) == 0x343e0000)
3188 return save_high21
+ extract_14 (inst
);
3190 /* fstws as used by the HP compilers. */
3191 if ((inst
& 0xffffffe0) == 0x2fd01220)
3192 return extract_5_load (inst
);
3194 /* No adjustment. */
3198 /* Return nonzero if INST is a branch of some kind, else return zero. */
3228 /* Return the register number for a GR which is saved by INST or
3229 zero it INST does not save a GR. */
3232 inst_saves_gr (inst
)
3235 /* Does it look like a stw? */
3236 if ((inst
>> 26) == 0x1a)
3237 return extract_5R_store (inst
);
3239 /* Does it look like a stwm? GCC & HPC may use this in prologues. */
3240 if ((inst
>> 26) == 0x1b)
3241 return extract_5R_store (inst
);
3243 /* Does it look like sth or stb? HPC versions 9.0 and later use these
3245 if ((inst
>> 26) == 0x19 || (inst
>> 26) == 0x18)
3246 return extract_5R_store (inst
);
3251 /* Return the register number for a FR which is saved by INST or
3252 zero it INST does not save a FR.
3254 Note we only care about full 64bit register stores (that's the only
3255 kind of stores the prologue will use).
3257 FIXME: What about argument stores with the HP compiler in ANSI mode? */
3260 inst_saves_fr (inst
)
3263 /* is this an FSTDS ? */
3264 if ((inst
& 0xfc00dfc0) == 0x2c001200)
3265 return extract_5r_store (inst
);
3266 /* is this an FSTWS ? */
3267 if ((inst
& 0xfc00df80) == 0x24001200)
3268 return extract_5r_store (inst
);
3272 /* Advance PC across any function entry prologue instructions
3273 to reach some "real" code.
3275 Use information in the unwind table to determine what exactly should
3276 be in the prologue. */
3280 skip_prologue_hard_way (pc
)
3284 CORE_ADDR orig_pc
= pc
;
3285 unsigned long inst
, stack_remaining
, save_gr
, save_fr
, save_rp
, save_sp
;
3286 unsigned long args_stored
, status
, i
, restart_gr
, restart_fr
;
3287 struct unwind_table_entry
*u
;
3293 u
= find_unwind_entry (pc
);
3297 /* If we are not at the beginning of a function, then return now. */
3298 if ((pc
& ~0x3) != u
->region_start
)
3301 /* This is how much of a frame adjustment we need to account for. */
3302 stack_remaining
= u
->Total_frame_size
<< 3;
3304 /* Magic register saves we want to know about. */
3305 save_rp
= u
->Save_RP
;
3306 save_sp
= u
->Save_SP
;
3308 /* An indication that args may be stored into the stack. Unfortunately
3309 the HPUX compilers tend to set this in cases where no args were
3313 /* Turn the Entry_GR field into a bitmask. */
3315 for (i
= 3; i
< u
->Entry_GR
+ 3; i
++)
3317 /* Frame pointer gets saved into a special location. */
3318 if (u
->Save_SP
&& i
== FP_REGNUM
)
3321 save_gr
|= (1 << i
);
3323 save_gr
&= ~restart_gr
;
3325 /* Turn the Entry_FR field into a bitmask too. */
3327 for (i
= 12; i
< u
->Entry_FR
+ 12; i
++)
3328 save_fr
|= (1 << i
);
3329 save_fr
&= ~restart_fr
;
3331 /* Loop until we find everything of interest or hit a branch.
3333 For unoptimized GCC code and for any HP CC code this will never ever
3334 examine any user instructions.
3336 For optimzied GCC code we're faced with problems. GCC will schedule
3337 its prologue and make prologue instructions available for delay slot
3338 filling. The end result is user code gets mixed in with the prologue
3339 and a prologue instruction may be in the delay slot of the first branch
3342 Some unexpected things are expected with debugging optimized code, so
3343 we allow this routine to walk past user instructions in optimized
3345 while (save_gr
|| save_fr
|| save_rp
|| save_sp
|| stack_remaining
> 0
3348 unsigned int reg_num
;
3349 unsigned long old_stack_remaining
, old_save_gr
, old_save_fr
;
3350 unsigned long old_save_rp
, old_save_sp
, next_inst
;
3352 /* Save copies of all the triggers so we can compare them later
3354 old_save_gr
= save_gr
;
3355 old_save_fr
= save_fr
;
3356 old_save_rp
= save_rp
;
3357 old_save_sp
= save_sp
;
3358 old_stack_remaining
= stack_remaining
;
3360 status
= target_read_memory (pc
, buf
, 4);
3361 inst
= extract_unsigned_integer (buf
, 4);
3367 /* Note the interesting effects of this instruction. */
3368 stack_remaining
-= prologue_inst_adjust_sp (inst
);
3370 /* There is only one instruction used for saving RP into the stack. */
3371 if (inst
== 0x6bc23fd9)
3374 /* This is the only way we save SP into the stack. At this time
3375 the HP compilers never bother to save SP into the stack. */
3376 if ((inst
& 0xffffc000) == 0x6fc10000)
3379 /* Account for general and floating-point register saves. */
3380 reg_num
= inst_saves_gr (inst
);
3381 save_gr
&= ~(1 << reg_num
);
3383 /* Ugh. Also account for argument stores into the stack.
3384 Unfortunately args_stored only tells us that some arguments
3385 where stored into the stack. Not how many or what kind!
3387 This is a kludge as on the HP compiler sets this bit and it
3388 never does prologue scheduling. So once we see one, skip past
3389 all of them. We have similar code for the fp arg stores below.
3391 FIXME. Can still die if we have a mix of GR and FR argument
3393 if (reg_num
>= 23 && reg_num
<= 26)
3395 while (reg_num
>= 23 && reg_num
<= 26)
3398 status
= target_read_memory (pc
, buf
, 4);
3399 inst
= extract_unsigned_integer (buf
, 4);
3402 reg_num
= inst_saves_gr (inst
);
3408 reg_num
= inst_saves_fr (inst
);
3409 save_fr
&= ~(1 << reg_num
);
3411 status
= target_read_memory (pc
+ 4, buf
, 4);
3412 next_inst
= extract_unsigned_integer (buf
, 4);
3418 /* We've got to be read to handle the ldo before the fp register
3420 if ((inst
& 0xfc000000) == 0x34000000
3421 && inst_saves_fr (next_inst
) >= 4
3422 && inst_saves_fr (next_inst
) <= 7)
3424 /* So we drop into the code below in a reasonable state. */
3425 reg_num
= inst_saves_fr (next_inst
);
3429 /* Ugh. Also account for argument stores into the stack.
3430 This is a kludge as on the HP compiler sets this bit and it
3431 never does prologue scheduling. So once we see one, skip past
3433 if (reg_num
>= 4 && reg_num
<= 7)
3435 while (reg_num
>= 4 && reg_num
<= 7)
3438 status
= target_read_memory (pc
, buf
, 4);
3439 inst
= extract_unsigned_integer (buf
, 4);
3442 if ((inst
& 0xfc000000) != 0x34000000)
3444 status
= target_read_memory (pc
+ 4, buf
, 4);
3445 next_inst
= extract_unsigned_integer (buf
, 4);
3448 reg_num
= inst_saves_fr (next_inst
);
3454 /* Quit if we hit any kind of branch. This can happen if a prologue
3455 instruction is in the delay slot of the first call/branch. */
3456 if (is_branch (inst
))
3459 /* What a crock. The HP compilers set args_stored even if no
3460 arguments were stored into the stack (boo hiss). This could
3461 cause this code to then skip a bunch of user insns (up to the
3464 To combat this we try to identify when args_stored was bogusly
3465 set and clear it. We only do this when args_stored is nonzero,
3466 all other resources are accounted for, and nothing changed on
3469 && !(save_gr
|| save_fr
|| save_rp
|| save_sp
|| stack_remaining
> 0)
3470 && old_save_gr
== save_gr
&& old_save_fr
== save_fr
3471 && old_save_rp
== save_rp
&& old_save_sp
== save_sp
3472 && old_stack_remaining
== stack_remaining
)
3479 /* We've got a tenative location for the end of the prologue. However
3480 because of limitations in the unwind descriptor mechanism we may
3481 have went too far into user code looking for the save of a register
3482 that does not exist. So, if there registers we expected to be saved
3483 but never were, mask them out and restart.
3485 This should only happen in optimized code, and should be very rare. */
3486 if (save_gr
|| (save_fr
&& !(restart_fr
|| restart_gr
)))
3489 restart_gr
= save_gr
;
3490 restart_fr
= save_fr
;
3501 /* return 0 if we cannot determine the end of the prologue,
3502 return the new pc value if we know where the prologue ends */
3508 struct symtab_and_line sal
;
3509 CORE_ADDR func_addr
, func_end
;
3512 if (!find_pc_partial_function (pc
, NULL
, &func_addr
, &func_end
))
3513 return 0; /* Unknown */
3515 f
= find_pc_function (pc
);
3517 return 0; /* no debug info, do it the hard way! */
3519 sal
= find_pc_line (func_addr
, 0);
3521 if (sal
.end
< func_end
)
3523 /* this happens when the function has no prologue, because the way
3524 find_pc_line works: elz. Note: this may not be a very good
3525 way to decide whether a function has a prologue or not, but
3526 it is the best I can do with the info available
3527 Also, this will work for functions like: int f()
3531 I.e. the bp will be inserted at the first open brace.
3532 For functions where the body is only one line written like this:
3535 this will make the breakpoint to be at the last brace, after the body
3536 has been executed already. What's the point of stepping through a function
3537 without any variables anyway?? */
3539 if ((SYMBOL_LINE (f
) > 0) && (SYMBOL_LINE (f
) < sal
.line
))
3540 return pc
; /*no adjusment will be made */
3542 return sal
.end
; /* this is the end of the prologue */
3544 /* The line after the prologue is after the end of the function. In this
3545 case, put the end of the prologue is the beginning of the function. */
3546 /* This should happen only when the function is prologueless and has no
3547 code in it. For instance void dumb(){} Note: this kind of function
3548 is used quite a lot in the test system */
3551 return pc
; /* no adjustment will be made */
3554 /* To skip prologues, I use this predicate. Returns either PC itself
3555 if the code at PC does not look like a function prologue; otherwise
3556 returns an address that (if we're lucky) follows the prologue. If
3557 LENIENT, then we must skip everything which is involved in setting
3558 up the frame (it's OK to skip more, just so long as we don't skip
3559 anything which might clobber the registers which are being saved.
3560 Currently we must not skip more on the alpha, but we might the lenient
3564 hppa_skip_prologue (pc
)
3569 CORE_ADDR post_prologue_pc
;
3572 #ifdef GDB_TARGET_HAS_SHARED_LIBS
3573 /* Silently return the unaltered pc upon memory errors.
3574 This could happen on OSF/1 if decode_line_1 tries to skip the
3575 prologue for quickstarted shared library functions when the
3576 shared library is not yet mapped in.
3577 Reading target memory is slow over serial lines, so we perform
3578 this check only if the target has shared libraries. */
3579 if (target_read_memory (pc
, buf
, 4))
3583 /* See if we can determine the end of the prologue via the symbol table.
3584 If so, then return either PC, or the PC after the prologue, whichever
3587 post_prologue_pc
= after_prologue (pc
);
3589 if (post_prologue_pc
!= 0)
3590 return max (pc
, post_prologue_pc
);
3593 /* Can't determine prologue from the symbol table, (this can happen if there
3594 is no debug information) so we need to fall back on the old code, which
3595 looks at the instructions */
3596 /* FIXME (elz) !!!!: this may create a problem if, once the bp is hit, the user says
3597 where: the backtrace info is not right: this is because the point at which we
3598 break is at the very first instruction of the function. At this time the stuff that
3599 needs to be saved on the stack, has not been saved yet, so the backtrace
3600 cannot know all it needs to know. This will need to be fixed in the
3601 actual backtrace code. (Note: this is what DDE does) */
3604 return (skip_prologue_hard_way (pc
));
3607 /* elz: I am keeping this code around just in case, but remember, all the
3608 instructions are for alpha: you should change all to the hppa instructions */
3610 /* Can't determine prologue from the symbol table, need to examine
3613 /* Skip the typical prologue instructions. These are the stack adjustment
3614 instruction and the instructions that save registers on the stack
3615 or in the gcc frame. */
3616 for (offset
= 0; offset
< 100; offset
+= 4)
3620 status
= read_memory_nobpt (pc
+ offset
, buf
, 4);
3622 memory_error (status
, pc
+ offset
);
3623 inst
= extract_unsigned_integer (buf
, 4);
3625 /* The alpha has no delay slots. But let's keep the lenient stuff,
3626 we might need it for something else in the future. */
3630 if ((inst
& 0xffff0000) == 0x27bb0000) /* ldah $gp,n($t12) */
3632 if ((inst
& 0xffff0000) == 0x23bd0000) /* lda $gp,n($gp) */
3634 if ((inst
& 0xffff0000) == 0x23de0000) /* lda $sp,n($sp) */
3636 else if ((inst
& 0xfc1f0000) == 0xb41e0000
3637 && (inst
& 0xffff0000) != 0xb7fe0000)
3638 continue; /* stq reg,n($sp) */
3640 else if ((inst
& 0xfc1f0000) == 0x9c1e0000
3641 && (inst
& 0xffff0000) != 0x9ffe0000)
3642 continue; /* stt reg,n($sp) */
3644 else if (inst
== 0x47de040f) /* bis sp,sp,fp */
3653 /* Put here the code to store, into a struct frame_saved_regs,
3654 the addresses of the saved registers of frame described by FRAME_INFO.
3655 This includes special registers such as pc and fp saved in special
3656 ways in the stack frame. sp is even more special:
3657 the address we return for it IS the sp for the next frame. */
3660 hppa_frame_find_saved_regs (frame_info
, frame_saved_regs
)
3661 struct frame_info
*frame_info
;
3662 struct frame_saved_regs
*frame_saved_regs
;
3665 struct unwind_table_entry
*u
;
3666 unsigned long inst
, stack_remaining
, save_gr
, save_fr
, save_rp
, save_sp
;
3671 /* Zero out everything. */
3672 memset (frame_saved_regs
, '\0', sizeof (struct frame_saved_regs
));
3674 /* Call dummy frames always look the same, so there's no need to
3675 examine the dummy code to determine locations of saved registers;
3676 instead, let find_dummy_frame_regs fill in the correct offsets
3677 for the saved registers. */
3678 if ((frame_info
->pc
>= frame_info
->frame
3679 && frame_info
->pc
<= (frame_info
->frame
+ CALL_DUMMY_LENGTH
3680 + 32 * 4 + (NUM_REGS
- FP0_REGNUM
) * 8
3682 find_dummy_frame_regs (frame_info
, frame_saved_regs
);
3684 /* Interrupt handlers are special too. They lay out the register
3685 state in the exact same order as the register numbers in GDB. */
3686 if (pc_in_interrupt_handler (frame_info
->pc
))
3688 for (i
= 0; i
< NUM_REGS
; i
++)
3690 /* SP is a little special. */
3692 frame_saved_regs
->regs
[SP_REGNUM
]
3693 = read_memory_integer (frame_info
->frame
+ SP_REGNUM
* 4, 4);
3695 frame_saved_regs
->regs
[i
] = frame_info
->frame
+ i
* 4;
3700 #ifdef FRAME_FIND_SAVED_REGS_IN_SIGTRAMP
3701 /* Handle signal handler callers. */
3702 if (frame_info
->signal_handler_caller
)
3704 FRAME_FIND_SAVED_REGS_IN_SIGTRAMP (frame_info
, frame_saved_regs
);
3709 /* Get the starting address of the function referred to by the PC
3711 pc
= get_pc_function_start (frame_info
->pc
);
3714 u
= find_unwind_entry (pc
);
3718 /* This is how much of a frame adjustment we need to account for. */
3719 stack_remaining
= u
->Total_frame_size
<< 3;
3721 /* Magic register saves we want to know about. */
3722 save_rp
= u
->Save_RP
;
3723 save_sp
= u
->Save_SP
;
3725 /* Turn the Entry_GR field into a bitmask. */
3727 for (i
= 3; i
< u
->Entry_GR
+ 3; i
++)
3729 /* Frame pointer gets saved into a special location. */
3730 if (u
->Save_SP
&& i
== FP_REGNUM
)
3733 save_gr
|= (1 << i
);
3736 /* Turn the Entry_FR field into a bitmask too. */
3738 for (i
= 12; i
< u
->Entry_FR
+ 12; i
++)
3739 save_fr
|= (1 << i
);
3741 /* The frame always represents the value of %sp at entry to the
3742 current function (and is thus equivalent to the "saved" stack
3744 frame_saved_regs
->regs
[SP_REGNUM
] = frame_info
->frame
;
3746 /* Loop until we find everything of interest or hit a branch.
3748 For unoptimized GCC code and for any HP CC code this will never ever
3749 examine any user instructions.
3751 For optimzied GCC code we're faced with problems. GCC will schedule
3752 its prologue and make prologue instructions available for delay slot
3753 filling. The end result is user code gets mixed in with the prologue
3754 and a prologue instruction may be in the delay slot of the first branch
3757 Some unexpected things are expected with debugging optimized code, so
3758 we allow this routine to walk past user instructions in optimized
3760 while (save_gr
|| save_fr
|| save_rp
|| save_sp
|| stack_remaining
> 0)
3762 status
= target_read_memory (pc
, buf
, 4);
3763 inst
= extract_unsigned_integer (buf
, 4);
3769 /* Note the interesting effects of this instruction. */
3770 stack_remaining
-= prologue_inst_adjust_sp (inst
);
3772 /* There is only one instruction used for saving RP into the stack. */
3773 if (inst
== 0x6bc23fd9)
3776 frame_saved_regs
->regs
[RP_REGNUM
] = frame_info
->frame
- 20;
3779 /* Just note that we found the save of SP into the stack. The
3780 value for frame_saved_regs was computed above. */
3781 if ((inst
& 0xffffc000) == 0x6fc10000)
3784 /* Account for general and floating-point register saves. */
3785 reg
= inst_saves_gr (inst
);
3786 if (reg
>= 3 && reg
<= 18
3787 && (!u
->Save_SP
|| reg
!= FP_REGNUM
))
3789 save_gr
&= ~(1 << reg
);
3791 /* stwm with a positive displacement is a *post modify*. */
3792 if ((inst
>> 26) == 0x1b
3793 && extract_14 (inst
) >= 0)
3794 frame_saved_regs
->regs
[reg
] = frame_info
->frame
;
3797 /* Handle code with and without frame pointers. */
3799 frame_saved_regs
->regs
[reg
]
3800 = frame_info
->frame
+ extract_14 (inst
);
3802 frame_saved_regs
->regs
[reg
]
3803 = frame_info
->frame
+ (u
->Total_frame_size
<< 3)
3804 + extract_14 (inst
);
3809 /* GCC handles callee saved FP regs a little differently.
3811 It emits an instruction to put the value of the start of
3812 the FP store area into %r1. It then uses fstds,ma with
3813 a basereg of %r1 for the stores.
3815 HP CC emits them at the current stack pointer modifying
3816 the stack pointer as it stores each register. */
3818 /* ldo X(%r3),%r1 or ldo X(%r30),%r1. */
3819 if ((inst
& 0xffffc000) == 0x34610000
3820 || (inst
& 0xffffc000) == 0x37c10000)
3821 fp_loc
= extract_14 (inst
);
3823 reg
= inst_saves_fr (inst
);
3824 if (reg
>= 12 && reg
<= 21)
3826 /* Note +4 braindamage below is necessary because the FP status
3827 registers are internally 8 registers rather than the expected
3829 save_fr
&= ~(1 << reg
);
3832 /* 1st HP CC FP register store. After this instruction
3833 we've set enough state that the GCC and HPCC code are
3834 both handled in the same manner. */
3835 frame_saved_regs
->regs
[reg
+ FP4_REGNUM
+ 4] = frame_info
->frame
;
3840 frame_saved_regs
->regs
[reg
+ FP0_REGNUM
+ 4]
3841 = frame_info
->frame
+ fp_loc
;
3846 /* Quit if we hit any kind of branch. This can happen if a prologue
3847 instruction is in the delay slot of the first call/branch. */
3848 if (is_branch (inst
))
3857 /* Exception handling support for the HP-UX ANSI C++ compiler.
3858 The compiler (aCC) provides a callback for exception events;
3859 GDB can set a breakpoint on this callback and find out what
3860 exception event has occurred. */
3862 /* The name of the hook to be set to point to the callback function */
3863 static char HP_ACC_EH_notify_hook
[] = "__eh_notify_hook";
3864 /* The name of the function to be used to set the hook value */
3865 static char HP_ACC_EH_set_hook_value
[] = "__eh_set_hook_value";
3866 /* The name of the callback function in end.o */
3867 static char HP_ACC_EH_notify_callback
[] = "__d_eh_notify_callback";
3868 /* Name of function in end.o on which a break is set (called by above) */
3869 static char HP_ACC_EH_break
[] = "__d_eh_break";
3870 /* Name of flag (in end.o) that enables catching throws */
3871 static char HP_ACC_EH_catch_throw
[] = "__d_eh_catch_throw";
3872 /* Name of flag (in end.o) that enables catching catching */
3873 static char HP_ACC_EH_catch_catch
[] = "__d_eh_catch_catch";
3874 /* The enum used by aCC */
3882 /* Is exception-handling support available with this executable? */
3883 static int hp_cxx_exception_support
= 0;
3884 /* Has the initialize function been run? */
3885 int hp_cxx_exception_support_initialized
= 0;
3886 /* Similar to above, but imported from breakpoint.c -- non-target-specific */
3887 extern int exception_support_initialized
;
3888 /* Address of __eh_notify_hook */
3889 static CORE_ADDR eh_notify_hook_addr
= NULL
;
3890 /* Address of __d_eh_notify_callback */
3891 static CORE_ADDR eh_notify_callback_addr
= NULL
;
3892 /* Address of __d_eh_break */
3893 static CORE_ADDR eh_break_addr
= NULL
;
3894 /* Address of __d_eh_catch_catch */
3895 static CORE_ADDR eh_catch_catch_addr
= NULL
;
3896 /* Address of __d_eh_catch_throw */
3897 static CORE_ADDR eh_catch_throw_addr
= NULL
;
3898 /* Sal for __d_eh_break */
3899 static struct symtab_and_line
*break_callback_sal
= NULL
;
3901 /* Code in end.c expects __d_pid to be set in the inferior,
3902 otherwise __d_eh_notify_callback doesn't bother to call
3903 __d_eh_break! So we poke the pid into this symbol
3908 setup_d_pid_in_inferior ()
3911 struct minimal_symbol
*msymbol
;
3912 char buf
[4]; /* FIXME 32x64? */
3914 /* Slam the pid of the process into __d_pid; failing is only a warning! */
3915 msymbol
= lookup_minimal_symbol ("__d_pid", NULL
, symfile_objfile
);
3916 if (msymbol
== NULL
)
3918 warning ("Unable to find __d_pid symbol in object file.");
3919 warning ("Suggest linking executable with -g (links in /opt/langtools/lib/end.o).");
3923 anaddr
= SYMBOL_VALUE_ADDRESS (msymbol
);
3924 store_unsigned_integer (buf
, 4, inferior_pid
); /* FIXME 32x64? */
3925 if (target_write_memory (anaddr
, buf
, 4)) /* FIXME 32x64? */
3927 warning ("Unable to write __d_pid");
3928 warning ("Suggest linking executable with -g (links in /opt/langtools/lib/end.o).");
3934 /* Initialize exception catchpoint support by looking for the
3935 necessary hooks/callbacks in end.o, etc., and set the hook value to
3936 point to the required debug function
3942 initialize_hp_cxx_exception_support ()
3944 struct symtabs_and_lines sals
;
3945 struct cleanup
*old_chain
;
3946 struct cleanup
*canonical_strings_chain
= NULL
;
3949 char *addr_end
= NULL
;
3950 char **canonical
= (char **) NULL
;
3952 struct symbol
*sym
= NULL
;
3953 struct minimal_symbol
*msym
= NULL
;
3954 struct objfile
*objfile
;
3955 asection
*shlib_info
;
3957 /* Detect and disallow recursion. On HP-UX with aCC, infinite
3958 recursion is a possibility because finding the hook for exception
3959 callbacks involves making a call in the inferior, which means
3960 re-inserting breakpoints which can re-invoke this code */
3962 static int recurse
= 0;
3965 hp_cxx_exception_support_initialized
= 0;
3966 exception_support_initialized
= 0;
3970 hp_cxx_exception_support
= 0;
3972 /* First check if we have seen any HP compiled objects; if not,
3973 it is very unlikely that HP's idiosyncratic callback mechanism
3974 for exception handling debug support will be available!
3975 This will percolate back up to breakpoint.c, where our callers
3976 will decide to try the g++ exception-handling support instead. */
3977 if (!hp_som_som_object_present
)
3980 /* We have a SOM executable with SOM debug info; find the hooks */
3982 /* First look for the notify hook provided by aCC runtime libs */
3983 /* If we find this symbol, we conclude that the executable must
3984 have HP aCC exception support built in. If this symbol is not
3985 found, even though we're a HP SOM-SOM file, we may have been
3986 built with some other compiler (not aCC). This results percolates
3987 back up to our callers in breakpoint.c which can decide to
3988 try the g++ style of exception support instead.
3989 If this symbol is found but the other symbols we require are
3990 not found, there is something weird going on, and g++ support
3991 should *not* be tried as an alternative.
3993 ASSUMPTION: Only HP aCC code will have __eh_notify_hook defined.
3994 ASSUMPTION: HP aCC and g++ modules cannot be linked together. */
3996 /* libCsup has this hook; it'll usually be non-debuggable */
3997 msym
= lookup_minimal_symbol (HP_ACC_EH_notify_hook
, NULL
, NULL
);
4000 eh_notify_hook_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4001 hp_cxx_exception_support
= 1;
4005 warning ("Unable to find exception callback hook (%s).", HP_ACC_EH_notify_hook
);
4006 warning ("Executable may not have been compiled debuggable with HP aCC.");
4007 warning ("GDB will be unable to intercept exception events.");
4008 eh_notify_hook_addr
= 0;
4009 hp_cxx_exception_support
= 0;
4013 /* Next look for the notify callback routine in end.o */
4014 /* This is always available in the SOM symbol dictionary if end.o is linked in */
4015 msym
= lookup_minimal_symbol (HP_ACC_EH_notify_callback
, NULL
, NULL
);
4018 eh_notify_callback_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4019 hp_cxx_exception_support
= 1;
4023 warning ("Unable to find exception callback routine (%s).", HP_ACC_EH_notify_callback
);
4024 warning ("Suggest linking executable with -g (links in /opt/langtools/lib/end.o).");
4025 warning ("GDB will be unable to intercept exception events.");
4026 eh_notify_callback_addr
= 0;
4030 /* Check whether the executable is dynamically linked or archive bound */
4031 /* With an archive-bound executable we can use the raw addresses we find
4032 for the callback function, etc. without modification. For an executable
4033 with shared libraries, we have to do more work to find the plabel, which
4034 can be the target of a call through $$dyncall from the aCC runtime support
4035 library (libCsup) which is linked shared by default by aCC. */
4036 /* This test below was copied from somsolib.c/somread.c. It may not be a very
4037 reliable one to test that an executable is linked shared. pai/1997-07-18 */
4038 shlib_info
= bfd_get_section_by_name (symfile_objfile
->obfd
, "$SHLIB_INFO$");
4039 if (shlib_info
&& (bfd_section_size (symfile_objfile
->obfd
, shlib_info
) != 0))
4041 /* The minsym we have has the local code address, but that's not the
4042 plabel that can be used by an inter-load-module call. */
4043 /* Find solib handle for main image (which has end.o), and use that
4044 and the min sym as arguments to __d_shl_get() (which does the equivalent
4045 of shl_findsym()) to find the plabel. */
4047 args_for_find_stub args
;
4048 static char message
[] = "Error while finding exception callback hook:\n";
4050 args
.solib_handle
= som_solib_get_solib_by_pc (eh_notify_callback_addr
);
4054 eh_notify_callback_addr
= catch_errors ((int (*)PARAMS ((char *))) cover_find_stub_with_shl_get
,
4056 message
, RETURN_MASK_ALL
);
4059 exception_catchpoints_are_fragile
= 1;
4061 if (!eh_notify_callback_addr
)
4063 /* We can get here either if there is no plabel in the export list
4064 for the main image, or if something strange happened (??) */
4065 warning ("Couldn't find a plabel (indirect function label) for the exception callback.");
4066 warning ("GDB will not be able to intercept exception events.");
4071 exception_catchpoints_are_fragile
= 0;
4073 /* Now, look for the breakpointable routine in end.o */
4074 /* This should also be available in the SOM symbol dict. if end.o linked in */
4075 msym
= lookup_minimal_symbol (HP_ACC_EH_break
, NULL
, NULL
);
4078 eh_break_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4079 hp_cxx_exception_support
= 1;
4083 warning ("Unable to find exception callback routine to set breakpoint (%s).", HP_ACC_EH_break
);
4084 warning ("Suggest linking executable with -g (link in /opt/langtools/lib/end.o).");
4085 warning ("GDB will be unable to intercept exception events.");
4090 /* Next look for the catch enable flag provided in end.o */
4091 sym
= lookup_symbol (HP_ACC_EH_catch_catch
, (struct block
*) NULL
,
4092 VAR_NAMESPACE
, 0, (struct symtab
**) NULL
);
4093 if (sym
) /* sometimes present in debug info */
4095 eh_catch_catch_addr
= SYMBOL_VALUE_ADDRESS (sym
);
4096 hp_cxx_exception_support
= 1;
4099 /* otherwise look in SOM symbol dict. */
4101 msym
= lookup_minimal_symbol (HP_ACC_EH_catch_catch
, NULL
, NULL
);
4104 eh_catch_catch_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4105 hp_cxx_exception_support
= 1;
4109 warning ("Unable to enable interception of exception catches.");
4110 warning ("Executable may not have been compiled debuggable with HP aCC.");
4111 warning ("Suggest linking executable with -g (link in /opt/langtools/lib/end.o).");
4116 /* Next look for the catch enable flag provided end.o */
4117 sym
= lookup_symbol (HP_ACC_EH_catch_catch
, (struct block
*) NULL
,
4118 VAR_NAMESPACE
, 0, (struct symtab
**) NULL
);
4119 if (sym
) /* sometimes present in debug info */
4121 eh_catch_throw_addr
= SYMBOL_VALUE_ADDRESS (sym
);
4122 hp_cxx_exception_support
= 1;
4125 /* otherwise look in SOM symbol dict. */
4127 msym
= lookup_minimal_symbol (HP_ACC_EH_catch_throw
, NULL
, NULL
);
4130 eh_catch_throw_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4131 hp_cxx_exception_support
= 1;
4135 warning ("Unable to enable interception of exception throws.");
4136 warning ("Executable may not have been compiled debuggable with HP aCC.");
4137 warning ("Suggest linking executable with -g (link in /opt/langtools/lib/end.o).");
4143 hp_cxx_exception_support
= 2; /* everything worked so far */
4144 hp_cxx_exception_support_initialized
= 1;
4145 exception_support_initialized
= 1;
4150 /* Target operation for enabling or disabling interception of
4152 KIND is either EX_EVENT_THROW or EX_EVENT_CATCH
4153 ENABLE is either 0 (disable) or 1 (enable).
4154 Return value is NULL if no support found;
4155 -1 if something went wrong,
4156 or a pointer to a symtab/line struct if the breakpointable
4157 address was found. */
4159 struct symtab_and_line
*
4160 child_enable_exception_callback (kind
, enable
)
4161 enum exception_event_kind kind
;
4166 if (!exception_support_initialized
|| !hp_cxx_exception_support_initialized
)
4167 if (!initialize_hp_cxx_exception_support ())
4170 switch (hp_cxx_exception_support
)
4173 /* Assuming no HP support at all */
4176 /* HP support should be present, but something went wrong */
4177 return (struct symtab_and_line
*) -1; /* yuck! */
4178 /* there may be other cases in the future */
4181 /* Set the EH hook to point to the callback routine */
4182 store_unsigned_integer (buf
, 4, enable
? eh_notify_callback_addr
: 0); /* FIXME 32x64 problem */
4183 /* pai: (temp) FIXME should there be a pack operation first? */
4184 if (target_write_memory (eh_notify_hook_addr
, buf
, 4)) /* FIXME 32x64 problem */
4186 warning ("Could not write to target memory for exception event callback.");
4187 warning ("Interception of exception events may not work.");
4188 return (struct symtab_and_line
*) -1;
4192 /* Ensure that __d_pid is set up correctly -- end.c code checks this. :-( */
4193 if (inferior_pid
> 0)
4195 if (setup_d_pid_in_inferior ())
4196 return (struct symtab_and_line
*) -1;
4200 warning ("Internal error: Invalid inferior pid? Cannot intercept exception events."); /* purecov: deadcode */
4201 return (struct symtab_and_line
*) -1; /* purecov: deadcode */
4207 case EX_EVENT_THROW
:
4208 store_unsigned_integer (buf
, 4, enable
? 1 : 0);
4209 if (target_write_memory (eh_catch_throw_addr
, buf
, 4)) /* FIXME 32x64? */
4211 warning ("Couldn't enable exception throw interception.");
4212 return (struct symtab_and_line
*) -1;
4215 case EX_EVENT_CATCH
:
4216 store_unsigned_integer (buf
, 4, enable
? 1 : 0);
4217 if (target_write_memory (eh_catch_catch_addr
, buf
, 4)) /* FIXME 32x64? */
4219 warning ("Couldn't enable exception catch interception.");
4220 return (struct symtab_and_line
*) -1;
4223 default: /* purecov: deadcode */
4224 error ("Request to enable unknown or unsupported exception event."); /* purecov: deadcode */
4227 /* Copy break address into new sal struct, malloc'ing if needed. */
4228 if (!break_callback_sal
)
4230 break_callback_sal
= (struct symtab_and_line
*) xmalloc (sizeof (struct symtab_and_line
));
4232 INIT_SAL (break_callback_sal
);
4233 break_callback_sal
->symtab
= NULL
;
4234 break_callback_sal
->pc
= eh_break_addr
;
4235 break_callback_sal
->line
= 0;
4236 break_callback_sal
->end
= eh_break_addr
;
4238 return break_callback_sal
;
4241 /* Record some information about the current exception event */
4242 static struct exception_event_record current_ex_event
;
4243 /* Convenience struct */
4244 static struct symtab_and_line null_symtab_and_line
=
4247 /* Report current exception event. Returns a pointer to a record
4248 that describes the kind of the event, where it was thrown from,
4249 and where it will be caught. More information may be reported
4251 struct exception_event_record
*
4252 child_get_current_exception_event ()
4254 CORE_ADDR event_kind
;
4255 CORE_ADDR throw_addr
;
4256 CORE_ADDR catch_addr
;
4257 struct frame_info
*fi
, *curr_frame
;
4260 curr_frame
= get_current_frame ();
4262 return (struct exception_event_record
*) NULL
;
4264 /* Go up one frame to __d_eh_notify_callback, because at the
4265 point when this code is executed, there's garbage in the
4266 arguments of __d_eh_break. */
4267 fi
= find_relative_frame (curr_frame
, &level
);
4269 return (struct exception_event_record
*) NULL
;
4271 select_frame (fi
, -1);
4273 /* Read in the arguments */
4274 /* __d_eh_notify_callback() is called with 3 arguments:
4275 1. event kind catch or throw
4276 2. the target address if known
4277 3. a flag -- not sure what this is. pai/1997-07-17 */
4278 event_kind
= read_register (ARG0_REGNUM
);
4279 catch_addr
= read_register (ARG1_REGNUM
);
4281 /* Now go down to a user frame */
4282 /* For a throw, __d_eh_break is called by
4283 __d_eh_notify_callback which is called by
4284 __notify_throw which is called
4286 For a catch, __d_eh_break is called by
4287 __d_eh_notify_callback which is called by
4288 <stackwalking stuff> which is called by
4289 __throw__<stuff> or __rethrow_<stuff> which is called
4291 /* FIXME: Don't use such magic numbers; search for the frames */
4292 level
= (event_kind
== EX_EVENT_THROW
) ? 3 : 4;
4293 fi
= find_relative_frame (curr_frame
, &level
);
4295 return (struct exception_event_record
*) NULL
;
4297 select_frame (fi
, -1);
4298 throw_addr
= fi
->pc
;
4300 /* Go back to original (top) frame */
4301 select_frame (curr_frame
, -1);
4303 current_ex_event
.kind
= (enum exception_event_kind
) event_kind
;
4304 current_ex_event
.throw_sal
= find_pc_line (throw_addr
, 1);
4305 current_ex_event
.catch_sal
= find_pc_line (catch_addr
, 1);
4307 return ¤t_ex_event
;
4311 unwind_command (exp
, from_tty
)
4316 struct unwind_table_entry
*u
;
4318 /* If we have an expression, evaluate it and use it as the address. */
4320 if (exp
!= 0 && *exp
!= 0)
4321 address
= parse_and_eval_address (exp
);
4325 u
= find_unwind_entry (address
);
4329 printf_unfiltered ("Can't find unwind table entry for %s\n", exp
);
4333 printf_unfiltered ("unwind_table_entry (0x%x):\n", u
);
4335 printf_unfiltered ("\tregion_start = ");
4336 print_address (u
->region_start
, gdb_stdout
);
4338 printf_unfiltered ("\n\tregion_end = ");
4339 print_address (u
->region_end
, gdb_stdout
);
4342 #define pif(FLD) if (u->FLD) printf_unfiltered (" "#FLD);
4344 #define pif(FLD) if (u->FLD) printf_unfiltered (" FLD");
4347 printf_unfiltered ("\n\tflags =");
4348 pif (Cannot_unwind
);
4350 pif (Millicode_save_sr0
);
4353 pif (Variable_Frame
);
4354 pif (Separate_Package_Body
);
4355 pif (Frame_Extension_Millicode
);
4356 pif (Stack_Overflow_Check
);
4357 pif (Two_Instruction_SP_Increment
);
4361 pif (Save_MRP_in_frame
);
4362 pif (extn_ptr_defined
);
4363 pif (Cleanup_defined
);
4364 pif (MPE_XL_interrupt_marker
);
4365 pif (HP_UX_interrupt_marker
);
4368 putchar_unfiltered ('\n');
4371 #define pin(FLD) printf_unfiltered ("\t"#FLD" = 0x%x\n", u->FLD);
4373 #define pin(FLD) printf_unfiltered ("\tFLD = 0x%x\n", u->FLD);
4376 pin (Region_description
);
4379 pin (Total_frame_size
);
4382 #ifdef PREPARE_TO_PROCEED
4384 /* If the user has switched threads, and there is a breakpoint
4385 at the old thread's pc location, then switch to that thread
4386 and return TRUE, else return FALSE and don't do a thread
4387 switch (or rather, don't seem to have done a thread switch).
4389 Ptrace-based gdb will always return FALSE to the thread-switch
4390 query, and thus also to PREPARE_TO_PROCEED.
4392 The important thing is whether there is a BPT instruction,
4393 not how many user breakpoints there are. So we have to worry
4394 about things like these:
4398 o User hits bp, no switch -- NO
4400 o User hits bp, switches threads -- YES
4402 o User hits bp, deletes bp, switches threads -- NO
4404 o User hits bp, deletes one of two or more bps
4405 at that PC, user switches threads -- YES
4407 o Plus, since we're buffering events, the user may have hit a
4408 breakpoint, deleted the breakpoint and then gotten another
4409 hit on that same breakpoint on another thread which
4410 actually hit before the delete. (FIXME in breakpoint.c
4411 so that "dead" breakpoints are ignored?) -- NO
4413 For these reasons, we have to violate information hiding and
4414 call "breakpoint_here_p". If core gdb thinks there is a bpt
4415 here, that's what counts, as core gdb is the one which is
4416 putting the BPT instruction in and taking it out. */
4418 hppa_prepare_to_proceed ()
4421 pid_t current_thread
;
4423 old_thread
= hppa_switched_threads (inferior_pid
);
4424 if (old_thread
!= 0)
4426 /* Switched over from "old_thread". Try to do
4427 as little work as possible, 'cause mostly
4428 we're going to switch back. */
4430 CORE_ADDR old_pc
= read_pc ();
4432 /* Yuk, shouldn't use global to specify current
4433 thread. But that's how gdb does it. */
4434 current_thread
= inferior_pid
;
4435 inferior_pid
= old_thread
;
4437 new_pc
= read_pc ();
4438 if (new_pc
!= old_pc
/* If at same pc, no need */
4439 && breakpoint_here_p (new_pc
))
4441 /* User hasn't deleted the BP.
4442 Return TRUE, finishing switch to "old_thread". */
4443 flush_cached_frames ();
4444 registers_changed ();
4446 printf ("---> PREPARE_TO_PROCEED (was %d, now %d)!\n",
4447 current_thread
, inferior_pid
);
4453 /* Otherwise switch back to the user-chosen thread. */
4454 inferior_pid
= current_thread
;
4455 new_pc
= read_pc (); /* Re-prime register cache */
4460 #endif /* PREPARE_TO_PROCEED */
4463 _initialize_hppa_tdep ()
4465 tm_print_insn
= print_insn_hppa
;
4467 add_cmd ("unwind", class_maintenance
, unwind_command
,
4468 "Print unwind table entry at given address.",
4469 &maintenanceprintlist
);