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 /* Use the program counter to determine the contents and size
52 of a breakpoint instruction. If no target-dependent macro
53 BREAKPOINT_FROM_PC has been defined to implement this function,
54 assume that the breakpoint doesn't depend on the PC, and
55 use the values of the BIG_BREAKPOINT and LITTLE_BREAKPOINT macros.
56 Return a pointer to a string of bytes that encode a breakpoint
57 instruction, stores the length of the string to *lenptr,
58 and optionally adjust the pc to point to the correct memory location
59 for inserting the breakpoint. */
62 legacy_breakpoint_from_pc (CORE_ADDR * pcptr, int *lenptr)
64 /* {BIG_,LITTLE_}BREAKPOINT is the sequence of bytes we insert for a
65 breakpoint. On some machines, breakpoints are handled by the
66 target environment and we don't have to worry about them here. */
68 if (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG)
70 static unsigned char big_break_insn[] = BIG_BREAKPOINT;
71 *lenptr = sizeof (big_break_insn);
72 return big_break_insn;
75 #ifdef LITTLE_BREAKPOINT
76 if (TARGET_BYTE_ORDER != BFD_ENDIAN_BIG)
78 static unsigned char little_break_insn[] = LITTLE_BREAKPOINT;
79 *lenptr = sizeof (little_break_insn);
80 return little_break_insn;
85 static unsigned char break_insn[] = BREAKPOINT;
86 *lenptr = sizeof (break_insn);
94 /* Implementation of extract return value that grubs around in the
97 legacy_extract_return_value (struct type *type, struct regcache *regcache,
100 char *registers = deprecated_grub_regcache_for_registers (regcache);
101 bfd_byte *buf = valbuf;
102 DEPRECATED_EXTRACT_RETURN_VALUE (type, registers, buf); /* OK */
105 /* Implementation of store return value that grubs the register cache.
106 Takes a local copy of the buffer to avoid const problems. */
108 legacy_store_return_value (struct type *type, struct regcache *regcache,
111 bfd_byte *b = alloca (TYPE_LENGTH (type));
112 gdb_assert (regcache == current_regcache);
113 memcpy (b, buf, TYPE_LENGTH (type));
114 DEPRECATED_STORE_RETURN_VALUE (type, b);
119 legacy_register_sim_regno (int regnum)
121 /* Only makes sense to supply raw registers. */
122 gdb_assert (regnum >= 0 && regnum < NUM_REGS);
123 /* NOTE: cagney/2002-05-13: The old code did it this way and it is
124 suspected that some GDB/SIM combinations may rely on this
125 behavour. The default should be one2one_register_sim_regno
127 if (REGISTER_NAME (regnum) != NULL
128 && REGISTER_NAME (regnum)[0] != '\0')
131 return LEGACY_SIM_REGNO_IGNORE;
135 generic_frameless_function_invocation_not (struct frame_info *fi)
141 generic_return_value_on_stack_not (struct type *type)
147 generic_skip_trampoline_code (CORE_ADDR pc)
153 generic_in_solib_call_trampoline (CORE_ADDR pc, char *name)
159 generic_in_solib_return_trampoline (CORE_ADDR pc, char *name)
165 generic_in_function_epilogue_p (struct gdbarch *gdbarch, CORE_ADDR pc)
171 legacy_register_name (int i)
173 #ifdef REGISTER_NAMES
174 static char *names[] = REGISTER_NAMES;
175 if (i < 0 || i >= (sizeof (names) / sizeof (*names)))
180 internal_error (__FILE__, __LINE__,
181 "legacy_register_name: called.");
186 #if defined (CALL_DUMMY)
187 LONGEST legacy_call_dummy_words[] = CALL_DUMMY;
189 LONGEST legacy_call_dummy_words[1];
191 int legacy_sizeof_call_dummy_words = sizeof (legacy_call_dummy_words);
194 generic_remote_translate_xfer_address (CORE_ADDR gdb_addr, int gdb_len,
195 CORE_ADDR * rem_addr, int *rem_len)
197 *rem_addr = gdb_addr;
202 generic_prologue_frameless_p (CORE_ADDR ip)
204 return ip == SKIP_PROLOGUE (ip);
207 /* New/multi-arched targets should use the correct gdbarch field
208 instead of using this global pointer. */
210 legacy_print_insn (bfd_vma vma, disassemble_info *info)
212 return (*tm_print_insn) (vma, info);
215 /* Helper functions for INNER_THAN */
218 core_addr_lessthan (CORE_ADDR lhs, CORE_ADDR rhs)
224 core_addr_greaterthan (CORE_ADDR lhs, CORE_ADDR rhs)
230 /* Helper functions for TARGET_{FLOAT,DOUBLE}_FORMAT */
232 const struct floatformat *
233 default_float_format (struct gdbarch *gdbarch)
236 int byte_order = gdbarch_byte_order (gdbarch);
238 int byte_order = TARGET_BYTE_ORDER;
243 return &floatformat_ieee_single_big;
244 case BFD_ENDIAN_LITTLE:
245 return &floatformat_ieee_single_little;
247 internal_error (__FILE__, __LINE__,
248 "default_float_format: bad byte order");
253 const struct floatformat *
254 default_double_format (struct gdbarch *gdbarch)
257 int byte_order = gdbarch_byte_order (gdbarch);
259 int byte_order = TARGET_BYTE_ORDER;
264 return &floatformat_ieee_double_big;
265 case BFD_ENDIAN_LITTLE:
266 return &floatformat_ieee_double_little;
268 internal_error (__FILE__, __LINE__,
269 "default_double_format: bad byte order");
273 /* Misc helper functions for targets. */
276 frame_num_args_unknown (struct frame_info *fi)
283 generic_register_convertible_not (int num)
289 /* Under some ABI's that specify the `struct convention' for returning
290 structures by value, by the time we've returned from the function,
291 the return value is sitting there in the caller's buffer, but GDB
292 has no way to find the address of that buffer.
294 On such architectures, use this function as your
295 extract_struct_value_address method. When asked to a struct
296 returned by value in this fashion, GDB will print a nice error
297 message, instead of garbage. */
299 generic_cannot_extract_struct_value_address (char *dummy)
305 core_addr_identity (CORE_ADDR addr)
311 no_op_reg_to_regnum (int reg)
316 /* Default prepare_to_procced(). */
318 default_prepare_to_proceed (int select_it)
323 /* Generic prepare_to_proceed(). This one should be suitable for most
324 targets that support threads. */
326 generic_prepare_to_proceed (int select_it)
329 struct target_waitstatus wait_status;
331 /* Get the last target status returned by target_wait(). */
332 get_last_target_status (&wait_ptid, &wait_status);
334 /* Make sure we were stopped either at a breakpoint, or because
336 if (wait_status.kind != TARGET_WAITKIND_STOPPED
337 || (wait_status.value.sig != TARGET_SIGNAL_TRAP &&
338 wait_status.value.sig != TARGET_SIGNAL_INT))
343 if (!ptid_equal (wait_ptid, minus_one_ptid)
344 && !ptid_equal (inferior_ptid, wait_ptid))
346 /* Switched over from WAIT_PID. */
347 CORE_ADDR wait_pc = read_pc_pid (wait_ptid);
349 if (wait_pc != read_pc ())
353 /* Switch back to WAIT_PID thread. */
354 inferior_ptid = wait_ptid;
356 /* FIXME: This stuff came from switch_to_thread() in
357 thread.c (which should probably be a public function). */
358 flush_cached_frames ();
359 registers_changed ();
361 select_frame (get_current_frame ());
363 /* We return 1 to indicate that there is a breakpoint here,
364 so we need to step over it before continuing to avoid
365 hitting it straight away. */
366 if (breakpoint_here_p (wait_pc))
377 init_frame_pc_noop (int fromleaf, struct frame_info *prev)
379 /* Do nothing, implies return the same PC value. */
380 return get_frame_pc (prev);
384 init_frame_pc_default (int fromleaf, struct frame_info *prev)
386 if (fromleaf && SAVED_PC_AFTER_CALL_P ())
387 return SAVED_PC_AFTER_CALL (get_next_frame (prev));
388 else if (get_next_frame (prev) != NULL)
389 return DEPRECATED_FRAME_SAVED_PC (get_next_frame (prev));
395 default_elf_make_msymbol_special (asymbol *sym, struct minimal_symbol *msym)
401 default_coff_make_msymbol_special (int val, struct minimal_symbol *msym)
407 cannot_register_not (int regnum)
412 /* Legacy version of target_virtual_frame_pointer(). Assumes that
413 there is an FP_REGNUM and that it is the same, cooked or raw. */
416 legacy_virtual_frame_pointer (CORE_ADDR pc,
418 LONGEST *frame_offset)
420 /* FIXME: cagney/2002-09-13: This code is used when identifying the
421 frame pointer of the current PC. It is assuming that a single
422 register and an offset can determine this. I think it should
423 instead generate a byte code expression as that would work better
424 with things like Dwarf2's CFI. */
425 if (FP_REGNUM >= 0 && FP_REGNUM < NUM_REGS)
426 *frame_regnum = FP_REGNUM;
427 else if (SP_REGNUM >= 0 && SP_REGNUM < NUM_REGS)
428 *frame_regnum = SP_REGNUM;
430 /* Should this be an internal error? I guess so, it is reflecting
431 an architectural limitation in the current design. */
432 internal_error (__FILE__, __LINE__, "No virtual frame pointer available");
436 /* Assume the world is sane, every register's virtual and real size
440 generic_register_size (int regnum)
442 gdb_assert (regnum >= 0 && regnum < NUM_REGS + NUM_PSEUDO_REGS);
443 if (gdbarch_register_type_p (current_gdbarch))
444 return TYPE_LENGTH (gdbarch_register_type (current_gdbarch, regnum));
446 /* FIXME: cagney/2003-03-01: Once all architectures implement
447 gdbarch_register_type(), this entire function can go away. It
448 is made obsolete by register_size(). */
449 return TYPE_LENGTH (REGISTER_VIRTUAL_TYPE (regnum)); /* OK */
452 /* Assume all registers are adjacent. */
455 generic_register_byte (int regnum)
459 gdb_assert (regnum >= 0 && regnum < NUM_REGS + NUM_PSEUDO_REGS);
461 for (i = 0; i < regnum; i++)
463 byte += generic_register_size (i);
470 legacy_pc_in_sigtramp (CORE_ADDR pc, char *name)
472 #if !defined (IN_SIGTRAMP)
473 if (SIGTRAMP_START_P ())
474 return (pc) >= SIGTRAMP_START (pc) && (pc) < SIGTRAMP_END (pc);
476 return name && strcmp ("_sigtramp", name) == 0;
478 return IN_SIGTRAMP (pc, name);
483 legacy_convert_register_p (int regnum)
485 return REGISTER_CONVERTIBLE (regnum);
489 legacy_register_to_value (int regnum, struct type *type,
490 char *from, char *to)
492 REGISTER_CONVERT_TO_VIRTUAL (regnum, type, from, to);
496 legacy_value_to_register (struct type *type, int regnum,
497 char *from, char *to)
499 REGISTER_CONVERT_TO_RAW (type, regnum, from, to);
503 /* Functions to manipulate the endianness of the target. */
505 /* ``target_byte_order'' is only used when non- multi-arch.
506 Multi-arch targets obtain the current byte order using the
507 TARGET_BYTE_ORDER gdbarch method.
509 The choice of initial value is entirely arbitrary. During startup,
510 the function initialize_current_architecture() updates this value
511 based on default byte-order information extracted from BFD. */
512 int target_byte_order = BFD_ENDIAN_BIG;
513 int target_byte_order_auto = 1;
515 static const char endian_big[] = "big";
516 static const char endian_little[] = "little";
517 static const char endian_auto[] = "auto";
518 static const char *endian_enum[] =
525 static const char *set_endian_string;
527 /* Called by ``show endian''. */
530 show_endian (char *args, int from_tty)
532 if (TARGET_BYTE_ORDER_AUTO)
533 printf_unfiltered ("The target endianness is set automatically (currently %s endian)\n",
534 (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG ? "big" : "little"));
536 printf_unfiltered ("The target is assumed to be %s endian\n",
537 (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG ? "big" : "little"));
541 set_endian (char *ignore_args, int from_tty, struct cmd_list_element *c)
543 if (set_endian_string == endian_auto)
545 target_byte_order_auto = 1;
547 else if (set_endian_string == endian_little)
549 target_byte_order_auto = 0;
552 struct gdbarch_info info;
553 gdbarch_info_init (&info);
554 info.byte_order = BFD_ENDIAN_LITTLE;
555 if (! gdbarch_update_p (info))
557 printf_unfiltered ("Little endian target not supported by GDB\n");
562 target_byte_order = BFD_ENDIAN_LITTLE;
565 else if (set_endian_string == endian_big)
567 target_byte_order_auto = 0;
570 struct gdbarch_info info;
571 gdbarch_info_init (&info);
572 info.byte_order = BFD_ENDIAN_BIG;
573 if (! gdbarch_update_p (info))
575 printf_unfiltered ("Big endian target not supported by GDB\n");
580 target_byte_order = BFD_ENDIAN_BIG;
584 internal_error (__FILE__, __LINE__,
585 "set_endian: bad value");
586 show_endian (NULL, from_tty);
589 /* Set the endianness from a BFD. */
592 set_endian_from_file (bfd *abfd)
596 internal_error (__FILE__, __LINE__,
597 "set_endian_from_file: not for multi-arch");
598 if (bfd_big_endian (abfd))
599 want = BFD_ENDIAN_BIG;
601 want = BFD_ENDIAN_LITTLE;
602 if (TARGET_BYTE_ORDER_AUTO)
603 target_byte_order = want;
604 else if (TARGET_BYTE_ORDER != want)
605 warning ("%s endian file does not match %s endian target.",
606 want == BFD_ENDIAN_BIG ? "big" : "little",
607 TARGET_BYTE_ORDER == BFD_ENDIAN_BIG ? "big" : "little");
611 /* Functions to manipulate the architecture of the target */
613 enum set_arch { set_arch_auto, set_arch_manual };
615 int target_architecture_auto = 1;
617 const char *set_architecture_string;
619 /* Old way of changing the current architecture. */
621 extern const struct bfd_arch_info bfd_default_arch_struct;
622 const struct bfd_arch_info *target_architecture = &bfd_default_arch_struct;
623 int (*target_architecture_hook) (const struct bfd_arch_info *ap);
626 arch_ok (const struct bfd_arch_info *arch)
629 internal_error (__FILE__, __LINE__,
630 "arch_ok: not multi-arched");
631 /* Should be performing the more basic check that the binary is
632 compatible with GDB. */
633 /* Check with the target that the architecture is valid. */
634 return (target_architecture_hook == NULL
635 || target_architecture_hook (arch));
639 set_arch (const struct bfd_arch_info *arch,
643 internal_error (__FILE__, __LINE__,
644 "set_arch: not multi-arched");
649 warning ("Target may not support %s architecture",
650 arch->printable_name);
651 target_architecture = arch;
653 case set_arch_manual:
656 printf_unfiltered ("Target does not support `%s' architecture.\n",
657 arch->printable_name);
661 target_architecture_auto = 0;
662 target_architecture = arch;
667 gdbarch_dump (current_gdbarch, gdb_stdlog);
670 /* Set the architecture from arch/machine (deprecated) */
673 set_architecture_from_arch_mach (enum bfd_architecture arch,
676 const struct bfd_arch_info *wanted = bfd_lookup_arch (arch, mach);
678 internal_error (__FILE__, __LINE__,
679 "set_architecture_from_arch_mach: not multi-arched");
681 set_arch (wanted, set_arch_manual);
683 internal_error (__FILE__, __LINE__,
684 "gdbarch: hardwired architecture/machine not recognized");
687 /* Set the architecture from a BFD (deprecated) */
690 set_architecture_from_file (bfd *abfd)
692 const struct bfd_arch_info *wanted = bfd_get_arch_info (abfd);
694 internal_error (__FILE__, __LINE__,
695 "set_architecture_from_file: not multi-arched");
696 if (target_architecture_auto)
698 set_arch (wanted, set_arch_auto);
700 else if (wanted != target_architecture)
702 warning ("%s architecture file may be incompatible with %s target.",
703 wanted->printable_name,
704 target_architecture->printable_name);
709 /* Called if the user enters ``show architecture'' without an
713 show_architecture (char *args, int from_tty)
716 arch = TARGET_ARCHITECTURE->printable_name;
717 if (target_architecture_auto)
718 printf_filtered ("The target architecture is set automatically (currently %s)\n", arch);
720 printf_filtered ("The target architecture is assumed to be %s\n", arch);
724 /* Called if the user enters ``set architecture'' with or without an
728 set_architecture (char *ignore_args, int from_tty, struct cmd_list_element *c)
730 if (strcmp (set_architecture_string, "auto") == 0)
732 target_architecture_auto = 1;
734 else if (GDB_MULTI_ARCH)
736 struct gdbarch_info info;
737 gdbarch_info_init (&info);
738 info.bfd_arch_info = bfd_scan_arch (set_architecture_string);
739 if (info.bfd_arch_info == NULL)
740 internal_error (__FILE__, __LINE__,
741 "set_architecture: bfd_scan_arch failed");
742 if (gdbarch_update_p (info))
743 target_architecture_auto = 0;
745 printf_unfiltered ("Architecture `%s' not recognized.\n",
746 set_architecture_string);
750 const struct bfd_arch_info *arch
751 = bfd_scan_arch (set_architecture_string);
753 internal_error (__FILE__, __LINE__,
754 "set_architecture: bfd_scan_arch failed");
755 set_arch (arch, set_arch_manual);
757 show_architecture (NULL, from_tty);
760 /* Set the dynamic target-system-dependent parameters (architecture,
761 byte-order) using information found in the BFD */
764 set_gdbarch_from_file (bfd *abfd)
768 struct gdbarch_info info;
769 gdbarch_info_init (&info);
771 if (! gdbarch_update_p (info))
772 error ("Architecture of file not recognized.\n");
776 set_architecture_from_file (abfd);
777 set_endian_from_file (abfd);
781 /* Initialize the current architecture. Update the ``set
782 architecture'' command so that it specifies a list of valid
785 #ifdef DEFAULT_BFD_ARCH
786 extern const bfd_arch_info_type DEFAULT_BFD_ARCH;
787 static const bfd_arch_info_type *default_bfd_arch = &DEFAULT_BFD_ARCH;
789 static const bfd_arch_info_type *default_bfd_arch;
792 #ifdef DEFAULT_BFD_VEC
793 extern const bfd_target DEFAULT_BFD_VEC;
794 static const bfd_target *default_bfd_vec = &DEFAULT_BFD_VEC;
796 static const bfd_target *default_bfd_vec;
800 initialize_current_architecture (void)
802 const char **arches = gdbarch_printable_names ();
804 /* determine a default architecture and byte order. */
805 struct gdbarch_info info;
806 gdbarch_info_init (&info);
808 /* Find a default architecture. */
809 if (info.bfd_arch_info == NULL
810 && default_bfd_arch != NULL)
811 info.bfd_arch_info = default_bfd_arch;
812 if (info.bfd_arch_info == NULL)
814 /* Choose the architecture by taking the first one
816 const char *chosen = arches[0];
818 for (arch = arches; *arch != NULL; arch++)
820 if (strcmp (*arch, chosen) < 0)
824 internal_error (__FILE__, __LINE__,
825 "initialize_current_architecture: No arch");
826 info.bfd_arch_info = bfd_scan_arch (chosen);
827 if (info.bfd_arch_info == NULL)
828 internal_error (__FILE__, __LINE__,
829 "initialize_current_architecture: Arch not found");
832 /* Take several guesses at a byte order. */
833 if (info.byte_order == BFD_ENDIAN_UNKNOWN
834 && default_bfd_vec != NULL)
836 /* Extract BFD's default vector's byte order. */
837 switch (default_bfd_vec->byteorder)
840 info.byte_order = BFD_ENDIAN_BIG;
842 case BFD_ENDIAN_LITTLE:
843 info.byte_order = BFD_ENDIAN_LITTLE;
849 if (info.byte_order == BFD_ENDIAN_UNKNOWN)
851 /* look for ``*el-*'' in the target name. */
853 chp = strchr (target_name, '-');
855 && chp - 2 >= target_name
856 && strncmp (chp - 2, "el", 2) == 0)
857 info.byte_order = BFD_ENDIAN_LITTLE;
859 if (info.byte_order == BFD_ENDIAN_UNKNOWN)
861 /* Wire it to big-endian!!! */
862 info.byte_order = BFD_ENDIAN_BIG;
867 if (! gdbarch_update_p (info))
869 internal_error (__FILE__, __LINE__,
870 "initialize_current_architecture: Selection of initial architecture failed");
875 /* If the multi-arch logic comes up with a byte-order (from BFD)
876 use it for the non-multi-arch case. */
877 if (info.byte_order != BFD_ENDIAN_UNKNOWN)
878 target_byte_order = info.byte_order;
879 initialize_non_multiarch ();
882 /* Create the ``set architecture'' command appending ``auto'' to the
883 list of architectures. */
885 struct cmd_list_element *c;
886 /* Append ``auto''. */
888 for (nr = 0; arches[nr] != NULL; nr++);
889 arches = xrealloc (arches, sizeof (char*) * (nr + 2));
890 arches[nr + 0] = "auto";
891 arches[nr + 1] = NULL;
892 /* FIXME: add_set_enum_cmd() uses an array of ``char *'' instead
893 of ``const char *''. We just happen to know that the casts are
895 c = add_set_enum_cmd ("architecture", class_support,
896 arches, &set_architecture_string,
897 "Set architecture of target.",
899 set_cmd_sfunc (c, set_architecture);
900 add_alias_cmd ("processor", "architecture", class_support, 1, &setlist);
901 /* Don't use set_from_show - need to print both auto/manual and
903 add_cmd ("architecture", class_support, show_architecture,
904 "Show the current target architecture", &showlist);
909 /* Initialize a gdbarch info to values that will be automatically
910 overridden. Note: Originally, this ``struct info'' was initialized
911 using memset(0). Unfortunatly, that ran into problems, namely
912 BFD_ENDIAN_BIG is zero. An explicit initialization function that
913 can explicitly set each field to a well defined value is used. */
916 gdbarch_info_init (struct gdbarch_info *info)
918 memset (info, 0, sizeof (struct gdbarch_info));
919 info->byte_order = BFD_ENDIAN_UNKNOWN;
920 info->osabi = GDB_OSABI_UNINITIALIZED;
925 extern initialize_file_ftype _initialize_gdbarch_utils;
928 _initialize_gdbarch_utils (void)
930 struct cmd_list_element *c;
931 c = add_set_enum_cmd ("endian", class_support,
932 endian_enum, &set_endian_string,
933 "Set endianness of target.",
935 set_cmd_sfunc (c, set_endian);
936 /* Don't use set_from_show - need to print both auto/manual and
938 add_cmd ("endian", class_support, show_endian,
939 "Show the current byte-order", &showlist);