1 /* Target-dependent code for the HP PA architecture, for GDB.
2 Copyright 1986, 87, 89, 90, 91, 92, 93, 94, 95, 96, 1999
3 Free Software Foundation, Inc.
5 Contributed by the Center for Software Science at the
6 University of Utah (pa-gdb-bugs@cs.utah.edu).
8 This file is part of GDB.
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 2 of the License, or
13 (at your option) any later version.
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with this program; if not, write to the Free Software
22 Foundation, Inc., 59 Temple Place - Suite 330,
23 Boston, MA 02111-1307, USA. */
31 /* For argument passing to the inferior */
35 #include <sys/types.h>
39 #include <sys/param.h>
42 #include <sys/ptrace.h>
43 #include <machine/save_state.h>
45 #ifdef COFF_ENCAPSULATE
46 #include "a.out.encap.h"
50 /*#include <sys/user.h> After a.out.h */
61 /* To support asking "What CPU is this?" */
64 /* To support detection of the pseudo-initial frame
66 #define THREAD_INITIAL_FRAME_SYMBOL "__pthread_exit"
67 #define THREAD_INITIAL_FRAME_SYM_LEN sizeof(THREAD_INITIAL_FRAME_SYMBOL)
69 static int extract_5_load
PARAMS ((unsigned int));
71 static unsigned extract_5R_store
PARAMS ((unsigned int));
73 static unsigned extract_5r_store
PARAMS ((unsigned int));
75 static void find_dummy_frame_regs
PARAMS ((struct frame_info
*,
76 struct frame_saved_regs
*));
78 static int find_proc_framesize
PARAMS ((CORE_ADDR
));
80 static int find_return_regnum
PARAMS ((CORE_ADDR
));
82 struct unwind_table_entry
*find_unwind_entry
PARAMS ((CORE_ADDR
));
84 static int extract_17
PARAMS ((unsigned int));
86 static unsigned deposit_21
PARAMS ((unsigned int, unsigned int));
88 static int extract_21
PARAMS ((unsigned));
90 static unsigned deposit_14
PARAMS ((int, unsigned int));
92 static int extract_14
PARAMS ((unsigned));
94 static void unwind_command
PARAMS ((char *, int));
96 static int low_sign_extend
PARAMS ((unsigned int, unsigned int));
98 static int sign_extend
PARAMS ((unsigned int, unsigned int));
100 static int restore_pc_queue
PARAMS ((struct frame_saved_regs
*));
102 static int hppa_alignof
PARAMS ((struct type
*));
104 /* To support multi-threading and stepping. */
105 int hppa_prepare_to_proceed
PARAMS (());
107 static int prologue_inst_adjust_sp
PARAMS ((unsigned long));
109 static int is_branch
PARAMS ((unsigned long));
111 static int inst_saves_gr
PARAMS ((unsigned long));
113 static int inst_saves_fr
PARAMS ((unsigned long));
115 static int pc_in_interrupt_handler
PARAMS ((CORE_ADDR
));
117 static int pc_in_linker_stub
PARAMS ((CORE_ADDR
));
119 static int compare_unwind_entries
PARAMS ((const void *, const void *));
121 static void read_unwind_info
PARAMS ((struct objfile
*));
123 static void internalize_unwinds
PARAMS ((struct objfile
*,
124 struct unwind_table_entry
*,
125 asection
*, unsigned int,
126 unsigned int, CORE_ADDR
));
127 static void pa_print_registers
PARAMS ((char *, int, int));
128 static void pa_strcat_registers
PARAMS ((char *, int, int, GDB_FILE
*));
129 static void pa_register_look_aside
PARAMS ((char *, int, long *));
130 static void pa_print_fp_reg
PARAMS ((int));
131 static void pa_strcat_fp_reg
PARAMS ((int, GDB_FILE
*, enum precision_type
));
132 static void record_text_segment_lowaddr
PARAMS ((bfd
*, asection
*, void *));
136 struct minimal_symbol
*msym
;
137 CORE_ADDR solib_handle
;
138 CORE_ADDR return_val
;
142 static int cover_find_stub_with_shl_get (PTR
);
144 static int is_pa_2
= 0; /* False */
146 /* This is declared in symtab.c; set to 1 in hp-symtab-read.c */
147 extern int hp_som_som_object_present
;
149 /* In breakpoint.c */
150 extern int exception_catchpoints_are_fragile
;
152 /* This is defined in valops.c. */
154 find_function_in_inferior
PARAMS ((char *));
156 /* Should call_function allocate stack space for a struct return? */
158 hppa_use_struct_convention (gcc_p
, type
)
162 return (TYPE_LENGTH (type
) > 8);
166 /* Routines to extract various sized constants out of hppa
169 /* This assumes that no garbage lies outside of the lower bits of
173 sign_extend (val
, bits
)
176 return (int) (val
>> (bits
- 1) ? (-1 << bits
) | val
: val
);
179 /* For many immediate values the sign bit is the low bit! */
182 low_sign_extend (val
, bits
)
185 return (int) ((val
& 0x1 ? (-1 << (bits
- 1)) : 0) | val
>> 1);
188 /* extract the immediate field from a ld{bhw}s instruction */
191 extract_5_load (word
)
194 return low_sign_extend (word
>> 16 & MASK_5
, 5);
197 /* extract the immediate field from a break instruction */
200 extract_5r_store (word
)
203 return (word
& MASK_5
);
206 /* extract the immediate field from a {sr}sm instruction */
209 extract_5R_store (word
)
212 return (word
>> 16 & MASK_5
);
215 /* extract a 14 bit immediate field */
221 return low_sign_extend (word
& MASK_14
, 14);
224 /* deposit a 14 bit constant in a word */
227 deposit_14 (opnd
, word
)
231 unsigned sign
= (opnd
< 0 ? 1 : 0);
233 return word
| ((unsigned) opnd
<< 1 & MASK_14
) | sign
;
236 /* extract a 21 bit constant */
246 val
= GET_FIELD (word
, 20, 20);
248 val
|= GET_FIELD (word
, 9, 19);
250 val
|= GET_FIELD (word
, 5, 6);
252 val
|= GET_FIELD (word
, 0, 4);
254 val
|= GET_FIELD (word
, 7, 8);
255 return sign_extend (val
, 21) << 11;
258 /* deposit a 21 bit constant in a word. Although 21 bit constants are
259 usually the top 21 bits of a 32 bit constant, we assume that only
260 the low 21 bits of opnd are relevant */
263 deposit_21 (opnd
, word
)
268 val
|= GET_FIELD (opnd
, 11 + 14, 11 + 18);
270 val
|= GET_FIELD (opnd
, 11 + 12, 11 + 13);
272 val
|= GET_FIELD (opnd
, 11 + 19, 11 + 20);
274 val
|= GET_FIELD (opnd
, 11 + 1, 11 + 11);
276 val
|= GET_FIELD (opnd
, 11 + 0, 11 + 0);
280 /* extract a 17 bit constant from branch instructions, returning the
281 19 bit signed value. */
287 return sign_extend (GET_FIELD (word
, 19, 28) |
288 GET_FIELD (word
, 29, 29) << 10 |
289 GET_FIELD (word
, 11, 15) << 11 |
290 (word
& 0x1) << 16, 17) << 2;
294 /* Compare the start address for two unwind entries returning 1 if
295 the first address is larger than the second, -1 if the second is
296 larger than the first, and zero if they are equal. */
299 compare_unwind_entries (arg1
, arg2
)
303 const struct unwind_table_entry
*a
= arg1
;
304 const struct unwind_table_entry
*b
= arg2
;
306 if (a
->region_start
> b
->region_start
)
308 else if (a
->region_start
< b
->region_start
)
314 static CORE_ADDR low_text_segment_address
;
317 record_text_segment_lowaddr (abfd
, section
, ignored
)
318 bfd
*abfd ATTRIBUTE_UNUSED
;
320 PTR ignored ATTRIBUTE_UNUSED
;
322 if ((section
->flags
& (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
)
323 == (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
))
324 && section
->vma
< low_text_segment_address
)
325 low_text_segment_address
= section
->vma
;
329 internalize_unwinds (objfile
, table
, section
, entries
, size
, text_offset
)
330 struct objfile
*objfile
;
331 struct unwind_table_entry
*table
;
333 unsigned int entries
, size
;
334 CORE_ADDR text_offset
;
336 /* We will read the unwind entries into temporary memory, then
337 fill in the actual unwind table. */
342 char *buf
= alloca (size
);
344 low_text_segment_address
= -1;
346 /* If addresses are 64 bits wide, then unwinds are supposed to
347 be segment relative offsets instead of absolute addresses. */
348 if (TARGET_PTR_BIT
== 64)
350 bfd_map_over_sections (objfile
->obfd
,
351 record_text_segment_lowaddr
, (PTR
) NULL
);
353 /* ?!? Mask off some low bits. Should this instead subtract
354 out the lowest section's filepos or something like that?
355 This looks very hokey to me. */
356 low_text_segment_address
&= ~0xfff;
357 text_offset
+= low_text_segment_address
;
360 bfd_get_section_contents (objfile
->obfd
, section
, buf
, 0, size
);
362 /* Now internalize the information being careful to handle host/target
364 for (i
= 0; i
< entries
; i
++)
366 table
[i
].region_start
= bfd_get_32 (objfile
->obfd
,
368 table
[i
].region_start
+= text_offset
;
370 table
[i
].region_end
= bfd_get_32 (objfile
->obfd
, (bfd_byte
*) buf
);
371 table
[i
].region_end
+= text_offset
;
373 tmp
= bfd_get_32 (objfile
->obfd
, (bfd_byte
*) buf
);
375 table
[i
].Cannot_unwind
= (tmp
>> 31) & 0x1;
376 table
[i
].Millicode
= (tmp
>> 30) & 0x1;
377 table
[i
].Millicode_save_sr0
= (tmp
>> 29) & 0x1;
378 table
[i
].Region_description
= (tmp
>> 27) & 0x3;
379 table
[i
].reserved1
= (tmp
>> 26) & 0x1;
380 table
[i
].Entry_SR
= (tmp
>> 25) & 0x1;
381 table
[i
].Entry_FR
= (tmp
>> 21) & 0xf;
382 table
[i
].Entry_GR
= (tmp
>> 16) & 0x1f;
383 table
[i
].Args_stored
= (tmp
>> 15) & 0x1;
384 table
[i
].Variable_Frame
= (tmp
>> 14) & 0x1;
385 table
[i
].Separate_Package_Body
= (tmp
>> 13) & 0x1;
386 table
[i
].Frame_Extension_Millicode
= (tmp
>> 12) & 0x1;
387 table
[i
].Stack_Overflow_Check
= (tmp
>> 11) & 0x1;
388 table
[i
].Two_Instruction_SP_Increment
= (tmp
>> 10) & 0x1;
389 table
[i
].Ada_Region
= (tmp
>> 9) & 0x1;
390 table
[i
].cxx_info
= (tmp
>> 8) & 0x1;
391 table
[i
].cxx_try_catch
= (tmp
>> 7) & 0x1;
392 table
[i
].sched_entry_seq
= (tmp
>> 6) & 0x1;
393 table
[i
].reserved2
= (tmp
>> 5) & 0x1;
394 table
[i
].Save_SP
= (tmp
>> 4) & 0x1;
395 table
[i
].Save_RP
= (tmp
>> 3) & 0x1;
396 table
[i
].Save_MRP_in_frame
= (tmp
>> 2) & 0x1;
397 table
[i
].extn_ptr_defined
= (tmp
>> 1) & 0x1;
398 table
[i
].Cleanup_defined
= tmp
& 0x1;
399 tmp
= bfd_get_32 (objfile
->obfd
, (bfd_byte
*) buf
);
401 table
[i
].MPE_XL_interrupt_marker
= (tmp
>> 31) & 0x1;
402 table
[i
].HP_UX_interrupt_marker
= (tmp
>> 30) & 0x1;
403 table
[i
].Large_frame
= (tmp
>> 29) & 0x1;
404 table
[i
].Pseudo_SP_Set
= (tmp
>> 28) & 0x1;
405 table
[i
].reserved4
= (tmp
>> 27) & 0x1;
406 table
[i
].Total_frame_size
= tmp
& 0x7ffffff;
408 /* Stub unwinds are handled elsewhere. */
409 table
[i
].stub_unwind
.stub_type
= 0;
410 table
[i
].stub_unwind
.padding
= 0;
415 /* Read in the backtrace information stored in the `$UNWIND_START$' section of
416 the object file. This info is used mainly by find_unwind_entry() to find
417 out the stack frame size and frame pointer used by procedures. We put
418 everything on the psymbol obstack in the objfile so that it automatically
419 gets freed when the objfile is destroyed. */
422 read_unwind_info (objfile
)
423 struct objfile
*objfile
;
425 asection
*unwind_sec
, *elf_unwind_sec
, *stub_unwind_sec
;
426 unsigned unwind_size
, elf_unwind_size
, stub_unwind_size
, total_size
;
427 unsigned index
, unwind_entries
, elf_unwind_entries
;
428 unsigned stub_entries
, total_entries
;
429 CORE_ADDR text_offset
;
430 struct obj_unwind_info
*ui
;
431 obj_private_data_t
*obj_private
;
433 text_offset
= ANOFFSET (objfile
->section_offsets
, 0);
434 ui
= (struct obj_unwind_info
*) obstack_alloc (&objfile
->psymbol_obstack
,
435 sizeof (struct obj_unwind_info
));
441 /* Get hooks to all unwind sections. Note there is no linker-stub unwind
442 section in ELF at the moment. */
443 unwind_sec
= bfd_get_section_by_name (objfile
->obfd
, "$UNWIND_START$");
444 elf_unwind_sec
= bfd_get_section_by_name (objfile
->obfd
, ".PARISC.unwind");
445 stub_unwind_sec
= bfd_get_section_by_name (objfile
->obfd
, "$UNWIND_END$");
447 /* Get sizes and unwind counts for all sections. */
450 unwind_size
= bfd_section_size (objfile
->obfd
, unwind_sec
);
451 unwind_entries
= unwind_size
/ UNWIND_ENTRY_SIZE
;
461 elf_unwind_size
= bfd_section_size (objfile
->obfd
, elf_unwind_sec
); /* purecov: deadcode */
462 elf_unwind_entries
= elf_unwind_size
/ UNWIND_ENTRY_SIZE
; /* purecov: deadcode */
467 elf_unwind_entries
= 0;
472 stub_unwind_size
= bfd_section_size (objfile
->obfd
, stub_unwind_sec
);
473 stub_entries
= stub_unwind_size
/ STUB_UNWIND_ENTRY_SIZE
;
477 stub_unwind_size
= 0;
481 /* Compute total number of unwind entries and their total size. */
482 total_entries
= unwind_entries
+ elf_unwind_entries
+ stub_entries
;
483 total_size
= total_entries
* sizeof (struct unwind_table_entry
);
485 /* Allocate memory for the unwind table. */
486 ui
->table
= (struct unwind_table_entry
*)
487 obstack_alloc (&objfile
->psymbol_obstack
, total_size
);
488 ui
->last
= total_entries
- 1;
490 /* Internalize the standard unwind entries. */
492 internalize_unwinds (objfile
, &ui
->table
[index
], unwind_sec
,
493 unwind_entries
, unwind_size
, text_offset
);
494 index
+= unwind_entries
;
495 internalize_unwinds (objfile
, &ui
->table
[index
], elf_unwind_sec
,
496 elf_unwind_entries
, elf_unwind_size
, text_offset
);
497 index
+= elf_unwind_entries
;
499 /* Now internalize the stub unwind entries. */
500 if (stub_unwind_size
> 0)
503 char *buf
= alloca (stub_unwind_size
);
505 /* Read in the stub unwind entries. */
506 bfd_get_section_contents (objfile
->obfd
, stub_unwind_sec
, buf
,
507 0, stub_unwind_size
);
509 /* Now convert them into regular unwind entries. */
510 for (i
= 0; i
< stub_entries
; i
++, index
++)
512 /* Clear out the next unwind entry. */
513 memset (&ui
->table
[index
], 0, sizeof (struct unwind_table_entry
));
515 /* Convert offset & size into region_start and region_end.
516 Stuff away the stub type into "reserved" fields. */
517 ui
->table
[index
].region_start
= bfd_get_32 (objfile
->obfd
,
519 ui
->table
[index
].region_start
+= text_offset
;
521 ui
->table
[index
].stub_unwind
.stub_type
= bfd_get_8 (objfile
->obfd
,
524 ui
->table
[index
].region_end
525 = ui
->table
[index
].region_start
+ 4 *
526 (bfd_get_16 (objfile
->obfd
, (bfd_byte
*) buf
) - 1);
532 /* Unwind table needs to be kept sorted. */
533 qsort (ui
->table
, total_entries
, sizeof (struct unwind_table_entry
),
534 compare_unwind_entries
);
536 /* Keep a pointer to the unwind information. */
537 if (objfile
->obj_private
== NULL
)
539 obj_private
= (obj_private_data_t
*)
540 obstack_alloc (&objfile
->psymbol_obstack
,
541 sizeof (obj_private_data_t
));
542 obj_private
->unwind_info
= NULL
;
543 obj_private
->so_info
= NULL
;
546 objfile
->obj_private
= (PTR
) obj_private
;
548 obj_private
= (obj_private_data_t
*) objfile
->obj_private
;
549 obj_private
->unwind_info
= ui
;
552 /* Lookup the unwind (stack backtrace) info for the given PC. We search all
553 of the objfiles seeking the unwind table entry for this PC. Each objfile
554 contains a sorted list of struct unwind_table_entry. Since we do a binary
555 search of the unwind tables, we depend upon them to be sorted. */
557 struct unwind_table_entry
*
558 find_unwind_entry (pc
)
561 int first
, middle
, last
;
562 struct objfile
*objfile
;
564 /* A function at address 0? Not in HP-UX! */
565 if (pc
== (CORE_ADDR
) 0)
568 ALL_OBJFILES (objfile
)
570 struct obj_unwind_info
*ui
;
572 if (objfile
->obj_private
)
573 ui
= ((obj_private_data_t
*) (objfile
->obj_private
))->unwind_info
;
577 read_unwind_info (objfile
);
578 if (objfile
->obj_private
== NULL
)
579 error ("Internal error reading unwind information."); /* purecov: deadcode */
580 ui
= ((obj_private_data_t
*) (objfile
->obj_private
))->unwind_info
;
583 /* First, check the cache */
586 && pc
>= ui
->cache
->region_start
587 && pc
<= ui
->cache
->region_end
)
590 /* Not in the cache, do a binary search */
595 while (first
<= last
)
597 middle
= (first
+ last
) / 2;
598 if (pc
>= ui
->table
[middle
].region_start
599 && pc
<= ui
->table
[middle
].region_end
)
601 ui
->cache
= &ui
->table
[middle
];
602 return &ui
->table
[middle
];
605 if (pc
< ui
->table
[middle
].region_start
)
610 } /* ALL_OBJFILES() */
614 /* Return the adjustment necessary to make for addresses on the stack
615 as presented by hpread.c.
617 This is necessary because of the stack direction on the PA and the
618 bizarre way in which someone (?) decided they wanted to handle
619 frame pointerless code in GDB. */
621 hpread_adjust_stack_address (func_addr
)
624 struct unwind_table_entry
*u
;
626 u
= find_unwind_entry (func_addr
);
630 return u
->Total_frame_size
<< 3;
633 /* Called to determine if PC is in an interrupt handler of some
637 pc_in_interrupt_handler (pc
)
640 struct unwind_table_entry
*u
;
641 struct minimal_symbol
*msym_us
;
643 u
= find_unwind_entry (pc
);
647 /* Oh joys. HPUX sets the interrupt bit for _sigreturn even though
648 its frame isn't a pure interrupt frame. Deal with this. */
649 msym_us
= lookup_minimal_symbol_by_pc (pc
);
651 return u
->HP_UX_interrupt_marker
&& !IN_SIGTRAMP (pc
, SYMBOL_NAME (msym_us
));
654 /* Called when no unwind descriptor was found for PC. Returns 1 if it
655 appears that PC is in a linker stub. */
658 pc_in_linker_stub (pc
)
661 int found_magic_instruction
= 0;
665 /* If unable to read memory, assume pc is not in a linker stub. */
666 if (target_read_memory (pc
, buf
, 4) != 0)
669 /* We are looking for something like
671 ; $$dyncall jams RP into this special spot in the frame (RP')
672 ; before calling the "call stub"
675 ldsid (rp),r1 ; Get space associated with RP into r1
676 mtsp r1,sp ; Move it into space register 0
677 be,n 0(sr0),rp) ; back to your regularly scheduled program */
679 /* Maximum known linker stub size is 4 instructions. Search forward
680 from the given PC, then backward. */
681 for (i
= 0; i
< 4; i
++)
683 /* If we hit something with an unwind, stop searching this direction. */
685 if (find_unwind_entry (pc
+ i
* 4) != 0)
688 /* Check for ldsid (rp),r1 which is the magic instruction for a
689 return from a cross-space function call. */
690 if (read_memory_integer (pc
+ i
* 4, 4) == 0x004010a1)
692 found_magic_instruction
= 1;
695 /* Add code to handle long call/branch and argument relocation stubs
699 if (found_magic_instruction
!= 0)
702 /* Now look backward. */
703 for (i
= 0; i
< 4; i
++)
705 /* If we hit something with an unwind, stop searching this direction. */
707 if (find_unwind_entry (pc
- i
* 4) != 0)
710 /* Check for ldsid (rp),r1 which is the magic instruction for a
711 return from a cross-space function call. */
712 if (read_memory_integer (pc
- i
* 4, 4) == 0x004010a1)
714 found_magic_instruction
= 1;
717 /* Add code to handle long call/branch and argument relocation stubs
720 return found_magic_instruction
;
724 find_return_regnum (pc
)
727 struct unwind_table_entry
*u
;
729 u
= find_unwind_entry (pc
);
740 /* Return size of frame, or -1 if we should use a frame pointer. */
742 find_proc_framesize (pc
)
745 struct unwind_table_entry
*u
;
746 struct minimal_symbol
*msym_us
;
748 /* This may indicate a bug in our callers... */
749 if (pc
== (CORE_ADDR
) 0)
752 u
= find_unwind_entry (pc
);
756 if (pc_in_linker_stub (pc
))
757 /* Linker stubs have a zero size frame. */
763 msym_us
= lookup_minimal_symbol_by_pc (pc
);
765 /* If Save_SP is set, and we're not in an interrupt or signal caller,
766 then we have a frame pointer. Use it. */
767 if (u
->Save_SP
&& !pc_in_interrupt_handler (pc
)
768 && !IN_SIGTRAMP (pc
, SYMBOL_NAME (msym_us
)))
771 return u
->Total_frame_size
<< 3;
774 /* Return offset from sp at which rp is saved, or 0 if not saved. */
775 static int rp_saved
PARAMS ((CORE_ADDR
));
781 struct unwind_table_entry
*u
;
783 /* A function at, and thus a return PC from, address 0? Not in HP-UX! */
784 if (pc
== (CORE_ADDR
) 0)
787 u
= find_unwind_entry (pc
);
791 if (pc_in_linker_stub (pc
))
792 /* This is the so-called RP'. */
799 return (TARGET_PTR_BIT
== 64 ? -16 : -20);
800 else if (u
->stub_unwind
.stub_type
!= 0)
802 switch (u
->stub_unwind
.stub_type
)
807 case PARAMETER_RELOCATION
:
818 frameless_function_invocation (frame
)
819 struct frame_info
*frame
;
821 struct unwind_table_entry
*u
;
823 u
= find_unwind_entry (frame
->pc
);
828 return (u
->Total_frame_size
== 0 && u
->stub_unwind
.stub_type
== 0);
832 saved_pc_after_call (frame
)
833 struct frame_info
*frame
;
837 struct unwind_table_entry
*u
;
839 ret_regnum
= find_return_regnum (get_frame_pc (frame
));
840 pc
= read_register (ret_regnum
) & ~0x3;
842 /* If PC is in a linker stub, then we need to dig the address
843 the stub will return to out of the stack. */
844 u
= find_unwind_entry (pc
);
845 if (u
&& u
->stub_unwind
.stub_type
!= 0)
846 return FRAME_SAVED_PC (frame
);
852 hppa_frame_saved_pc (frame
)
853 struct frame_info
*frame
;
855 CORE_ADDR pc
= get_frame_pc (frame
);
856 struct unwind_table_entry
*u
;
858 int spun_around_loop
= 0;
861 /* BSD, HPUX & OSF1 all lay out the hardware state in the same manner
862 at the base of the frame in an interrupt handler. Registers within
863 are saved in the exact same order as GDB numbers registers. How
865 if (pc_in_interrupt_handler (pc
))
866 return read_memory_integer (frame
->frame
+ PC_REGNUM
* 4,
867 TARGET_PTR_BIT
/ 8) & ~0x3;
869 #ifdef FRAME_SAVED_PC_IN_SIGTRAMP
870 /* Deal with signal handler caller frames too. */
871 if (frame
->signal_handler_caller
)
874 FRAME_SAVED_PC_IN_SIGTRAMP (frame
, &rp
);
879 if (frameless_function_invocation (frame
))
883 ret_regnum
= find_return_regnum (pc
);
885 /* If the next frame is an interrupt frame or a signal
886 handler caller, then we need to look in the saved
887 register area to get the return pointer (the values
888 in the registers may not correspond to anything useful). */
890 && (frame
->next
->signal_handler_caller
891 || pc_in_interrupt_handler (frame
->next
->pc
)))
893 struct frame_saved_regs saved_regs
;
895 get_frame_saved_regs (frame
->next
, &saved_regs
);
896 if (read_memory_integer (saved_regs
.regs
[FLAGS_REGNUM
],
897 TARGET_PTR_BIT
/ 8) & 0x2)
899 pc
= read_memory_integer (saved_regs
.regs
[31],
900 TARGET_PTR_BIT
/ 8) & ~0x3;
902 /* Syscalls are really two frames. The syscall stub itself
903 with a return pointer in %rp and the kernel call with
904 a return pointer in %r31. We return the %rp variant
905 if %r31 is the same as frame->pc. */
907 pc
= read_memory_integer (saved_regs
.regs
[RP_REGNUM
],
908 TARGET_PTR_BIT
/ 8) & ~0x3;
911 pc
= read_memory_integer (saved_regs
.regs
[RP_REGNUM
],
912 TARGET_PTR_BIT
/ 8) & ~0x3;
915 pc
= read_register (ret_regnum
) & ~0x3;
919 spun_around_loop
= 0;
923 rp_offset
= rp_saved (pc
);
925 /* Similar to code in frameless function case. If the next
926 frame is a signal or interrupt handler, then dig the right
927 information out of the saved register info. */
930 && (frame
->next
->signal_handler_caller
931 || pc_in_interrupt_handler (frame
->next
->pc
)))
933 struct frame_saved_regs saved_regs
;
935 get_frame_saved_regs (frame
->next
, &saved_regs
);
936 if (read_memory_integer (saved_regs
.regs
[FLAGS_REGNUM
],
937 TARGET_PTR_BIT
/ 8) & 0x2)
939 pc
= read_memory_integer (saved_regs
.regs
[31],
940 TARGET_PTR_BIT
/ 8) & ~0x3;
942 /* Syscalls are really two frames. The syscall stub itself
943 with a return pointer in %rp and the kernel call with
944 a return pointer in %r31. We return the %rp variant
945 if %r31 is the same as frame->pc. */
947 pc
= read_memory_integer (saved_regs
.regs
[RP_REGNUM
],
948 TARGET_PTR_BIT
/ 8) & ~0x3;
951 pc
= read_memory_integer (saved_regs
.regs
[RP_REGNUM
],
952 TARGET_PTR_BIT
/ 8) & ~0x3;
954 else if (rp_offset
== 0)
957 pc
= read_register (RP_REGNUM
) & ~0x3;
962 pc
= read_memory_integer (frame
->frame
+ rp_offset
,
963 TARGET_PTR_BIT
/ 8) & ~0x3;
967 /* If PC is inside a linker stub, then dig out the address the stub
970 Don't do this for long branch stubs. Why? For some unknown reason
971 _start is marked as a long branch stub in hpux10. */
972 u
= find_unwind_entry (pc
);
973 if (u
&& u
->stub_unwind
.stub_type
!= 0
974 && u
->stub_unwind
.stub_type
!= LONG_BRANCH
)
978 /* If this is a dynamic executable, and we're in a signal handler,
979 then the call chain will eventually point us into the stub for
980 _sigreturn. Unlike most cases, we'll be pointed to the branch
981 to the real sigreturn rather than the code after the real branch!.
983 Else, try to dig the address the stub will return to in the normal
985 insn
= read_memory_integer (pc
, 4);
986 if ((insn
& 0xfc00e000) == 0xe8000000)
987 return (pc
+ extract_17 (insn
) + 8) & ~0x3;
993 if (spun_around_loop
> 1)
995 /* We're just about to go around the loop again with
996 no more hope of success. Die. */
997 error ("Unable to find return pc for this frame");
1007 /* We need to correct the PC and the FP for the outermost frame when we are
1008 in a system call. */
1011 init_extra_frame_info (fromleaf
, frame
)
1013 struct frame_info
*frame
;
1018 if (frame
->next
&& !fromleaf
)
1021 /* If the next frame represents a frameless function invocation
1022 then we have to do some adjustments that are normally done by
1023 FRAME_CHAIN. (FRAME_CHAIN is not called in this case.) */
1026 /* Find the framesize of *this* frame without peeking at the PC
1027 in the current frame structure (it isn't set yet). */
1028 framesize
= find_proc_framesize (FRAME_SAVED_PC (get_next_frame (frame
)));
1030 /* Now adjust our base frame accordingly. If we have a frame pointer
1031 use it, else subtract the size of this frame from the current
1032 frame. (we always want frame->frame to point at the lowest address
1034 if (framesize
== -1)
1035 frame
->frame
= TARGET_READ_FP ();
1037 frame
->frame
-= framesize
;
1041 flags
= read_register (FLAGS_REGNUM
);
1042 if (flags
& 2) /* In system call? */
1043 frame
->pc
= read_register (31) & ~0x3;
1045 /* The outermost frame is always derived from PC-framesize
1047 One might think frameless innermost frames should have
1048 a frame->frame that is the same as the parent's frame->frame.
1049 That is wrong; frame->frame in that case should be the *high*
1050 address of the parent's frame. It's complicated as hell to
1051 explain, but the parent *always* creates some stack space for
1052 the child. So the child actually does have a frame of some
1053 sorts, and its base is the high address in its parent's frame. */
1054 framesize
= find_proc_framesize (frame
->pc
);
1055 if (framesize
== -1)
1056 frame
->frame
= TARGET_READ_FP ();
1058 frame
->frame
= read_register (SP_REGNUM
) - framesize
;
1061 /* Given a GDB frame, determine the address of the calling function's frame.
1062 This will be used to create a new GDB frame struct, and then
1063 INIT_EXTRA_FRAME_INFO and INIT_FRAME_PC will be called for the new frame.
1065 This may involve searching through prologues for several functions
1066 at boundaries where GCC calls HP C code, or where code which has
1067 a frame pointer calls code without a frame pointer. */
1071 struct frame_info
*frame
;
1073 int my_framesize
, caller_framesize
;
1074 struct unwind_table_entry
*u
;
1075 CORE_ADDR frame_base
;
1076 struct frame_info
*tmp_frame
;
1078 CORE_ADDR caller_pc
;
1080 struct minimal_symbol
*min_frame_symbol
;
1081 struct symbol
*frame_symbol
;
1082 char *frame_symbol_name
;
1084 /* If this is a threaded application, and we see the
1085 routine "__pthread_exit", treat it as the stack root
1087 min_frame_symbol
= lookup_minimal_symbol_by_pc (frame
->pc
);
1088 frame_symbol
= find_pc_function (frame
->pc
);
1090 if ((min_frame_symbol
!= 0) /* && (frame_symbol == 0) */ )
1092 /* The test above for "no user function name" would defend
1093 against the slim likelihood that a user might define a
1094 routine named "__pthread_exit" and then try to debug it.
1096 If it weren't commented out, and you tried to debug the
1097 pthread library itself, you'd get errors.
1099 So for today, we don't make that check. */
1100 frame_symbol_name
= SYMBOL_NAME (min_frame_symbol
);
1101 if (frame_symbol_name
!= 0)
1103 if (0 == strncmp (frame_symbol_name
,
1104 THREAD_INITIAL_FRAME_SYMBOL
,
1105 THREAD_INITIAL_FRAME_SYM_LEN
))
1107 /* Pretend we've reached the bottom of the stack. */
1108 return (CORE_ADDR
) 0;
1111 } /* End of hacky code for threads. */
1113 /* Handle HPUX, BSD, and OSF1 style interrupt frames first. These
1114 are easy; at *sp we have a full save state strucutre which we can
1115 pull the old stack pointer from. Also see frame_saved_pc for
1116 code to dig a saved PC out of the save state structure. */
1117 if (pc_in_interrupt_handler (frame
->pc
))
1118 frame_base
= read_memory_integer (frame
->frame
+ SP_REGNUM
* 4,
1119 TARGET_PTR_BIT
/ 8);
1120 #ifdef FRAME_BASE_BEFORE_SIGTRAMP
1121 else if (frame
->signal_handler_caller
)
1123 FRAME_BASE_BEFORE_SIGTRAMP (frame
, &frame_base
);
1127 frame_base
= frame
->frame
;
1129 /* Get frame sizes for the current frame and the frame of the
1131 my_framesize
= find_proc_framesize (frame
->pc
);
1132 caller_pc
= FRAME_SAVED_PC (frame
);
1134 /* If we can't determine the caller's PC, then it's not likely we can
1135 really determine anything meaningful about its frame. We'll consider
1136 this to be stack bottom. */
1137 if (caller_pc
== (CORE_ADDR
) 0)
1138 return (CORE_ADDR
) 0;
1140 caller_framesize
= find_proc_framesize (FRAME_SAVED_PC (frame
));
1142 /* If caller does not have a frame pointer, then its frame
1143 can be found at current_frame - caller_framesize. */
1144 if (caller_framesize
!= -1)
1146 return frame_base
- caller_framesize
;
1148 /* Both caller and callee have frame pointers and are GCC compiled
1149 (SAVE_SP bit in unwind descriptor is on for both functions.
1150 The previous frame pointer is found at the top of the current frame. */
1151 if (caller_framesize
== -1 && my_framesize
== -1)
1153 return read_memory_integer (frame_base
, TARGET_PTR_BIT
/ 8);
1155 /* Caller has a frame pointer, but callee does not. This is a little
1156 more difficult as GCC and HP C lay out locals and callee register save
1157 areas very differently.
1159 The previous frame pointer could be in a register, or in one of
1160 several areas on the stack.
1162 Walk from the current frame to the innermost frame examining
1163 unwind descriptors to determine if %r3 ever gets saved into the
1164 stack. If so return whatever value got saved into the stack.
1165 If it was never saved in the stack, then the value in %r3 is still
1168 We use information from unwind descriptors to determine if %r3
1169 is saved into the stack (Entry_GR field has this information). */
1174 u
= find_unwind_entry (tmp_frame
->pc
);
1178 /* We could find this information by examining prologues. I don't
1179 think anyone has actually written any tools (not even "strip")
1180 which leave them out of an executable, so maybe this is a moot
1182 /* ??rehrauer: Actually, it's quite possible to stepi your way into
1183 code that doesn't have unwind entries. For example, stepping into
1184 the dynamic linker will give you a PC that has none. Thus, I've
1185 disabled this warning. */
1187 warning ("Unable to find unwind for PC 0x%x -- Help!", tmp_frame
->pc
);
1189 return (CORE_ADDR
) 0;
1192 /* Entry_GR specifies the number of callee-saved general registers
1193 saved in the stack. It starts at %r3, so %r3 would be 1. */
1194 if (u
->Entry_GR
>= 1 || u
->Save_SP
1195 || tmp_frame
->signal_handler_caller
1196 || pc_in_interrupt_handler (tmp_frame
->pc
))
1199 tmp_frame
= tmp_frame
->next
;
1204 /* We may have walked down the chain into a function with a frame
1207 && !tmp_frame
->signal_handler_caller
1208 && !pc_in_interrupt_handler (tmp_frame
->pc
))
1210 return read_memory_integer (tmp_frame
->frame
, TARGET_PTR_BIT
/ 8);
1212 /* %r3 was saved somewhere in the stack. Dig it out. */
1215 struct frame_saved_regs saved_regs
;
1219 For optimization purposes many kernels don't have the
1220 callee saved registers into the save_state structure upon
1221 entry into the kernel for a syscall; the optimization
1222 is usually turned off if the process is being traced so
1223 that the debugger can get full register state for the
1226 This scheme works well except for two cases:
1228 * Attaching to a process when the process is in the
1229 kernel performing a system call (debugger can't get
1230 full register state for the inferior process since
1231 the process wasn't being traced when it entered the
1234 * Register state is not complete if the system call
1235 causes the process to core dump.
1238 The following heinous code is an attempt to deal with
1239 the lack of register state in a core dump. It will
1240 fail miserably if the function which performs the
1241 system call has a variable sized stack frame. */
1243 get_frame_saved_regs (tmp_frame
, &saved_regs
);
1245 /* Abominable hack. */
1246 if (current_target
.to_has_execution
== 0
1247 && ((saved_regs
.regs
[FLAGS_REGNUM
]
1248 && (read_memory_integer (saved_regs
.regs
[FLAGS_REGNUM
],
1251 || (saved_regs
.regs
[FLAGS_REGNUM
] == 0
1252 && read_register (FLAGS_REGNUM
) & 0x2)))
1254 u
= find_unwind_entry (FRAME_SAVED_PC (frame
));
1257 return read_memory_integer (saved_regs
.regs
[FP_REGNUM
],
1258 TARGET_PTR_BIT
/ 8);
1262 return frame_base
- (u
->Total_frame_size
<< 3);
1266 return read_memory_integer (saved_regs
.regs
[FP_REGNUM
],
1267 TARGET_PTR_BIT
/ 8);
1272 struct frame_saved_regs saved_regs
;
1274 /* Get the innermost frame. */
1276 while (tmp_frame
->next
!= NULL
)
1277 tmp_frame
= tmp_frame
->next
;
1279 get_frame_saved_regs (tmp_frame
, &saved_regs
);
1280 /* Abominable hack. See above. */
1281 if (current_target
.to_has_execution
== 0
1282 && ((saved_regs
.regs
[FLAGS_REGNUM
]
1283 && (read_memory_integer (saved_regs
.regs
[FLAGS_REGNUM
],
1286 || (saved_regs
.regs
[FLAGS_REGNUM
] == 0
1287 && read_register (FLAGS_REGNUM
) & 0x2)))
1289 u
= find_unwind_entry (FRAME_SAVED_PC (frame
));
1292 return read_memory_integer (saved_regs
.regs
[FP_REGNUM
],
1293 TARGET_PTR_BIT
/ 8);
1297 return frame_base
- (u
->Total_frame_size
<< 3);
1301 /* The value in %r3 was never saved into the stack (thus %r3 still
1302 holds the value of the previous frame pointer). */
1303 return TARGET_READ_FP ();
1308 /* To see if a frame chain is valid, see if the caller looks like it
1309 was compiled with gcc. */
1312 hppa_frame_chain_valid (chain
, thisframe
)
1314 struct frame_info
*thisframe
;
1316 struct minimal_symbol
*msym_us
;
1317 struct minimal_symbol
*msym_start
;
1318 struct unwind_table_entry
*u
, *next_u
= NULL
;
1319 struct frame_info
*next
;
1324 u
= find_unwind_entry (thisframe
->pc
);
1329 /* We can't just check that the same of msym_us is "_start", because
1330 someone idiotically decided that they were going to make a Ltext_end
1331 symbol with the same address. This Ltext_end symbol is totally
1332 indistinguishable (as nearly as I can tell) from the symbol for a function
1333 which is (legitimately, since it is in the user's namespace)
1334 named Ltext_end, so we can't just ignore it. */
1335 msym_us
= lookup_minimal_symbol_by_pc (FRAME_SAVED_PC (thisframe
));
1336 msym_start
= lookup_minimal_symbol ("_start", NULL
, NULL
);
1339 && SYMBOL_VALUE_ADDRESS (msym_us
) == SYMBOL_VALUE_ADDRESS (msym_start
))
1342 /* Grrrr. Some new idiot decided that they don't want _start for the
1343 PRO configurations; $START$ calls main directly.... Deal with it. */
1344 msym_start
= lookup_minimal_symbol ("$START$", NULL
, NULL
);
1347 && SYMBOL_VALUE_ADDRESS (msym_us
) == SYMBOL_VALUE_ADDRESS (msym_start
))
1350 next
= get_next_frame (thisframe
);
1352 next_u
= find_unwind_entry (next
->pc
);
1354 /* If this frame does not save SP, has no stack, isn't a stub,
1355 and doesn't "call" an interrupt routine or signal handler caller,
1356 then its not valid. */
1357 if (u
->Save_SP
|| u
->Total_frame_size
|| u
->stub_unwind
.stub_type
!= 0
1358 || (thisframe
->next
&& thisframe
->next
->signal_handler_caller
)
1359 || (next_u
&& next_u
->HP_UX_interrupt_marker
))
1362 if (pc_in_linker_stub (thisframe
->pc
))
1369 These functions deal with saving and restoring register state
1370 around a function call in the inferior. They keep the stack
1371 double-word aligned; eventually, on an hp700, the stack will have
1372 to be aligned to a 64-byte boundary. */
1375 push_dummy_frame (inf_status
)
1376 struct inferior_status
*inf_status
;
1378 CORE_ADDR sp
, pc
, pcspace
;
1379 register int regnum
;
1380 CORE_ADDR int_buffer
;
1383 /* Oh, what a hack. If we're trying to perform an inferior call
1384 while the inferior is asleep, we have to make sure to clear
1385 the "in system call" bit in the flag register (the call will
1386 start after the syscall returns, so we're no longer in the system
1387 call!) This state is kept in "inf_status", change it there.
1389 We also need a number of horrid hacks to deal with lossage in the
1390 PC queue registers (apparently they're not valid when the in syscall
1392 pc
= target_read_pc (inferior_pid
);
1393 int_buffer
= read_register (FLAGS_REGNUM
);
1394 if (int_buffer
& 0x2)
1398 write_inferior_status_register (inf_status
, 0, int_buffer
);
1399 write_inferior_status_register (inf_status
, PCOQ_HEAD_REGNUM
, pc
+ 0);
1400 write_inferior_status_register (inf_status
, PCOQ_TAIL_REGNUM
, pc
+ 4);
1401 sid
= (pc
>> 30) & 0x3;
1403 pcspace
= read_register (SR4_REGNUM
);
1405 pcspace
= read_register (SR4_REGNUM
+ 4 + sid
);
1406 write_inferior_status_register (inf_status
, PCSQ_HEAD_REGNUM
, pcspace
);
1407 write_inferior_status_register (inf_status
, PCSQ_TAIL_REGNUM
, pcspace
);
1410 pcspace
= read_register (PCSQ_HEAD_REGNUM
);
1412 /* Space for "arguments"; the RP goes in here. */
1413 sp
= read_register (SP_REGNUM
) + 48;
1414 int_buffer
= read_register (RP_REGNUM
) | 0x3;
1416 /* The 32bit and 64bit ABIs save the return pointer into different
1418 if (REGISTER_SIZE
== 8)
1419 write_memory (sp
- 16, (char *) &int_buffer
, REGISTER_SIZE
);
1421 write_memory (sp
- 20, (char *) &int_buffer
, REGISTER_SIZE
);
1423 int_buffer
= TARGET_READ_FP ();
1424 write_memory (sp
, (char *) &int_buffer
, REGISTER_SIZE
);
1426 write_register (FP_REGNUM
, sp
);
1428 sp
+= 2 * REGISTER_SIZE
;
1430 for (regnum
= 1; regnum
< 32; regnum
++)
1431 if (regnum
!= RP_REGNUM
&& regnum
!= FP_REGNUM
)
1432 sp
= push_word (sp
, read_register (regnum
));
1434 /* This is not necessary for the 64bit ABI. In fact it is dangerous. */
1435 if (REGISTER_SIZE
!= 8)
1438 for (regnum
= FP0_REGNUM
; regnum
< NUM_REGS
; regnum
++)
1440 read_register_bytes (REGISTER_BYTE (regnum
), (char *) &freg_buffer
, 8);
1441 sp
= push_bytes (sp
, (char *) &freg_buffer
, 8);
1443 sp
= push_word (sp
, read_register (IPSW_REGNUM
));
1444 sp
= push_word (sp
, read_register (SAR_REGNUM
));
1445 sp
= push_word (sp
, pc
);
1446 sp
= push_word (sp
, pcspace
);
1447 sp
= push_word (sp
, pc
+ 4);
1448 sp
= push_word (sp
, pcspace
);
1449 write_register (SP_REGNUM
, sp
);
1453 find_dummy_frame_regs (frame
, frame_saved_regs
)
1454 struct frame_info
*frame
;
1455 struct frame_saved_regs
*frame_saved_regs
;
1457 CORE_ADDR fp
= frame
->frame
;
1460 /* The 32bit and 64bit ABIs save RP into different locations. */
1461 if (REGISTER_SIZE
== 8)
1462 frame_saved_regs
->regs
[RP_REGNUM
] = (fp
- 16) & ~0x3;
1464 frame_saved_regs
->regs
[RP_REGNUM
] = (fp
- 20) & ~0x3;
1466 frame_saved_regs
->regs
[FP_REGNUM
] = fp
;
1468 frame_saved_regs
->regs
[1] = fp
+ (2 * REGISTER_SIZE
);
1470 for (fp
+= 3 * REGISTER_SIZE
, i
= 3; i
< 32; i
++)
1474 frame_saved_regs
->regs
[i
] = fp
;
1475 fp
+= REGISTER_SIZE
;
1479 /* This is not necessary or desirable for the 64bit ABI. */
1480 if (REGISTER_SIZE
!= 8)
1483 for (i
= FP0_REGNUM
; i
< NUM_REGS
; i
++, fp
+= 8)
1484 frame_saved_regs
->regs
[i
] = fp
;
1486 frame_saved_regs
->regs
[IPSW_REGNUM
] = fp
;
1487 frame_saved_regs
->regs
[SAR_REGNUM
] = fp
+ REGISTER_SIZE
;
1488 frame_saved_regs
->regs
[PCOQ_HEAD_REGNUM
] = fp
+ 2 * REGISTER_SIZE
;
1489 frame_saved_regs
->regs
[PCSQ_HEAD_REGNUM
] = fp
+ 3 * REGISTER_SIZE
;
1490 frame_saved_regs
->regs
[PCOQ_TAIL_REGNUM
] = fp
+ 4 * REGISTER_SIZE
;
1491 frame_saved_regs
->regs
[PCSQ_TAIL_REGNUM
] = fp
+ 5 * REGISTER_SIZE
;
1497 register struct frame_info
*frame
= get_current_frame ();
1498 register CORE_ADDR fp
, npc
, target_pc
;
1499 register int regnum
;
1500 struct frame_saved_regs fsr
;
1503 fp
= FRAME_FP (frame
);
1504 get_frame_saved_regs (frame
, &fsr
);
1506 #ifndef NO_PC_SPACE_QUEUE_RESTORE
1507 if (fsr
.regs
[IPSW_REGNUM
]) /* Restoring a call dummy frame */
1508 restore_pc_queue (&fsr
);
1511 for (regnum
= 31; regnum
> 0; regnum
--)
1512 if (fsr
.regs
[regnum
])
1513 write_register (regnum
, read_memory_integer (fsr
.regs
[regnum
],
1516 for (regnum
= NUM_REGS
- 1; regnum
>= FP0_REGNUM
; regnum
--)
1517 if (fsr
.regs
[regnum
])
1519 read_memory (fsr
.regs
[regnum
], (char *) &freg_buffer
, 8);
1520 write_register_bytes (REGISTER_BYTE (regnum
), (char *) &freg_buffer
, 8);
1523 if (fsr
.regs
[IPSW_REGNUM
])
1524 write_register (IPSW_REGNUM
,
1525 read_memory_integer (fsr
.regs
[IPSW_REGNUM
],
1528 if (fsr
.regs
[SAR_REGNUM
])
1529 write_register (SAR_REGNUM
,
1530 read_memory_integer (fsr
.regs
[SAR_REGNUM
],
1533 /* If the PC was explicitly saved, then just restore it. */
1534 if (fsr
.regs
[PCOQ_TAIL_REGNUM
])
1536 npc
= read_memory_integer (fsr
.regs
[PCOQ_TAIL_REGNUM
],
1538 write_register (PCOQ_TAIL_REGNUM
, npc
);
1540 /* Else use the value in %rp to set the new PC. */
1543 npc
= read_register (RP_REGNUM
);
1547 write_register (FP_REGNUM
, read_memory_integer (fp
, REGISTER_SIZE
));
1549 if (fsr
.regs
[IPSW_REGNUM
]) /* call dummy */
1550 write_register (SP_REGNUM
, fp
- 48);
1552 write_register (SP_REGNUM
, fp
);
1554 /* The PC we just restored may be inside a return trampoline. If so
1555 we want to restart the inferior and run it through the trampoline.
1557 Do this by setting a momentary breakpoint at the location the
1558 trampoline returns to.
1560 Don't skip through the trampoline if we're popping a dummy frame. */
1561 target_pc
= SKIP_TRAMPOLINE_CODE (npc
& ~0x3) & ~0x3;
1562 if (target_pc
&& !fsr
.regs
[IPSW_REGNUM
])
1564 struct symtab_and_line sal
;
1565 struct breakpoint
*breakpoint
;
1566 struct cleanup
*old_chain
;
1568 /* Set up our breakpoint. Set it to be silent as the MI code
1569 for "return_command" will print the frame we returned to. */
1570 sal
= find_pc_line (target_pc
, 0);
1572 breakpoint
= set_momentary_breakpoint (sal
, NULL
, bp_finish
);
1573 breakpoint
->silent
= 1;
1575 /* So we can clean things up. */
1576 old_chain
= make_cleanup ((make_cleanup_func
) delete_breakpoint
, breakpoint
);
1578 /* Start up the inferior. */
1579 clear_proceed_status ();
1580 proceed_to_finish
= 1;
1581 proceed ((CORE_ADDR
) - 1, TARGET_SIGNAL_DEFAULT
, 0);
1583 /* Perform our cleanups. */
1584 do_cleanups (old_chain
);
1586 flush_cached_frames ();
1589 /* After returning to a dummy on the stack, restore the instruction
1590 queue space registers. */
1593 restore_pc_queue (fsr
)
1594 struct frame_saved_regs
*fsr
;
1596 CORE_ADDR pc
= read_pc ();
1597 CORE_ADDR new_pc
= read_memory_integer (fsr
->regs
[PCOQ_HEAD_REGNUM
],
1598 TARGET_PTR_BIT
/ 8);
1599 struct target_waitstatus w
;
1602 /* Advance past break instruction in the call dummy. */
1603 write_register (PCOQ_HEAD_REGNUM
, pc
+ 4);
1604 write_register (PCOQ_TAIL_REGNUM
, pc
+ 8);
1606 /* HPUX doesn't let us set the space registers or the space
1607 registers of the PC queue through ptrace. Boo, hiss.
1608 Conveniently, the call dummy has this sequence of instructions
1613 So, load up the registers and single step until we are in the
1616 write_register (21, read_memory_integer (fsr
->regs
[PCSQ_HEAD_REGNUM
],
1618 write_register (22, new_pc
);
1620 for (insn_count
= 0; insn_count
< 3; insn_count
++)
1622 /* FIXME: What if the inferior gets a signal right now? Want to
1623 merge this into wait_for_inferior (as a special kind of
1624 watchpoint? By setting a breakpoint at the end? Is there
1625 any other choice? Is there *any* way to do this stuff with
1626 ptrace() or some equivalent?). */
1628 target_wait (inferior_pid
, &w
);
1630 if (w
.kind
== TARGET_WAITKIND_SIGNALLED
)
1632 stop_signal
= w
.value
.sig
;
1633 terminal_ours_for_output ();
1634 printf_unfiltered ("\nProgram terminated with signal %s, %s.\n",
1635 target_signal_to_name (stop_signal
),
1636 target_signal_to_string (stop_signal
));
1637 gdb_flush (gdb_stdout
);
1641 target_terminal_ours ();
1642 target_fetch_registers (-1);
1646 /* This function pushes a stack frame with arguments as part of the
1647 inferior function calling mechanism.
1649 For PAs the stack always grows to higher addresses. However the arguments
1650 may grow to either higher or lower addresses depending on which ABI is
1653 We simply allocate the appropriate amount of stack space and put
1654 arguments into their proper slots. The call dummy code will copy
1655 arguments into registers as needed by the ABI.
1657 Note for the PA64 ABI we load up the argument pointer since the caller
1658 must provide the argument pointer to the callee. */
1661 hppa_push_arguments (nargs
, args
, sp
, struct_return
, struct_addr
)
1666 CORE_ADDR struct_addr
;
1668 /* array of arguments' offsets */
1669 int *offset
= (int *) alloca (nargs
* sizeof (int));
1671 /* array of arguments' lengths: real lengths in bytes, not aligned to
1673 int *lengths
= (int *) alloca (nargs
* sizeof (int));
1675 /* The value of SP as it was passed into this function after
1677 CORE_ADDR orig_sp
= STACK_ALIGN (sp
);
1679 /* The number of stack bytes occupied by the current argument. */
1682 /* The total number of bytes reserved for the arguments. */
1683 int cum_bytes_reserved
= 0;
1685 /* Similarly, but aligned. */
1686 int cum_bytes_aligned
= 0;
1689 /* Iterate over each argument provided by the user. */
1690 for (i
= 0; i
< nargs
; i
++)
1692 lengths
[i
] = TYPE_LENGTH (VALUE_TYPE (args
[i
]));
1694 /* Align the size of the argument to the word size for this
1696 bytes_reserved
= (lengths
[i
] + REGISTER_SIZE
- 1) & -REGISTER_SIZE
;
1698 #ifdef ARGS_GROW_DOWNWARD
1699 offset
[i
] = cum_bytes_reserved
+ lengths
[i
];
1701 /* If the arguments grow towards lower addresses, then we want
1702 offset[i] to point to the start of the argument rather than
1703 the end of the argument. */
1704 offset
[i
] = cum_bytes_reserved
;
1706 offset
[i
] += (lengths
[i
] < REGISTER_SIZE
1707 ? REGISTER_SIZE
- lengths
[i
] : 0);
1710 /* If the argument is a double word argument, then it needs to be
1711 double word aligned.
1713 ?!? I do not think this code is correct when !ARGS_GROW_DOWNWAR. */
1714 if ((bytes_reserved
== 2 * REGISTER_SIZE
)
1715 && (offset
[i
] % 2 * REGISTER_SIZE
))
1718 /* BYTES_RESERVED is already aligned to the word, so we put
1719 the argument at one word more down the stack.
1721 This will leave one empty word on the stack, and one unused
1722 register as mandated by the ABI. */
1723 new_offset
= ((offset
[i
] + 2 * REGISTER_SIZE
- 1)
1724 & -(2 * REGISTER_SIZE
));
1726 if ((new_offset
- offset
[i
]) >= 2 * REGISTER_SIZE
)
1728 bytes_reserved
+= REGISTER_SIZE
;
1729 offset
[i
] += REGISTER_SIZE
;
1733 cum_bytes_reserved
+= bytes_reserved
;
1737 /* CUM_BYTES_RESERVED already accounts for all the arguments
1738 passed by the user. However, the ABIs mandate minimum stack space
1739 allocations for outgoing arguments.
1741 The ABIs also mandate minimum stack alignments which we must
1743 cum_bytes_aligned
= STACK_ALIGN (cum_bytes_reserved
);
1744 sp
+= max (cum_bytes_aligned
, REG_PARM_STACK_SPACE
);
1746 /* Now write each of the args at the proper offset down the stack.
1748 The two ABIs write arguments in different directions using different
1749 starting points. What fun.
1751 ?!? We need to promote values to a full register instead of skipping
1752 words in the stack. */
1753 #ifndef ARGS_GROW_DOWNWARD
1754 for (i
= 0; i
< nargs
; i
++)
1755 write_memory (orig_sp
+ offset
[i
], VALUE_CONTENTS (args
[i
]), lengths
[i
]);
1757 for (i
= 0; i
< nargs
; i
++)
1758 write_memory (sp
- offset
[i
], VALUE_CONTENTS (args
[i
]), lengths
[i
]);
1761 /* If a structure has to be returned, set up register 28 to hold its
1764 write_register (28, struct_addr
);
1766 #ifndef ARGS_GROW_DOWNWARD
1767 /* For the PA64 we must pass a pointer to the outgoing argument list.
1768 The ABI mandates that the pointer should point to the first byte of
1769 storage beyond the register flushback area.
1771 However, the call dummy expects the outgoing argument pointer to
1772 be passed in register %r4. */
1773 write_register (4, orig_sp
+ REG_PARM_STACK_SPACE
);
1775 /* ?!? This needs further work. We need to set up the global data
1776 pointer for this procedure. This assumes the same global pointer
1777 for every procedure. The call dummy expects the dp value to
1778 be passed in register %r6. */
1779 write_register (6, read_register (27));
1782 /* The stack will have 32 bytes of additional space for a frame marker. */
1787 /* elz: this function returns a value which is built looking at the given address.
1788 It is called from call_function_by_hand, in case we need to return a
1789 value which is larger than 64 bits, and it is stored in the stack rather than
1790 in the registers r28 and r29 or fr4.
1791 This function does the same stuff as value_being_returned in values.c, but
1792 gets the value from the stack rather than from the buffer where all the
1793 registers were saved when the function called completed. */
1795 hppa_value_returned_from_stack (valtype
, addr
)
1796 register struct type
*valtype
;
1799 register value_ptr val
;
1801 val
= allocate_value (valtype
);
1802 CHECK_TYPEDEF (valtype
);
1803 target_read_memory (addr
, VALUE_CONTENTS_RAW (val
), TYPE_LENGTH (valtype
));
1810 /* elz: Used to lookup a symbol in the shared libraries.
1811 This function calls shl_findsym, indirectly through a
1812 call to __d_shl_get. __d_shl_get is in end.c, which is always
1813 linked in by the hp compilers/linkers.
1814 The call to shl_findsym cannot be made directly because it needs
1815 to be active in target address space.
1816 inputs: - minimal symbol pointer for the function we want to look up
1817 - address in target space of the descriptor for the library
1818 where we want to look the symbol up.
1819 This address is retrieved using the
1820 som_solib_get_solib_by_pc function (somsolib.c).
1821 output: - real address in the library of the function.
1822 note: the handle can be null, in which case shl_findsym will look for
1823 the symbol in all the loaded shared libraries.
1824 files to look at if you need reference on this stuff:
1825 dld.c, dld_shl_findsym.c
1827 man entry for shl_findsym */
1830 find_stub_with_shl_get (function
, handle
)
1831 struct minimal_symbol
*function
;
1834 struct symbol
*get_sym
, *symbol2
;
1835 struct minimal_symbol
*buff_minsym
, *msymbol
;
1838 value_ptr funcval
, val
;
1840 int x
, namelen
, err_value
, tmp
= -1;
1841 CORE_ADDR endo_buff_addr
, value_return_addr
, errno_return_addr
;
1842 CORE_ADDR stub_addr
;
1845 args
= (value_ptr
*) alloca (sizeof (value_ptr
) * 8); /* 6 for the arguments and one null one??? */
1846 funcval
= find_function_in_inferior ("__d_shl_get");
1847 get_sym
= lookup_symbol ("__d_shl_get", NULL
, VAR_NAMESPACE
, NULL
, NULL
);
1848 buff_minsym
= lookup_minimal_symbol ("__buffer", NULL
, NULL
);
1849 msymbol
= lookup_minimal_symbol ("__shldp", NULL
, NULL
);
1850 symbol2
= lookup_symbol ("__shldp", NULL
, VAR_NAMESPACE
, NULL
, NULL
);
1851 endo_buff_addr
= SYMBOL_VALUE_ADDRESS (buff_minsym
);
1852 namelen
= strlen (SYMBOL_NAME (function
));
1853 value_return_addr
= endo_buff_addr
+ namelen
;
1854 ftype
= check_typedef (SYMBOL_TYPE (get_sym
));
1857 if ((x
= value_return_addr
% 64) != 0)
1858 value_return_addr
= value_return_addr
+ 64 - x
;
1860 errno_return_addr
= value_return_addr
+ 64;
1863 /* set up stuff needed by __d_shl_get in buffer in end.o */
1865 target_write_memory (endo_buff_addr
, SYMBOL_NAME (function
), namelen
);
1867 target_write_memory (value_return_addr
, (char *) &tmp
, 4);
1869 target_write_memory (errno_return_addr
, (char *) &tmp
, 4);
1871 target_write_memory (SYMBOL_VALUE_ADDRESS (msymbol
),
1872 (char *) &handle
, 4);
1874 /* now prepare the arguments for the call */
1876 args
[0] = value_from_longest (TYPE_FIELD_TYPE (ftype
, 0), 12);
1877 args
[1] = value_from_longest (TYPE_FIELD_TYPE (ftype
, 1), SYMBOL_VALUE_ADDRESS (msymbol
));
1878 args
[2] = value_from_longest (TYPE_FIELD_TYPE (ftype
, 2), endo_buff_addr
);
1879 args
[3] = value_from_longest (TYPE_FIELD_TYPE (ftype
, 3), TYPE_PROCEDURE
);
1880 args
[4] = value_from_longest (TYPE_FIELD_TYPE (ftype
, 4), value_return_addr
);
1881 args
[5] = value_from_longest (TYPE_FIELD_TYPE (ftype
, 5), errno_return_addr
);
1883 /* now call the function */
1885 val
= call_function_by_hand (funcval
, 6, args
);
1887 /* now get the results */
1889 target_read_memory (errno_return_addr
, (char *) &err_value
, sizeof (err_value
));
1891 target_read_memory (value_return_addr
, (char *) &stub_addr
, sizeof (stub_addr
));
1893 error ("call to __d_shl_get failed, error code is %d", err_value
); /* purecov: deadcode */
1898 /* Cover routine for find_stub_with_shl_get to pass to catch_errors */
1900 cover_find_stub_with_shl_get (PTR args_untyped
)
1902 args_for_find_stub
*args
= args_untyped
;
1903 args
->return_val
= find_stub_with_shl_get (args
->msym
, args
->solib_handle
);
1907 /* Insert the specified number of args and function address
1908 into a call sequence of the above form stored at DUMMYNAME.
1910 On the hppa we need to call the stack dummy through $$dyncall.
1911 Therefore our version of FIX_CALL_DUMMY takes an extra argument,
1912 real_pc, which is the location where gdb should start up the
1913 inferior to do the function call.
1915 This has to work across several versions of hpux, bsd, osf1. It has to
1916 work regardless of what compiler was used to build the inferior program.
1917 It should work regardless of whether or not end.o is available. It has
1918 to work even if gdb can not call into the dynamic loader in the inferior
1919 to query it for symbol names and addresses.
1921 Yes, all those cases should work. Luckily code exists to handle most
1922 of them. The complexity is in selecting exactly what scheme should
1923 be used to perform the inferior call.
1925 At the current time this routine is known not to handle cases where
1926 the program was linked with HP's compiler without including end.o.
1928 Please contact Jeff Law (law@cygnus.com) before changing this code. */
1931 hppa_fix_call_dummy (dummy
, pc
, fun
, nargs
, args
, type
, gcc_p
)
1940 CORE_ADDR dyncall_addr
;
1941 struct minimal_symbol
*msymbol
;
1942 struct minimal_symbol
*trampoline
;
1943 int flags
= read_register (FLAGS_REGNUM
);
1944 struct unwind_table_entry
*u
= NULL
;
1945 CORE_ADDR new_stub
= 0;
1946 CORE_ADDR solib_handle
= 0;
1948 /* Nonzero if we will use GCC's PLT call routine. This routine must be
1949 passed an import stub, not a PLABEL. It is also necessary to set %r19
1950 (the PIC register) before performing the call.
1952 If zero, then we are using __d_plt_call (HP's PLT call routine) or we
1953 are calling the target directly. When using __d_plt_call we want to
1954 use a PLABEL instead of an import stub. */
1955 int using_gcc_plt_call
= 1;
1957 #ifdef GDB_TARGET_IS_HPPA_20W
1958 /* We currently use completely different code for the PA2.0W inferior
1959 function call sequences. This needs to be cleaned up. */
1961 CORE_ADDR pcsqh
, pcsqt
, pcoqh
, pcoqt
, sr5
;
1962 struct target_waitstatus w
;
1966 struct objfile
*objfile
;
1968 /* We can not modify the PC space queues directly, so we start
1969 up the inferior and execute a couple instructions to set the
1970 space queues so that they point to the call dummy in the stack. */
1971 pcsqh
= read_register (PCSQ_HEAD_REGNUM
);
1972 sr5
= read_register (SR5_REGNUM
);
1975 pcoqh
= read_register (PCOQ_HEAD_REGNUM
);
1976 pcoqt
= read_register (PCOQ_TAIL_REGNUM
);
1977 if (target_read_memory (pcoqh
, buf
, 4) != 0)
1978 error ("Couldn't modify space queue\n");
1979 inst1
= extract_unsigned_integer (buf
, 4);
1981 if (target_read_memory (pcoqt
, buf
, 4) != 0)
1982 error ("Couldn't modify space queue\n");
1983 inst2
= extract_unsigned_integer (buf
, 4);
1986 *((int *) buf
) = 0xe820d000;
1987 if (target_write_memory (pcoqh
, buf
, 4) != 0)
1988 error ("Couldn't modify space queue\n");
1991 *((int *) buf
) = 0x08000240;
1992 if (target_write_memory (pcoqt
, buf
, 4) != 0)
1994 *((int *) buf
) = inst1
;
1995 target_write_memory (pcoqh
, buf
, 4);
1996 error ("Couldn't modify space queue\n");
1999 write_register (1, pc
);
2001 /* Single step twice, the BVE instruction will set the space queue
2002 such that it points to the PC value written immediately above
2003 (ie the call dummy). */
2005 target_wait (inferior_pid
, &w
);
2007 target_wait (inferior_pid
, &w
);
2009 /* Restore the two instructions at the old PC locations. */
2010 *((int *) buf
) = inst1
;
2011 target_write_memory (pcoqh
, buf
, 4);
2012 *((int *) buf
) = inst2
;
2013 target_write_memory (pcoqt
, buf
, 4);
2016 /* The call dummy wants the ultimate destination address initially
2018 write_register (5, fun
);
2020 /* We need to see if this objfile has a different DP value than our
2021 own (it could be a shared library for example. */
2022 ALL_OBJFILES (objfile
)
2024 struct obj_section
*s
;
2025 obj_private_data_t
*obj_private
;
2027 /* See if FUN is in any section within this shared library. */
2028 for (s
= objfile
->sections
; s
< objfile
->sections_end
; s
++)
2029 if (s
->addr
<= fun
&& fun
< s
->endaddr
)
2032 if (s
>= objfile
->sections_end
)
2035 obj_private
= (obj_private_data_t
*) objfile
->obj_private
;
2037 /* The DP value may be different for each objfile. But within an
2038 objfile each function uses the same dp value. Thus we do not need
2039 to grope around the opd section looking for dp values.
2041 ?!? This is not strictly correct since we may be in a shared library
2042 and want to call back into the main program. To make that case
2043 work correctly we need to set obj_private->dp for the main program's
2044 objfile, then remove this conditional. */
2045 if (obj_private
->dp
)
2046 write_register (27, obj_private
->dp
);
2053 #ifndef GDB_TARGET_IS_HPPA_20W
2054 /* Prefer __gcc_plt_call over the HP supplied routine because
2055 __gcc_plt_call works for any number of arguments. */
2057 if (lookup_minimal_symbol ("__gcc_plt_call", NULL
, NULL
) == NULL
)
2058 using_gcc_plt_call
= 0;
2060 msymbol
= lookup_minimal_symbol ("$$dyncall", NULL
, NULL
);
2061 if (msymbol
== NULL
)
2062 error ("Can't find an address for $$dyncall trampoline");
2064 dyncall_addr
= SYMBOL_VALUE_ADDRESS (msymbol
);
2066 /* FUN could be a procedure label, in which case we have to get
2067 its real address and the value of its GOT/DP if we plan to
2068 call the routine via gcc_plt_call. */
2069 if ((fun
& 0x2) && using_gcc_plt_call
)
2071 /* Get the GOT/DP value for the target function. It's
2072 at *(fun+4). Note the call dummy is *NOT* allowed to
2073 trash %r19 before calling the target function. */
2074 write_register (19, read_memory_integer ((fun
& ~0x3) + 4,
2077 /* Now get the real address for the function we are calling, it's
2079 fun
= (CORE_ADDR
) read_memory_integer (fun
& ~0x3,
2080 TARGET_PTR_BIT
/ 8);
2085 #ifndef GDB_TARGET_IS_PA_ELF
2086 /* FUN could be an export stub, the real address of a function, or
2087 a PLABEL. When using gcc's PLT call routine we must call an import
2088 stub rather than the export stub or real function for lazy binding
2091 /* If we are using the gcc PLT call routine, then we need to
2092 get the import stub for the target function. */
2093 if (using_gcc_plt_call
&& som_solib_get_got_by_pc (fun
))
2095 struct objfile
*objfile
;
2096 struct minimal_symbol
*funsymbol
, *stub_symbol
;
2097 CORE_ADDR newfun
= 0;
2099 funsymbol
= lookup_minimal_symbol_by_pc (fun
);
2101 error ("Unable to find minimal symbol for target fucntion.\n");
2103 /* Search all the object files for an import symbol with the
2105 ALL_OBJFILES (objfile
)
2108 = lookup_minimal_symbol_solib_trampoline
2109 (SYMBOL_NAME (funsymbol
), NULL
, objfile
);
2112 stub_symbol
= lookup_minimal_symbol (SYMBOL_NAME (funsymbol
),
2115 /* Found a symbol with the right name. */
2118 struct unwind_table_entry
*u
;
2119 /* It must be a shared library trampoline. */
2120 if (MSYMBOL_TYPE (stub_symbol
) != mst_solib_trampoline
)
2123 /* It must also be an import stub. */
2124 u
= find_unwind_entry (SYMBOL_VALUE (stub_symbol
));
2126 || (u
->stub_unwind
.stub_type
!= IMPORT
)
2127 && u
->stub_unwind
.stub_type
!= IMPORT_SHLIB
)
2130 /* OK. Looks like the correct import stub. */
2131 newfun
= SYMBOL_VALUE (stub_symbol
);
2136 /* Ouch. We did not find an import stub. Make an attempt to
2137 do the right thing instead of just croaking. Most of the
2138 time this will actually work. */
2140 write_register (19, som_solib_get_got_by_pc (fun
));
2142 u
= find_unwind_entry (fun
);
2144 && (u
->stub_unwind
.stub_type
== IMPORT
2145 || u
->stub_unwind
.stub_type
== IMPORT_SHLIB
))
2146 trampoline
= lookup_minimal_symbol ("__gcc_plt_call", NULL
, NULL
);
2148 /* If we found the import stub in the shared library, then we have
2149 to set %r19 before we call the stub. */
2150 if (u
&& u
->stub_unwind
.stub_type
== IMPORT_SHLIB
)
2151 write_register (19, som_solib_get_got_by_pc (fun
));
2156 /* If we are calling into another load module then have sr4export call the
2157 magic __d_plt_call routine which is linked in from end.o.
2159 You can't use _sr4export to make the call as the value in sp-24 will get
2160 fried and you end up returning to the wrong location. You can't call the
2161 target as the code to bind the PLT entry to a function can't return to a
2164 Also, query the dynamic linker in the inferior to provide a suitable
2165 PLABEL for the target function. */
2166 if (!using_gcc_plt_call
)
2170 /* Get a handle for the shared library containing FUN. Given the
2171 handle we can query the shared library for a PLABEL. */
2172 solib_handle
= som_solib_get_solib_by_pc (fun
);
2176 struct minimal_symbol
*fmsymbol
= lookup_minimal_symbol_by_pc (fun
);
2178 trampoline
= lookup_minimal_symbol ("__d_plt_call", NULL
, NULL
);
2180 if (trampoline
== NULL
)
2182 error ("Can't find an address for __d_plt_call or __gcc_plt_call trampoline\nSuggest linking executable with -g or compiling with gcc.");
2185 /* This is where sr4export will jump to. */
2186 new_fun
= SYMBOL_VALUE_ADDRESS (trampoline
);
2188 /* If the function is in a shared library, then call __d_shl_get to
2189 get a PLABEL for the target function. */
2190 new_stub
= find_stub_with_shl_get (fmsymbol
, solib_handle
);
2193 error ("Can't find an import stub for %s", SYMBOL_NAME (fmsymbol
));
2195 /* We have to store the address of the stub in __shlib_funcptr. */
2196 msymbol
= lookup_minimal_symbol ("__shlib_funcptr", NULL
,
2197 (struct objfile
*) NULL
);
2199 if (msymbol
== NULL
)
2200 error ("Can't find an address for __shlib_funcptr");
2201 target_write_memory (SYMBOL_VALUE_ADDRESS (msymbol
),
2202 (char *) &new_stub
, 4);
2204 /* We want sr4export to call __d_plt_call, so we claim it is
2205 the final target. Clear trampoline. */
2211 /* Store upper 21 bits of function address into ldil. fun will either be
2212 the final target (most cases) or __d_plt_call when calling into a shared
2213 library and __gcc_plt_call is not available. */
2214 store_unsigned_integer
2215 (&dummy
[FUNC_LDIL_OFFSET
],
2217 deposit_21 (fun
>> 11,
2218 extract_unsigned_integer (&dummy
[FUNC_LDIL_OFFSET
],
2219 INSTRUCTION_SIZE
)));
2221 /* Store lower 11 bits of function address into ldo */
2222 store_unsigned_integer
2223 (&dummy
[FUNC_LDO_OFFSET
],
2225 deposit_14 (fun
& MASK_11
,
2226 extract_unsigned_integer (&dummy
[FUNC_LDO_OFFSET
],
2227 INSTRUCTION_SIZE
)));
2228 #ifdef SR4EXPORT_LDIL_OFFSET
2231 CORE_ADDR trampoline_addr
;
2233 /* We may still need sr4export's address too. */
2235 if (trampoline
== NULL
)
2237 msymbol
= lookup_minimal_symbol ("_sr4export", NULL
, NULL
);
2238 if (msymbol
== NULL
)
2239 error ("Can't find an address for _sr4export trampoline");
2241 trampoline_addr
= SYMBOL_VALUE_ADDRESS (msymbol
);
2244 trampoline_addr
= SYMBOL_VALUE_ADDRESS (trampoline
);
2247 /* Store upper 21 bits of trampoline's address into ldil */
2248 store_unsigned_integer
2249 (&dummy
[SR4EXPORT_LDIL_OFFSET
],
2251 deposit_21 (trampoline_addr
>> 11,
2252 extract_unsigned_integer (&dummy
[SR4EXPORT_LDIL_OFFSET
],
2253 INSTRUCTION_SIZE
)));
2255 /* Store lower 11 bits of trampoline's address into ldo */
2256 store_unsigned_integer
2257 (&dummy
[SR4EXPORT_LDO_OFFSET
],
2259 deposit_14 (trampoline_addr
& MASK_11
,
2260 extract_unsigned_integer (&dummy
[SR4EXPORT_LDO_OFFSET
],
2261 INSTRUCTION_SIZE
)));
2265 write_register (22, pc
);
2267 /* If we are in a syscall, then we should call the stack dummy
2268 directly. $$dyncall is not needed as the kernel sets up the
2269 space id registers properly based on the value in %r31. In
2270 fact calling $$dyncall will not work because the value in %r22
2271 will be clobbered on the syscall exit path.
2273 Similarly if the current PC is in a shared library. Note however,
2274 this scheme won't work if the shared library isn't mapped into
2275 the same space as the stack. */
2278 #ifndef GDB_TARGET_IS_PA_ELF
2279 else if (som_solib_get_got_by_pc (target_read_pc (inferior_pid
)))
2283 return dyncall_addr
;
2290 /* If the pid is in a syscall, then the FP register is not readable.
2291 We'll return zero in that case, rather than attempting to read it
2292 and cause a warning. */
2294 target_read_fp (pid
)
2297 int flags
= read_register (FLAGS_REGNUM
);
2301 return (CORE_ADDR
) 0;
2304 /* This is the only site that may directly read_register () the FP
2305 register. All others must use TARGET_READ_FP (). */
2306 return read_register (FP_REGNUM
);
2310 /* Get the PC from %r31 if currently in a syscall. Also mask out privilege
2314 target_read_pc (pid
)
2317 int flags
= read_register_pid (FLAGS_REGNUM
, pid
);
2319 /* The following test does not belong here. It is OS-specific, and belongs
2321 /* Test SS_INSYSCALL */
2323 return read_register_pid (31, pid
) & ~0x3;
2325 return read_register_pid (PC_REGNUM
, pid
) & ~0x3;
2328 /* Write out the PC. If currently in a syscall, then also write the new
2329 PC value into %r31. */
2332 target_write_pc (v
, pid
)
2336 int flags
= read_register_pid (FLAGS_REGNUM
, pid
);
2338 /* The following test does not belong here. It is OS-specific, and belongs
2340 /* If in a syscall, then set %r31. Also make sure to get the
2341 privilege bits set correctly. */
2342 /* Test SS_INSYSCALL */
2344 write_register_pid (31, v
| 0x3, pid
);
2346 write_register_pid (PC_REGNUM
, v
, pid
);
2347 write_register_pid (NPC_REGNUM
, v
+ 4, pid
);
2350 /* return the alignment of a type in bytes. Structures have the maximum
2351 alignment required by their fields. */
2357 int max_align
, align
, i
;
2358 CHECK_TYPEDEF (type
);
2359 switch (TYPE_CODE (type
))
2364 return TYPE_LENGTH (type
);
2365 case TYPE_CODE_ARRAY
:
2366 return hppa_alignof (TYPE_FIELD_TYPE (type
, 0));
2367 case TYPE_CODE_STRUCT
:
2368 case TYPE_CODE_UNION
:
2370 for (i
= 0; i
< TYPE_NFIELDS (type
); i
++)
2372 /* Bit fields have no real alignment. */
2373 /* if (!TYPE_FIELD_BITPOS (type, i)) */
2374 if (!TYPE_FIELD_BITSIZE (type
, i
)) /* elz: this should be bitsize */
2376 align
= hppa_alignof (TYPE_FIELD_TYPE (type
, i
));
2377 max_align
= max (max_align
, align
);
2386 /* Print the register regnum, or all registers if regnum is -1 */
2389 pa_do_registers_info (regnum
, fpregs
)
2393 char raw_regs
[REGISTER_BYTES
];
2396 /* Make a copy of gdb's save area (may cause actual
2397 reads from the target). */
2398 for (i
= 0; i
< NUM_REGS
; i
++)
2399 read_relative_register_raw_bytes (i
, raw_regs
+ REGISTER_BYTE (i
));
2402 pa_print_registers (raw_regs
, regnum
, fpregs
);
2403 else if (regnum
< FP4_REGNUM
)
2407 /* Why is the value not passed through "extract_signed_integer"
2408 as in "pa_print_registers" below? */
2409 pa_register_look_aside (raw_regs
, regnum
, ®_val
[0]);
2413 printf_unfiltered ("%s %x\n", REGISTER_NAME (regnum
), reg_val
[1]);
2417 /* Fancy % formats to prevent leading zeros. */
2418 if (reg_val
[0] == 0)
2419 printf_unfiltered ("%s %x\n", REGISTER_NAME (regnum
), reg_val
[1]);
2421 printf_unfiltered ("%s %x%8.8x\n", REGISTER_NAME (regnum
),
2422 reg_val
[0], reg_val
[1]);
2426 /* Note that real floating point values only start at
2427 FP4_REGNUM. FP0 and up are just status and error
2428 registers, which have integral (bit) values. */
2429 pa_print_fp_reg (regnum
);
2432 /********** new function ********************/
2434 pa_do_strcat_registers_info (regnum
, fpregs
, stream
, precision
)
2438 enum precision_type precision
;
2440 char raw_regs
[REGISTER_BYTES
];
2443 /* Make a copy of gdb's save area (may cause actual
2444 reads from the target). */
2445 for (i
= 0; i
< NUM_REGS
; i
++)
2446 read_relative_register_raw_bytes (i
, raw_regs
+ REGISTER_BYTE (i
));
2449 pa_strcat_registers (raw_regs
, regnum
, fpregs
, stream
);
2451 else if (regnum
< FP4_REGNUM
)
2455 /* Why is the value not passed through "extract_signed_integer"
2456 as in "pa_print_registers" below? */
2457 pa_register_look_aside (raw_regs
, regnum
, ®_val
[0]);
2461 fprintf_unfiltered (stream
, "%s %x", REGISTER_NAME (regnum
), reg_val
[1]);
2465 /* Fancy % formats to prevent leading zeros. */
2466 if (reg_val
[0] == 0)
2467 fprintf_unfiltered (stream
, "%s %x", REGISTER_NAME (regnum
),
2470 fprintf_unfiltered (stream
, "%s %x%8.8x", REGISTER_NAME (regnum
),
2471 reg_val
[0], reg_val
[1]);
2475 /* Note that real floating point values only start at
2476 FP4_REGNUM. FP0 and up are just status and error
2477 registers, which have integral (bit) values. */
2478 pa_strcat_fp_reg (regnum
, stream
, precision
);
2481 /* If this is a PA2.0 machine, fetch the real 64-bit register
2482 value. Otherwise use the info from gdb's saved register area.
2484 Note that reg_val is really expected to be an array of longs,
2485 with two elements. */
2487 pa_register_look_aside (raw_regs
, regnum
, raw_val
)
2492 static int know_which
= 0; /* False */
2495 unsigned int offset
;
2500 char buf
[MAX_REGISTER_RAW_SIZE
];
2505 if (CPU_PA_RISC2_0
== sysconf (_SC_CPU_VERSION
))
2510 know_which
= 1; /* True */
2518 raw_val
[1] = *(long *) (raw_regs
+ REGISTER_BYTE (regnum
));
2522 /* Code below copied from hppah-nat.c, with fixes for wide
2523 registers, using different area of save_state, etc. */
2524 if (regnum
== FLAGS_REGNUM
|| regnum
>= FP0_REGNUM
||
2525 !HAVE_STRUCT_SAVE_STATE_T
|| !HAVE_STRUCT_MEMBER_SS_WIDE
)
2527 /* Use narrow regs area of save_state and default macro. */
2528 offset
= U_REGS_OFFSET
;
2529 regaddr
= register_addr (regnum
, offset
);
2534 /* Use wide regs area, and calculate registers as 8 bytes wide.
2536 We'd like to do this, but current version of "C" doesn't
2539 offset = offsetof(save_state_t, ss_wide);
2541 Note that to avoid "C" doing typed pointer arithmetic, we
2542 have to cast away the type in our offset calculation:
2543 otherwise we get an offset of 1! */
2545 /* NB: save_state_t is not available before HPUX 9.
2546 The ss_wide field is not available previous to HPUX 10.20,
2547 so to avoid compile-time warnings, we only compile this for
2548 PA 2.0 processors. This control path should only be followed
2549 if we're debugging a PA 2.0 processor, so this should not cause
2552 /* #if the following code out so that this file can still be
2553 compiled on older HPUX boxes (< 10.20) which don't have
2554 this structure/structure member. */
2555 #if HAVE_STRUCT_SAVE_STATE_T == 1 && HAVE_STRUCT_MEMBER_SS_WIDE == 1
2558 offset
= ((int) &temp
.ss_wide
) - ((int) &temp
);
2559 regaddr
= offset
+ regnum
* 8;
2564 for (i
= start
; i
< 2; i
++)
2567 raw_val
[i
] = call_ptrace (PT_RUREGS
, inferior_pid
,
2568 (PTRACE_ARG3_TYPE
) regaddr
, 0);
2571 /* Warning, not error, in case we are attached; sometimes the
2572 kernel doesn't let us at the registers. */
2573 char *err
= safe_strerror (errno
);
2574 char *msg
= alloca (strlen (err
) + 128);
2575 sprintf (msg
, "reading register %s: %s", REGISTER_NAME (regnum
), err
);
2580 regaddr
+= sizeof (long);
2583 if (regnum
== PCOQ_HEAD_REGNUM
|| regnum
== PCOQ_TAIL_REGNUM
)
2584 raw_val
[1] &= ~0x3; /* I think we're masking out space bits */
2590 /* "Info all-reg" command */
2593 pa_print_registers (raw_regs
, regnum
, fpregs
)
2599 /* Alas, we are compiled so that "long long" is 32 bits */
2602 int rows
= 48, columns
= 2;
2604 for (i
= 0; i
< rows
; i
++)
2606 for (j
= 0; j
< columns
; j
++)
2608 /* We display registers in column-major order. */
2609 int regnum
= i
+ j
* rows
;
2611 /* Q: Why is the value passed through "extract_signed_integer",
2612 while above, in "pa_do_registers_info" it isn't?
2614 pa_register_look_aside (raw_regs
, regnum
, &raw_val
[0]);
2616 /* Even fancier % formats to prevent leading zeros
2617 and still maintain the output in columns. */
2620 /* Being big-endian, on this machine the low bits
2621 (the ones we want to look at) are in the second longword. */
2622 long_val
= extract_signed_integer (&raw_val
[1], 4);
2623 printf_filtered ("%10.10s: %8x ",
2624 REGISTER_NAME (regnum
), long_val
);
2628 /* raw_val = extract_signed_integer(&raw_val, 8); */
2629 if (raw_val
[0] == 0)
2630 printf_filtered ("%10.10s: %8x ",
2631 REGISTER_NAME (regnum
), raw_val
[1]);
2633 printf_filtered ("%10.10s: %8x%8.8x ",
2634 REGISTER_NAME (regnum
),
2635 raw_val
[0], raw_val
[1]);
2638 printf_unfiltered ("\n");
2642 for (i
= FP4_REGNUM
; i
< NUM_REGS
; i
++) /* FP4_REGNUM == 72 */
2643 pa_print_fp_reg (i
);
2646 /************* new function ******************/
2648 pa_strcat_registers (raw_regs
, regnum
, fpregs
, stream
)
2655 long raw_val
[2]; /* Alas, we are compiled so that "long long" is 32 bits */
2657 enum precision_type precision
;
2659 precision
= unspecified_precision
;
2661 for (i
= 0; i
< 18; i
++)
2663 for (j
= 0; j
< 4; j
++)
2665 /* Q: Why is the value passed through "extract_signed_integer",
2666 while above, in "pa_do_registers_info" it isn't?
2668 pa_register_look_aside (raw_regs
, i
+ (j
* 18), &raw_val
[0]);
2670 /* Even fancier % formats to prevent leading zeros
2671 and still maintain the output in columns. */
2674 /* Being big-endian, on this machine the low bits
2675 (the ones we want to look at) are in the second longword. */
2676 long_val
= extract_signed_integer (&raw_val
[1], 4);
2677 fprintf_filtered (stream
, "%8.8s: %8x ", REGISTER_NAME (i
+ (j
* 18)), long_val
);
2681 /* raw_val = extract_signed_integer(&raw_val, 8); */
2682 if (raw_val
[0] == 0)
2683 fprintf_filtered (stream
, "%8.8s: %8x ", REGISTER_NAME (i
+ (j
* 18)),
2686 fprintf_filtered (stream
, "%8.8s: %8x%8.8x ", REGISTER_NAME (i
+ (j
* 18)),
2687 raw_val
[0], raw_val
[1]);
2690 fprintf_unfiltered (stream
, "\n");
2694 for (i
= FP4_REGNUM
; i
< NUM_REGS
; i
++) /* FP4_REGNUM == 72 */
2695 pa_strcat_fp_reg (i
, stream
, precision
);
2702 char raw_buffer
[MAX_REGISTER_RAW_SIZE
];
2703 char virtual_buffer
[MAX_REGISTER_VIRTUAL_SIZE
];
2705 /* Get 32bits of data. */
2706 read_relative_register_raw_bytes (i
, raw_buffer
);
2708 /* Put it in the buffer. No conversions are ever necessary. */
2709 memcpy (virtual_buffer
, raw_buffer
, REGISTER_RAW_SIZE (i
));
2711 fputs_filtered (REGISTER_NAME (i
), gdb_stdout
);
2712 print_spaces_filtered (8 - strlen (REGISTER_NAME (i
)), gdb_stdout
);
2713 fputs_filtered ("(single precision) ", gdb_stdout
);
2715 val_print (REGISTER_VIRTUAL_TYPE (i
), virtual_buffer
, 0, 0, gdb_stdout
, 0,
2716 1, 0, Val_pretty_default
);
2717 printf_filtered ("\n");
2719 /* If "i" is even, then this register can also be a double-precision
2720 FP register. Dump it out as such. */
2723 /* Get the data in raw format for the 2nd half. */
2724 read_relative_register_raw_bytes (i
+ 1, raw_buffer
);
2726 /* Copy it into the appropriate part of the virtual buffer. */
2727 memcpy (virtual_buffer
+ REGISTER_RAW_SIZE (i
), raw_buffer
,
2728 REGISTER_RAW_SIZE (i
));
2730 /* Dump it as a double. */
2731 fputs_filtered (REGISTER_NAME (i
), gdb_stdout
);
2732 print_spaces_filtered (8 - strlen (REGISTER_NAME (i
)), gdb_stdout
);
2733 fputs_filtered ("(double precision) ", gdb_stdout
);
2735 val_print (builtin_type_double
, virtual_buffer
, 0, 0, gdb_stdout
, 0,
2736 1, 0, Val_pretty_default
);
2737 printf_filtered ("\n");
2741 /*************** new function ***********************/
2743 pa_strcat_fp_reg (i
, stream
, precision
)
2746 enum precision_type precision
;
2748 char raw_buffer
[MAX_REGISTER_RAW_SIZE
];
2749 char virtual_buffer
[MAX_REGISTER_VIRTUAL_SIZE
];
2751 fputs_filtered (REGISTER_NAME (i
), stream
);
2752 print_spaces_filtered (8 - strlen (REGISTER_NAME (i
)), stream
);
2754 /* Get 32bits of data. */
2755 read_relative_register_raw_bytes (i
, raw_buffer
);
2757 /* Put it in the buffer. No conversions are ever necessary. */
2758 memcpy (virtual_buffer
, raw_buffer
, REGISTER_RAW_SIZE (i
));
2760 if (precision
== double_precision
&& (i
% 2) == 0)
2763 char raw_buf
[MAX_REGISTER_RAW_SIZE
];
2765 /* Get the data in raw format for the 2nd half. */
2766 read_relative_register_raw_bytes (i
+ 1, raw_buf
);
2768 /* Copy it into the appropriate part of the virtual buffer. */
2769 memcpy (virtual_buffer
+ REGISTER_RAW_SIZE (i
), raw_buf
, REGISTER_RAW_SIZE (i
));
2771 val_print (builtin_type_double
, virtual_buffer
, 0, 0, stream
, 0,
2772 1, 0, Val_pretty_default
);
2777 val_print (REGISTER_VIRTUAL_TYPE (i
), virtual_buffer
, 0, 0, stream
, 0,
2778 1, 0, Val_pretty_default
);
2783 /* Return one if PC is in the call path of a trampoline, else return zero.
2785 Note we return one for *any* call trampoline (long-call, arg-reloc), not
2786 just shared library trampolines (import, export). */
2789 in_solib_call_trampoline (pc
, name
)
2793 struct minimal_symbol
*minsym
;
2794 struct unwind_table_entry
*u
;
2795 static CORE_ADDR dyncall
= 0;
2796 static CORE_ADDR sr4export
= 0;
2798 /* FIXME XXX - dyncall and sr4export must be initialized whenever we get a
2801 /* First see if PC is in one of the two C-library trampolines. */
2804 minsym
= lookup_minimal_symbol ("$$dyncall", NULL
, NULL
);
2806 dyncall
= SYMBOL_VALUE_ADDRESS (minsym
);
2813 minsym
= lookup_minimal_symbol ("_sr4export", NULL
, NULL
);
2815 sr4export
= SYMBOL_VALUE_ADDRESS (minsym
);
2820 if (pc
== dyncall
|| pc
== sr4export
)
2823 /* Get the unwind descriptor corresponding to PC, return zero
2824 if no unwind was found. */
2825 u
= find_unwind_entry (pc
);
2829 /* If this isn't a linker stub, then return now. */
2830 if (u
->stub_unwind
.stub_type
== 0)
2833 /* By definition a long-branch stub is a call stub. */
2834 if (u
->stub_unwind
.stub_type
== LONG_BRANCH
)
2837 /* The call and return path execute the same instructions within
2838 an IMPORT stub! So an IMPORT stub is both a call and return
2840 if (u
->stub_unwind
.stub_type
== IMPORT
)
2843 /* Parameter relocation stubs always have a call path and may have a
2845 if (u
->stub_unwind
.stub_type
== PARAMETER_RELOCATION
2846 || u
->stub_unwind
.stub_type
== EXPORT
)
2850 /* Search forward from the current PC until we hit a branch
2851 or the end of the stub. */
2852 for (addr
= pc
; addr
<= u
->region_end
; addr
+= 4)
2856 insn
= read_memory_integer (addr
, 4);
2858 /* Does it look like a bl? If so then it's the call path, if
2859 we find a bv or be first, then we're on the return path. */
2860 if ((insn
& 0xfc00e000) == 0xe8000000)
2862 else if ((insn
& 0xfc00e001) == 0xe800c000
2863 || (insn
& 0xfc000000) == 0xe0000000)
2867 /* Should never happen. */
2868 warning ("Unable to find branch in parameter relocation stub.\n"); /* purecov: deadcode */
2869 return 0; /* purecov: deadcode */
2872 /* Unknown stub type. For now, just return zero. */
2873 return 0; /* purecov: deadcode */
2876 /* Return one if PC is in the return path of a trampoline, else return zero.
2878 Note we return one for *any* call trampoline (long-call, arg-reloc), not
2879 just shared library trampolines (import, export). */
2882 in_solib_return_trampoline (pc
, name
)
2886 struct unwind_table_entry
*u
;
2888 /* Get the unwind descriptor corresponding to PC, return zero
2889 if no unwind was found. */
2890 u
= find_unwind_entry (pc
);
2894 /* If this isn't a linker stub or it's just a long branch stub, then
2896 if (u
->stub_unwind
.stub_type
== 0 || u
->stub_unwind
.stub_type
== LONG_BRANCH
)
2899 /* The call and return path execute the same instructions within
2900 an IMPORT stub! So an IMPORT stub is both a call and return
2902 if (u
->stub_unwind
.stub_type
== IMPORT
)
2905 /* Parameter relocation stubs always have a call path and may have a
2907 if (u
->stub_unwind
.stub_type
== PARAMETER_RELOCATION
2908 || u
->stub_unwind
.stub_type
== EXPORT
)
2912 /* Search forward from the current PC until we hit a branch
2913 or the end of the stub. */
2914 for (addr
= pc
; addr
<= u
->region_end
; addr
+= 4)
2918 insn
= read_memory_integer (addr
, 4);
2920 /* Does it look like a bl? If so then it's the call path, if
2921 we find a bv or be first, then we're on the return path. */
2922 if ((insn
& 0xfc00e000) == 0xe8000000)
2924 else if ((insn
& 0xfc00e001) == 0xe800c000
2925 || (insn
& 0xfc000000) == 0xe0000000)
2929 /* Should never happen. */
2930 warning ("Unable to find branch in parameter relocation stub.\n"); /* purecov: deadcode */
2931 return 0; /* purecov: deadcode */
2934 /* Unknown stub type. For now, just return zero. */
2935 return 0; /* purecov: deadcode */
2939 /* Figure out if PC is in a trampoline, and if so find out where
2940 the trampoline will jump to. If not in a trampoline, return zero.
2942 Simple code examination probably is not a good idea since the code
2943 sequences in trampolines can also appear in user code.
2945 We use unwinds and information from the minimal symbol table to
2946 determine when we're in a trampoline. This won't work for ELF
2947 (yet) since it doesn't create stub unwind entries. Whether or
2948 not ELF will create stub unwinds or normal unwinds for linker
2949 stubs is still being debated.
2951 This should handle simple calls through dyncall or sr4export,
2952 long calls, argument relocation stubs, and dyncall/sr4export
2953 calling an argument relocation stub. It even handles some stubs
2954 used in dynamic executables. */
2957 skip_trampoline_code (pc
, name
)
2962 long prev_inst
, curr_inst
, loc
;
2963 static CORE_ADDR dyncall
= 0;
2964 static CORE_ADDR dyncall_external
= 0;
2965 static CORE_ADDR sr4export
= 0;
2966 struct minimal_symbol
*msym
;
2967 struct unwind_table_entry
*u
;
2970 /* FIXME XXX - dyncall and sr4export must be initialized whenever we get a
2975 msym
= lookup_minimal_symbol ("$$dyncall", NULL
, NULL
);
2977 dyncall
= SYMBOL_VALUE_ADDRESS (msym
);
2982 if (!dyncall_external
)
2984 msym
= lookup_minimal_symbol ("$$dyncall_external", NULL
, NULL
);
2986 dyncall_external
= SYMBOL_VALUE_ADDRESS (msym
);
2988 dyncall_external
= -1;
2993 msym
= lookup_minimal_symbol ("_sr4export", NULL
, NULL
);
2995 sr4export
= SYMBOL_VALUE_ADDRESS (msym
);
3000 /* Addresses passed to dyncall may *NOT* be the actual address
3001 of the function. So we may have to do something special. */
3004 pc
= (CORE_ADDR
) read_register (22);
3006 /* If bit 30 (counting from the left) is on, then pc is the address of
3007 the PLT entry for this function, not the address of the function
3008 itself. Bit 31 has meaning too, but only for MPE. */
3010 pc
= (CORE_ADDR
) read_memory_integer (pc
& ~0x3, TARGET_PTR_BIT
/ 8);
3012 if (pc
== dyncall_external
)
3014 pc
= (CORE_ADDR
) read_register (22);
3015 pc
= (CORE_ADDR
) read_memory_integer (pc
& ~0x3, TARGET_PTR_BIT
/ 8);
3017 else if (pc
== sr4export
)
3018 pc
= (CORE_ADDR
) (read_register (22));
3020 /* Get the unwind descriptor corresponding to PC, return zero
3021 if no unwind was found. */
3022 u
= find_unwind_entry (pc
);
3026 /* If this isn't a linker stub, then return now. */
3027 /* elz: attention here! (FIXME) because of a compiler/linker
3028 error, some stubs which should have a non zero stub_unwind.stub_type
3029 have unfortunately a value of zero. So this function would return here
3030 as if we were not in a trampoline. To fix this, we go look at the partial
3031 symbol information, which reports this guy as a stub.
3032 (FIXME): Unfortunately, we are not that lucky: it turns out that the
3033 partial symbol information is also wrong sometimes. This is because
3034 when it is entered (somread.c::som_symtab_read()) it can happen that
3035 if the type of the symbol (from the som) is Entry, and the symbol is
3036 in a shared library, then it can also be a trampoline. This would
3037 be OK, except that I believe the way they decide if we are ina shared library
3038 does not work. SOOOO..., even if we have a regular function w/o trampolines
3039 its minimal symbol can be assigned type mst_solib_trampoline.
3040 Also, if we find that the symbol is a real stub, then we fix the unwind
3041 descriptor, and define the stub type to be EXPORT.
3042 Hopefully this is correct most of the times. */
3043 if (u
->stub_unwind
.stub_type
== 0)
3046 /* elz: NOTE (FIXME!) once the problem with the unwind information is fixed
3047 we can delete all the code which appears between the lines */
3048 /*--------------------------------------------------------------------------*/
3049 msym
= lookup_minimal_symbol_by_pc (pc
);
3051 if (msym
== NULL
|| MSYMBOL_TYPE (msym
) != mst_solib_trampoline
)
3052 return orig_pc
== pc
? 0 : pc
& ~0x3;
3054 else if (msym
!= NULL
&& MSYMBOL_TYPE (msym
) == mst_solib_trampoline
)
3056 struct objfile
*objfile
;
3057 struct minimal_symbol
*msymbol
;
3058 int function_found
= 0;
3060 /* go look if there is another minimal symbol with the same name as
3061 this one, but with type mst_text. This would happen if the msym
3062 is an actual trampoline, in which case there would be another
3063 symbol with the same name corresponding to the real function */
3065 ALL_MSYMBOLS (objfile
, msymbol
)
3067 if (MSYMBOL_TYPE (msymbol
) == mst_text
3068 && STREQ (SYMBOL_NAME (msymbol
), SYMBOL_NAME (msym
)))
3076 /* the type of msym is correct (mst_solib_trampoline), but
3077 the unwind info is wrong, so set it to the correct value */
3078 u
->stub_unwind
.stub_type
= EXPORT
;
3080 /* the stub type info in the unwind is correct (this is not a
3081 trampoline), but the msym type information is wrong, it
3082 should be mst_text. So we need to fix the msym, and also
3083 get out of this function */
3085 MSYMBOL_TYPE (msym
) = mst_text
;
3086 return orig_pc
== pc
? 0 : pc
& ~0x3;
3090 /*--------------------------------------------------------------------------*/
3093 /* It's a stub. Search for a branch and figure out where it goes.
3094 Note we have to handle multi insn branch sequences like ldil;ble.
3095 Most (all?) other branches can be determined by examining the contents
3096 of certain registers and the stack. */
3103 /* Make sure we haven't walked outside the range of this stub. */
3104 if (u
!= find_unwind_entry (loc
))
3106 warning ("Unable to find branch in linker stub");
3107 return orig_pc
== pc
? 0 : pc
& ~0x3;
3110 prev_inst
= curr_inst
;
3111 curr_inst
= read_memory_integer (loc
, 4);
3113 /* Does it look like a branch external using %r1? Then it's the
3114 branch from the stub to the actual function. */
3115 if ((curr_inst
& 0xffe0e000) == 0xe0202000)
3117 /* Yup. See if the previous instruction loaded
3118 a value into %r1. If so compute and return the jump address. */
3119 if ((prev_inst
& 0xffe00000) == 0x20200000)
3120 return (extract_21 (prev_inst
) + extract_17 (curr_inst
)) & ~0x3;
3123 warning ("Unable to find ldil X,%%r1 before ble Y(%%sr4,%%r1).");
3124 return orig_pc
== pc
? 0 : pc
& ~0x3;
3128 /* Does it look like a be 0(sr0,%r21)? OR
3129 Does it look like a be, n 0(sr0,%r21)? OR
3130 Does it look like a bve (r21)? (this is on PA2.0)
3131 Does it look like a bve, n(r21)? (this is also on PA2.0)
3132 That's the branch from an
3133 import stub to an export stub.
3135 It is impossible to determine the target of the branch via
3136 simple examination of instructions and/or data (consider
3137 that the address in the plabel may be the address of the
3138 bind-on-reference routine in the dynamic loader).
3140 So we have try an alternative approach.
3142 Get the name of the symbol at our current location; it should
3143 be a stub symbol with the same name as the symbol in the
3146 Then lookup a minimal symbol with the same name; we should
3147 get the minimal symbol for the target routine in the shared
3148 library as those take precedence of import/export stubs. */
3149 if ((curr_inst
== 0xe2a00000) ||
3150 (curr_inst
== 0xe2a00002) ||
3151 (curr_inst
== 0xeaa0d000) ||
3152 (curr_inst
== 0xeaa0d002))
3154 struct minimal_symbol
*stubsym
, *libsym
;
3156 stubsym
= lookup_minimal_symbol_by_pc (loc
);
3157 if (stubsym
== NULL
)
3159 warning ("Unable to find symbol for 0x%x", loc
);
3160 return orig_pc
== pc
? 0 : pc
& ~0x3;
3163 libsym
= lookup_minimal_symbol (SYMBOL_NAME (stubsym
), NULL
, NULL
);
3166 warning ("Unable to find library symbol for %s\n",
3167 SYMBOL_NAME (stubsym
));
3168 return orig_pc
== pc
? 0 : pc
& ~0x3;
3171 return SYMBOL_VALUE (libsym
);
3174 /* Does it look like bl X,%rp or bl X,%r0? Another way to do a
3175 branch from the stub to the actual function. */
3177 else if ((curr_inst
& 0xffe0e000) == 0xe8400000
3178 || (curr_inst
& 0xffe0e000) == 0xe8000000
3179 || (curr_inst
& 0xffe0e000) == 0xe800A000)
3180 return (loc
+ extract_17 (curr_inst
) + 8) & ~0x3;
3182 /* Does it look like bv (rp)? Note this depends on the
3183 current stack pointer being the same as the stack
3184 pointer in the stub itself! This is a branch on from the
3185 stub back to the original caller. */
3186 /*else if ((curr_inst & 0xffe0e000) == 0xe840c000) */
3187 else if ((curr_inst
& 0xffe0f000) == 0xe840c000)
3189 /* Yup. See if the previous instruction loaded
3191 if (prev_inst
== 0x4bc23ff1)
3192 return (read_memory_integer
3193 (read_register (SP_REGNUM
) - 8, 4)) & ~0x3;
3196 warning ("Unable to find restore of %%rp before bv (%%rp).");
3197 return orig_pc
== pc
? 0 : pc
& ~0x3;
3201 /* elz: added this case to capture the new instruction
3202 at the end of the return part of an export stub used by
3203 the PA2.0: BVE, n (rp) */
3204 else if ((curr_inst
& 0xffe0f000) == 0xe840d000)
3206 return (read_memory_integer
3207 (read_register (SP_REGNUM
) - 24, TARGET_PTR_BIT
/ 8)) & ~0x3;
3210 /* What about be,n 0(sr0,%rp)? It's just another way we return to
3211 the original caller from the stub. Used in dynamic executables. */
3212 else if (curr_inst
== 0xe0400002)
3214 /* The value we jump to is sitting in sp - 24. But that's
3215 loaded several instructions before the be instruction.
3216 I guess we could check for the previous instruction being
3217 mtsp %r1,%sr0 if we want to do sanity checking. */
3218 return (read_memory_integer
3219 (read_register (SP_REGNUM
) - 24, TARGET_PTR_BIT
/ 8)) & ~0x3;
3222 /* Haven't found the branch yet, but we're still in the stub.
3229 /* For the given instruction (INST), return any adjustment it makes
3230 to the stack pointer or zero for no adjustment.
3232 This only handles instructions commonly found in prologues. */
3235 prologue_inst_adjust_sp (inst
)
3238 /* This must persist across calls. */
3239 static int save_high21
;
3241 /* The most common way to perform a stack adjustment ldo X(sp),sp */
3242 if ((inst
& 0xffffc000) == 0x37de0000)
3243 return extract_14 (inst
);
3246 if ((inst
& 0xffe00000) == 0x6fc00000)
3247 return extract_14 (inst
);
3249 /* addil high21,%r1; ldo low11,(%r1),%r30)
3250 save high bits in save_high21 for later use. */
3251 if ((inst
& 0xffe00000) == 0x28200000)
3253 save_high21
= extract_21 (inst
);
3257 if ((inst
& 0xffff0000) == 0x343e0000)
3258 return save_high21
+ extract_14 (inst
);
3260 /* fstws as used by the HP compilers. */
3261 if ((inst
& 0xffffffe0) == 0x2fd01220)
3262 return extract_5_load (inst
);
3264 /* No adjustment. */
3268 /* Return nonzero if INST is a branch of some kind, else return zero. */
3301 /* Return the register number for a GR which is saved by INST or
3302 zero it INST does not save a GR. */
3305 inst_saves_gr (inst
)
3308 /* Does it look like a stw? */
3309 if ((inst
>> 26) == 0x1a || (inst
>> 26) == 0x1b
3310 || (inst
>> 26) == 0x1f
3311 || ((inst
>> 26) == 0x1f
3312 && ((inst
>> 6) == 0xa)))
3313 return extract_5R_store (inst
);
3315 /* Does it look like a std? */
3316 if ((inst
>> 26) == 0x1c
3317 || ((inst
>> 26) == 0x03
3318 && ((inst
>> 6) & 0xf) == 0xb))
3319 return extract_5R_store (inst
);
3321 /* Does it look like a stwm? GCC & HPC may use this in prologues. */
3322 if ((inst
>> 26) == 0x1b)
3323 return extract_5R_store (inst
);
3325 /* Does it look like sth or stb? HPC versions 9.0 and later use these
3327 if ((inst
>> 26) == 0x19 || (inst
>> 26) == 0x18
3328 || ((inst
>> 26) == 0x3
3329 && (((inst
>> 6) & 0xf) == 0x8
3330 || (inst
>> 6) & 0xf) == 0x9))
3331 return extract_5R_store (inst
);
3336 /* Return the register number for a FR which is saved by INST or
3337 zero it INST does not save a FR.
3339 Note we only care about full 64bit register stores (that's the only
3340 kind of stores the prologue will use).
3342 FIXME: What about argument stores with the HP compiler in ANSI mode? */
3345 inst_saves_fr (inst
)
3348 /* is this an FSTD ? */
3349 if ((inst
& 0xfc00dfc0) == 0x2c001200)
3350 return extract_5r_store (inst
);
3351 if ((inst
& 0xfc000002) == 0x70000002)
3352 return extract_5R_store (inst
);
3353 /* is this an FSTW ? */
3354 if ((inst
& 0xfc00df80) == 0x24001200)
3355 return extract_5r_store (inst
);
3356 if ((inst
& 0xfc000002) == 0x7c000000)
3357 return extract_5R_store (inst
);
3361 /* Advance PC across any function entry prologue instructions
3362 to reach some "real" code.
3364 Use information in the unwind table to determine what exactly should
3365 be in the prologue. */
3369 skip_prologue_hard_way (pc
)
3373 CORE_ADDR orig_pc
= pc
;
3374 unsigned long inst
, stack_remaining
, save_gr
, save_fr
, save_rp
, save_sp
;
3375 unsigned long args_stored
, status
, i
, restart_gr
, restart_fr
;
3376 struct unwind_table_entry
*u
;
3382 u
= find_unwind_entry (pc
);
3386 /* If we are not at the beginning of a function, then return now. */
3387 if ((pc
& ~0x3) != u
->region_start
)
3390 /* This is how much of a frame adjustment we need to account for. */
3391 stack_remaining
= u
->Total_frame_size
<< 3;
3393 /* Magic register saves we want to know about. */
3394 save_rp
= u
->Save_RP
;
3395 save_sp
= u
->Save_SP
;
3397 /* An indication that args may be stored into the stack. Unfortunately
3398 the HPUX compilers tend to set this in cases where no args were
3402 /* Turn the Entry_GR field into a bitmask. */
3404 for (i
= 3; i
< u
->Entry_GR
+ 3; i
++)
3406 /* Frame pointer gets saved into a special location. */
3407 if (u
->Save_SP
&& i
== FP_REGNUM
)
3410 save_gr
|= (1 << i
);
3412 save_gr
&= ~restart_gr
;
3414 /* Turn the Entry_FR field into a bitmask too. */
3416 for (i
= 12; i
< u
->Entry_FR
+ 12; i
++)
3417 save_fr
|= (1 << i
);
3418 save_fr
&= ~restart_fr
;
3420 /* Loop until we find everything of interest or hit a branch.
3422 For unoptimized GCC code and for any HP CC code this will never ever
3423 examine any user instructions.
3425 For optimzied GCC code we're faced with problems. GCC will schedule
3426 its prologue and make prologue instructions available for delay slot
3427 filling. The end result is user code gets mixed in with the prologue
3428 and a prologue instruction may be in the delay slot of the first branch
3431 Some unexpected things are expected with debugging optimized code, so
3432 we allow this routine to walk past user instructions in optimized
3434 while (save_gr
|| save_fr
|| save_rp
|| save_sp
|| stack_remaining
> 0
3437 unsigned int reg_num
;
3438 unsigned long old_stack_remaining
, old_save_gr
, old_save_fr
;
3439 unsigned long old_save_rp
, old_save_sp
, next_inst
;
3441 /* Save copies of all the triggers so we can compare them later
3443 old_save_gr
= save_gr
;
3444 old_save_fr
= save_fr
;
3445 old_save_rp
= save_rp
;
3446 old_save_sp
= save_sp
;
3447 old_stack_remaining
= stack_remaining
;
3449 status
= target_read_memory (pc
, buf
, 4);
3450 inst
= extract_unsigned_integer (buf
, 4);
3456 /* Note the interesting effects of this instruction. */
3457 stack_remaining
-= prologue_inst_adjust_sp (inst
);
3459 /* There are limited ways to store the return pointer into the
3461 if (inst
== 0x6bc23fd9 || inst
== 0x0fc212c1)
3464 /* This is the only way we save SP into the stack. At this time
3465 the HP compilers never bother to save SP into the stack. */
3466 if ((inst
& 0xffffc000) == 0x6fc10000)
3469 /* Account for general and floating-point register saves. */
3470 reg_num
= inst_saves_gr (inst
);
3471 save_gr
&= ~(1 << reg_num
);
3473 /* Ugh. Also account for argument stores into the stack.
3474 Unfortunately args_stored only tells us that some arguments
3475 where stored into the stack. Not how many or what kind!
3477 This is a kludge as on the HP compiler sets this bit and it
3478 never does prologue scheduling. So once we see one, skip past
3479 all of them. We have similar code for the fp arg stores below.
3481 FIXME. Can still die if we have a mix of GR and FR argument
3483 if (reg_num
>= 23 && reg_num
<= 26)
3485 while (reg_num
>= 23 && reg_num
<= 26)
3488 status
= target_read_memory (pc
, buf
, 4);
3489 inst
= extract_unsigned_integer (buf
, 4);
3492 reg_num
= inst_saves_gr (inst
);
3498 reg_num
= inst_saves_fr (inst
);
3499 save_fr
&= ~(1 << reg_num
);
3501 status
= target_read_memory (pc
+ 4, buf
, 4);
3502 next_inst
= extract_unsigned_integer (buf
, 4);
3508 /* We've got to be read to handle the ldo before the fp register
3510 if ((inst
& 0xfc000000) == 0x34000000
3511 && inst_saves_fr (next_inst
) >= 4
3512 && inst_saves_fr (next_inst
) <= 7)
3514 /* So we drop into the code below in a reasonable state. */
3515 reg_num
= inst_saves_fr (next_inst
);
3519 /* Ugh. Also account for argument stores into the stack.
3520 This is a kludge as on the HP compiler sets this bit and it
3521 never does prologue scheduling. So once we see one, skip past
3523 if (reg_num
>= 4 && reg_num
<= 7)
3525 while (reg_num
>= 4 && reg_num
<= 7)
3528 status
= target_read_memory (pc
, buf
, 4);
3529 inst
= extract_unsigned_integer (buf
, 4);
3532 if ((inst
& 0xfc000000) != 0x34000000)
3534 status
= target_read_memory (pc
+ 4, buf
, 4);
3535 next_inst
= extract_unsigned_integer (buf
, 4);
3538 reg_num
= inst_saves_fr (next_inst
);
3544 /* Quit if we hit any kind of branch. This can happen if a prologue
3545 instruction is in the delay slot of the first call/branch. */
3546 if (is_branch (inst
))
3549 /* What a crock. The HP compilers set args_stored even if no
3550 arguments were stored into the stack (boo hiss). This could
3551 cause this code to then skip a bunch of user insns (up to the
3554 To combat this we try to identify when args_stored was bogusly
3555 set and clear it. We only do this when args_stored is nonzero,
3556 all other resources are accounted for, and nothing changed on
3559 && !(save_gr
|| save_fr
|| save_rp
|| save_sp
|| stack_remaining
> 0)
3560 && old_save_gr
== save_gr
&& old_save_fr
== save_fr
3561 && old_save_rp
== save_rp
&& old_save_sp
== save_sp
3562 && old_stack_remaining
== stack_remaining
)
3569 /* We've got a tenative location for the end of the prologue. However
3570 because of limitations in the unwind descriptor mechanism we may
3571 have went too far into user code looking for the save of a register
3572 that does not exist. So, if there registers we expected to be saved
3573 but never were, mask them out and restart.
3575 This should only happen in optimized code, and should be very rare. */
3576 if (save_gr
|| (save_fr
&& !(restart_fr
|| restart_gr
)))
3579 restart_gr
= save_gr
;
3580 restart_fr
= save_fr
;
3588 /* Return the address of the PC after the last prologue instruction if
3589 we can determine it from the debug symbols. Else return zero. */
3595 struct symtab_and_line sal
;
3596 CORE_ADDR func_addr
, func_end
;
3599 /* If we can not find the symbol in the partial symbol table, then
3600 there is no hope we can determine the function's start address
3602 if (!find_pc_partial_function (pc
, NULL
, &func_addr
, &func_end
))
3605 /* Get the line associated with FUNC_ADDR. */
3606 sal
= find_pc_line (func_addr
, 0);
3608 /* There are only two cases to consider. First, the end of the source line
3609 is within the function bounds. In that case we return the end of the
3610 source line. Second is the end of the source line extends beyond the
3611 bounds of the current function. We need to use the slow code to
3612 examine instructions in that case.
3614 Anything else is simply a bug elsewhere. Fixing it here is absolutely
3615 the wrong thing to do. In fact, it should be entirely possible for this
3616 function to always return zero since the slow instruction scanning code
3617 is supposed to *always* work. If it does not, then it is a bug. */
3618 if (sal
.end
< func_end
)
3624 /* To skip prologues, I use this predicate. Returns either PC itself
3625 if the code at PC does not look like a function prologue; otherwise
3626 returns an address that (if we're lucky) follows the prologue. If
3627 LENIENT, then we must skip everything which is involved in setting
3628 up the frame (it's OK to skip more, just so long as we don't skip
3629 anything which might clobber the registers which are being saved.
3630 Currently we must not skip more on the alpha, but we might the lenient
3634 hppa_skip_prologue (pc
)
3639 CORE_ADDR post_prologue_pc
;
3642 /* See if we can determine the end of the prologue via the symbol table.
3643 If so, then return either PC, or the PC after the prologue, whichever
3646 post_prologue_pc
= after_prologue (pc
);
3648 /* If after_prologue returned a useful address, then use it. Else
3649 fall back on the instruction skipping code.
3651 Some folks have claimed this causes problems because the breakpoint
3652 may be the first instruction of the prologue. If that happens, then
3653 the instruction skipping code has a bug that needs to be fixed. */
3654 if (post_prologue_pc
!= 0)
3655 return max (pc
, post_prologue_pc
);
3657 return (skip_prologue_hard_way (pc
));
3660 /* Put here the code to store, into a struct frame_saved_regs,
3661 the addresses of the saved registers of frame described by FRAME_INFO.
3662 This includes special registers such as pc and fp saved in special
3663 ways in the stack frame. sp is even more special:
3664 the address we return for it IS the sp for the next frame. */
3667 hppa_frame_find_saved_regs (frame_info
, frame_saved_regs
)
3668 struct frame_info
*frame_info
;
3669 struct frame_saved_regs
*frame_saved_regs
;
3672 struct unwind_table_entry
*u
;
3673 unsigned long inst
, stack_remaining
, save_gr
, save_fr
, save_rp
, save_sp
;
3678 /* Zero out everything. */
3679 memset (frame_saved_regs
, '\0', sizeof (struct frame_saved_regs
));
3681 /* Call dummy frames always look the same, so there's no need to
3682 examine the dummy code to determine locations of saved registers;
3683 instead, let find_dummy_frame_regs fill in the correct offsets
3684 for the saved registers. */
3685 if ((frame_info
->pc
>= frame_info
->frame
3686 && frame_info
->pc
<= (frame_info
->frame
3687 /* A call dummy is sized in words, but it is
3688 actually a series of instructions. Account
3689 for that scaling factor. */
3690 + ((REGISTER_SIZE
/ INSTRUCTION_SIZE
)
3691 * CALL_DUMMY_LENGTH
)
3692 /* Similarly we have to account for 64bit
3693 wide register saves. */
3694 + (32 * REGISTER_SIZE
)
3695 /* We always consider FP regs 8 bytes long. */
3696 + (NUM_REGS
- FP0_REGNUM
) * 8
3697 /* Similarly we have to account for 64bit
3698 wide register saves. */
3699 + (6 * REGISTER_SIZE
))))
3700 find_dummy_frame_regs (frame_info
, frame_saved_regs
);
3702 /* Interrupt handlers are special too. They lay out the register
3703 state in the exact same order as the register numbers in GDB. */
3704 if (pc_in_interrupt_handler (frame_info
->pc
))
3706 for (i
= 0; i
< NUM_REGS
; i
++)
3708 /* SP is a little special. */
3710 frame_saved_regs
->regs
[SP_REGNUM
]
3711 = read_memory_integer (frame_info
->frame
+ SP_REGNUM
* 4,
3712 TARGET_PTR_BIT
/ 8);
3714 frame_saved_regs
->regs
[i
] = frame_info
->frame
+ i
* 4;
3719 #ifdef FRAME_FIND_SAVED_REGS_IN_SIGTRAMP
3720 /* Handle signal handler callers. */
3721 if (frame_info
->signal_handler_caller
)
3723 FRAME_FIND_SAVED_REGS_IN_SIGTRAMP (frame_info
, frame_saved_regs
);
3728 /* Get the starting address of the function referred to by the PC
3730 pc
= get_pc_function_start (frame_info
->pc
);
3733 u
= find_unwind_entry (pc
);
3737 /* This is how much of a frame adjustment we need to account for. */
3738 stack_remaining
= u
->Total_frame_size
<< 3;
3740 /* Magic register saves we want to know about. */
3741 save_rp
= u
->Save_RP
;
3742 save_sp
= u
->Save_SP
;
3744 /* Turn the Entry_GR field into a bitmask. */
3746 for (i
= 3; i
< u
->Entry_GR
+ 3; i
++)
3748 /* Frame pointer gets saved into a special location. */
3749 if (u
->Save_SP
&& i
== FP_REGNUM
)
3752 save_gr
|= (1 << i
);
3755 /* Turn the Entry_FR field into a bitmask too. */
3757 for (i
= 12; i
< u
->Entry_FR
+ 12; i
++)
3758 save_fr
|= (1 << i
);
3760 /* The frame always represents the value of %sp at entry to the
3761 current function (and is thus equivalent to the "saved" stack
3763 frame_saved_regs
->regs
[SP_REGNUM
] = frame_info
->frame
;
3765 /* Loop until we find everything of interest or hit a branch.
3767 For unoptimized GCC code and for any HP CC code this will never ever
3768 examine any user instructions.
3770 For optimized GCC code we're faced with problems. GCC will schedule
3771 its prologue and make prologue instructions available for delay slot
3772 filling. The end result is user code gets mixed in with the prologue
3773 and a prologue instruction may be in the delay slot of the first branch
3776 Some unexpected things are expected with debugging optimized code, so
3777 we allow this routine to walk past user instructions in optimized
3779 while (save_gr
|| save_fr
|| save_rp
|| save_sp
|| stack_remaining
> 0)
3781 status
= target_read_memory (pc
, buf
, 4);
3782 inst
= extract_unsigned_integer (buf
, 4);
3788 /* Note the interesting effects of this instruction. */
3789 stack_remaining
-= prologue_inst_adjust_sp (inst
);
3791 /* There is only one instruction used for saving RP into the stack. */
3792 if (inst
== 0x6bc23fd9)
3795 frame_saved_regs
->regs
[RP_REGNUM
] = frame_info
->frame
- 20;
3798 /* Just note that we found the save of SP into the stack. The
3799 value for frame_saved_regs was computed above. */
3800 if ((inst
& 0xffffc000) == 0x6fc10000)
3803 /* Account for general and floating-point register saves. */
3804 reg
= inst_saves_gr (inst
);
3805 if (reg
>= 3 && reg
<= 18
3806 && (!u
->Save_SP
|| reg
!= FP_REGNUM
))
3808 save_gr
&= ~(1 << reg
);
3810 /* stwm with a positive displacement is a *post modify*. */
3811 if ((inst
>> 26) == 0x1b
3812 && extract_14 (inst
) >= 0)
3813 frame_saved_regs
->regs
[reg
] = frame_info
->frame
;
3816 /* Handle code with and without frame pointers. */
3818 frame_saved_regs
->regs
[reg
]
3819 = frame_info
->frame
+ extract_14 (inst
);
3821 frame_saved_regs
->regs
[reg
]
3822 = frame_info
->frame
+ (u
->Total_frame_size
<< 3)
3823 + extract_14 (inst
);
3828 /* GCC handles callee saved FP regs a little differently.
3830 It emits an instruction to put the value of the start of
3831 the FP store area into %r1. It then uses fstds,ma with
3832 a basereg of %r1 for the stores.
3834 HP CC emits them at the current stack pointer modifying
3835 the stack pointer as it stores each register. */
3837 /* ldo X(%r3),%r1 or ldo X(%r30),%r1. */
3838 if ((inst
& 0xffffc000) == 0x34610000
3839 || (inst
& 0xffffc000) == 0x37c10000)
3840 fp_loc
= extract_14 (inst
);
3842 reg
= inst_saves_fr (inst
);
3843 if (reg
>= 12 && reg
<= 21)
3845 /* Note +4 braindamage below is necessary because the FP status
3846 registers are internally 8 registers rather than the expected
3848 save_fr
&= ~(1 << reg
);
3851 /* 1st HP CC FP register store. After this instruction
3852 we've set enough state that the GCC and HPCC code are
3853 both handled in the same manner. */
3854 frame_saved_regs
->regs
[reg
+ FP4_REGNUM
+ 4] = frame_info
->frame
;
3859 frame_saved_regs
->regs
[reg
+ FP0_REGNUM
+ 4]
3860 = frame_info
->frame
+ fp_loc
;
3865 /* Quit if we hit any kind of branch. This can happen if a prologue
3866 instruction is in the delay slot of the first call/branch. */
3867 if (is_branch (inst
))
3876 /* Exception handling support for the HP-UX ANSI C++ compiler.
3877 The compiler (aCC) provides a callback for exception events;
3878 GDB can set a breakpoint on this callback and find out what
3879 exception event has occurred. */
3881 /* The name of the hook to be set to point to the callback function */
3882 static char HP_ACC_EH_notify_hook
[] = "__eh_notify_hook";
3883 /* The name of the function to be used to set the hook value */
3884 static char HP_ACC_EH_set_hook_value
[] = "__eh_set_hook_value";
3885 /* The name of the callback function in end.o */
3886 static char HP_ACC_EH_notify_callback
[] = "__d_eh_notify_callback";
3887 /* Name of function in end.o on which a break is set (called by above) */
3888 static char HP_ACC_EH_break
[] = "__d_eh_break";
3889 /* Name of flag (in end.o) that enables catching throws */
3890 static char HP_ACC_EH_catch_throw
[] = "__d_eh_catch_throw";
3891 /* Name of flag (in end.o) that enables catching catching */
3892 static char HP_ACC_EH_catch_catch
[] = "__d_eh_catch_catch";
3893 /* The enum used by aCC */
3901 /* Is exception-handling support available with this executable? */
3902 static int hp_cxx_exception_support
= 0;
3903 /* Has the initialize function been run? */
3904 int hp_cxx_exception_support_initialized
= 0;
3905 /* Similar to above, but imported from breakpoint.c -- non-target-specific */
3906 extern int exception_support_initialized
;
3907 /* Address of __eh_notify_hook */
3908 static CORE_ADDR eh_notify_hook_addr
= 0;
3909 /* Address of __d_eh_notify_callback */
3910 static CORE_ADDR eh_notify_callback_addr
= 0;
3911 /* Address of __d_eh_break */
3912 static CORE_ADDR eh_break_addr
= 0;
3913 /* Address of __d_eh_catch_catch */
3914 static CORE_ADDR eh_catch_catch_addr
= 0;
3915 /* Address of __d_eh_catch_throw */
3916 static CORE_ADDR eh_catch_throw_addr
= 0;
3917 /* Sal for __d_eh_break */
3918 static struct symtab_and_line
*break_callback_sal
= 0;
3920 /* Code in end.c expects __d_pid to be set in the inferior,
3921 otherwise __d_eh_notify_callback doesn't bother to call
3922 __d_eh_break! So we poke the pid into this symbol
3927 setup_d_pid_in_inferior ()
3930 struct minimal_symbol
*msymbol
;
3931 char buf
[4]; /* FIXME 32x64? */
3933 /* Slam the pid of the process into __d_pid; failing is only a warning! */
3934 msymbol
= lookup_minimal_symbol ("__d_pid", NULL
, symfile_objfile
);
3935 if (msymbol
== NULL
)
3937 warning ("Unable to find __d_pid symbol in object file.");
3938 warning ("Suggest linking executable with -g (links in /opt/langtools/lib/end.o).");
3942 anaddr
= SYMBOL_VALUE_ADDRESS (msymbol
);
3943 store_unsigned_integer (buf
, 4, inferior_pid
); /* FIXME 32x64? */
3944 if (target_write_memory (anaddr
, buf
, 4)) /* FIXME 32x64? */
3946 warning ("Unable to write __d_pid");
3947 warning ("Suggest linking executable with -g (links in /opt/langtools/lib/end.o).");
3953 /* Initialize exception catchpoint support by looking for the
3954 necessary hooks/callbacks in end.o, etc., and set the hook value to
3955 point to the required debug function
3961 initialize_hp_cxx_exception_support ()
3963 struct symtabs_and_lines sals
;
3964 struct cleanup
*old_chain
;
3965 struct cleanup
*canonical_strings_chain
= NULL
;
3968 char *addr_end
= NULL
;
3969 char **canonical
= (char **) NULL
;
3971 struct symbol
*sym
= NULL
;
3972 struct minimal_symbol
*msym
= NULL
;
3973 struct objfile
*objfile
;
3974 asection
*shlib_info
;
3976 /* Detect and disallow recursion. On HP-UX with aCC, infinite
3977 recursion is a possibility because finding the hook for exception
3978 callbacks involves making a call in the inferior, which means
3979 re-inserting breakpoints which can re-invoke this code */
3981 static int recurse
= 0;
3984 hp_cxx_exception_support_initialized
= 0;
3985 exception_support_initialized
= 0;
3989 hp_cxx_exception_support
= 0;
3991 /* First check if we have seen any HP compiled objects; if not,
3992 it is very unlikely that HP's idiosyncratic callback mechanism
3993 for exception handling debug support will be available!
3994 This will percolate back up to breakpoint.c, where our callers
3995 will decide to try the g++ exception-handling support instead. */
3996 if (!hp_som_som_object_present
)
3999 /* We have a SOM executable with SOM debug info; find the hooks */
4001 /* First look for the notify hook provided by aCC runtime libs */
4002 /* If we find this symbol, we conclude that the executable must
4003 have HP aCC exception support built in. If this symbol is not
4004 found, even though we're a HP SOM-SOM file, we may have been
4005 built with some other compiler (not aCC). This results percolates
4006 back up to our callers in breakpoint.c which can decide to
4007 try the g++ style of exception support instead.
4008 If this symbol is found but the other symbols we require are
4009 not found, there is something weird going on, and g++ support
4010 should *not* be tried as an alternative.
4012 ASSUMPTION: Only HP aCC code will have __eh_notify_hook defined.
4013 ASSUMPTION: HP aCC and g++ modules cannot be linked together. */
4015 /* libCsup has this hook; it'll usually be non-debuggable */
4016 msym
= lookup_minimal_symbol (HP_ACC_EH_notify_hook
, NULL
, NULL
);
4019 eh_notify_hook_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4020 hp_cxx_exception_support
= 1;
4024 warning ("Unable to find exception callback hook (%s).", HP_ACC_EH_notify_hook
);
4025 warning ("Executable may not have been compiled debuggable with HP aCC.");
4026 warning ("GDB will be unable to intercept exception events.");
4027 eh_notify_hook_addr
= 0;
4028 hp_cxx_exception_support
= 0;
4032 /* Next look for the notify callback routine in end.o */
4033 /* This is always available in the SOM symbol dictionary if end.o is linked in */
4034 msym
= lookup_minimal_symbol (HP_ACC_EH_notify_callback
, NULL
, NULL
);
4037 eh_notify_callback_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4038 hp_cxx_exception_support
= 1;
4042 warning ("Unable to find exception callback routine (%s).", HP_ACC_EH_notify_callback
);
4043 warning ("Suggest linking executable with -g (links in /opt/langtools/lib/end.o).");
4044 warning ("GDB will be unable to intercept exception events.");
4045 eh_notify_callback_addr
= 0;
4049 #ifndef GDB_TARGET_IS_HPPA_20W
4050 /* Check whether the executable is dynamically linked or archive bound */
4051 /* With an archive-bound executable we can use the raw addresses we find
4052 for the callback function, etc. without modification. For an executable
4053 with shared libraries, we have to do more work to find the plabel, which
4054 can be the target of a call through $$dyncall from the aCC runtime support
4055 library (libCsup) which is linked shared by default by aCC. */
4056 /* This test below was copied from somsolib.c/somread.c. It may not be a very
4057 reliable one to test that an executable is linked shared. pai/1997-07-18 */
4058 shlib_info
= bfd_get_section_by_name (symfile_objfile
->obfd
, "$SHLIB_INFO$");
4059 if (shlib_info
&& (bfd_section_size (symfile_objfile
->obfd
, shlib_info
) != 0))
4061 /* The minsym we have has the local code address, but that's not the
4062 plabel that can be used by an inter-load-module call. */
4063 /* Find solib handle for main image (which has end.o), and use that
4064 and the min sym as arguments to __d_shl_get() (which does the equivalent
4065 of shl_findsym()) to find the plabel. */
4067 args_for_find_stub args
;
4068 static char message
[] = "Error while finding exception callback hook:\n";
4070 args
.solib_handle
= som_solib_get_solib_by_pc (eh_notify_callback_addr
);
4072 args
.return_val
= 0;
4075 catch_errors (cover_find_stub_with_shl_get
, (PTR
) &args
, message
,
4077 eh_notify_callback_addr
= args
.return_val
;
4080 exception_catchpoints_are_fragile
= 1;
4082 if (!eh_notify_callback_addr
)
4084 /* We can get here either if there is no plabel in the export list
4085 for the main image, or if something strange happened (??) */
4086 warning ("Couldn't find a plabel (indirect function label) for the exception callback.");
4087 warning ("GDB will not be able to intercept exception events.");
4092 exception_catchpoints_are_fragile
= 0;
4095 /* Now, look for the breakpointable routine in end.o */
4096 /* This should also be available in the SOM symbol dict. if end.o linked in */
4097 msym
= lookup_minimal_symbol (HP_ACC_EH_break
, NULL
, NULL
);
4100 eh_break_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4101 hp_cxx_exception_support
= 1;
4105 warning ("Unable to find exception callback routine to set breakpoint (%s).", HP_ACC_EH_break
);
4106 warning ("Suggest linking executable with -g (link in /opt/langtools/lib/end.o).");
4107 warning ("GDB will be unable to intercept exception events.");
4112 /* Next look for the catch enable flag provided in end.o */
4113 sym
= lookup_symbol (HP_ACC_EH_catch_catch
, (struct block
*) NULL
,
4114 VAR_NAMESPACE
, 0, (struct symtab
**) NULL
);
4115 if (sym
) /* sometimes present in debug info */
4117 eh_catch_catch_addr
= SYMBOL_VALUE_ADDRESS (sym
);
4118 hp_cxx_exception_support
= 1;
4121 /* otherwise look in SOM symbol dict. */
4123 msym
= lookup_minimal_symbol (HP_ACC_EH_catch_catch
, NULL
, NULL
);
4126 eh_catch_catch_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4127 hp_cxx_exception_support
= 1;
4131 warning ("Unable to enable interception of exception catches.");
4132 warning ("Executable may not have been compiled debuggable with HP aCC.");
4133 warning ("Suggest linking executable with -g (link in /opt/langtools/lib/end.o).");
4138 /* Next look for the catch enable flag provided end.o */
4139 sym
= lookup_symbol (HP_ACC_EH_catch_catch
, (struct block
*) NULL
,
4140 VAR_NAMESPACE
, 0, (struct symtab
**) NULL
);
4141 if (sym
) /* sometimes present in debug info */
4143 eh_catch_throw_addr
= SYMBOL_VALUE_ADDRESS (sym
);
4144 hp_cxx_exception_support
= 1;
4147 /* otherwise look in SOM symbol dict. */
4149 msym
= lookup_minimal_symbol (HP_ACC_EH_catch_throw
, NULL
, NULL
);
4152 eh_catch_throw_addr
= SYMBOL_VALUE_ADDRESS (msym
);
4153 hp_cxx_exception_support
= 1;
4157 warning ("Unable to enable interception of exception throws.");
4158 warning ("Executable may not have been compiled debuggable with HP aCC.");
4159 warning ("Suggest linking executable with -g (link in /opt/langtools/lib/end.o).");
4165 hp_cxx_exception_support
= 2; /* everything worked so far */
4166 hp_cxx_exception_support_initialized
= 1;
4167 exception_support_initialized
= 1;
4172 /* Target operation for enabling or disabling interception of
4174 KIND is either EX_EVENT_THROW or EX_EVENT_CATCH
4175 ENABLE is either 0 (disable) or 1 (enable).
4176 Return value is NULL if no support found;
4177 -1 if something went wrong,
4178 or a pointer to a symtab/line struct if the breakpointable
4179 address was found. */
4181 struct symtab_and_line
*
4182 child_enable_exception_callback (kind
, enable
)
4183 enum exception_event_kind kind
;
4188 if (!exception_support_initialized
|| !hp_cxx_exception_support_initialized
)
4189 if (!initialize_hp_cxx_exception_support ())
4192 switch (hp_cxx_exception_support
)
4195 /* Assuming no HP support at all */
4198 /* HP support should be present, but something went wrong */
4199 return (struct symtab_and_line
*) -1; /* yuck! */
4200 /* there may be other cases in the future */
4203 /* Set the EH hook to point to the callback routine */
4204 store_unsigned_integer (buf
, 4, enable
? eh_notify_callback_addr
: 0); /* FIXME 32x64 problem */
4205 /* pai: (temp) FIXME should there be a pack operation first? */
4206 if (target_write_memory (eh_notify_hook_addr
, buf
, 4)) /* FIXME 32x64 problem */
4208 warning ("Could not write to target memory for exception event callback.");
4209 warning ("Interception of exception events may not work.");
4210 return (struct symtab_and_line
*) -1;
4214 /* Ensure that __d_pid is set up correctly -- end.c code checks this. :-( */
4215 if (inferior_pid
> 0)
4217 if (setup_d_pid_in_inferior ())
4218 return (struct symtab_and_line
*) -1;
4222 warning ("Internal error: Invalid inferior pid? Cannot intercept exception events."); /* purecov: deadcode */
4223 return (struct symtab_and_line
*) -1; /* purecov: deadcode */
4229 case EX_EVENT_THROW
:
4230 store_unsigned_integer (buf
, 4, enable
? 1 : 0);
4231 if (target_write_memory (eh_catch_throw_addr
, buf
, 4)) /* FIXME 32x64? */
4233 warning ("Couldn't enable exception throw interception.");
4234 return (struct symtab_and_line
*) -1;
4237 case EX_EVENT_CATCH
:
4238 store_unsigned_integer (buf
, 4, enable
? 1 : 0);
4239 if (target_write_memory (eh_catch_catch_addr
, buf
, 4)) /* FIXME 32x64? */
4241 warning ("Couldn't enable exception catch interception.");
4242 return (struct symtab_and_line
*) -1;
4245 default: /* purecov: deadcode */
4246 error ("Request to enable unknown or unsupported exception event."); /* purecov: deadcode */
4249 /* Copy break address into new sal struct, malloc'ing if needed. */
4250 if (!break_callback_sal
)
4252 break_callback_sal
= (struct symtab_and_line
*) xmalloc (sizeof (struct symtab_and_line
));
4254 INIT_SAL (break_callback_sal
);
4255 break_callback_sal
->symtab
= NULL
;
4256 break_callback_sal
->pc
= eh_break_addr
;
4257 break_callback_sal
->line
= 0;
4258 break_callback_sal
->end
= eh_break_addr
;
4260 return break_callback_sal
;
4263 /* Record some information about the current exception event */
4264 static struct exception_event_record current_ex_event
;
4265 /* Convenience struct */
4266 static struct symtab_and_line null_symtab_and_line
=
4269 /* Report current exception event. Returns a pointer to a record
4270 that describes the kind of the event, where it was thrown from,
4271 and where it will be caught. More information may be reported
4273 struct exception_event_record
*
4274 child_get_current_exception_event ()
4276 CORE_ADDR event_kind
;
4277 CORE_ADDR throw_addr
;
4278 CORE_ADDR catch_addr
;
4279 struct frame_info
*fi
, *curr_frame
;
4282 curr_frame
= get_current_frame ();
4284 return (struct exception_event_record
*) NULL
;
4286 /* Go up one frame to __d_eh_notify_callback, because at the
4287 point when this code is executed, there's garbage in the
4288 arguments of __d_eh_break. */
4289 fi
= find_relative_frame (curr_frame
, &level
);
4291 return (struct exception_event_record
*) NULL
;
4293 select_frame (fi
, -1);
4295 /* Read in the arguments */
4296 /* __d_eh_notify_callback() is called with 3 arguments:
4297 1. event kind catch or throw
4298 2. the target address if known
4299 3. a flag -- not sure what this is. pai/1997-07-17 */
4300 event_kind
= read_register (ARG0_REGNUM
);
4301 catch_addr
= read_register (ARG1_REGNUM
);
4303 /* Now go down to a user frame */
4304 /* For a throw, __d_eh_break is called by
4305 __d_eh_notify_callback which is called by
4306 __notify_throw which is called
4308 For a catch, __d_eh_break is called by
4309 __d_eh_notify_callback which is called by
4310 <stackwalking stuff> which is called by
4311 __throw__<stuff> or __rethrow_<stuff> which is called
4313 /* FIXME: Don't use such magic numbers; search for the frames */
4314 level
= (event_kind
== EX_EVENT_THROW
) ? 3 : 4;
4315 fi
= find_relative_frame (curr_frame
, &level
);
4317 return (struct exception_event_record
*) NULL
;
4319 select_frame (fi
, -1);
4320 throw_addr
= fi
->pc
;
4322 /* Go back to original (top) frame */
4323 select_frame (curr_frame
, -1);
4325 current_ex_event
.kind
= (enum exception_event_kind
) event_kind
;
4326 current_ex_event
.throw_sal
= find_pc_line (throw_addr
, 1);
4327 current_ex_event
.catch_sal
= find_pc_line (catch_addr
, 1);
4329 return ¤t_ex_event
;
4333 unwind_command (exp
, from_tty
)
4338 struct unwind_table_entry
*u
;
4340 /* If we have an expression, evaluate it and use it as the address. */
4342 if (exp
!= 0 && *exp
!= 0)
4343 address
= parse_and_eval_address (exp
);
4347 u
= find_unwind_entry (address
);
4351 printf_unfiltered ("Can't find unwind table entry for %s\n", exp
);
4355 printf_unfiltered ("unwind_table_entry (0x%x):\n", u
);
4357 printf_unfiltered ("\tregion_start = ");
4358 print_address (u
->region_start
, gdb_stdout
);
4360 printf_unfiltered ("\n\tregion_end = ");
4361 print_address (u
->region_end
, gdb_stdout
);
4364 #define pif(FLD) if (u->FLD) printf_unfiltered (" "#FLD);
4366 #define pif(FLD) if (u->FLD) printf_unfiltered (" FLD");
4369 printf_unfiltered ("\n\tflags =");
4370 pif (Cannot_unwind
);
4372 pif (Millicode_save_sr0
);
4375 pif (Variable_Frame
);
4376 pif (Separate_Package_Body
);
4377 pif (Frame_Extension_Millicode
);
4378 pif (Stack_Overflow_Check
);
4379 pif (Two_Instruction_SP_Increment
);
4383 pif (Save_MRP_in_frame
);
4384 pif (extn_ptr_defined
);
4385 pif (Cleanup_defined
);
4386 pif (MPE_XL_interrupt_marker
);
4387 pif (HP_UX_interrupt_marker
);
4390 putchar_unfiltered ('\n');
4393 #define pin(FLD) printf_unfiltered ("\t"#FLD" = 0x%x\n", u->FLD);
4395 #define pin(FLD) printf_unfiltered ("\tFLD = 0x%x\n", u->FLD);
4398 pin (Region_description
);
4401 pin (Total_frame_size
);
4404 #ifdef PREPARE_TO_PROCEED
4406 /* If the user has switched threads, and there is a breakpoint
4407 at the old thread's pc location, then switch to that thread
4408 and return TRUE, else return FALSE and don't do a thread
4409 switch (or rather, don't seem to have done a thread switch).
4411 Ptrace-based gdb will always return FALSE to the thread-switch
4412 query, and thus also to PREPARE_TO_PROCEED.
4414 The important thing is whether there is a BPT instruction,
4415 not how many user breakpoints there are. So we have to worry
4416 about things like these:
4420 o User hits bp, no switch -- NO
4422 o User hits bp, switches threads -- YES
4424 o User hits bp, deletes bp, switches threads -- NO
4426 o User hits bp, deletes one of two or more bps
4427 at that PC, user switches threads -- YES
4429 o Plus, since we're buffering events, the user may have hit a
4430 breakpoint, deleted the breakpoint and then gotten another
4431 hit on that same breakpoint on another thread which
4432 actually hit before the delete. (FIXME in breakpoint.c
4433 so that "dead" breakpoints are ignored?) -- NO
4435 For these reasons, we have to violate information hiding and
4436 call "breakpoint_here_p". If core gdb thinks there is a bpt
4437 here, that's what counts, as core gdb is the one which is
4438 putting the BPT instruction in and taking it out. */
4440 hppa_prepare_to_proceed ()
4443 pid_t current_thread
;
4445 old_thread
= hppa_switched_threads (inferior_pid
);
4446 if (old_thread
!= 0)
4448 /* Switched over from "old_thread". Try to do
4449 as little work as possible, 'cause mostly
4450 we're going to switch back. */
4452 CORE_ADDR old_pc
= read_pc ();
4454 /* Yuk, shouldn't use global to specify current
4455 thread. But that's how gdb does it. */
4456 current_thread
= inferior_pid
;
4457 inferior_pid
= old_thread
;
4459 new_pc
= read_pc ();
4460 if (new_pc
!= old_pc
/* If at same pc, no need */
4461 && breakpoint_here_p (new_pc
))
4463 /* User hasn't deleted the BP.
4464 Return TRUE, finishing switch to "old_thread". */
4465 flush_cached_frames ();
4466 registers_changed ();
4468 printf ("---> PREPARE_TO_PROCEED (was %d, now %d)!\n",
4469 current_thread
, inferior_pid
);
4475 /* Otherwise switch back to the user-chosen thread. */
4476 inferior_pid
= current_thread
;
4477 new_pc
= read_pc (); /* Re-prime register cache */
4482 #endif /* PREPARE_TO_PROCEED */
4485 _initialize_hppa_tdep ()
4487 tm_print_insn
= print_insn_hppa
;
4489 add_cmd ("unwind", class_maintenance
, unwind_command
,
4490 "Print unwind table entry at given address.",
4491 &maintenanceprintlist
);