1 /* Dynamic architecture support for GDB, the GNU debugger.
3 Copyright 1998, 1999, 2000, 2001, 2002, 2003 Free Software Foundation,
6 This file is part of GDB.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 59 Temple Place - Suite 330,
21 Boston, MA 02111-1307, USA. */
26 #include "arch-utils.h"
28 #include "inferior.h" /* enum CALL_DUMMY_LOCATION et.al. */
30 /* Just include everything in sight so that the every old definition
31 of macro is visible. */
35 #include "breakpoint.h"
42 #include "gdb_string.h"
44 #include "gdb_assert.h"
45 #include "sim-regno.h"
49 #include "floatformat.h"
51 /* Implementation of extract return value that grubs around in the
54 legacy_extract_return_value (struct type
*type
, struct regcache
*regcache
,
57 char *registers
= deprecated_grub_regcache_for_registers (regcache
);
58 bfd_byte
*buf
= valbuf
;
59 DEPRECATED_EXTRACT_RETURN_VALUE (type
, registers
, buf
); /* OK */
62 /* Implementation of store return value that grubs the register cache.
63 Takes a local copy of the buffer to avoid const problems. */
65 legacy_store_return_value (struct type
*type
, struct regcache
*regcache
,
68 bfd_byte
*b
= alloca (TYPE_LENGTH (type
));
69 gdb_assert (regcache
== current_regcache
);
70 memcpy (b
, buf
, TYPE_LENGTH (type
));
71 DEPRECATED_STORE_RETURN_VALUE (type
, b
);
76 always_use_struct_convention (int gcc_p
, struct type
*value_type
)
83 legacy_register_sim_regno (int regnum
)
85 /* Only makes sense to supply raw registers. */
86 gdb_assert (regnum
>= 0 && regnum
< NUM_REGS
);
87 /* NOTE: cagney/2002-05-13: The old code did it this way and it is
88 suspected that some GDB/SIM combinations may rely on this
89 behavour. The default should be one2one_register_sim_regno
91 if (REGISTER_NAME (regnum
) != NULL
92 && REGISTER_NAME (regnum
)[0] != '\0')
95 return LEGACY_SIM_REGNO_IGNORE
;
99 generic_frameless_function_invocation_not (struct frame_info
*fi
)
105 generic_return_value_on_stack_not (struct type
*type
)
111 generic_skip_trampoline_code (CORE_ADDR pc
)
117 generic_in_solib_call_trampoline (CORE_ADDR pc
, char *name
)
123 generic_in_solib_return_trampoline (CORE_ADDR pc
, char *name
)
129 generic_in_function_epilogue_p (struct gdbarch
*gdbarch
, CORE_ADDR pc
)
134 #if defined (CALL_DUMMY)
135 LONGEST legacy_call_dummy_words
[] = CALL_DUMMY
;
137 LONGEST legacy_call_dummy_words
[1];
139 int legacy_sizeof_call_dummy_words
= sizeof (legacy_call_dummy_words
);
142 generic_remote_translate_xfer_address (struct gdbarch
*gdbarch
,
143 struct regcache
*regcache
,
144 CORE_ADDR gdb_addr
, int gdb_len
,
145 CORE_ADDR
* rem_addr
, int *rem_len
)
147 *rem_addr
= gdb_addr
;
152 generic_prologue_frameless_p (CORE_ADDR ip
)
154 return ip
== SKIP_PROLOGUE (ip
);
157 /* New/multi-arched targets should use the correct gdbarch field
158 instead of using this global pointer. */
160 legacy_print_insn (bfd_vma vma
, disassemble_info
*info
)
162 return (*deprecated_tm_print_insn
) (vma
, info
);
165 /* Helper functions for INNER_THAN */
168 core_addr_lessthan (CORE_ADDR lhs
, CORE_ADDR rhs
)
174 core_addr_greaterthan (CORE_ADDR lhs
, CORE_ADDR rhs
)
180 /* Helper functions for TARGET_{FLOAT,DOUBLE}_FORMAT */
182 const struct floatformat
*
183 default_float_format (struct gdbarch
*gdbarch
)
186 int byte_order
= gdbarch_byte_order (gdbarch
);
188 int byte_order
= TARGET_BYTE_ORDER
;
193 return &floatformat_ieee_single_big
;
194 case BFD_ENDIAN_LITTLE
:
195 return &floatformat_ieee_single_little
;
197 internal_error (__FILE__
, __LINE__
,
198 "default_float_format: bad byte order");
203 const struct floatformat
*
204 default_double_format (struct gdbarch
*gdbarch
)
207 int byte_order
= gdbarch_byte_order (gdbarch
);
209 int byte_order
= TARGET_BYTE_ORDER
;
214 return &floatformat_ieee_double_big
;
215 case BFD_ENDIAN_LITTLE
:
216 return &floatformat_ieee_double_little
;
218 internal_error (__FILE__
, __LINE__
,
219 "default_double_format: bad byte order");
223 /* Misc helper functions for targets. */
226 deprecated_register_convertible_not (int num
)
232 /* Under some ABI's that specify the `struct convention' for returning
233 structures by value, by the time we've returned from the function,
234 the return value is sitting there in the caller's buffer, but GDB
235 has no way to find the address of that buffer.
237 On such architectures, use this function as your
238 extract_struct_value_address method. When asked to a struct
239 returned by value in this fashion, GDB will print a nice error
240 message, instead of garbage. */
242 generic_cannot_extract_struct_value_address (char *dummy
)
248 core_addr_identity (CORE_ADDR addr
)
254 no_op_reg_to_regnum (int reg
)
260 init_frame_pc_noop (int fromleaf
, struct frame_info
*prev
)
262 /* Do nothing, implies return the same PC value. */
263 return get_frame_pc (prev
);
267 init_frame_pc_default (int fromleaf
, struct frame_info
*prev
)
269 if (fromleaf
&& DEPRECATED_SAVED_PC_AFTER_CALL_P ())
270 return DEPRECATED_SAVED_PC_AFTER_CALL (get_next_frame (prev
));
271 else if (get_next_frame (prev
) != NULL
)
272 return DEPRECATED_FRAME_SAVED_PC (get_next_frame (prev
));
278 default_elf_make_msymbol_special (asymbol
*sym
, struct minimal_symbol
*msym
)
284 default_coff_make_msymbol_special (int val
, struct minimal_symbol
*msym
)
290 cannot_register_not (int regnum
)
295 /* Legacy version of target_virtual_frame_pointer(). Assumes that
296 there is an DEPRECATED_FP_REGNUM and that it is the same, cooked or
300 legacy_virtual_frame_pointer (CORE_ADDR pc
,
302 LONGEST
*frame_offset
)
304 /* FIXME: cagney/2002-09-13: This code is used when identifying the
305 frame pointer of the current PC. It is assuming that a single
306 register and an offset can determine this. I think it should
307 instead generate a byte code expression as that would work better
308 with things like Dwarf2's CFI. */
309 if (DEPRECATED_FP_REGNUM
>= 0 && DEPRECATED_FP_REGNUM
< NUM_REGS
)
310 *frame_regnum
= DEPRECATED_FP_REGNUM
;
311 else if (SP_REGNUM
>= 0 && SP_REGNUM
< NUM_REGS
)
312 *frame_regnum
= SP_REGNUM
;
314 /* Should this be an internal error? I guess so, it is reflecting
315 an architectural limitation in the current design. */
316 internal_error (__FILE__
, __LINE__
, "No virtual frame pointer available");
320 /* Assume the world is sane, every register's virtual and real size
324 generic_register_size (int regnum
)
326 gdb_assert (regnum
>= 0 && regnum
< NUM_REGS
+ NUM_PSEUDO_REGS
);
327 if (gdbarch_register_type_p (current_gdbarch
))
328 return TYPE_LENGTH (gdbarch_register_type (current_gdbarch
, regnum
));
330 /* FIXME: cagney/2003-03-01: Once all architectures implement
331 gdbarch_register_type(), this entire function can go away. It
332 is made obsolete by register_size(). */
333 return TYPE_LENGTH (REGISTER_VIRTUAL_TYPE (regnum
)); /* OK */
336 /* Assume all registers are adjacent. */
339 generic_register_byte (int regnum
)
343 gdb_assert (regnum
>= 0 && regnum
< NUM_REGS
+ NUM_PSEUDO_REGS
);
345 for (i
= 0; i
< regnum
; i
++)
347 byte
+= generic_register_size (i
);
354 legacy_pc_in_sigtramp (CORE_ADDR pc
, char *name
)
356 #if !defined (IN_SIGTRAMP)
357 if (SIGTRAMP_START_P ())
358 return (pc
) >= SIGTRAMP_START (pc
) && (pc
) < SIGTRAMP_END (pc
);
360 return name
&& strcmp ("_sigtramp", name
) == 0;
362 return IN_SIGTRAMP (pc
, name
);
367 legacy_convert_register_p (int regnum
, struct type
*type
)
369 return DEPRECATED_REGISTER_CONVERTIBLE (regnum
);
373 legacy_register_to_value (struct frame_info
*frame
, int regnum
,
374 struct type
*type
, void *to
)
376 char from
[MAX_REGISTER_SIZE
];
377 frame_read_register (frame
, regnum
, from
);
378 DEPRECATED_REGISTER_CONVERT_TO_VIRTUAL (regnum
, type
, from
, to
);
382 legacy_value_to_register (struct frame_info
*frame
, int regnum
,
383 struct type
*type
, const void *tmp
)
385 char to
[MAX_REGISTER_SIZE
];
386 char *from
= alloca (TYPE_LENGTH (type
));
387 memcpy (from
, from
, TYPE_LENGTH (type
));
388 DEPRECATED_REGISTER_CONVERT_TO_RAW (type
, regnum
, from
, to
);
389 put_frame_register (frame
, regnum
, to
);
393 /* Functions to manipulate the endianness of the target. */
395 /* ``target_byte_order'' is only used when non- multi-arch.
396 Multi-arch targets obtain the current byte order using the
397 TARGET_BYTE_ORDER gdbarch method.
399 The choice of initial value is entirely arbitrary. During startup,
400 the function initialize_current_architecture() updates this value
401 based on default byte-order information extracted from BFD. */
402 int target_byte_order
= BFD_ENDIAN_BIG
;
403 int target_byte_order_auto
= 1;
405 static const char endian_big
[] = "big";
406 static const char endian_little
[] = "little";
407 static const char endian_auto
[] = "auto";
408 static const char *endian_enum
[] =
415 static const char *set_endian_string
;
417 /* Called by ``show endian''. */
420 show_endian (char *args
, int from_tty
)
422 if (TARGET_BYTE_ORDER_AUTO
)
423 printf_unfiltered ("The target endianness is set automatically (currently %s endian)\n",
424 (TARGET_BYTE_ORDER
== BFD_ENDIAN_BIG
? "big" : "little"));
426 printf_unfiltered ("The target is assumed to be %s endian\n",
427 (TARGET_BYTE_ORDER
== BFD_ENDIAN_BIG
? "big" : "little"));
431 set_endian (char *ignore_args
, int from_tty
, struct cmd_list_element
*c
)
433 if (set_endian_string
== endian_auto
)
435 target_byte_order_auto
= 1;
437 else if (set_endian_string
== endian_little
)
439 target_byte_order_auto
= 0;
442 struct gdbarch_info info
;
443 gdbarch_info_init (&info
);
444 info
.byte_order
= BFD_ENDIAN_LITTLE
;
445 if (! gdbarch_update_p (info
))
447 printf_unfiltered ("Little endian target not supported by GDB\n");
452 target_byte_order
= BFD_ENDIAN_LITTLE
;
455 else if (set_endian_string
== endian_big
)
457 target_byte_order_auto
= 0;
460 struct gdbarch_info info
;
461 gdbarch_info_init (&info
);
462 info
.byte_order
= BFD_ENDIAN_BIG
;
463 if (! gdbarch_update_p (info
))
465 printf_unfiltered ("Big endian target not supported by GDB\n");
470 target_byte_order
= BFD_ENDIAN_BIG
;
474 internal_error (__FILE__
, __LINE__
,
475 "set_endian: bad value");
476 show_endian (NULL
, from_tty
);
479 /* Set the endianness from a BFD. */
482 set_endian_from_file (bfd
*abfd
)
486 internal_error (__FILE__
, __LINE__
,
487 "set_endian_from_file: not for multi-arch");
488 if (bfd_big_endian (abfd
))
489 want
= BFD_ENDIAN_BIG
;
491 want
= BFD_ENDIAN_LITTLE
;
492 if (TARGET_BYTE_ORDER_AUTO
)
493 target_byte_order
= want
;
494 else if (TARGET_BYTE_ORDER
!= want
)
495 warning ("%s endian file does not match %s endian target.",
496 want
== BFD_ENDIAN_BIG
? "big" : "little",
497 TARGET_BYTE_ORDER
== BFD_ENDIAN_BIG
? "big" : "little");
501 /* Functions to manipulate the architecture of the target */
503 enum set_arch
{ set_arch_auto
, set_arch_manual
};
505 int target_architecture_auto
= 1;
507 const char *set_architecture_string
;
509 /* Old way of changing the current architecture. */
511 extern const struct bfd_arch_info bfd_default_arch_struct
;
512 const struct bfd_arch_info
*target_architecture
= &bfd_default_arch_struct
;
513 int (*target_architecture_hook
) (const struct bfd_arch_info
*ap
);
516 arch_ok (const struct bfd_arch_info
*arch
)
519 internal_error (__FILE__
, __LINE__
,
520 "arch_ok: not multi-arched");
521 /* Should be performing the more basic check that the binary is
522 compatible with GDB. */
523 /* Check with the target that the architecture is valid. */
524 return (target_architecture_hook
== NULL
525 || target_architecture_hook (arch
));
529 set_arch (const struct bfd_arch_info
*arch
,
533 internal_error (__FILE__
, __LINE__
,
534 "set_arch: not multi-arched");
539 warning ("Target may not support %s architecture",
540 arch
->printable_name
);
541 target_architecture
= arch
;
543 case set_arch_manual
:
546 printf_unfiltered ("Target does not support `%s' architecture.\n",
547 arch
->printable_name
);
551 target_architecture_auto
= 0;
552 target_architecture
= arch
;
557 gdbarch_dump (current_gdbarch
, gdb_stdlog
);
560 /* Set the architecture from arch/machine (deprecated) */
563 set_architecture_from_arch_mach (enum bfd_architecture arch
,
566 const struct bfd_arch_info
*wanted
= bfd_lookup_arch (arch
, mach
);
568 internal_error (__FILE__
, __LINE__
,
569 "set_architecture_from_arch_mach: not multi-arched");
571 set_arch (wanted
, set_arch_manual
);
573 internal_error (__FILE__
, __LINE__
,
574 "gdbarch: hardwired architecture/machine not recognized");
577 /* Set the architecture from a BFD (deprecated) */
580 set_architecture_from_file (bfd
*abfd
)
582 const struct bfd_arch_info
*wanted
= bfd_get_arch_info (abfd
);
584 internal_error (__FILE__
, __LINE__
,
585 "set_architecture_from_file: not multi-arched");
586 if (target_architecture_auto
)
588 set_arch (wanted
, set_arch_auto
);
590 else if (wanted
!= target_architecture
)
592 warning ("%s architecture file may be incompatible with %s target.",
593 wanted
->printable_name
,
594 target_architecture
->printable_name
);
599 /* Called if the user enters ``show architecture'' without an
603 show_architecture (char *args
, int from_tty
)
606 arch
= TARGET_ARCHITECTURE
->printable_name
;
607 if (target_architecture_auto
)
608 printf_filtered ("The target architecture is set automatically (currently %s)\n", arch
);
610 printf_filtered ("The target architecture is assumed to be %s\n", arch
);
614 /* Called if the user enters ``set architecture'' with or without an
618 set_architecture (char *ignore_args
, int from_tty
, struct cmd_list_element
*c
)
620 if (strcmp (set_architecture_string
, "auto") == 0)
622 target_architecture_auto
= 1;
624 else if (GDB_MULTI_ARCH
)
626 struct gdbarch_info info
;
627 gdbarch_info_init (&info
);
628 info
.bfd_arch_info
= bfd_scan_arch (set_architecture_string
);
629 if (info
.bfd_arch_info
== NULL
)
630 internal_error (__FILE__
, __LINE__
,
631 "set_architecture: bfd_scan_arch failed");
632 if (gdbarch_update_p (info
))
633 target_architecture_auto
= 0;
635 printf_unfiltered ("Architecture `%s' not recognized.\n",
636 set_architecture_string
);
640 const struct bfd_arch_info
*arch
641 = bfd_scan_arch (set_architecture_string
);
643 internal_error (__FILE__
, __LINE__
,
644 "set_architecture: bfd_scan_arch failed");
645 set_arch (arch
, set_arch_manual
);
647 show_architecture (NULL
, from_tty
);
650 /* Set the dynamic target-system-dependent parameters (architecture,
651 byte-order) using information found in the BFD */
654 set_gdbarch_from_file (bfd
*abfd
)
658 struct gdbarch_info info
;
659 gdbarch_info_init (&info
);
661 if (! gdbarch_update_p (info
))
662 error ("Architecture of file not recognized.\n");
666 set_architecture_from_file (abfd
);
667 set_endian_from_file (abfd
);
671 /* Initialize the current architecture. Update the ``set
672 architecture'' command so that it specifies a list of valid
675 #ifdef DEFAULT_BFD_ARCH
676 extern const bfd_arch_info_type DEFAULT_BFD_ARCH
;
677 static const bfd_arch_info_type
*default_bfd_arch
= &DEFAULT_BFD_ARCH
;
679 static const bfd_arch_info_type
*default_bfd_arch
;
682 #ifdef DEFAULT_BFD_VEC
683 extern const bfd_target DEFAULT_BFD_VEC
;
684 static const bfd_target
*default_bfd_vec
= &DEFAULT_BFD_VEC
;
686 static const bfd_target
*default_bfd_vec
;
690 initialize_current_architecture (void)
692 const char **arches
= gdbarch_printable_names ();
694 /* determine a default architecture and byte order. */
695 struct gdbarch_info info
;
696 gdbarch_info_init (&info
);
698 /* Find a default architecture. */
699 if (info
.bfd_arch_info
== NULL
700 && default_bfd_arch
!= NULL
)
701 info
.bfd_arch_info
= default_bfd_arch
;
702 if (info
.bfd_arch_info
== NULL
)
704 /* Choose the architecture by taking the first one
706 const char *chosen
= arches
[0];
708 for (arch
= arches
; *arch
!= NULL
; arch
++)
710 if (strcmp (*arch
, chosen
) < 0)
714 internal_error (__FILE__
, __LINE__
,
715 "initialize_current_architecture: No arch");
716 info
.bfd_arch_info
= bfd_scan_arch (chosen
);
717 if (info
.bfd_arch_info
== NULL
)
718 internal_error (__FILE__
, __LINE__
,
719 "initialize_current_architecture: Arch not found");
722 /* Take several guesses at a byte order. */
723 if (info
.byte_order
== BFD_ENDIAN_UNKNOWN
724 && default_bfd_vec
!= NULL
)
726 /* Extract BFD's default vector's byte order. */
727 switch (default_bfd_vec
->byteorder
)
730 info
.byte_order
= BFD_ENDIAN_BIG
;
732 case BFD_ENDIAN_LITTLE
:
733 info
.byte_order
= BFD_ENDIAN_LITTLE
;
739 if (info
.byte_order
== BFD_ENDIAN_UNKNOWN
)
741 /* look for ``*el-*'' in the target name. */
743 chp
= strchr (target_name
, '-');
745 && chp
- 2 >= target_name
746 && strncmp (chp
- 2, "el", 2) == 0)
747 info
.byte_order
= BFD_ENDIAN_LITTLE
;
749 if (info
.byte_order
== BFD_ENDIAN_UNKNOWN
)
751 /* Wire it to big-endian!!! */
752 info
.byte_order
= BFD_ENDIAN_BIG
;
757 if (! gdbarch_update_p (info
))
759 internal_error (__FILE__
, __LINE__
,
760 "initialize_current_architecture: Selection of initial architecture failed");
765 /* If the multi-arch logic comes up with a byte-order (from BFD)
766 use it for the non-multi-arch case. */
767 if (info
.byte_order
!= BFD_ENDIAN_UNKNOWN
)
768 target_byte_order
= info
.byte_order
;
769 initialize_non_multiarch ();
772 /* Create the ``set architecture'' command appending ``auto'' to the
773 list of architectures. */
775 struct cmd_list_element
*c
;
776 /* Append ``auto''. */
778 for (nr
= 0; arches
[nr
] != NULL
; nr
++);
779 arches
= xrealloc (arches
, sizeof (char*) * (nr
+ 2));
780 arches
[nr
+ 0] = "auto";
781 arches
[nr
+ 1] = NULL
;
782 /* FIXME: add_set_enum_cmd() uses an array of ``char *'' instead
783 of ``const char *''. We just happen to know that the casts are
785 c
= add_set_enum_cmd ("architecture", class_support
,
786 arches
, &set_architecture_string
,
787 "Set architecture of target.",
789 set_cmd_sfunc (c
, set_architecture
);
790 add_alias_cmd ("processor", "architecture", class_support
, 1, &setlist
);
791 /* Don't use set_from_show - need to print both auto/manual and
793 add_cmd ("architecture", class_support
, show_architecture
,
794 "Show the current target architecture", &showlist
);
799 /* Initialize a gdbarch info to values that will be automatically
800 overridden. Note: Originally, this ``struct info'' was initialized
801 using memset(0). Unfortunatly, that ran into problems, namely
802 BFD_ENDIAN_BIG is zero. An explicit initialization function that
803 can explicitly set each field to a well defined value is used. */
806 gdbarch_info_init (struct gdbarch_info
*info
)
808 memset (info
, 0, sizeof (struct gdbarch_info
));
809 info
->byte_order
= BFD_ENDIAN_UNKNOWN
;
810 info
->osabi
= GDB_OSABI_UNINITIALIZED
;
815 extern initialize_file_ftype _initialize_gdbarch_utils
; /* -Wmissing-prototypes */
818 _initialize_gdbarch_utils (void)
820 struct cmd_list_element
*c
;
821 c
= add_set_enum_cmd ("endian", class_support
,
822 endian_enum
, &set_endian_string
,
823 "Set endianness of target.",
825 set_cmd_sfunc (c
, set_endian
);
826 /* Don't use set_from_show - need to print both auto/manual and
828 add_cmd ("endian", class_support
, show_endian
,
829 "Show the current byte-order", &showlist
);