gdb/gdbarch.c

   1 /* *INDENT-OFF* */ /* THIS FILE IS GENERATED */
   2
   3 /* Dynamic architecture support for GDB, the GNU debugger.
   4
   5    Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
   6    2007, 2008, 2009 Free Software Foundation, Inc.
   7
   8    This file is part of GDB.
   9
  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 3 of the License, or
  13    (at your option) any later version.
  14
  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.
  19
  20    You should have received a copy of the GNU General Public License
  21    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  22
  23 /* This file was created with the aid of ``gdbarch.sh''.
  24
  25    The Bourne shell script ``gdbarch.sh'' creates the files
  26    ``new-gdbarch.c'' and ``new-gdbarch.h and then compares them
  27    against the existing ``gdbarch.[hc]''.  Any differences found
  28    being reported.
  29
  30    If editing this file, please also run gdbarch.sh and merge any
  31    changes into that script. Conversely, when making sweeping changes
  32    to this file, modifying gdbarch.sh and using its output may prove
  33    easier.  */
  34
  35
  36 #include "defs.h"
  37 #include "arch-utils.h"
  38
  39 #include "gdbcmd.h"
  40 #include "inferior.h"
  41 #include "symcat.h"
  42
  43 #include "floatformat.h"
  44
  45 #include "gdb_assert.h"
  46 #include "gdb_string.h"
  47 #include "reggroups.h"
  48 #include "osabi.h"
  49 #include "gdb_obstack.h"
  50 #include "observer.h"
  51 #include "regcache.h"
  52
  53 /* Static function declarations */
  54
  55 static void alloc_gdbarch_data (struct gdbarch *);
  56
  57 /* Non-zero if we want to trace architecture code.  */
  58
  59 #ifndef GDBARCH_DEBUG
  60 #define GDBARCH_DEBUG 0
  61 #endif
  62 int gdbarch_debug = GDBARCH_DEBUG;
  63 static void
  64 show_gdbarch_debug (struct ui_file *file, int from_tty,
  65                     struct cmd_list_element *c, const char *value)
  66 {
  67   fprintf_filtered (file, _("Architecture debugging is %s.\n"), value);
  68 }
  69
  70 static const char *
  71 pformat (const struct floatformat **format)
  72 {
  73   if (format == NULL)
  74     return "(null)";
  75   else
  76     /* Just print out one of them - this is only for diagnostics.  */
  77     return format[0]->name;
  78 }
  79
  80 static const char *
  81 pstring (const char *string)
  82 {
  83   if (string == NULL)
  84     return "(null)";
  85   return string;
  86 }
  87
  88
  89 /* Maintain the struct gdbarch object.  */
  90
  91 struct gdbarch
  92 {
  93   /* Has this architecture been fully initialized?  */
  94   int initialized_p;
  95
  96   /* An obstack bound to the lifetime of the architecture.  */
  97   struct obstack *obstack;
  98
  99   /* basic architectural information.  */
 100   const struct bfd_arch_info * bfd_arch_info;
 101   int byte_order;
 102   int byte_order_for_code;
 103   enum gdb_osabi osabi;
 104   const struct target_desc * target_desc;
 105
 106   /* target specific vector.  */
 107   struct gdbarch_tdep *tdep;
 108   gdbarch_dump_tdep_ftype *dump_tdep;
 109
 110   /* per-architecture data-pointers.  */
 111   unsigned nr_data;
 112   void **data;
 113
 114   /* per-architecture swap-regions.  */
 115   struct gdbarch_swap *swap;
 116
 117   /* Multi-arch values.
 118
 119      When extending this structure you must:
 120
 121      Add the field below.
 122
 123      Declare set/get functions and define the corresponding
 124      macro in gdbarch.h.
 125
 126      gdbarch_alloc(): If zero/NULL is not a suitable default,
 127      initialize the new field.
 128
 129      verify_gdbarch(): Confirm that the target updated the field
 130      correctly.
 131
 132      gdbarch_dump(): Add a fprintf_unfiltered call so that the new
 133      field is dumped out
 134
 135      ``startup_gdbarch()'': Append an initial value to the static
 136      variable (base values on the host's c-type system).
 137
 138      get_gdbarch(): Implement the set/get functions (probably using
 139      the macro's as shortcuts).
 140
 141      */
 142
 143   int bits_big_endian;
 144   int short_bit;
 145   int int_bit;
 146   int long_bit;
 147   int long_long_bit;
 148   int long_long_align_bit;
 149   int half_bit;
 150   const struct floatformat ** half_format;
 151   int float_bit;
 152   const struct floatformat ** float_format;
 153   int double_bit;
 154   const struct floatformat ** double_format;
 155   int long_double_bit;
 156   const struct floatformat ** long_double_format;
 157   int ptr_bit;
 158   int addr_bit;
 159   int dwarf2_addr_size;
 160   int char_signed;
 161   gdbarch_read_pc_ftype *read_pc;
 162   gdbarch_write_pc_ftype *write_pc;
 163   gdbarch_virtual_frame_pointer_ftype *virtual_frame_pointer;
 164   gdbarch_pseudo_register_read_ftype *pseudo_register_read;
 165   gdbarch_pseudo_register_read_value_ftype *pseudo_register_read_value;
 166   gdbarch_pseudo_register_write_ftype *pseudo_register_write;
 167   int num_regs;
 168   int num_pseudo_regs;
 169   gdbarch_ax_pseudo_register_collect_ftype *ax_pseudo_register_collect;
 170   gdbarch_ax_pseudo_register_push_stack_ftype *ax_pseudo_register_push_stack;
 171   int sp_regnum;
 172   int pc_regnum;
 173   int ps_regnum;
 174   int fp0_regnum;
 175   gdbarch_stab_reg_to_regnum_ftype *stab_reg_to_regnum;
 176   gdbarch_ecoff_reg_to_regnum_ftype *ecoff_reg_to_regnum;
 177   gdbarch_sdb_reg_to_regnum_ftype *sdb_reg_to_regnum;
 178   gdbarch_dwarf2_reg_to_regnum_ftype *dwarf2_reg_to_regnum;
 179   gdbarch_register_name_ftype *register_name;
 180   gdbarch_register_type_ftype *register_type;
 181   gdbarch_dummy_id_ftype *dummy_id;
 182   int deprecated_fp_regnum;
 183   gdbarch_push_dummy_call_ftype *push_dummy_call;
 184   int call_dummy_location;
 185   gdbarch_push_dummy_code_ftype *push_dummy_code;
 186   gdbarch_print_registers_info_ftype *print_registers_info;
 187   gdbarch_print_float_info_ftype *print_float_info;
 188   gdbarch_print_vector_info_ftype *print_vector_info;
 189   gdbarch_register_sim_regno_ftype *register_sim_regno;
 190   gdbarch_cannot_fetch_register_ftype *cannot_fetch_register;
 191   gdbarch_cannot_store_register_ftype *cannot_store_register;
 192   gdbarch_get_longjmp_target_ftype *get_longjmp_target;
 193   int believe_pcc_promotion;
 194   gdbarch_convert_register_p_ftype *convert_register_p;
 195   gdbarch_register_to_value_ftype *register_to_value;
 196   gdbarch_value_to_register_ftype *value_to_register;
 197   gdbarch_value_from_register_ftype *value_from_register;
 198   gdbarch_pointer_to_address_ftype *pointer_to_address;
 199   gdbarch_address_to_pointer_ftype *address_to_pointer;
 200   gdbarch_integer_to_address_ftype *integer_to_address;
 201   gdbarch_return_value_ftype *return_value;
 202   gdbarch_skip_prologue_ftype *skip_prologue;
 203   gdbarch_skip_main_prologue_ftype *skip_main_prologue;
 204   gdbarch_inner_than_ftype *inner_than;
 205   gdbarch_breakpoint_from_pc_ftype *breakpoint_from_pc;
 206   gdbarch_remote_breakpoint_from_pc_ftype *remote_breakpoint_from_pc;
 207   gdbarch_adjust_breakpoint_address_ftype *adjust_breakpoint_address;
 208   gdbarch_memory_insert_breakpoint_ftype *memory_insert_breakpoint;
 209   gdbarch_memory_remove_breakpoint_ftype *memory_remove_breakpoint;
 210   CORE_ADDR decr_pc_after_break;
 211   CORE_ADDR deprecated_function_start_offset;
 212   gdbarch_remote_register_number_ftype *remote_register_number;
 213   gdbarch_fetch_tls_load_module_address_ftype *fetch_tls_load_module_address;
 214   CORE_ADDR frame_args_skip;
 215   gdbarch_unwind_pc_ftype *unwind_pc;
 216   gdbarch_unwind_sp_ftype *unwind_sp;
 217   gdbarch_frame_num_args_ftype *frame_num_args;
 218   gdbarch_frame_align_ftype *frame_align;
 219   gdbarch_stabs_argument_has_addr_ftype *stabs_argument_has_addr;
 220   int frame_red_zone_size;
 221   gdbarch_convert_from_func_ptr_addr_ftype *convert_from_func_ptr_addr;
 222   gdbarch_addr_bits_remove_ftype *addr_bits_remove;
 223   gdbarch_smash_text_address_ftype *smash_text_address;
 224   gdbarch_software_single_step_ftype *software_single_step;
 225   gdbarch_single_step_through_delay_ftype *single_step_through_delay;
 226   gdbarch_print_insn_ftype *print_insn;
 227   gdbarch_skip_trampoline_code_ftype *skip_trampoline_code;
 228   gdbarch_skip_solib_resolver_ftype *skip_solib_resolver;
 229   gdbarch_in_solib_return_trampoline_ftype *in_solib_return_trampoline;
 230   gdbarch_in_function_epilogue_p_ftype *in_function_epilogue_p;
 231   gdbarch_elf_make_msymbol_special_ftype *elf_make_msymbol_special;
 232   gdbarch_coff_make_msymbol_special_ftype *coff_make_msymbol_special;
 233   int cannot_step_breakpoint;
 234   int have_nonsteppable_watchpoint;
 235   gdbarch_address_class_type_flags_ftype *address_class_type_flags;
 236   gdbarch_address_class_type_flags_to_name_ftype *address_class_type_flags_to_name;
 237   gdbarch_address_class_name_to_type_flags_ftype *address_class_name_to_type_flags;
 238   gdbarch_register_reggroup_p_ftype *register_reggroup_p;
 239   gdbarch_fetch_pointer_argument_ftype *fetch_pointer_argument;
 240   gdbarch_regset_from_core_section_ftype *regset_from_core_section;
 241   struct core_regset_section * core_regset_sections;
 242   gdbarch_make_corefile_notes_ftype *make_corefile_notes;
 243   gdbarch_find_memory_regions_ftype *find_memory_regions;
 244   gdbarch_core_xfer_shared_libraries_ftype *core_xfer_shared_libraries;
 245   gdbarch_core_pid_to_str_ftype *core_pid_to_str;
 246   const char * gcore_bfd_target;
 247   int vtable_function_descriptors;
 248   int vbit_in_delta;
 249   gdbarch_skip_permanent_breakpoint_ftype *skip_permanent_breakpoint;
 250   ULONGEST max_insn_length;
 251   gdbarch_displaced_step_copy_insn_ftype *displaced_step_copy_insn;
 252   gdbarch_displaced_step_hw_singlestep_ftype *displaced_step_hw_singlestep;
 253   gdbarch_displaced_step_fixup_ftype *displaced_step_fixup;
 254   gdbarch_displaced_step_free_closure_ftype *displaced_step_free_closure;
 255   gdbarch_displaced_step_location_ftype *displaced_step_location;
 256   gdbarch_relocate_instruction_ftype *relocate_instruction;
 257   gdbarch_overlay_update_ftype *overlay_update;
 258   gdbarch_core_read_description_ftype *core_read_description;
 259   gdbarch_static_transform_name_ftype *static_transform_name;
 260   int sofun_address_maybe_missing;
 261   gdbarch_process_record_ftype *process_record;
 262   gdbarch_process_record_signal_ftype *process_record_signal;
 263   gdbarch_target_signal_from_host_ftype *target_signal_from_host;
 264   gdbarch_target_signal_to_host_ftype *target_signal_to_host;
 265   gdbarch_get_siginfo_type_ftype *get_siginfo_type;
 266   gdbarch_record_special_symbol_ftype *record_special_symbol;
 267   gdbarch_get_syscall_number_ftype *get_syscall_number;
 268   const char * stap_integer_prefix;
 269   const char * stap_integer_suffix;
 270   const char * stap_register_prefix;
 271   const char * stap_register_suffix;
 272   const char * stap_register_indirection_prefix;
 273   const char * stap_register_indirection_suffix;
 274   const char * stap_gdb_register_prefix;
 275   const char * stap_gdb_register_suffix;
 276   gdbarch_stap_is_single_operand_ftype *stap_is_single_operand;
 277   gdbarch_stap_parse_special_token_ftype *stap_parse_special_token;
 278   int has_global_solist;
 279   int has_global_breakpoints;
 280   gdbarch_has_shared_address_space_ftype *has_shared_address_space;
 281   gdbarch_fast_tracepoint_valid_at_ftype *fast_tracepoint_valid_at;
 282   gdbarch_auto_charset_ftype *auto_charset;
 283   gdbarch_auto_wide_charset_ftype *auto_wide_charset;
 284   const char * solib_symbols_extension;
 285   int has_dos_based_file_system;
 286   gdbarch_gen_return_address_ftype *gen_return_address;
 287   gdbarch_info_proc_ftype *info_proc;
 288 };
 289
 290
 291 /* The default architecture uses host values (for want of a better
 292    choice).  */
 293
 294 extern const struct bfd_arch_info bfd_default_arch_struct;
 295
 296 struct gdbarch startup_gdbarch =
 297 {
 298   1, /* Always initialized.  */
 299   NULL, /* The obstack.  */
 300   /* basic architecture information.  */
 301   &bfd_default_arch_struct,  /* bfd_arch_info */
 302   BFD_ENDIAN_BIG,  /* byte_order */
 303   BFD_ENDIAN_BIG,  /* byte_order_for_code */
 304   GDB_OSABI_UNKNOWN,  /* osabi */
 305   0,  /* target_desc */
 306   /* target specific vector and its dump routine.  */
 307   NULL, NULL,
 308   /*per-architecture data-pointers and swap regions.  */
 309   0, NULL, NULL,
 310   /* Multi-arch values */
 311   1,  /* bits_big_endian */
 312   8 * sizeof (short),  /* short_bit */
 313   8 * sizeof (int),  /* int_bit */
 314   8 * sizeof (long),  /* long_bit */
 315   8 * sizeof (LONGEST),  /* long_long_bit */
 316   8 * sizeof (LONGEST),  /* long_long_align_bit */
 317   16,  /* half_bit */
 318   0,  /* half_format */
 319   8 * sizeof (float),  /* float_bit */
 320   0,  /* float_format */
 321   8 * sizeof (double),  /* double_bit */
 322   0,  /* double_format */
 323   8 * sizeof (long double),  /* long_double_bit */
 324   0,  /* long_double_format */
 325   8 * sizeof (void*),  /* ptr_bit */
 326   8 * sizeof (void*),  /* addr_bit */
 327   sizeof (void*),  /* dwarf2_addr_size */
 328   1,  /* char_signed */
 329   0,  /* read_pc */
 330   0,  /* write_pc */
 331   legacy_virtual_frame_pointer,  /* virtual_frame_pointer */
 332   0,  /* pseudo_register_read */
 333   0,  /* pseudo_register_read_value */
 334   0,  /* pseudo_register_write */
 335   0,  /* num_regs */
 336   0,  /* num_pseudo_regs */
 337   0,  /* ax_pseudo_register_collect */
 338   0,  /* ax_pseudo_register_push_stack */
 339   -1,  /* sp_regnum */
 340   -1,  /* pc_regnum */
 341   -1,  /* ps_regnum */
 342   0,  /* fp0_regnum */
 343   no_op_reg_to_regnum,  /* stab_reg_to_regnum */
 344   no_op_reg_to_regnum,  /* ecoff_reg_to_regnum */
 345   no_op_reg_to_regnum,  /* sdb_reg_to_regnum */
 346   no_op_reg_to_regnum,  /* dwarf2_reg_to_regnum */
 347   0,  /* register_name */
 348   0,  /* register_type */
 349   0,  /* dummy_id */
 350   -1,  /* deprecated_fp_regnum */
 351   0,  /* push_dummy_call */
 352   0,  /* call_dummy_location */
 353   0,  /* push_dummy_code */
 354   default_print_registers_info,  /* print_registers_info */
 355   0,  /* print_float_info */
 356   0,  /* print_vector_info */
 357   legacy_register_sim_regno,  /* register_sim_regno */
 358   cannot_register_not,  /* cannot_fetch_register */
 359   cannot_register_not,  /* cannot_store_register */
 360   0,  /* get_longjmp_target */
 361   0,  /* believe_pcc_promotion */
 362   generic_convert_register_p,  /* convert_register_p */
 363   0,  /* register_to_value */
 364   0,  /* value_to_register */
 365   0,  /* value_from_register */
 366   unsigned_pointer_to_address,  /* pointer_to_address */
 367   unsigned_address_to_pointer,  /* address_to_pointer */
 368   0,  /* integer_to_address */
 369   0,  /* return_value */
 370   0,  /* skip_prologue */
 371   0,  /* skip_main_prologue */
 372   0,  /* inner_than */
 373   0,  /* breakpoint_from_pc */
 374   default_remote_breakpoint_from_pc,  /* remote_breakpoint_from_pc */
 375   0,  /* adjust_breakpoint_address */
 376   default_memory_insert_breakpoint,  /* memory_insert_breakpoint */
 377   default_memory_remove_breakpoint,  /* memory_remove_breakpoint */
 378   0,  /* decr_pc_after_break */
 379   0,  /* deprecated_function_start_offset */
 380   default_remote_register_number,  /* remote_register_number */
 381   0,  /* fetch_tls_load_module_address */
 382   0,  /* frame_args_skip */
 383   0,  /* unwind_pc */
 384   0,  /* unwind_sp */
 385   0,  /* frame_num_args */
 386   0,  /* frame_align */
 387   default_stabs_argument_has_addr,  /* stabs_argument_has_addr */
 388   0,  /* frame_red_zone_size */
 389   convert_from_func_ptr_addr_identity,  /* convert_from_func_ptr_addr */
 390   core_addr_identity,  /* addr_bits_remove */
 391   core_addr_identity,  /* smash_text_address */
 392   0,  /* software_single_step */
 393   0,  /* single_step_through_delay */
 394   0,  /* print_insn */
 395   0,  /* skip_trampoline_code */
 396   generic_skip_solib_resolver,  /* skip_solib_resolver */
 397   generic_in_solib_return_trampoline,  /* in_solib_return_trampoline */
 398   generic_in_function_epilogue_p,  /* in_function_epilogue_p */
 399   0,  /* elf_make_msymbol_special */
 400   0,  /* coff_make_msymbol_special */
 401   0,  /* cannot_step_breakpoint */
 402   0,  /* have_nonsteppable_watchpoint */
 403   0,  /* address_class_type_flags */
 404   0,  /* address_class_type_flags_to_name */
 405   0,  /* address_class_name_to_type_flags */
 406   default_register_reggroup_p,  /* register_reggroup_p */
 407   0,  /* fetch_pointer_argument */
 408   0,  /* regset_from_core_section */
 409   0,  /* core_regset_sections */
 410   0,  /* make_corefile_notes */
 411   0,  /* find_memory_regions */
 412   0,  /* core_xfer_shared_libraries */
 413   0,  /* core_pid_to_str */
 414   0,  /* gcore_bfd_target */
 415   0,  /* vtable_function_descriptors */
 416   0,  /* vbit_in_delta */
 417   0,  /* skip_permanent_breakpoint */
 418   0,  /* max_insn_length */
 419   0,  /* displaced_step_copy_insn */
 420   default_displaced_step_hw_singlestep,  /* displaced_step_hw_singlestep */
 421   0,  /* displaced_step_fixup */
 422   NULL,  /* displaced_step_free_closure */
 423   NULL,  /* displaced_step_location */
 424   0,  /* relocate_instruction */
 425   0,  /* overlay_update */
 426   0,  /* core_read_description */
 427   0,  /* static_transform_name */
 428   0,  /* sofun_address_maybe_missing */
 429   0,  /* process_record */
 430   0,  /* process_record_signal */
 431   default_target_signal_from_host,  /* target_signal_from_host */
 432   default_target_signal_to_host,  /* target_signal_to_host */
 433   0,  /* get_siginfo_type */
 434   0,  /* record_special_symbol */
 435   0,  /* get_syscall_number */
 436   0,  /* stap_integer_prefix */
 437   0,  /* stap_integer_suffix */
 438   0,  /* stap_register_prefix */
 439   0,  /* stap_register_suffix */
 440   0,  /* stap_register_indirection_prefix */
 441   0,  /* stap_register_indirection_suffix */
 442   0,  /* stap_gdb_register_prefix */
 443   0,  /* stap_gdb_register_suffix */
 444   0,  /* stap_is_single_operand */
 445   0,  /* stap_parse_special_token */
 446   0,  /* has_global_solist */
 447   0,  /* has_global_breakpoints */
 448   default_has_shared_address_space,  /* has_shared_address_space */
 449   default_fast_tracepoint_valid_at,  /* fast_tracepoint_valid_at */
 450   default_auto_charset,  /* auto_charset */
 451   default_auto_wide_charset,  /* auto_wide_charset */
 452   0,  /* solib_symbols_extension */
 453   0,  /* has_dos_based_file_system */
 454   default_gen_return_address,  /* gen_return_address */
 455   0,  /* info_proc */
 456   /* startup_gdbarch() */
 457 };
 458
 459 struct gdbarch *target_gdbarch = &startup_gdbarch;
 460
 461 /* Create a new ``struct gdbarch'' based on information provided by
 462    ``struct gdbarch_info''.  */
 463
 464 struct gdbarch *
 465 gdbarch_alloc (const struct gdbarch_info *info,
 466                struct gdbarch_tdep *tdep)
 467 {
 468   struct gdbarch *gdbarch;
 469
 470   /* Create an obstack for allocating all the per-architecture memory,
 471      then use that to allocate the architecture vector.  */
 472   struct obstack *obstack = XMALLOC (struct obstack);
 473   obstack_init (obstack);
 474   gdbarch = obstack_alloc (obstack, sizeof (*gdbarch));
 475   memset (gdbarch, 0, sizeof (*gdbarch));
 476   gdbarch->obstack = obstack;
 477
 478   alloc_gdbarch_data (gdbarch);
 479
 480   gdbarch->tdep = tdep;
 481
 482   gdbarch->bfd_arch_info = info->bfd_arch_info;
 483   gdbarch->byte_order = info->byte_order;
 484   gdbarch->byte_order_for_code = info->byte_order_for_code;
 485   gdbarch->osabi = info->osabi;
 486   gdbarch->target_desc = info->target_desc;
 487
 488   /* Force the explicit initialization of these.  */
 489   gdbarch->bits_big_endian = (gdbarch->byte_order == BFD_ENDIAN_BIG);
 490   gdbarch->short_bit = 2*TARGET_CHAR_BIT;
 491   gdbarch->int_bit = 4*TARGET_CHAR_BIT;
 492   gdbarch->long_bit = 4*TARGET_CHAR_BIT;
 493   gdbarch->long_long_bit = 2*gdbarch->long_bit;
 494   gdbarch->long_long_align_bit = 2*gdbarch->long_bit;
 495   gdbarch->half_bit = 2*TARGET_CHAR_BIT;
 496   gdbarch->float_bit = 4*TARGET_CHAR_BIT;
 497   gdbarch->double_bit = 8*TARGET_CHAR_BIT;
 498   gdbarch->long_double_bit = 8*TARGET_CHAR_BIT;
 499   gdbarch->ptr_bit = gdbarch->int_bit;
 500   gdbarch->char_signed = -1;
 501   gdbarch->virtual_frame_pointer = legacy_virtual_frame_pointer;
 502   gdbarch->num_regs = -1;
 503   gdbarch->sp_regnum = -1;
 504   gdbarch->pc_regnum = -1;
 505   gdbarch->ps_regnum = -1;
 506   gdbarch->fp0_regnum = -1;
 507   gdbarch->stab_reg_to_regnum = no_op_reg_to_regnum;
 508   gdbarch->ecoff_reg_to_regnum = no_op_reg_to_regnum;
 509   gdbarch->sdb_reg_to_regnum = no_op_reg_to_regnum;
 510   gdbarch->dwarf2_reg_to_regnum = no_op_reg_to_regnum;
 511   gdbarch->deprecated_fp_regnum = -1;
 512   gdbarch->call_dummy_location = AT_ENTRY_POINT;
 513   gdbarch->print_registers_info = default_print_registers_info;
 514   gdbarch->register_sim_regno = legacy_register_sim_regno;
 515   gdbarch->cannot_fetch_register = cannot_register_not;
 516   gdbarch->cannot_store_register = cannot_register_not;
 517   gdbarch->convert_register_p = generic_convert_register_p;
 518   gdbarch->value_from_register = default_value_from_register;
 519   gdbarch->pointer_to_address = unsigned_pointer_to_address;
 520   gdbarch->address_to_pointer = unsigned_address_to_pointer;
 521   gdbarch->remote_breakpoint_from_pc = default_remote_breakpoint_from_pc;
 522   gdbarch->memory_insert_breakpoint = default_memory_insert_breakpoint;
 523   gdbarch->memory_remove_breakpoint = default_memory_remove_breakpoint;
 524   gdbarch->remote_register_number = default_remote_register_number;
 525   gdbarch->stabs_argument_has_addr = default_stabs_argument_has_addr;
 526   gdbarch->convert_from_func_ptr_addr = convert_from_func_ptr_addr_identity;
 527   gdbarch->addr_bits_remove = core_addr_identity;
 528   gdbarch->smash_text_address = core_addr_identity;
 529   gdbarch->skip_trampoline_code = generic_skip_trampoline_code;
 530   gdbarch->skip_solib_resolver = generic_skip_solib_resolver;
 531   gdbarch->in_solib_return_trampoline = generic_in_solib_return_trampoline;
 532   gdbarch->in_function_epilogue_p = generic_in_function_epilogue_p;
 533   gdbarch->elf_make_msymbol_special = default_elf_make_msymbol_special;
 534   gdbarch->coff_make_msymbol_special = default_coff_make_msymbol_special;
 535   gdbarch->register_reggroup_p = default_register_reggroup_p;
 536   gdbarch->displaced_step_hw_singlestep = default_displaced_step_hw_singlestep;
 537   gdbarch->displaced_step_fixup = NULL;
 538   gdbarch->displaced_step_free_closure = NULL;
 539   gdbarch->displaced_step_location = NULL;
 540   gdbarch->relocate_instruction = NULL;
 541   gdbarch->target_signal_from_host = default_target_signal_from_host;
 542   gdbarch->target_signal_to_host = default_target_signal_to_host;
 543   gdbarch->has_shared_address_space = default_has_shared_address_space;
 544   gdbarch->fast_tracepoint_valid_at = default_fast_tracepoint_valid_at;
 545   gdbarch->auto_charset = default_auto_charset;
 546   gdbarch->auto_wide_charset = default_auto_wide_charset;
 547   gdbarch->gen_return_address = default_gen_return_address;
 548   /* gdbarch_alloc() */
 549
 550   return gdbarch;
 551 }
 552
 553
 554 /* Allocate extra space using the per-architecture obstack.  */
 555
 556 void *
 557 gdbarch_obstack_zalloc (struct gdbarch *arch, long size)
 558 {
 559   void *data = obstack_alloc (arch->obstack, size);
 560
 561   memset (data, 0, size);
 562   return data;
 563 }
 564
 565
 566 /* Free a gdbarch struct.  This should never happen in normal
 567    operation --- once you've created a gdbarch, you keep it around.
 568    However, if an architecture's init function encounters an error
 569    building the structure, it may need to clean up a partially
 570    constructed gdbarch.  */
 571
 572 void
 573 gdbarch_free (struct gdbarch *arch)
 574 {
 575   struct obstack *obstack;
 576
 577   gdb_assert (arch != NULL);
 578   gdb_assert (!arch->initialized_p);
 579   obstack = arch->obstack;
 580   obstack_free (obstack, 0); /* Includes the ARCH.  */
 581   xfree (obstack);
 582 }
 583
 584
 585 /* Ensure that all values in a GDBARCH are reasonable.  */
 586
 587 static void
 588 verify_gdbarch (struct gdbarch *gdbarch)
 589 {
 590   struct ui_file *log;
 591   struct cleanup *cleanups;
 592   long length;
 593   char *buf;
 594
 595   log = mem_fileopen ();
 596   cleanups = make_cleanup_ui_file_delete (log);
 597   /* fundamental */
 598   if (gdbarch->byte_order == BFD_ENDIAN_UNKNOWN)
 599     fprintf_unfiltered (log, "\n\tbyte-order");
 600   if (gdbarch->bfd_arch_info == NULL)
 601     fprintf_unfiltered (log, "\n\tbfd_arch_info");
 602   /* Check those that need to be defined for the given multi-arch level.  */
 603   /* Skip verify of bits_big_endian, invalid_p == 0 */
 604   /* Skip verify of short_bit, invalid_p == 0 */
 605   /* Skip verify of int_bit, invalid_p == 0 */
 606   /* Skip verify of long_bit, invalid_p == 0 */
 607   /* Skip verify of long_long_bit, invalid_p == 0 */
 608   /* Skip verify of long_long_align_bit, invalid_p == 0 */
 609   /* Skip verify of half_bit, invalid_p == 0 */
 610   if (gdbarch->half_format == 0)
 611     gdbarch->half_format = floatformats_ieee_half;
 612   /* Skip verify of float_bit, invalid_p == 0 */
 613   if (gdbarch->float_format == 0)
 614     gdbarch->float_format = floatformats_ieee_single;
 615   /* Skip verify of double_bit, invalid_p == 0 */
 616   if (gdbarch->double_format == 0)
 617     gdbarch->double_format = floatformats_ieee_double;
 618   /* Skip verify of long_double_bit, invalid_p == 0 */
 619   if (gdbarch->long_double_format == 0)
 620     gdbarch->long_double_format = floatformats_ieee_double;
 621   /* Skip verify of ptr_bit, invalid_p == 0 */
 622   if (gdbarch->addr_bit == 0)
 623     gdbarch->addr_bit = gdbarch_ptr_bit (gdbarch);
 624   if (gdbarch->dwarf2_addr_size == 0)
 625     gdbarch->dwarf2_addr_size = gdbarch_ptr_bit (gdbarch) / TARGET_CHAR_BIT;
 626   if (gdbarch->char_signed == -1)
 627     gdbarch->char_signed = 1;
 628   /* Skip verify of read_pc, has predicate.  */
 629   /* Skip verify of write_pc, has predicate.  */
 630   /* Skip verify of virtual_frame_pointer, invalid_p == 0 */
 631   /* Skip verify of pseudo_register_read, has predicate.  */
 632   /* Skip verify of pseudo_register_read_value, has predicate.  */
 633   /* Skip verify of pseudo_register_write, has predicate.  */
 634   if (gdbarch->num_regs == -1)
 635     fprintf_unfiltered (log, "\n\tnum_regs");
 636   /* Skip verify of num_pseudo_regs, invalid_p == 0 */
 637   /* Skip verify of ax_pseudo_register_collect, has predicate.  */
 638   /* Skip verify of ax_pseudo_register_push_stack, has predicate.  */
 639   /* Skip verify of sp_regnum, invalid_p == 0 */
 640   /* Skip verify of pc_regnum, invalid_p == 0 */
 641   /* Skip verify of ps_regnum, invalid_p == 0 */
 642   /* Skip verify of fp0_regnum, invalid_p == 0 */
 643   /* Skip verify of stab_reg_to_regnum, invalid_p == 0 */
 644   /* Skip verify of ecoff_reg_to_regnum, invalid_p == 0 */
 645   /* Skip verify of sdb_reg_to_regnum, invalid_p == 0 */
 646   /* Skip verify of dwarf2_reg_to_regnum, invalid_p == 0 */
 647   if (gdbarch->register_name == 0)
 648     fprintf_unfiltered (log, "\n\tregister_name");
 649   /* Skip verify of register_type, has predicate.  */
 650   /* Skip verify of dummy_id, has predicate.  */
 651   /* Skip verify of deprecated_fp_regnum, invalid_p == 0 */
 652   /* Skip verify of push_dummy_call, has predicate.  */
 653   /* Skip verify of call_dummy_location, invalid_p == 0 */
 654   /* Skip verify of push_dummy_code, has predicate.  */
 655   /* Skip verify of print_registers_info, invalid_p == 0 */
 656   /* Skip verify of print_float_info, has predicate.  */
 657   /* Skip verify of print_vector_info, has predicate.  */
 658   /* Skip verify of register_sim_regno, invalid_p == 0 */
 659   /* Skip verify of cannot_fetch_register, invalid_p == 0 */
 660   /* Skip verify of cannot_store_register, invalid_p == 0 */
 661   /* Skip verify of get_longjmp_target, has predicate.  */
 662   /* Skip verify of convert_register_p, invalid_p == 0 */
 663   /* Skip verify of value_from_register, invalid_p == 0 */
 664   /* Skip verify of pointer_to_address, invalid_p == 0 */
 665   /* Skip verify of address_to_pointer, invalid_p == 0 */
 666   /* Skip verify of integer_to_address, has predicate.  */
 667   /* Skip verify of return_value, has predicate.  */
 668   if (gdbarch->skip_prologue == 0)
 669     fprintf_unfiltered (log, "\n\tskip_prologue");
 670   /* Skip verify of skip_main_prologue, has predicate.  */
 671   if (gdbarch->inner_than == 0)
 672     fprintf_unfiltered (log, "\n\tinner_than");
 673   if (gdbarch->breakpoint_from_pc == 0)
 674     fprintf_unfiltered (log, "\n\tbreakpoint_from_pc");
 675   /* Skip verify of remote_breakpoint_from_pc, invalid_p == 0 */
 676   /* Skip verify of adjust_breakpoint_address, has predicate.  */
 677   /* Skip verify of memory_insert_breakpoint, invalid_p == 0 */
 678   /* Skip verify of memory_remove_breakpoint, invalid_p == 0 */
 679   /* Skip verify of decr_pc_after_break, invalid_p == 0 */
 680   /* Skip verify of deprecated_function_start_offset, invalid_p == 0 */
 681   /* Skip verify of remote_register_number, invalid_p == 0 */
 682   /* Skip verify of fetch_tls_load_module_address, has predicate.  */
 683   /* Skip verify of frame_args_skip, invalid_p == 0 */
 684   /* Skip verify of unwind_pc, has predicate.  */
 685   /* Skip verify of unwind_sp, has predicate.  */
 686   /* Skip verify of frame_num_args, has predicate.  */
 687   /* Skip verify of frame_align, has predicate.  */
 688   /* Skip verify of stabs_argument_has_addr, invalid_p == 0 */
 689   /* Skip verify of convert_from_func_ptr_addr, invalid_p == 0 */
 690   /* Skip verify of addr_bits_remove, invalid_p == 0 */
 691   /* Skip verify of smash_text_address, invalid_p == 0 */
 692   /* Skip verify of software_single_step, has predicate.  */
 693   /* Skip verify of single_step_through_delay, has predicate.  */
 694   if (gdbarch->print_insn == 0)
 695     fprintf_unfiltered (log, "\n\tprint_insn");
 696   /* Skip verify of skip_trampoline_code, invalid_p == 0 */
 697   /* Skip verify of skip_solib_resolver, invalid_p == 0 */
 698   /* Skip verify of in_solib_return_trampoline, invalid_p == 0 */
 699   /* Skip verify of in_function_epilogue_p, invalid_p == 0 */
 700   /* Skip verify of elf_make_msymbol_special, invalid_p == 0 */
 701   /* Skip verify of coff_make_msymbol_special, invalid_p == 0 */
 702   /* Skip verify of cannot_step_breakpoint, invalid_p == 0 */
 703   /* Skip verify of have_nonsteppable_watchpoint, invalid_p == 0 */
 704   /* Skip verify of address_class_type_flags, has predicate.  */
 705   /* Skip verify of address_class_type_flags_to_name, has predicate.  */
 706   /* Skip verify of address_class_name_to_type_flags, has predicate.  */
 707   /* Skip verify of register_reggroup_p, invalid_p == 0 */
 708   /* Skip verify of fetch_pointer_argument, has predicate.  */
 709   /* Skip verify of regset_from_core_section, has predicate.  */
 710   /* Skip verify of make_corefile_notes, has predicate.  */
 711   /* Skip verify of find_memory_regions, has predicate.  */
 712   /* Skip verify of core_xfer_shared_libraries, has predicate.  */
 713   /* Skip verify of core_pid_to_str, has predicate.  */
 714   /* Skip verify of gcore_bfd_target, has predicate.  */
 715   /* Skip verify of vtable_function_descriptors, invalid_p == 0 */
 716   /* Skip verify of vbit_in_delta, invalid_p == 0 */
 717   /* Skip verify of skip_permanent_breakpoint, has predicate.  */
 718   /* Skip verify of max_insn_length, has predicate.  */
 719   /* Skip verify of displaced_step_copy_insn, has predicate.  */
 720   /* Skip verify of displaced_step_hw_singlestep, invalid_p == 0 */
 721   /* Skip verify of displaced_step_fixup, has predicate.  */
 722   if ((! gdbarch->displaced_step_free_closure) != (! gdbarch->displaced_step_copy_insn))
 723     fprintf_unfiltered (log, "\n\tdisplaced_step_free_closure");
 724   if ((! gdbarch->displaced_step_location) != (! gdbarch->displaced_step_copy_insn))
 725     fprintf_unfiltered (log, "\n\tdisplaced_step_location");
 726   /* Skip verify of relocate_instruction, has predicate.  */
 727   /* Skip verify of overlay_update, has predicate.  */
 728   /* Skip verify of core_read_description, has predicate.  */
 729   /* Skip verify of static_transform_name, has predicate.  */
 730   /* Skip verify of sofun_address_maybe_missing, invalid_p == 0 */
 731   /* Skip verify of process_record, has predicate.  */
 732   /* Skip verify of process_record_signal, has predicate.  */
 733   /* Skip verify of target_signal_from_host, invalid_p == 0 */
 734   /* Skip verify of target_signal_to_host, invalid_p == 0 */
 735   /* Skip verify of get_siginfo_type, has predicate.  */
 736   /* Skip verify of record_special_symbol, has predicate.  */
 737   /* Skip verify of get_syscall_number, has predicate.  */
 738   /* Skip verify of stap_integer_prefix, invalid_p == 0 */
 739   /* Skip verify of stap_integer_suffix, invalid_p == 0 */
 740   /* Skip verify of stap_register_prefix, invalid_p == 0 */
 741   /* Skip verify of stap_register_suffix, invalid_p == 0 */
 742   /* Skip verify of stap_register_indirection_prefix, invalid_p == 0 */
 743   /* Skip verify of stap_register_indirection_suffix, invalid_p == 0 */
 744   /* Skip verify of stap_gdb_register_prefix, invalid_p == 0 */
 745   /* Skip verify of stap_gdb_register_suffix, invalid_p == 0 */
 746   /* Skip verify of stap_is_single_operand, has predicate.  */
 747   /* Skip verify of stap_parse_special_token, has predicate.  */
 748   /* Skip verify of has_global_solist, invalid_p == 0 */
 749   /* Skip verify of has_global_breakpoints, invalid_p == 0 */
 750   /* Skip verify of has_shared_address_space, invalid_p == 0 */
 751   /* Skip verify of fast_tracepoint_valid_at, invalid_p == 0 */
 752   /* Skip verify of auto_charset, invalid_p == 0 */
 753   /* Skip verify of auto_wide_charset, invalid_p == 0 */
 754   /* Skip verify of has_dos_based_file_system, invalid_p == 0 */
 755   /* Skip verify of gen_return_address, invalid_p == 0 */
 756   /* Skip verify of info_proc, has predicate.  */
 757   buf = ui_file_xstrdup (log, &length);
 758   make_cleanup (xfree, buf);
 759   if (length > 0)
 760     internal_error (__FILE__, __LINE__,
 761                     _("verify_gdbarch: the following are invalid ...%s"),
 762                     buf);
 763   do_cleanups (cleanups);
 764 }
 765
 766
 767 /* Print out the details of the current architecture.  */
 768
 769 void
 770 gdbarch_dump (struct gdbarch *gdbarch, struct ui_file *file)
 771 {
 772   const char *gdb_nm_file = "<not-defined>";
 773
 774 #if defined (GDB_NM_FILE)
 775   gdb_nm_file = GDB_NM_FILE;
 776 #endif
 777   fprintf_unfiltered (file,
 778                       "gdbarch_dump: GDB_NM_FILE = %s\n",
 779                       gdb_nm_file);
 780   fprintf_unfiltered (file,
 781                       "gdbarch_dump: addr_bit = %s\n",
 782                       plongest (gdbarch->addr_bit));
 783   fprintf_unfiltered (file,
 784                       "gdbarch_dump: addr_bits_remove = <%s>\n",
 785                       host_address_to_string (gdbarch->addr_bits_remove));
 786   fprintf_unfiltered (file,
 787                       "gdbarch_dump: gdbarch_address_class_name_to_type_flags_p() = %d\n",
 788                       gdbarch_address_class_name_to_type_flags_p (gdbarch));
 789   fprintf_unfiltered (file,
 790                       "gdbarch_dump: address_class_name_to_type_flags = <%s>\n",
 791                       host_address_to_string (gdbarch->address_class_name_to_type_flags));
 792   fprintf_unfiltered (file,
 793                       "gdbarch_dump: gdbarch_address_class_type_flags_p() = %d\n",
 794                       gdbarch_address_class_type_flags_p (gdbarch));
 795   fprintf_unfiltered (file,
 796                       "gdbarch_dump: address_class_type_flags = <%s>\n",
 797                       host_address_to_string (gdbarch->address_class_type_flags));
 798   fprintf_unfiltered (file,
 799                       "gdbarch_dump: gdbarch_address_class_type_flags_to_name_p() = %d\n",
 800                       gdbarch_address_class_type_flags_to_name_p (gdbarch));
 801   fprintf_unfiltered (file,
 802                       "gdbarch_dump: address_class_type_flags_to_name = <%s>\n",
 803                       host_address_to_string (gdbarch->address_class_type_flags_to_name));
 804   fprintf_unfiltered (file,
 805                       "gdbarch_dump: address_to_pointer = <%s>\n",
 806                       host_address_to_string (gdbarch->address_to_pointer));
 807   fprintf_unfiltered (file,
 808                       "gdbarch_dump: gdbarch_adjust_breakpoint_address_p() = %d\n",
 809                       gdbarch_adjust_breakpoint_address_p (gdbarch));
 810   fprintf_unfiltered (file,
 811                       "gdbarch_dump: adjust_breakpoint_address = <%s>\n",
 812                       host_address_to_string (gdbarch->adjust_breakpoint_address));
 813   fprintf_unfiltered (file,
 814                       "gdbarch_dump: auto_charset = <%s>\n",
 815                       host_address_to_string (gdbarch->auto_charset));
 816   fprintf_unfiltered (file,
 817                       "gdbarch_dump: auto_wide_charset = <%s>\n",
 818                       host_address_to_string (gdbarch->auto_wide_charset));
 819   fprintf_unfiltered (file,
 820                       "gdbarch_dump: gdbarch_ax_pseudo_register_collect_p() = %d\n",
 821                       gdbarch_ax_pseudo_register_collect_p (gdbarch));
 822   fprintf_unfiltered (file,
 823                       "gdbarch_dump: ax_pseudo_register_collect = <%s>\n",
 824                       host_address_to_string (gdbarch->ax_pseudo_register_collect));
 825   fprintf_unfiltered (file,
 826                       "gdbarch_dump: gdbarch_ax_pseudo_register_push_stack_p() = %d\n",
 827                       gdbarch_ax_pseudo_register_push_stack_p (gdbarch));
 828   fprintf_unfiltered (file,
 829                       "gdbarch_dump: ax_pseudo_register_push_stack = <%s>\n",
 830                       host_address_to_string (gdbarch->ax_pseudo_register_push_stack));
 831   fprintf_unfiltered (file,
 832                       "gdbarch_dump: believe_pcc_promotion = %s\n",
 833                       plongest (gdbarch->believe_pcc_promotion));
 834   fprintf_unfiltered (file,
 835                       "gdbarch_dump: bfd_arch_info = %s\n",
 836                       gdbarch_bfd_arch_info (gdbarch)->printable_name);
 837   fprintf_unfiltered (file,
 838                       "gdbarch_dump: bits_big_endian = %s\n",
 839                       plongest (gdbarch->bits_big_endian));
 840   fprintf_unfiltered (file,
 841                       "gdbarch_dump: breakpoint_from_pc = <%s>\n",
 842                       host_address_to_string (gdbarch->breakpoint_from_pc));
 843   fprintf_unfiltered (file,
 844                       "gdbarch_dump: byte_order = %s\n",
 845                       plongest (gdbarch->byte_order));
 846   fprintf_unfiltered (file,
 847                       "gdbarch_dump: byte_order_for_code = %s\n",
 848                       plongest (gdbarch->byte_order_for_code));
 849   fprintf_unfiltered (file,
 850                       "gdbarch_dump: call_dummy_location = %s\n",
 851                       plongest (gdbarch->call_dummy_location));
 852   fprintf_unfiltered (file,
 853                       "gdbarch_dump: cannot_fetch_register = <%s>\n",
 854                       host_address_to_string (gdbarch->cannot_fetch_register));
 855   fprintf_unfiltered (file,
 856                       "gdbarch_dump: cannot_step_breakpoint = %s\n",
 857                       plongest (gdbarch->cannot_step_breakpoint));
 858   fprintf_unfiltered (file,
 859                       "gdbarch_dump: cannot_store_register = <%s>\n",
 860                       host_address_to_string (gdbarch->cannot_store_register));
 861   fprintf_unfiltered (file,
 862                       "gdbarch_dump: char_signed = %s\n",
 863                       plongest (gdbarch->char_signed));
 864   fprintf_unfiltered (file,
 865                       "gdbarch_dump: coff_make_msymbol_special = <%s>\n",
 866                       host_address_to_string (gdbarch->coff_make_msymbol_special));
 867   fprintf_unfiltered (file,
 868                       "gdbarch_dump: convert_from_func_ptr_addr = <%s>\n",
 869                       host_address_to_string (gdbarch->convert_from_func_ptr_addr));
 870   fprintf_unfiltered (file,
 871                       "gdbarch_dump: convert_register_p = <%s>\n",
 872                       host_address_to_string (gdbarch->convert_register_p));
 873   fprintf_unfiltered (file,
 874                       "gdbarch_dump: gdbarch_core_pid_to_str_p() = %d\n",
 875                       gdbarch_core_pid_to_str_p (gdbarch));
 876   fprintf_unfiltered (file,
 877                       "gdbarch_dump: core_pid_to_str = <%s>\n",
 878                       host_address_to_string (gdbarch->core_pid_to_str));
 879   fprintf_unfiltered (file,
 880                       "gdbarch_dump: gdbarch_core_read_description_p() = %d\n",
 881                       gdbarch_core_read_description_p (gdbarch));
 882   fprintf_unfiltered (file,
 883                       "gdbarch_dump: core_read_description = <%s>\n",
 884                       host_address_to_string (gdbarch->core_read_description));
 885   fprintf_unfiltered (file,
 886                       "gdbarch_dump: core_regset_sections = %s\n",
 887                       host_address_to_string (gdbarch->core_regset_sections));
 888   fprintf_unfiltered (file,
 889                       "gdbarch_dump: gdbarch_core_xfer_shared_libraries_p() = %d\n",
 890                       gdbarch_core_xfer_shared_libraries_p (gdbarch));
 891   fprintf_unfiltered (file,
 892                       "gdbarch_dump: core_xfer_shared_libraries = <%s>\n",
 893                       host_address_to_string (gdbarch->core_xfer_shared_libraries));
 894   fprintf_unfiltered (file,
 895                       "gdbarch_dump: decr_pc_after_break = %s\n",
 896                       core_addr_to_string_nz (gdbarch->decr_pc_after_break));
 897   fprintf_unfiltered (file,
 898                       "gdbarch_dump: deprecated_fp_regnum = %s\n",
 899                       plongest (gdbarch->deprecated_fp_regnum));
 900   fprintf_unfiltered (file,
 901                       "gdbarch_dump: deprecated_function_start_offset = %s\n",
 902                       core_addr_to_string_nz (gdbarch->deprecated_function_start_offset));
 903   fprintf_unfiltered (file,
 904                       "gdbarch_dump: gdbarch_displaced_step_copy_insn_p() = %d\n",
 905                       gdbarch_displaced_step_copy_insn_p (gdbarch));
 906   fprintf_unfiltered (file,
 907                       "gdbarch_dump: displaced_step_copy_insn = <%s>\n",
 908                       host_address_to_string (gdbarch->displaced_step_copy_insn));
 909   fprintf_unfiltered (file,
 910                       "gdbarch_dump: gdbarch_displaced_step_fixup_p() = %d\n",
 911                       gdbarch_displaced_step_fixup_p (gdbarch));
 912   fprintf_unfiltered (file,
 913                       "gdbarch_dump: displaced_step_fixup = <%s>\n",
 914                       host_address_to_string (gdbarch->displaced_step_fixup));
 915   fprintf_unfiltered (file,
 916                       "gdbarch_dump: displaced_step_free_closure = <%s>\n",
 917                       host_address_to_string (gdbarch->displaced_step_free_closure));
 918   fprintf_unfiltered (file,
 919                       "gdbarch_dump: displaced_step_hw_singlestep = <%s>\n",
 920                       host_address_to_string (gdbarch->displaced_step_hw_singlestep));
 921   fprintf_unfiltered (file,
 922                       "gdbarch_dump: displaced_step_location = <%s>\n",
 923                       host_address_to_string (gdbarch->displaced_step_location));
 924   fprintf_unfiltered (file,
 925                       "gdbarch_dump: double_bit = %s\n",
 926                       plongest (gdbarch->double_bit));
 927   fprintf_unfiltered (file,
 928                       "gdbarch_dump: double_format = %s\n",
 929                       pformat (gdbarch->double_format));
 930   fprintf_unfiltered (file,
 931                       "gdbarch_dump: gdbarch_dummy_id_p() = %d\n",
 932                       gdbarch_dummy_id_p (gdbarch));
 933   fprintf_unfiltered (file,
 934                       "gdbarch_dump: dummy_id = <%s>\n",
 935                       host_address_to_string (gdbarch->dummy_id));
 936   fprintf_unfiltered (file,
 937                       "gdbarch_dump: dwarf2_addr_size = %s\n",
 938                       plongest (gdbarch->dwarf2_addr_size));
 939   fprintf_unfiltered (file,
 940                       "gdbarch_dump: dwarf2_reg_to_regnum = <%s>\n",
 941                       host_address_to_string (gdbarch->dwarf2_reg_to_regnum));
 942   fprintf_unfiltered (file,
 943                       "gdbarch_dump: ecoff_reg_to_regnum = <%s>\n",
 944                       host_address_to_string (gdbarch->ecoff_reg_to_regnum));
 945   fprintf_unfiltered (file,
 946                       "gdbarch_dump: elf_make_msymbol_special = <%s>\n",
 947                       host_address_to_string (gdbarch->elf_make_msymbol_special));
 948   fprintf_unfiltered (file,
 949                       "gdbarch_dump: fast_tracepoint_valid_at = <%s>\n",
 950                       host_address_to_string (gdbarch->fast_tracepoint_valid_at));
 951   fprintf_unfiltered (file,
 952                       "gdbarch_dump: gdbarch_fetch_pointer_argument_p() = %d\n",
 953                       gdbarch_fetch_pointer_argument_p (gdbarch));
 954   fprintf_unfiltered (file,
 955                       "gdbarch_dump: fetch_pointer_argument = <%s>\n",
 956                       host_address_to_string (gdbarch->fetch_pointer_argument));
 957   fprintf_unfiltered (file,
 958                       "gdbarch_dump: gdbarch_fetch_tls_load_module_address_p() = %d\n",
 959                       gdbarch_fetch_tls_load_module_address_p (gdbarch));
 960   fprintf_unfiltered (file,
 961                       "gdbarch_dump: fetch_tls_load_module_address = <%s>\n",
 962                       host_address_to_string (gdbarch->fetch_tls_load_module_address));
 963   fprintf_unfiltered (file,
 964                       "gdbarch_dump: gdbarch_find_memory_regions_p() = %d\n",
 965                       gdbarch_find_memory_regions_p (gdbarch));
 966   fprintf_unfiltered (file,
 967                       "gdbarch_dump: find_memory_regions = <%s>\n",
 968                       host_address_to_string (gdbarch->find_memory_regions));
 969   fprintf_unfiltered (file,
 970                       "gdbarch_dump: float_bit = %s\n",
 971                       plongest (gdbarch->float_bit));
 972   fprintf_unfiltered (file,
 973                       "gdbarch_dump: float_format = %s\n",
 974                       pformat (gdbarch->float_format));
 975   fprintf_unfiltered (file,
 976                       "gdbarch_dump: fp0_regnum = %s\n",
 977                       plongest (gdbarch->fp0_regnum));
 978   fprintf_unfiltered (file,
 979                       "gdbarch_dump: gdbarch_frame_align_p() = %d\n",
 980                       gdbarch_frame_align_p (gdbarch));
 981   fprintf_unfiltered (file,
 982                       "gdbarch_dump: frame_align = <%s>\n",
 983                       host_address_to_string (gdbarch->frame_align));
 984   fprintf_unfiltered (file,
 985                       "gdbarch_dump: frame_args_skip = %s\n",
 986                       core_addr_to_string_nz (gdbarch->frame_args_skip));
 987   fprintf_unfiltered (file,
 988                       "gdbarch_dump: gdbarch_frame_num_args_p() = %d\n",
 989                       gdbarch_frame_num_args_p (gdbarch));
 990   fprintf_unfiltered (file,
 991                       "gdbarch_dump: frame_num_args = <%s>\n",
 992                       host_address_to_string (gdbarch->frame_num_args));
 993   fprintf_unfiltered (file,
 994                       "gdbarch_dump: frame_red_zone_size = %s\n",
 995                       plongest (gdbarch->frame_red_zone_size));
 996   fprintf_unfiltered (file,
 997                       "gdbarch_dump: gdbarch_gcore_bfd_target_p() = %d\n",
 998                       gdbarch_gcore_bfd_target_p (gdbarch));
 999   fprintf_unfiltered (file,
1000                       "gdbarch_dump: gcore_bfd_target = %s\n",
1001                       pstring (gdbarch->gcore_bfd_target));
1002   fprintf_unfiltered (file,
1003                       "gdbarch_dump: gen_return_address = <%s>\n",
1004                       host_address_to_string (gdbarch->gen_return_address));
1005   fprintf_unfiltered (file,
1006                       "gdbarch_dump: gdbarch_get_longjmp_target_p() = %d\n",
1007                       gdbarch_get_longjmp_target_p (gdbarch));
1008   fprintf_unfiltered (file,
1009                       "gdbarch_dump: get_longjmp_target = <%s>\n",
1010                       host_address_to_string (gdbarch->get_longjmp_target));
1011   fprintf_unfiltered (file,
1012                       "gdbarch_dump: gdbarch_get_siginfo_type_p() = %d\n",
1013                       gdbarch_get_siginfo_type_p (gdbarch));
1014   fprintf_unfiltered (file,
1015                       "gdbarch_dump: get_siginfo_type = <%s>\n",
1016                       host_address_to_string (gdbarch->get_siginfo_type));
1017   fprintf_unfiltered (file,
1018                       "gdbarch_dump: gdbarch_get_syscall_number_p() = %d\n",
1019                       gdbarch_get_syscall_number_p (gdbarch));
1020   fprintf_unfiltered (file,
1021                       "gdbarch_dump: get_syscall_number = <%s>\n",
1022                       host_address_to_string (gdbarch->get_syscall_number));
1023   fprintf_unfiltered (file,
1024                       "gdbarch_dump: half_bit = %s\n",
1025                       plongest (gdbarch->half_bit));
1026   fprintf_unfiltered (file,
1027                       "gdbarch_dump: half_format = %s\n",
1028                       pformat (gdbarch->half_format));
1029   fprintf_unfiltered (file,
1030                       "gdbarch_dump: has_dos_based_file_system = %s\n",
1031                       plongest (gdbarch->has_dos_based_file_system));
1032   fprintf_unfiltered (file,
1033                       "gdbarch_dump: has_global_breakpoints = %s\n",
1034                       plongest (gdbarch->has_global_breakpoints));
1035   fprintf_unfiltered (file,
1036                       "gdbarch_dump: has_global_solist = %s\n",
1037                       plongest (gdbarch->has_global_solist));
1038   fprintf_unfiltered (file,
1039                       "gdbarch_dump: has_shared_address_space = <%s>\n",
1040                       host_address_to_string (gdbarch->has_shared_address_space));
1041   fprintf_unfiltered (file,
1042                       "gdbarch_dump: have_nonsteppable_watchpoint = %s\n",
1043                       plongest (gdbarch->have_nonsteppable_watchpoint));
1044   fprintf_unfiltered (file,
1045                       "gdbarch_dump: in_function_epilogue_p = <%s>\n",
1046                       host_address_to_string (gdbarch->in_function_epilogue_p));
1047   fprintf_unfiltered (file,
1048                       "gdbarch_dump: in_solib_return_trampoline = <%s>\n",
1049                       host_address_to_string (gdbarch->in_solib_return_trampoline));
1050   fprintf_unfiltered (file,
1051                       "gdbarch_dump: gdbarch_info_proc_p() = %d\n",
1052                       gdbarch_info_proc_p (gdbarch));
1053   fprintf_unfiltered (file,
1054                       "gdbarch_dump: info_proc = <%s>\n",
1055                       host_address_to_string (gdbarch->info_proc));
1056   fprintf_unfiltered (file,
1057                       "gdbarch_dump: inner_than = <%s>\n",
1058                       host_address_to_string (gdbarch->inner_than));
1059   fprintf_unfiltered (file,
1060                       "gdbarch_dump: int_bit = %s\n",
1061                       plongest (gdbarch->int_bit));
1062   fprintf_unfiltered (file,
1063                       "gdbarch_dump: gdbarch_integer_to_address_p() = %d\n",
1064                       gdbarch_integer_to_address_p (gdbarch));
1065   fprintf_unfiltered (file,
1066                       "gdbarch_dump: integer_to_address = <%s>\n",
1067                       host_address_to_string (gdbarch->integer_to_address));
1068   fprintf_unfiltered (file,
1069                       "gdbarch_dump: long_bit = %s\n",
1070                       plongest (gdbarch->long_bit));
1071   fprintf_unfiltered (file,
1072                       "gdbarch_dump: long_double_bit = %s\n",
1073                       plongest (gdbarch->long_double_bit));
1074   fprintf_unfiltered (file,
1075                       "gdbarch_dump: long_double_format = %s\n",
1076                       pformat (gdbarch->long_double_format));
1077   fprintf_unfiltered (file,
1078                       "gdbarch_dump: long_long_align_bit = %s\n",
1079                       plongest (gdbarch->long_long_align_bit));
1080   fprintf_unfiltered (file,
1081                       "gdbarch_dump: long_long_bit = %s\n",
1082                       plongest (gdbarch->long_long_bit));
1083   fprintf_unfiltered (file,
1084                       "gdbarch_dump: gdbarch_make_corefile_notes_p() = %d\n",
1085                       gdbarch_make_corefile_notes_p (gdbarch));
1086   fprintf_unfiltered (file,
1087                       "gdbarch_dump: make_corefile_notes = <%s>\n",
1088                       host_address_to_string (gdbarch->make_corefile_notes));
1089   fprintf_unfiltered (file,
1090                       "gdbarch_dump: gdbarch_max_insn_length_p() = %d\n",
1091                       gdbarch_max_insn_length_p (gdbarch));
1092   fprintf_unfiltered (file,
1093                       "gdbarch_dump: max_insn_length = %s\n",
1094                       plongest (gdbarch->max_insn_length));
1095   fprintf_unfiltered (file,
1096                       "gdbarch_dump: memory_insert_breakpoint = <%s>\n",
1097                       host_address_to_string (gdbarch->memory_insert_breakpoint));
1098   fprintf_unfiltered (file,
1099                       "gdbarch_dump: memory_remove_breakpoint = <%s>\n",
1100                       host_address_to_string (gdbarch->memory_remove_breakpoint));
1101   fprintf_unfiltered (file,
1102                       "gdbarch_dump: num_pseudo_regs = %s\n",
1103                       plongest (gdbarch->num_pseudo_regs));
1104   fprintf_unfiltered (file,
1105                       "gdbarch_dump: num_regs = %s\n",
1106                       plongest (gdbarch->num_regs));
1107   fprintf_unfiltered (file,
1108                       "gdbarch_dump: osabi = %s\n",
1109                       plongest (gdbarch->osabi));
1110   fprintf_unfiltered (file,
1111                       "gdbarch_dump: gdbarch_overlay_update_p() = %d\n",
1112                       gdbarch_overlay_update_p (gdbarch));
1113   fprintf_unfiltered (file,
1114                       "gdbarch_dump: overlay_update = <%s>\n",
1115                       host_address_to_string (gdbarch->overlay_update));
1116   fprintf_unfiltered (file,
1117                       "gdbarch_dump: pc_regnum = %s\n",
1118                       plongest (gdbarch->pc_regnum));
1119   fprintf_unfiltered (file,
1120                       "gdbarch_dump: pointer_to_address = <%s>\n",
1121                       host_address_to_string (gdbarch->pointer_to_address));
1122   fprintf_unfiltered (file,
1123                       "gdbarch_dump: gdbarch_print_float_info_p() = %d\n",
1124                       gdbarch_print_float_info_p (gdbarch));
1125   fprintf_unfiltered (file,
1126                       "gdbarch_dump: print_float_info = <%s>\n",
1127                       host_address_to_string (gdbarch->print_float_info));
1128   fprintf_unfiltered (file,
1129                       "gdbarch_dump: print_insn = <%s>\n",
1130                       host_address_to_string (gdbarch->print_insn));
1131   fprintf_unfiltered (file,
1132                       "gdbarch_dump: print_registers_info = <%s>\n",
1133                       host_address_to_string (gdbarch->print_registers_info));
1134   fprintf_unfiltered (file,
1135                       "gdbarch_dump: gdbarch_print_vector_info_p() = %d\n",
1136                       gdbarch_print_vector_info_p (gdbarch));
1137   fprintf_unfiltered (file,
1138                       "gdbarch_dump: print_vector_info = <%s>\n",
1139                       host_address_to_string (gdbarch->print_vector_info));
1140   fprintf_unfiltered (file,
1141                       "gdbarch_dump: gdbarch_process_record_p() = %d\n",
1142                       gdbarch_process_record_p (gdbarch));
1143   fprintf_unfiltered (file,
1144                       "gdbarch_dump: process_record = <%s>\n",
1145                       host_address_to_string (gdbarch->process_record));
1146   fprintf_unfiltered (file,
1147                       "gdbarch_dump: gdbarch_process_record_signal_p() = %d\n",
1148                       gdbarch_process_record_signal_p (gdbarch));
1149   fprintf_unfiltered (file,
1150                       "gdbarch_dump: process_record_signal = <%s>\n",
1151                       host_address_to_string (gdbarch->process_record_signal));
1152   fprintf_unfiltered (file,
1153                       "gdbarch_dump: ps_regnum = %s\n",
1154                       plongest (gdbarch->ps_regnum));
1155   fprintf_unfiltered (file,
1156                       "gdbarch_dump: gdbarch_pseudo_register_read_p() = %d\n",
1157                       gdbarch_pseudo_register_read_p (gdbarch));
1158   fprintf_unfiltered (file,
1159                       "gdbarch_dump: pseudo_register_read = <%s>\n",
1160                       host_address_to_string (gdbarch->pseudo_register_read));
1161   fprintf_unfiltered (file,
1162                       "gdbarch_dump: gdbarch_pseudo_register_read_value_p() = %d\n",
1163                       gdbarch_pseudo_register_read_value_p (gdbarch));
1164   fprintf_unfiltered (file,
1165                       "gdbarch_dump: pseudo_register_read_value = <%s>\n",
1166                       host_address_to_string (gdbarch->pseudo_register_read_value));
1167   fprintf_unfiltered (file,
1168                       "gdbarch_dump: gdbarch_pseudo_register_write_p() = %d\n",
1169                       gdbarch_pseudo_register_write_p (gdbarch));
1170   fprintf_unfiltered (file,
1171                       "gdbarch_dump: pseudo_register_write = <%s>\n",
1172                       host_address_to_string (gdbarch->pseudo_register_write));
1173   fprintf_unfiltered (file,
1174                       "gdbarch_dump: ptr_bit = %s\n",
1175                       plongest (gdbarch->ptr_bit));
1176   fprintf_unfiltered (file,
1177                       "gdbarch_dump: gdbarch_push_dummy_call_p() = %d\n",
1178                       gdbarch_push_dummy_call_p (gdbarch));
1179   fprintf_unfiltered (file,
1180                       "gdbarch_dump: push_dummy_call = <%s>\n",
1181                       host_address_to_string (gdbarch->push_dummy_call));
1182   fprintf_unfiltered (file,
1183                       "gdbarch_dump: gdbarch_push_dummy_code_p() = %d\n",
1184                       gdbarch_push_dummy_code_p (gdbarch));
1185   fprintf_unfiltered (file,
1186                       "gdbarch_dump: push_dummy_code = <%s>\n",
1187                       host_address_to_string (gdbarch->push_dummy_code));
1188   fprintf_unfiltered (file,
1189                       "gdbarch_dump: gdbarch_read_pc_p() = %d\n",
1190                       gdbarch_read_pc_p (gdbarch));
1191   fprintf_unfiltered (file,
1192                       "gdbarch_dump: read_pc = <%s>\n",
1193                       host_address_to_string (gdbarch->read_pc));
1194   fprintf_unfiltered (file,
1195                       "gdbarch_dump: gdbarch_record_special_symbol_p() = %d\n",
1196                       gdbarch_record_special_symbol_p (gdbarch));
1197   fprintf_unfiltered (file,
1198                       "gdbarch_dump: record_special_symbol = <%s>\n",
1199                       host_address_to_string (gdbarch->record_special_symbol));
1200   fprintf_unfiltered (file,
1201                       "gdbarch_dump: register_name = <%s>\n",
1202                       host_address_to_string (gdbarch->register_name));
1203   fprintf_unfiltered (file,
1204                       "gdbarch_dump: register_reggroup_p = <%s>\n",
1205                       host_address_to_string (gdbarch->register_reggroup_p));
1206   fprintf_unfiltered (file,
1207                       "gdbarch_dump: register_sim_regno = <%s>\n",
1208                       host_address_to_string (gdbarch->register_sim_regno));
1209   fprintf_unfiltered (file,
1210                       "gdbarch_dump: register_to_value = <%s>\n",
1211                       host_address_to_string (gdbarch->register_to_value));
1212   fprintf_unfiltered (file,
1213                       "gdbarch_dump: gdbarch_register_type_p() = %d\n",
1214                       gdbarch_register_type_p (gdbarch));
1215   fprintf_unfiltered (file,
1216                       "gdbarch_dump: register_type = <%s>\n",
1217                       host_address_to_string (gdbarch->register_type));
1218   fprintf_unfiltered (file,
1219                       "gdbarch_dump: gdbarch_regset_from_core_section_p() = %d\n",
1220                       gdbarch_regset_from_core_section_p (gdbarch));
1221   fprintf_unfiltered (file,
1222                       "gdbarch_dump: regset_from_core_section = <%s>\n",
1223                       host_address_to_string (gdbarch->regset_from_core_section));
1224   fprintf_unfiltered (file,
1225                       "gdbarch_dump: gdbarch_relocate_instruction_p() = %d\n",
1226                       gdbarch_relocate_instruction_p (gdbarch));
1227   fprintf_unfiltered (file,
1228                       "gdbarch_dump: relocate_instruction = <%s>\n",
1229                       host_address_to_string (gdbarch->relocate_instruction));
1230   fprintf_unfiltered (file,
1231                       "gdbarch_dump: remote_breakpoint_from_pc = <%s>\n",
1232                       host_address_to_string (gdbarch->remote_breakpoint_from_pc));
1233   fprintf_unfiltered (file,
1234                       "gdbarch_dump: remote_register_number = <%s>\n",
1235                       host_address_to_string (gdbarch->remote_register_number));
1236   fprintf_unfiltered (file,
1237                       "gdbarch_dump: gdbarch_return_value_p() = %d\n",
1238                       gdbarch_return_value_p (gdbarch));
1239   fprintf_unfiltered (file,
1240                       "gdbarch_dump: return_value = <%s>\n",
1241                       host_address_to_string (gdbarch->return_value));
1242   fprintf_unfiltered (file,
1243                       "gdbarch_dump: sdb_reg_to_regnum = <%s>\n",
1244                       host_address_to_string (gdbarch->sdb_reg_to_regnum));
1245   fprintf_unfiltered (file,
1246                       "gdbarch_dump: short_bit = %s\n",
1247                       plongest (gdbarch->short_bit));
1248   fprintf_unfiltered (file,
1249                       "gdbarch_dump: gdbarch_single_step_through_delay_p() = %d\n",
1250                       gdbarch_single_step_through_delay_p (gdbarch));
1251   fprintf_unfiltered (file,
1252                       "gdbarch_dump: single_step_through_delay = <%s>\n",
1253                       host_address_to_string (gdbarch->single_step_through_delay));
1254   fprintf_unfiltered (file,
1255                       "gdbarch_dump: gdbarch_skip_main_prologue_p() = %d\n",
1256                       gdbarch_skip_main_prologue_p (gdbarch));
1257   fprintf_unfiltered (file,
1258                       "gdbarch_dump: skip_main_prologue = <%s>\n",
1259                       host_address_to_string (gdbarch->skip_main_prologue));
1260   fprintf_unfiltered (file,
1261                       "gdbarch_dump: gdbarch_skip_permanent_breakpoint_p() = %d\n",
1262                       gdbarch_skip_permanent_breakpoint_p (gdbarch));
1263   fprintf_unfiltered (file,
1264                       "gdbarch_dump: skip_permanent_breakpoint = <%s>\n",
1265                       host_address_to_string (gdbarch->skip_permanent_breakpoint));
1266   fprintf_unfiltered (file,
1267                       "gdbarch_dump: skip_prologue = <%s>\n",
1268                       host_address_to_string (gdbarch->skip_prologue));
1269   fprintf_unfiltered (file,
1270                       "gdbarch_dump: skip_solib_resolver = <%s>\n",
1271                       host_address_to_string (gdbarch->skip_solib_resolver));
1272   fprintf_unfiltered (file,
1273                       "gdbarch_dump: skip_trampoline_code = <%s>\n",
1274                       host_address_to_string (gdbarch->skip_trampoline_code));
1275   fprintf_unfiltered (file,
1276                       "gdbarch_dump: smash_text_address = <%s>\n",
1277                       host_address_to_string (gdbarch->smash_text_address));
1278   fprintf_unfiltered (file,
1279                       "gdbarch_dump: gdbarch_software_single_step_p() = %d\n",
1280                       gdbarch_software_single_step_p (gdbarch));
1281   fprintf_unfiltered (file,
1282                       "gdbarch_dump: software_single_step = <%s>\n",
1283                       host_address_to_string (gdbarch->software_single_step));
1284   fprintf_unfiltered (file,
1285                       "gdbarch_dump: sofun_address_maybe_missing = %s\n",
1286                       plongest (gdbarch->sofun_address_maybe_missing));
1287   fprintf_unfiltered (file,
1288                       "gdbarch_dump: solib_symbols_extension = %s\n",
1289                       pstring (gdbarch->solib_symbols_extension));
1290   fprintf_unfiltered (file,
1291                       "gdbarch_dump: sp_regnum = %s\n",
1292                       plongest (gdbarch->sp_regnum));
1293   fprintf_unfiltered (file,
1294                       "gdbarch_dump: stab_reg_to_regnum = <%s>\n",
1295                       host_address_to_string (gdbarch->stab_reg_to_regnum));
1296   fprintf_unfiltered (file,
1297                       "gdbarch_dump: stabs_argument_has_addr = <%s>\n",
1298                       host_address_to_string (gdbarch->stabs_argument_has_addr));
1299   fprintf_unfiltered (file,
1300                       "gdbarch_dump: stap_gdb_register_prefix = %s\n",
1301                       gdbarch->stap_gdb_register_prefix);
1302   fprintf_unfiltered (file,
1303                       "gdbarch_dump: stap_gdb_register_suffix = %s\n",
1304                       gdbarch->stap_gdb_register_suffix);
1305   fprintf_unfiltered (file,
1306                       "gdbarch_dump: stap_integer_prefix = %s\n",
1307                       gdbarch->stap_integer_prefix);
1308   fprintf_unfiltered (file,
1309                       "gdbarch_dump: stap_integer_suffix = %s\n",
1310                       gdbarch->stap_integer_suffix);
1311   fprintf_unfiltered (file,
1312                       "gdbarch_dump: gdbarch_stap_is_single_operand_p() = %d\n",
1313                       gdbarch_stap_is_single_operand_p (gdbarch));
1314   fprintf_unfiltered (file,
1315                       "gdbarch_dump: stap_is_single_operand = <%s>\n",
1316                       host_address_to_string (gdbarch->stap_is_single_operand));
1317   fprintf_unfiltered (file,
1318                       "gdbarch_dump: gdbarch_stap_parse_special_token_p() = %d\n",
1319                       gdbarch_stap_parse_special_token_p (gdbarch));
1320   fprintf_unfiltered (file,
1321                       "gdbarch_dump: stap_parse_special_token = <%s>\n",
1322                       host_address_to_string (gdbarch->stap_parse_special_token));
1323   fprintf_unfiltered (file,
1324                       "gdbarch_dump: stap_register_indirection_prefix = %s\n",
1325                       gdbarch->stap_register_indirection_prefix);
1326   fprintf_unfiltered (file,
1327                       "gdbarch_dump: stap_register_indirection_suffix = %s\n",
1328                       gdbarch->stap_register_indirection_suffix);
1329   fprintf_unfiltered (file,
1330                       "gdbarch_dump: stap_register_prefix = %s\n",
1331                       gdbarch->stap_register_prefix);
1332   fprintf_unfiltered (file,
1333                       "gdbarch_dump: stap_register_suffix = %s\n",
1334                       gdbarch->stap_register_suffix);
1335   fprintf_unfiltered (file,
1336                       "gdbarch_dump: gdbarch_static_transform_name_p() = %d\n",
1337                       gdbarch_static_transform_name_p (gdbarch));
1338   fprintf_unfiltered (file,
1339                       "gdbarch_dump: static_transform_name = <%s>\n",
1340                       host_address_to_string (gdbarch->static_transform_name));
1341   fprintf_unfiltered (file,
1342                       "gdbarch_dump: target_desc = %s\n",
1343                       host_address_to_string (gdbarch->target_desc));
1344   fprintf_unfiltered (file,
1345                       "gdbarch_dump: target_signal_from_host = <%s>\n",
1346                       host_address_to_string (gdbarch->target_signal_from_host));
1347   fprintf_unfiltered (file,
1348                       "gdbarch_dump: target_signal_to_host = <%s>\n",
1349                       host_address_to_string (gdbarch->target_signal_to_host));
1350   fprintf_unfiltered (file,
1351                       "gdbarch_dump: gdbarch_unwind_pc_p() = %d\n",
1352                       gdbarch_unwind_pc_p (gdbarch));
1353   fprintf_unfiltered (file,
1354                       "gdbarch_dump: unwind_pc = <%s>\n",
1355                       host_address_to_string (gdbarch->unwind_pc));
1356   fprintf_unfiltered (file,
1357                       "gdbarch_dump: gdbarch_unwind_sp_p() = %d\n",
1358                       gdbarch_unwind_sp_p (gdbarch));
1359   fprintf_unfiltered (file,
1360                       "gdbarch_dump: unwind_sp = <%s>\n",
1361                       host_address_to_string (gdbarch->unwind_sp));
1362   fprintf_unfiltered (file,
1363                       "gdbarch_dump: value_from_register = <%s>\n",
1364                       host_address_to_string (gdbarch->value_from_register));
1365   fprintf_unfiltered (file,
1366                       "gdbarch_dump: value_to_register = <%s>\n",
1367                       host_address_to_string (gdbarch->value_to_register));
1368   fprintf_unfiltered (file,
1369                       "gdbarch_dump: vbit_in_delta = %s\n",
1370                       plongest (gdbarch->vbit_in_delta));
1371   fprintf_unfiltered (file,
1372                       "gdbarch_dump: virtual_frame_pointer = <%s>\n",
1373                       host_address_to_string (gdbarch->virtual_frame_pointer));
1374   fprintf_unfiltered (file,
1375                       "gdbarch_dump: vtable_function_descriptors = %s\n",
1376                       plongest (gdbarch->vtable_function_descriptors));
1377   fprintf_unfiltered (file,
1378                       "gdbarch_dump: gdbarch_write_pc_p() = %d\n",
1379                       gdbarch_write_pc_p (gdbarch));
1380   fprintf_unfiltered (file,
1381                       "gdbarch_dump: write_pc = <%s>\n",
1382                       host_address_to_string (gdbarch->write_pc));
1383   if (gdbarch->dump_tdep != NULL)
1384     gdbarch->dump_tdep (gdbarch, file);
1385 }
1386
1387 struct gdbarch_tdep *
1388 gdbarch_tdep (struct gdbarch *gdbarch)
1389 {
1390   if (gdbarch_debug >= 2)
1391     fprintf_unfiltered (gdb_stdlog, "gdbarch_tdep called\n");
1392   return gdbarch->tdep;
1393 }
1394
1395
1396 const struct bfd_arch_info *
1397 gdbarch_bfd_arch_info (struct gdbarch *gdbarch)
1398 {
1399   gdb_assert (gdbarch != NULL);
1400   if (gdbarch_debug >= 2)
1401     fprintf_unfiltered (gdb_stdlog, "gdbarch_bfd_arch_info called\n");
1402   return gdbarch->bfd_arch_info;
1403 }
1404
1405 int
1406 gdbarch_byte_order (struct gdbarch *gdbarch)
1407 {
1408   gdb_assert (gdbarch != NULL);
1409   if (gdbarch_debug >= 2)
1410     fprintf_unfiltered (gdb_stdlog, "gdbarch_byte_order called\n");
1411   return gdbarch->byte_order;
1412 }
1413
1414 int
1415 gdbarch_byte_order_for_code (struct gdbarch *gdbarch)
1416 {
1417   gdb_assert (gdbarch != NULL);
1418   if (gdbarch_debug >= 2)
1419     fprintf_unfiltered (gdb_stdlog, "gdbarch_byte_order_for_code called\n");
1420   return gdbarch->byte_order_for_code;
1421 }
1422
1423 enum gdb_osabi
1424 gdbarch_osabi (struct gdbarch *gdbarch)
1425 {
1426   gdb_assert (gdbarch != NULL);
1427   if (gdbarch_debug >= 2)
1428     fprintf_unfiltered (gdb_stdlog, "gdbarch_osabi called\n");
1429   return gdbarch->osabi;
1430 }
1431
1432 const struct target_desc *
1433 gdbarch_target_desc (struct gdbarch *gdbarch)
1434 {
1435   gdb_assert (gdbarch != NULL);
1436   if (gdbarch_debug >= 2)
1437     fprintf_unfiltered (gdb_stdlog, "gdbarch_target_desc called\n");
1438   return gdbarch->target_desc;
1439 }
1440
1441 int
1442 gdbarch_bits_big_endian (struct gdbarch *gdbarch)
1443 {
1444   gdb_assert (gdbarch != NULL);
1445   /* Skip verify of bits_big_endian, invalid_p == 0 */
1446   if (gdbarch_debug >= 2)
1447     fprintf_unfiltered (gdb_stdlog, "gdbarch_bits_big_endian called\n");
1448   return gdbarch->bits_big_endian;
1449 }
1450
1451 void
1452 set_gdbarch_bits_big_endian (struct gdbarch *gdbarch,
1453                              int bits_big_endian)
1454 {
1455   gdbarch->bits_big_endian = bits_big_endian;
1456 }
1457
1458 int
1459 gdbarch_short_bit (struct gdbarch *gdbarch)
1460 {
1461   gdb_assert (gdbarch != NULL);
1462   /* Skip verify of short_bit, invalid_p == 0 */
1463   if (gdbarch_debug >= 2)
1464     fprintf_unfiltered (gdb_stdlog, "gdbarch_short_bit called\n");
1465   return gdbarch->short_bit;
1466 }
1467
1468 void
1469 set_gdbarch_short_bit (struct gdbarch *gdbarch,
1470                        int short_bit)
1471 {
1472   gdbarch->short_bit = short_bit;
1473 }
1474
1475 int
1476 gdbarch_int_bit (struct gdbarch *gdbarch)
1477 {
1478   gdb_assert (gdbarch != NULL);
1479   /* Skip verify of int_bit, invalid_p == 0 */
1480   if (gdbarch_debug >= 2)
1481     fprintf_unfiltered (gdb_stdlog, "gdbarch_int_bit called\n");
1482   return gdbarch->int_bit;
1483 }
1484
1485 void
1486 set_gdbarch_int_bit (struct gdbarch *gdbarch,
1487                      int int_bit)
1488 {
1489   gdbarch->int_bit = int_bit;
1490 }
1491
1492 int
1493 gdbarch_long_bit (struct gdbarch *gdbarch)
1494 {
1495   gdb_assert (gdbarch != NULL);
1496   /* Skip verify of long_bit, invalid_p == 0 */
1497   if (gdbarch_debug >= 2)
1498     fprintf_unfiltered (gdb_stdlog, "gdbarch_long_bit called\n");
1499   return gdbarch->long_bit;
1500 }
1501
1502 void
1503 set_gdbarch_long_bit (struct gdbarch *gdbarch,
1504                       int long_bit)
1505 {
1506   gdbarch->long_bit = long_bit;
1507 }
1508
1509 int
1510 gdbarch_long_long_bit (struct gdbarch *gdbarch)
1511 {
1512   gdb_assert (gdbarch != NULL);
1513   /* Skip verify of long_long_bit, invalid_p == 0 */
1514   if (gdbarch_debug >= 2)
1515     fprintf_unfiltered (gdb_stdlog, "gdbarch_long_long_bit called\n");
1516   return gdbarch->long_long_bit;
1517 }
1518
1519 void
1520 set_gdbarch_long_long_bit (struct gdbarch *gdbarch,
1521                            int long_long_bit)
1522 {
1523   gdbarch->long_long_bit = long_long_bit;
1524 }
1525
1526 int
1527 gdbarch_long_long_align_bit (struct gdbarch *gdbarch)
1528 {
1529   gdb_assert (gdbarch != NULL);
1530   /* Skip verify of long_long_align_bit, invalid_p == 0 */
1531   if (gdbarch_debug >= 2)
1532     fprintf_unfiltered (gdb_stdlog, "gdbarch_long_long_align_bit called\n");
1533   return gdbarch->long_long_align_bit;
1534 }
1535
1536 void
1537 set_gdbarch_long_long_align_bit (struct gdbarch *gdbarch,
1538                                  int long_long_align_bit)
1539 {
1540   gdbarch->long_long_align_bit = long_long_align_bit;
1541 }
1542
1543 int
1544 gdbarch_half_bit (struct gdbarch *gdbarch)
1545 {
1546   gdb_assert (gdbarch != NULL);
1547   /* Skip verify of half_bit, invalid_p == 0 */
1548   if (gdbarch_debug >= 2)
1549     fprintf_unfiltered (gdb_stdlog, "gdbarch_half_bit called\n");
1550   return gdbarch->half_bit;
1551 }
1552
1553 void
1554 set_gdbarch_half_bit (struct gdbarch *gdbarch,
1555                       int half_bit)
1556 {
1557   gdbarch->half_bit = half_bit;
1558 }
1559
1560 const struct floatformat **
1561 gdbarch_half_format (struct gdbarch *gdbarch)
1562 {
1563   gdb_assert (gdbarch != NULL);
1564   if (gdbarch_debug >= 2)
1565     fprintf_unfiltered (gdb_stdlog, "gdbarch_half_format called\n");
1566   return gdbarch->half_format;
1567 }
1568
1569 void
1570 set_gdbarch_half_format (struct gdbarch *gdbarch,
1571                          const struct floatformat ** half_format)
1572 {
1573   gdbarch->half_format = half_format;
1574 }
1575
1576 int
1577 gdbarch_float_bit (struct gdbarch *gdbarch)
1578 {
1579   gdb_assert (gdbarch != NULL);
1580   /* Skip verify of float_bit, invalid_p == 0 */
1581   if (gdbarch_debug >= 2)
1582     fprintf_unfiltered (gdb_stdlog, "gdbarch_float_bit called\n");
1583   return gdbarch->float_bit;
1584 }
1585
1586 void
1587 set_gdbarch_float_bit (struct gdbarch *gdbarch,
1588                        int float_bit)
1589 {
1590   gdbarch->float_bit = float_bit;
1591 }
1592
1593 const struct floatformat **
1594 gdbarch_float_format (struct gdbarch *gdbarch)
1595 {
1596   gdb_assert (gdbarch != NULL);
1597   if (gdbarch_debug >= 2)
1598     fprintf_unfiltered (gdb_stdlog, "gdbarch_float_format called\n");
1599   return gdbarch->float_format;
1600 }
1601
1602 void
1603 set_gdbarch_float_format (struct gdbarch *gdbarch,
1604                           const struct floatformat ** float_format)
1605 {
1606   gdbarch->float_format = float_format;
1607 }
1608
1609 int
1610 gdbarch_double_bit (struct gdbarch *gdbarch)
1611 {
1612   gdb_assert (gdbarch != NULL);
1613   /* Skip verify of double_bit, invalid_p == 0 */
1614   if (gdbarch_debug >= 2)
1615     fprintf_unfiltered (gdb_stdlog, "gdbarch_double_bit called\n");
1616   return gdbarch->double_bit;
1617 }
1618
1619 void
1620 set_gdbarch_double_bit (struct gdbarch *gdbarch,
1621                         int double_bit)
1622 {
1623   gdbarch->double_bit = double_bit;
1624 }
1625
1626 const struct floatformat **
1627 gdbarch_double_format (struct gdbarch *gdbarch)
1628 {
1629   gdb_assert (gdbarch != NULL);
1630   if (gdbarch_debug >= 2)
1631     fprintf_unfiltered (gdb_stdlog, "gdbarch_double_format called\n");
1632   return gdbarch->double_format;
1633 }
1634
1635 void
1636 set_gdbarch_double_format (struct gdbarch *gdbarch,
1637                            const struct floatformat ** double_format)
1638 {
1639   gdbarch->double_format = double_format;
1640 }
1641
1642 int
1643 gdbarch_long_double_bit (struct gdbarch *gdbarch)
1644 {
1645   gdb_assert (gdbarch != NULL);
1646   /* Skip verify of long_double_bit, invalid_p == 0 */
1647   if (gdbarch_debug >= 2)
1648     fprintf_unfiltered (gdb_stdlog, "gdbarch_long_double_bit called\n");
1649   return gdbarch->long_double_bit;
1650 }
1651
1652 void
1653 set_gdbarch_long_double_bit (struct gdbarch *gdbarch,
1654                              int long_double_bit)
1655 {
1656   gdbarch->long_double_bit = long_double_bit;
1657 }
1658
1659 const struct floatformat **
1660 gdbarch_long_double_format (struct gdbarch *gdbarch)
1661 {
1662   gdb_assert (gdbarch != NULL);
1663   if (gdbarch_debug >= 2)
1664     fprintf_unfiltered (gdb_stdlog, "gdbarch_long_double_format called\n");
1665   return gdbarch->long_double_format;
1666 }
1667
1668 void
1669 set_gdbarch_long_double_format (struct gdbarch *gdbarch,
1670                                 const struct floatformat ** long_double_format)
1671 {
1672   gdbarch->long_double_format = long_double_format;
1673 }
1674
1675 int
1676 gdbarch_ptr_bit (struct gdbarch *gdbarch)
1677 {
1678   gdb_assert (gdbarch != NULL);
1679   /* Skip verify of ptr_bit, invalid_p == 0 */
1680   if (gdbarch_debug >= 2)
1681     fprintf_unfiltered (gdb_stdlog, "gdbarch_ptr_bit called\n");
1682   return gdbarch->ptr_bit;
1683 }
1684
1685 void
1686 set_gdbarch_ptr_bit (struct gdbarch *gdbarch,
1687                      int ptr_bit)
1688 {
1689   gdbarch->ptr_bit = ptr_bit;
1690 }
1691
1692 int
1693 gdbarch_addr_bit (struct gdbarch *gdbarch)
1694 {
1695   gdb_assert (gdbarch != NULL);
1696   /* Check variable changed from pre-default.  */
1697   gdb_assert (gdbarch->addr_bit != 0);
1698   if (gdbarch_debug >= 2)
1699     fprintf_unfiltered (gdb_stdlog, "gdbarch_addr_bit called\n");
1700   return gdbarch->addr_bit;
1701 }
1702
1703 void
1704 set_gdbarch_addr_bit (struct gdbarch *gdbarch,
1705                       int addr_bit)
1706 {
1707   gdbarch->addr_bit = addr_bit;
1708 }
1709
1710 int
1711 gdbarch_dwarf2_addr_size (struct gdbarch *gdbarch)
1712 {
1713   gdb_assert (gdbarch != NULL);
1714   /* Check variable changed from pre-default.  */
1715   gdb_assert (gdbarch->dwarf2_addr_size != 0);
1716   if (gdbarch_debug >= 2)
1717     fprintf_unfiltered (gdb_stdlog, "gdbarch_dwarf2_addr_size called\n");
1718   return gdbarch->dwarf2_addr_size;
1719 }
1720
1721 void
1722 set_gdbarch_dwarf2_addr_size (struct gdbarch *gdbarch,
1723                               int dwarf2_addr_size)
1724 {
1725   gdbarch->dwarf2_addr_size = dwarf2_addr_size;
1726 }
1727
1728 int
1729 gdbarch_char_signed (struct gdbarch *gdbarch)
1730 {
1731   gdb_assert (gdbarch != NULL);
1732   /* Check variable changed from pre-default.  */
1733   gdb_assert (gdbarch->char_signed != -1);
1734   if (gdbarch_debug >= 2)
1735     fprintf_unfiltered (gdb_stdlog, "gdbarch_char_signed called\n");
1736   return gdbarch->char_signed;
1737 }
1738
1739 void
1740 set_gdbarch_char_signed (struct gdbarch *gdbarch,
1741                          int char_signed)
1742 {
1743   gdbarch->char_signed = char_signed;
1744 }
1745
1746 int
1747 gdbarch_read_pc_p (struct gdbarch *gdbarch)
1748 {
1749   gdb_assert (gdbarch != NULL);
1750   return gdbarch->read_pc != NULL;
1751 }
1752
1753 CORE_ADDR
1754 gdbarch_read_pc (struct gdbarch *gdbarch, struct regcache *regcache)
1755 {
1756   gdb_assert (gdbarch != NULL);
1757   gdb_assert (gdbarch->read_pc != NULL);
1758   if (gdbarch_debug >= 2)
1759     fprintf_unfiltered (gdb_stdlog, "gdbarch_read_pc called\n");
1760   return gdbarch->read_pc (regcache);
1761 }
1762
1763 void
1764 set_gdbarch_read_pc (struct gdbarch *gdbarch,
1765                      gdbarch_read_pc_ftype read_pc)
1766 {
1767   gdbarch->read_pc = read_pc;
1768 }
1769
1770 int
1771 gdbarch_write_pc_p (struct gdbarch *gdbarch)
1772 {
1773   gdb_assert (gdbarch != NULL);
1774   return gdbarch->write_pc != NULL;
1775 }
1776
1777 void
1778 gdbarch_write_pc (struct gdbarch *gdbarch, struct regcache *regcache, CORE_ADDR val)
1779 {
1780   gdb_assert (gdbarch != NULL);
1781   gdb_assert (gdbarch->write_pc != NULL);
1782   if (gdbarch_debug >= 2)
1783     fprintf_unfiltered (gdb_stdlog, "gdbarch_write_pc called\n");
1784   gdbarch->write_pc (regcache, val);
1785 }
1786
1787 void
1788 set_gdbarch_write_pc (struct gdbarch *gdbarch,
1789                       gdbarch_write_pc_ftype write_pc)
1790 {
1791   gdbarch->write_pc = write_pc;
1792 }
1793
1794 void
1795 gdbarch_virtual_frame_pointer (struct gdbarch *gdbarch, CORE_ADDR pc, int *frame_regnum, LONGEST *frame_offset)
1796 {
1797   gdb_assert (gdbarch != NULL);
1798   gdb_assert (gdbarch->virtual_frame_pointer != NULL);
1799   if (gdbarch_debug >= 2)
1800     fprintf_unfiltered (gdb_stdlog, "gdbarch_virtual_frame_pointer called\n");
1801   gdbarch->virtual_frame_pointer (gdbarch, pc, frame_regnum, frame_offset);
1802 }
1803
1804 void
1805 set_gdbarch_virtual_frame_pointer (struct gdbarch *gdbarch,
1806                                    gdbarch_virtual_frame_pointer_ftype virtual_frame_pointer)
1807 {
1808   gdbarch->virtual_frame_pointer = virtual_frame_pointer;
1809 }
1810
1811 int
1812 gdbarch_pseudo_register_read_p (struct gdbarch *gdbarch)
1813 {
1814   gdb_assert (gdbarch != NULL);
1815   return gdbarch->pseudo_register_read != NULL;
1816 }
1817
1818 enum register_status
1819 gdbarch_pseudo_register_read (struct gdbarch *gdbarch, struct regcache *regcache, int cookednum, gdb_byte *buf)
1820 {
1821   gdb_assert (gdbarch != NULL);
1822   gdb_assert (gdbarch->pseudo_register_read != NULL);
1823   if (gdbarch_debug >= 2)
1824     fprintf_unfiltered (gdb_stdlog, "gdbarch_pseudo_register_read called\n");
1825   return gdbarch->pseudo_register_read (gdbarch, regcache, cookednum, buf);
1826 }
1827
1828 void
1829 set_gdbarch_pseudo_register_read (struct gdbarch *gdbarch,
1830                                   gdbarch_pseudo_register_read_ftype pseudo_register_read)
1831 {
1832   gdbarch->pseudo_register_read = pseudo_register_read;
1833 }
1834
1835 int
1836 gdbarch_pseudo_register_read_value_p (struct gdbarch *gdbarch)
1837 {
1838   gdb_assert (gdbarch != NULL);
1839   return gdbarch->pseudo_register_read_value != NULL;
1840 }
1841
1842 struct value *
1843 gdbarch_pseudo_register_read_value (struct gdbarch *gdbarch, struct regcache *regcache, int cookednum)
1844 {
1845   gdb_assert (gdbarch != NULL);
1846   gdb_assert (gdbarch->pseudo_register_read_value != NULL);
1847   if (gdbarch_debug >= 2)
1848     fprintf_unfiltered (gdb_stdlog, "gdbarch_pseudo_register_read_value called\n");
1849   return gdbarch->pseudo_register_read_value (gdbarch, regcache, cookednum);
1850 }
1851
1852 void
1853 set_gdbarch_pseudo_register_read_value (struct gdbarch *gdbarch,
1854                                         gdbarch_pseudo_register_read_value_ftype pseudo_register_read_value)
1855 {
1856   gdbarch->pseudo_register_read_value = pseudo_register_read_value;
1857 }
1858
1859 int
1860 gdbarch_pseudo_register_write_p (struct gdbarch *gdbarch)
1861 {
1862   gdb_assert (gdbarch != NULL);
1863   return gdbarch->pseudo_register_write != NULL;
1864 }
1865
1866 void
1867 gdbarch_pseudo_register_write (struct gdbarch *gdbarch, struct regcache *regcache, int cookednum, const gdb_byte *buf)
1868 {
1869   gdb_assert (gdbarch != NULL);
1870   gdb_assert (gdbarch->pseudo_register_write != NULL);
1871   if (gdbarch_debug >= 2)
1872     fprintf_unfiltered (gdb_stdlog, "gdbarch_pseudo_register_write called\n");
1873   gdbarch->pseudo_register_write (gdbarch, regcache, cookednum, buf);
1874 }
1875
1876 void
1877 set_gdbarch_pseudo_register_write (struct gdbarch *gdbarch,
1878                                    gdbarch_pseudo_register_write_ftype pseudo_register_write)
1879 {
1880   gdbarch->pseudo_register_write = pseudo_register_write;
1881 }
1882
1883 int
1884 gdbarch_num_regs (struct gdbarch *gdbarch)
1885 {
1886   gdb_assert (gdbarch != NULL);
1887   /* Check variable changed from pre-default.  */
1888   gdb_assert (gdbarch->num_regs != -1);
1889   if (gdbarch_debug >= 2)
1890     fprintf_unfiltered (gdb_stdlog, "gdbarch_num_regs called\n");
1891   return gdbarch->num_regs;
1892 }
1893
1894 void
1895 set_gdbarch_num_regs (struct gdbarch *gdbarch,
1896                       int num_regs)
1897 {
1898   gdbarch->num_regs = num_regs;
1899 }
1900
1901 int
1902 gdbarch_num_pseudo_regs (struct gdbarch *gdbarch)
1903 {
1904   gdb_assert (gdbarch != NULL);
1905   /* Skip verify of num_pseudo_regs, invalid_p == 0 */
1906   if (gdbarch_debug >= 2)
1907     fprintf_unfiltered (gdb_stdlog, "gdbarch_num_pseudo_regs called\n");
1908   return gdbarch->num_pseudo_regs;
1909 }
1910
1911 void
1912 set_gdbarch_num_pseudo_regs (struct gdbarch *gdbarch,
1913                              int num_pseudo_regs)
1914 {
1915   gdbarch->num_pseudo_regs = num_pseudo_regs;
1916 }
1917
1918 int
1919 gdbarch_ax_pseudo_register_collect_p (struct gdbarch *gdbarch)
1920 {
1921   gdb_assert (gdbarch != NULL);
1922   return gdbarch->ax_pseudo_register_collect != NULL;
1923 }
1924
1925 int
1926 gdbarch_ax_pseudo_register_collect (struct gdbarch *gdbarch, struct agent_expr *ax, int reg)
1927 {
1928   gdb_assert (gdbarch != NULL);
1929   gdb_assert (gdbarch->ax_pseudo_register_collect != NULL);
1930   if (gdbarch_debug >= 2)
1931     fprintf_unfiltered (gdb_stdlog, "gdbarch_ax_pseudo_register_collect called\n");
1932   return gdbarch->ax_pseudo_register_collect (gdbarch, ax, reg);
1933 }
1934
1935 void
1936 set_gdbarch_ax_pseudo_register_collect (struct gdbarch *gdbarch,
1937                                         gdbarch_ax_pseudo_register_collect_ftype ax_pseudo_register_collect)
1938 {
1939   gdbarch->ax_pseudo_register_collect = ax_pseudo_register_collect;
1940 }
1941
1942 int
1943 gdbarch_ax_pseudo_register_push_stack_p (struct gdbarch *gdbarch)
1944 {
1945   gdb_assert (gdbarch != NULL);
1946   return gdbarch->ax_pseudo_register_push_stack != NULL;
1947 }
1948
1949 int
1950 gdbarch_ax_pseudo_register_push_stack (struct gdbarch *gdbarch, struct agent_expr *ax, int reg)
1951 {
1952   gdb_assert (gdbarch != NULL);
1953   gdb_assert (gdbarch->ax_pseudo_register_push_stack != NULL);
1954   if (gdbarch_debug >= 2)
1955     fprintf_unfiltered (gdb_stdlog, "gdbarch_ax_pseudo_register_push_stack called\n");
1956   return gdbarch->ax_pseudo_register_push_stack (gdbarch, ax, reg);
1957 }
1958
1959 void
1960 set_gdbarch_ax_pseudo_register_push_stack (struct gdbarch *gdbarch,
1961                                            gdbarch_ax_pseudo_register_push_stack_ftype ax_pseudo_register_push_stack)
1962 {
1963   gdbarch->ax_pseudo_register_push_stack = ax_pseudo_register_push_stack;
1964 }
1965
1966 int
1967 gdbarch_sp_regnum (struct gdbarch *gdbarch)
1968 {
1969   gdb_assert (gdbarch != NULL);
1970   /* Skip verify of sp_regnum, invalid_p == 0 */
1971   if (gdbarch_debug >= 2)
1972     fprintf_unfiltered (gdb_stdlog, "gdbarch_sp_regnum called\n");
1973   return gdbarch->sp_regnum;
1974 }
1975
1976 void
1977 set_gdbarch_sp_regnum (struct gdbarch *gdbarch,
1978                        int sp_regnum)
1979 {
1980   gdbarch->sp_regnum = sp_regnum;
1981 }
1982
1983 int
1984 gdbarch_pc_regnum (struct gdbarch *gdbarch)
1985 {
1986   gdb_assert (gdbarch != NULL);
1987   /* Skip verify of pc_regnum, invalid_p == 0 */
1988   if (gdbarch_debug >= 2)
1989     fprintf_unfiltered (gdb_stdlog, "gdbarch_pc_regnum called\n");
1990   return gdbarch->pc_regnum;
1991 }
1992
1993 void
1994 set_gdbarch_pc_regnum (struct gdbarch *gdbarch,
1995                        int pc_regnum)
1996 {
1997   gdbarch->pc_regnum = pc_regnum;
1998 }
1999
2000 int
2001 gdbarch_ps_regnum (struct gdbarch *gdbarch)
2002 {
2003   gdb_assert (gdbarch != NULL);
2004   /* Skip verify of ps_regnum, invalid_p == 0 */
2005   if (gdbarch_debug >= 2)
2006     fprintf_unfiltered (gdb_stdlog, "gdbarch_ps_regnum called\n");
2007   return gdbarch->ps_regnum;
2008 }
2009
2010 void
2011 set_gdbarch_ps_regnum (struct gdbarch *gdbarch,
2012                        int ps_regnum)
2013 {
2014   gdbarch->ps_regnum = ps_regnum;
2015 }
2016
2017 int
2018 gdbarch_fp0_regnum (struct gdbarch *gdbarch)
2019 {
2020   gdb_assert (gdbarch != NULL);
2021   /* Skip verify of fp0_regnum, invalid_p == 0 */
2022   if (gdbarch_debug >= 2)
2023     fprintf_unfiltered (gdb_stdlog, "gdbarch_fp0_regnum called\n");
2024   return gdbarch->fp0_regnum;
2025 }
2026
2027 void
2028 set_gdbarch_fp0_regnum (struct gdbarch *gdbarch,
2029                         int fp0_regnum)
2030 {
2031   gdbarch->fp0_regnum = fp0_regnum;
2032 }
2033
2034 int
2035 gdbarch_stab_reg_to_regnum (struct gdbarch *gdbarch, int stab_regnr)
2036 {
2037   gdb_assert (gdbarch != NULL);
2038   gdb_assert (gdbarch->stab_reg_to_regnum != NULL);
2039   if (gdbarch_debug >= 2)
2040     fprintf_unfiltered (gdb_stdlog, "gdbarch_stab_reg_to_regnum called\n");
2041   return gdbarch->stab_reg_to_regnum (gdbarch, stab_regnr);
2042 }
2043
2044 void
2045 set_gdbarch_stab_reg_to_regnum (struct gdbarch *gdbarch,
2046                                 gdbarch_stab_reg_to_regnum_ftype stab_reg_to_regnum)
2047 {
2048   gdbarch->stab_reg_to_regnum = stab_reg_to_regnum;
2049 }
2050
2051 int
2052 gdbarch_ecoff_reg_to_regnum (struct gdbarch *gdbarch, int ecoff_regnr)
2053 {
2054   gdb_assert (gdbarch != NULL);
2055   gdb_assert (gdbarch->ecoff_reg_to_regnum != NULL);
2056   if (gdbarch_debug >= 2)
2057     fprintf_unfiltered (gdb_stdlog, "gdbarch_ecoff_reg_to_regnum called\n");
2058   return gdbarch->ecoff_reg_to_regnum (gdbarch, ecoff_regnr);
2059 }
2060
2061 void
2062 set_gdbarch_ecoff_reg_to_regnum (struct gdbarch *gdbarch,
2063                                  gdbarch_ecoff_reg_to_regnum_ftype ecoff_reg_to_regnum)
2064 {
2065   gdbarch->ecoff_reg_to_regnum = ecoff_reg_to_regnum;
2066 }
2067
2068 int
2069 gdbarch_sdb_reg_to_regnum (struct gdbarch *gdbarch, int sdb_regnr)
2070 {
2071   gdb_assert (gdbarch != NULL);
2072   gdb_assert (gdbarch->sdb_reg_to_regnum != NULL);
2073   if (gdbarch_debug >= 2)
2074     fprintf_unfiltered (gdb_stdlog, "gdbarch_sdb_reg_to_regnum called\n");
2075   return gdbarch->sdb_reg_to_regnum (gdbarch, sdb_regnr);
2076 }
2077
2078 void
2079 set_gdbarch_sdb_reg_to_regnum (struct gdbarch *gdbarch,
2080                                gdbarch_sdb_reg_to_regnum_ftype sdb_reg_to_regnum)
2081 {
2082   gdbarch->sdb_reg_to_regnum = sdb_reg_to_regnum;
2083 }
2084
2085 int
2086 gdbarch_dwarf2_reg_to_regnum (struct gdbarch *gdbarch, int dwarf2_regnr)
2087 {
2088   gdb_assert (gdbarch != NULL);
2089   gdb_assert (gdbarch->dwarf2_reg_to_regnum != NULL);
2090   if (gdbarch_debug >= 2)
2091     fprintf_unfiltered (gdb_stdlog, "gdbarch_dwarf2_reg_to_regnum called\n");
2092   return gdbarch->dwarf2_reg_to_regnum (gdbarch, dwarf2_regnr);
2093 }
2094
2095 void
2096 set_gdbarch_dwarf2_reg_to_regnum (struct gdbarch *gdbarch,
2097                                   gdbarch_dwarf2_reg_to_regnum_ftype dwarf2_reg_to_regnum)
2098 {
2099   gdbarch->dwarf2_reg_to_regnum = dwarf2_reg_to_regnum;
2100 }
2101
2102 const char *
2103 gdbarch_register_name (struct gdbarch *gdbarch, int regnr)
2104 {
2105   gdb_assert (gdbarch != NULL);
2106   gdb_assert (gdbarch->register_name != NULL);
2107   if (gdbarch_debug >= 2)
2108     fprintf_unfiltered (gdb_stdlog, "gdbarch_register_name called\n");
2109   return gdbarch->register_name (gdbarch, regnr);
2110 }
2111
2112 void
2113 set_gdbarch_register_name (struct gdbarch *gdbarch,
2114                            gdbarch_register_name_ftype register_name)
2115 {
2116   gdbarch->register_name = register_name;
2117 }
2118
2119 int
2120 gdbarch_register_type_p (struct gdbarch *gdbarch)
2121 {
2122   gdb_assert (gdbarch != NULL);
2123   return gdbarch->register_type != NULL;
2124 }
2125
2126 struct type *
2127 gdbarch_register_type (struct gdbarch *gdbarch, int reg_nr)
2128 {
2129   gdb_assert (gdbarch != NULL);
2130   gdb_assert (gdbarch->register_type != NULL);
2131   if (gdbarch_debug >= 2)
2132     fprintf_unfiltered (gdb_stdlog, "gdbarch_register_type called\n");
2133   return gdbarch->register_type (gdbarch, reg_nr);
2134 }
2135
2136 void
2137 set_gdbarch_register_type (struct gdbarch *gdbarch,
2138                            gdbarch_register_type_ftype register_type)
2139 {
2140   gdbarch->register_type = register_type;
2141 }
2142
2143 int
2144 gdbarch_dummy_id_p (struct gdbarch *gdbarch)
2145 {
2146   gdb_assert (gdbarch != NULL);
2147   return gdbarch->dummy_id != NULL;
2148 }
2149
2150 struct frame_id
2151 gdbarch_dummy_id (struct gdbarch *gdbarch, struct frame_info *this_frame)
2152 {
2153   gdb_assert (gdbarch != NULL);
2154   gdb_assert (gdbarch->dummy_id != NULL);
2155   if (gdbarch_debug >= 2)
2156     fprintf_unfiltered (gdb_stdlog, "gdbarch_dummy_id called\n");
2157   return gdbarch->dummy_id (gdbarch, this_frame);
2158 }
2159
2160 void
2161 set_gdbarch_dummy_id (struct gdbarch *gdbarch,
2162                       gdbarch_dummy_id_ftype dummy_id)
2163 {
2164   gdbarch->dummy_id = dummy_id;
2165 }
2166
2167 int
2168 gdbarch_deprecated_fp_regnum (struct gdbarch *gdbarch)
2169 {
2170   gdb_assert (gdbarch != NULL);
2171   /* Skip verify of deprecated_fp_regnum, invalid_p == 0 */
2172   if (gdbarch_debug >= 2)
2173     fprintf_unfiltered (gdb_stdlog, "gdbarch_deprecated_fp_regnum called\n");
2174   return gdbarch->deprecated_fp_regnum;
2175 }
2176
2177 void
2178 set_gdbarch_deprecated_fp_regnum (struct gdbarch *gdbarch,
2179                                   int deprecated_fp_regnum)
2180 {
2181   gdbarch->deprecated_fp_regnum = deprecated_fp_regnum;
2182 }
2183
2184 int
2185 gdbarch_push_dummy_call_p (struct gdbarch *gdbarch)
2186 {
2187   gdb_assert (gdbarch != NULL);
2188   return gdbarch->push_dummy_call != NULL;
2189 }
2190
2191 CORE_ADDR
2192 gdbarch_push_dummy_call (struct gdbarch *gdbarch, struct value *function, struct regcache *regcache, CORE_ADDR bp_addr, int nargs, struct value **args, CORE_ADDR sp, int struct_return, CORE_ADDR struct_addr)
2193 {
2194   gdb_assert (gdbarch != NULL);
2195   gdb_assert (gdbarch->push_dummy_call != NULL);
2196   if (gdbarch_debug >= 2)
2197     fprintf_unfiltered (gdb_stdlog, "gdbarch_push_dummy_call called\n");
2198   return gdbarch->push_dummy_call (gdbarch, function, regcache, bp_addr, nargs, args, sp, struct_return, struct_addr);
2199 }
2200
2201 void
2202 set_gdbarch_push_dummy_call (struct gdbarch *gdbarch,
2203                              gdbarch_push_dummy_call_ftype push_dummy_call)
2204 {
2205   gdbarch->push_dummy_call = push_dummy_call;
2206 }
2207
2208 int
2209 gdbarch_call_dummy_location (struct gdbarch *gdbarch)
2210 {
2211   gdb_assert (gdbarch != NULL);
2212   /* Skip verify of call_dummy_location, invalid_p == 0 */
2213   if (gdbarch_debug >= 2)
2214     fprintf_unfiltered (gdb_stdlog, "gdbarch_call_dummy_location called\n");
2215   return gdbarch->call_dummy_location;
2216 }
2217
2218 void
2219 set_gdbarch_call_dummy_location (struct gdbarch *gdbarch,
2220                                  int call_dummy_location)
2221 {
2222   gdbarch->call_dummy_location = call_dummy_location;
2223 }
2224
2225 int
2226 gdbarch_push_dummy_code_p (struct gdbarch *gdbarch)
2227 {
2228   gdb_assert (gdbarch != NULL);
2229   return gdbarch->push_dummy_code != NULL;
2230 }
2231
2232 CORE_ADDR
2233 gdbarch_push_dummy_code (struct gdbarch *gdbarch, CORE_ADDR sp, CORE_ADDR funaddr, struct value **args, int nargs, struct type *value_type, CORE_ADDR *real_pc, CORE_ADDR *bp_addr, struct regcache *regcache)
2234 {
2235   gdb_assert (gdbarch != NULL);
2236   gdb_assert (gdbarch->push_dummy_code != NULL);
2237   if (gdbarch_debug >= 2)
2238     fprintf_unfiltered (gdb_stdlog, "gdbarch_push_dummy_code called\n");
2239   return gdbarch->push_dummy_code (gdbarch, sp, funaddr, args, nargs, value_type, real_pc, bp_addr, regcache);
2240 }
2241
2242 void
2243 set_gdbarch_push_dummy_code (struct gdbarch *gdbarch,
2244                              gdbarch_push_dummy_code_ftype push_dummy_code)
2245 {
2246   gdbarch->push_dummy_code = push_dummy_code;
2247 }
2248
2249 void
2250 gdbarch_print_registers_info (struct gdbarch *gdbarch, struct ui_file *file, struct frame_info *frame, int regnum, int all)
2251 {
2252   gdb_assert (gdbarch != NULL);
2253   gdb_assert (gdbarch->print_registers_info != NULL);
2254   if (gdbarch_debug >= 2)
2255     fprintf_unfiltered (gdb_stdlog, "gdbarch_print_registers_info called\n");
2256   gdbarch->print_registers_info (gdbarch, file, frame, regnum, all);
2257 }
2258
2259 void
2260 set_gdbarch_print_registers_info (struct gdbarch *gdbarch,
2261                                   gdbarch_print_registers_info_ftype print_registers_info)
2262 {
2263   gdbarch->print_registers_info = print_registers_info;
2264 }
2265
2266 int
2267 gdbarch_print_float_info_p (struct gdbarch *gdbarch)
2268 {
2269   gdb_assert (gdbarch != NULL);
2270   return gdbarch->print_float_info != NULL;
2271 }
2272
2273 void
2274 gdbarch_print_float_info (struct gdbarch *gdbarch, struct ui_file *file, struct frame_info *frame, const char *args)
2275 {
2276   gdb_assert (gdbarch != NULL);
2277   gdb_assert (gdbarch->print_float_info != NULL);
2278   if (gdbarch_debug >= 2)
2279     fprintf_unfiltered (gdb_stdlog, "gdbarch_print_float_info called\n");
2280   gdbarch->print_float_info (gdbarch, file, frame, args);
2281 }
2282
2283 void
2284 set_gdbarch_print_float_info (struct gdbarch *gdbarch,
2285                               gdbarch_print_float_info_ftype print_float_info)
2286 {
2287   gdbarch->print_float_info = print_float_info;
2288 }
2289
2290 int
2291 gdbarch_print_vector_info_p (struct gdbarch *gdbarch)
2292 {
2293   gdb_assert (gdbarch != NULL);
2294   return gdbarch->print_vector_info != NULL;
2295 }
2296
2297 void
2298 gdbarch_print_vector_info (struct gdbarch *gdbarch, struct ui_file *file, struct frame_info *frame, const char *args)
2299 {
2300   gdb_assert (gdbarch != NULL);
2301   gdb_assert (gdbarch->print_vector_info != NULL);
2302   if (gdbarch_debug >= 2)
2303     fprintf_unfiltered (gdb_stdlog, "gdbarch_print_vector_info called\n");
2304   gdbarch->print_vector_info (gdbarch, file, frame, args);
2305 }
2306
2307 void
2308 set_gdbarch_print_vector_info (struct gdbarch *gdbarch,
2309                                gdbarch_print_vector_info_ftype print_vector_info)
2310 {
2311   gdbarch->print_vector_info = print_vector_info;
2312 }
2313
2314 int
2315 gdbarch_register_sim_regno (struct gdbarch *gdbarch, int reg_nr)
2316 {
2317   gdb_assert (gdbarch != NULL);
2318   gdb_assert (gdbarch->register_sim_regno != NULL);
2319   if (gdbarch_debug >= 2)
2320     fprintf_unfiltered (gdb_stdlog, "gdbarch_register_sim_regno called\n");
2321   return gdbarch->register_sim_regno (gdbarch, reg_nr);
2322 }
2323
2324 void
2325 set_gdbarch_register_sim_regno (struct gdbarch *gdbarch,
2326                                 gdbarch_register_sim_regno_ftype register_sim_regno)
2327 {
2328   gdbarch->register_sim_regno = register_sim_regno;
2329 }
2330
2331 int
2332 gdbarch_cannot_fetch_register (struct gdbarch *gdbarch, int regnum)
2333 {
2334   gdb_assert (gdbarch != NULL);
2335   gdb_assert (gdbarch->cannot_fetch_register != NULL);
2336   if (gdbarch_debug >= 2)
2337     fprintf_unfiltered (gdb_stdlog, "gdbarch_cannot_fetch_register called\n");
2338   return gdbarch->cannot_fetch_register (gdbarch, regnum);
2339 }
2340
2341 void
2342 set_gdbarch_cannot_fetch_register (struct gdbarch *gdbarch,
2343                                    gdbarch_cannot_fetch_register_ftype cannot_fetch_register)
2344 {
2345   gdbarch->cannot_fetch_register = cannot_fetch_register;
2346 }
2347
2348 int
2349 gdbarch_cannot_store_register (struct gdbarch *gdbarch, int regnum)
2350 {
2351   gdb_assert (gdbarch != NULL);
2352   gdb_assert (gdbarch->cannot_store_register != NULL);
2353   if (gdbarch_debug >= 2)
2354     fprintf_unfiltered (gdb_stdlog, "gdbarch_cannot_store_register called\n");
2355   return gdbarch->cannot_store_register (gdbarch, regnum);
2356 }
2357
2358 void
2359 set_gdbarch_cannot_store_register (struct gdbarch *gdbarch,
2360                                    gdbarch_cannot_store_register_ftype cannot_store_register)
2361 {
2362   gdbarch->cannot_store_register = cannot_store_register;
2363 }
2364
2365 int
2366 gdbarch_get_longjmp_target_p (struct gdbarch *gdbarch)
2367 {
2368   gdb_assert (gdbarch != NULL);
2369   return gdbarch->get_longjmp_target != NULL;
2370 }
2371
2372 int
2373 gdbarch_get_longjmp_target (struct gdbarch *gdbarch, struct frame_info *frame, CORE_ADDR *pc)
2374 {
2375   gdb_assert (gdbarch != NULL);
2376   gdb_assert (gdbarch->get_longjmp_target != NULL);
2377   if (gdbarch_debug >= 2)
2378     fprintf_unfiltered (gdb_stdlog, "gdbarch_get_longjmp_target called\n");
2379   return gdbarch->get_longjmp_target (frame, pc);
2380 }
2381
2382 void
2383 set_gdbarch_get_longjmp_target (struct gdbarch *gdbarch,
2384                                 gdbarch_get_longjmp_target_ftype get_longjmp_target)
2385 {
2386   gdbarch->get_longjmp_target = get_longjmp_target;
2387 }
2388
2389 int
2390 gdbarch_believe_pcc_promotion (struct gdbarch *gdbarch)
2391 {
2392   gdb_assert (gdbarch != NULL);
2393   if (gdbarch_debug >= 2)
2394     fprintf_unfiltered (gdb_stdlog, "gdbarch_believe_pcc_promotion called\n");
2395   return gdbarch->believe_pcc_promotion;
2396 }
2397
2398 void
2399 set_gdbarch_believe_pcc_promotion (struct gdbarch *gdbarch,
2400                                    int believe_pcc_promotion)
2401 {
2402   gdbarch->believe_pcc_promotion = believe_pcc_promotion;
2403 }
2404
2405 int
2406 gdbarch_convert_register_p (struct gdbarch *gdbarch, int regnum, struct type *type)
2407 {
2408   gdb_assert (gdbarch != NULL);
2409   gdb_assert (gdbarch->convert_register_p != NULL);
2410   if (gdbarch_debug >= 2)
2411     fprintf_unfiltered (gdb_stdlog, "gdbarch_convert_register_p called\n");
2412   return gdbarch->convert_register_p (gdbarch, regnum, type);
2413 }
2414
2415 void
2416 set_gdbarch_convert_register_p (struct gdbarch *gdbarch,
2417                                 gdbarch_convert_register_p_ftype convert_register_p)
2418 {
2419   gdbarch->convert_register_p = convert_register_p;
2420 }
2421
2422 int
2423 gdbarch_register_to_value (struct gdbarch *gdbarch, struct frame_info *frame, int regnum, struct type *type, gdb_byte *buf, int *optimizedp, int *unavailablep)
2424 {
2425   gdb_assert (gdbarch != NULL);
2426   gdb_assert (gdbarch->register_to_value != NULL);
2427   if (gdbarch_debug >= 2)
2428     fprintf_unfiltered (gdb_stdlog, "gdbarch_register_to_value called\n");
2429   return gdbarch->register_to_value (frame, regnum, type, buf, optimizedp, unavailablep);
2430 }
2431
2432 void
2433 set_gdbarch_register_to_value (struct gdbarch *gdbarch,
2434                                gdbarch_register_to_value_ftype register_to_value)
2435 {
2436   gdbarch->register_to_value = register_to_value;
2437 }
2438
2439 void
2440 gdbarch_value_to_register (struct gdbarch *gdbarch, struct frame_info *frame, int regnum, struct type *type, const gdb_byte *buf)
2441 {
2442   gdb_assert (gdbarch != NULL);
2443   gdb_assert (gdbarch->value_to_register != NULL);
2444   if (gdbarch_debug >= 2)
2445     fprintf_unfiltered (gdb_stdlog, "gdbarch_value_to_register called\n");
2446   gdbarch->value_to_register (frame, regnum, type, buf);
2447 }
2448
2449 void
2450 set_gdbarch_value_to_register (struct gdbarch *gdbarch,
2451                                gdbarch_value_to_register_ftype value_to_register)
2452 {
2453   gdbarch->value_to_register = value_to_register;
2454 }
2455
2456 struct value *
2457 gdbarch_value_from_register (struct gdbarch *gdbarch, struct type *type, int regnum, struct frame_info *frame)
2458 {
2459   gdb_assert (gdbarch != NULL);
2460   gdb_assert (gdbarch->value_from_register != NULL);
2461   if (gdbarch_debug >= 2)
2462     fprintf_unfiltered (gdb_stdlog, "gdbarch_value_from_register called\n");
2463   return gdbarch->value_from_register (type, regnum, frame);
2464 }
2465
2466 void
2467 set_gdbarch_value_from_register (struct gdbarch *gdbarch,
2468                                  gdbarch_value_from_register_ftype value_from_register)
2469 {
2470   gdbarch->value_from_register = value_from_register;
2471 }
2472
2473 CORE_ADDR
2474 gdbarch_pointer_to_address (struct gdbarch *gdbarch, struct type *type, const gdb_byte *buf)
2475 {
2476   gdb_assert (gdbarch != NULL);
2477   gdb_assert (gdbarch->pointer_to_address != NULL);
2478   if (gdbarch_debug >= 2)
2479     fprintf_unfiltered (gdb_stdlog, "gdbarch_pointer_to_address called\n");
2480   return gdbarch->pointer_to_address (gdbarch, type, buf);
2481 }
2482
2483 void
2484 set_gdbarch_pointer_to_address (struct gdbarch *gdbarch,
2485                                 gdbarch_pointer_to_address_ftype pointer_to_address)
2486 {
2487   gdbarch->pointer_to_address = pointer_to_address;
2488 }
2489
2490 void
2491 gdbarch_address_to_pointer (struct gdbarch *gdbarch, struct type *type, gdb_byte *buf, CORE_ADDR addr)
2492 {
2493   gdb_assert (gdbarch != NULL);
2494   gdb_assert (gdbarch->address_to_pointer != NULL);
2495   if (gdbarch_debug >= 2)
2496     fprintf_unfiltered (gdb_stdlog, "gdbarch_address_to_pointer called\n");
2497   gdbarch->address_to_pointer (gdbarch, type, buf, addr);
2498 }
2499
2500 void
2501 set_gdbarch_address_to_pointer (struct gdbarch *gdbarch,
2502                                 gdbarch_address_to_pointer_ftype address_to_pointer)
2503 {
2504   gdbarch->address_to_pointer = address_to_pointer;
2505 }
2506
2507 int
2508 gdbarch_integer_to_address_p (struct gdbarch *gdbarch)
2509 {
2510   gdb_assert (gdbarch != NULL);
2511   return gdbarch->integer_to_address != NULL;
2512 }
2513
2514 CORE_ADDR
2515 gdbarch_integer_to_address (struct gdbarch *gdbarch, struct type *type, const gdb_byte *buf)
2516 {
2517   gdb_assert (gdbarch != NULL);
2518   gdb_assert (gdbarch->integer_to_address != NULL);
2519   if (gdbarch_debug >= 2)
2520     fprintf_unfiltered (gdb_stdlog, "gdbarch_integer_to_address called\n");
2521   return gdbarch->integer_to_address (gdbarch, type, buf);
2522 }
2523
2524 void
2525 set_gdbarch_integer_to_address (struct gdbarch *gdbarch,
2526                                 gdbarch_integer_to_address_ftype integer_to_address)
2527 {
2528   gdbarch->integer_to_address = integer_to_address;
2529 }
2530
2531 int
2532 gdbarch_return_value_p (struct gdbarch *gdbarch)
2533 {
2534   gdb_assert (gdbarch != NULL);
2535   return gdbarch->return_value != NULL;
2536 }
2537
2538 enum return_value_convention
2539 gdbarch_return_value (struct gdbarch *gdbarch, struct type *functype, struct type *valtype, struct regcache *regcache, gdb_byte *readbuf, const gdb_byte *writebuf)
2540 {
2541   gdb_assert (gdbarch != NULL);
2542   gdb_assert (gdbarch->return_value != NULL);
2543   if (gdbarch_debug >= 2)
2544     fprintf_unfiltered (gdb_stdlog, "gdbarch_return_value called\n");
2545   return gdbarch->return_value (gdbarch, functype, valtype, regcache, readbuf, writebuf);
2546 }
2547
2548 void
2549 set_gdbarch_return_value (struct gdbarch *gdbarch,
2550                           gdbarch_return_value_ftype return_value)
2551 {
2552   gdbarch->return_value = return_value;
2553 }
2554
2555 CORE_ADDR
2556 gdbarch_skip_prologue (struct gdbarch *gdbarch, CORE_ADDR ip)
2557 {
2558   gdb_assert (gdbarch != NULL);
2559   gdb_assert (gdbarch->skip_prologue != NULL);
2560   if (gdbarch_debug >= 2)
2561     fprintf_unfiltered (gdb_stdlog, "gdbarch_skip_prologue called\n");
2562   return gdbarch->skip_prologue (gdbarch, ip);
2563 }
2564
2565 void
2566 set_gdbarch_skip_prologue (struct gdbarch *gdbarch,
2567                            gdbarch_skip_prologue_ftype skip_prologue)
2568 {
2569   gdbarch->skip_prologue = skip_prologue;
2570 }
2571
2572 int
2573 gdbarch_skip_main_prologue_p (struct gdbarch *gdbarch)
2574 {
2575   gdb_assert (gdbarch != NULL);
2576   return gdbarch->skip_main_prologue != NULL;
2577 }
2578
2579 CORE_ADDR
2580 gdbarch_skip_main_prologue (struct gdbarch *gdbarch, CORE_ADDR ip)
2581 {
2582   gdb_assert (gdbarch != NULL);
2583   gdb_assert (gdbarch->skip_main_prologue != NULL);
2584   if (gdbarch_debug >= 2)
2585     fprintf_unfiltered (gdb_stdlog, "gdbarch_skip_main_prologue called\n");
2586   return gdbarch->skip_main_prologue (gdbarch, ip);
2587 }
2588
2589 void
2590 set_gdbarch_skip_main_prologue (struct gdbarch *gdbarch,
2591                                 gdbarch_skip_main_prologue_ftype skip_main_prologue)
2592 {
2593   gdbarch->skip_main_prologue = skip_main_prologue;
2594 }
2595
2596 int
2597 gdbarch_inner_than (struct gdbarch *gdbarch, CORE_ADDR lhs, CORE_ADDR rhs)
2598 {
2599   gdb_assert (gdbarch != NULL);
2600   gdb_assert (gdbarch->inner_than != NULL);
2601   if (gdbarch_debug >= 2)
2602     fprintf_unfiltered (gdb_stdlog, "gdbarch_inner_than called\n");
2603   return gdbarch->inner_than (lhs, rhs);
2604 }
2605
2606 void
2607 set_gdbarch_inner_than (struct gdbarch *gdbarch,
2608                         gdbarch_inner_than_ftype inner_than)
2609 {
2610   gdbarch->inner_than = inner_than;
2611 }
2612
2613 const gdb_byte *
2614 gdbarch_breakpoint_from_pc (struct gdbarch *gdbarch, CORE_ADDR *pcptr, int *lenptr)
2615 {
2616   gdb_assert (gdbarch != NULL);
2617   gdb_assert (gdbarch->breakpoint_from_pc != NULL);
2618   if (gdbarch_debug >= 2)
2619     fprintf_unfiltered (gdb_stdlog, "gdbarch_breakpoint_from_pc called\n");
2620   return gdbarch->breakpoint_from_pc (gdbarch, pcptr, lenptr);
2621 }
2622
2623 void
2624 set_gdbarch_breakpoint_from_pc (struct gdbarch *gdbarch,
2625                                 gdbarch_breakpoint_from_pc_ftype breakpoint_from_pc)
2626 {
2627   gdbarch->breakpoint_from_pc = breakpoint_from_pc;
2628 }
2629
2630 void
2631 gdbarch_remote_breakpoint_from_pc (struct gdbarch *gdbarch, CORE_ADDR *pcptr, int *kindptr)
2632 {
2633   gdb_assert (gdbarch != NULL);
2634   gdb_assert (gdbarch->remote_breakpoint_from_pc != NULL);
2635   if (gdbarch_debug >= 2)
2636     fprintf_unfiltered (gdb_stdlog, "gdbarch_remote_breakpoint_from_pc called\n");
2637   gdbarch->remote_breakpoint_from_pc (gdbarch, pcptr, kindptr);
2638 }
2639
2640 void
2641 set_gdbarch_remote_breakpoint_from_pc (struct gdbarch *gdbarch,
2642                                        gdbarch_remote_breakpoint_from_pc_ftype remote_breakpoint_from_pc)
2643 {
2644   gdbarch->remote_breakpoint_from_pc = remote_breakpoint_from_pc;
2645 }
2646
2647 int
2648 gdbarch_adjust_breakpoint_address_p (struct gdbarch *gdbarch)
2649 {
2650   gdb_assert (gdbarch != NULL);
2651   return gdbarch->adjust_breakpoint_address != NULL;
2652 }
2653
2654 CORE_ADDR
2655 gdbarch_adjust_breakpoint_address (struct gdbarch *gdbarch, CORE_ADDR bpaddr)
2656 {
2657   gdb_assert (gdbarch != NULL);
2658   gdb_assert (gdbarch->adjust_breakpoint_address != NULL);
2659   if (gdbarch_debug >= 2)
2660     fprintf_unfiltered (gdb_stdlog, "gdbarch_adjust_breakpoint_address called\n");
2661   return gdbarch->adjust_breakpoint_address (gdbarch, bpaddr);
2662 }
2663
2664 void
2665 set_gdbarch_adjust_breakpoint_address (struct gdbarch *gdbarch,
2666                                        gdbarch_adjust_breakpoint_address_ftype adjust_breakpoint_address)
2667 {
2668   gdbarch->adjust_breakpoint_address = adjust_breakpoint_address;
2669 }
2670
2671 int
2672 gdbarch_memory_insert_breakpoint (struct gdbarch *gdbarch, struct bp_target_info *bp_tgt)
2673 {
2674   gdb_assert (gdbarch != NULL);
2675   gdb_assert (gdbarch->memory_insert_breakpoint != NULL);
2676   if (gdbarch_debug >= 2)
2677     fprintf_unfiltered (gdb_stdlog, "gdbarch_memory_insert_breakpoint called\n");
2678   return gdbarch->memory_insert_breakpoint (gdbarch, bp_tgt);
2679 }
2680
2681 void
2682 set_gdbarch_memory_insert_breakpoint (struct gdbarch *gdbarch,
2683                                       gdbarch_memory_insert_breakpoint_ftype memory_insert_breakpoint)
2684 {
2685   gdbarch->memory_insert_breakpoint = memory_insert_breakpoint;
2686 }
2687
2688 int
2689 gdbarch_memory_remove_breakpoint (struct gdbarch *gdbarch, struct bp_target_info *bp_tgt)
2690 {
2691   gdb_assert (gdbarch != NULL);
2692   gdb_assert (gdbarch->memory_remove_breakpoint != NULL);
2693   if (gdbarch_debug >= 2)
2694     fprintf_unfiltered (gdb_stdlog, "gdbarch_memory_remove_breakpoint called\n");
2695   return gdbarch->memory_remove_breakpoint (gdbarch, bp_tgt);
2696 }
2697
2698 void
2699 set_gdbarch_memory_remove_breakpoint (struct gdbarch *gdbarch,
2700                                       gdbarch_memory_remove_breakpoint_ftype memory_remove_breakpoint)
2701 {
2702   gdbarch->memory_remove_breakpoint = memory_remove_breakpoint;
2703 }
2704
2705 CORE_ADDR
2706 gdbarch_decr_pc_after_break (struct gdbarch *gdbarch)
2707 {
2708   gdb_assert (gdbarch != NULL);
2709   /* Skip verify of decr_pc_after_break, invalid_p == 0 */
2710   if (gdbarch_debug >= 2)
2711     fprintf_unfiltered (gdb_stdlog, "gdbarch_decr_pc_after_break called\n");
2712   return gdbarch->decr_pc_after_break;
2713 }
2714
2715 void
2716 set_gdbarch_decr_pc_after_break (struct gdbarch *gdbarch,
2717                                  CORE_ADDR decr_pc_after_break)
2718 {
2719   gdbarch->decr_pc_after_break = decr_pc_after_break;
2720 }
2721
2722 CORE_ADDR
2723 gdbarch_deprecated_function_start_offset (struct gdbarch *gdbarch)
2724 {
2725   gdb_assert (gdbarch != NULL);
2726   /* Skip verify of deprecated_function_start_offset, invalid_p == 0 */
2727   if (gdbarch_debug >= 2)
2728     fprintf_unfiltered (gdb_stdlog, "gdbarch_deprecated_function_start_offset called\n");
2729   return gdbarch->deprecated_function_start_offset;
2730 }
2731
2732 void
2733 set_gdbarch_deprecated_function_start_offset (struct gdbarch *gdbarch,
2734                                               CORE_ADDR deprecated_function_start_offset)
2735 {
2736   gdbarch->deprecated_function_start_offset = deprecated_function_start_offset;
2737 }
2738
2739 int
2740 gdbarch_remote_register_number (struct gdbarch *gdbarch, int regno)
2741 {
2742   gdb_assert (gdbarch != NULL);
2743   gdb_assert (gdbarch->remote_register_number != NULL);
2744   if (gdbarch_debug >= 2)
2745     fprintf_unfiltered (gdb_stdlog, "gdbarch_remote_register_number called\n");
2746   return gdbarch->remote_register_number (gdbarch, regno);
2747 }
2748
2749 void
2750 set_gdbarch_remote_register_number (struct gdbarch *gdbarch,
2751                                     gdbarch_remote_register_number_ftype remote_register_number)
2752 {
2753   gdbarch->remote_register_number = remote_register_number;
2754 }
2755
2756 int
2757 gdbarch_fetch_tls_load_module_address_p (struct gdbarch *gdbarch)
2758 {
2759   gdb_assert (gdbarch != NULL);
2760   return gdbarch->fetch_tls_load_module_address != NULL;
2761 }
2762
2763 CORE_ADDR
2764 gdbarch_fetch_tls_load_module_address (struct gdbarch *gdbarch, struct objfile *objfile)
2765 {
2766   gdb_assert (gdbarch != NULL);
2767   gdb_assert (gdbarch->fetch_tls_load_module_address != NULL);
2768   if (gdbarch_debug >= 2)
2769     fprintf_unfiltered (gdb_stdlog, "gdbarch_fetch_tls_load_module_address called\n");
2770   return gdbarch->fetch_tls_load_module_address (objfile);
2771 }
2772
2773 void
2774 set_gdbarch_fetch_tls_load_module_address (struct gdbarch *gdbarch,
2775                                            gdbarch_fetch_tls_load_module_address_ftype fetch_tls_load_module_address)
2776 {
2777   gdbarch->fetch_tls_load_module_address = fetch_tls_load_module_address;
2778 }
2779
2780 CORE_ADDR
2781 gdbarch_frame_args_skip (struct gdbarch *gdbarch)
2782 {
2783   gdb_assert (gdbarch != NULL);
2784   /* Skip verify of frame_args_skip, invalid_p == 0 */
2785   if (gdbarch_debug >= 2)
2786     fprintf_unfiltered (gdb_stdlog, "gdbarch_frame_args_skip called\n");
2787   return gdbarch->frame_args_skip;
2788 }
2789
2790 void
2791 set_gdbarch_frame_args_skip (struct gdbarch *gdbarch,
2792                              CORE_ADDR frame_args_skip)
2793 {
2794   gdbarch->frame_args_skip = frame_args_skip;
2795 }
2796
2797 int
2798 gdbarch_unwind_pc_p (struct gdbarch *gdbarch)
2799 {
2800   gdb_assert (gdbarch != NULL);
2801   return gdbarch->unwind_pc != NULL;
2802 }
2803
2804 CORE_ADDR
2805 gdbarch_unwind_pc (struct gdbarch *gdbarch, struct frame_info *next_frame)
2806 {
2807   gdb_assert (gdbarch != NULL);
2808   gdb_assert (gdbarch->unwind_pc != NULL);
2809   if (gdbarch_debug >= 2)
2810     fprintf_unfiltered (gdb_stdlog, "gdbarch_unwind_pc called\n");
2811   return gdbarch->unwind_pc (gdbarch, next_frame);
2812 }
2813
2814 void
2815 set_gdbarch_unwind_pc (struct gdbarch *gdbarch,
2816                        gdbarch_unwind_pc_ftype unwind_pc)
2817 {
2818   gdbarch->unwind_pc = unwind_pc;
2819 }
2820
2821 int
2822 gdbarch_unwind_sp_p (struct gdbarch *gdbarch)
2823 {
2824   gdb_assert (gdbarch != NULL);
2825   return gdbarch->unwind_sp != NULL;
2826 }
2827
2828 CORE_ADDR
2829 gdbarch_unwind_sp (struct gdbarch *gdbarch, struct frame_info *next_frame)
2830 {
2831   gdb_assert (gdbarch != NULL);
2832   gdb_assert (gdbarch->unwind_sp != NULL);
2833   if (gdbarch_debug >= 2)
2834     fprintf_unfiltered (gdb_stdlog, "gdbarch_unwind_sp called\n");
2835   return gdbarch->unwind_sp (gdbarch, next_frame);
2836 }
2837
2838 void
2839 set_gdbarch_unwind_sp (struct gdbarch *gdbarch,
2840                        gdbarch_unwind_sp_ftype unwind_sp)
2841 {
2842   gdbarch->unwind_sp = unwind_sp;
2843 }
2844
2845 int
2846 gdbarch_frame_num_args_p (struct gdbarch *gdbarch)
2847 {
2848   gdb_assert (gdbarch != NULL);
2849   return gdbarch->frame_num_args != NULL;
2850 }
2851
2852 int
2853 gdbarch_frame_num_args (struct gdbarch *gdbarch, struct frame_info *frame)
2854 {
2855   gdb_assert (gdbarch != NULL);
2856   gdb_assert (gdbarch->frame_num_args != NULL);
2857   if (gdbarch_debug >= 2)
2858     fprintf_unfiltered (gdb_stdlog, "gdbarch_frame_num_args called\n");
2859   return gdbarch->frame_num_args (frame);
2860 }
2861
2862 void
2863 set_gdbarch_frame_num_args (struct gdbarch *gdbarch,
2864                             gdbarch_frame_num_args_ftype frame_num_args)
2865 {
2866   gdbarch->frame_num_args = frame_num_args;
2867 }
2868
2869 int
2870 gdbarch_frame_align_p (struct gdbarch *gdbarch)
2871 {
2872   gdb_assert (gdbarch != NULL);
2873   return gdbarch->frame_align != NULL;
2874 }
2875
2876 CORE_ADDR
2877 gdbarch_frame_align (struct gdbarch *gdbarch, CORE_ADDR address)
2878 {
2879   gdb_assert (gdbarch != NULL);
2880   gdb_assert (gdbarch->frame_align != NULL);
2881   if (gdbarch_debug >= 2)
2882     fprintf_unfiltered (gdb_stdlog, "gdbarch_frame_align called\n");
2883   return gdbarch->frame_align (gdbarch, address);
2884 }
2885
2886 void
2887 set_gdbarch_frame_align (struct gdbarch *gdbarch,
2888                          gdbarch_frame_align_ftype frame_align)
2889 {
2890   gdbarch->frame_align = frame_align;
2891 }
2892
2893 int
2894 gdbarch_stabs_argument_has_addr (struct gdbarch *gdbarch, struct type *type)
2895 {
2896   gdb_assert (gdbarch != NULL);
2897   gdb_assert (gdbarch->stabs_argument_has_addr != NULL);
2898   if (gdbarch_debug >= 2)
2899     fprintf_unfiltered (gdb_stdlog, "gdbarch_stabs_argument_has_addr called\n");
2900   return gdbarch->stabs_argument_has_addr (gdbarch, type);
2901 }
2902
2903 void
2904 set_gdbarch_stabs_argument_has_addr (struct gdbarch *gdbarch,
2905                                      gdbarch_stabs_argument_has_addr_ftype stabs_argument_has_addr)
2906 {
2907   gdbarch->stabs_argument_has_addr = stabs_argument_has_addr;
2908 }
2909
2910 int
2911 gdbarch_frame_red_zone_size (struct gdbarch *gdbarch)
2912 {
2913   gdb_assert (gdbarch != NULL);
2914   if (gdbarch_debug >= 2)
2915     fprintf_unfiltered (gdb_stdlog, "gdbarch_frame_red_zone_size called\n");
2916   return gdbarch->frame_red_zone_size;
2917 }
2918
2919 void
2920 set_gdbarch_frame_red_zone_size (struct gdbarch *gdbarch,
2921                                  int frame_red_zone_size)
2922 {
2923   gdbarch->frame_red_zone_size = frame_red_zone_size;
2924 }
2925
2926 CORE_ADDR
2927 gdbarch_convert_from_func_ptr_addr (struct gdbarch *gdbarch, CORE_ADDR addr, struct target_ops *targ)
2928 {
2929   gdb_assert (gdbarch != NULL);
2930   gdb_assert (gdbarch->convert_from_func_ptr_addr != NULL);
2931   if (gdbarch_debug >= 2)
2932     fprintf_unfiltered (gdb_stdlog, "gdbarch_convert_from_func_ptr_addr called\n");
2933   return gdbarch->convert_from_func_ptr_addr (gdbarch, addr, targ);
2934 }
2935
2936 void
2937 set_gdbarch_convert_from_func_ptr_addr (struct gdbarch *gdbarch,
2938                                         gdbarch_convert_from_func_ptr_addr_ftype convert_from_func_ptr_addr)
2939 {
2940   gdbarch->convert_from_func_ptr_addr = convert_from_func_ptr_addr;
2941 }
2942
2943 CORE_ADDR
2944 gdbarch_addr_bits_remove (struct gdbarch *gdbarch, CORE_ADDR addr)
2945 {
2946   gdb_assert (gdbarch != NULL);
2947   gdb_assert (gdbarch->addr_bits_remove != NULL);
2948   if (gdbarch_debug >= 2)
2949     fprintf_unfiltered (gdb_stdlog, "gdbarch_addr_bits_remove called\n");
2950   return gdbarch->addr_bits_remove (gdbarch, addr);
2951 }
2952
2953 void
2954 set_gdbarch_addr_bits_remove (struct gdbarch *gdbarch,
2955                               gdbarch_addr_bits_remove_ftype addr_bits_remove)
2956 {
2957   gdbarch->addr_bits_remove = addr_bits_remove;
2958 }
2959
2960 CORE_ADDR
2961 gdbarch_smash_text_address (struct gdbarch *gdbarch, CORE_ADDR addr)
2962 {
2963   gdb_assert (gdbarch != NULL);
2964   gdb_assert (gdbarch->smash_text_address != NULL);
2965   if (gdbarch_debug >= 2)
2966     fprintf_unfiltered (gdb_stdlog, "gdbarch_smash_text_address called\n");
2967   return gdbarch->smash_text_address (gdbarch, addr);
2968 }
2969
2970 void
2971 set_gdbarch_smash_text_address (struct gdbarch *gdbarch,
2972                                 gdbarch_smash_text_address_ftype smash_text_address)
2973 {
2974   gdbarch->smash_text_address = smash_text_address;
2975 }
2976
2977 int
2978 gdbarch_software_single_step_p (struct gdbarch *gdbarch)
2979 {
2980   gdb_assert (gdbarch != NULL);
2981   return gdbarch->software_single_step != NULL;
2982 }
2983
2984 int
2985 gdbarch_software_single_step (struct gdbarch *gdbarch, struct frame_info *frame)
2986 {
2987   gdb_assert (gdbarch != NULL);
2988   gdb_assert (gdbarch->software_single_step != NULL);
2989   if (gdbarch_debug >= 2)
2990     fprintf_unfiltered (gdb_stdlog, "gdbarch_software_single_step called\n");
2991   return gdbarch->software_single_step (frame);
2992 }
2993
2994 void
2995 set_gdbarch_software_single_step (struct gdbarch *gdbarch,
2996                                   gdbarch_software_single_step_ftype software_single_step)
2997 {
2998   gdbarch->software_single_step = software_single_step;
2999 }
3000
3001 int
3002 gdbarch_single_step_through_delay_p (struct gdbarch *gdbarch)
3003 {
3004   gdb_assert (gdbarch != NULL);
3005   return gdbarch->single_step_through_delay != NULL;
3006 }
3007
3008 int
3009 gdbarch_single_step_through_delay (struct gdbarch *gdbarch, struct frame_info *frame)
3010 {
3011   gdb_assert (gdbarch != NULL);
3012   gdb_assert (gdbarch->single_step_through_delay != NULL);
3013   if (gdbarch_debug >= 2)
3014     fprintf_unfiltered (gdb_stdlog, "gdbarch_single_step_through_delay called\n");
3015   return gdbarch->single_step_through_delay (gdbarch, frame);
3016 }
3017
3018 void
3019 set_gdbarch_single_step_through_delay (struct gdbarch *gdbarch,
3020                                        gdbarch_single_step_through_delay_ftype single_step_through_delay)
3021 {
3022   gdbarch->single_step_through_delay = single_step_through_delay;
3023 }
3024
3025 int
3026 gdbarch_print_insn (struct gdbarch *gdbarch, bfd_vma vma, struct disassemble_info *info)
3027 {
3028   gdb_assert (gdbarch != NULL);
3029   gdb_assert (gdbarch->print_insn != NULL);
3030   if (gdbarch_debug >= 2)
3031     fprintf_unfiltered (gdb_stdlog, "gdbarch_print_insn called\n");
3032   return gdbarch->print_insn (vma, info);
3033 }
3034
3035 void
3036 set_gdbarch_print_insn (struct gdbarch *gdbarch,
3037                         gdbarch_print_insn_ftype print_insn)
3038 {
3039   gdbarch->print_insn = print_insn;
3040 }
3041
3042 CORE_ADDR
3043 gdbarch_skip_trampoline_code (struct gdbarch *gdbarch, struct frame_info *frame, CORE_ADDR pc)
3044 {
3045   gdb_assert (gdbarch != NULL);
3046   gdb_assert (gdbarch->skip_trampoline_code != NULL);
3047   if (gdbarch_debug >= 2)
3048     fprintf_unfiltered (gdb_stdlog, "gdbarch_skip_trampoline_code called\n");
3049   return gdbarch->skip_trampoline_code (frame, pc);
3050 }
3051
3052 void
3053 set_gdbarch_skip_trampoline_code (struct gdbarch *gdbarch,
3054                                   gdbarch_skip_trampoline_code_ftype skip_trampoline_code)
3055 {
3056   gdbarch->skip_trampoline_code = skip_trampoline_code;
3057 }
3058
3059 CORE_ADDR
3060 gdbarch_skip_solib_resolver (struct gdbarch *gdbarch, CORE_ADDR pc)
3061 {
3062   gdb_assert (gdbarch != NULL);
3063   gdb_assert (gdbarch->skip_solib_resolver != NULL);
3064   if (gdbarch_debug >= 2)
3065     fprintf_unfiltered (gdb_stdlog, "gdbarch_skip_solib_resolver called\n");
3066   return gdbarch->skip_solib_resolver (gdbarch, pc);
3067 }
3068
3069 void
3070 set_gdbarch_skip_solib_resolver (struct gdbarch *gdbarch,
3071                                  gdbarch_skip_solib_resolver_ftype skip_solib_resolver)
3072 {
3073   gdbarch->skip_solib_resolver = skip_solib_resolver;
3074 }
3075
3076 int
3077 gdbarch_in_solib_return_trampoline (struct gdbarch *gdbarch, CORE_ADDR pc, const char *name)
3078 {
3079   gdb_assert (gdbarch != NULL);
3080   gdb_assert (gdbarch->in_solib_return_trampoline != NULL);
3081   if (gdbarch_debug >= 2)
3082     fprintf_unfiltered (gdb_stdlog, "gdbarch_in_solib_return_trampoline called\n");
3083   return gdbarch->in_solib_return_trampoline (gdbarch, pc, name);
3084 }
3085
3086 void
3087 set_gdbarch_in_solib_return_trampoline (struct gdbarch *gdbarch,
3088                                         gdbarch_in_solib_return_trampoline_ftype in_solib_return_trampoline)
3089 {
3090   gdbarch->in_solib_return_trampoline = in_solib_return_trampoline;
3091 }
3092
3093 int
3094 gdbarch_in_function_epilogue_p (struct gdbarch *gdbarch, CORE_ADDR addr)
3095 {
3096   gdb_assert (gdbarch != NULL);
3097   gdb_assert (gdbarch->in_function_epilogue_p != NULL);
3098   if (gdbarch_debug >= 2)
3099     fprintf_unfiltered (gdb_stdlog, "gdbarch_in_function_epilogue_p called\n");
3100   return gdbarch->in_function_epilogue_p (gdbarch, addr);
3101 }
3102
3103 void
3104 set_gdbarch_in_function_epilogue_p (struct gdbarch *gdbarch,
3105                                     gdbarch_in_function_epilogue_p_ftype in_function_epilogue_p)
3106 {
3107   gdbarch->in_function_epilogue_p = in_function_epilogue_p;
3108 }
3109
3110 void
3111 gdbarch_elf_make_msymbol_special (struct gdbarch *gdbarch, asymbol *sym, struct minimal_symbol *msym)
3112 {
3113   gdb_assert (gdbarch != NULL);
3114   gdb_assert (gdbarch->elf_make_msymbol_special != NULL);
3115   if (gdbarch_debug >= 2)
3116     fprintf_unfiltered (gdb_stdlog, "gdbarch_elf_make_msymbol_special called\n");
3117   gdbarch->elf_make_msymbol_special (sym, msym);
3118 }
3119
3120 void
3121 set_gdbarch_elf_make_msymbol_special (struct gdbarch *gdbarch,
3122                                       gdbarch_elf_make_msymbol_special_ftype elf_make_msymbol_special)
3123 {
3124   gdbarch->elf_make_msymbol_special = elf_make_msymbol_special;
3125 }
3126
3127 void
3128 gdbarch_coff_make_msymbol_special (struct gdbarch *gdbarch, int val, struct minimal_symbol *msym)
3129 {
3130   gdb_assert (gdbarch != NULL);
3131   gdb_assert (gdbarch->coff_make_msymbol_special != NULL);
3132   if (gdbarch_debug >= 2)
3133     fprintf_unfiltered (gdb_stdlog, "gdbarch_coff_make_msymbol_special called\n");
3134   gdbarch->coff_make_msymbol_special (val, msym);
3135 }
3136
3137 void
3138 set_gdbarch_coff_make_msymbol_special (struct gdbarch *gdbarch,
3139                                        gdbarch_coff_make_msymbol_special_ftype coff_make_msymbol_special)
3140 {
3141   gdbarch->coff_make_msymbol_special = coff_make_msymbol_special;
3142 }
3143
3144 int
3145 gdbarch_cannot_step_breakpoint (struct gdbarch *gdbarch)
3146 {
3147   gdb_assert (gdbarch != NULL);
3148   /* Skip verify of cannot_step_breakpoint, invalid_p == 0 */
3149   if (gdbarch_debug >= 2)
3150     fprintf_unfiltered (gdb_stdlog, "gdbarch_cannot_step_breakpoint called\n");
3151   return gdbarch->cannot_step_breakpoint;
3152 }
3153
3154 void
3155 set_gdbarch_cannot_step_breakpoint (struct gdbarch *gdbarch,
3156                                     int cannot_step_breakpoint)
3157 {
3158   gdbarch->cannot_step_breakpoint = cannot_step_breakpoint;
3159 }
3160
3161 int
3162 gdbarch_have_nonsteppable_watchpoint (struct gdbarch *gdbarch)
3163 {
3164   gdb_assert (gdbarch != NULL);
3165   /* Skip verify of have_nonsteppable_watchpoint, invalid_p == 0 */
3166   if (gdbarch_debug >= 2)
3167     fprintf_unfiltered (gdb_stdlog, "gdbarch_have_nonsteppable_watchpoint called\n");
3168   return gdbarch->have_nonsteppable_watchpoint;
3169 }
3170
3171 void
3172 set_gdbarch_have_nonsteppable_watchpoint (struct gdbarch *gdbarch,
3173                                           int have_nonsteppable_watchpoint)
3174 {
3175   gdbarch->have_nonsteppable_watchpoint = have_nonsteppable_watchpoint;
3176 }
3177
3178 int
3179 gdbarch_address_class_type_flags_p (struct gdbarch *gdbarch)
3180 {
3181   gdb_assert (gdbarch != NULL);
3182   return gdbarch->address_class_type_flags != NULL;
3183 }
3184
3185 int
3186 gdbarch_address_class_type_flags (struct gdbarch *gdbarch, int byte_size, int dwarf2_addr_class)
3187 {
3188   gdb_assert (gdbarch != NULL);
3189   gdb_assert (gdbarch->address_class_type_flags != NULL);
3190   if (gdbarch_debug >= 2)
3191     fprintf_unfiltered (gdb_stdlog, "gdbarch_address_class_type_flags called\n");
3192   return gdbarch->address_class_type_flags (byte_size, dwarf2_addr_class);
3193 }
3194
3195 void
3196 set_gdbarch_address_class_type_flags (struct gdbarch *gdbarch,
3197                                       gdbarch_address_class_type_flags_ftype address_class_type_flags)
3198 {
3199   gdbarch->address_class_type_flags = address_class_type_flags;
3200 }
3201
3202 int
3203 gdbarch_address_class_type_flags_to_name_p (struct gdbarch *gdbarch)
3204 {
3205   gdb_assert (gdbarch != NULL);
3206   return gdbarch->address_class_type_flags_to_name != NULL;
3207 }
3208
3209 const char *
3210 gdbarch_address_class_type_flags_to_name (struct gdbarch *gdbarch, int type_flags)
3211 {
3212   gdb_assert (gdbarch != NULL);
3213   gdb_assert (gdbarch->address_class_type_flags_to_name != NULL);
3214   if (gdbarch_debug >= 2)
3215     fprintf_unfiltered (gdb_stdlog, "gdbarch_address_class_type_flags_to_name called\n");
3216   return gdbarch->address_class_type_flags_to_name (gdbarch, type_flags);
3217 }
3218
3219 void
3220 set_gdbarch_address_class_type_flags_to_name (struct gdbarch *gdbarch,
3221                                               gdbarch_address_class_type_flags_to_name_ftype address_class_type_flags_to_name)
3222 {
3223   gdbarch->address_class_type_flags_to_name = address_class_type_flags_to_name;
3224 }
3225
3226 int
3227 gdbarch_address_class_name_to_type_flags_p (struct gdbarch *gdbarch)
3228 {
3229   gdb_assert (gdbarch != NULL);
3230   return gdbarch->address_class_name_to_type_flags != NULL;
3231 }
3232
3233 int
3234 gdbarch_address_class_name_to_type_flags (struct gdbarch *gdbarch, const char *name, int *type_flags_ptr)
3235 {
3236   gdb_assert (gdbarch != NULL);
3237   gdb_assert (gdbarch->address_class_name_to_type_flags != NULL);
3238   if (gdbarch_debug >= 2)
3239     fprintf_unfiltered (gdb_stdlog, "gdbarch_address_class_name_to_type_flags called\n");
3240   return gdbarch->address_class_name_to_type_flags (gdbarch, name, type_flags_ptr);
3241 }
3242
3243 void
3244 set_gdbarch_address_class_name_to_type_flags (struct gdbarch *gdbarch,
3245                                               gdbarch_address_class_name_to_type_flags_ftype address_class_name_to_type_flags)
3246 {
3247   gdbarch->address_class_name_to_type_flags = address_class_name_to_type_flags;
3248 }
3249
3250 int
3251 gdbarch_register_reggroup_p (struct gdbarch *gdbarch, int regnum, struct reggroup *reggroup)
3252 {
3253   gdb_assert (gdbarch != NULL);
3254   gdb_assert (gdbarch->register_reggroup_p != NULL);
3255   if (gdbarch_debug >= 2)
3256     fprintf_unfiltered (gdb_stdlog, "gdbarch_register_reggroup_p called\n");
3257   return gdbarch->register_reggroup_p (gdbarch, regnum, reggroup);
3258 }
3259
3260 void
3261 set_gdbarch_register_reggroup_p (struct gdbarch *gdbarch,
3262                                  gdbarch_register_reggroup_p_ftype register_reggroup_p)
3263 {
3264   gdbarch->register_reggroup_p = register_reggroup_p;
3265 }
3266
3267 int
3268 gdbarch_fetch_pointer_argument_p (struct gdbarch *gdbarch)
3269 {
3270   gdb_assert (gdbarch != NULL);
3271   return gdbarch->fetch_pointer_argument != NULL;
3272 }
3273
3274 CORE_ADDR
3275 gdbarch_fetch_pointer_argument (struct gdbarch *gdbarch, struct frame_info *frame, int argi, struct type *type)
3276 {
3277   gdb_assert (gdbarch != NULL);
3278   gdb_assert (gdbarch->fetch_pointer_argument != NULL);
3279   if (gdbarch_debug >= 2)
3280     fprintf_unfiltered (gdb_stdlog, "gdbarch_fetch_pointer_argument called\n");
3281   return gdbarch->fetch_pointer_argument (frame, argi, type);
3282 }
3283
3284 void
3285 set_gdbarch_fetch_pointer_argument (struct gdbarch *gdbarch,
3286                                     gdbarch_fetch_pointer_argument_ftype fetch_pointer_argument)
3287 {
3288   gdbarch->fetch_pointer_argument = fetch_pointer_argument;
3289 }
3290
3291 int
3292 gdbarch_regset_from_core_section_p (struct gdbarch *gdbarch)
3293 {
3294   gdb_assert (gdbarch != NULL);
3295   return gdbarch->regset_from_core_section != NULL;
3296 }
3297
3298 const struct regset *
3299 gdbarch_regset_from_core_section (struct gdbarch *gdbarch, const char *sect_name, size_t sect_size)
3300 {
3301   gdb_assert (gdbarch != NULL);
3302   gdb_assert (gdbarch->regset_from_core_section != NULL);
3303   if (gdbarch_debug >= 2)
3304     fprintf_unfiltered (gdb_stdlog, "gdbarch_regset_from_core_section called\n");
3305   return gdbarch->regset_from_core_section (gdbarch, sect_name, sect_size);
3306 }
3307
3308 void
3309 set_gdbarch_regset_from_core_section (struct gdbarch *gdbarch,
3310                                       gdbarch_regset_from_core_section_ftype regset_from_core_section)
3311 {
3312   gdbarch->regset_from_core_section = regset_from_core_section;
3313 }
3314
3315 struct core_regset_section *
3316 gdbarch_core_regset_sections (struct gdbarch *gdbarch)
3317 {
3318   gdb_assert (gdbarch != NULL);
3319   if (gdbarch_debug >= 2)
3320     fprintf_unfiltered (gdb_stdlog, "gdbarch_core_regset_sections called\n");
3321   return gdbarch->core_regset_sections;
3322 }
3323
3324 void
3325 set_gdbarch_core_regset_sections (struct gdbarch *gdbarch,
3326                                   struct core_regset_section * core_regset_sections)
3327 {
3328   gdbarch->core_regset_sections = core_regset_sections;
3329 }
3330
3331 int
3332 gdbarch_make_corefile_notes_p (struct gdbarch *gdbarch)
3333 {
3334   gdb_assert (gdbarch != NULL);
3335   return gdbarch->make_corefile_notes != NULL;
3336 }
3337
3338 char *
3339 gdbarch_make_corefile_notes (struct gdbarch *gdbarch, bfd *obfd, int *note_size)
3340 {
3341   gdb_assert (gdbarch != NULL);
3342   gdb_assert (gdbarch->make_corefile_notes != NULL);
3343   if (gdbarch_debug >= 2)
3344     fprintf_unfiltered (gdb_stdlog, "gdbarch_make_corefile_notes called\n");
3345   return gdbarch->make_corefile_notes (gdbarch, obfd, note_size);
3346 }
3347
3348 void
3349 set_gdbarch_make_corefile_notes (struct gdbarch *gdbarch,
3350                                  gdbarch_make_corefile_notes_ftype make_corefile_notes)
3351 {
3352   gdbarch->make_corefile_notes = make_corefile_notes;
3353 }
3354
3355 int
3356 gdbarch_find_memory_regions_p (struct gdbarch *gdbarch)
3357 {
3358   gdb_assert (gdbarch != NULL);
3359   return gdbarch->find_memory_regions != NULL;
3360 }
3361
3362 int
3363 gdbarch_find_memory_regions (struct gdbarch *gdbarch, find_memory_region_ftype func, void *data)
3364 {
3365   gdb_assert (gdbarch != NULL);
3366   gdb_assert (gdbarch->find_memory_regions != NULL);
3367   if (gdbarch_debug >= 2)
3368     fprintf_unfiltered (gdb_stdlog, "gdbarch_find_memory_regions called\n");
3369   return gdbarch->find_memory_regions (gdbarch, func, data);
3370 }
3371
3372 void
3373 set_gdbarch_find_memory_regions (struct gdbarch *gdbarch,
3374                                  gdbarch_find_memory_regions_ftype find_memory_regions)
3375 {
3376   gdbarch->find_memory_regions = find_memory_regions;
3377 }
3378
3379 int
3380 gdbarch_core_xfer_shared_libraries_p (struct gdbarch *gdbarch)
3381 {
3382   gdb_assert (gdbarch != NULL);
3383   return gdbarch->core_xfer_shared_libraries != NULL;
3384 }
3385
3386 LONGEST
3387 gdbarch_core_xfer_shared_libraries (struct gdbarch *gdbarch, gdb_byte *readbuf, ULONGEST offset, LONGEST len)
3388 {
3389   gdb_assert (gdbarch != NULL);
3390   gdb_assert (gdbarch->core_xfer_shared_libraries != NULL);
3391   if (gdbarch_debug >= 2)
3392     fprintf_unfiltered (gdb_stdlog, "gdbarch_core_xfer_shared_libraries called\n");
3393   return gdbarch->core_xfer_shared_libraries (gdbarch, readbuf, offset, len);
3394 }
3395
3396 void
3397 set_gdbarch_core_xfer_shared_libraries (struct gdbarch *gdbarch,
3398                                         gdbarch_core_xfer_shared_libraries_ftype core_xfer_shared_libraries)
3399 {
3400   gdbarch->core_xfer_shared_libraries = core_xfer_shared_libraries;
3401 }
3402
3403 int
3404 gdbarch_core_pid_to_str_p (struct gdbarch *gdbarch)
3405 {
3406   gdb_assert (gdbarch != NULL);
3407   return gdbarch->core_pid_to_str != NULL;
3408 }
3409
3410 char *
3411 gdbarch_core_pid_to_str (struct gdbarch *gdbarch, ptid_t ptid)
3412 {
3413   gdb_assert (gdbarch != NULL);
3414   gdb_assert (gdbarch->core_pid_to_str != NULL);
3415   if (gdbarch_debug >= 2)
3416     fprintf_unfiltered (gdb_stdlog, "gdbarch_core_pid_to_str called\n");
3417   return gdbarch->core_pid_to_str (gdbarch, ptid);
3418 }
3419
3420 void
3421 set_gdbarch_core_pid_to_str (struct gdbarch *gdbarch,
3422                              gdbarch_core_pid_to_str_ftype core_pid_to_str)
3423 {
3424   gdbarch->core_pid_to_str = core_pid_to_str;
3425 }
3426
3427 int
3428 gdbarch_gcore_bfd_target_p (struct gdbarch *gdbarch)
3429 {
3430   gdb_assert (gdbarch != NULL);
3431   return gdbarch->gcore_bfd_target != 0;
3432 }
3433
3434 const char *
3435 gdbarch_gcore_bfd_target (struct gdbarch *gdbarch)
3436 {
3437   gdb_assert (gdbarch != NULL);
3438   /* Check variable changed from pre-default.  */
3439   gdb_assert (gdbarch->gcore_bfd_target != 0);
3440   if (gdbarch_debug >= 2)
3441     fprintf_unfiltered (gdb_stdlog, "gdbarch_gcore_bfd_target called\n");
3442   return gdbarch->gcore_bfd_target;
3443 }
3444
3445 void
3446 set_gdbarch_gcore_bfd_target (struct gdbarch *gdbarch,
3447                               const char * gcore_bfd_target)
3448 {
3449   gdbarch->gcore_bfd_target = gcore_bfd_target;
3450 }
3451
3452 int
3453 gdbarch_vtable_function_descriptors (struct gdbarch *gdbarch)
3454 {
3455   gdb_assert (gdbarch != NULL);
3456   /* Skip verify of vtable_function_descriptors, invalid_p == 0 */
3457   if (gdbarch_debug >= 2)
3458     fprintf_unfiltered (gdb_stdlog, "gdbarch_vtable_function_descriptors called\n");
3459   return gdbarch->vtable_function_descriptors;
3460 }
3461
3462 void
3463 set_gdbarch_vtable_function_descriptors (struct gdbarch *gdbarch,
3464                                          int vtable_function_descriptors)
3465 {
3466   gdbarch->vtable_function_descriptors = vtable_function_descriptors;
3467 }
3468
3469 int
3470 gdbarch_vbit_in_delta (struct gdbarch *gdbarch)
3471 {
3472   gdb_assert (gdbarch != NULL);
3473   /* Skip verify of vbit_in_delta, invalid_p == 0 */
3474   if (gdbarch_debug >= 2)
3475     fprintf_unfiltered (gdb_stdlog, "gdbarch_vbit_in_delta called\n");
3476   return gdbarch->vbit_in_delta;
3477 }
3478
3479 void
3480 set_gdbarch_vbit_in_delta (struct gdbarch *gdbarch,
3481                            int vbit_in_delta)
3482 {
3483   gdbarch->vbit_in_delta = vbit_in_delta;
3484 }
3485
3486 int
3487 gdbarch_skip_permanent_breakpoint_p (struct gdbarch *gdbarch)
3488 {
3489   gdb_assert (gdbarch != NULL);
3490   return gdbarch->skip_permanent_breakpoint != NULL;
3491 }
3492
3493 void
3494 gdbarch_skip_permanent_breakpoint (struct gdbarch *gdbarch, struct regcache *regcache)
3495 {
3496   gdb_assert (gdbarch != NULL);
3497   gdb_assert (gdbarch->skip_permanent_breakpoint != NULL);
3498   if (gdbarch_debug >= 2)
3499     fprintf_unfiltered (gdb_stdlog, "gdbarch_skip_permanent_breakpoint called\n");
3500   gdbarch->skip_permanent_breakpoint (regcache);
3501 }
3502
3503 void
3504 set_gdbarch_skip_permanent_breakpoint (struct gdbarch *gdbarch,
3505                                        gdbarch_skip_permanent_breakpoint_ftype skip_permanent_breakpoint)
3506 {
3507   gdbarch->skip_permanent_breakpoint = skip_permanent_breakpoint;
3508 }
3509
3510 int
3511 gdbarch_max_insn_length_p (struct gdbarch *gdbarch)
3512 {
3513   gdb_assert (gdbarch != NULL);
3514   return gdbarch->max_insn_length != 0;
3515 }
3516
3517 ULONGEST
3518 gdbarch_max_insn_length (struct gdbarch *gdbarch)
3519 {
3520   gdb_assert (gdbarch != NULL);
3521   /* Check variable changed from pre-default.  */
3522   gdb_assert (gdbarch->max_insn_length != 0);
3523   if (gdbarch_debug >= 2)
3524     fprintf_unfiltered (gdb_stdlog, "gdbarch_max_insn_length called\n");
3525   return gdbarch->max_insn_length;
3526 }
3527
3528 void
3529 set_gdbarch_max_insn_length (struct gdbarch *gdbarch,
3530                              ULONGEST max_insn_length)
3531 {
3532   gdbarch->max_insn_length = max_insn_length;
3533 }
3534
3535 int
3536 gdbarch_displaced_step_copy_insn_p (struct gdbarch *gdbarch)
3537 {
3538   gdb_assert (gdbarch != NULL);
3539   return gdbarch->displaced_step_copy_insn != NULL;
3540 }
3541
3542 struct displaced_step_closure *
3543 gdbarch_displaced_step_copy_insn (struct gdbarch *gdbarch, CORE_ADDR from, CORE_ADDR to, struct regcache *regs)
3544 {
3545   gdb_assert (gdbarch != NULL);
3546   gdb_assert (gdbarch->displaced_step_copy_insn != NULL);
3547   if (gdbarch_debug >= 2)
3548     fprintf_unfiltered (gdb_stdlog, "gdbarch_displaced_step_copy_insn called\n");
3549   return gdbarch->displaced_step_copy_insn (gdbarch, from, to, regs);
3550 }
3551
3552 void
3553 set_gdbarch_displaced_step_copy_insn (struct gdbarch *gdbarch,
3554                                       gdbarch_displaced_step_copy_insn_ftype displaced_step_copy_insn)
3555 {
3556   gdbarch->displaced_step_copy_insn = displaced_step_copy_insn;
3557 }
3558
3559 int
3560 gdbarch_displaced_step_hw_singlestep (struct gdbarch *gdbarch, struct displaced_step_closure *closure)
3561 {
3562   gdb_assert (gdbarch != NULL);
3563   gdb_assert (gdbarch->displaced_step_hw_singlestep != NULL);
3564   if (gdbarch_debug >= 2)
3565     fprintf_unfiltered (gdb_stdlog, "gdbarch_displaced_step_hw_singlestep called\n");
3566   return gdbarch->displaced_step_hw_singlestep (gdbarch, closure);
3567 }
3568
3569 void
3570 set_gdbarch_displaced_step_hw_singlestep (struct gdbarch *gdbarch,
3571                                           gdbarch_displaced_step_hw_singlestep_ftype displaced_step_hw_singlestep)
3572 {
3573   gdbarch->displaced_step_hw_singlestep = displaced_step_hw_singlestep;
3574 }
3575
3576 int
3577 gdbarch_displaced_step_fixup_p (struct gdbarch *gdbarch)
3578 {
3579   gdb_assert (gdbarch != NULL);
3580   return gdbarch->displaced_step_fixup != NULL;
3581 }
3582
3583 void
3584 gdbarch_displaced_step_fixup (struct gdbarch *gdbarch, struct displaced_step_closure *closure, CORE_ADDR from, CORE_ADDR to, struct regcache *regs)
3585 {
3586   gdb_assert (gdbarch != NULL);
3587   gdb_assert (gdbarch->displaced_step_fixup != NULL);
3588   /* Do not check predicate: gdbarch->displaced_step_fixup != NULL, allow call.  */
3589   if (gdbarch_debug >= 2)
3590     fprintf_unfiltered (gdb_stdlog, "gdbarch_displaced_step_fixup called\n");
3591   gdbarch->displaced_step_fixup (gdbarch, closure, from, to, regs);
3592 }
3593
3594 void
3595 set_gdbarch_displaced_step_fixup (struct gdbarch *gdbarch,
3596                                   gdbarch_displaced_step_fixup_ftype displaced_step_fixup)
3597 {
3598   gdbarch->displaced_step_fixup = displaced_step_fixup;
3599 }
3600
3601 void
3602 gdbarch_displaced_step_free_closure (struct gdbarch *gdbarch, struct displaced_step_closure *closure)
3603 {
3604   gdb_assert (gdbarch != NULL);
3605   gdb_assert (gdbarch->displaced_step_free_closure != NULL);
3606   if (gdbarch_debug >= 2)
3607     fprintf_unfiltered (gdb_stdlog, "gdbarch_displaced_step_free_closure called\n");
3608   gdbarch->displaced_step_free_closure (gdbarch, closure);
3609 }
3610
3611 void
3612 set_gdbarch_displaced_step_free_closure (struct gdbarch *gdbarch,
3613                                          gdbarch_displaced_step_free_closure_ftype displaced_step_free_closure)
3614 {
3615   gdbarch->displaced_step_free_closure = displaced_step_free_closure;
3616 }
3617
3618 CORE_ADDR
3619 gdbarch_displaced_step_location (struct gdbarch *gdbarch)
3620 {
3621   gdb_assert (gdbarch != NULL);
3622   gdb_assert (gdbarch->displaced_step_location != NULL);
3623   if (gdbarch_debug >= 2)
3624     fprintf_unfiltered (gdb_stdlog, "gdbarch_displaced_step_location called\n");
3625   return gdbarch->displaced_step_location (gdbarch);
3626 }
3627
3628 void
3629 set_gdbarch_displaced_step_location (struct gdbarch *gdbarch,
3630                                      gdbarch_displaced_step_location_ftype displaced_step_location)
3631 {
3632   gdbarch->displaced_step_location = displaced_step_location;
3633 }
3634
3635 int
3636 gdbarch_relocate_instruction_p (struct gdbarch *gdbarch)
3637 {
3638   gdb_assert (gdbarch != NULL);
3639   return gdbarch->relocate_instruction != NULL;
3640 }
3641
3642 void
3643 gdbarch_relocate_instruction (struct gdbarch *gdbarch, CORE_ADDR *to, CORE_ADDR from)
3644 {
3645   gdb_assert (gdbarch != NULL);
3646   gdb_assert (gdbarch->relocate_instruction != NULL);
3647   /* Do not check predicate: gdbarch->relocate_instruction != NULL, allow call.  */
3648   if (gdbarch_debug >= 2)
3649     fprintf_unfiltered (gdb_stdlog, "gdbarch_relocate_instruction called\n");
3650   gdbarch->relocate_instruction (gdbarch, to, from);
3651 }
3652
3653 void
3654 set_gdbarch_relocate_instruction (struct gdbarch *gdbarch,
3655                                   gdbarch_relocate_instruction_ftype relocate_instruction)
3656 {
3657   gdbarch->relocate_instruction = relocate_instruction;
3658 }
3659
3660 int
3661 gdbarch_overlay_update_p (struct gdbarch *gdbarch)
3662 {
3663   gdb_assert (gdbarch != NULL);
3664   return gdbarch->overlay_update != NULL;
3665 }
3666
3667 void
3668 gdbarch_overlay_update (struct gdbarch *gdbarch, struct obj_section *osect)
3669 {
3670   gdb_assert (gdbarch != NULL);
3671   gdb_assert (gdbarch->overlay_update != NULL);
3672   if (gdbarch_debug >= 2)
3673     fprintf_unfiltered (gdb_stdlog, "gdbarch_overlay_update called\n");
3674   gdbarch->overlay_update (osect);
3675 }
3676
3677 void
3678 set_gdbarch_overlay_update (struct gdbarch *gdbarch,
3679                             gdbarch_overlay_update_ftype overlay_update)
3680 {
3681   gdbarch->overlay_update = overlay_update;
3682 }
3683
3684 int
3685 gdbarch_core_read_description_p (struct gdbarch *gdbarch)
3686 {
3687   gdb_assert (gdbarch != NULL);
3688   return gdbarch->core_read_description != NULL;
3689 }
3690
3691 const struct target_desc *
3692 gdbarch_core_read_description (struct gdbarch *gdbarch, struct target_ops *target, bfd *abfd)
3693 {
3694   gdb_assert (gdbarch != NULL);
3695   gdb_assert (gdbarch->core_read_description != NULL);
3696   if (gdbarch_debug >= 2)
3697     fprintf_unfiltered (gdb_stdlog, "gdbarch_core_read_description called\n");
3698   return gdbarch->core_read_description (gdbarch, target, abfd);
3699 }
3700
3701 void
3702 set_gdbarch_core_read_description (struct gdbarch *gdbarch,
3703                                    gdbarch_core_read_description_ftype core_read_description)
3704 {
3705   gdbarch->core_read_description = core_read_description;
3706 }
3707
3708 int
3709 gdbarch_static_transform_name_p (struct gdbarch *gdbarch)
3710 {
3711   gdb_assert (gdbarch != NULL);
3712   return gdbarch->static_transform_name != NULL;
3713 }
3714
3715 const char *
3716 gdbarch_static_transform_name (struct gdbarch *gdbarch, const char *name)
3717 {
3718   gdb_assert (gdbarch != NULL);
3719   gdb_assert (gdbarch->static_transform_name != NULL);
3720   if (gdbarch_debug >= 2)
3721     fprintf_unfiltered (gdb_stdlog, "gdbarch_static_transform_name called\n");
3722   return gdbarch->static_transform_name (name);
3723 }
3724
3725 void
3726 set_gdbarch_static_transform_name (struct gdbarch *gdbarch,
3727                                    gdbarch_static_transform_name_ftype static_transform_name)
3728 {
3729   gdbarch->static_transform_name = static_transform_name;
3730 }
3731
3732 int
3733 gdbarch_sofun_address_maybe_missing (struct gdbarch *gdbarch)
3734 {
3735   gdb_assert (gdbarch != NULL);
3736   /* Skip verify of sofun_address_maybe_missing, invalid_p == 0 */
3737   if (gdbarch_debug >= 2)
3738     fprintf_unfiltered (gdb_stdlog, "gdbarch_sofun_address_maybe_missing called\n");
3739   return gdbarch->sofun_address_maybe_missing;
3740 }
3741
3742 void
3743 set_gdbarch_sofun_address_maybe_missing (struct gdbarch *gdbarch,
3744                                          int sofun_address_maybe_missing)
3745 {
3746   gdbarch->sofun_address_maybe_missing = sofun_address_maybe_missing;
3747 }
3748
3749 int
3750 gdbarch_process_record_p (struct gdbarch *gdbarch)
3751 {
3752   gdb_assert (gdbarch != NULL);
3753   return gdbarch->process_record != NULL;
3754 }
3755
3756 int
3757 gdbarch_process_record (struct gdbarch *gdbarch, struct regcache *regcache, CORE_ADDR addr)
3758 {
3759   gdb_assert (gdbarch != NULL);
3760   gdb_assert (gdbarch->process_record != NULL);
3761   if (gdbarch_debug >= 2)
3762     fprintf_unfiltered (gdb_stdlog, "gdbarch_process_record called\n");
3763   return gdbarch->process_record (gdbarch, regcache, addr);
3764 }
3765
3766 void
3767 set_gdbarch_process_record (struct gdbarch *gdbarch,
3768                             gdbarch_process_record_ftype process_record)
3769 {
3770   gdbarch->process_record = process_record;
3771 }
3772
3773 int
3774 gdbarch_process_record_signal_p (struct gdbarch *gdbarch)
3775 {
3776   gdb_assert (gdbarch != NULL);
3777   return gdbarch->process_record_signal != NULL;
3778 }
3779
3780 int
3781 gdbarch_process_record_signal (struct gdbarch *gdbarch, struct regcache *regcache, enum target_signal signal)
3782 {
3783   gdb_assert (gdbarch != NULL);
3784   gdb_assert (gdbarch->process_record_signal != NULL);
3785   if (gdbarch_debug >= 2)
3786     fprintf_unfiltered (gdb_stdlog, "gdbarch_process_record_signal called\n");
3787   return gdbarch->process_record_signal (gdbarch, regcache, signal);
3788 }
3789
3790 void
3791 set_gdbarch_process_record_signal (struct gdbarch *gdbarch,
3792                                    gdbarch_process_record_signal_ftype process_record_signal)
3793 {
3794   gdbarch->process_record_signal = process_record_signal;
3795 }
3796
3797 enum target_signal
3798 gdbarch_target_signal_from_host (struct gdbarch *gdbarch, int signo)
3799 {
3800   gdb_assert (gdbarch != NULL);
3801   gdb_assert (gdbarch->target_signal_from_host != NULL);
3802   if (gdbarch_debug >= 2)
3803     fprintf_unfiltered (gdb_stdlog, "gdbarch_target_signal_from_host called\n");
3804   return gdbarch->target_signal_from_host (gdbarch, signo);
3805 }
3806
3807 void
3808 set_gdbarch_target_signal_from_host (struct gdbarch *gdbarch,
3809                                      gdbarch_target_signal_from_host_ftype target_signal_from_host)
3810 {
3811   gdbarch->target_signal_from_host = target_signal_from_host;
3812 }
3813
3814 int
3815 gdbarch_target_signal_to_host (struct gdbarch *gdbarch, enum target_signal ts)
3816 {
3817   gdb_assert (gdbarch != NULL);
3818   gdb_assert (gdbarch->target_signal_to_host != NULL);
3819   if (gdbarch_debug >= 2)
3820     fprintf_unfiltered (gdb_stdlog, "gdbarch_target_signal_to_host called\n");
3821   return gdbarch->target_signal_to_host (gdbarch, ts);
3822 }
3823
3824 void
3825 set_gdbarch_target_signal_to_host (struct gdbarch *gdbarch,
3826                                    gdbarch_target_signal_to_host_ftype target_signal_to_host)
3827 {
3828   gdbarch->target_signal_to_host = target_signal_to_host;
3829 }
3830
3831 int
3832 gdbarch_get_siginfo_type_p (struct gdbarch *gdbarch)
3833 {
3834   gdb_assert (gdbarch != NULL);
3835   return gdbarch->get_siginfo_type != NULL;
3836 }
3837
3838 struct type *
3839 gdbarch_get_siginfo_type (struct gdbarch *gdbarch)
3840 {
3841   gdb_assert (gdbarch != NULL);
3842   gdb_assert (gdbarch->get_siginfo_type != NULL);
3843   if (gdbarch_debug >= 2)
3844     fprintf_unfiltered (gdb_stdlog, "gdbarch_get_siginfo_type called\n");
3845   return gdbarch->get_siginfo_type (gdbarch);
3846 }
3847
3848 void
3849 set_gdbarch_get_siginfo_type (struct gdbarch *gdbarch,
3850                               gdbarch_get_siginfo_type_ftype get_siginfo_type)
3851 {
3852   gdbarch->get_siginfo_type = get_siginfo_type;
3853 }
3854
3855 int
3856 gdbarch_record_special_symbol_p (struct gdbarch *gdbarch)
3857 {
3858   gdb_assert (gdbarch != NULL);
3859   return gdbarch->record_special_symbol != NULL;
3860 }
3861
3862 void
3863 gdbarch_record_special_symbol (struct gdbarch *gdbarch, struct objfile *objfile, asymbol *sym)
3864 {
3865   gdb_assert (gdbarch != NULL);
3866   gdb_assert (gdbarch->record_special_symbol != NULL);
3867   if (gdbarch_debug >= 2)
3868     fprintf_unfiltered (gdb_stdlog, "gdbarch_record_special_symbol called\n");
3869   gdbarch->record_special_symbol (gdbarch, objfile, sym);
3870 }
3871
3872 void
3873 set_gdbarch_record_special_symbol (struct gdbarch *gdbarch,
3874                                    gdbarch_record_special_symbol_ftype record_special_symbol)
3875 {
3876   gdbarch->record_special_symbol = record_special_symbol;
3877 }
3878
3879 int
3880 gdbarch_get_syscall_number_p (struct gdbarch *gdbarch)
3881 {
3882   gdb_assert (gdbarch != NULL);
3883   return gdbarch->get_syscall_number != NULL;
3884 }
3885
3886 LONGEST
3887 gdbarch_get_syscall_number (struct gdbarch *gdbarch, ptid_t ptid)
3888 {
3889   gdb_assert (gdbarch != NULL);
3890   gdb_assert (gdbarch->get_syscall_number != NULL);
3891   if (gdbarch_debug >= 2)
3892     fprintf_unfiltered (gdb_stdlog, "gdbarch_get_syscall_number called\n");
3893   return gdbarch->get_syscall_number (gdbarch, ptid);
3894 }
3895
3896 void
3897 set_gdbarch_get_syscall_number (struct gdbarch *gdbarch,
3898                                 gdbarch_get_syscall_number_ftype get_syscall_number)
3899 {
3900   gdbarch->get_syscall_number = get_syscall_number;
3901 }
3902
3903 const char *
3904 gdbarch_stap_integer_prefix (struct gdbarch *gdbarch)
3905 {
3906   gdb_assert (gdbarch != NULL);
3907   /* Skip verify of stap_integer_prefix, invalid_p == 0 */
3908   if (gdbarch_debug >= 2)
3909     fprintf_unfiltered (gdb_stdlog, "gdbarch_stap_integer_prefix called\n");
3910   return gdbarch->stap_integer_prefix;
3911 }
3912
3913 void
3914 set_gdbarch_stap_integer_prefix (struct gdbarch *gdbarch,
3915                                  const char * stap_integer_prefix)
3916 {
3917   gdbarch->stap_integer_prefix = stap_integer_prefix;
3918 }
3919
3920 const char *
3921 gdbarch_stap_integer_suffix (struct gdbarch *gdbarch)
3922 {
3923   gdb_assert (gdbarch != NULL);
3924   /* Skip verify of stap_integer_suffix, invalid_p == 0 */
3925   if (gdbarch_debug >= 2)
3926     fprintf_unfiltered (gdb_stdlog, "gdbarch_stap_integer_suffix called\n");
3927   return gdbarch->stap_integer_suffix;
3928 }
3929
3930 void
3931 set_gdbarch_stap_integer_suffix (struct gdbarch *gdbarch,
3932                                  const char * stap_integer_suffix)
3933 {
3934   gdbarch->stap_integer_suffix = stap_integer_suffix;
3935 }
3936
3937 const char *
3938 gdbarch_stap_register_prefix (struct gdbarch *gdbarch)
3939 {
3940   gdb_assert (gdbarch != NULL);
3941   /* Skip verify of stap_register_prefix, invalid_p == 0 */
3942   if (gdbarch_debug >= 2)
3943     fprintf_unfiltered (gdb_stdlog, "gdbarch_stap_register_prefix called\n");
3944   return gdbarch->stap_register_prefix;
3945 }
3946
3947 void
3948 set_gdbarch_stap_register_prefix (struct gdbarch *gdbarch,
3949                                   const char * stap_register_prefix)
3950 {
3951   gdbarch->stap_register_prefix = stap_register_prefix;
3952 }
3953
3954 const char *
3955 gdbarch_stap_register_suffix (struct gdbarch *gdbarch)
3956 {
3957   gdb_assert (gdbarch != NULL);
3958   /* Skip verify of stap_register_suffix, invalid_p == 0 */
3959   if (gdbarch_debug >= 2)
3960     fprintf_unfiltered (gdb_stdlog, "gdbarch_stap_register_suffix called\n");
3961   return gdbarch->stap_register_suffix;
3962 }
3963
3964 void
3965 set_gdbarch_stap_register_suffix (struct gdbarch *gdbarch,
3966                                   const char * stap_register_suffix)
3967 {
3968   gdbarch->stap_register_suffix = stap_register_suffix;
3969 }
3970
3971 const char *
3972 gdbarch_stap_register_indirection_prefix (struct gdbarch *gdbarch)
3973 {
3974   gdb_assert (gdbarch != NULL);
3975   /* Skip verify of stap_register_indirection_prefix, invalid_p == 0 */
3976   if (gdbarch_debug >= 2)
3977     fprintf_unfiltered (gdb_stdlog, "gdbarch_stap_register_indirection_prefix called\n");
3978   return gdbarch->stap_register_indirection_prefix;
3979 }
3980
3981 void
3982 set_gdbarch_stap_register_indirection_prefix (struct gdbarch *gdbarch,
3983                                               const char * stap_register_indirection_prefix)
3984 {
3985   gdbarch->stap_register_indirection_prefix = stap_register_indirection_prefix;
3986 }
3987
3988 const char *
3989 gdbarch_stap_register_indirection_suffix (struct gdbarch *gdbarch)
3990 {
3991   gdb_assert (gdbarch != NULL);
3992   /* Skip verify of stap_register_indirection_suffix, invalid_p == 0 */
3993   if (gdbarch_debug >= 2)
3994     fprintf_unfiltered (gdb_stdlog, "gdbarch_stap_register_indirection_suffix called\n");
3995   return gdbarch->stap_register_indirection_suffix;
3996 }
3997
3998 void
3999 set_gdbarch_stap_register_indirection_suffix (struct gdbarch *gdbarch,
4000                                               const char * stap_register_indirection_suffix)
4001 {
4002   gdbarch->stap_register_indirection_suffix = stap_register_indirection_suffix;
4003 }
4004
4005 const char *
4006 gdbarch_stap_gdb_register_prefix (struct gdbarch *gdbarch)
4007 {
4008   gdb_assert (gdbarch != NULL);
4009   /* Skip verify of stap_gdb_register_prefix, invalid_p == 0 */
4010   if (gdbarch_debug >= 2)
4011     fprintf_unfiltered (gdb_stdlog, "gdbarch_stap_gdb_register_prefix called\n");
4012   return gdbarch->stap_gdb_register_prefix;
4013 }
4014
4015 void
4016 set_gdbarch_stap_gdb_register_prefix (struct gdbarch *gdbarch,
4017                                       const char * stap_gdb_register_prefix)
4018 {
4019   gdbarch->stap_gdb_register_prefix = stap_gdb_register_prefix;
4020 }
4021
4022 const char *
4023 gdbarch_stap_gdb_register_suffix (struct gdbarch *gdbarch)
4024 {
4025   gdb_assert (gdbarch != NULL);
4026   /* Skip verify of stap_gdb_register_suffix, invalid_p == 0 */
4027   if (gdbarch_debug >= 2)
4028     fprintf_unfiltered (gdb_stdlog, "gdbarch_stap_gdb_register_suffix called\n");
4029   return gdbarch->stap_gdb_register_suffix;
4030 }
4031
4032 void
4033 set_gdbarch_stap_gdb_register_suffix (struct gdbarch *gdbarch,
4034                                       const char * stap_gdb_register_suffix)
4035 {
4036   gdbarch->stap_gdb_register_suffix = stap_gdb_register_suffix;
4037 }
4038
4039 int
4040 gdbarch_stap_is_single_operand_p (struct gdbarch *gdbarch)
4041 {
4042   gdb_assert (gdbarch != NULL);
4043   return gdbarch->stap_is_single_operand != NULL;
4044 }
4045
4046 int
4047 gdbarch_stap_is_single_operand (struct gdbarch *gdbarch, const char *s)
4048 {
4049   gdb_assert (gdbarch != NULL);
4050   gdb_assert (gdbarch->stap_is_single_operand != NULL);
4051   if (gdbarch_debug >= 2)
4052     fprintf_unfiltered (gdb_stdlog, "gdbarch_stap_is_single_operand called\n");
4053   return gdbarch->stap_is_single_operand (gdbarch, s);
4054 }
4055
4056 void
4057 set_gdbarch_stap_is_single_operand (struct gdbarch *gdbarch,
4058                                     gdbarch_stap_is_single_operand_ftype stap_is_single_operand)
4059 {
4060   gdbarch->stap_is_single_operand = stap_is_single_operand;
4061 }
4062
4063 int
4064 gdbarch_stap_parse_special_token_p (struct gdbarch *gdbarch)
4065 {
4066   gdb_assert (gdbarch != NULL);
4067   return gdbarch->stap_parse_special_token != NULL;
4068 }
4069
4070 int
4071 gdbarch_stap_parse_special_token (struct gdbarch *gdbarch, struct stap_parse_info *p)
4072 {
4073   gdb_assert (gdbarch != NULL);
4074   gdb_assert (gdbarch->stap_parse_special_token != NULL);
4075   if (gdbarch_debug >= 2)
4076     fprintf_unfiltered (gdb_stdlog, "gdbarch_stap_parse_special_token called\n");
4077   return gdbarch->stap_parse_special_token (gdbarch, p);
4078 }
4079
4080 void
4081 set_gdbarch_stap_parse_special_token (struct gdbarch *gdbarch,
4082                                       gdbarch_stap_parse_special_token_ftype stap_parse_special_token)
4083 {
4084   gdbarch->stap_parse_special_token = stap_parse_special_token;
4085 }
4086
4087 int
4088 gdbarch_has_global_solist (struct gdbarch *gdbarch)
4089 {
4090   gdb_assert (gdbarch != NULL);
4091   /* Skip verify of has_global_solist, invalid_p == 0 */
4092   if (gdbarch_debug >= 2)
4093     fprintf_unfiltered (gdb_stdlog, "gdbarch_has_global_solist called\n");
4094   return gdbarch->has_global_solist;
4095 }
4096
4097 void
4098 set_gdbarch_has_global_solist (struct gdbarch *gdbarch,
4099                                int has_global_solist)
4100 {
4101   gdbarch->has_global_solist = has_global_solist;
4102 }
4103
4104 int
4105 gdbarch_has_global_breakpoints (struct gdbarch *gdbarch)
4106 {
4107   gdb_assert (gdbarch != NULL);
4108   /* Skip verify of has_global_breakpoints, invalid_p == 0 */
4109   if (gdbarch_debug >= 2)
4110     fprintf_unfiltered (gdb_stdlog, "gdbarch_has_global_breakpoints called\n");
4111   return gdbarch->has_global_breakpoints;
4112 }
4113
4114 void
4115 set_gdbarch_has_global_breakpoints (struct gdbarch *gdbarch,
4116                                     int has_global_breakpoints)
4117 {
4118   gdbarch->has_global_breakpoints = has_global_breakpoints;
4119 }
4120
4121 int
4122 gdbarch_has_shared_address_space (struct gdbarch *gdbarch)
4123 {
4124   gdb_assert (gdbarch != NULL);
4125   gdb_assert (gdbarch->has_shared_address_space != NULL);
4126   if (gdbarch_debug >= 2)
4127     fprintf_unfiltered (gdb_stdlog, "gdbarch_has_shared_address_space called\n");
4128   return gdbarch->has_shared_address_space (gdbarch);
4129 }
4130
4131 void
4132 set_gdbarch_has_shared_address_space (struct gdbarch *gdbarch,
4133                                       gdbarch_has_shared_address_space_ftype has_shared_address_space)
4134 {
4135   gdbarch->has_shared_address_space = has_shared_address_space;
4136 }
4137
4138 int
4139 gdbarch_fast_tracepoint_valid_at (struct gdbarch *gdbarch, CORE_ADDR addr, int *isize, char **msg)
4140 {
4141   gdb_assert (gdbarch != NULL);
4142   gdb_assert (gdbarch->fast_tracepoint_valid_at != NULL);
4143   if (gdbarch_debug >= 2)
4144     fprintf_unfiltered (gdb_stdlog, "gdbarch_fast_tracepoint_valid_at called\n");
4145   return gdbarch->fast_tracepoint_valid_at (gdbarch, addr, isize, msg);
4146 }
4147
4148 void
4149 set_gdbarch_fast_tracepoint_valid_at (struct gdbarch *gdbarch,
4150                                       gdbarch_fast_tracepoint_valid_at_ftype fast_tracepoint_valid_at)
4151 {
4152   gdbarch->fast_tracepoint_valid_at = fast_tracepoint_valid_at;
4153 }
4154
4155 const char *
4156 gdbarch_auto_charset (struct gdbarch *gdbarch)
4157 {
4158   gdb_assert (gdbarch != NULL);
4159   gdb_assert (gdbarch->auto_charset != NULL);
4160   if (gdbarch_debug >= 2)
4161     fprintf_unfiltered (gdb_stdlog, "gdbarch_auto_charset called\n");
4162   return gdbarch->auto_charset ();
4163 }
4164
4165 void
4166 set_gdbarch_auto_charset (struct gdbarch *gdbarch,
4167                           gdbarch_auto_charset_ftype auto_charset)
4168 {
4169   gdbarch->auto_charset = auto_charset;
4170 }
4171
4172 const char *
4173 gdbarch_auto_wide_charset (struct gdbarch *gdbarch)
4174 {
4175   gdb_assert (gdbarch != NULL);
4176   gdb_assert (gdbarch->auto_wide_charset != NULL);
4177   if (gdbarch_debug >= 2)
4178     fprintf_unfiltered (gdb_stdlog, "gdbarch_auto_wide_charset called\n");
4179   return gdbarch->auto_wide_charset ();
4180 }
4181
4182 void
4183 set_gdbarch_auto_wide_charset (struct gdbarch *gdbarch,
4184                                gdbarch_auto_wide_charset_ftype auto_wide_charset)
4185 {
4186   gdbarch->auto_wide_charset = auto_wide_charset;
4187 }
4188
4189 const char *
4190 gdbarch_solib_symbols_extension (struct gdbarch *gdbarch)
4191 {
4192   gdb_assert (gdbarch != NULL);
4193   if (gdbarch_debug >= 2)
4194     fprintf_unfiltered (gdb_stdlog, "gdbarch_solib_symbols_extension called\n");
4195   return gdbarch->solib_symbols_extension;
4196 }
4197
4198 void
4199 set_gdbarch_solib_symbols_extension (struct gdbarch *gdbarch,
4200                                      const char * solib_symbols_extension)
4201 {
4202   gdbarch->solib_symbols_extension = solib_symbols_extension;
4203 }
4204
4205 int
4206 gdbarch_has_dos_based_file_system (struct gdbarch *gdbarch)
4207 {
4208   gdb_assert (gdbarch != NULL);
4209   /* Skip verify of has_dos_based_file_system, invalid_p == 0 */
4210   if (gdbarch_debug >= 2)
4211     fprintf_unfiltered (gdb_stdlog, "gdbarch_has_dos_based_file_system called\n");
4212   return gdbarch->has_dos_based_file_system;
4213 }
4214
4215 void
4216 set_gdbarch_has_dos_based_file_system (struct gdbarch *gdbarch,
4217                                        int has_dos_based_file_system)
4218 {
4219   gdbarch->has_dos_based_file_system = has_dos_based_file_system;
4220 }
4221
4222 void
4223 gdbarch_gen_return_address (struct gdbarch *gdbarch, struct agent_expr *ax, struct axs_value *value, CORE_ADDR scope)
4224 {
4225   gdb_assert (gdbarch != NULL);
4226   gdb_assert (gdbarch->gen_return_address != NULL);
4227   if (gdbarch_debug >= 2)
4228     fprintf_unfiltered (gdb_stdlog, "gdbarch_gen_return_address called\n");
4229   gdbarch->gen_return_address (gdbarch, ax, value, scope);
4230 }
4231
4232 void
4233 set_gdbarch_gen_return_address (struct gdbarch *gdbarch,
4234                                 gdbarch_gen_return_address_ftype gen_return_address)
4235 {
4236   gdbarch->gen_return_address = gen_return_address;
4237 }
4238
4239 int
4240 gdbarch_info_proc_p (struct gdbarch *gdbarch)
4241 {
4242   gdb_assert (gdbarch != NULL);
4243   return gdbarch->info_proc != NULL;
4244 }
4245
4246 void
4247 gdbarch_info_proc (struct gdbarch *gdbarch, char *args, enum info_proc_what what)
4248 {
4249   gdb_assert (gdbarch != NULL);
4250   gdb_assert (gdbarch->info_proc != NULL);
4251   if (gdbarch_debug >= 2)
4252     fprintf_unfiltered (gdb_stdlog, "gdbarch_info_proc called\n");
4253   gdbarch->info_proc (gdbarch, args, what);
4254 }
4255
4256 void
4257 set_gdbarch_info_proc (struct gdbarch *gdbarch,
4258                        gdbarch_info_proc_ftype info_proc)
4259 {
4260   gdbarch->info_proc = info_proc;
4261 }
4262
4263
4264 /* Keep a registry of per-architecture data-pointers required by GDB
4265    modules.  */
4266
4267 struct gdbarch_data
4268 {
4269   unsigned index;
4270   int init_p;
4271   gdbarch_data_pre_init_ftype *pre_init;
4272   gdbarch_data_post_init_ftype *post_init;
4273 };
4274
4275 struct gdbarch_data_registration
4276 {
4277   struct gdbarch_data *data;
4278   struct gdbarch_data_registration *next;
4279 };
4280
4281 struct gdbarch_data_registry
4282 {
4283   unsigned nr;
4284   struct gdbarch_data_registration *registrations;
4285 };
4286
4287 struct gdbarch_data_registry gdbarch_data_registry =
4288 {
4289   0, NULL,
4290 };
4291
4292 static struct gdbarch_data *
4293 gdbarch_data_register (gdbarch_data_pre_init_ftype *pre_init,
4294                        gdbarch_data_post_init_ftype *post_init)
4295 {
4296   struct gdbarch_data_registration **curr;
4297
4298   /* Append the new registration.  */
4299   for (curr = &gdbarch_data_registry.registrations;
4300        (*curr) != NULL;
4301        curr = &(*curr)->next);
4302   (*curr) = XMALLOC (struct gdbarch_data_registration);
4303   (*curr)->next = NULL;
4304   (*curr)->data = XMALLOC (struct gdbarch_data);
4305   (*curr)->data->index = gdbarch_data_registry.nr++;
4306   (*curr)->data->pre_init = pre_init;
4307   (*curr)->data->post_init = post_init;
4308   (*curr)->data->init_p = 1;
4309   return (*curr)->data;
4310 }
4311
4312 struct gdbarch_data *
4313 gdbarch_data_register_pre_init (gdbarch_data_pre_init_ftype *pre_init)
4314 {
4315   return gdbarch_data_register (pre_init, NULL);
4316 }
4317
4318 struct gdbarch_data *
4319 gdbarch_data_register_post_init (gdbarch_data_post_init_ftype *post_init)
4320 {
4321   return gdbarch_data_register (NULL, post_init);
4322 }
4323
4324 /* Create/delete the gdbarch data vector.  */
4325
4326 static void
4327 alloc_gdbarch_data (struct gdbarch *gdbarch)
4328 {
4329   gdb_assert (gdbarch->data == NULL);
4330   gdbarch->nr_data = gdbarch_data_registry.nr;
4331   gdbarch->data = GDBARCH_OBSTACK_CALLOC (gdbarch, gdbarch->nr_data, void *);
4332 }
4333
4334 /* Initialize the current value of the specified per-architecture
4335    data-pointer.  */
4336
4337 void
4338 deprecated_set_gdbarch_data (struct gdbarch *gdbarch,
4339                              struct gdbarch_data *data,
4340                              void *pointer)
4341 {
4342   gdb_assert (data->index < gdbarch->nr_data);
4343   gdb_assert (gdbarch->data[data->index] == NULL);
4344   gdb_assert (data->pre_init == NULL);
4345   gdbarch->data[data->index] = pointer;
4346 }
4347
4348 /* Return the current value of the specified per-architecture
4349    data-pointer.  */
4350
4351 void *
4352 gdbarch_data (struct gdbarch *gdbarch, struct gdbarch_data *data)
4353 {
4354   gdb_assert (data->index < gdbarch->nr_data);
4355   if (gdbarch->data[data->index] == NULL)
4356     {
4357       /* The data-pointer isn't initialized, call init() to get a
4358          value.  */
4359       if (data->pre_init != NULL)
4360         /* Mid architecture creation: pass just the obstack, and not
4361            the entire architecture, as that way it isn't possible for
4362            pre-init code to refer to undefined architecture
4363            fields.  */
4364         gdbarch->data[data->index] = data->pre_init (gdbarch->obstack);
4365       else if (gdbarch->initialized_p
4366                && data->post_init != NULL)
4367         /* Post architecture creation: pass the entire architecture
4368            (as all fields are valid), but be careful to also detect
4369            recursive references.  */
4370         {
4371           gdb_assert (data->init_p);
4372           data->init_p = 0;
4373           gdbarch->data[data->index] = data->post_init (gdbarch);
4374           data->init_p = 1;
4375         }
4376       else
4377         /* The architecture initialization hasn't completed - punt -
4378          hope that the caller knows what they are doing.  Once
4379          deprecated_set_gdbarch_data has been initialized, this can be
4380          changed to an internal error.  */
4381         return NULL;
4382       gdb_assert (gdbarch->data[data->index] != NULL);
4383     }
4384   return gdbarch->data[data->index];
4385 }
4386
4387
4388 /* Keep a registry of the architectures known by GDB.  */
4389
4390 struct gdbarch_registration
4391 {
4392   enum bfd_architecture bfd_architecture;
4393   gdbarch_init_ftype *init;
4394   gdbarch_dump_tdep_ftype *dump_tdep;
4395   struct gdbarch_list *arches;
4396   struct gdbarch_registration *next;
4397 };
4398
4399 static struct gdbarch_registration *gdbarch_registry = NULL;
4400
4401 static void
4402 append_name (const char ***buf, int *nr, const char *name)
4403 {
4404   *buf = xrealloc (*buf, sizeof (char**) * (*nr + 1));
4405   (*buf)[*nr] = name;
4406   *nr += 1;
4407 }
4408
4409 const char **
4410 gdbarch_printable_names (void)
4411 {
4412   /* Accumulate a list of names based on the registed list of
4413      architectures.  */
4414   int nr_arches = 0;
4415   const char **arches = NULL;
4416   struct gdbarch_registration *rego;
4417
4418   for (rego = gdbarch_registry;
4419        rego != NULL;
4420        rego = rego->next)
4421     {
4422       const struct bfd_arch_info *ap;
4423       ap = bfd_lookup_arch (rego->bfd_architecture, 0);
4424       if (ap == NULL)
4425         internal_error (__FILE__, __LINE__,
4426                         _("gdbarch_architecture_names: multi-arch unknown"));
4427       do
4428         {
4429           append_name (&arches, &nr_arches, ap->printable_name);
4430           ap = ap->next;
4431         }
4432       while (ap != NULL);
4433     }
4434   append_name (&arches, &nr_arches, NULL);
4435   return arches;
4436 }
4437
4438
4439 void
4440 gdbarch_register (enum bfd_architecture bfd_architecture,
4441                   gdbarch_init_ftype *init,
4442                   gdbarch_dump_tdep_ftype *dump_tdep)
4443 {
4444   struct gdbarch_registration **curr;
4445   const struct bfd_arch_info *bfd_arch_info;
4446
4447   /* Check that BFD recognizes this architecture */
4448   bfd_arch_info = bfd_lookup_arch (bfd_architecture, 0);
4449   if (bfd_arch_info == NULL)
4450     {
4451       internal_error (__FILE__, __LINE__,
4452                       _("gdbarch: Attempt to register "
4453                         "unknown architecture (%d)"),
4454                       bfd_architecture);
4455     }
4456   /* Check that we haven't seen this architecture before.  */
4457   for (curr = &gdbarch_registry;
4458        (*curr) != NULL;
4459        curr = &(*curr)->next)
4460     {
4461       if (bfd_architecture == (*curr)->bfd_architecture)
4462         internal_error (__FILE__, __LINE__,
4463                         _("gdbarch: Duplicate registration "
4464                           "of architecture (%s)"),
4465                         bfd_arch_info->printable_name);
4466     }
4467   /* log it */
4468   if (gdbarch_debug)
4469     fprintf_unfiltered (gdb_stdlog, "register_gdbarch_init (%s, %s)\n",
4470                         bfd_arch_info->printable_name,
4471                         host_address_to_string (init));
4472   /* Append it */
4473   (*curr) = XMALLOC (struct gdbarch_registration);
4474   (*curr)->bfd_architecture = bfd_architecture;
4475   (*curr)->init = init;
4476   (*curr)->dump_tdep = dump_tdep;
4477   (*curr)->arches = NULL;
4478   (*curr)->next = NULL;
4479 }
4480
4481 void
4482 register_gdbarch_init (enum bfd_architecture bfd_architecture,
4483                        gdbarch_init_ftype *init)
4484 {
4485   gdbarch_register (bfd_architecture, init, NULL);
4486 }
4487
4488
4489 /* Look for an architecture using gdbarch_info.  */
4490
4491 struct gdbarch_list *
4492 gdbarch_list_lookup_by_info (struct gdbarch_list *arches,
4493                              const struct gdbarch_info *info)
4494 {
4495   for (; arches != NULL; arches = arches->next)
4496     {
4497       if (info->bfd_arch_info != arches->gdbarch->bfd_arch_info)
4498         continue;
4499       if (info->byte_order != arches->gdbarch->byte_order)
4500         continue;
4501       if (info->osabi != arches->gdbarch->osabi)
4502         continue;
4503       if (info->target_desc != arches->gdbarch->target_desc)
4504         continue;
4505       return arches;
4506     }
4507   return NULL;
4508 }
4509
4510
4511 /* Find an architecture that matches the specified INFO.  Create a new
4512    architecture if needed.  Return that new architecture.  */
4513
4514 struct gdbarch *
4515 gdbarch_find_by_info (struct gdbarch_info info)
4516 {
4517   struct gdbarch *new_gdbarch;
4518   struct gdbarch_registration *rego;
4519
4520   /* Fill in missing parts of the INFO struct using a number of
4521      sources: "set ..."; INFOabfd supplied; and the global
4522      defaults.  */
4523   gdbarch_info_fill (&info);
4524
4525   /* Must have found some sort of architecture.  */
4526   gdb_assert (info.bfd_arch_info != NULL);
4527
4528   if (gdbarch_debug)
4529     {
4530       fprintf_unfiltered (gdb_stdlog,
4531                           "gdbarch_find_by_info: info.bfd_arch_info %s\n",
4532                           (info.bfd_arch_info != NULL
4533                            ? info.bfd_arch_info->printable_name
4534                            : "(null)"));
4535       fprintf_unfiltered (gdb_stdlog,
4536                           "gdbarch_find_by_info: info.byte_order %d (%s)\n",
4537                           info.byte_order,
4538                           (info.byte_order == BFD_ENDIAN_BIG ? "big"
4539                            : info.byte_order == BFD_ENDIAN_LITTLE ? "little"
4540                            : "default"));
4541       fprintf_unfiltered (gdb_stdlog,
4542                           "gdbarch_find_by_info: info.osabi %d (%s)\n",
4543                           info.osabi, gdbarch_osabi_name (info.osabi));
4544       fprintf_unfiltered (gdb_stdlog,
4545                           "gdbarch_find_by_info: info.abfd %s\n",
4546                           host_address_to_string (info.abfd));
4547       fprintf_unfiltered (gdb_stdlog,
4548                           "gdbarch_find_by_info: info.tdep_info %s\n",
4549                           host_address_to_string (info.tdep_info));
4550     }
4551
4552   /* Find the tdep code that knows about this architecture.  */
4553   for (rego = gdbarch_registry;
4554        rego != NULL;
4555        rego = rego->next)
4556     if (rego->bfd_architecture == info.bfd_arch_info->arch)
4557       break;
4558   if (rego == NULL)
4559     {
4560       if (gdbarch_debug)
4561         fprintf_unfiltered (gdb_stdlog, "gdbarch_find_by_info: "
4562                             "No matching architecture\n");
4563       return 0;
4564     }
4565
4566   /* Ask the tdep code for an architecture that matches "info".  */
4567   new_gdbarch = rego->init (info, rego->arches);
4568
4569   /* Did the tdep code like it?  No.  Reject the change and revert to
4570      the old architecture.  */
4571   if (new_gdbarch == NULL)
4572     {
4573       if (gdbarch_debug)
4574         fprintf_unfiltered (gdb_stdlog, "gdbarch_find_by_info: "
4575                             "Target rejected architecture\n");
4576       return NULL;
4577     }
4578
4579   /* Is this a pre-existing architecture (as determined by already
4580      being initialized)?  Move it to the front of the architecture
4581      list (keeping the list sorted Most Recently Used).  */
4582   if (new_gdbarch->initialized_p)
4583     {
4584       struct gdbarch_list **list;
4585       struct gdbarch_list *this;
4586       if (gdbarch_debug)
4587         fprintf_unfiltered (gdb_stdlog, "gdbarch_find_by_info: "
4588                             "Previous architecture %s (%s) selected\n",
4589                             host_address_to_string (new_gdbarch),
4590                             new_gdbarch->bfd_arch_info->printable_name);
4591       /* Find the existing arch in the list.  */
4592       for (list = &rego->arches;
4593            (*list) != NULL && (*list)->gdbarch != new_gdbarch;
4594            list = &(*list)->next);
4595       /* It had better be in the list of architectures.  */
4596       gdb_assert ((*list) != NULL && (*list)->gdbarch == new_gdbarch);
4597       /* Unlink THIS.  */
4598       this = (*list);
4599       (*list) = this->next;
4600       /* Insert THIS at the front.  */
4601       this->next = rego->arches;
4602       rego->arches = this;
4603       /* Return it.  */
4604       return new_gdbarch;
4605     }
4606
4607   /* It's a new architecture.  */
4608   if (gdbarch_debug)
4609     fprintf_unfiltered (gdb_stdlog, "gdbarch_find_by_info: "
4610                         "New architecture %s (%s) selected\n",
4611                         host_address_to_string (new_gdbarch),
4612                         new_gdbarch->bfd_arch_info->printable_name);
4613
4614   /* Insert the new architecture into the front of the architecture
4615      list (keep the list sorted Most Recently Used).  */
4616   {
4617     struct gdbarch_list *this = XMALLOC (struct gdbarch_list);
4618     this->next = rego->arches;
4619     this->gdbarch = new_gdbarch;
4620     rego->arches = this;
4621   }
4622
4623   /* Check that the newly installed architecture is valid.  Plug in
4624      any post init values.  */
4625   new_gdbarch->dump_tdep = rego->dump_tdep;
4626   verify_gdbarch (new_gdbarch);
4627   new_gdbarch->initialized_p = 1;
4628
4629   if (gdbarch_debug)
4630     gdbarch_dump (new_gdbarch, gdb_stdlog);
4631
4632   return new_gdbarch;
4633 }
4634
4635 /* Make the specified architecture current.  */
4636
4637 void
4638 deprecated_target_gdbarch_select_hack (struct gdbarch *new_gdbarch)
4639 {
4640   gdb_assert (new_gdbarch != NULL);
4641   gdb_assert (new_gdbarch->initialized_p);
4642   target_gdbarch = new_gdbarch;
4643   observer_notify_architecture_changed (new_gdbarch);
4644   registers_changed ();
4645 }
4646
4647 extern void _initialize_gdbarch (void);
4648
4649 void
4650 _initialize_gdbarch (void)
4651 {
4652   add_setshow_zinteger_cmd ("arch", class_maintenance, &gdbarch_debug, _("\
4653 Set architecture debugging."), _("\
4654 Show architecture debugging."), _("\
4655 When non-zero, architecture debugging is enabled."),
4656                             NULL,
4657                             show_gdbarch_debug,
4658                             &setdebuglist, &showdebuglist);
4659 }