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, Boston, MA 02111-1307, USA. */
30 /* For argument passing to the inferior */
34 #include <sys/types.h>
38 #include <sys/param.h>
41 #include <sys/ptrace.h>
42 #include <machine/save_state.h>
44 #ifdef COFF_ENCAPSULATE
45 #include "a.out.encap.h"
49 /*#include <sys/user.h> After a.out.h */
60 /* To support asking "What CPU is this?" */
63 /* To support detection of the pseudo-initial frame
65 #define THREAD_INITIAL_FRAME_SYMBOL "__pthread_exit"
66 #define THREAD_INITIAL_FRAME_SYM_LEN sizeof(THREAD_INITIAL_FRAME_SYMBOL)
68 static int extract_5_load
PARAMS ((unsigned int));
70 static unsigned extract_5R_store
PARAMS ((unsigned int));
72 static unsigned extract_5r_store
PARAMS ((unsigned int));
74 static void find_dummy_frame_regs
PARAMS ((struct frame_info
*,
75 struct frame_saved_regs
*));
77 static int find_proc_framesize
PARAMS ((CORE_ADDR
));
79 static int find_return_regnum
PARAMS ((CORE_ADDR
));
81 struct unwind_table_entry
*find_unwind_entry
PARAMS ((CORE_ADDR
));
83 static int extract_17
PARAMS ((unsigned int));
85 static unsigned deposit_21
PARAMS ((unsigned int, unsigned int));
87 static int extract_21
PARAMS ((unsigned));
89 static unsigned deposit_14
PARAMS ((int, unsigned int));
91 static int extract_14
PARAMS ((unsigned));
93 static void unwind_command
PARAMS ((char *, int));
95 static int low_sign_extend
PARAMS ((unsigned int, unsigned int));
97 static int sign_extend
PARAMS ((unsigned int, unsigned int));
99 static int restore_pc_queue
PARAMS ((struct frame_saved_regs
*));
101 static int hppa_alignof
PARAMS ((struct type
*));
103 /* To support multi-threading and stepping. */
104 int hppa_prepare_to_proceed
PARAMS (());
106 static int prologue_inst_adjust_sp
PARAMS ((unsigned long));
108 static int is_branch
PARAMS ((unsigned long));
110 static int inst_saves_gr
PARAMS ((unsigned long));
112 static int inst_saves_fr
PARAMS ((unsigned long));
114 static int pc_in_interrupt_handler
PARAMS ((CORE_ADDR
));
116 static int pc_in_linker_stub
PARAMS ((CORE_ADDR
));
118 static int compare_unwind_entries
PARAMS ((const void *, const void *));
120 static void read_unwind_info
PARAMS ((struct objfile
*));
122 static void internalize_unwinds
PARAMS ((struct objfile
*,
123 struct unwind_table_entry
*,
124 asection
*, unsigned int,
125 unsigned int, CORE_ADDR
));
126 static void pa_print_registers
PARAMS ((char *, int, int));
127 static void pa_strcat_registers
PARAMS ((char *, int, int, GDB_FILE
*));
128 static void pa_register_look_aside
PARAMS ((char *, int, long *));
129 static void pa_print_fp_reg
PARAMS ((int));
130 static void pa_strcat_fp_reg
PARAMS ((int, GDB_FILE
*, enum precision_type
));
133 struct minimal_symbol
* msym
;
134 CORE_ADDR solib_handle
;
135 } args_for_find_stub
;
137 static CORE_ADDR cover_find_stub_with_shl_get
PARAMS ((args_for_find_stub
*));
139 static int is_pa_2
= 0; /* False */
141 /* This is declared in symtab.c; set to 1 in hp-symtab-read.c */
142 extern int hp_som_som_object_present
;
144 /* In breakpoint.c */
145 extern int exception_catchpoints_are_fragile
;
147 /* This is defined in valops.c. */
149 find_function_in_inferior
PARAMS((char *));
151 /* Should call_function allocate stack space for a struct return? */
153 hppa_use_struct_convention (gcc_p
, type
)
157 return (TYPE_LENGTH (type
) > 8);
161 /* Routines to extract various sized constants out of hppa
164 /* This assumes that no garbage lies outside of the lower bits of
168 sign_extend (val
, bits
)
171 return (int)(val
>> (bits
- 1) ? (-1 << bits
) | val
: val
);
174 /* For many immediate values the sign bit is the low bit! */
177 low_sign_extend (val
, bits
)
180 return (int)((val
& 0x1 ? (-1 << (bits
- 1)) : 0) | val
>> 1);
183 /* extract the immediate field from a ld{bhw}s instruction */
188 get_field (val
, from
, to
)
189 unsigned val
, from
, to
;
191 val
= val
>> 31 - to
;
192 return val
& ((1 << 32 - from
) - 1);
196 set_field (val
, from
, to
, new_val
)
197 unsigned *val
, from
, to
;
199 unsigned mask
= ~((1 << (to
- from
+ 1)) << (31 - from
));
200 return *val
= *val
& mask
| (new_val
<< (31 - from
));
203 /* extract a 3-bit space register number from a be, ble, mtsp or mfsp */
209 return GET_FIELD (word
, 18, 18) << 2 | GET_FIELD (word
, 16, 17);
215 extract_5_load (word
)
218 return low_sign_extend (word
>> 16 & MASK_5
, 5);
223 /* extract the immediate field from a st{bhw}s instruction */
226 extract_5_store (word
)
229 return low_sign_extend (word
& MASK_5
, 5);
234 /* extract the immediate field from a break instruction */
237 extract_5r_store (word
)
240 return (word
& MASK_5
);
243 /* extract the immediate field from a {sr}sm instruction */
246 extract_5R_store (word
)
249 return (word
>> 16 & MASK_5
);
252 /* extract an 11 bit immediate field */
260 return low_sign_extend (word
& MASK_11
, 11);
265 /* extract a 14 bit immediate field */
271 return low_sign_extend (word
& MASK_14
, 14);
274 /* deposit a 14 bit constant in a word */
277 deposit_14 (opnd
, word
)
281 unsigned sign
= (opnd
< 0 ? 1 : 0);
283 return word
| ((unsigned)opnd
<< 1 & MASK_14
) | sign
;
286 /* extract a 21 bit constant */
296 val
= GET_FIELD (word
, 20, 20);
298 val
|= GET_FIELD (word
, 9, 19);
300 val
|= GET_FIELD (word
, 5, 6);
302 val
|= GET_FIELD (word
, 0, 4);
304 val
|= GET_FIELD (word
, 7, 8);
305 return sign_extend (val
, 21) << 11;
308 /* deposit a 21 bit constant in a word. Although 21 bit constants are
309 usually the top 21 bits of a 32 bit constant, we assume that only
310 the low 21 bits of opnd are relevant */
313 deposit_21 (opnd
, word
)
318 val
|= GET_FIELD (opnd
, 11 + 14, 11 + 18);
320 val
|= GET_FIELD (opnd
, 11 + 12, 11 + 13);
322 val
|= GET_FIELD (opnd
, 11 + 19, 11 + 20);
324 val
|= GET_FIELD (opnd
, 11 + 1, 11 + 11);
326 val
|= GET_FIELD (opnd
, 11 + 0, 11 + 0);
330 /* extract a 12 bit constant from branch instructions */
338 return sign_extend (GET_FIELD (word
, 19, 28) |
339 GET_FIELD (word
, 29, 29) << 10 |
340 (word
& 0x1) << 11, 12) << 2;
343 /* Deposit a 17 bit constant in an instruction (like bl). */
346 deposit_17 (opnd
, word
)
349 word
|= GET_FIELD (opnd
, 15 + 0, 15 + 0); /* w */
350 word
|= GET_FIELD (opnd
, 15 + 1, 15 + 5) << 16; /* w1 */
351 word
|= GET_FIELD (opnd
, 15 + 6, 15 + 6) << 2; /* w2[10] */
352 word
|= GET_FIELD (opnd
, 15 + 7, 15 + 16) << 3; /* w2[0..9] */
359 /* extract a 17 bit constant from branch instructions, returning the
360 19 bit signed value. */
366 return sign_extend (GET_FIELD (word
, 19, 28) |
367 GET_FIELD (word
, 29, 29) << 10 |
368 GET_FIELD (word
, 11, 15) << 11 |
369 (word
& 0x1) << 16, 17) << 2;
373 /* Compare the start address for two unwind entries returning 1 if
374 the first address is larger than the second, -1 if the second is
375 larger than the first, and zero if they are equal. */
378 compare_unwind_entries (arg1
, arg2
)
382 const struct unwind_table_entry
*a
= arg1
;
383 const struct unwind_table_entry
*b
= arg2
;
385 if (a
->region_start
> b
->region_start
)
387 else if (a
->region_start
< b
->region_start
)
394 internalize_unwinds (objfile
, table
, section
, entries
, size
, text_offset
)
395 struct objfile
*objfile
;
396 struct unwind_table_entry
*table
;
398 unsigned int entries
, size
;
399 CORE_ADDR text_offset
;
401 /* We will read the unwind entries into temporary memory, then
402 fill in the actual unwind table. */
407 char *buf
= alloca (size
);
409 bfd_get_section_contents (objfile
->obfd
, section
, buf
, 0, size
);
411 /* Now internalize the information being careful to handle host/target
413 for (i
= 0; i
< entries
; i
++)
415 table
[i
].region_start
= bfd_get_32 (objfile
->obfd
,
417 table
[i
].region_start
+= text_offset
;
419 table
[i
].region_end
= bfd_get_32 (objfile
->obfd
, (bfd_byte
*)buf
);
420 table
[i
].region_end
+= text_offset
;
422 tmp
= bfd_get_32 (objfile
->obfd
, (bfd_byte
*)buf
);
424 table
[i
].Cannot_unwind
= (tmp
>> 31) & 0x1;
425 table
[i
].Millicode
= (tmp
>> 30) & 0x1;
426 table
[i
].Millicode_save_sr0
= (tmp
>> 29) & 0x1;
427 table
[i
].Region_description
= (tmp
>> 27) & 0x3;
428 table
[i
].reserved1
= (tmp
>> 26) & 0x1;
429 table
[i
].Entry_SR
= (tmp
>> 25) & 0x1;
430 table
[i
].Entry_FR
= (tmp
>> 21) & 0xf;
431 table
[i
].Entry_GR
= (tmp
>> 16) & 0x1f;
432 table
[i
].Args_stored
= (tmp
>> 15) & 0x1;
433 table
[i
].Variable_Frame
= (tmp
>> 14) & 0x1;
434 table
[i
].Separate_Package_Body
= (tmp
>> 13) & 0x1;
435 table
[i
].Frame_Extension_Millicode
= (tmp
>> 12) & 0x1;
436 table
[i
].Stack_Overflow_Check
= (tmp
>> 11) & 0x1;
437 table
[i
].Two_Instruction_SP_Increment
= (tmp
>> 10) & 0x1;
438 table
[i
].Ada_Region
= (tmp
>> 9) & 0x1;
439 table
[i
].cxx_info
= (tmp
>> 8) & 0x1;
440 table
[i
].cxx_try_catch
= (tmp
>> 7) & 0x1;
441 table
[i
].sched_entry_seq
= (tmp
>> 6) & 0x1;
442 table
[i
].reserved2
= (tmp
>> 5) & 0x1;
443 table
[i
].Save_SP
= (tmp
>> 4) & 0x1;
444 table
[i
].Save_RP
= (tmp
>> 3) & 0x1;
445 table
[i
].Save_MRP_in_frame
= (tmp
>> 2) & 0x1;
446 table
[i
].extn_ptr_defined
= (tmp
>> 1) & 0x1;
447 table
[i
].Cleanup_defined
= tmp
& 0x1;
448 tmp
= bfd_get_32 (objfile
->obfd
, (bfd_byte
*)buf
);
450 table
[i
].MPE_XL_interrupt_marker
= (tmp
>> 31) & 0x1;
451 table
[i
].HP_UX_interrupt_marker
= (tmp
>> 30) & 0x1;
452 table
[i
].Large_frame
= (tmp
>> 29) & 0x1;
453 table
[i
].Pseudo_SP_Set
= (tmp
>> 28) & 0x1;
454 table
[i
].reserved4
= (tmp
>> 27) & 0x1;
455 table
[i
].Total_frame_size
= tmp
& 0x7ffffff;
457 /* Stub unwinds are handled elsewhere. */
458 table
[i
].stub_unwind
.stub_type
= 0;
459 table
[i
].stub_unwind
.padding
= 0;
464 /* Read in the backtrace information stored in the `$UNWIND_START$' section of
465 the object file. This info is used mainly by find_unwind_entry() to find
466 out the stack frame size and frame pointer used by procedures. We put
467 everything on the psymbol obstack in the objfile so that it automatically
468 gets freed when the objfile is destroyed. */
471 read_unwind_info (objfile
)
472 struct objfile
*objfile
;
474 asection
*unwind_sec
, *elf_unwind_sec
, *stub_unwind_sec
;
475 unsigned unwind_size
, elf_unwind_size
, stub_unwind_size
, total_size
;
476 unsigned index
, unwind_entries
, elf_unwind_entries
;
477 unsigned stub_entries
, total_entries
;
478 CORE_ADDR text_offset
;
479 struct obj_unwind_info
*ui
;
480 obj_private_data_t
*obj_private
;
482 text_offset
= ANOFFSET (objfile
->section_offsets
, 0);
483 ui
= (struct obj_unwind_info
*)obstack_alloc (&objfile
->psymbol_obstack
,
484 sizeof (struct obj_unwind_info
));
490 /* Get hooks to all unwind sections. Note there is no linker-stub unwind
491 section in ELF at the moment. */
492 unwind_sec
= bfd_get_section_by_name (objfile
->obfd
, "$UNWIND_START$");
493 elf_unwind_sec
= bfd_get_section_by_name (objfile
->obfd
, ".PARISC.unwind");
494 stub_unwind_sec
= bfd_get_section_by_name (objfile
->obfd
, "$UNWIND_END$");
496 /* Get sizes and unwind counts for all sections. */
499 unwind_size
= bfd_section_size (objfile
->obfd
, unwind_sec
);
500 unwind_entries
= unwind_size
/ UNWIND_ENTRY_SIZE
;
510 elf_unwind_size
= bfd_section_size (objfile
->obfd
, elf_unwind_sec
); /* purecov: deadcode */
511 elf_unwind_entries
= elf_unwind_size
/ UNWIND_ENTRY_SIZE
; /* purecov: deadcode */
516 elf_unwind_entries
= 0;
521 stub_unwind_size
= bfd_section_size (objfile
->obfd
, stub_unwind_sec
);
522 stub_entries
= stub_unwind_size
/ STUB_UNWIND_ENTRY_SIZE
;
526 stub_unwind_size
= 0;
530 /* Compute total number of unwind entries and their total size. */
531 total_entries
= unwind_entries
+ elf_unwind_entries
+ stub_entries
;
532 total_size
= total_entries
* sizeof (struct unwind_table_entry
);
534 /* Allocate memory for the unwind table. */
535 ui
->table
= (struct unwind_table_entry
*)
536 obstack_alloc (&objfile
->psymbol_obstack
, total_size
);
537 ui
->last
= total_entries
- 1;
539 /* Internalize the standard unwind entries. */
541 internalize_unwinds (objfile
, &ui
->table
[index
], unwind_sec
,
542 unwind_entries
, unwind_size
, text_offset
);
543 index
+= unwind_entries
;
544 internalize_unwinds (objfile
, &ui
->table
[index
], elf_unwind_sec
,
545 elf_unwind_entries
, elf_unwind_size
, text_offset
);
546 index
+= elf_unwind_entries
;
548 /* Now internalize the stub unwind entries. */
549 if (stub_unwind_size
> 0)
552 char *buf
= alloca (stub_unwind_size
);
554 /* Read in the stub unwind entries. */
555 bfd_get_section_contents (objfile
->obfd
, stub_unwind_sec
, buf
,
556 0, stub_unwind_size
);
558 /* Now convert them into regular unwind entries. */
559 for (i
= 0; i
< stub_entries
; i
++, index
++)
561 /* Clear out the next unwind entry. */
562 memset (&ui
->table
[index
], 0, sizeof (struct unwind_table_entry
));
564 /* Convert offset & size into region_start and region_end.
565 Stuff away the stub type into "reserved" fields. */
566 ui
->table
[index
].region_start
= bfd_get_32 (objfile
->obfd
,
568 ui
->table
[index
].region_start
+= text_offset
;
570 ui
->table
[index
].stub_unwind
.stub_type
= bfd_get_8 (objfile
->obfd
,
573 ui
->table
[index
].region_end
574 = ui
->table
[index
].region_start
+ 4 *
575 (bfd_get_16 (objfile
->obfd
, (bfd_byte
*) buf
) - 1);
581 /* Unwind table needs to be kept sorted. */
582 qsort (ui
->table
, total_entries
, sizeof (struct unwind_table_entry
),
583 compare_unwind_entries
);
585 /* Keep a pointer to the unwind information. */
586 if(objfile
->obj_private
== NULL
)
588 obj_private
= (obj_private_data_t
*)
589 obstack_alloc(&objfile
->psymbol_obstack
,
590 sizeof(obj_private_data_t
));
591 obj_private
->unwind_info
= NULL
;
592 obj_private
->so_info
= NULL
;
594 objfile
->obj_private
= (PTR
) obj_private
;
596 obj_private
= (obj_private_data_t
*)objfile
->obj_private
;
597 obj_private
->unwind_info
= ui
;
600 /* Lookup the unwind (stack backtrace) info for the given PC. We search all
601 of the objfiles seeking the unwind table entry for this PC. Each objfile
602 contains a sorted list of struct unwind_table_entry. Since we do a binary
603 search of the unwind tables, we depend upon them to be sorted. */
605 struct unwind_table_entry
*
606 find_unwind_entry(pc
)
609 int first
, middle
, last
;
610 struct objfile
*objfile
;
612 /* A function at address 0? Not in HP-UX! */
613 if (pc
== (CORE_ADDR
) 0)
616 ALL_OBJFILES (objfile
)
618 struct obj_unwind_info
*ui
;
620 if (objfile
->obj_private
)
621 ui
= ((obj_private_data_t
*)(objfile
->obj_private
))->unwind_info
;
625 read_unwind_info (objfile
);
626 if (objfile
->obj_private
== NULL
)
627 error ("Internal error reading unwind information."); /* purecov: deadcode */
628 ui
= ((obj_private_data_t
*)(objfile
->obj_private
))->unwind_info
;
631 /* First, check the cache */
634 && pc
>= ui
->cache
->region_start
635 && pc
<= ui
->cache
->region_end
)
638 /* Not in the cache, do a binary search */
643 while (first
<= last
)
645 middle
= (first
+ last
) / 2;
646 if (pc
>= ui
->table
[middle
].region_start
647 && pc
<= ui
->table
[middle
].region_end
)
649 ui
->cache
= &ui
->table
[middle
];
650 return &ui
->table
[middle
];
653 if (pc
< ui
->table
[middle
].region_start
)
658 } /* ALL_OBJFILES() */
662 /* Return the adjustment necessary to make for addresses on the stack
663 as presented by hpread.c.
665 This is necessary because of the stack direction on the PA and the
666 bizarre way in which someone (?) decided they wanted to handle
667 frame pointerless code in GDB. */
669 hpread_adjust_stack_address (func_addr
)
672 struct unwind_table_entry
*u
;
674 u
= find_unwind_entry (func_addr
);
678 return u
->Total_frame_size
<< 3;
681 /* Called to determine if PC is in an interrupt handler of some
685 pc_in_interrupt_handler (pc
)
688 struct unwind_table_entry
*u
;
689 struct minimal_symbol
*msym_us
;
691 u
= find_unwind_entry (pc
);
695 /* Oh joys. HPUX sets the interrupt bit for _sigreturn even though
696 its frame isn't a pure interrupt frame. Deal with this. */
697 msym_us
= lookup_minimal_symbol_by_pc (pc
);
699 return u
->HP_UX_interrupt_marker
&& !IN_SIGTRAMP (pc
, SYMBOL_NAME (msym_us
));
702 /* Called when no unwind descriptor was found for PC. Returns 1 if it
703 appears that PC is in a linker stub. */
706 pc_in_linker_stub (pc
)
709 int found_magic_instruction
= 0;
713 /* If unable to read memory, assume pc is not in a linker stub. */
714 if (target_read_memory (pc
, buf
, 4) != 0)
717 /* We are looking for something like
719 ; $$dyncall jams RP into this special spot in the frame (RP')
720 ; before calling the "call stub"
723 ldsid (rp),r1 ; Get space associated with RP into r1
724 mtsp r1,sp ; Move it into space register 0
725 be,n 0(sr0),rp) ; back to your regularly scheduled program */
727 /* Maximum known linker stub size is 4 instructions. Search forward
728 from the given PC, then backward. */
729 for (i
= 0; i
< 4; i
++)
731 /* If we hit something with an unwind, stop searching this direction. */
733 if (find_unwind_entry (pc
+ i
* 4) != 0)
736 /* Check for ldsid (rp),r1 which is the magic instruction for a
737 return from a cross-space function call. */
738 if (read_memory_integer (pc
+ i
* 4, 4) == 0x004010a1)
740 found_magic_instruction
= 1;
743 /* Add code to handle long call/branch and argument relocation stubs
747 if (found_magic_instruction
!= 0)
750 /* Now look backward. */
751 for (i
= 0; i
< 4; i
++)
753 /* If we hit something with an unwind, stop searching this direction. */
755 if (find_unwind_entry (pc
- i
* 4) != 0)
758 /* Check for ldsid (rp),r1 which is the magic instruction for a
759 return from a cross-space function call. */
760 if (read_memory_integer (pc
- i
* 4, 4) == 0x004010a1)
762 found_magic_instruction
= 1;
765 /* Add code to handle long call/branch and argument relocation stubs
768 return found_magic_instruction
;
772 find_return_regnum(pc
)
775 struct unwind_table_entry
*u
;
777 u
= find_unwind_entry (pc
);
788 /* Return size of frame, or -1 if we should use a frame pointer. */
790 find_proc_framesize (pc
)
793 struct unwind_table_entry
*u
;
794 struct minimal_symbol
*msym_us
;
796 /* This may indicate a bug in our callers... */
797 if (pc
== (CORE_ADDR
)0)
800 u
= find_unwind_entry (pc
);
804 if (pc_in_linker_stub (pc
))
805 /* Linker stubs have a zero size frame. */
811 msym_us
= lookup_minimal_symbol_by_pc (pc
);
813 /* If Save_SP is set, and we're not in an interrupt or signal caller,
814 then we have a frame pointer. Use it. */
815 if (u
->Save_SP
&& !pc_in_interrupt_handler (pc
)
816 && !IN_SIGTRAMP (pc
, SYMBOL_NAME (msym_us
)))
819 return u
->Total_frame_size
<< 3;
822 /* Return offset from sp at which rp is saved, or 0 if not saved. */
823 static int rp_saved
PARAMS ((CORE_ADDR
));
829 struct unwind_table_entry
*u
;
831 /* A function at, and thus a return PC from, address 0? Not in HP-UX! */
832 if (pc
== (CORE_ADDR
) 0)
835 u
= find_unwind_entry (pc
);
839 if (pc_in_linker_stub (pc
))
840 /* This is the so-called RP'. */
848 else if (u
->stub_unwind
.stub_type
!= 0)
850 switch (u
->stub_unwind
.stub_type
)
855 case PARAMETER_RELOCATION
:
866 frameless_function_invocation (frame
)
867 struct frame_info
*frame
;
869 struct unwind_table_entry
*u
;
871 u
= find_unwind_entry (frame
->pc
);
876 return (u
->Total_frame_size
== 0 && u
->stub_unwind
.stub_type
== 0);
880 saved_pc_after_call (frame
)
881 struct frame_info
*frame
;
885 struct unwind_table_entry
*u
;
887 ret_regnum
= find_return_regnum (get_frame_pc (frame
));
888 pc
= read_register (ret_regnum
) & ~0x3;
890 /* If PC is in a linker stub, then we need to dig the address
891 the stub will return to out of the stack. */
892 u
= find_unwind_entry (pc
);
893 if (u
&& u
->stub_unwind
.stub_type
!= 0)
894 return FRAME_SAVED_PC (frame
);
900 hppa_frame_saved_pc (frame
)
901 struct frame_info
*frame
;
903 CORE_ADDR pc
= get_frame_pc (frame
);
904 struct unwind_table_entry
*u
;
906 int spun_around_loop
= 0;
909 /* BSD, HPUX & OSF1 all lay out the hardware state in the same manner
910 at the base of the frame in an interrupt handler. Registers within
911 are saved in the exact same order as GDB numbers registers. How
913 if (pc_in_interrupt_handler (pc
))
914 return read_memory_integer (frame
->frame
+ PC_REGNUM
* 4, 4) & ~0x3;
916 #ifdef FRAME_SAVED_PC_IN_SIGTRAMP
917 /* Deal with signal handler caller frames too. */
918 if (frame
->signal_handler_caller
)
921 FRAME_SAVED_PC_IN_SIGTRAMP (frame
, &rp
);
926 if (frameless_function_invocation (frame
))
930 ret_regnum
= find_return_regnum (pc
);
932 /* If the next frame is an interrupt frame or a signal
933 handler caller, then we need to look in the saved
934 register area to get the return pointer (the values
935 in the registers may not correspond to anything useful). */
937 && (frame
->next
->signal_handler_caller
938 || pc_in_interrupt_handler (frame
->next
->pc
)))
940 struct frame_saved_regs saved_regs
;
942 get_frame_saved_regs (frame
->next
, &saved_regs
);
943 if (read_memory_integer (saved_regs
.regs
[FLAGS_REGNUM
], 4) & 0x2)
945 pc
= read_memory_integer (saved_regs
.regs
[31], 4) & ~0x3;
947 /* Syscalls are really two frames. The syscall stub itself
948 with a return pointer in %rp and the kernel call with
949 a return pointer in %r31. We return the %rp variant
950 if %r31 is the same as frame->pc. */
952 pc
= read_memory_integer (saved_regs
.regs
[RP_REGNUM
], 4) & ~0x3;
955 pc
= read_memory_integer (saved_regs
.regs
[RP_REGNUM
], 4) & ~0x3;
958 pc
= read_register (ret_regnum
) & ~0x3;
962 spun_around_loop
= 0;
966 rp_offset
= rp_saved (pc
);
968 /* Similar to code in frameless function case. If the next
969 frame is a signal or interrupt handler, then dig the right
970 information out of the saved register info. */
973 && (frame
->next
->signal_handler_caller
974 || pc_in_interrupt_handler (frame
->next
->pc
)))
976 struct frame_saved_regs saved_regs
;
978 get_frame_saved_regs (frame
->next
, &saved_regs
);
979 if (read_memory_integer (saved_regs
.regs
[FLAGS_REGNUM
], 4) & 0x2)
981 pc
= read_memory_integer (saved_regs
.regs
[31], 4) & ~0x3;
983 /* Syscalls are really two frames. The syscall stub itself
984 with a return pointer in %rp and the kernel call with
985 a return pointer in %r31. We return the %rp variant
986 if %r31 is the same as frame->pc. */
988 pc
= read_memory_integer (saved_regs
.regs
[RP_REGNUM
], 4) & ~0x3;
991 pc
= read_memory_integer (saved_regs
.regs
[RP_REGNUM
], 4) & ~0x3;
993 else if (rp_offset
== 0)
996 pc
= read_register (RP_REGNUM
) & ~0x3;
1001 pc
= read_memory_integer (frame
->frame
+ rp_offset
, 4) & ~0x3;
1005 /* If PC is inside a linker stub, then dig out the address the stub
1008 Don't do this for long branch stubs. Why? For some unknown reason
1009 _start is marked as a long branch stub in hpux10. */
1010 u
= find_unwind_entry (pc
);
1011 if (u
&& u
->stub_unwind
.stub_type
!= 0
1012 && u
->stub_unwind
.stub_type
!= LONG_BRANCH
)
1016 /* If this is a dynamic executable, and we're in a signal handler,
1017 then the call chain will eventually point us into the stub for
1018 _sigreturn. Unlike most cases, we'll be pointed to the branch
1019 to the real sigreturn rather than the code after the real branch!.
1021 Else, try to dig the address the stub will return to in the normal
1023 insn
= read_memory_integer (pc
, 4);
1024 if ((insn
& 0xfc00e000) == 0xe8000000)
1025 return (pc
+ extract_17 (insn
) + 8) & ~0x3;
1031 if (spun_around_loop
> 1)
1033 /* We're just about to go around the loop again with
1034 no more hope of success. Die. */
1035 error("Unable to find return pc for this frame");
1045 /* We need to correct the PC and the FP for the outermost frame when we are
1046 in a system call. */
1049 init_extra_frame_info (fromleaf
, frame
)
1051 struct frame_info
*frame
;
1056 if (frame
->next
&& !fromleaf
)
1059 /* If the next frame represents a frameless function invocation
1060 then we have to do some adjustments that are normally done by
1061 FRAME_CHAIN. (FRAME_CHAIN is not called in this case.) */
1064 /* Find the framesize of *this* frame without peeking at the PC
1065 in the current frame structure (it isn't set yet). */
1066 framesize
= find_proc_framesize (FRAME_SAVED_PC (get_next_frame (frame
)));
1068 /* Now adjust our base frame accordingly. If we have a frame pointer
1069 use it, else subtract the size of this frame from the current
1070 frame. (we always want frame->frame to point at the lowest address
1072 if (framesize
== -1)
1073 frame
->frame
= TARGET_READ_FP ();
1075 frame
->frame
-= framesize
;
1079 flags
= read_register (FLAGS_REGNUM
);
1080 if (flags
& 2) /* In system call? */
1081 frame
->pc
= read_register (31) & ~0x3;
1083 /* The outermost frame is always derived from PC-framesize
1085 One might think frameless innermost frames should have
1086 a frame->frame that is the same as the parent's frame->frame.
1087 That is wrong; frame->frame in that case should be the *high*
1088 address of the parent's frame. It's complicated as hell to
1089 explain, but the parent *always* creates some stack space for
1090 the child. So the child actually does have a frame of some
1091 sorts, and its base is the high address in its parent's frame. */
1092 framesize
= find_proc_framesize(frame
->pc
);
1093 if (framesize
== -1)
1094 frame
->frame
= TARGET_READ_FP ();
1096 frame
->frame
= read_register (SP_REGNUM
) - framesize
;
1099 /* Given a GDB frame, determine the address of the calling function's frame.
1100 This will be used to create a new GDB frame struct, and then
1101 INIT_EXTRA_FRAME_INFO and INIT_FRAME_PC will be called for the new frame.
1103 This may involve searching through prologues for several functions
1104 at boundaries where GCC calls HP C code, or where code which has
1105 a frame pointer calls code without a frame pointer. */
1109 struct frame_info
*frame
;
1111 int my_framesize
, caller_framesize
;
1112 struct unwind_table_entry
*u
;
1113 CORE_ADDR frame_base
;
1114 struct frame_info
*tmp_frame
;
1116 CORE_ADDR caller_pc
;
1118 struct minimal_symbol
*min_frame_symbol
;
1119 struct symbol
*frame_symbol
;
1120 char *frame_symbol_name
;
1122 /* If this is a threaded application, and we see the
1123 routine "__pthread_exit", treat it as the stack root
1125 min_frame_symbol
= lookup_minimal_symbol_by_pc (frame
->pc
);
1126 frame_symbol
= find_pc_function(frame
->pc
);
1128 if ((min_frame_symbol
!= 0) /* && (frame_symbol == 0) */)
1130 /* The test above for "no user function name" would defend
1131 against the slim likelihood that a user might define a
1132 routine named "__pthread_exit" and then try to debug it.
1134 If it weren't commented out, and you tried to debug the
1135 pthread library itself, you'd get errors.
1137 So for today, we don't make that check. */
1138 frame_symbol_name
= SYMBOL_NAME(min_frame_symbol
);
1139 if (frame_symbol_name
!= 0) {
1140 if (0 == strncmp(frame_symbol_name
,
1141 THREAD_INITIAL_FRAME_SYMBOL
,
1142 THREAD_INITIAL_FRAME_SYM_LEN
)) {
1143 /* Pretend we've reached the bottom of the stack. */
1144 return (CORE_ADDR
) 0;
1147 } /* End of hacky code for threads. */
1149 /* Handle HPUX, BSD, and OSF1 style interrupt frames first. These
1150 are easy; at *sp we have a full save state strucutre which we can
1151 pull the old stack pointer from. Also see frame_saved_pc for
1152 code to dig a saved PC out of the save state structure. */
1153 if (pc_in_interrupt_handler (frame
->pc
))
1154 frame_base
= read_memory_integer (frame
->frame
+ SP_REGNUM
* 4, 4);
1155 #ifdef FRAME_BASE_BEFORE_SIGTRAMP
1156 else if (frame
->signal_handler_caller
)
1158 FRAME_BASE_BEFORE_SIGTRAMP (frame
, &frame_base
);
1162 frame_base
= frame
->frame
;
1164 /* Get frame sizes for the current frame and the frame of the
1166 my_framesize
= find_proc_framesize (frame
->pc
);
1167 caller_pc
= FRAME_SAVED_PC(frame
);
1169 /* If we can't determine the caller's PC, then it's not likely we can
1170 really determine anything meaningful about its frame. We'll consider
1171 this to be stack bottom. */
1172 if (caller_pc
== (CORE_ADDR
) 0)
1173 return (CORE_ADDR
) 0;
1175 caller_framesize
= find_proc_framesize (FRAME_SAVED_PC(frame
));
1177 /* If caller does not have a frame pointer, then its frame
1178 can be found at current_frame - caller_framesize. */
1179 if (caller_framesize
!= -1)
1181 return frame_base
- caller_framesize
;
1183 /* Both caller and callee have frame pointers and are GCC compiled
1184 (SAVE_SP bit in unwind descriptor is on for both functions.
1185 The previous frame pointer is found at the top of the current frame. */
1186 if (caller_framesize
== -1 && my_framesize
== -1)
1188 return read_memory_integer (frame_base
, 4);
1190 /* Caller has a frame pointer, but callee does not. This is a little
1191 more difficult as GCC and HP C lay out locals and callee register save
1192 areas very differently.
1194 The previous frame pointer could be in a register, or in one of
1195 several areas on the stack.
1197 Walk from the current frame to the innermost frame examining
1198 unwind descriptors to determine if %r3 ever gets saved into the
1199 stack. If so return whatever value got saved into the stack.
1200 If it was never saved in the stack, then the value in %r3 is still
1203 We use information from unwind descriptors to determine if %r3
1204 is saved into the stack (Entry_GR field has this information). */
1209 u
= find_unwind_entry (tmp_frame
->pc
);
1213 /* We could find this information by examining prologues. I don't
1214 think anyone has actually written any tools (not even "strip")
1215 which leave them out of an executable, so maybe this is a moot
1217 /* ??rehrauer: Actually, it's quite possible to stepi your way into
1218 code that doesn't have unwind entries. For example, stepping into
1219 the dynamic linker will give you a PC that has none. Thus, I've
1220 disabled this warning. */
1222 warning ("Unable to find unwind for PC 0x%x -- Help!", tmp_frame
->pc
);
1224 return (CORE_ADDR
) 0;
1227 /* Entry_GR specifies the number of callee-saved general registers
1228 saved in the stack. It starts at %r3, so %r3 would be 1. */
1229 if (u
->Entry_GR
>= 1 || u
->Save_SP
1230 || tmp_frame
->signal_handler_caller
1231 || pc_in_interrupt_handler (tmp_frame
->pc
))
1234 tmp_frame
= tmp_frame
->next
;
1239 /* We may have walked down the chain into a function with a frame
1242 && !tmp_frame
->signal_handler_caller
1243 && !pc_in_interrupt_handler (tmp_frame
->pc
))
1245 return read_memory_integer (tmp_frame
->frame
, 4);
1247 /* %r3 was saved somewhere in the stack. Dig it out. */
1250 struct frame_saved_regs saved_regs
;
1254 For optimization purposes many kernels don't have the
1255 callee saved registers into the save_state structure upon
1256 entry into the kernel for a syscall; the optimization
1257 is usually turned off if the process is being traced so
1258 that the debugger can get full register state for the
1261 This scheme works well except for two cases:
1263 * Attaching to a process when the process is in the
1264 kernel performing a system call (debugger can't get
1265 full register state for the inferior process since
1266 the process wasn't being traced when it entered the
1269 * Register state is not complete if the system call
1270 causes the process to core dump.
1273 The following heinous code is an attempt to deal with
1274 the lack of register state in a core dump. It will
1275 fail miserably if the function which performs the
1276 system call has a variable sized stack frame. */
1278 get_frame_saved_regs (tmp_frame
, &saved_regs
);
1280 /* Abominable hack. */
1281 if (current_target
.to_has_execution
== 0
1282 && ((saved_regs
.regs
[FLAGS_REGNUM
]
1283 && (read_memory_integer (saved_regs
.regs
[FLAGS_REGNUM
], 4)
1285 || (saved_regs
.regs
[FLAGS_REGNUM
] == 0
1286 && read_register (FLAGS_REGNUM
) & 0x2)))
1288 u
= find_unwind_entry (FRAME_SAVED_PC (frame
));
1291 return read_memory_integer (saved_regs
.regs
[FP_REGNUM
], 4);
1295 return frame_base
- (u
->Total_frame_size
<< 3);
1299 return read_memory_integer (saved_regs
.regs
[FP_REGNUM
], 4);
1304 struct frame_saved_regs saved_regs
;
1306 /* Get the innermost frame. */
1308 while (tmp_frame
->next
!= NULL
)
1309 tmp_frame
= tmp_frame
->next
;
1311 get_frame_saved_regs (tmp_frame
, &saved_regs
);
1312 /* Abominable hack. See above. */
1313 if (current_target
.to_has_execution
== 0
1314 && ((saved_regs
.regs
[FLAGS_REGNUM
]
1315 && (read_memory_integer (saved_regs
.regs
[FLAGS_REGNUM
], 4)
1317 || (saved_regs
.regs
[FLAGS_REGNUM
] == 0
1318 && read_register (FLAGS_REGNUM
) & 0x2)))
1320 u
= find_unwind_entry (FRAME_SAVED_PC (frame
));
1323 return read_memory_integer (saved_regs
.regs
[FP_REGNUM
], 4);
1327 return frame_base
- (u
->Total_frame_size
<< 3);
1331 /* The value in %r3 was never saved into the stack (thus %r3 still
1332 holds the value of the previous frame pointer). */
1333 return TARGET_READ_FP ();
1338 /* To see if a frame chain is valid, see if the caller looks like it
1339 was compiled with gcc. */
1342 hppa_frame_chain_valid (chain
, thisframe
)
1344 struct frame_info
*thisframe
;
1346 struct minimal_symbol
*msym_us
;
1347 struct minimal_symbol
*msym_start
;
1348 struct unwind_table_entry
*u
, *next_u
= NULL
;
1349 struct frame_info
*next
;
1354 u
= find_unwind_entry (thisframe
->pc
);
1359 /* We can't just check that the same of msym_us is "_start", because
1360 someone idiotically decided that they were going to make a Ltext_end
1361 symbol with the same address. This Ltext_end symbol is totally
1362 indistinguishable (as nearly as I can tell) from the symbol for a function
1363 which is (legitimately, since it is in the user's namespace)
1364 named Ltext_end, so we can't just ignore it. */
1365 msym_us
= lookup_minimal_symbol_by_pc (FRAME_SAVED_PC (thisframe
));
1366 msym_start
= lookup_minimal_symbol ("_start", NULL
, NULL
);
1369 && SYMBOL_VALUE_ADDRESS (msym_us
) == SYMBOL_VALUE_ADDRESS (msym_start
))
1372 /* Grrrr. Some new idiot decided that they don't want _start for the
1373 PRO configurations; $START$ calls main directly.... Deal with it. */
1374 msym_start
= lookup_minimal_symbol ("$START$", NULL
, NULL
);
1377 && SYMBOL_VALUE_ADDRESS (msym_us
) == SYMBOL_VALUE_ADDRESS (msym_start
))
1380 next
= get_next_frame (thisframe
);
1382 next_u
= find_unwind_entry (next
->pc
);
1384 /* If this frame does not save SP, has no stack, isn't a stub,
1385 and doesn't "call" an interrupt routine or signal handler caller,
1386 then its not valid. */
1387 if (u
->Save_SP
|| u
->Total_frame_size
|| u
->stub_unwind
.stub_type
!= 0
1388 || (thisframe
->next
&& thisframe
->next
->signal_handler_caller
)
1389 || (next_u
&& next_u
->HP_UX_interrupt_marker
))
1392 if (pc_in_linker_stub (thisframe
->pc
))
1399 These functions deal with saving and restoring register state
1400 around a function call in the inferior. They keep the stack
1401 double-word aligned; eventually, on an hp700, the stack will have
1402 to be aligned to a 64-byte boundary. */
1405 push_dummy_frame (inf_status
)
1406 struct inferior_status
*inf_status
;
1408 CORE_ADDR sp
, pc
, pcspace
;
1409 register int regnum
;
1413 /* Oh, what a hack. If we're trying to perform an inferior call
1414 while the inferior is asleep, we have to make sure to clear
1415 the "in system call" bit in the flag register (the call will
1416 start after the syscall returns, so we're no longer in the system
1417 call!) This state is kept in "inf_status", change it there.
1419 We also need a number of horrid hacks to deal with lossage in the
1420 PC queue registers (apparently they're not valid when the in syscall
1422 pc
= target_read_pc (inferior_pid
);
1423 int_buffer
= read_register (FLAGS_REGNUM
);
1424 if (int_buffer
& 0x2)
1428 memcpy (inf_status
->registers
, &int_buffer
, 4);
1429 memcpy (inf_status
->registers
+ REGISTER_BYTE (PCOQ_HEAD_REGNUM
), &pc
, 4);
1431 memcpy (inf_status
->registers
+ REGISTER_BYTE (PCOQ_TAIL_REGNUM
), &pc
, 4);
1433 sid
= (pc
>> 30) & 0x3;
1435 pcspace
= read_register (SR4_REGNUM
);
1437 pcspace
= read_register (SR4_REGNUM
+ 4 + sid
);
1438 memcpy (inf_status
->registers
+ REGISTER_BYTE (PCSQ_HEAD_REGNUM
),
1440 memcpy (inf_status
->registers
+ REGISTER_BYTE (PCSQ_TAIL_REGNUM
),
1444 pcspace
= read_register (PCSQ_HEAD_REGNUM
);
1446 /* Space for "arguments"; the RP goes in here. */
1447 sp
= read_register (SP_REGNUM
) + 48;
1448 int_buffer
= read_register (RP_REGNUM
) | 0x3;
1449 write_memory (sp
- 20, (char *)&int_buffer
, 4);
1451 int_buffer
= TARGET_READ_FP ();
1452 write_memory (sp
, (char *)&int_buffer
, 4);
1454 write_register (FP_REGNUM
, sp
);
1458 for (regnum
= 1; regnum
< 32; regnum
++)
1459 if (regnum
!= RP_REGNUM
&& regnum
!= FP_REGNUM
)
1460 sp
= push_word (sp
, read_register (regnum
));
1464 for (regnum
= FP0_REGNUM
; regnum
< NUM_REGS
; regnum
++)
1466 read_register_bytes (REGISTER_BYTE (regnum
), (char *)&freg_buffer
, 8);
1467 sp
= push_bytes (sp
, (char *)&freg_buffer
, 8);
1469 sp
= push_word (sp
, read_register (IPSW_REGNUM
));
1470 sp
= push_word (sp
, read_register (SAR_REGNUM
));
1471 sp
= push_word (sp
, pc
);
1472 sp
= push_word (sp
, pcspace
);
1473 sp
= push_word (sp
, pc
+ 4);
1474 sp
= push_word (sp
, pcspace
);
1475 write_register (SP_REGNUM
, sp
);
1479 find_dummy_frame_regs (frame
, frame_saved_regs
)
1480 struct frame_info
*frame
;
1481 struct frame_saved_regs
*frame_saved_regs
;
1483 CORE_ADDR fp
= frame
->frame
;
1486 frame_saved_regs
->regs
[RP_REGNUM
] = (fp
- 20) & ~0x3;
1487 frame_saved_regs
->regs
[FP_REGNUM
] = fp
;
1488 frame_saved_regs
->regs
[1] = fp
+ 8;
1490 for (fp
+= 12, i
= 3; i
< 32; i
++)
1494 frame_saved_regs
->regs
[i
] = fp
;
1500 for (i
= FP0_REGNUM
; i
< NUM_REGS
; i
++, fp
+= 8)
1501 frame_saved_regs
->regs
[i
] = fp
;
1503 frame_saved_regs
->regs
[IPSW_REGNUM
] = fp
;
1504 frame_saved_regs
->regs
[SAR_REGNUM
] = fp
+ 4;
1505 frame_saved_regs
->regs
[PCOQ_HEAD_REGNUM
] = fp
+ 8;
1506 frame_saved_regs
->regs
[PCSQ_HEAD_REGNUM
] = fp
+ 12;
1507 frame_saved_regs
->regs
[PCOQ_TAIL_REGNUM
] = fp
+ 16;
1508 frame_saved_regs
->regs
[PCSQ_TAIL_REGNUM
] = fp
+ 20;
1514 register struct frame_info
*frame
= get_current_frame ();
1515 register CORE_ADDR fp
, npc
, target_pc
;
1516 register int regnum
;
1517 struct frame_saved_regs fsr
;
1520 fp
= FRAME_FP (frame
);
1521 get_frame_saved_regs (frame
, &fsr
);
1523 #ifndef NO_PC_SPACE_QUEUE_RESTORE
1524 if (fsr
.regs
[IPSW_REGNUM
]) /* Restoring a call dummy frame */
1525 restore_pc_queue (&fsr
);
1528 for (regnum
= 31; regnum
> 0; regnum
--)
1529 if (fsr
.regs
[regnum
])
1530 write_register (regnum
, read_memory_integer (fsr
.regs
[regnum
], 4));
1532 for (regnum
= NUM_REGS
- 1; regnum
>= FP0_REGNUM
; regnum
--)
1533 if (fsr
.regs
[regnum
])
1535 read_memory (fsr
.regs
[regnum
], (char *)&freg_buffer
, 8);
1536 write_register_bytes (REGISTER_BYTE (regnum
), (char *)&freg_buffer
, 8);
1539 if (fsr
.regs
[IPSW_REGNUM
])
1540 write_register (IPSW_REGNUM
,
1541 read_memory_integer (fsr
.regs
[IPSW_REGNUM
], 4));
1543 if (fsr
.regs
[SAR_REGNUM
])
1544 write_register (SAR_REGNUM
,
1545 read_memory_integer (fsr
.regs
[SAR_REGNUM
], 4));
1547 /* If the PC was explicitly saved, then just restore it. */
1548 if (fsr
.regs
[PCOQ_TAIL_REGNUM
])
1550 npc
= read_memory_integer (fsr
.regs
[PCOQ_TAIL_REGNUM
], 4);
1551 write_register (PCOQ_TAIL_REGNUM
, npc
);
1553 /* Else use the value in %rp to set the new PC. */
1556 npc
= read_register (RP_REGNUM
);
1560 write_register (FP_REGNUM
, read_memory_integer (fp
, 4));
1562 if (fsr
.regs
[IPSW_REGNUM
]) /* call dummy */
1563 write_register (SP_REGNUM
, fp
- 48);
1565 write_register (SP_REGNUM
, fp
);
1567 /* The PC we just restored may be inside a return trampoline. If so
1568 we want to restart the inferior and run it through the trampoline.
1570 Do this by setting a momentary breakpoint at the location the
1571 trampoline returns to.
1573 Don't skip through the trampoline if we're popping a dummy frame. */
1574 target_pc
= SKIP_TRAMPOLINE_CODE (npc
& ~0x3) & ~0x3;
1575 if (target_pc
&& !fsr
.regs
[IPSW_REGNUM
])
1577 struct symtab_and_line sal
;
1578 struct breakpoint
*breakpoint
;
1579 struct cleanup
*old_chain
;
1581 /* Set up our breakpoint. Set it to be silent as the MI code
1582 for "return_command" will print the frame we returned to. */
1583 sal
= find_pc_line (target_pc
, 0);
1585 breakpoint
= set_momentary_breakpoint (sal
, NULL
, bp_finish
);
1586 breakpoint
->silent
= 1;
1588 /* So we can clean things up. */
1589 old_chain
= make_cleanup ((make_cleanup_func
) delete_breakpoint
, breakpoint
);
1591 /* Start up the inferior. */
1592 clear_proceed_status ();
1593 proceed_to_finish
= 1;
1594 proceed ((CORE_ADDR
) -1, TARGET_SIGNAL_DEFAULT
, 0);
1596 /* Perform our cleanups. */
1597 do_cleanups (old_chain
);
1599 flush_cached_frames ();
1602 /* After returning to a dummy on the stack, restore the instruction
1603 queue space registers. */
1606 restore_pc_queue (fsr
)
1607 struct frame_saved_regs
*fsr
;
1609 CORE_ADDR pc
= read_pc ();
1610 CORE_ADDR new_pc
= read_memory_integer (fsr
->regs
[PCOQ_HEAD_REGNUM
], 4);
1611 struct target_waitstatus w
;
1614 /* Advance past break instruction in the call dummy. */
1615 write_register (PCOQ_HEAD_REGNUM
, pc
+ 4);
1616 write_register (PCOQ_TAIL_REGNUM
, pc
+ 8);
1618 /* HPUX doesn't let us set the space registers or the space
1619 registers of the PC queue through ptrace. Boo, hiss.
1620 Conveniently, the call dummy has this sequence of instructions
1625 So, load up the registers and single step until we are in the
1628 write_register (21, read_memory_integer (fsr
->regs
[PCSQ_HEAD_REGNUM
], 4));
1629 write_register (22, new_pc
);
1631 for (insn_count
= 0; insn_count
< 3; insn_count
++)
1633 /* FIXME: What if the inferior gets a signal right now? Want to
1634 merge this into wait_for_inferior (as a special kind of
1635 watchpoint? By setting a breakpoint at the end? Is there
1636 any other choice? Is there *any* way to do this stuff with
1637 ptrace() or some equivalent?). */
1639 target_wait (inferior_pid
, &w
);
1641 if (w
.kind
== TARGET_WAITKIND_SIGNALLED
)
1643 stop_signal
= w
.value
.sig
;
1644 terminal_ours_for_output ();
1645 printf_unfiltered ("\nProgram terminated with signal %s, %s.\n",
1646 target_signal_to_name (stop_signal
),
1647 target_signal_to_string (stop_signal
));
1648 gdb_flush (gdb_stdout
);
1652 target_terminal_ours ();
1653 target_fetch_registers (-1);
1659 hppa_push_arguments (nargs
, args
, sp
, struct_return
, struct_addr
)
1664 CORE_ADDR struct_addr
;
1666 /* array of arguments' offsets */
1667 int *offset
= (int *)alloca(nargs
* sizeof (int));
1671 for (i
= 0; i
< nargs
; i
++)
1674 /* cum is the sum of the lengths in bytes of
1675 the arguments seen so far */
1676 cum
+= TYPE_LENGTH (VALUE_TYPE (args
[i
]));
1678 /* value must go at proper alignment. Assume alignment is a
1680 alignment
= hppa_alignof (VALUE_TYPE (args
[i
]));
1682 if (cum
% alignment
)
1683 cum
= (cum
+ alignment
) & -alignment
;
1687 sp
+= max ((cum
+ 7) & -8, 16);
1689 for (i
= 0; i
< nargs
; i
++)
1690 write_memory (sp
+ offset
[i
], VALUE_CONTENTS (args
[i
]),
1691 TYPE_LENGTH (VALUE_TYPE (args
[i
])));
1694 write_register (28, struct_addr
);
1699 /* elz: I am rewriting this function, because the one above is a very
1700 obscure piece of code.
1701 This function pushes the arguments on the stack. The stack grows up
1703 Each argument goes in one (or more) word (4 bytes) on the stack.
1704 The first four words for the args must be allocated, even if they
1706 The 'topmost' arg is arg0, the 'bottom-most' is arg3. (if you think of
1707 them as 1 word long).
1708 Below these there can be any number of arguments, as needed by the function.
1709 If an arg is bigger than one word, it will be written on the stack
1710 occupying as many words as needed. Args that are bigger than 64bits
1711 are not copied on the stack, a pointer is passed instead.
1713 On top of the arg0 word there are other 8 words (32bytes) which are used
1714 for other purposes */
1717 hppa_push_arguments (nargs
, args
, sp
, struct_return
, struct_addr
)
1722 CORE_ADDR struct_addr
;
1724 /* array of arguments' offsets */
1725 int *offset
= (int *)alloca(nargs
* sizeof (int));
1726 /* array of arguments' lengths: real lengths in bytes, not aligned to word size */
1727 int *lengths
= (int *)alloca(nargs
* sizeof (int));
1729 int bytes_reserved
; /* this is the number of bytes on the stack occupied by an
1730 argument. This will be always a multiple of 4 */
1732 int cum_bytes_reserved
= 0; /* this is the total number of bytes reserved by the args
1733 seen so far. It is a multiple of 4 always */
1734 int cum_bytes_aligned
= 0; /* same as above, but aligned on 8 bytes */
1737 /* When an arg does not occupy a whole word, for instance in bitfields:
1738 if the arg is x bits (0<x<32), it must be written
1739 starting from the (x-1)-th position down until the 0-th position.
1740 It is enough to align it to the word. */
1741 /* if an arg occupies 8 bytes, it must be aligned on the 64-bits
1742 high order word in odd arg word. */
1743 /* if an arg is larger than 64 bits, we need to pass a pointer to it, and
1744 copy the actual value on the stack, so that the callee can play with it.
1745 This is taken care of in valops.c in the call_function_by_hand function.
1746 The argument that is received in this function here has already be converted
1747 to a pointer to whatever is needed, so that it just can be pushed
1748 as a word argument */
1750 for (i
= 0; i
< nargs
; i
++)
1753 lengths
[i
] = TYPE_LENGTH (VALUE_TYPE (args
[i
]));
1756 bytes_reserved
= (lengths
[i
] / 4) * 4 + 4;
1758 bytes_reserved
= lengths
[i
];
1760 offset
[i
] = cum_bytes_reserved
+ lengths
[i
];
1762 if ((bytes_reserved
== 8) && (offset
[i
] % 8)) /* if 64-bit arg is not 64 bit aligned */
1765 /* bytes_reserved is already aligned to the word, so we put it at one word
1766 more down the stack. This will leave one empty word on the
1767 stack, and one unused register. This is OK, see the calling
1769 /* the offset may have to be moved to the corresponding position
1770 one word down the stack, to maintain
1772 new_offset
= (offset
[i
] / 8) * 8 + 8;
1773 if ((new_offset
- offset
[i
]) >=4)
1775 bytes_reserved
+= 4;
1780 cum_bytes_reserved
+= bytes_reserved
;
1784 /* now move up the sp to reserve at least 4 words required for the args,
1785 or more than this if needed */
1786 /* wee also need to keep the sp aligned to 8 bytes */
1787 cum_bytes_aligned
= STACK_ALIGN (cum_bytes_reserved
);
1788 sp
+= max (cum_bytes_aligned
, 16);
1790 /* now write each of the args at the proper offset down the stack */
1791 for (i
= 0; i
< nargs
; i
++)
1792 write_memory (sp
- offset
[i
], VALUE_CONTENTS (args
[i
]), lengths
[i
]);
1795 /* if a structure has to be returned, set up register 28 to hold its address */
1797 write_register (28, struct_addr
);
1799 /* the stack will have other 8 words on top of the args */
1804 /* elz: this function returns a value which is built looking at the given address.
1805 It is called from call_function_by_hand, in case we need to return a
1806 value which is larger than 64 bits, and it is stored in the stack rather than
1807 in the registers r28 and r29 or fr4.
1808 This function does the same stuff as value_being_returned in values.c, but
1809 gets the value from the stack rather than from the buffer where all the
1810 registers were saved when the function called completed. */
1812 hppa_value_returned_from_stack (valtype
, addr
)
1813 register struct type
*valtype
;
1816 register value_ptr val
;
1818 val
= allocate_value (valtype
);
1819 CHECK_TYPEDEF (valtype
);
1820 target_read_memory(addr
, VALUE_CONTENTS_RAW (val
), TYPE_LENGTH (valtype
));
1827 /* elz: Used to lookup a symbol in the shared libraries.
1828 This function calls shl_findsym, indirectly through a
1829 call to __d_shl_get. __d_shl_get is in end.c, which is always
1830 linked in by the hp compilers/linkers.
1831 The call to shl_findsym cannot be made directly because it needs
1832 to be active in target address space.
1833 inputs: - minimal symbol pointer for the function we want to look up
1834 - address in target space of the descriptor for the library
1835 where we want to look the symbol up.
1836 This address is retrieved using the
1837 som_solib_get_solib_by_pc function (somsolib.c).
1838 output: - real address in the library of the function.
1839 note: the handle can be null, in which case shl_findsym will look for
1840 the symbol in all the loaded shared libraries.
1841 files to look at if you need reference on this stuff:
1842 dld.c, dld_shl_findsym.c
1844 man entry for shl_findsym */
1847 find_stub_with_shl_get(function
, handle
)
1848 struct minimal_symbol
*function
;
1851 struct symbol
*get_sym
, *symbol2
;
1852 struct minimal_symbol
*buff_minsym
, *msymbol
;
1855 value_ptr funcval
, val
;
1857 int x
, namelen
, err_value
, tmp
= -1;
1858 CORE_ADDR endo_buff_addr
, value_return_addr
, errno_return_addr
;
1859 CORE_ADDR stub_addr
;
1862 args
= (value_ptr
*) alloca (sizeof (value_ptr
) * 8); /* 6 for the arguments and one null one??? */
1863 funcval
= find_function_in_inferior("__d_shl_get");
1864 get_sym
= lookup_symbol("__d_shl_get", NULL
, VAR_NAMESPACE
, NULL
, NULL
);
1865 buff_minsym
= lookup_minimal_symbol("__buffer", NULL
, NULL
);
1866 msymbol
= lookup_minimal_symbol ("__shldp", NULL
, NULL
);
1867 symbol2
= lookup_symbol("__shldp", NULL
, VAR_NAMESPACE
, NULL
, NULL
);
1868 endo_buff_addr
= SYMBOL_VALUE_ADDRESS (buff_minsym
);
1869 namelen
= strlen(SYMBOL_NAME(function
));
1870 value_return_addr
= endo_buff_addr
+ namelen
;
1871 ftype
= check_typedef(SYMBOL_TYPE(get_sym
));
1874 if ((x
=value_return_addr
% 64) !=0)
1875 value_return_addr
= value_return_addr
+ 64 - x
;
1877 errno_return_addr
= value_return_addr
+ 64;
1880 /* set up stuff needed by __d_shl_get in buffer in end.o */
1882 target_write_memory(endo_buff_addr
, SYMBOL_NAME(function
), namelen
);
1884 target_write_memory(value_return_addr
, (char *) &tmp
, 4);
1886 target_write_memory(errno_return_addr
, (char *) &tmp
, 4);
1888 target_write_memory(SYMBOL_VALUE_ADDRESS(msymbol
),
1889 (char *)&handle
, 4);
1891 /* now prepare the arguments for the call */
1893 args
[0] = value_from_longest (TYPE_FIELD_TYPE(ftype
, 0), 12);
1894 args
[1] = value_from_longest (TYPE_FIELD_TYPE(ftype
, 1), SYMBOL_VALUE_ADDRESS(msymbol
));
1895 args
[2] = value_from_longest (TYPE_FIELD_TYPE(ftype
, 2), endo_buff_addr
);
1896 args
[3] = value_from_longest (TYPE_FIELD_TYPE(ftype
, 3), TYPE_PROCEDURE
);
1897 args
[4] = value_from_longest (TYPE_FIELD_TYPE(ftype
, 4), value_return_addr
);
1898 args
[5] = value_from_longest (TYPE_FIELD_TYPE(ftype
, 5), errno_return_addr
);
1900 /* now call the function */
1902 val
= call_function_by_hand(funcval
, 6, args
);
1904 /* now get the results */
1906 target_read_memory(errno_return_addr
, (char *) &err_value
, sizeof(err_value
));
1908 target_read_memory(value_return_addr
, (char *) &stub_addr
, sizeof(stub_addr
));
1910 error("call to __d_shl_get failed, error code is %d", err_value
); /* purecov: deadcode */
1915 /* Cover routine for find_stub_with_shl_get to pass to catch_errors */
1917 cover_find_stub_with_shl_get (args
)
1918 args_for_find_stub
* args
;
1920 return find_stub_with_shl_get (args
->msym
, args
->solib_handle
);
1924 /* Insert the specified number of args and function address
1925 into a call sequence of the above form stored at DUMMYNAME.
1927 On the hppa we need to call the stack dummy through $$dyncall.
1928 Therefore our version of FIX_CALL_DUMMY takes an extra argument,
1929 real_pc, which is the location where gdb should start up the
1930 inferior to do the function call. */
1933 hppa_fix_call_dummy (dummy
, pc
, fun
, nargs
, args
, type
, gcc_p
)
1942 CORE_ADDR dyncall_addr
;
1943 struct minimal_symbol
*msymbol
;
1944 struct minimal_symbol
*trampoline
;
1945 int flags
= read_register (FLAGS_REGNUM
);
1946 struct unwind_table_entry
*u
;
1947 CORE_ADDR new_stub
=0;
1948 CORE_ADDR solib_handle
=0;
1951 msymbol
= lookup_minimal_symbol ("$$dyncall", NULL
, NULL
);
1952 if (msymbol
== NULL
)
1953 error ("Can't find an address for $$dyncall trampoline"); /* purecov: deadcode */
1955 dyncall_addr
= SYMBOL_VALUE_ADDRESS (msymbol
);
1957 /* FUN could be a procedure label, in which case we have to get
1958 its real address and the value of its GOT/DP. */
1961 /* Get the GOT/DP value for the target function. It's
1962 at *(fun+4). Note the call dummy is *NOT* allowed to
1963 trash %r19 before calling the target function. */
1964 write_register (19, read_memory_integer ((fun
& ~0x3) + 4, 4));
1966 /* Now get the real address for the function we are calling, it's
1968 fun
= (CORE_ADDR
) read_memory_integer (fun
& ~0x3, 4);
1973 #ifndef GDB_TARGET_IS_PA_ELF
1974 /* FUN could be either an export stub, or the real address of a
1975 function in a shared library. We must call an import stub
1976 rather than the export stub or real function for lazy binding
1977 to work correctly. */
1979 /* elz: let's see if fun is in a shared library */
1980 solib_handle
= som_solib_get_solib_by_pc(fun
);
1982 /* elz: for 10.30 and 11.00 the calls via __d_plt_call cannot be made
1983 via import stubs, only via plables, so this code here becomes useless.
1984 On 10.20, the plables mechanism works too, so we just ignore this import
1989 struct objfile
*objfile
;
1990 struct minimal_symbol
*funsymbol
, *stub_symbol
;
1991 CORE_ADDR newfun
= 0;
1993 funsymbol
= lookup_minimal_symbol_by_pc (fun
);
1995 error ("Unable to find minimal symbol for target fucntion.\n");
1997 /* Search all the object files for an import symbol with the
1999 ALL_OBJFILES (objfile
)
2001 stub_symbol
= lookup_minimal_symbol (SYMBOL_NAME (funsymbol
),
2003 /* Found a symbol with the right name. */
2006 struct unwind_table_entry
*u
;
2007 /* It must be a shared library trampoline. */
2008 if (MSYMBOL_TYPE (stub_symbol
) != mst_solib_trampoline
)
2011 /* It must also be an import stub. */
2012 u
= find_unwind_entry (SYMBOL_VALUE (stub_symbol
));
2013 if (!u
|| u
->stub_unwind
.stub_type
!= IMPORT
)
2016 /* OK. Looks like the correct import stub. */
2017 newfun
= SYMBOL_VALUE (stub_symbol
);
2022 write_register (19, som_solib_get_got_by_pc (fun
));
2024 #endif /* end of if 0 */
2028 /* If we are calling an import stub (eg calling into a dynamic library)
2029 then have sr4export call the magic __d_plt_call routine which is linked
2030 in from end.o. (You can't use _sr4export to call the import stub as
2031 the value in sp-24 will get fried and you end up returning to the
2032 wrong location. You can't call the import stub directly as the code
2033 to bind the PLT entry to a function can't return to a stack address.) */
2036 There does not have to be an import stub to call a routine in a
2037 different load module (note: a "load module" is an a.out or a shared
2038 library). If you call a routine indirectly, going through $$dyncall (or
2039 $$dyncall_external), you won't go through an import stub. Import stubs
2040 are only used for direct calls to an imported routine.
2042 What you (wdb) need is to go through $$dyncall with a proper plabel for
2043 the imported routine. shl_findsym() returns you the address of a plabel
2044 suitable for use in making an indirect call through, e.g., through
2046 This is taken care below with the call to find_stub_.... */
2048 /* elz: this check here is not necessary if we are going to call stuff through
2049 plabels only, we just now check whether the function we call is in a shlib */
2050 u
= find_unwind_entry (fun
);
2052 if (u
&& u
->stub_unwind
.stub_type
== IMPORT
||
2053 (!(u
&& u
->stub_unwind
.stub_type
== IMPORT
) && solib_handle
))
2059 /* Prefer __gcc_plt_call over the HP supplied routine because
2060 __gcc_plt_call works for any number of arguments. */
2061 trampoline
= lookup_minimal_symbol ("__gcc_plt_call", NULL
, NULL
);
2062 if (trampoline
== NULL
)
2063 trampoline
= lookup_minimal_symbol ("__d_plt_call", NULL
, NULL
);
2065 if (trampoline
== NULL
)
2067 error ("Can't find an address for __d_plt_call or __gcc_plt_call trampoline\nSuggest linking executable with -g (links in /opt/langtools/lib/end.o)");
2069 /* This is where sr4export will jump to. */
2070 new_fun
= SYMBOL_VALUE_ADDRESS (trampoline
);
2072 if (strcmp (SYMBOL_NAME (trampoline
), "__d_plt_call") == 0)
2074 /* if the function is in a shared library, but we have no import sub for
2075 it, we need to get the plabel from a call to __d_shl_get, which is a
2076 function in end.o. To call this function we need to set up various things */
2078 /* actually now we just use the plabel any time we make the call,
2079 because on 10.30 and 11.00 this is the only acceptable way. This also
2080 works fine for 10.20 */
2081 /* if (!(u && u->stub_unwind.stub_type == IMPORT) && solib_handle) */
2083 struct minimal_symbol
*fmsymbol
= lookup_minimal_symbol_by_pc(fun
);
2085 new_stub
= find_stub_with_shl_get(fmsymbol
, solib_handle
);
2087 if (new_stub
== NULL
)
2088 error("Can't find an import stub for %s", SYMBOL_NAME(fmsymbol
)); /* purecov: deadcode */
2091 /* We have to store the address of the stub in __shlib_funcptr. */
2092 msymbol
= lookup_minimal_symbol ("__shlib_funcptr", NULL
,
2093 (struct objfile
*)NULL
);
2094 if (msymbol
== NULL
)
2095 error ("Can't find an address for __shlib_funcptr"); /* purecov: deadcode */
2097 /* if (new_stub != NULL) */
2098 target_write_memory (SYMBOL_VALUE_ADDRESS (msymbol
), (char *)&new_stub
, 4);
2099 /* this is no longer used */
2101 target_write_memory (SYMBOL_VALUE_ADDRESS (msymbol), (char *)&fun, 4); */
2103 /* We want sr4export to call __d_plt_call, so we claim it is
2104 the final target. Clear trampoline. */
2110 /* Store upper 21 bits of function address into ldil. fun will either be
2111 the final target (most cases) or __d_plt_call when calling into a shared
2112 library and __gcc_plt_call is not available. */
2113 store_unsigned_integer
2114 (&dummy
[FUNC_LDIL_OFFSET
],
2116 deposit_21 (fun
>> 11,
2117 extract_unsigned_integer (&dummy
[FUNC_LDIL_OFFSET
],
2118 INSTRUCTION_SIZE
)));
2120 /* Store lower 11 bits of function address into ldo */
2121 store_unsigned_integer
2122 (&dummy
[FUNC_LDO_OFFSET
],
2124 deposit_14 (fun
& MASK_11
,
2125 extract_unsigned_integer (&dummy
[FUNC_LDO_OFFSET
],
2126 INSTRUCTION_SIZE
)));
2127 #ifdef SR4EXPORT_LDIL_OFFSET
2130 CORE_ADDR trampoline_addr
;
2132 /* We may still need sr4export's address too. */
2134 if (trampoline
== NULL
)
2136 msymbol
= lookup_minimal_symbol ("_sr4export", NULL
, NULL
);
2137 if (msymbol
== NULL
)
2138 error ("Can't find an address for _sr4export trampoline"); /* purecov: deadcode */
2140 trampoline_addr
= SYMBOL_VALUE_ADDRESS (msymbol
);
2143 trampoline_addr
= SYMBOL_VALUE_ADDRESS (trampoline
);
2146 /* Store upper 21 bits of trampoline's address into ldil */
2147 store_unsigned_integer
2148 (&dummy
[SR4EXPORT_LDIL_OFFSET
],
2150 deposit_21 (trampoline_addr
>> 11,
2151 extract_unsigned_integer (&dummy
[SR4EXPORT_LDIL_OFFSET
],
2152 INSTRUCTION_SIZE
)));
2154 /* Store lower 11 bits of trampoline's address into ldo */
2155 store_unsigned_integer
2156 (&dummy
[SR4EXPORT_LDO_OFFSET
],
2158 deposit_14 (trampoline_addr
& MASK_11
,
2159 extract_unsigned_integer (&dummy
[SR4EXPORT_LDO_OFFSET
],
2160 INSTRUCTION_SIZE
)));
2164 write_register (22, pc
);
2166 /* If we are in a syscall, then we should call the stack dummy
2167 directly. $$dyncall is not needed as the kernel sets up the
2168 space id registers properly based on the value in %r31. In
2169 fact calling $$dyncall will not work because the value in %r22
2170 will be clobbered on the syscall exit path.
2172 Similarly if the current PC is in a shared library. Note however,
2173 this scheme won't work if the shared library isn't mapped into
2174 the same space as the stack. */
2177 #ifndef GDB_TARGET_IS_PA_ELF
2178 else if (som_solib_get_got_by_pc (target_read_pc (inferior_pid
)))
2182 return dyncall_addr
;
2189 /* If the pid is in a syscall, then the FP register is not readable.
2190 We'll return zero in that case, rather than attempting to read it
2191 and cause a warning. */
2193 target_read_fp (pid
)
2196 int flags
= read_register (FLAGS_REGNUM
);
2199 return (CORE_ADDR
) 0;
2202 /* This is the only site that may directly read_register () the FP
2203 register. All others must use TARGET_READ_FP (). */
2204 return read_register (FP_REGNUM
);
2208 /* Get the PC from %r31 if currently in a syscall. Also mask out privilege
2212 target_read_pc (pid
)
2215 int flags
= read_register_pid (FLAGS_REGNUM
, pid
);
2217 /* The following test does not belong here. It is OS-specific, and belongs
2219 /* Test SS_INSYSCALL */
2221 return read_register_pid (31, pid
) & ~0x3;
2223 return read_register_pid (PC_REGNUM
, pid
) & ~0x3;
2226 /* Write out the PC. If currently in a syscall, then also write the new
2227 PC value into %r31. */
2230 target_write_pc (v
, pid
)
2234 int flags
= read_register_pid (FLAGS_REGNUM
, pid
);
2236 /* The following test does not belong here. It is OS-specific, and belongs
2238 /* If in a syscall, then set %r31. Also make sure to get the
2239 privilege bits set correctly. */
2240 /* Test SS_INSYSCALL */
2242 write_register_pid (31, v
| 0x3, pid
);
2244 write_register_pid (PC_REGNUM
, v
, pid
);
2245 write_register_pid (NPC_REGNUM
, v
+ 4, pid
);
2248 /* return the alignment of a type in bytes. Structures have the maximum
2249 alignment required by their fields. */
2255 int max_align
, align
, i
;
2256 CHECK_TYPEDEF (type
);
2257 switch (TYPE_CODE (type
))
2262 return TYPE_LENGTH (type
);
2263 case TYPE_CODE_ARRAY
:
2264 return hppa_alignof (TYPE_FIELD_TYPE (type
, 0));
2265 case TYPE_CODE_STRUCT
:
2266 case TYPE_CODE_UNION
:
2268 for (i
= 0; i
< TYPE_NFIELDS (type
); i
++)
2270 /* Bit fields have no real alignment. */
2271 /* if (!TYPE_FIELD_BITPOS (type, i)) */
2272 if (!TYPE_FIELD_BITSIZE (type
, i
)) /* elz: this should be bitsize */
2274 align
= hppa_alignof (TYPE_FIELD_TYPE (type
, i
));
2275 max_align
= max (max_align
, align
);
2284 /* Print the register regnum, or all registers if regnum is -1 */
2287 pa_do_registers_info (regnum
, fpregs
)
2291 char raw_regs
[REGISTER_BYTES
];
2294 /* Make a copy of gdb's save area (may cause actual
2295 reads from the target). */
2296 for (i
= 0; i
< NUM_REGS
; i
++)
2297 read_relative_register_raw_bytes (i
, raw_regs
+ REGISTER_BYTE (i
));
2300 pa_print_registers (raw_regs
, regnum
, fpregs
);
2301 else if (regnum
< FP4_REGNUM
) {
2304 /* Why is the value not passed through "extract_signed_integer"
2305 as in "pa_print_registers" below? */
2306 pa_register_look_aside(raw_regs
, regnum
, ®_val
[0]);
2309 printf_unfiltered ("%s %x\n", REGISTER_NAME (regnum
), reg_val
[1]);
2312 /* Fancy % formats to prevent leading zeros. */
2314 printf_unfiltered("%s %x\n", REGISTER_NAME (regnum
), reg_val
[1]);
2316 printf_unfiltered("%s %x%8.8x\n", REGISTER_NAME (regnum
),
2317 reg_val
[0], reg_val
[1]);
2321 /* Note that real floating point values only start at
2322 FP4_REGNUM. FP0 and up are just status and error
2323 registers, which have integral (bit) values. */
2324 pa_print_fp_reg (regnum
);
2327 /********** new function ********************/
2329 pa_do_strcat_registers_info (regnum
, fpregs
, stream
, precision
)
2333 enum precision_type precision
;
2335 char raw_regs
[REGISTER_BYTES
];
2338 /* Make a copy of gdb's save area (may cause actual
2339 reads from the target). */
2340 for (i
= 0; i
< NUM_REGS
; i
++)
2341 read_relative_register_raw_bytes (i
, raw_regs
+ REGISTER_BYTE (i
));
2344 pa_strcat_registers (raw_regs
, regnum
, fpregs
, stream
);
2346 else if (regnum
< FP4_REGNUM
) {
2349 /* Why is the value not passed through "extract_signed_integer"
2350 as in "pa_print_registers" below? */
2351 pa_register_look_aside(raw_regs
, regnum
, ®_val
[0]);
2354 fprintf_unfiltered (stream
, "%s %x", REGISTER_NAME (regnum
), reg_val
[1]);
2357 /* Fancy % formats to prevent leading zeros. */
2359 fprintf_unfiltered(stream
, "%s %x", REGISTER_NAME (regnum
),
2362 fprintf_unfiltered(stream
, "%s %x%8.8x", REGISTER_NAME (regnum
),
2363 reg_val
[0], reg_val
[1]);
2367 /* Note that real floating point values only start at
2368 FP4_REGNUM. FP0 and up are just status and error
2369 registers, which have integral (bit) values. */
2370 pa_strcat_fp_reg (regnum
, stream
, precision
);
2373 /* If this is a PA2.0 machine, fetch the real 64-bit register
2374 value. Otherwise use the info from gdb's saved register area.
2376 Note that reg_val is really expected to be an array of longs,
2377 with two elements. */
2379 pa_register_look_aside(raw_regs
, regnum
, raw_val
)
2384 static int know_which
= 0; /* False */
2387 unsigned int offset
;
2392 char buf
[MAX_REGISTER_RAW_SIZE
];
2396 if(CPU_PA_RISC2_0
== sysconf(_SC_CPU_VERSION
)) {
2400 know_which
= 1; /* True */
2407 raw_val
[1] = *(long *)(raw_regs
+ REGISTER_BYTE(regnum
));
2411 /* Code below copied from hppah-nat.c, with fixes for wide
2412 registers, using different area of save_state, etc. */
2413 if (regnum
== FLAGS_REGNUM
|| regnum
>= FP0_REGNUM
||
2414 !HAVE_STRUCT_SAVE_STATE_T
|| !HAVE_STRUCT_MEMBER_SS_WIDE
) {
2415 /* Use narrow regs area of save_state and default macro. */
2416 offset
= U_REGS_OFFSET
;
2417 regaddr
= register_addr(regnum
, offset
);
2421 /* Use wide regs area, and calculate registers as 8 bytes wide.
2423 We'd like to do this, but current version of "C" doesn't
2426 offset = offsetof(save_state_t, ss_wide);
2428 Note that to avoid "C" doing typed pointer arithmetic, we
2429 have to cast away the type in our offset calculation:
2430 otherwise we get an offset of 1! */
2432 /* #if the following code out so that this file can still be
2433 compiled on older HPUX boxes (< 10.20) which don't have
2434 this structure/structure member. */
2435 #if HAVE_STRUCT_SAVE_STATE_T == 1 && HAVE_STRUCT_MEMBER_SS_WIDE == 1
2438 offset
= ((int) &temp
.ss_wide
) - ((int) &temp
);
2439 regaddr
= offset
+ regnum
* 8;
2444 for(i
= start
; i
< 2; i
++)
2447 raw_val
[i
] = call_ptrace (PT_RUREGS
, inferior_pid
,
2448 (PTRACE_ARG3_TYPE
) regaddr
, 0);
2451 /* Warning, not error, in case we are attached; sometimes the
2452 kernel doesn't let us at the registers. */
2453 char *err
= safe_strerror (errno
);
2454 char *msg
= alloca (strlen (err
) + 128);
2455 sprintf (msg
, "reading register %s: %s", REGISTER_NAME (regnum
), err
);
2460 regaddr
+= sizeof (long);
2463 if (regnum
== PCOQ_HEAD_REGNUM
|| regnum
== PCOQ_TAIL_REGNUM
)
2464 raw_val
[1] &= ~0x3; /* I think we're masking out space bits */
2470 /* "Info all-reg" command */
2473 pa_print_registers (raw_regs
, regnum
, fpregs
)
2479 long raw_val
[2]; /* Alas, we are compiled so that "long long" is 32 bits */
2482 for (i
= 0; i
< 18; i
++)
2484 for (j
= 0; j
< 4; j
++)
2486 /* Q: Why is the value passed through "extract_signed_integer",
2487 while above, in "pa_do_registers_info" it isn't?
2489 pa_register_look_aside(raw_regs
, i
+(j
*18), &raw_val
[0]);
2491 /* Even fancier % formats to prevent leading zeros
2492 and still maintain the output in columns. */
2494 /* Being big-endian, on this machine the low bits
2495 (the ones we want to look at) are in the second longword. */
2496 long_val
= extract_signed_integer (&raw_val
[1], 4);
2497 printf_filtered ("%8.8s: %8x ",
2498 REGISTER_NAME (i
+(j
*18)), long_val
);
2501 /* raw_val = extract_signed_integer(&raw_val, 8); */
2503 printf_filtered("%8.8s: %8x ",
2504 REGISTER_NAME (i
+(j
*18)), raw_val
[1]);
2506 printf_filtered("%8.8s: %8x%8.8x ", REGISTER_NAME (i
+(j
*18)),
2507 raw_val
[0], raw_val
[1]);
2510 printf_unfiltered ("\n");
2514 for (i
= FP4_REGNUM
; i
< NUM_REGS
; i
++) /* FP4_REGNUM == 72 */
2515 pa_print_fp_reg (i
);
2518 /************* new function ******************/
2520 pa_strcat_registers (raw_regs
, regnum
, fpregs
, stream
)
2527 long raw_val
[2]; /* Alas, we are compiled so that "long long" is 32 bits */
2529 enum precision_type precision
;
2531 precision
= unspecified_precision
;
2533 for (i
= 0; i
< 18; i
++)
2535 for (j
= 0; j
< 4; j
++)
2537 /* Q: Why is the value passed through "extract_signed_integer",
2538 while above, in "pa_do_registers_info" it isn't?
2540 pa_register_look_aside(raw_regs
, i
+(j
*18), &raw_val
[0]);
2542 /* Even fancier % formats to prevent leading zeros
2543 and still maintain the output in columns. */
2545 /* Being big-endian, on this machine the low bits
2546 (the ones we want to look at) are in the second longword. */
2547 long_val
= extract_signed_integer(&raw_val
[1], 4);
2548 fprintf_filtered (stream
, "%8.8s: %8x ", REGISTER_NAME (i
+(j
*18)), long_val
);
2551 /* raw_val = extract_signed_integer(&raw_val, 8); */
2553 fprintf_filtered(stream
, "%8.8s: %8x ", REGISTER_NAME (i
+(j
*18)),
2556 fprintf_filtered(stream
, "%8.8s: %8x%8.8x ", REGISTER_NAME (i
+(j
*18)),
2557 raw_val
[0], raw_val
[1]);
2560 fprintf_unfiltered (stream
, "\n");
2564 for (i
= FP4_REGNUM
; i
< NUM_REGS
; i
++) /* FP4_REGNUM == 72 */
2565 pa_strcat_fp_reg (i
, stream
, precision
);
2572 char raw_buffer
[MAX_REGISTER_RAW_SIZE
];
2573 char virtual_buffer
[MAX_REGISTER_VIRTUAL_SIZE
];
2575 /* Get 32bits of data. */
2576 read_relative_register_raw_bytes (i
, raw_buffer
);
2578 /* Put it in the buffer. No conversions are ever necessary. */
2579 memcpy (virtual_buffer
, raw_buffer
, REGISTER_RAW_SIZE (i
));
2581 fputs_filtered (REGISTER_NAME (i
), gdb_stdout
);
2582 print_spaces_filtered (8 - strlen (REGISTER_NAME (i
)), gdb_stdout
);
2583 fputs_filtered ("(single precision) ", gdb_stdout
);
2585 val_print (REGISTER_VIRTUAL_TYPE (i
), virtual_buffer
, 0, 0, gdb_stdout
, 0,
2586 1, 0, Val_pretty_default
);
2587 printf_filtered ("\n");
2589 /* If "i" is even, then this register can also be a double-precision
2590 FP register. Dump it out as such. */
2593 /* Get the data in raw format for the 2nd half. */
2594 read_relative_register_raw_bytes (i
+ 1, raw_buffer
);
2596 /* Copy it into the appropriate part of the virtual buffer. */
2597 memcpy (virtual_buffer
+ REGISTER_RAW_SIZE (i
), raw_buffer
,
2598 REGISTER_RAW_SIZE (i
));
2600 /* Dump it as a double. */
2601 fputs_filtered (REGISTER_NAME (i
), gdb_stdout
);
2602 print_spaces_filtered (8 - strlen (REGISTER_NAME (i
)), gdb_stdout
);
2603 fputs_filtered ("(double precision) ", gdb_stdout
);
2605 val_print (builtin_type_double
, virtual_buffer
, 0, 0, gdb_stdout
, 0,
2606 1, 0, Val_pretty_default
);
2607 printf_filtered ("\n");
2611 /*************** new function ***********************/
2613 pa_strcat_fp_reg (i
, stream
, precision
)
2616 enum precision_type precision
;
2618 char raw_buffer
[MAX_REGISTER_RAW_SIZE
];
2619 char virtual_buffer
[MAX_REGISTER_VIRTUAL_SIZE
];
2621 fputs_filtered (REGISTER_NAME (i
), stream
);
2622 print_spaces_filtered (8 - strlen (REGISTER_NAME (i
)), stream
);
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 if (precision
== double_precision
&& (i
% 2) == 0)
2633 char raw_buf
[MAX_REGISTER_RAW_SIZE
];
2635 /* Get the data in raw format for the 2nd half. */
2636 read_relative_register_raw_bytes (i
+ 1, raw_buf
);
2638 /* Copy it into the appropriate part of the virtual buffer. */
2639 memcpy (virtual_buffer
+ REGISTER_RAW_SIZE(i
), raw_buf
, REGISTER_RAW_SIZE (i
));
2641 val_print (builtin_type_double
, virtual_buffer
, 0, 0 , stream
, 0,
2642 1, 0, Val_pretty_default
);
2646 val_print (REGISTER_VIRTUAL_TYPE (i
), virtual_buffer
, 0, 0, stream
, 0,
2647 1, 0, Val_pretty_default
);
2652 /* Return one if PC is in the call path of a trampoline, else return zero.
2654 Note we return one for *any* call trampoline (long-call, arg-reloc), not
2655 just shared library trampolines (import, export). */
2658 in_solib_call_trampoline (pc
, name
)
2662 struct minimal_symbol
*minsym
;
2663 struct unwind_table_entry
*u
;
2664 static CORE_ADDR dyncall
= 0;
2665 static CORE_ADDR sr4export
= 0;
2667 /* FIXME XXX - dyncall and sr4export must be initialized whenever we get a
2670 /* First see if PC is in one of the two C-library trampolines. */
2673 minsym
= lookup_minimal_symbol ("$$dyncall", NULL
, NULL
);
2675 dyncall
= SYMBOL_VALUE_ADDRESS (minsym
);
2682 minsym
= lookup_minimal_symbol ("_sr4export", NULL
, NULL
);
2684 sr4export
= SYMBOL_VALUE_ADDRESS (minsym
);
2689 if (pc
== dyncall
|| pc
== sr4export
)
2692 /* Get the unwind descriptor corresponding to PC, return zero
2693 if no unwind was found. */
2694 u
= find_unwind_entry (pc
);
2698 /* If this isn't a linker stub, then return now. */
2699 if (u
->stub_unwind
.stub_type
== 0)
2702 /* By definition a long-branch stub is a call stub. */
2703 if (u
->stub_unwind
.stub_type
== LONG_BRANCH
)
2706 /* The call and return path execute the same instructions within
2707 an IMPORT stub! So an IMPORT stub is both a call and return
2709 if (u
->stub_unwind
.stub_type
== IMPORT
)
2712 /* Parameter relocation stubs always have a call path and may have a
2714 if (u
->stub_unwind
.stub_type
== PARAMETER_RELOCATION
2715 || u
->stub_unwind
.stub_type
== EXPORT
)
2719 /* Search forward from the current PC until we hit a branch
2720 or the end of the stub. */
2721 for (addr
= pc
; addr
<= u
->region_end
; addr
+= 4)
2725 insn
= read_memory_integer (addr
, 4);
2727 /* Does it look like a bl? If so then it's the call path, if
2728 we find a bv or be first, then we're on the return path. */
2729 if ((insn
& 0xfc00e000) == 0xe8000000)
2731 else if ((insn
& 0xfc00e001) == 0xe800c000
2732 || (insn
& 0xfc000000) == 0xe0000000)
2736 /* Should never happen. */
2737 warning ("Unable to find branch in parameter relocation stub.\n"); /* purecov: deadcode */
2738 return 0; /* purecov: deadcode */
2741 /* Unknown stub type. For now, just return zero. */
2742 return 0; /* purecov: deadcode */
2745 /* Return one if PC is in the return path of a trampoline, else return zero.
2747 Note we return one for *any* call trampoline (long-call, arg-reloc), not
2748 just shared library trampolines (import, export). */
2751 in_solib_return_trampoline (pc
, name
)
2755 struct unwind_table_entry
*u
;
2757 /* Get the unwind descriptor corresponding to PC, return zero
2758 if no unwind was found. */
2759 u
= find_unwind_entry (pc
);
2763 /* If this isn't a linker stub or it's just a long branch stub, then
2765 if (u
->stub_unwind
.stub_type
== 0 || u
->stub_unwind
.stub_type
== LONG_BRANCH
)
2768 /* The call and return path execute the same instructions within
2769 an IMPORT stub! So an IMPORT stub is both a call and return
2771 if (u
->stub_unwind
.stub_type
== IMPORT
)
2774 /* Parameter relocation stubs always have a call path and may have a
2776 if (u
->stub_unwind
.stub_type
== PARAMETER_RELOCATION
2777 || u
->stub_unwind
.stub_type
== EXPORT
)
2781 /* Search forward from the current PC until we hit a branch
2782 or the end of the stub. */
2783 for (addr
= pc
; addr
<= u
->region_end
; addr
+= 4)
2787 insn
= read_memory_integer (addr
, 4);
2789 /* Does it look like a bl? If so then it's the call path, if
2790 we find a bv or be first, then we're on the return path. */
2791 if ((insn
& 0xfc00e000) == 0xe8000000)
2793 else if ((insn
& 0xfc00e001) == 0xe800c000
2794 || (insn
& 0xfc000000) == 0xe0000000)
2798 /* Should never happen. */
2799 warning ("Unable to find branch in parameter relocation stub.\n"); /* purecov: deadcode */
2800 return 0; /* purecov: deadcode */
2803 /* Unknown stub type. For now, just return zero. */
2804 return 0; /* purecov: deadcode */
2808 /* Figure out if PC is in a trampoline, and if so find out where
2809 the trampoline will jump to. If not in a trampoline, return zero.
2811 Simple code examination probably is not a good idea since the code
2812 sequences in trampolines can also appear in user code.
2814 We use unwinds and information from the minimal symbol table to
2815 determine when we're in a trampoline. This won't work for ELF
2816 (yet) since it doesn't create stub unwind entries. Whether or
2817 not ELF will create stub unwinds or normal unwinds for linker
2818 stubs is still being debated.
2820 This should handle simple calls through dyncall or sr4export,
2821 long calls, argument relocation stubs, and dyncall/sr4export
2822 calling an argument relocation stub. It even handles some stubs
2823 used in dynamic executables. */
2827 skip_trampoline_code (pc
, name
)
2831 return find_solib_trampoline_target(pc
);
2837 skip_trampoline_code (pc
, name
)
2842 long prev_inst
, curr_inst
, loc
;
2843 static CORE_ADDR dyncall
= 0;
2844 static CORE_ADDR dyncall_external
= 0;
2845 static CORE_ADDR sr4export
= 0;
2846 struct minimal_symbol
*msym
;
2847 struct unwind_table_entry
*u
;
2850 /* FIXME XXX - dyncall and sr4export must be initialized whenever we get a
2855 msym
= lookup_minimal_symbol ("$$dyncall", NULL
, NULL
);
2857 dyncall
= SYMBOL_VALUE_ADDRESS (msym
);
2862 if (!dyncall_external
)
2864 msym
= lookup_minimal_symbol ("$$dyncall_external", NULL
, NULL
);
2866 dyncall_external
= SYMBOL_VALUE_ADDRESS (msym
);
2868 dyncall_external
= -1;
2873 msym
= lookup_minimal_symbol ("_sr4export", NULL
, NULL
);
2875 sr4export
= SYMBOL_VALUE_ADDRESS (msym
);
2880 /* Addresses passed to dyncall may *NOT* be the actual address
2881 of the function. So we may have to do something special. */
2884 pc
= (CORE_ADDR
) read_register (22);
2886 /* If bit 30 (counting from the left) is on, then pc is the address of
2887 the PLT entry for this function, not the address of the function
2888 itself. Bit 31 has meaning too, but only for MPE. */
2890 pc
= (CORE_ADDR
) read_memory_integer (pc
& ~0x3, 4);
2892 if (pc
== dyncall_external
)
2894 pc
= (CORE_ADDR
) read_register (22);
2895 pc
= (CORE_ADDR
) read_memory_integer (pc
& ~0x3, 4);
2897 else if (pc
== sr4export
)
2898 pc
= (CORE_ADDR
) (read_register (22));
2900 /* Get the unwind descriptor corresponding to PC, return zero
2901 if no unwind was found. */
2902 u
= find_unwind_entry (pc
);
2906 /* If this isn't a linker stub, then return now. */
2907 /* elz: attention here! (FIXME) because of a compiler/linker
2908 error, some stubs which should have a non zero stub_unwind.stub_type
2909 have unfortunately a value of zero. So this function would return here
2910 as if we were not in a trampoline. To fix this, we go look at the partial
2911 symbol information, which reports this guy as a stub.
2912 (FIXME): Unfortunately, we are not that lucky: it turns out that the
2913 partial symbol information is also wrong sometimes. This is because
2914 when it is entered (somread.c::som_symtab_read()) it can happen that
2915 if the type of the symbol (from the som) is Entry, and the symbol is
2916 in a shared library, then it can also be a trampoline. This would
2917 be OK, except that I believe the way they decide if we are ina shared library
2918 does not work. SOOOO..., even if we have a regular function w/o trampolines
2919 its minimal symbol can be assigned type mst_solib_trampoline.
2920 Also, if we find that the symbol is a real stub, then we fix the unwind
2921 descriptor, and define the stub type to be EXPORT.
2922 Hopefully this is correct most of the times. */
2923 if (u
->stub_unwind
.stub_type
== 0)
2926 /* elz: NOTE (FIXME!) once the problem with the unwind information is fixed
2927 we can delete all the code which appears between the lines */
2928 /*--------------------------------------------------------------------------*/
2929 msym
= lookup_minimal_symbol_by_pc (pc
);
2931 if (msym
== NULL
|| MSYMBOL_TYPE (msym
) != mst_solib_trampoline
)
2932 return orig_pc
== pc
? 0 : pc
& ~0x3;
2934 else if (msym
!= NULL
&& MSYMBOL_TYPE (msym
) == mst_solib_trampoline
)
2936 struct objfile
*objfile
;
2937 struct minimal_symbol
*msymbol
;
2938 int function_found
= 0;
2940 /* go look if there is another minimal symbol with the same name as
2941 this one, but with type mst_text. This would happen if the msym
2942 is an actual trampoline, in which case there would be another
2943 symbol with the same name corresponding to the real function */
2945 ALL_MSYMBOLS (objfile
, msymbol
)
2947 if (MSYMBOL_TYPE (msymbol
) == mst_text
2948 && STREQ (SYMBOL_NAME (msymbol
) , SYMBOL_NAME (msym
)))
2956 /* the type of msym is correct (mst_solib_trampoline), but
2957 the unwind info is wrong, so set it to the correct value */
2958 u
->stub_unwind
.stub_type
= EXPORT
;
2960 /* the stub type info in the unwind is correct (this is not a
2961 trampoline), but the msym type information is wrong, it
2962 should be mst_text. So we need to fix the msym, and also
2963 get out of this function */
2965 MSYMBOL_TYPE (msym
) = mst_text
;
2966 return orig_pc
== pc
? 0 : pc
& ~0x3;
2970 /*--------------------------------------------------------------------------*/
2973 /* It's a stub. Search for a branch and figure out where it goes.
2974 Note we have to handle multi insn branch sequences like ldil;ble.
2975 Most (all?) other branches can be determined by examining the contents
2976 of certain registers and the stack. */
2983 /* Make sure we haven't walked outside the range of this stub. */
2984 if (u
!= find_unwind_entry (loc
))
2986 warning ("Unable to find branch in linker stub");
2987 return orig_pc
== pc
? 0 : pc
& ~0x3;
2990 prev_inst
= curr_inst
;
2991 curr_inst
= read_memory_integer (loc
, 4);
2993 /* Does it look like a branch external using %r1? Then it's the
2994 branch from the stub to the actual function. */
2995 if ((curr_inst
& 0xffe0e000) == 0xe0202000)
2997 /* Yup. See if the previous instruction loaded
2998 a value into %r1. If so compute and return the jump address. */
2999 if ((prev_inst
& 0xffe00000) == 0x20200000)
3000 return (extract_21 (prev_inst
) + extract_17 (curr_inst
)) & ~0x3;
3003 warning ("Unable to find ldil X,%%r1 before ble Y(%%sr4,%%r1).");
3004 return orig_pc
== pc
? 0 : pc
& ~0x3;
3008 /* Does it look like a be 0(sr0,%r21)? OR
3009 Does it look like a be, n 0(sr0,%r21)? OR
3010 Does it look like a bve (r21)? (this is on PA2.0)
3011 Does it look like a bve, n(r21)? (this is also on PA2.0)
3012 That's the branch from an
3013 import stub to an export stub.
3015 It is impossible to determine the target of the branch via
3016 simple examination of instructions and/or data (consider
3017 that the address in the plabel may be the address of the
3018 bind-on-reference routine in the dynamic loader).
3020 So we have try an alternative approach.
3022 Get the name of the symbol at our current location; it should
3023 be a stub symbol with the same name as the symbol in the
3026 Then lookup a minimal symbol with the same name; we should
3027 get the minimal symbol for the target routine in the shared
3028 library as those take precedence of import/export stubs. */
3029 if ((curr_inst
== 0xe2a00000) ||
3030 (curr_inst
== 0xe2a00002) ||
3031 (curr_inst
== 0xeaa0d000) ||
3032 (curr_inst
== 0xeaa0d002))
3034 struct minimal_symbol
*stubsym
, *libsym
;
3036 stubsym
= lookup_minimal_symbol_by_pc (loc
);
3037 if (stubsym
== NULL
)
3039 warning ("Unable to find symbol for 0x%x", loc
);
3040 return orig_pc
== pc
? 0 : pc
& ~0x3;
3043 libsym
= lookup_minimal_symbol (SYMBOL_NAME (stubsym
), NULL
, NULL
);
3046 warning ("Unable to find library symbol for %s\n",
3047 SYMBOL_NAME (stubsym
));
3048 return orig_pc
== pc
? 0 : pc
& ~0x3;
3051 return SYMBOL_VALUE (libsym
);
3054 /* Does it look like bl X,%rp or bl X,%r0? Another way to do a
3055 branch from the stub to the actual function. */
3057 else if ((curr_inst
& 0xffe0e000) == 0xe8400000
3058 || (curr_inst
& 0xffe0e000) == 0xe8000000
3059 || (curr_inst
& 0xffe0e000) == 0xe800A000)
3060 return (loc
+ extract_17 (curr_inst
) + 8) & ~0x3;
3062 /* Does it look like bv (rp)? Note this depends on the
3063 current stack pointer being the same as the stack
3064 pointer in the stub itself! This is a branch on from the
3065 stub back to the original caller. */
3066 /*else if ((curr_inst & 0xffe0e000) == 0xe840c000)*/
3067 else if ((curr_inst
& 0xffe0f000) == 0xe840c000)
3069 /* Yup. See if the previous instruction loaded
3071 if (prev_inst
== 0x4bc23ff1)
3072 return (read_memory_integer
3073 (read_register (SP_REGNUM
) - 8, 4)) & ~0x3;
3076 warning ("Unable to find restore of %%rp before bv (%%rp).");
3077 return orig_pc
== pc
? 0 : pc
& ~0x3;
3081 /* elz: added this case to capture the new instruction
3082 at the end of the return part of an export stub used by
3083 the PA2.0: BVE, n (rp) */
3084 else if ((curr_inst
& 0xffe0f000) == 0xe840d000)
3086 return (read_memory_integer
3087 (read_register (SP_REGNUM
) - 24, 4)) & ~0x3;
3090 /* What about be,n 0(sr0,%rp)? It's just another way we return to
3091 the original caller from the stub. Used in dynamic executables. */
3092 else if (curr_inst
== 0xe0400002)
3094 /* The value we jump to is sitting in sp - 24. But that's
3095 loaded several instructions before the be instruction.
3096 I guess we could check for the previous instruction being
3097 mtsp %r1,%sr0 if we want to do sanity checking. */
3098 return (read_memory_integer
3099 (read_register (SP_REGNUM
) - 24, 4)) & ~0x3;
3102 /* Haven't found the branch yet, but we're still in the stub.
3109 /* For the given instruction (INST), return any adjustment it makes
3110 to the stack pointer or zero for no adjustment.
3112 This only handles instructions commonly found in prologues. */
3115 prologue_inst_adjust_sp (inst
)
3118 /* This must persist across calls. */
3119 static int save_high21
;
3121 /* The most common way to perform a stack adjustment ldo X(sp),sp */
3122 if ((inst
& 0xffffc000) == 0x37de0000)
3123 return extract_14 (inst
);
3126 if ((inst
& 0xffe00000) == 0x6fc00000)
3127 return extract_14 (inst
);
3129 /* addil high21,%r1; ldo low11,(%r1),%r30)
3130 save high bits in save_high21 for later use. */
3131 if ((inst
& 0xffe00000) == 0x28200000)
3133 save_high21
= extract_21 (inst
);
3137 if ((inst
& 0xffff0000) == 0x343e0000)
3138 return save_high21
+ extract_14 (inst
);
3140 /* fstws as used by the HP compilers. */
3141 if ((inst
& 0xffffffe0) == 0x2fd01220)
3142 return extract_5_load (inst
);
3144 /* No adjustment. */
3148 /* Return nonzero if INST is a branch of some kind, else return zero. */
3178 /* Return the register number for a GR which is saved by INST or
3179 zero it INST does not save a GR. */
3182 inst_saves_gr (inst
)
3185 /* Does it look like a stw? */
3186 if ((inst
>> 26) == 0x1a)
3187 return extract_5R_store (inst
);
3189 /* Does it look like a stwm? GCC & HPC may use this in prologues. */
3190 if ((inst
>> 26) == 0x1b)
3191 return extract_5R_store (inst
);
3193 /* Does it look like sth or stb? HPC versions 9.0 and later use these
3195 if ((inst
>> 26) == 0x19 || (inst
>> 26) == 0x18)
3196 return extract_5R_store (inst
);
3201 /* Return the register number for a FR which is saved by INST or
3202 zero it INST does not save a FR.
3204 Note we only care about full 64bit register stores (that's the only
3205 kind of stores the prologue will use).
3207 FIXME: What about argument stores with the HP compiler in ANSI mode? */
3210 inst_saves_fr (inst
)
3213 /* is this an FSTDS ?*/
3214 if ((inst
& 0xfc00dfc0) == 0x2c001200)
3215 return extract_5r_store (inst
);
3216 /* is this an FSTWS ?*/
3217 if ((inst
& 0xfc00df80) == 0x24001200)
3218 return extract_5r_store (inst
);
3222 /* Advance PC across any function entry prologue instructions
3223 to reach some "real" code.
3225 Use information in the unwind table to determine what exactly should
3226 be in the prologue. */
3230 skip_prologue_hard_way (pc
)
3234 CORE_ADDR orig_pc
= pc
;
3235 unsigned long inst
, stack_remaining
, save_gr
, save_fr
, save_rp
, save_sp
;
3236 unsigned long args_stored
, status
, i
, restart_gr
, restart_fr
;
3237 struct unwind_table_entry
*u
;
3243 u
= find_unwind_entry (pc
);
3247 /* If we are not at the beginning of a function, then return now. */
3248 if ((pc
& ~0x3) != u
->region_start
)
3251 /* This is how much of a frame adjustment we need to account for. */
3252 stack_remaining
= u
->Total_frame_size
<< 3;
3254 /* Magic register saves we want to know about. */
3255 save_rp
= u
->Save_RP
;
3256 save_sp
= u
->Save_SP
;
3258 /* An indication that args may be stored into the stack. Unfortunately
3259 the HPUX compilers tend to set this in cases where no args were
3263 /* Turn the Entry_GR field into a bitmask. */
3265 for (i
= 3; i
< u
->Entry_GR
+ 3; i
++)
3267 /* Frame pointer gets saved into a special location. */
3268 if (u
->Save_SP
&& i
== FP_REGNUM
)
3271 save_gr
|= (1 << i
);
3273 save_gr
&= ~restart_gr
;
3275 /* Turn the Entry_FR field into a bitmask too. */
3277 for (i
= 12; i
< u
->Entry_FR
+ 12; i
++)
3278 save_fr
|= (1 << i
);
3279 save_fr
&= ~restart_fr
;
3281 /* Loop until we find everything of interest or hit a branch.
3283 For unoptimized GCC code and for any HP CC code this will never ever
3284 examine any user instructions.
3286 For optimzied GCC code we're faced with problems. GCC will schedule
3287 its prologue and make prologue instructions available for delay slot
3288 filling. The end result is user code gets mixed in with the prologue
3289 and a prologue instruction may be in the delay slot of the first branch
3292 Some unexpected things are expected with debugging optimized code, so
3293 we allow this routine to walk past user instructions in optimized
3295 while (save_gr
|| save_fr
|| save_rp
|| save_sp
|| stack_remaining
> 0
3298 unsigned int reg_num
;
3299 unsigned long old_stack_remaining
, old_save_gr
, old_save_fr
;
3300 unsigned long old_save_rp
, old_save_sp
, next_inst
;
3302 /* Save copies of all the triggers so we can compare them later
3304 old_save_gr
= save_gr
;
3305 old_save_fr
= save_fr
;
3306 old_save_rp
= save_rp
;
3307 old_save_sp
= save_sp
;
3308 old_stack_remaining
= stack_remaining
;
3310 status
= target_read_memory (pc
, buf
, 4);
3311 inst
= extract_unsigned_integer (buf
, 4);
3317 /* Note the interesting effects of this instruction. */
3318 stack_remaining
-= prologue_inst_adjust_sp (inst
);
3320 /* There is only one instruction used for saving RP into the stack. */
3321 if (inst
== 0x6bc23fd9)
3324 /* This is the only way we save SP into the stack. At this time
3325 the HP compilers never bother to save SP into the stack. */
3326 if ((inst
& 0xffffc000) == 0x6fc10000)
3329 /* Account for general and floating-point register saves. */
3330 reg_num
= inst_saves_gr (inst
);
3331 save_gr
&= ~(1 << reg_num
);
3333 /* Ugh. Also account for argument stores into the stack.
3334 Unfortunately args_stored only tells us that some arguments
3335 where stored into the stack. Not how many or what kind!
3337 This is a kludge as on the HP compiler sets this bit and it
3338 never does prologue scheduling. So once we see one, skip past
3339 all of them. We have similar code for the fp arg stores below.
3341 FIXME. Can still die if we have a mix of GR and FR argument
3343 if (reg_num
>= 23 && reg_num
<= 26)
3345 while (reg_num
>= 23 && reg_num
<= 26)
3348 status
= target_read_memory (pc
, buf
, 4);
3349 inst
= extract_unsigned_integer (buf
, 4);
3352 reg_num
= inst_saves_gr (inst
);
3358 reg_num
= inst_saves_fr (inst
);
3359 save_fr
&= ~(1 << reg_num
);
3361 status
= target_read_memory (pc
+ 4, buf
, 4);
3362 next_inst
= extract_unsigned_integer (buf
, 4);
3368 /* We've got to be read to handle the ldo before the fp register
3370 if ((inst
& 0xfc000000) == 0x34000000
3371 && inst_saves_fr (next_inst
) >= 4
3372 && inst_saves_fr (next_inst
) <= 7)
3374 /* So we drop into the code below in a reasonable state. */
3375 reg_num
= inst_saves_fr (next_inst
);
3379 /* Ugh. Also account for argument stores into the stack.
3380 This is a kludge as on the HP compiler sets this bit and it
3381 never does prologue scheduling. So once we see one, skip past
3383 if (reg_num
>= 4 && reg_num
<= 7)
3385 while (reg_num
>= 4 && reg_num
<= 7)
3388 status
= target_read_memory (pc
, buf
, 4);
3389 inst
= extract_unsigned_integer (buf
, 4);
3392 if ((inst
& 0xfc000000) != 0x34000000)
3394 status
= target_read_memory (pc
+ 4, buf
, 4);
3395 next_inst
= extract_unsigned_integer (buf
, 4);
3398 reg_num
= inst_saves_fr (next_inst
);
3404 /* Quit if we hit any kind of branch. This can happen if a prologue
3405 instruction is in the delay slot of the first call/branch. */
3406 if (is_branch (inst
))
3409 /* What a crock. The HP compilers set args_stored even if no
3410 arguments were stored into the stack (boo hiss). This could
3411 cause this code to then skip a bunch of user insns (up to the
3414 To combat this we try to identify when args_stored was bogusly
3415 set and clear it. We only do this when args_stored is nonzero,
3416 all other resources are accounted for, and nothing changed on
3419 && ! (save_gr
|| save_fr
|| save_rp
|| save_sp
|| stack_remaining
> 0)
3420 && old_save_gr
== save_gr
&& old_save_fr
== save_fr
3421 && old_save_rp
== save_rp
&& old_save_sp
== save_sp
3422 && old_stack_remaining
== stack_remaining
)
3429 /* We've got a tenative location for the end of the prologue. However
3430 because of limitations in the unwind descriptor mechanism we may
3431 have went too far into user code looking for the save of a register
3432 that does not exist. So, if there registers we expected to be saved
3433 but never were, mask them out and restart.
3435 This should only happen in optimized code, and should be very rare. */
3436 if (save_gr
|| (save_fr
&& ! (restart_fr
|| restart_gr
)))
3439 restart_gr
= save_gr
;
3440 restart_fr
= save_fr
;
3451 /* return 0 if we cannot determine the end of the prologue,
3452 return the new pc value if we know where the prologue ends */
3458 struct symtab_and_line sal
;
3459 CORE_ADDR func_addr
, func_end
;
3462 if (!find_pc_partial_function (pc
, NULL
, &func_addr
, &func_end
))
3463 return 0; /* Unknown */
3465 f
= find_pc_function (pc
);
3467 return 0; /* no debug info, do it the hard way! */
3469 sal
= find_pc_line (func_addr
, 0);
3471 if (sal
.end
< func_end
)
3473 /* this happens when the function has no prologue, because the way
3474 find_pc_line works: elz. Note: this may not be a very good
3475 way to decide whether a function has a prologue or not, but
3476 it is the best I can do with the info available
3477 Also, this will work for functions like: int f()
3481 I.e. the bp will be inserted at the first open brace.
3482 For functions where the body is only one line written like this:
3485 this will make the breakpoint to be at the last brace, after the body
3486 has been executed already. What's the point of stepping through a function
3487 without any variables anyway?? */
3489 if ((SYMBOL_LINE(f
) > 0) && (SYMBOL_LINE(f
) < sal
.line
))
3490 return pc
; /*no adjusment will be made*/
3492 return sal
.end
; /* this is the end of the prologue */
3494 /* The line after the prologue is after the end of the function. In this
3495 case, put the end of the prologue is the beginning of the function. */
3496 /* This should happen only when the function is prologueless and has no
3497 code in it. For instance void dumb(){} Note: this kind of function
3498 is used quite a lot in the test system */
3500 else return pc
; /* no adjustment will be made */
3503 /* To skip prologues, I use this predicate. Returns either PC itself
3504 if the code at PC does not look like a function prologue; otherwise
3505 returns an address that (if we're lucky) follows the prologue. If
3506 LENIENT, then we must skip everything which is involved in setting
3507 up the frame (it's OK to skip more, just so long as we don't skip
3508 anything which might clobber the registers which are being saved.
3509 Currently we must not skip more on the alpha, but we might the lenient
3518 CORE_ADDR post_prologue_pc
;
3521 #ifdef GDB_TARGET_HAS_SHARED_LIBS
3522 /* Silently return the unaltered pc upon memory errors.
3523 This could happen on OSF/1 if decode_line_1 tries to skip the
3524 prologue for quickstarted shared library functions when the
3525 shared library is not yet mapped in.
3526 Reading target memory is slow over serial lines, so we perform
3527 this check only if the target has shared libraries. */
3528 if (target_read_memory (pc
, buf
, 4))
3532 /* See if we can determine the end of the prologue via the symbol table.
3533 If so, then return either PC, or the PC after the prologue, whichever
3536 post_prologue_pc
= after_prologue (pc
);
3538 if (post_prologue_pc
!= 0)
3539 return max (pc
, post_prologue_pc
);
3542 /* Can't determine prologue from the symbol table, (this can happen if there
3543 is no debug information) so we need to fall back on the old code, which
3544 looks at the instructions */
3545 /* FIXME (elz) !!!!: this may create a problem if, once the bp is hit, the user says
3546 where: the backtrace info is not right: this is because the point at which we
3547 break is at the very first instruction of the function. At this time the stuff that
3548 needs to be saved on the stack, has not been saved yet, so the backtrace
3549 cannot know all it needs to know. This will need to be fixed in the
3550 actual backtrace code. (Note: this is what DDE does) */
3554 return (skip_prologue_hard_way(pc
));
3557 /* elz: I am keeping this code around just in case, but remember, all the
3558 instructions are for alpha: you should change all to the hppa instructions */
3560 /* Can't determine prologue from the symbol table, need to examine
3563 /* Skip the typical prologue instructions. These are the stack adjustment
3564 instruction and the instructions that save registers on the stack
3565 or in the gcc frame. */
3566 for (offset
= 0; offset
< 100; offset
+= 4)
3570 status
= read_memory_nobpt (pc
+ offset
, buf
, 4);
3572 memory_error (status
, pc
+ offset
);
3573 inst
= extract_unsigned_integer (buf
, 4);
3575 /* The alpha has no delay slots. But let's keep the lenient stuff,
3576 we might need it for something else in the future. */
3580 if ((inst
& 0xffff0000) == 0x27bb0000) /* ldah $gp,n($t12) */
3582 if ((inst
& 0xffff0000) == 0x23bd0000) /* lda $gp,n($gp) */
3584 if ((inst
& 0xffff0000) == 0x23de0000) /* lda $sp,n($sp) */
3586 else if ((inst
& 0xfc1f0000) == 0xb41e0000
3587 && (inst
& 0xffff0000) != 0xb7fe0000)
3588 continue; /* stq reg,n($sp) */
3590 else if ((inst
& 0xfc1f0000) == 0x9c1e0000
3591 && (inst
& 0xffff0000) != 0x9ffe0000)
3592 continue; /* stt reg,n($sp) */
3594 else if (inst
== 0x47de040f) /* bis sp,sp,fp */
3603 /* Put here the code to store, into a struct frame_saved_regs,
3604 the addresses of the saved registers of frame described by FRAME_INFO.
3605 This includes special registers such as pc and fp saved in special
3606 ways in the stack frame. sp is even more special:
3607 the address we return for it IS the sp for the next frame. */
3610 hppa_frame_find_saved_regs (frame_info
, frame_saved_regs
)
3611 struct frame_info
*frame_info
;
3612 struct frame_saved_regs
*frame_saved_regs
;
3615 struct unwind_table_entry
*u
;
3616 unsigned long inst
, stack_remaining
, save_gr
, save_fr
, save_rp
, save_sp
;
3621 /* Zero out everything. */
3622 memset (frame_saved_regs
, '\0', sizeof (struct frame_saved_regs
));
3624 /* Call dummy frames always look the same, so there's no need to
3625 examine the dummy code to determine locations of saved registers;
3626 instead, let find_dummy_frame_regs fill in the correct offsets
3627 for the saved registers. */
3628 if ((frame_info
->pc
>= frame_info
->frame
3629 && frame_info
->pc
<= (frame_info
->frame
+ CALL_DUMMY_LENGTH
3630 + 32 * 4 + (NUM_REGS
- FP0_REGNUM
) * 8
3632 find_dummy_frame_regs (frame_info
, frame_saved_regs
);
3634 /* Interrupt handlers are special too. They lay out the register
3635 state in the exact same order as the register numbers in GDB. */
3636 if (pc_in_interrupt_handler (frame_info
->pc
))
3638 for (i
= 0; i
< NUM_REGS
; i
++)
3640 /* SP is a little special. */
3642 frame_saved_regs
->regs
[SP_REGNUM
]
3643 = read_memory_integer (frame_info
->frame
+ SP_REGNUM
* 4, 4);
3645 frame_saved_regs
->regs
[i
] = frame_info
->frame
+ i
* 4;
3650 #ifdef FRAME_FIND_SAVED_REGS_IN_SIGTRAMP
3651 /* Handle signal handler callers. */
3652 if (frame_info
->signal_handler_caller
)
3654 FRAME_FIND_SAVED_REGS_IN_SIGTRAMP (frame_info
, frame_saved_regs
);
3659 /* Get the starting address of the function referred to by the PC
3661 pc
= get_pc_function_start (frame_info
->pc
);
3664 u
= find_unwind_entry (pc
);
3668 /* This is how much of a frame adjustment we need to account for. */
3669 stack_remaining
= u
->Total_frame_size
<< 3;
3671 /* Magic register saves we want to know about. */
3672 save_rp
= u
->Save_RP
;
3673 save_sp
= u
->Save_SP
;
3675 /* Turn the Entry_GR field into a bitmask. */
3677 for (i
= 3; i
< u
->Entry_GR
+ 3; i
++)
3679 /* Frame pointer gets saved into a special location. */
3680 if (u
->Save_SP
&& i
== FP_REGNUM
)
3683 save_gr
|= (1 << i
);
3686 /* Turn the Entry_FR field into a bitmask too. */
3688 for (i
= 12; i
< u
->Entry_FR
+ 12; i
++)
3689 save_fr
|= (1 << i
);
3691 /* The frame always represents the value of %sp at entry to the
3692 current function (and is thus equivalent to the "saved" stack
3694 frame_saved_regs
->regs
[SP_REGNUM
] = frame_info
->frame
;
3696 /* Loop until we find everything of interest or hit a branch.
3698 For unoptimized GCC code and for any HP CC code this will never ever
3699 examine any user instructions.
3701 For optimzied GCC code we're faced with problems. GCC will schedule
3702 its prologue and make prologue instructions available for delay slot
3703 filling. The end result is user code gets mixed in with the prologue
3704 and a prologue instruction may be in the delay slot of the first branch
3707 Some unexpected things are expected with debugging optimized code, so
3708 we allow this routine to walk past user instructions in optimized
3710 while (save_gr
|| save_fr
|| save_rp
|| save_sp
|| stack_remaining
> 0)
3712 status
= target_read_memory (pc
, buf
, 4);
3713 inst
= extract_unsigned_integer (buf
, 4);
3719 /* Note the interesting effects of this instruction. */
3720 stack_remaining
-= prologue_inst_adjust_sp (inst
);
3722 /* There is only one instruction used for saving RP into the stack. */
3723 if (inst
== 0x6bc23fd9)
3726 frame_saved_regs
->regs
[RP_REGNUM
] = frame_info
->frame
- 20;
3729 /* Just note that we found the save of SP into the stack. The
3730 value for frame_saved_regs was computed above. */
3731 if ((inst
& 0xffffc000) == 0x6fc10000)
3734 /* Account for general and floating-point register saves. */
3735 reg
= inst_saves_gr (inst
);
3736 if (reg
>= 3 && reg
<= 18
3737 && (!u
->Save_SP
|| reg
!= FP_REGNUM
))
3739 save_gr
&= ~(1 << reg
);
3741 /* stwm with a positive displacement is a *post modify*. */
3742 if ((inst
>> 26) == 0x1b
3743 && extract_14 (inst
) >= 0)
3744 frame_saved_regs
->regs
[reg
] = frame_info
->frame
;
3747 /* Handle code with and without frame pointers. */
3749 frame_saved_regs
->regs
[reg
]
3750 = frame_info
->frame
+ extract_14 (inst
);
3752 frame_saved_regs
->regs
[reg
]
3753 = frame_info
->frame
+ (u
->Total_frame_size
<< 3)
3754 + extract_14 (inst
);
3759 /* GCC handles callee saved FP regs a little differently.
3761 It emits an instruction to put the value of the start of
3762 the FP store area into %r1. It then uses fstds,ma with
3763 a basereg of %r1 for the stores.
3765 HP CC emits them at the current stack pointer modifying
3766 the stack pointer as it stores each register. */
3768 /* ldo X(%r3),%r1 or ldo X(%r30),%r1. */
3769 if ((inst
& 0xffffc000) == 0x34610000
3770 || (inst
& 0xffffc000) == 0x37c10000)
3771 fp_loc
= extract_14 (inst
);
3773 reg
= inst_saves_fr (inst
);
3774 if (reg
>= 12 && reg
<= 21)
3776 /* Note +4 braindamage below is necessary because the FP status
3777 registers are internally 8 registers rather than the expected
3779 save_fr
&= ~(1 << reg
);
3782 /* 1st HP CC FP register store. After this instruction
3783 we've set enough state that the GCC and HPCC code are
3784 both handled in the same manner. */
3785 frame_saved_regs
->regs
[reg
+ FP4_REGNUM
+ 4] = frame_info
->frame
;
3790 frame_saved_regs
->regs
[reg
+ FP0_REGNUM
+ 4]
3791 = frame_info
->frame
+ fp_loc
;
3796 /* Quit if we hit any kind of branch. This can happen if a prologue
3797 instruction is in the delay slot of the first call/branch. */
3798 if (is_branch (inst
))
3807 /* Exception handling support for the HP-UX ANSI C++ compiler.
3808 The compiler (aCC) provides a callback for exception events;
3809 GDB can set a breakpoint on this callback and find out what
3810 exception event has occurred. */
3812 /* The name of the hook to be set to point to the callback function */
3813 static char HP_ACC_EH_notify_hook
[] = "__eh_notify_hook";
3814 /* The name of the function to be used to set the hook value */
3815 static char HP_ACC_EH_set_hook_value
[] = "__eh_set_hook_value";
3816 /* The name of the callback function in end.o */
3817 static char HP_ACC_EH_notify_callback
[] = "__d_eh_notify_callback";
3818 /* Name of function in end.o on which a break is set (called by above) */
3819 static char HP_ACC_EH_break
[] = "__d_eh_break";
3820 /* Name of flag (in end.o) that enables catching throws */
3821 static char HP_ACC_EH_catch_throw
[] = "__d_eh_catch_throw";
3822 /* Name of flag (in end.o) that enables catching catching */
3823 static char HP_ACC_EH_catch_catch
[] = "__d_eh_catch_catch";
3824 /* The enum used by aCC */
3828 } __eh_notification
;
3830 /* Is exception-handling support available with this executable? */
3831 static int hp_cxx_exception_support
= 0;
3832 /* Has the initialize function been run? */
3833 int hp_cxx_exception_support_initialized
= 0;
3834 /* Similar to above, but imported from breakpoint.c -- non-target-specific */
3835 extern int exception_support_initialized
;
3836 /* Address of __eh_notify_hook */
3837 static CORE_ADDR eh_notify_hook_addr
= NULL
;
3838 /* Address of __d_eh_notify_callback */
3839 static CORE_ADDR eh_notify_callback_addr
= NULL
;
3840 /* Address of __d_eh_break */
3841 static CORE_ADDR eh_break_addr
= NULL
;
3842 /* Address of __d_eh_catch_catch */
3843 static CORE_ADDR eh_catch_catch_addr
= NULL
;
3844 /* Address of __d_eh_catch_throw */
3845 static CORE_ADDR eh_catch_throw_addr
= NULL
;
3846 /* Sal for __d_eh_break */
3847 static struct symtab_and_line
* break_callback_sal
= NULL
;
3849 /* Code in end.c expects __d_pid to be set in the inferior,
3850 otherwise __d_eh_notify_callback doesn't bother to call
3851 __d_eh_break! So we poke the pid into this symbol
3856 setup_d_pid_in_inferior ()
3859 struct minimal_symbol
* msymbol
;
3860 char buf
[4]; /* FIXME 32x64? */
3862 /* Slam the pid of the process into __d_pid; failing is only a warning! */
3863 msymbol
= lookup_minimal_symbol ("__d_pid", NULL
, symfile_objfile
);
3864 if (msymbol
== NULL
)
3866 warning ("Unable to find __d_pid symbol in object file.");
3867 warning ("Suggest linking executable with -g (links in /opt/langtools/lib/end.o).");
3871 anaddr
= SYMBOL_VALUE_ADDRESS (msymbol
);
3872 store_unsigned_integer (buf
, 4, inferior_pid
); /* FIXME 32x64? */
3873 if (target_write_memory (anaddr
, buf
, 4)) /* FIXME 32x64? */
3875 warning ("Unable to write __d_pid");
3876 warning ("Suggest linking executable with -g (links in /opt/langtools/lib/end.o).");
3882 /* Initialize exception catchpoint support by looking for the
3883 necessary hooks/callbacks in end.o, etc., and set the hook value to
3884 point to the required debug function
3890 initialize_hp_cxx_exception_support ()
3892 struct symtabs_and_lines sals
;
3893 struct cleanup
* old_chain
;
3894 struct cleanup
* canonical_strings_chain
= NULL
;
3897 char * addr_end
= NULL
;
3898 char ** canonical
= (char **) NULL
;
3900 struct symbol
* sym
= NULL
;
3901 struct minimal_symbol
* msym
= NULL
;
3902 struct objfile
* objfile
;
3903 asection
*shlib_info
;
3905 /* Detect and disallow recursion. On HP-UX with aCC, infinite
3906 recursion is a possibility because finding the hook for exception
3907 callbacks involves making a call in the inferior, which means
3908 re-inserting breakpoints which can re-invoke this code */
3910 static int recurse
= 0;
3913 hp_cxx_exception_support_initialized
= 0;
3914 exception_support_initialized
= 0;
3918 hp_cxx_exception_support
= 0;
3920 /* First check if we have seen any HP compiled objects; if not,
3921 it is very unlikely that HP's idiosyncratic callback mechanism
3922 for exception handling debug support will be available!
3923 This will percolate back up to breakpoint.c, where our callers
3924 will decide to try the g++ exception-handling support instead. */
3925 if (!hp_som_som_object_present
)
3928 /* We have a SOM executable with SOM debug info; find the hooks */
3930 /* First look for the notify hook provided by aCC runtime libs */
3931 /* If we find this symbol, we conclude that the executable must
3932 have HP aCC exception support built in. If this symbol is not
3933 found, even though we're a HP SOM-SOM file, we may have been
3934 built with some other compiler (not aCC). This results percolates
3935 back up to our callers in breakpoint.c which can decide to
3936 try the g++ style of exception support instead.
3937 If this symbol is found but the other symbols we require are
3938 not found, there is something weird going on, and g++ support
3939 should *not* be tried as an alternative.
3941 ASSUMPTION: Only HP aCC code will have __eh_notify_hook defined.
3942 ASSUMPTION: HP aCC and g++ modules cannot be linked together. */
3944 /* libCsup has this hook; it'll usually be non-debuggable */
3945 msym
= lookup_minimal_symbol (HP_ACC_EH_notify_hook
, NULL
, NULL
);
3948 eh_notify_hook_addr
= SYMBOL_VALUE_ADDRESS (msym
);
3949 hp_cxx_exception_support
= 1;
3953 warning ("Unable to find exception callback hook (%s).", HP_ACC_EH_notify_hook
);
3954 warning ("Executable may not have been compiled debuggable with HP aCC.");
3955 warning ("GDB will be unable to intercept exception events.");
3956 eh_notify_hook_addr
= 0;
3957 hp_cxx_exception_support
= 0;
3961 #if 0 /* DEBUGGING */
3962 printf ("Hook addr found is %lx\n", eh_notify_hook_addr
);
3965 /* Next look for the notify callback routine in end.o */
3966 /* This is always available in the SOM symbol dictionary if end.o is linked in */
3967 msym
= lookup_minimal_symbol (HP_ACC_EH_notify_callback
, NULL
, NULL
);
3970 eh_notify_callback_addr
= SYMBOL_VALUE_ADDRESS (msym
);
3971 hp_cxx_exception_support
= 1;
3975 warning ("Unable to find exception callback routine (%s).", HP_ACC_EH_notify_callback
);
3976 warning ("Suggest linking executable with -g (links in /opt/langtools/lib/end.o).");
3977 warning ("GDB will be unable to intercept exception events.");
3978 eh_notify_callback_addr
= 0;
3982 /* Check whether the executable is dynamically linked or archive bound */
3983 /* With an archive-bound executable we can use the raw addresses we find
3984 for the callback function, etc. without modification. For an executable
3985 with shared libraries, we have to do more work to find the plabel, which
3986 can be the target of a call through $$dyncall from the aCC runtime support
3987 library (libCsup) which is linked shared by default by aCC. */
3988 /* This test below was copied from somsolib.c/somread.c. It may not be a very
3989 reliable one to test that an executable is linked shared. pai/1997-07-18 */
3990 shlib_info
= bfd_get_section_by_name (symfile_objfile
->obfd
, "$SHLIB_INFO$");
3991 if (shlib_info
&& (bfd_section_size (symfile_objfile
->obfd
, shlib_info
) != 0))
3993 /* The minsym we have has the local code address, but that's not the
3994 plabel that can be used by an inter-load-module call. */
3995 /* Find solib handle for main image (which has end.o), and use that
3996 and the min sym as arguments to __d_shl_get() (which does the equivalent
3997 of shl_findsym()) to find the plabel. */
3999 args_for_find_stub args
;
4000 static char message
[] = "Error while finding exception callback hook:\n";
4002 args
.solib_handle
= som_solib_get_solib_by_pc (eh_notify_callback_addr
);
4006 eh_notify_callback_addr
= catch_errors ((int (*) PARAMS ((char *))) cover_find_stub_with_shl_get
,
4008 message
, RETURN_MASK_ALL
);
4011 #if 0 /* DEBUGGING */
4012 printf ("found plabel for eh notify callback: %x\n", eh_notify_callback_addr
);
4015 exception_catchpoints_are_fragile
= 1;
4017 if (!eh_notify_callback_addr
)
4019 /* We can get here either if there is no plabel in the export list
4020 for the main image, or if something strange happened (??) */
4021 warning ("Couldn't find a plabel (indirect function label) for the exception callback.");
4022 warning ("GDB will not be able to intercept exception events.");
4027 exception_catchpoints_are_fragile
= 0;
4029 #if 0 /* DEBUGGING */
4030 printf ("Cb addr found is %lx\n", eh_notify_callback_addr
);
4033 /* Now, look for the breakpointable routine in end.o */
4034 /* This should also be available in the SOM symbol dict. if end.o linked in */
4035 msym
= lookup_minimal_symbol (HP_ACC_EH_break
, NULL
, NULL
);
4038 eh_break_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4039 hp_cxx_exception_support
= 1;
4043 warning ("Unable to find exception callback routine to set breakpoint (%s).", HP_ACC_EH_break
);
4044 warning ("Suggest linking executable with -g (link in /opt/langtools/lib/end.o).");
4045 warning ("GDB will be unable to intercept exception events.");
4050 #if 0 /* DEBUGGING */
4051 printf ("break addr found is %lx\n", eh_break_addr
);
4054 /* Next look for the catch enable flag provided in end.o */
4055 sym
= lookup_symbol (HP_ACC_EH_catch_catch
, (struct block
*) NULL
,
4056 VAR_NAMESPACE
, 0, (struct symtab
**) NULL
);
4057 if (sym
) /* sometimes present in debug info */
4059 eh_catch_catch_addr
= SYMBOL_VALUE_ADDRESS (sym
);
4060 hp_cxx_exception_support
= 1;
4062 else /* otherwise look in SOM symbol dict. */
4064 msym
= lookup_minimal_symbol (HP_ACC_EH_catch_catch
, NULL
, NULL
);
4067 eh_catch_catch_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4068 hp_cxx_exception_support
= 1;
4072 warning ("Unable to enable interception of exception catches.");
4073 warning ("Executable may not have been compiled debuggable with HP aCC.");
4074 warning ("Suggest linking executable with -g (link in /opt/langtools/lib/end.o).");
4079 #if 0 /* DEBUGGING */
4080 printf ("catch catch addr found is %lx\n", eh_catch_catch_addr
);
4083 /* Next look for the catch enable flag provided end.o */
4084 sym
= lookup_symbol (HP_ACC_EH_catch_catch
, (struct block
*) NULL
,
4085 VAR_NAMESPACE
, 0, (struct symtab
**) NULL
);
4086 if (sym
) /* sometimes present in debug info */
4088 eh_catch_throw_addr
= SYMBOL_VALUE_ADDRESS (sym
);
4089 hp_cxx_exception_support
= 1;
4091 else /* otherwise look in SOM symbol dict. */
4093 msym
= lookup_minimal_symbol (HP_ACC_EH_catch_throw
, NULL
, NULL
);
4096 eh_catch_throw_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4097 hp_cxx_exception_support
= 1;
4101 warning ("Unable to enable interception of exception throws.");
4102 warning ("Executable may not have been compiled debuggable with HP aCC.");
4103 warning ("Suggest linking executable with -g (link in /opt/langtools/lib/end.o).");
4108 #if 0 /* DEBUGGING */
4109 printf ("catch throw addr found is %lx\n", eh_catch_throw_addr
);
4113 hp_cxx_exception_support
= 2; /* everything worked so far */
4114 hp_cxx_exception_support_initialized
= 1;
4115 exception_support_initialized
= 1;
4120 /* Target operation for enabling or disabling interception of
4122 KIND is either EX_EVENT_THROW or EX_EVENT_CATCH
4123 ENABLE is either 0 (disable) or 1 (enable).
4124 Return value is NULL if no support found;
4125 -1 if something went wrong,
4126 or a pointer to a symtab/line struct if the breakpointable
4127 address was found. */
4129 struct symtab_and_line
*
4130 child_enable_exception_callback (kind
, enable
)
4131 enum exception_event_kind kind
;
4136 if (!exception_support_initialized
|| !hp_cxx_exception_support_initialized
)
4137 if (!initialize_hp_cxx_exception_support ())
4140 switch (hp_cxx_exception_support
)
4143 /* Assuming no HP support at all */
4146 /* HP support should be present, but something went wrong */
4147 return (struct symtab_and_line
*) -1; /* yuck! */
4148 /* there may be other cases in the future */
4151 /* Set the EH hook to point to the callback routine */
4152 store_unsigned_integer (buf
, 4, enable
? eh_notify_callback_addr
: 0); /* FIXME 32x64 problem */
4153 /* pai: (temp) FIXME should there be a pack operation first? */
4154 if (target_write_memory (eh_notify_hook_addr
, buf
, 4)) /* FIXME 32x64 problem */
4156 warning ("Could not write to target memory for exception event callback.");
4157 warning ("Interception of exception events may not work.");
4158 return (struct symtab_and_line
*) -1;
4162 /* Ensure that __d_pid is set up correctly -- end.c code checks this. :-(*/
4163 if (inferior_pid
> 0)
4165 if (setup_d_pid_in_inferior ())
4166 return (struct symtab_and_line
*) -1;
4170 warning ("Internal error: Invalid inferior pid? Cannot intercept exception events."); /* purecov: deadcode */
4171 return (struct symtab_and_line
*) -1; /* purecov: deadcode */
4177 case EX_EVENT_THROW
:
4178 store_unsigned_integer (buf
, 4, enable
? 1 : 0);
4179 if (target_write_memory (eh_catch_throw_addr
, buf
, 4)) /* FIXME 32x64? */
4181 warning ("Couldn't enable exception throw interception.");
4182 return (struct symtab_and_line
*) -1;
4185 case EX_EVENT_CATCH
:
4186 store_unsigned_integer (buf
, 4, enable
? 1 : 0);
4187 if (target_write_memory (eh_catch_catch_addr
, buf
, 4)) /* FIXME 32x64? */
4189 warning ("Couldn't enable exception catch interception.");
4190 return (struct symtab_and_line
*) -1;
4193 default: /* purecov: deadcode */
4194 error ("Request to enable unknown or unsupported exception event."); /* purecov: deadcode */
4197 /* Copy break address into new sal struct, malloc'ing if needed. */
4198 if (!break_callback_sal
)
4200 break_callback_sal
= (struct symtab_and_line
*) xmalloc (sizeof (struct symtab_and_line
));
4202 INIT_SAL(break_callback_sal
);
4203 break_callback_sal
->symtab
= NULL
;
4204 break_callback_sal
->pc
= eh_break_addr
;
4205 break_callback_sal
->line
= 0;
4206 break_callback_sal
->end
= eh_break_addr
;
4208 return break_callback_sal
;
4211 /* Record some information about the current exception event */
4212 static struct exception_event_record current_ex_event
;
4213 /* Convenience struct */
4214 static struct symtab_and_line null_symtab_and_line
= { NULL
, 0, 0, 0 };
4216 /* Report current exception event. Returns a pointer to a record
4217 that describes the kind of the event, where it was thrown from,
4218 and where it will be caught. More information may be reported
4220 struct exception_event_record
*
4221 child_get_current_exception_event ()
4223 CORE_ADDR event_kind
;
4224 CORE_ADDR throw_addr
;
4225 CORE_ADDR catch_addr
;
4226 struct frame_info
*fi
, *curr_frame
;
4229 curr_frame
= get_current_frame();
4231 return (struct exception_event_record
*) NULL
;
4233 /* Go up one frame to __d_eh_notify_callback, because at the
4234 point when this code is executed, there's garbage in the
4235 arguments of __d_eh_break. */
4236 fi
= find_relative_frame (curr_frame
, &level
);
4238 return (struct exception_event_record
*) NULL
;
4240 select_frame (fi
, -1);
4242 /* Read in the arguments */
4243 /* __d_eh_notify_callback() is called with 3 arguments:
4244 1. event kind catch or throw
4245 2. the target address if known
4246 3. a flag -- not sure what this is. pai/1997-07-17 */
4247 event_kind
= read_register (ARG0_REGNUM
);
4248 catch_addr
= read_register (ARG1_REGNUM
);
4250 /* Now go down to a user frame */
4251 /* For a throw, __d_eh_break is called by
4252 __d_eh_notify_callback which is called by
4253 __notify_throw which is called
4255 For a catch, __d_eh_break is called by
4256 __d_eh_notify_callback which is called by
4257 <stackwalking stuff> which is called by
4258 __throw__<stuff> or __rethrow_<stuff> which is called
4260 /* FIXME: Don't use such magic numbers; search for the frames */
4261 level
= (event_kind
== EX_EVENT_THROW
) ? 3 : 4;
4262 fi
= find_relative_frame (curr_frame
, &level
);
4264 return (struct exception_event_record
*) NULL
;
4266 select_frame (fi
, -1);
4267 throw_addr
= fi
->pc
;
4269 /* Go back to original (top) frame */
4270 select_frame (curr_frame
, -1);
4272 current_ex_event
.kind
= (enum exception_event_kind
) event_kind
;
4273 current_ex_event
.throw_sal
= find_pc_line (throw_addr
, 1);
4274 current_ex_event
.catch_sal
= find_pc_line (catch_addr
, 1);
4276 return ¤t_ex_event
;
4280 #ifdef MAINTENANCE_CMDS
4283 unwind_command (exp
, from_tty
)
4288 struct unwind_table_entry
*u
;
4290 /* If we have an expression, evaluate it and use it as the address. */
4292 if (exp
!= 0 && *exp
!= 0)
4293 address
= parse_and_eval_address (exp
);
4297 u
= find_unwind_entry (address
);
4301 printf_unfiltered ("Can't find unwind table entry for %s\n", exp
);
4305 printf_unfiltered ("unwind_table_entry (0x%x):\n", u
);
4307 printf_unfiltered ("\tregion_start = ");
4308 print_address (u
->region_start
, gdb_stdout
);
4310 printf_unfiltered ("\n\tregion_end = ");
4311 print_address (u
->region_end
, gdb_stdout
);
4314 #define pif(FLD) if (u->FLD) printf_unfiltered (" "#FLD);
4316 #define pif(FLD) if (u->FLD) printf_unfiltered (" FLD");
4319 printf_unfiltered ("\n\tflags =");
4320 pif (Cannot_unwind
);
4322 pif (Millicode_save_sr0
);
4325 pif (Variable_Frame
);
4326 pif (Separate_Package_Body
);
4327 pif (Frame_Extension_Millicode
);
4328 pif (Stack_Overflow_Check
);
4329 pif (Two_Instruction_SP_Increment
);
4333 pif (Save_MRP_in_frame
);
4334 pif (extn_ptr_defined
);
4335 pif (Cleanup_defined
);
4336 pif (MPE_XL_interrupt_marker
);
4337 pif (HP_UX_interrupt_marker
);
4340 putchar_unfiltered ('\n');
4343 #define pin(FLD) printf_unfiltered ("\t"#FLD" = 0x%x\n", u->FLD);
4345 #define pin(FLD) printf_unfiltered ("\tFLD = 0x%x\n", u->FLD);
4348 pin (Region_description
);
4351 pin (Total_frame_size
);
4353 #endif /* MAINTENANCE_CMDS */
4355 #ifdef PREPARE_TO_PROCEED
4357 /* If the user has switched threads, and there is a breakpoint
4358 at the old thread's pc location, then switch to that thread
4359 and return TRUE, else return FALSE and don't do a thread
4360 switch (or rather, don't seem to have done a thread switch).
4362 Ptrace-based gdb will always return FALSE to the thread-switch
4363 query, and thus also to PREPARE_TO_PROCEED.
4365 The important thing is whether there is a BPT instruction,
4366 not how many user breakpoints there are. So we have to worry
4367 about things like these:
4371 o User hits bp, no switch -- NO
4373 o User hits bp, switches threads -- YES
4375 o User hits bp, deletes bp, switches threads -- NO
4377 o User hits bp, deletes one of two or more bps
4378 at that PC, user switches threads -- YES
4380 o Plus, since we're buffering events, the user may have hit a
4381 breakpoint, deleted the breakpoint and then gotten another
4382 hit on that same breakpoint on another thread which
4383 actually hit before the delete. (FIXME in breakpoint.c
4384 so that "dead" breakpoints are ignored?) -- NO
4386 For these reasons, we have to violate information hiding and
4387 call "breakpoint_here_p". If core gdb thinks there is a bpt
4388 here, that's what counts, as core gdb is the one which is
4389 putting the BPT instruction in and taking it out. */
4391 hppa_prepare_to_proceed()
4394 pid_t current_thread
;
4396 old_thread
= hppa_switched_threads(inferior_pid
);
4397 if (old_thread
!= 0)
4399 /* Switched over from "old_thread". Try to do
4400 as little work as possible, 'cause mostly
4401 we're going to switch back. */
4403 CORE_ADDR old_pc
= read_pc();
4405 /* Yuk, shouldn't use global to specify current
4406 thread. But that's how gdb does it. */
4407 current_thread
= inferior_pid
;
4408 inferior_pid
= old_thread
;
4411 if (new_pc
!= old_pc
/* If at same pc, no need */
4412 && breakpoint_here_p (new_pc
))
4414 /* User hasn't deleted the BP.
4415 Return TRUE, finishing switch to "old_thread". */
4416 flush_cached_frames ();
4417 registers_changed ();
4419 printf("---> PREPARE_TO_PROCEED (was %d, now %d)!\n",
4420 current_thread
, inferior_pid
);
4426 /* Otherwise switch back to the user-chosen thread. */
4427 inferior_pid
= current_thread
;
4428 new_pc
= read_pc(); /* Re-prime register cache */
4433 #endif /* PREPARE_TO_PROCEED */
4436 _initialize_hppa_tdep ()
4438 tm_print_insn
= print_insn_hppa
;
4440 #ifdef MAINTENANCE_CMDS
4441 add_cmd ("unwind", class_maintenance
, unwind_command
,
4442 "Print unwind table entry at given address.",
4443 &maintenanceprintlist
);
4444 #endif /* MAINTENANCE_CMDS */