projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
* gdbarch.sh (GET_LONGJMP_TARGET): Add rule.
[deliverable/binutils-gdb.git] / gdb / gdbarch.c
CommitLineData
59233f88
AC		 1/* *INDENT-OFF* */ /* THIS FILE IS GENERATED */
2
adf40b2e 3/* Dynamic architecture support for GDB, the GNU debugger.
181c1381 4 Copyright 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
c906108c 5
96baa820
JM		 6 This file is part of GDB.
7
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
c906108c 12
96baa820
JM		 13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
c906108c 17
96baa820
JM		 18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 59 Temple Place - Suite 330,
21 Boston, MA 02111-1307, USA. */
adf40b2e 22
104c1213
JM		 23/* This file was created with the aid of ``gdbarch.sh''.
24
52204a0b 25 The Bourne shell script ``gdbarch.sh'' creates the files
104c1213
JM		 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
52204a0b 31 changes into that script. Conversely, when making sweeping changes
104c1213
JM		 32 to this file, modifying gdbarch.sh and using its output may prove
33 easier. */
c906108c 34
c906108c
SS		 35
36#include "defs.h"
1ad03bde 37#include "arch-utils.h"
c906108c 38
0f71a2f6
JM		 39#if GDB_MULTI_ARCH
40#include "gdbcmd.h"
adf40b2e 41#include "inferior.h" /* enum CALL_DUMMY_LOCATION et.al. */
0f71a2f6 42#else
7a292a7a
SS		 43/* Just include everything in sight so that the every old definition
44 of macro is visible. */
45#include "gdb_string.h"
46#include <ctype.h>
47#include "symtab.h"
48#include "frame.h"
49#include "inferior.h"
50#include "breakpoint.h"
03f2053f 51#include "gdb_wait.h"
7a292a7a
SS		 52#include "gdbcore.h"
53#include "gdbcmd.h"
54#include "target.h"
55#include "gdbthread.h"
56#include "annotate.h"
57#include "symfile.h" /* for overlay functions */
fd0407d6 58#include "value.h" /* For old tm.h/nm.h macros. */
0f71a2f6 59#endif
7a292a7a 60#include "symcat.h"
c906108c 61
f0d4cc9e 62#include "floatformat.h"
c906108c 63
95160752 64#include "gdb_assert.h"
67c2c32c 65#include "gdb-events.h"
95160752 66
104c1213
JM		 67/* Static function declarations */
68
69static void verify_gdbarch (struct gdbarch *gdbarch);
b3cc3077
JB		 70static void alloc_gdbarch_data (struct gdbarch *);
71static void init_gdbarch_data (struct gdbarch *);
95160752 72static void free_gdbarch_data (struct gdbarch *);
104c1213
JM		 73static void init_gdbarch_swap (struct gdbarch *);
74static void swapout_gdbarch_swap (struct gdbarch *);
75static void swapin_gdbarch_swap (struct gdbarch *);
76
0f71a2f6
JM		 77/* Convenience macro for allocting typesafe memory. */
78
79#ifndef XMALLOC
80#define XMALLOC(TYPE) (TYPE*) xmalloc (sizeof (TYPE))
81#endif
82
83
84/* Non-zero if we want to trace architecture code. */
85
86#ifndef GDBARCH_DEBUG
87#define GDBARCH_DEBUG 0
88#endif
89int gdbarch_debug = GDBARCH_DEBUG;
90
91
92/* Maintain the struct gdbarch object */
93
94struct gdbarch
adf40b2e
JM		 95{
96 /* basic architectural information */
97 const struct bfd_arch_info * bfd_arch_info;
98 int byte_order;
0f71a2f6 99
adf40b2e
JM		 100 /* target specific vector. */
101 struct gdbarch_tdep *tdep;
4b9b3959 102 gdbarch_dump_tdep_ftype *dump_tdep;
0f71a2f6 103
adf40b2e 104 /* per-architecture data-pointers */
95160752 105 unsigned nr_data;
adf40b2e 106 void **data;
0f71a2f6 107
adf40b2e
JM		 108 /* per-architecture swap-regions */
109 struct gdbarch_swap *swap;
0f71a2f6 110
adf40b2e 111 /* Multi-arch values.
0f71a2f6 112
adf40b2e 113 When extending this structure you must:
0f71a2f6 114
adf40b2e 115 Add the field below.
0f71a2f6 116
adf40b2e
JM		 117 Declare set/get functions and define the corresponding
118 macro in gdbarch.h.
0f71a2f6 119
adf40b2e
JM		 120 gdbarch_alloc(): If zero/NULL is not a suitable default,
121 initialize the new field.
0f71a2f6 122
adf40b2e
JM		 123 verify_gdbarch(): Confirm that the target updated the field
124 correctly.
0f71a2f6 125
7e73cedf 126 gdbarch_dump(): Add a fprintf_unfiltered call so that the new
adf40b2e 127 field is dumped out
0f71a2f6 128
c0e8c252 129 ``startup_gdbarch()'': Append an initial value to the static
adf40b2e 130 variable (base values on the host's c-type system).
0f71a2f6 131
adf40b2e
JM		 132 get_gdbarch(): Implement the set/get functions (probably using
133 the macro's as shortcuts).
0f71a2f6
JM		 134
135 */
136
adf40b2e
JM		 137 int short_bit;
138 int int_bit;
139 int long_bit;
140 int long_long_bit;
141 int float_bit;
142 int double_bit;
143 int long_double_bit;
66b43ecb 144 int ptr_bit;
52204a0b 145 int addr_bit;
66b43ecb 146 int bfd_vma_bit;
4e409299 147 int char_signed;
adf40b2e
JM		 148 gdbarch_read_pc_ftype *read_pc;
149 gdbarch_write_pc_ftype *write_pc;
150 gdbarch_read_fp_ftype *read_fp;
151 gdbarch_write_fp_ftype *write_fp;
152 gdbarch_read_sp_ftype *read_sp;
153 gdbarch_write_sp_ftype *write_sp;
39d4ef09 154 gdbarch_virtual_frame_pointer_ftype *virtual_frame_pointer;
61a0eb5b
AC		 155 gdbarch_register_read_ftype *register_read;
156 gdbarch_register_write_ftype *register_write;
adf40b2e 157 int num_regs;
0aba1244 158 int num_pseudo_regs;
adf40b2e
JM		 159 int sp_regnum;
160 int fp_regnum;
161 int pc_regnum;
60054393 162 int fp0_regnum;
03863182
AC		 163 int npc_regnum;
164 int nnpc_regnum;
88c72b7d
AC		 165 gdbarch_stab_reg_to_regnum_ftype *stab_reg_to_regnum;
166 gdbarch_ecoff_reg_to_regnum_ftype *ecoff_reg_to_regnum;
167 gdbarch_dwarf_reg_to_regnum_ftype *dwarf_reg_to_regnum;
168 gdbarch_sdb_reg_to_regnum_ftype *sdb_reg_to_regnum;
169 gdbarch_dwarf2_reg_to_regnum_ftype *dwarf2_reg_to_regnum;
adf40b2e
JM		 170 gdbarch_register_name_ftype *register_name;
171 int register_size;
172 int register_bytes;
173 gdbarch_register_byte_ftype *register_byte;
174 gdbarch_register_raw_size_ftype *register_raw_size;
175 int max_register_raw_size;
176 gdbarch_register_virtual_size_ftype *register_virtual_size;
177 int max_register_virtual_size;
178 gdbarch_register_virtual_type_ftype *register_virtual_type;
666e11c5 179 gdbarch_do_registers_info_ftype *do_registers_info;
5e74b15c 180 gdbarch_print_float_info_ftype *print_float_info;
7c7651b2 181 gdbarch_register_sim_regno_ftype *register_sim_regno;
2649061d 182 gdbarch_register_bytes_ok_ftype *register_bytes_ok;
01fb7433
AC		 183 gdbarch_cannot_fetch_register_ftype *cannot_fetch_register;
184 gdbarch_cannot_store_register_ftype *cannot_store_register;
9df628e0 185 gdbarch_get_longjmp_target_ftype *get_longjmp_target;
adf40b2e
JM		 186 int use_generic_dummy_frames;
187 int call_dummy_location;
188 gdbarch_call_dummy_address_ftype *call_dummy_address;
189 CORE_ADDR call_dummy_start_offset;
190 CORE_ADDR call_dummy_breakpoint_offset;
191 int call_dummy_breakpoint_offset_p;
192 int call_dummy_length;
193 gdbarch_pc_in_call_dummy_ftype *pc_in_call_dummy;
194 int call_dummy_p;
195 LONGEST * call_dummy_words;
196 int sizeof_call_dummy_words;
197 int call_dummy_stack_adjust_p;
198 int call_dummy_stack_adjust;
199 gdbarch_fix_call_dummy_ftype *fix_call_dummy;
10312cc4
AC		 200 gdbarch_init_frame_pc_first_ftype *init_frame_pc_first;
201 gdbarch_init_frame_pc_ftype *init_frame_pc;
adf40b2e
JM		 202 int believe_pcc_promotion;
203 int believe_pcc_promotion_type;
b9a8e3bf 204 gdbarch_coerce_float_to_double_ftype *coerce_float_to_double;
adf40b2e
JM		 205 gdbarch_get_saved_register_ftype *get_saved_register;
206 gdbarch_register_convertible_ftype *register_convertible;
207 gdbarch_register_convert_to_virtual_ftype *register_convert_to_virtual;
208 gdbarch_register_convert_to_raw_ftype *register_convert_to_raw;
7f1b2585
EZ		 209 gdbarch_fetch_pseudo_register_ftype *fetch_pseudo_register;
210 gdbarch_store_pseudo_register_ftype *store_pseudo_register;
4478b372
JB		 211 gdbarch_pointer_to_address_ftype *pointer_to_address;
212 gdbarch_address_to_pointer_ftype *address_to_pointer;
fc0c74b1 213 gdbarch_integer_to_address_ftype *integer_to_address;
71a9f22e 214 gdbarch_return_value_on_stack_ftype *return_value_on_stack;
adf40b2e
JM		 215 gdbarch_extract_return_value_ftype *extract_return_value;
216 gdbarch_push_arguments_ftype *push_arguments;
217 gdbarch_push_dummy_frame_ftype *push_dummy_frame;
218 gdbarch_push_return_address_ftype *push_return_address;
219 gdbarch_pop_frame_ftype *pop_frame;
adf40b2e
JM		 220 gdbarch_store_struct_return_ftype *store_struct_return;
221 gdbarch_store_return_value_ftype *store_return_value;
222 gdbarch_extract_struct_value_address_ftype *extract_struct_value_address;
223 gdbarch_use_struct_convention_ftype *use_struct_convention;
224 gdbarch_frame_init_saved_regs_ftype *frame_init_saved_regs;
225 gdbarch_init_extra_frame_info_ftype *init_extra_frame_info;
226 gdbarch_skip_prologue_ftype *skip_prologue;
dad41f9a 227 gdbarch_prologue_frameless_p_ftype *prologue_frameless_p;
adf40b2e
JM		 228 gdbarch_inner_than_ftype *inner_than;
229 gdbarch_breakpoint_from_pc_ftype *breakpoint_from_pc;
917317f4
JM		 230 gdbarch_memory_insert_breakpoint_ftype *memory_insert_breakpoint;
231 gdbarch_memory_remove_breakpoint_ftype *memory_remove_breakpoint;
adf40b2e 232 CORE_ADDR decr_pc_after_break;
e02bc4cc 233 gdbarch_prepare_to_proceed_ftype *prepare_to_proceed;
adf40b2e
JM		 234 CORE_ADDR function_start_offset;
235 gdbarch_remote_translate_xfer_address_ftype *remote_translate_xfer_address;
236 CORE_ADDR frame_args_skip;
237 gdbarch_frameless_function_invocation_ftype *frameless_function_invocation;
238 gdbarch_frame_chain_ftype *frame_chain;
239 gdbarch_frame_chain_valid_ftype *frame_chain_valid;
240 gdbarch_frame_saved_pc_ftype *frame_saved_pc;
241 gdbarch_frame_args_address_ftype *frame_args_address;
242 gdbarch_frame_locals_address_ftype *frame_locals_address;
243 gdbarch_saved_pc_after_call_ftype *saved_pc_after_call;
244 gdbarch_frame_num_args_ftype *frame_num_args;
2ada493a 245 gdbarch_stack_align_ftype *stack_align;
1dd4193b 246 int extra_stack_alignment_needed;
d03e67c9 247 gdbarch_reg_struct_has_addr_ftype *reg_struct_has_addr;
d1e3cf49 248 gdbarch_save_dummy_frame_tos_ftype *save_dummy_frame_tos;
58d5518e 249 int parm_boundary;
f0d4cc9e
AC		 250 const struct floatformat * float_format;
251 const struct floatformat * double_format;
252 const struct floatformat * long_double_format;
f517ea4e 253 gdbarch_convert_from_func_ptr_addr_ftype *convert_from_func_ptr_addr;
875e1767 254 gdbarch_addr_bits_remove_ftype *addr_bits_remove;
181c1381 255 gdbarch_smash_text_address_ftype *smash_text_address;
64c4637f 256 gdbarch_software_single_step_ftype *software_single_step;
2bf0cb65 257 gdbarch_print_insn_ftype *print_insn;
bdcd319a 258 gdbarch_skip_trampoline_code_ftype *skip_trampoline_code;
68e9cc94 259 gdbarch_in_solib_call_trampoline_ftype *in_solib_call_trampoline;
c12260ac 260 gdbarch_in_function_epilogue_p_ftype *in_function_epilogue_p;
552c04a7 261 gdbarch_construct_inferior_arguments_ftype *construct_inferior_arguments;
b6af0555 262 gdbarch_dwarf2_build_frame_info_ftype *dwarf2_build_frame_info;
a2cf933a
EZ		 263 gdbarch_elf_make_msymbol_special_ftype *elf_make_msymbol_special;
264 gdbarch_coff_make_msymbol_special_ftype *coff_make_msymbol_special;
adf40b2e 265};
0f71a2f6
JM		 266
267
268/* The default architecture uses host values (for want of a better
269 choice). */
270
271extern const struct bfd_arch_info bfd_default_arch_struct;
272
4b9b3959
AC		 273struct gdbarch startup_gdbarch =
274{
0f71a2f6
JM		 275 /* basic architecture information */
276 &bfd_default_arch_struct,
d7449b42 277 BFD_ENDIAN_BIG,
4b9b3959
AC		 278 /* target specific vector and its dump routine */
279 NULL, NULL,
0f71a2f6
JM		 280 /*per-architecture data-pointers and swap regions */
281 0, NULL, NULL,
282 /* Multi-arch values */
0f71a2f6
JM		 283 8 * sizeof (short),
284 8 * sizeof (int),
285 8 * sizeof (long),
286 8 * sizeof (LONGEST),
287 8 * sizeof (float),
288 8 * sizeof (double),
289 8 * sizeof (long double),
66b43ecb
AC		 290 8 * sizeof (void*),
291 8 * sizeof (void*),
52204a0b 292 8 * sizeof (void*),
4e409299 293 1,
0f71a2f6
JM		 294 0,
295 0,
296 0,
297 0,
298 0,
299 0,
300 0,
301 0,
302 0,
303 0,
304 0,
305 0,
306 0,
307 0,
308 0,
309 0,
310 0,
311 0,
312 0,
313 0,
314 0,
315 0,
316 0,
317 0,
318 0,
319 0,
46cd78fb 320 generic_register_raw_size,
0f71a2f6 321 0,
ce29138a 322 generic_register_virtual_size,
0f71a2f6
JM		 323 0,
324 0,
325 0,
326 0,
327 0,
b9a8e3bf 328 0,
7355ddba 329 0,
03863182
AC		 330 0,
331 0,
60054393 332 0,
0aba1244 333 0,
666e11c5 334 0,
7c7651b2 335 0,
88c72b7d
AC		 336 0,
337 0,
338 0,
339 0,
340 0,
2649061d 341 0,
61a0eb5b
AC		 342 0,
343 0,
10312cc4
AC		 344 0,
345 0,
01fb7433
AC		 346 0,
347 0,
39d4ef09 348 0,
5e74b15c 349 0,
9df628e0 350 0,
0f71a2f6
JM		 351 generic_get_saved_register,
352 0,
353 0,
354 0,
355 0,
356 0,
357 0,
358 0,
359 0,
360 0,
361 0,
362 0,
363 0,
364 0,
365 0,
366 0,
367 0,
368 0,
369 0,
370 0,
371 0,
372 0,
373 0,
374 0,
375 0,
376 0,
377 0,
378 0,
379 0,
380 0,
381 0,
382 0,
383 0,
384 0,
385 0,
386 0,
917317f4
JM		 387 0,
388 0,
4478b372
JB		 389 0,
390 0,
71a9f22e 391 0,
2ada493a 392 0,
d03e67c9 393 0,
dad41f9a 394 0,
d1e3cf49 395 0,
f0d4cc9e
AC		 396 0,
397 0,
398 0,
7f1b2585
EZ		 399 0,
400 0,
bdcd319a 401 0,
2bf0cb65 402 0,
fc0c74b1 403 0,
68e9cc94 404 0,
181c1381 405 0,
a72293e2 406 generic_in_function_epilogue_p,
552c04a7 407 construct_inferior_arguments,
b6af0555 408 0,
a2cf933a
EZ		 409 0,
410 0,
c0e8c252 411 /* startup_gdbarch() */
0f71a2f6 412};
4b9b3959 413
c0e8c252 414struct gdbarch *current_gdbarch = &startup_gdbarch;
0f71a2f6 415
ceaa8edf
JB		 416/* Do any initialization needed for a non-multiarch configuration
417 after the _initialize_MODULE functions have been run. */
418void
419initialize_non_multiarch ()
420{
421 alloc_gdbarch_data (&startup_gdbarch);
422 init_gdbarch_data (&startup_gdbarch);
423}
424
0f71a2f6 425
66b43ecb 426/* Create a new ``struct gdbarch'' based on information provided by
0f71a2f6
JM		 427 ``struct gdbarch_info''. */
428
429struct gdbarch *
104c1213
JM		 430gdbarch_alloc (const struct gdbarch_info *info,
431 struct gdbarch_tdep *tdep)
0f71a2f6 432{
85de9627
AC		 433 /* NOTE: The new architecture variable is named ``current_gdbarch''
434 so that macros such as TARGET_DOUBLE_BIT, when expanded, refer to
435 the current local architecture and not the previous global
436 architecture. This ensures that the new architectures initial
437 values are not influenced by the previous architecture. Once
438 everything is parameterised with gdbarch, this will go away. */
439 struct gdbarch *current_gdbarch = XMALLOC (struct gdbarch);
440 memset (current_gdbarch, 0, sizeof (*current_gdbarch));
0f71a2f6 441
85de9627 442 alloc_gdbarch_data (current_gdbarch);
b3cc3077 443
85de9627 444 current_gdbarch->tdep = tdep;
0f71a2f6 445
85de9627
AC		 446 current_gdbarch->bfd_arch_info = info->bfd_arch_info;
447 current_gdbarch->byte_order = info->byte_order;
0f71a2f6
JM		 448
449 /* Force the explicit initialization of these. */
85de9627
AC		 450 current_gdbarch->short_bit = 2*TARGET_CHAR_BIT;
451 current_gdbarch->int_bit = 4*TARGET_CHAR_BIT;
452 current_gdbarch->long_bit = 4*TARGET_CHAR_BIT;
453 current_gdbarch->long_long_bit = 2*TARGET_LONG_BIT;
454 current_gdbarch->float_bit = 4*TARGET_CHAR_BIT;
455 current_gdbarch->double_bit = 8*TARGET_CHAR_BIT;
17ef5d92 456 current_gdbarch->long_double_bit = 8*TARGET_CHAR_BIT;
85de9627
AC		 457 current_gdbarch->ptr_bit = TARGET_INT_BIT;
458 current_gdbarch->bfd_vma_bit = TARGET_ARCHITECTURE->bits_per_address;
4e409299 459 current_gdbarch->char_signed = -1;
85de9627
AC		 460 current_gdbarch->read_pc = generic_target_read_pc;
461 current_gdbarch->write_pc = generic_target_write_pc;
462 current_gdbarch->read_fp = generic_target_read_fp;
463 current_gdbarch->write_fp = generic_target_write_fp;
464 current_gdbarch->read_sp = generic_target_read_sp;
465 current_gdbarch->write_sp = generic_target_write_sp;
466 current_gdbarch->virtual_frame_pointer = legacy_virtual_frame_pointer;
467 current_gdbarch->num_regs = -1;
468 current_gdbarch->sp_regnum = -1;
469 current_gdbarch->fp_regnum = -1;
470 current_gdbarch->pc_regnum = -1;
471 current_gdbarch->fp0_regnum = -1;
472 current_gdbarch->npc_regnum = -1;
473 current_gdbarch->nnpc_regnum = -1;
474 current_gdbarch->stab_reg_to_regnum = no_op_reg_to_regnum;
475 current_gdbarch->ecoff_reg_to_regnum = no_op_reg_to_regnum;
476 current_gdbarch->dwarf_reg_to_regnum = no_op_reg_to_regnum;
477 current_gdbarch->sdb_reg_to_regnum = no_op_reg_to_regnum;
478 current_gdbarch->dwarf2_reg_to_regnum = no_op_reg_to_regnum;
479 current_gdbarch->register_name = legacy_register_name;
480 current_gdbarch->register_size = -1;
481 current_gdbarch->register_bytes = -1;
482 current_gdbarch->max_register_raw_size = -1;
483 current_gdbarch->max_register_virtual_size = -1;
484 current_gdbarch->do_registers_info = do_registers_info;
5e74b15c 485 current_gdbarch->print_float_info = default_print_float_info;
85de9627
AC		 486 current_gdbarch->register_sim_regno = default_register_sim_regno;
487 current_gdbarch->cannot_fetch_register = cannot_register_not;
488 current_gdbarch->cannot_store_register = cannot_register_not;
489 current_gdbarch->use_generic_dummy_frames = -1;
490 current_gdbarch->call_dummy_start_offset = -1;
491 current_gdbarch->call_dummy_breakpoint_offset = -1;
492 current_gdbarch->call_dummy_breakpoint_offset_p = -1;
493 current_gdbarch->call_dummy_length = -1;
494 current_gdbarch->call_dummy_p = -1;
495 current_gdbarch->call_dummy_words = legacy_call_dummy_words;
496 current_gdbarch->sizeof_call_dummy_words = legacy_sizeof_call_dummy_words;
497 current_gdbarch->call_dummy_stack_adjust_p = -1;
498 current_gdbarch->init_frame_pc_first = init_frame_pc_noop;
499 current_gdbarch->init_frame_pc = init_frame_pc_default;
500 current_gdbarch->coerce_float_to_double = default_coerce_float_to_double;
501 current_gdbarch->register_convertible = generic_register_convertible_not;
502 current_gdbarch->pointer_to_address = unsigned_pointer_to_address;
503 current_gdbarch->address_to_pointer = unsigned_address_to_pointer;
504 current_gdbarch->return_value_on_stack = generic_return_value_on_stack_not;
6e6d6484 505 current_gdbarch->push_arguments = default_push_arguments;
56f12751 506 current_gdbarch->use_struct_convention = generic_use_struct_convention;
85de9627
AC		 507 current_gdbarch->prologue_frameless_p = generic_prologue_frameless_p;
508 current_gdbarch->breakpoint_from_pc = legacy_breakpoint_from_pc;
509 current_gdbarch->memory_insert_breakpoint = default_memory_insert_breakpoint;
510 current_gdbarch->memory_remove_breakpoint = default_memory_remove_breakpoint;
511 current_gdbarch->decr_pc_after_break = -1;
512 current_gdbarch->prepare_to_proceed = default_prepare_to_proceed;
513 current_gdbarch->function_start_offset = -1;
514 current_gdbarch->remote_translate_xfer_address = generic_remote_translate_xfer_address;
515 current_gdbarch->frame_args_skip = -1;
516 current_gdbarch->frameless_function_invocation = generic_frameless_function_invocation_not;
517 current_gdbarch->extra_stack_alignment_needed = 1;
518 current_gdbarch->convert_from_func_ptr_addr = core_addr_identity;
519 current_gdbarch->addr_bits_remove = core_addr_identity;
181c1381 520 current_gdbarch->smash_text_address = core_addr_identity;
85de9627
AC		 521 current_gdbarch->print_insn = legacy_print_insn;
522 current_gdbarch->skip_trampoline_code = generic_skip_trampoline_code;
68e9cc94 523 current_gdbarch->in_solib_call_trampoline = generic_in_solib_call_trampoline;
c12260ac 524 current_gdbarch->in_function_epilogue_p = generic_in_function_epilogue_p;
552c04a7 525 current_gdbarch->construct_inferior_arguments = construct_inferior_arguments;
a2cf933a
EZ		 526 current_gdbarch->elf_make_msymbol_special = default_elf_make_msymbol_special;
527 current_gdbarch->coff_make_msymbol_special = default_coff_make_msymbol_special;
0f71a2f6
JM		 528 /* gdbarch_alloc() */
529
85de9627 530 return current_gdbarch;
0f71a2f6
JM		 531}
532
533
058f20d5
JB		 534/* Free a gdbarch struct. This should never happen in normal
535 operation --- once you've created a gdbarch, you keep it around.
536 However, if an architecture's init function encounters an error
537 building the structure, it may need to clean up a partially
538 constructed gdbarch. */
4b9b3959 539
058f20d5
JB		 540void
541gdbarch_free (struct gdbarch *arch)
542{
95160752
AC		 543 gdb_assert (arch != NULL);
544 free_gdbarch_data (arch);
338d7c5c 545 xfree (arch);
058f20d5
JB		 546}
547
548
0f71a2f6
JM		 549/* Ensure that all values in a GDBARCH are reasonable. */
550
0f71a2f6 551static void
104c1213 552verify_gdbarch (struct gdbarch *gdbarch)
0f71a2f6 553{
f16a1923
AC		 554 struct ui_file *log;
555 struct cleanup *cleanups;
556 long dummy;
557 char *buf;
0f71a2f6 558 /* Only perform sanity checks on a multi-arch target. */
6166d547 559 if (!GDB_MULTI_ARCH)
0f71a2f6 560 return;
f16a1923
AC		 561 log = mem_fileopen ();
562 cleanups = make_cleanup_ui_file_delete (log);
0f71a2f6 563 /* fundamental */
428721aa 564 if (gdbarch->byte_order == BFD_ENDIAN_UNKNOWN)
f16a1923 565 fprintf_unfiltered (log, "\n\tbyte-order");
0f71a2f6 566 if (gdbarch->bfd_arch_info == NULL)
f16a1923 567 fprintf_unfiltered (log, "\n\tbfd_arch_info");
0f71a2f6 568 /* Check those that need to be defined for the given multi-arch level. */
66b43ecb
AC		 569 /* Skip verify of short_bit, invalid_p == 0 */
570 /* Skip verify of int_bit, invalid_p == 0 */
571 /* Skip verify of long_bit, invalid_p == 0 */
572 /* Skip verify of long_long_bit, invalid_p == 0 */
573 /* Skip verify of float_bit, invalid_p == 0 */
574 /* Skip verify of double_bit, invalid_p == 0 */
575 /* Skip verify of long_double_bit, invalid_p == 0 */
576 /* Skip verify of ptr_bit, invalid_p == 0 */
52204a0b
DT		 577 if (gdbarch->addr_bit == 0)
578 gdbarch->addr_bit = TARGET_PTR_BIT;
c0e8c252 579 /* Skip verify of bfd_vma_bit, invalid_p == 0 */
4e409299
JB		 580 if (gdbarch->char_signed == -1)
581 gdbarch->char_signed = 1;
be8dfb87
AC		 582 /* Skip verify of read_pc, invalid_p == 0 */
583 /* Skip verify of write_pc, invalid_p == 0 */
584 /* Skip verify of read_fp, invalid_p == 0 */
585 /* Skip verify of write_fp, invalid_p == 0 */
586 /* Skip verify of read_sp, invalid_p == 0 */
587 /* Skip verify of write_sp, invalid_p == 0 */
39d4ef09 588 /* Skip verify of virtual_frame_pointer, invalid_p == 0 */
61a0eb5b
AC		 589 /* Skip verify of register_read, has predicate */
590 /* Skip verify of register_write, has predicate */
50248794 591 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 592 && (gdbarch->num_regs == -1))
f16a1923 593 fprintf_unfiltered (log, "\n\tnum_regs");
0aba1244 594 /* Skip verify of num_pseudo_regs, invalid_p == 0 */
50248794 595 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 596 && (gdbarch->sp_regnum == -1))
f16a1923 597 fprintf_unfiltered (log, "\n\tsp_regnum");
50248794 598 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 599 && (gdbarch->fp_regnum == -1))
f16a1923 600 fprintf_unfiltered (log, "\n\tfp_regnum");
50248794 601 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 602 && (gdbarch->pc_regnum == -1))
f16a1923 603 fprintf_unfiltered (log, "\n\tpc_regnum");
60054393 604 /* Skip verify of fp0_regnum, invalid_p == 0 */
03863182
AC		 605 /* Skip verify of npc_regnum, invalid_p == 0 */
606 /* Skip verify of nnpc_regnum, invalid_p == 0 */
88c72b7d
AC		 607 /* Skip verify of stab_reg_to_regnum, invalid_p == 0 */
608 /* Skip verify of ecoff_reg_to_regnum, invalid_p == 0 */
609 /* Skip verify of dwarf_reg_to_regnum, invalid_p == 0 */
610 /* Skip verify of sdb_reg_to_regnum, invalid_p == 0 */
611 /* Skip verify of dwarf2_reg_to_regnum, invalid_p == 0 */
c0e8c252 612 /* Skip verify of register_name, invalid_p == 0 */
50248794 613 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 614 && (gdbarch->register_size == -1))
f16a1923 615 fprintf_unfiltered (log, "\n\tregister_size");
50248794 616 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 617 && (gdbarch->register_bytes == -1))
f16a1923 618 fprintf_unfiltered (log, "\n\tregister_bytes");
50248794 619 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 620 && (gdbarch->register_byte == 0))
f16a1923 621 fprintf_unfiltered (log, "\n\tregister_byte");
50248794 622 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 623 && (gdbarch->register_raw_size == 0))
f16a1923 624 fprintf_unfiltered (log, "\n\tregister_raw_size");
50248794 625 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 626 && (gdbarch->max_register_raw_size == -1))
f16a1923 627 fprintf_unfiltered (log, "\n\tmax_register_raw_size");
50248794 628 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 629 && (gdbarch->register_virtual_size == 0))
f16a1923 630 fprintf_unfiltered (log, "\n\tregister_virtual_size");
50248794 631 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 632 && (gdbarch->max_register_virtual_size == -1))
f16a1923 633 fprintf_unfiltered (log, "\n\tmax_register_virtual_size");
50248794 634 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 635 && (gdbarch->register_virtual_type == 0))
f16a1923 636 fprintf_unfiltered (log, "\n\tregister_virtual_type");
666e11c5 637 /* Skip verify of do_registers_info, invalid_p == 0 */
5e74b15c 638 /* Skip verify of print_float_info, invalid_p == 0 */
7c7651b2 639 /* Skip verify of register_sim_regno, invalid_p == 0 */
2649061d 640 /* Skip verify of register_bytes_ok, has predicate */
01fb7433
AC		 641 /* Skip verify of cannot_fetch_register, invalid_p == 0 */
642 /* Skip verify of cannot_store_register, invalid_p == 0 */
9df628e0 643 /* Skip verify of get_longjmp_target, has predicate */
50248794 644 if ((GDB_MULTI_ARCH >= GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 645 && (gdbarch->use_generic_dummy_frames == -1))
f16a1923 646 fprintf_unfiltered (log, "\n\tuse_generic_dummy_frames");
50248794 647 if ((GDB_MULTI_ARCH >= GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 648 && (gdbarch->call_dummy_location == 0))
f16a1923 649 fprintf_unfiltered (log, "\n\tcall_dummy_location");
50248794 650 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 651 && (gdbarch->call_dummy_location == AT_ENTRY_POINT && gdbarch->call_dummy_address == 0))
f16a1923 652 fprintf_unfiltered (log, "\n\tcall_dummy_address");
50248794 653 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 654 && (gdbarch->call_dummy_start_offset == -1))
f16a1923 655 fprintf_unfiltered (log, "\n\tcall_dummy_start_offset");
50248794 656 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
83e6b173 657 && (gdbarch->call_dummy_breakpoint_offset_p && gdbarch->call_dummy_breakpoint_offset == -1))
f16a1923 658 fprintf_unfiltered (log, "\n\tcall_dummy_breakpoint_offset");
50248794 659 if ((GDB_MULTI_ARCH >= GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 660 && (gdbarch->call_dummy_breakpoint_offset_p == -1))
f16a1923 661 fprintf_unfiltered (log, "\n\tcall_dummy_breakpoint_offset_p");
50248794 662 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 663 && (gdbarch->call_dummy_length == -1))
f16a1923 664 fprintf_unfiltered (log, "\n\tcall_dummy_length");
50248794 665 if ((GDB_MULTI_ARCH >= GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 666 && (gdbarch->pc_in_call_dummy == 0))
f16a1923 667 fprintf_unfiltered (log, "\n\tpc_in_call_dummy");
50248794 668 if ((GDB_MULTI_ARCH >= GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 669 && (gdbarch->call_dummy_p == -1))
f16a1923 670 fprintf_unfiltered (log, "\n\tcall_dummy_p");
c0e8c252
AC		 671 /* Skip verify of call_dummy_words, invalid_p == 0 */
672 /* Skip verify of sizeof_call_dummy_words, invalid_p == 0 */
50248794 673 if ((GDB_MULTI_ARCH >= GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 674 && (gdbarch->call_dummy_stack_adjust_p == -1))
f16a1923 675 fprintf_unfiltered (log, "\n\tcall_dummy_stack_adjust_p");
50248794 676 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 677 && (gdbarch->call_dummy_stack_adjust_p && gdbarch->call_dummy_stack_adjust == 0))
f16a1923 678 fprintf_unfiltered (log, "\n\tcall_dummy_stack_adjust");
50248794 679 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 680 && (gdbarch->fix_call_dummy == 0))
f16a1923 681 fprintf_unfiltered (log, "\n\tfix_call_dummy");
10312cc4
AC		 682 /* Skip verify of init_frame_pc_first, invalid_p == 0 */
683 /* Skip verify of init_frame_pc, invalid_p == 0 */
c0e8c252 684 /* Skip verify of coerce_float_to_double, invalid_p == 0 */
50248794 685 if ((GDB_MULTI_ARCH >= GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 686 && (gdbarch->get_saved_register == 0))
f16a1923 687 fprintf_unfiltered (log, "\n\tget_saved_register");
c0e8c252
AC		 688 /* Skip verify of register_convertible, invalid_p == 0 */
689 /* Skip verify of register_convert_to_virtual, invalid_p == 0 */
690 /* Skip verify of register_convert_to_raw, invalid_p == 0 */
31e9866e
AC		 691 /* Skip verify of fetch_pseudo_register, has predicate */
692 /* Skip verify of store_pseudo_register, has predicate */
4478b372
JB		 693 /* Skip verify of pointer_to_address, invalid_p == 0 */
694 /* Skip verify of address_to_pointer, invalid_p == 0 */
fc0c74b1 695 /* Skip verify of integer_to_address, has predicate */
71a9f22e 696 /* Skip verify of return_value_on_stack, invalid_p == 0 */
50248794 697 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 698 && (gdbarch->extract_return_value == 0))
f16a1923 699 fprintf_unfiltered (log, "\n\textract_return_value");
6e6d6484 700 /* Skip verify of push_arguments, invalid_p == 0 */
50248794 701 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 702 && (gdbarch->push_dummy_frame == 0))
f16a1923 703 fprintf_unfiltered (log, "\n\tpush_dummy_frame");
69a0d5f4 704 /* Skip verify of push_return_address, has predicate */
50248794 705 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 706 && (gdbarch->pop_frame == 0))
f16a1923 707 fprintf_unfiltered (log, "\n\tpop_frame");
50248794 708 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 709 && (gdbarch->store_struct_return == 0))
f16a1923 710 fprintf_unfiltered (log, "\n\tstore_struct_return");
50248794 711 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 712 && (gdbarch->store_return_value == 0))
f16a1923 713 fprintf_unfiltered (log, "\n\tstore_return_value");
d6dd581e 714 /* Skip verify of extract_struct_value_address, has predicate */
56f12751 715 /* Skip verify of use_struct_convention, invalid_p == 0 */
50248794 716 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 717 && (gdbarch->frame_init_saved_regs == 0))
f16a1923 718 fprintf_unfiltered (log, "\n\tframe_init_saved_regs");
5fdff426 719 /* Skip verify of init_extra_frame_info, has predicate */
50248794 720 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 721 && (gdbarch->skip_prologue == 0))
f16a1923 722 fprintf_unfiltered (log, "\n\tskip_prologue");
dad41f9a 723 /* Skip verify of prologue_frameless_p, invalid_p == 0 */
50248794 724 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 725 && (gdbarch->inner_than == 0))
f16a1923 726 fprintf_unfiltered (log, "\n\tinner_than");
c0e8c252
AC		 727 /* Skip verify of breakpoint_from_pc, invalid_p == 0 */
728 /* Skip verify of memory_insert_breakpoint, invalid_p == 0 */
729 /* Skip verify of memory_remove_breakpoint, invalid_p == 0 */
50248794 730 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 731 && (gdbarch->decr_pc_after_break == -1))
f16a1923 732 fprintf_unfiltered (log, "\n\tdecr_pc_after_break");
e02bc4cc 733 /* Skip verify of prepare_to_proceed, invalid_p == 0 */
50248794 734 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 735 && (gdbarch->function_start_offset == -1))
f16a1923 736 fprintf_unfiltered (log, "\n\tfunction_start_offset");
c0e8c252 737 /* Skip verify of remote_translate_xfer_address, invalid_p == 0 */
50248794 738 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 739 && (gdbarch->frame_args_skip == -1))
f16a1923 740 fprintf_unfiltered (log, "\n\tframe_args_skip");
c0e8c252 741 /* Skip verify of frameless_function_invocation, invalid_p == 0 */
50248794 742 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 743 && (gdbarch->frame_chain == 0))
f16a1923 744 fprintf_unfiltered (log, "\n\tframe_chain");
50248794 745 if ((GDB_MULTI_ARCH >= GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 746 && (gdbarch->frame_chain_valid == 0))
f16a1923 747 fprintf_unfiltered (log, "\n\tframe_chain_valid");
50248794 748 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 749 && (gdbarch->frame_saved_pc == 0))
f16a1923 750 fprintf_unfiltered (log, "\n\tframe_saved_pc");
50248794 751 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 752 && (gdbarch->frame_args_address == 0))
f16a1923 753 fprintf_unfiltered (log, "\n\tframe_args_address");
50248794 754 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 755 && (gdbarch->frame_locals_address == 0))
f16a1923 756 fprintf_unfiltered (log, "\n\tframe_locals_address");
50248794 757 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 758 && (gdbarch->saved_pc_after_call == 0))
f16a1923 759 fprintf_unfiltered (log, "\n\tsaved_pc_after_call");
50248794 760 if ((GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL)
0f71a2f6 761 && (gdbarch->frame_num_args == 0))
f16a1923 762 fprintf_unfiltered (log, "\n\tframe_num_args");
2ada493a 763 /* Skip verify of stack_align, has predicate */
1dd4193b 764 /* Skip verify of extra_stack_alignment_needed, invalid_p == 0 */
d03e67c9 765 /* Skip verify of reg_struct_has_addr, has predicate */
d1e3cf49 766 /* Skip verify of save_dummy_frame_tos, has predicate */
f0d4cc9e
AC		 767 if (gdbarch->float_format == 0)
768 gdbarch->float_format = default_float_format (gdbarch);
769 if (gdbarch->double_format == 0)
770 gdbarch->double_format = default_double_format (gdbarch);
771 if (gdbarch->long_double_format == 0)
2fa5c1e0 772 gdbarch->long_double_format = default_double_format (gdbarch);
f517ea4e 773 /* Skip verify of convert_from_func_ptr_addr, invalid_p == 0 */
875e1767 774 /* Skip verify of addr_bits_remove, invalid_p == 0 */
181c1381 775 /* Skip verify of smash_text_address, invalid_p == 0 */
64c4637f 776 /* Skip verify of software_single_step, has predicate */
2bf0cb65 777 /* Skip verify of print_insn, invalid_p == 0 */
bdcd319a 778 /* Skip verify of skip_trampoline_code, invalid_p == 0 */
68e9cc94 779 /* Skip verify of in_solib_call_trampoline, invalid_p == 0 */
c12260ac 780 /* Skip verify of in_function_epilogue_p, invalid_p == 0 */
552c04a7 781 /* Skip verify of construct_inferior_arguments, invalid_p == 0 */
b6af0555 782 /* Skip verify of dwarf2_build_frame_info, has predicate */
a2cf933a
EZ		 783 /* Skip verify of elf_make_msymbol_special, invalid_p == 0 */
784 /* Skip verify of coff_make_msymbol_special, invalid_p == 0 */
f16a1923
AC		 785 buf = ui_file_xstrdup (log, &dummy);
786 make_cleanup (xfree, buf);
787 if (strlen (buf) > 0)
788 internal_error (__FILE__, __LINE__,
789 "verify_gdbarch: the following are invalid ...%s",
790 buf);
791 do_cleanups (cleanups);
0f71a2f6
JM		 792}
793
794
795/* Print out the details of the current architecture. */
796
4b9b3959
AC		 797/* NOTE/WARNING: The parameter is called ``current_gdbarch'' so that it
798 just happens to match the global variable ``current_gdbarch''. That
799 way macros refering to that variable get the local and not the global
800 version - ulgh. Once everything is parameterised with gdbarch, this
801 will go away. */
802
0f71a2f6 803void
4b9b3959 804gdbarch_dump (struct gdbarch *gdbarch, struct ui_file *file)
0f71a2f6 805{
4b9b3959
AC		 806 fprintf_unfiltered (file,
807 "gdbarch_dump: GDB_MULTI_ARCH = %d\n",
808 GDB_MULTI_ARCH);
c12260ac
CV		 809 if (GDB_MULTI_ARCH)
810 fprintf_unfiltered (file,
5e74b15c
RE		 811 "gdbarch_dump: in_function_epilogue_p = 0x%08lx\n",
812 (long) current_gdbarch->in_function_epilogue_p);
813 if (GDB_MULTI_ARCH)
814 fprintf_unfiltered (file,
815 "gdbarch_dump: register_read = 0x%08lx\n",
816 (long) current_gdbarch->register_read);
817 if (GDB_MULTI_ARCH)
818 fprintf_unfiltered (file,
819 "gdbarch_dump: register_write = 0x%08lx\n",
820 (long) current_gdbarch->register_write);
08e45a40
AC		 821#ifdef ADDRESS_TO_POINTER
822#if GDB_MULTI_ARCH
823 /* Macro might contain `[{}]' when not multi-arch */
4b9b3959 824 fprintf_unfiltered (file,
08e45a40
AC		 825 "gdbarch_dump: %s # %s\n",
826 "ADDRESS_TO_POINTER(type, buf, addr)",
827 XSTRING (ADDRESS_TO_POINTER (type, buf, addr)));
4b9b3959 828#endif
08e45a40
AC		 829 if (GDB_MULTI_ARCH)
830 fprintf_unfiltered (file,
831 "gdbarch_dump: ADDRESS_TO_POINTER = 0x%08lx\n",
832 (long) current_gdbarch->address_to_pointer
833 /*ADDRESS_TO_POINTER ()*/);
4b9b3959 834#endif
5e74b15c
RE		 835#ifdef ADDR_BITS_REMOVE
836 fprintf_unfiltered (file,
837 "gdbarch_dump: %s # %s\n",
838 "ADDR_BITS_REMOVE(addr)",
839 XSTRING (ADDR_BITS_REMOVE (addr)));
840 if (GDB_MULTI_ARCH)
841 fprintf_unfiltered (file,
842 "gdbarch_dump: ADDR_BITS_REMOVE = 0x%08lx\n",
843 (long) current_gdbarch->addr_bits_remove
844 /*ADDR_BITS_REMOVE ()*/);
845#endif
08e45a40 846#ifdef BELIEVE_PCC_PROMOTION
4b9b3959 847 fprintf_unfiltered (file,
08e45a40
AC		 848 "gdbarch_dump: BELIEVE_PCC_PROMOTION # %s\n",
849 XSTRING (BELIEVE_PCC_PROMOTION));
850 fprintf_unfiltered (file,
06b25f14
AC		 851 "gdbarch_dump: BELIEVE_PCC_PROMOTION = %d\n",
852 BELIEVE_PCC_PROMOTION);
4b9b3959 853#endif
08e45a40 854#ifdef BELIEVE_PCC_PROMOTION_TYPE
4b9b3959 855 fprintf_unfiltered (file,
08e45a40
AC		 856 "gdbarch_dump: BELIEVE_PCC_PROMOTION_TYPE # %s\n",
857 XSTRING (BELIEVE_PCC_PROMOTION_TYPE));
858 fprintf_unfiltered (file,
06b25f14
AC		 859 "gdbarch_dump: BELIEVE_PCC_PROMOTION_TYPE = %d\n",
860 BELIEVE_PCC_PROMOTION_TYPE);
4b9b3959 861#endif
08e45a40 862#ifdef BREAKPOINT_FROM_PC
4b9b3959 863 fprintf_unfiltered (file,
08e45a40
AC		 864 "gdbarch_dump: %s # %s\n",
865 "BREAKPOINT_FROM_PC(pcptr, lenptr)",
866 XSTRING (BREAKPOINT_FROM_PC (pcptr, lenptr)));
867 if (GDB_MULTI_ARCH)
868 fprintf_unfiltered (file,
869 "gdbarch_dump: BREAKPOINT_FROM_PC = 0x%08lx\n",
870 (long) current_gdbarch->breakpoint_from_pc
871 /*BREAKPOINT_FROM_PC ()*/);
4b9b3959 872#endif
08e45a40 873#ifdef CALL_DUMMY_ADDRESS
4b9b3959 874 fprintf_unfiltered (file,
08e45a40
AC		 875 "gdbarch_dump: %s # %s\n",
876 "CALL_DUMMY_ADDRESS()",
877 XSTRING (CALL_DUMMY_ADDRESS ()));
878 if (GDB_MULTI_ARCH)
879 fprintf_unfiltered (file,
880 "gdbarch_dump: CALL_DUMMY_ADDRESS = 0x%08lx\n",
881 (long) current_gdbarch->call_dummy_address
882 /*CALL_DUMMY_ADDRESS ()*/);
4b9b3959 883#endif
08e45a40 884#ifdef CALL_DUMMY_BREAKPOINT_OFFSET
4b9b3959 885 fprintf_unfiltered (file,
08e45a40
AC		 886 "gdbarch_dump: CALL_DUMMY_BREAKPOINT_OFFSET # %s\n",
887 XSTRING (CALL_DUMMY_BREAKPOINT_OFFSET));
888 if (CALL_DUMMY_BREAKPOINT_OFFSET_P)
889 fprintf_unfiltered (file,
890 "gdbarch_dump: CALL_DUMMY_BREAKPOINT_OFFSET = 0x%08lx\n",
891 (long) CALL_DUMMY_BREAKPOINT_OFFSET);
4b9b3959 892#endif
08e45a40 893#ifdef CALL_DUMMY_BREAKPOINT_OFFSET_P
4b9b3959 894 fprintf_unfiltered (file,
08e45a40
AC		 895 "gdbarch_dump: CALL_DUMMY_BREAKPOINT_OFFSET_P # %s\n",
896 XSTRING (CALL_DUMMY_BREAKPOINT_OFFSET_P));
897 fprintf_unfiltered (file,
06b25f14
AC		 898 "gdbarch_dump: CALL_DUMMY_BREAKPOINT_OFFSET_P = %d\n",
899 CALL_DUMMY_BREAKPOINT_OFFSET_P);
4b9b3959 900#endif
08e45a40 901#ifdef CALL_DUMMY_LENGTH
66b43ecb 902 fprintf_unfiltered (file,
08e45a40
AC		 903 "gdbarch_dump: CALL_DUMMY_LENGTH # %s\n",
904 XSTRING (CALL_DUMMY_LENGTH));
905 if (CALL_DUMMY_LOCATION == BEFORE_TEXT_END || CALL_DUMMY_LOCATION == AFTER_TEXT_END)
906 fprintf_unfiltered (file,
06b25f14
AC		 907 "gdbarch_dump: CALL_DUMMY_LENGTH = %d\n",
908 CALL_DUMMY_LENGTH);
66b43ecb 909#endif
08e45a40 910#ifdef CALL_DUMMY_LOCATION
52204a0b 911 fprintf_unfiltered (file,
08e45a40
AC		 912 "gdbarch_dump: CALL_DUMMY_LOCATION # %s\n",
913 XSTRING (CALL_DUMMY_LOCATION));
914 fprintf_unfiltered (file,
06b25f14
AC		 915 "gdbarch_dump: CALL_DUMMY_LOCATION = %d\n",
916 CALL_DUMMY_LOCATION);
52204a0b 917#endif
08e45a40 918#ifdef CALL_DUMMY_P
66b43ecb 919 fprintf_unfiltered (file,
08e45a40
AC		 920 "gdbarch_dump: CALL_DUMMY_P # %s\n",
921 XSTRING (CALL_DUMMY_P));
922 fprintf_unfiltered (file,
06b25f14
AC		 923 "gdbarch_dump: CALL_DUMMY_P = %d\n",
924 CALL_DUMMY_P);
66b43ecb 925#endif
08e45a40 926#ifdef CALL_DUMMY_STACK_ADJUST
4b9b3959 927 fprintf_unfiltered (file,
08e45a40
AC		 928 "gdbarch_dump: CALL_DUMMY_STACK_ADJUST # %s\n",
929 XSTRING (CALL_DUMMY_STACK_ADJUST));
930 if (CALL_DUMMY_STACK_ADJUST_P)
931 fprintf_unfiltered (file,
932 "gdbarch_dump: CALL_DUMMY_STACK_ADJUST = 0x%08lx\n",
933 (long) CALL_DUMMY_STACK_ADJUST);
4b9b3959 934#endif
08e45a40 935#ifdef CALL_DUMMY_STACK_ADJUST_P
4b9b3959 936 fprintf_unfiltered (file,
08e45a40
AC		 937 "gdbarch_dump: CALL_DUMMY_STACK_ADJUST_P # %s\n",
938 XSTRING (CALL_DUMMY_STACK_ADJUST_P));
939 fprintf_unfiltered (file,
940 "gdbarch_dump: CALL_DUMMY_STACK_ADJUST_P = 0x%08lx\n",
941 (long) CALL_DUMMY_STACK_ADJUST_P);
4b9b3959 942#endif
08e45a40 943#ifdef CALL_DUMMY_START_OFFSET
4b9b3959 944 fprintf_unfiltered (file,
08e45a40
AC		 945 "gdbarch_dump: CALL_DUMMY_START_OFFSET # %s\n",
946 XSTRING (CALL_DUMMY_START_OFFSET));
947 fprintf_unfiltered (file,
948 "gdbarch_dump: CALL_DUMMY_START_OFFSET = 0x%08lx\n",
949 (long) CALL_DUMMY_START_OFFSET);
4b9b3959 950#endif
08e45a40 951#ifdef CALL_DUMMY_WORDS
4b9b3959 952 fprintf_unfiltered (file,
08e45a40
AC		 953 "gdbarch_dump: CALL_DUMMY_WORDS # %s\n",
954 XSTRING (CALL_DUMMY_WORDS));
955 fprintf_unfiltered (file,
956 "gdbarch_dump: CALL_DUMMY_WORDS = 0x%08lx\n",
957 (long) CALL_DUMMY_WORDS);
4b9b3959 958#endif
08e45a40 959#ifdef CANNOT_FETCH_REGISTER
4b9b3959
AC		 960 fprintf_unfiltered (file,
961 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 962 "CANNOT_FETCH_REGISTER(regnum)",
963 XSTRING (CANNOT_FETCH_REGISTER (regnum)));
964 if (GDB_MULTI_ARCH)
965 fprintf_unfiltered (file,
966 "gdbarch_dump: CANNOT_FETCH_REGISTER = 0x%08lx\n",
967 (long) current_gdbarch->cannot_fetch_register
968 /*CANNOT_FETCH_REGISTER ()*/);
4b9b3959 969#endif
08e45a40 970#ifdef CANNOT_STORE_REGISTER
4b9b3959
AC		 971 fprintf_unfiltered (file,
972 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 973 "CANNOT_STORE_REGISTER(regnum)",
974 XSTRING (CANNOT_STORE_REGISTER (regnum)));
975 if (GDB_MULTI_ARCH)
976 fprintf_unfiltered (file,
977 "gdbarch_dump: CANNOT_STORE_REGISTER = 0x%08lx\n",
978 (long) current_gdbarch->cannot_store_register
979 /*CANNOT_STORE_REGISTER ()*/);
4b9b3959 980#endif
08e45a40 981#ifdef COERCE_FLOAT_TO_DOUBLE
4b9b3959
AC		 982 fprintf_unfiltered (file,
983 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 984 "COERCE_FLOAT_TO_DOUBLE(formal, actual)",
985 XSTRING (COERCE_FLOAT_TO_DOUBLE (formal, actual)));
986 if (GDB_MULTI_ARCH)
987 fprintf_unfiltered (file,
988 "gdbarch_dump: COERCE_FLOAT_TO_DOUBLE = 0x%08lx\n",
989 (long) current_gdbarch->coerce_float_to_double
990 /*COERCE_FLOAT_TO_DOUBLE ()*/);
a2cf933a
EZ		 991#endif
992#ifdef COFF_MAKE_MSYMBOL_SPECIAL
993#if GDB_MULTI_ARCH
994 /* Macro might contain `[{}]' when not multi-arch */
995 fprintf_unfiltered (file,
996 "gdbarch_dump: %s # %s\n",
997 "COFF_MAKE_MSYMBOL_SPECIAL(val, msym)",
998 XSTRING (COFF_MAKE_MSYMBOL_SPECIAL (val, msym)));
999#endif
1000 if (GDB_MULTI_ARCH)
1001 fprintf_unfiltered (file,
1002 "gdbarch_dump: COFF_MAKE_MSYMBOL_SPECIAL = 0x%08lx\n",
1003 (long) current_gdbarch->coff_make_msymbol_special
1004 /*COFF_MAKE_MSYMBOL_SPECIAL ()*/);
4b9b3959 1005#endif
552c04a7
TT		 1006 if (GDB_MULTI_ARCH)
1007 fprintf_unfiltered (file,
1008 "gdbarch_dump: construct_inferior_arguments = 0x%08lx\n",
1009 (long) current_gdbarch->construct_inferior_arguments);
08e45a40 1010#ifdef CONVERT_FROM_FUNC_PTR_ADDR
39d4ef09
AC		 1011 fprintf_unfiltered (file,
1012 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1013 "CONVERT_FROM_FUNC_PTR_ADDR(addr)",
1014 XSTRING (CONVERT_FROM_FUNC_PTR_ADDR (addr)));
1015 if (GDB_MULTI_ARCH)
1016 fprintf_unfiltered (file,
1017 "gdbarch_dump: CONVERT_FROM_FUNC_PTR_ADDR = 0x%08lx\n",
1018 (long) current_gdbarch->convert_from_func_ptr_addr
1019 /*CONVERT_FROM_FUNC_PTR_ADDR ()*/);
39d4ef09 1020#endif
08e45a40 1021#ifdef DECR_PC_AFTER_BREAK
4b9b3959 1022 fprintf_unfiltered (file,
08e45a40
AC		 1023 "gdbarch_dump: DECR_PC_AFTER_BREAK # %s\n",
1024 XSTRING (DECR_PC_AFTER_BREAK));
0aba1244 1025 fprintf_unfiltered (file,
08e45a40
AC		 1026 "gdbarch_dump: DECR_PC_AFTER_BREAK = %ld\n",
1027 (long) DECR_PC_AFTER_BREAK);
0aba1244 1028#endif
08e45a40
AC		 1029#ifdef DO_REGISTERS_INFO
1030#if GDB_MULTI_ARCH
1031 /* Macro might contain `[{}]' when not multi-arch */
4b9b3959 1032 fprintf_unfiltered (file,
08e45a40
AC		 1033 "gdbarch_dump: %s # %s\n",
1034 "DO_REGISTERS_INFO(reg_nr, fpregs)",
1035 XSTRING (DO_REGISTERS_INFO (reg_nr, fpregs)));
4b9b3959 1036#endif
08e45a40
AC		 1037 if (GDB_MULTI_ARCH)
1038 fprintf_unfiltered (file,
1039 "gdbarch_dump: DO_REGISTERS_INFO = 0x%08lx\n",
1040 (long) current_gdbarch->do_registers_info
1041 /*DO_REGISTERS_INFO ()*/);
4b9b3959 1042#endif
b6af0555
JS		 1043#ifdef DWARF2_BUILD_FRAME_INFO
1044#if GDB_MULTI_ARCH
1045 /* Macro might contain `[{}]' when not multi-arch */
1046 fprintf_unfiltered (file,
1047 "gdbarch_dump: %s # %s\n",
1048 "DWARF2_BUILD_FRAME_INFO(objfile)",
1049 XSTRING (DWARF2_BUILD_FRAME_INFO (objfile)));
1050#endif
1051 if (GDB_MULTI_ARCH)
1052 fprintf_unfiltered (file,
1053 "gdbarch_dump: DWARF2_BUILD_FRAME_INFO = 0x%08lx\n",
1054 (long) current_gdbarch->dwarf2_build_frame_info
1055 /*DWARF2_BUILD_FRAME_INFO ()*/);
1056#endif
08e45a40 1057#ifdef DWARF2_REG_TO_REGNUM
4b9b3959 1058 fprintf_unfiltered (file,
08e45a40
AC		 1059 "gdbarch_dump: %s # %s\n",
1060 "DWARF2_REG_TO_REGNUM(dwarf2_regnr)",
1061 XSTRING (DWARF2_REG_TO_REGNUM (dwarf2_regnr)));
1062 if (GDB_MULTI_ARCH)
1063 fprintf_unfiltered (file,
1064 "gdbarch_dump: DWARF2_REG_TO_REGNUM = 0x%08lx\n",
1065 (long) current_gdbarch->dwarf2_reg_to_regnum
1066 /*DWARF2_REG_TO_REGNUM ()*/);
4b9b3959 1067#endif
08e45a40 1068#ifdef DWARF_REG_TO_REGNUM
88c72b7d
AC		 1069 fprintf_unfiltered (file,
1070 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1071 "DWARF_REG_TO_REGNUM(dwarf_regnr)",
1072 XSTRING (DWARF_REG_TO_REGNUM (dwarf_regnr)));
1073 if (GDB_MULTI_ARCH)
1074 fprintf_unfiltered (file,
1075 "gdbarch_dump: DWARF_REG_TO_REGNUM = 0x%08lx\n",
1076 (long) current_gdbarch->dwarf_reg_to_regnum
1077 /*DWARF_REG_TO_REGNUM ()*/);
88c72b7d
AC		 1078#endif
1079#ifdef ECOFF_REG_TO_REGNUM
1080 fprintf_unfiltered (file,
1081 "gdbarch_dump: %s # %s\n",
1082 "ECOFF_REG_TO_REGNUM(ecoff_regnr)",
1083 XSTRING (ECOFF_REG_TO_REGNUM (ecoff_regnr)));
08e45a40
AC		 1084 if (GDB_MULTI_ARCH)
1085 fprintf_unfiltered (file,
1086 "gdbarch_dump: ECOFF_REG_TO_REGNUM = 0x%08lx\n",
1087 (long) current_gdbarch->ecoff_reg_to_regnum
1088 /*ECOFF_REG_TO_REGNUM ()*/);
88c72b7d 1089#endif
a2cf933a
EZ		 1090#ifdef ELF_MAKE_MSYMBOL_SPECIAL
1091#if GDB_MULTI_ARCH
1092 /* Macro might contain `[{}]' when not multi-arch */
1093 fprintf_unfiltered (file,
1094 "gdbarch_dump: %s # %s\n",
1095 "ELF_MAKE_MSYMBOL_SPECIAL(sym, msym)",
1096 XSTRING (ELF_MAKE_MSYMBOL_SPECIAL (sym, msym)));
1097#endif
1098 if (GDB_MULTI_ARCH)
1099 fprintf_unfiltered (file,
1100 "gdbarch_dump: ELF_MAKE_MSYMBOL_SPECIAL = 0x%08lx\n",
1101 (long) current_gdbarch->elf_make_msymbol_special
1102 /*ELF_MAKE_MSYMBOL_SPECIAL ()*/);
1103#endif
08e45a40
AC		 1104#ifdef EXTRACT_RETURN_VALUE
1105#if GDB_MULTI_ARCH
1106 /* Macro might contain `[{}]' when not multi-arch */
88c72b7d
AC		 1107 fprintf_unfiltered (file,
1108 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1109 "EXTRACT_RETURN_VALUE(type, regbuf, valbuf)",
1110 XSTRING (EXTRACT_RETURN_VALUE (type, regbuf, valbuf)));
88c72b7d 1111#endif
08e45a40
AC		 1112 if (GDB_MULTI_ARCH)
1113 fprintf_unfiltered (file,
1114 "gdbarch_dump: EXTRACT_RETURN_VALUE = 0x%08lx\n",
1115 (long) current_gdbarch->extract_return_value
1116 /*EXTRACT_RETURN_VALUE ()*/);
1117#endif
1118#ifdef EXTRACT_STRUCT_VALUE_ADDRESS
88c72b7d
AC		 1119 fprintf_unfiltered (file,
1120 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1121 "EXTRACT_STRUCT_VALUE_ADDRESS(regbuf)",
1122 XSTRING (EXTRACT_STRUCT_VALUE_ADDRESS (regbuf)));
1123 if (GDB_MULTI_ARCH)
1124 fprintf_unfiltered (file,
1125 "gdbarch_dump: EXTRACT_STRUCT_VALUE_ADDRESS = 0x%08lx\n",
1126 (long) current_gdbarch->extract_struct_value_address
1127 /*EXTRACT_STRUCT_VALUE_ADDRESS ()*/);
88c72b7d 1128#endif
08e45a40
AC		 1129#ifdef EXTRA_STACK_ALIGNMENT_NEEDED
1130 fprintf_unfiltered (file,
1131 "gdbarch_dump: EXTRA_STACK_ALIGNMENT_NEEDED # %s\n",
1132 XSTRING (EXTRA_STACK_ALIGNMENT_NEEDED));
1133 fprintf_unfiltered (file,
06b25f14
AC		 1134 "gdbarch_dump: EXTRA_STACK_ALIGNMENT_NEEDED = %d\n",
1135 EXTRA_STACK_ALIGNMENT_NEEDED);
08e45a40
AC		 1136#endif
1137#ifdef FETCH_PSEUDO_REGISTER
1138#if GDB_MULTI_ARCH
1139 /* Macro might contain `[{}]' when not multi-arch */
88c72b7d
AC		 1140 fprintf_unfiltered (file,
1141 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1142 "FETCH_PSEUDO_REGISTER(regnum)",
1143 XSTRING (FETCH_PSEUDO_REGISTER (regnum)));
88c72b7d 1144#endif
08e45a40
AC		 1145 if (GDB_MULTI_ARCH)
1146 fprintf_unfiltered (file,
1147 "gdbarch_dump: FETCH_PSEUDO_REGISTER = 0x%08lx\n",
1148 (long) current_gdbarch->fetch_pseudo_register
1149 /*FETCH_PSEUDO_REGISTER ()*/);
1150#endif
1151#ifdef FIX_CALL_DUMMY
1152#if GDB_MULTI_ARCH
1153 /* Macro might contain `[{}]' when not multi-arch */
4b9b3959
AC		 1154 fprintf_unfiltered (file,
1155 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1156 "FIX_CALL_DUMMY(dummy, pc, fun, nargs, args, type, gcc_p)",
1157 XSTRING (FIX_CALL_DUMMY (dummy, pc, fun, nargs, args, type, gcc_p)));
4b9b3959 1158#endif
08e45a40
AC		 1159 if (GDB_MULTI_ARCH)
1160 fprintf_unfiltered (file,
1161 "gdbarch_dump: FIX_CALL_DUMMY = 0x%08lx\n",
1162 (long) current_gdbarch->fix_call_dummy
1163 /*FIX_CALL_DUMMY ()*/);
1164#endif
1165#ifdef FP0_REGNUM
4b9b3959 1166 fprintf_unfiltered (file,
08e45a40
AC		 1167 "gdbarch_dump: FP0_REGNUM # %s\n",
1168 XSTRING (FP0_REGNUM));
1169 fprintf_unfiltered (file,
06b25f14
AC		 1170 "gdbarch_dump: FP0_REGNUM = %d\n",
1171 FP0_REGNUM);
4b9b3959 1172#endif
08e45a40 1173#ifdef FP_REGNUM
4b9b3959 1174 fprintf_unfiltered (file,
08e45a40
AC		 1175 "gdbarch_dump: FP_REGNUM # %s\n",
1176 XSTRING (FP_REGNUM));
1177 fprintf_unfiltered (file,
06b25f14
AC		 1178 "gdbarch_dump: FP_REGNUM = %d\n",
1179 FP_REGNUM);
4b9b3959 1180#endif
5e74b15c
RE		 1181#ifdef FRAMELESS_FUNCTION_INVOCATION
1182 fprintf_unfiltered (file,
1183 "gdbarch_dump: %s # %s\n",
1184 "FRAMELESS_FUNCTION_INVOCATION(fi)",
1185 XSTRING (FRAMELESS_FUNCTION_INVOCATION (fi)));
1186 if (GDB_MULTI_ARCH)
1187 fprintf_unfiltered (file,
1188 "gdbarch_dump: FRAMELESS_FUNCTION_INVOCATION = 0x%08lx\n",
1189 (long) current_gdbarch->frameless_function_invocation
1190 /*FRAMELESS_FUNCTION_INVOCATION ()*/);
1191#endif
08e45a40 1192#ifdef FRAME_ARGS_ADDRESS
4b9b3959
AC		 1193 fprintf_unfiltered (file,
1194 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1195 "FRAME_ARGS_ADDRESS(fi)",
1196 XSTRING (FRAME_ARGS_ADDRESS (fi)));
1197 if (GDB_MULTI_ARCH)
1198 fprintf_unfiltered (file,
1199 "gdbarch_dump: FRAME_ARGS_ADDRESS = 0x%08lx\n",
1200 (long) current_gdbarch->frame_args_address
1201 /*FRAME_ARGS_ADDRESS ()*/);
4b9b3959 1202#endif
08e45a40 1203#ifdef FRAME_ARGS_SKIP
4b9b3959 1204 fprintf_unfiltered (file,
08e45a40
AC		 1205 "gdbarch_dump: FRAME_ARGS_SKIP # %s\n",
1206 XSTRING (FRAME_ARGS_SKIP));
4b9b3959 1207 fprintf_unfiltered (file,
08e45a40
AC		 1208 "gdbarch_dump: FRAME_ARGS_SKIP = %ld\n",
1209 (long) FRAME_ARGS_SKIP);
4b9b3959 1210#endif
08e45a40 1211#ifdef FRAME_CHAIN
4b9b3959 1212 fprintf_unfiltered (file,
08e45a40
AC		 1213 "gdbarch_dump: %s # %s\n",
1214 "FRAME_CHAIN(frame)",
1215 XSTRING (FRAME_CHAIN (frame)));
1216 if (GDB_MULTI_ARCH)
1217 fprintf_unfiltered (file,
1218 "gdbarch_dump: FRAME_CHAIN = 0x%08lx\n",
1219 (long) current_gdbarch->frame_chain
1220 /*FRAME_CHAIN ()*/);
4b9b3959 1221#endif
08e45a40 1222#ifdef FRAME_CHAIN_VALID
4b9b3959
AC		 1223 fprintf_unfiltered (file,
1224 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1225 "FRAME_CHAIN_VALID(chain, thisframe)",
1226 XSTRING (FRAME_CHAIN_VALID (chain, thisframe)));
1227 if (GDB_MULTI_ARCH)
1228 fprintf_unfiltered (file,
1229 "gdbarch_dump: FRAME_CHAIN_VALID = 0x%08lx\n",
1230 (long) current_gdbarch->frame_chain_valid
1231 /*FRAME_CHAIN_VALID ()*/);
4b9b3959 1232#endif
08e45a40
AC		 1233#ifdef FRAME_INIT_SAVED_REGS
1234#if GDB_MULTI_ARCH
666e11c5
EZ		 1235 /* Macro might contain `[{}]' when not multi-arch */
1236 fprintf_unfiltered (file,
1237 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1238 "FRAME_INIT_SAVED_REGS(frame)",
1239 XSTRING (FRAME_INIT_SAVED_REGS (frame)));
666e11c5 1240#endif
08e45a40
AC		 1241 if (GDB_MULTI_ARCH)
1242 fprintf_unfiltered (file,
1243 "gdbarch_dump: FRAME_INIT_SAVED_REGS = 0x%08lx\n",
1244 (long) current_gdbarch->frame_init_saved_regs
1245 /*FRAME_INIT_SAVED_REGS ()*/);
7c7651b2 1246#endif
08e45a40 1247#ifdef FRAME_LOCALS_ADDRESS
2649061d
AC		 1248 fprintf_unfiltered (file,
1249 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1250 "FRAME_LOCALS_ADDRESS(fi)",
1251 XSTRING (FRAME_LOCALS_ADDRESS (fi)));
1252 if (GDB_MULTI_ARCH)
1253 fprintf_unfiltered (file,
1254 "gdbarch_dump: FRAME_LOCALS_ADDRESS = 0x%08lx\n",
1255 (long) current_gdbarch->frame_locals_address
1256 /*FRAME_LOCALS_ADDRESS ()*/);
2649061d 1257#endif
08e45a40 1258#ifdef FRAME_NUM_ARGS
01fb7433
AC		 1259 fprintf_unfiltered (file,
1260 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1261 "FRAME_NUM_ARGS(frame)",
1262 XSTRING (FRAME_NUM_ARGS (frame)));
1263 if (GDB_MULTI_ARCH)
1264 fprintf_unfiltered (file,
1265 "gdbarch_dump: FRAME_NUM_ARGS = 0x%08lx\n",
1266 (long) current_gdbarch->frame_num_args
1267 /*FRAME_NUM_ARGS ()*/);
01fb7433 1268#endif
08e45a40 1269#ifdef FRAME_SAVED_PC
01fb7433
AC		 1270 fprintf_unfiltered (file,
1271 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1272 "FRAME_SAVED_PC(fi)",
1273 XSTRING (FRAME_SAVED_PC (fi)));
1274 if (GDB_MULTI_ARCH)
1275 fprintf_unfiltered (file,
1276 "gdbarch_dump: FRAME_SAVED_PC = 0x%08lx\n",
1277 (long) current_gdbarch->frame_saved_pc
1278 /*FRAME_SAVED_PC ()*/);
01fb7433 1279#endif
08e45a40 1280#ifdef FUNCTION_START_OFFSET
4b9b3959 1281 fprintf_unfiltered (file,
08e45a40
AC		 1282 "gdbarch_dump: FUNCTION_START_OFFSET # %s\n",
1283 XSTRING (FUNCTION_START_OFFSET));
4b9b3959 1284 fprintf_unfiltered (file,
08e45a40
AC		 1285 "gdbarch_dump: FUNCTION_START_OFFSET = %ld\n",
1286 (long) FUNCTION_START_OFFSET);
4b9b3959 1287#endif
9df628e0
RE		 1288#ifdef GET_LONGJMP_TARGET
1289 fprintf_unfiltered (file,
1290 "gdbarch_dump: %s # %s\n",
1291 "GET_LONGJMP_TARGET(pc)",
1292 XSTRING (GET_LONGJMP_TARGET (pc)));
1293 if (GDB_MULTI_ARCH)
1294 fprintf_unfiltered (file,
1295 "gdbarch_dump: GET_LONGJMP_TARGET = 0x%08lx\n",
1296 (long) current_gdbarch->get_longjmp_target
1297 /*GET_LONGJMP_TARGET ()*/);
1298#endif
08e45a40
AC		 1299#ifdef GET_SAVED_REGISTER
1300#if GDB_MULTI_ARCH
1301 /* Macro might contain `[{}]' when not multi-arch */
4b9b3959
AC		 1302 fprintf_unfiltered (file,
1303 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1304 "GET_SAVED_REGISTER(raw_buffer, optimized, addrp, frame, regnum, lval)",
1305 XSTRING (GET_SAVED_REGISTER (raw_buffer, optimized, addrp, frame, regnum, lval)));
4b9b3959 1306#endif
08e45a40
AC		 1307 if (GDB_MULTI_ARCH)
1308 fprintf_unfiltered (file,
1309 "gdbarch_dump: GET_SAVED_REGISTER = 0x%08lx\n",
1310 (long) current_gdbarch->get_saved_register
1311 /*GET_SAVED_REGISTER ()*/);
4b9b3959 1312#endif
08e45a40
AC		 1313#ifdef INIT_EXTRA_FRAME_INFO
1314#if GDB_MULTI_ARCH
1315 /* Macro might contain `[{}]' when not multi-arch */
4b9b3959
AC		 1316 fprintf_unfiltered (file,
1317 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1318 "INIT_EXTRA_FRAME_INFO(fromleaf, frame)",
1319 XSTRING (INIT_EXTRA_FRAME_INFO (fromleaf, frame)));
4b9b3959 1320#endif
08e45a40
AC		 1321 if (GDB_MULTI_ARCH)
1322 fprintf_unfiltered (file,
1323 "gdbarch_dump: INIT_EXTRA_FRAME_INFO = 0x%08lx\n",
1324 (long) current_gdbarch->init_extra_frame_info
1325 /*INIT_EXTRA_FRAME_INFO ()*/);
4b9b3959 1326#endif
5e74b15c 1327#ifdef INIT_FRAME_PC
08e45a40 1328#if GDB_MULTI_ARCH
63e69063 1329 /* Macro might contain `[{}]' when not multi-arch */
4b9b3959
AC		 1330 fprintf_unfiltered (file,
1331 "gdbarch_dump: %s # %s\n",
5e74b15c
RE		 1332 "INIT_FRAME_PC(fromleaf, prev)",
1333 XSTRING (INIT_FRAME_PC (fromleaf, prev)));
08e45a40
AC		 1334#endif
1335 if (GDB_MULTI_ARCH)
1336 fprintf_unfiltered (file,
5e74b15c
RE		 1337 "gdbarch_dump: INIT_FRAME_PC = 0x%08lx\n",
1338 (long) current_gdbarch->init_frame_pc
1339 /*INIT_FRAME_PC ()*/);
4b9b3959 1340#endif
5e74b15c 1341#ifdef INIT_FRAME_PC_FIRST
08e45a40 1342#if GDB_MULTI_ARCH
10312cc4
AC		 1343 /* Macro might contain `[{}]' when not multi-arch */
1344 fprintf_unfiltered (file,
1345 "gdbarch_dump: %s # %s\n",
5e74b15c
RE		 1346 "INIT_FRAME_PC_FIRST(fromleaf, prev)",
1347 XSTRING (INIT_FRAME_PC_FIRST (fromleaf, prev)));
10312cc4 1348#endif
08e45a40
AC		 1349 if (GDB_MULTI_ARCH)
1350 fprintf_unfiltered (file,
5e74b15c
RE		 1351 "gdbarch_dump: INIT_FRAME_PC_FIRST = 0x%08lx\n",
1352 (long) current_gdbarch->init_frame_pc_first
1353 /*INIT_FRAME_PC_FIRST ()*/);
08e45a40
AC		 1354#endif
1355#ifdef INNER_THAN
10312cc4
AC		 1356 fprintf_unfiltered (file,
1357 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1358 "INNER_THAN(lhs, rhs)",
1359 XSTRING (INNER_THAN (lhs, rhs)));
1360 if (GDB_MULTI_ARCH)
1361 fprintf_unfiltered (file,
1362 "gdbarch_dump: INNER_THAN = 0x%08lx\n",
1363 (long) current_gdbarch->inner_than
1364 /*INNER_THAN ()*/);
10312cc4 1365#endif
fc0c74b1
AC		 1366#ifdef INTEGER_TO_ADDRESS
1367 fprintf_unfiltered (file,
1368 "gdbarch_dump: %s # %s\n",
1369 "INTEGER_TO_ADDRESS(type, buf)",
1370 XSTRING (INTEGER_TO_ADDRESS (type, buf)));
1371 if (GDB_MULTI_ARCH)
1372 fprintf_unfiltered (file,
1373 "gdbarch_dump: INTEGER_TO_ADDRESS = 0x%08lx\n",
1374 (long) current_gdbarch->integer_to_address
1375 /*INTEGER_TO_ADDRESS ()*/);
1376#endif
5e74b15c
RE		 1377#ifdef IN_SOLIB_CALL_TRAMPOLINE
1378 fprintf_unfiltered (file,
1379 "gdbarch_dump: %s # %s\n",
1380 "IN_SOLIB_CALL_TRAMPOLINE(pc, name)",
1381 XSTRING (IN_SOLIB_CALL_TRAMPOLINE (pc, name)));
68e9cc94
CV		 1382 if (GDB_MULTI_ARCH)
1383 fprintf_unfiltered (file,
5e74b15c
RE		 1384 "gdbarch_dump: IN_SOLIB_CALL_TRAMPOLINE = 0x%08lx\n",
1385 (long) current_gdbarch->in_solib_call_trampoline
1386 /*IN_SOLIB_CALL_TRAMPOLINE ()*/);
1387#endif
08e45a40 1388#ifdef MAX_REGISTER_RAW_SIZE
4b9b3959 1389 fprintf_unfiltered (file,
08e45a40
AC		 1390 "gdbarch_dump: MAX_REGISTER_RAW_SIZE # %s\n",
1391 XSTRING (MAX_REGISTER_RAW_SIZE));
1392 fprintf_unfiltered (file,
06b25f14
AC		 1393 "gdbarch_dump: MAX_REGISTER_RAW_SIZE = %d\n",
1394 MAX_REGISTER_RAW_SIZE);
4b9b3959 1395#endif
08e45a40 1396#ifdef MAX_REGISTER_VIRTUAL_SIZE
4b9b3959 1397 fprintf_unfiltered (file,
08e45a40
AC		 1398 "gdbarch_dump: MAX_REGISTER_VIRTUAL_SIZE # %s\n",
1399 XSTRING (MAX_REGISTER_VIRTUAL_SIZE));
1400 fprintf_unfiltered (file,
06b25f14
AC		 1401 "gdbarch_dump: MAX_REGISTER_VIRTUAL_SIZE = %d\n",
1402 MAX_REGISTER_VIRTUAL_SIZE);
4b9b3959 1403#endif
08e45a40 1404#ifdef MEMORY_INSERT_BREAKPOINT
4b9b3959
AC		 1405 fprintf_unfiltered (file,
1406 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1407 "MEMORY_INSERT_BREAKPOINT(addr, contents_cache)",
1408 XSTRING (MEMORY_INSERT_BREAKPOINT (addr, contents_cache)));
1409 if (GDB_MULTI_ARCH)
1410 fprintf_unfiltered (file,
1411 "gdbarch_dump: MEMORY_INSERT_BREAKPOINT = 0x%08lx\n",
1412 (long) current_gdbarch->memory_insert_breakpoint
1413 /*MEMORY_INSERT_BREAKPOINT ()*/);
4b9b3959 1414#endif
08e45a40 1415#ifdef MEMORY_REMOVE_BREAKPOINT
4b9b3959
AC		 1416 fprintf_unfiltered (file,
1417 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1418 "MEMORY_REMOVE_BREAKPOINT(addr, contents_cache)",
1419 XSTRING (MEMORY_REMOVE_BREAKPOINT (addr, contents_cache)));
1420 if (GDB_MULTI_ARCH)
1421 fprintf_unfiltered (file,
1422 "gdbarch_dump: MEMORY_REMOVE_BREAKPOINT = 0x%08lx\n",
1423 (long) current_gdbarch->memory_remove_breakpoint
1424 /*MEMORY_REMOVE_BREAKPOINT ()*/);
4b9b3959 1425#endif
08e45a40 1426#ifdef NNPC_REGNUM
4b9b3959 1427 fprintf_unfiltered (file,
08e45a40
AC		 1428 "gdbarch_dump: NNPC_REGNUM # %s\n",
1429 XSTRING (NNPC_REGNUM));
1430 fprintf_unfiltered (file,
06b25f14
AC		 1431 "gdbarch_dump: NNPC_REGNUM = %d\n",
1432 NNPC_REGNUM);
4b9b3959 1433#endif
08e45a40 1434#ifdef NPC_REGNUM
4b9b3959 1435 fprintf_unfiltered (file,
08e45a40
AC		 1436 "gdbarch_dump: NPC_REGNUM # %s\n",
1437 XSTRING (NPC_REGNUM));
1438 fprintf_unfiltered (file,
06b25f14
AC		 1439 "gdbarch_dump: NPC_REGNUM = %d\n",
1440 NPC_REGNUM);
4b9b3959 1441#endif
08e45a40 1442#ifdef NUM_PSEUDO_REGS
4b9b3959 1443 fprintf_unfiltered (file,
08e45a40
AC		 1444 "gdbarch_dump: NUM_PSEUDO_REGS # %s\n",
1445 XSTRING (NUM_PSEUDO_REGS));
1446 fprintf_unfiltered (file,
06b25f14
AC		 1447 "gdbarch_dump: NUM_PSEUDO_REGS = %d\n",
1448 NUM_PSEUDO_REGS);
4b9b3959 1449#endif
08e45a40 1450#ifdef NUM_REGS
7f1b2585 1451 fprintf_unfiltered (file,
08e45a40
AC		 1452 "gdbarch_dump: NUM_REGS # %s\n",
1453 XSTRING (NUM_REGS));
1454 fprintf_unfiltered (file,
06b25f14
AC		 1455 "gdbarch_dump: NUM_REGS = %d\n",
1456 NUM_REGS);
7f1b2585 1457#endif
08e45a40
AC		 1458#ifdef PARM_BOUNDARY
1459 fprintf_unfiltered (file,
1460 "gdbarch_dump: PARM_BOUNDARY # %s\n",
1461 XSTRING (PARM_BOUNDARY));
1462 fprintf_unfiltered (file,
06b25f14
AC		 1463 "gdbarch_dump: PARM_BOUNDARY = %d\n",
1464 PARM_BOUNDARY);
08e45a40
AC		 1465#endif
1466#ifdef PC_IN_CALL_DUMMY
7f1b2585
EZ		 1467 fprintf_unfiltered (file,
1468 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1469 "PC_IN_CALL_DUMMY(pc, sp, frame_address)",
1470 XSTRING (PC_IN_CALL_DUMMY (pc, sp, frame_address)));
1471 if (GDB_MULTI_ARCH)
1472 fprintf_unfiltered (file,
1473 "gdbarch_dump: PC_IN_CALL_DUMMY = 0x%08lx\n",
1474 (long) current_gdbarch->pc_in_call_dummy
1475 /*PC_IN_CALL_DUMMY ()*/);
1476#endif
1477#ifdef PC_REGNUM
1478 fprintf_unfiltered (file,
1479 "gdbarch_dump: PC_REGNUM # %s\n",
1480 XSTRING (PC_REGNUM));
1481 fprintf_unfiltered (file,
06b25f14
AC		 1482 "gdbarch_dump: PC_REGNUM = %d\n",
1483 PC_REGNUM);
7f1b2585 1484#endif
4b9b3959
AC		 1485#ifdef POINTER_TO_ADDRESS
1486 fprintf_unfiltered (file,
1487 "gdbarch_dump: %s # %s\n",
1488 "POINTER_TO_ADDRESS(type, buf)",
1489 XSTRING (POINTER_TO_ADDRESS (type, buf)));
08e45a40
AC		 1490 if (GDB_MULTI_ARCH)
1491 fprintf_unfiltered (file,
1492 "gdbarch_dump: POINTER_TO_ADDRESS = 0x%08lx\n",
1493 (long) current_gdbarch->pointer_to_address
1494 /*POINTER_TO_ADDRESS ()*/);
4b9b3959 1495#endif
08e45a40
AC		 1496#ifdef POP_FRAME
1497#if GDB_MULTI_ARCH
63e69063 1498 /* Macro might contain `[{}]' when not multi-arch */
4b9b3959
AC		 1499 fprintf_unfiltered (file,
1500 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1501 "POP_FRAME(-)",
1502 XSTRING (POP_FRAME (-)));
4b9b3959 1503#endif
08e45a40
AC		 1504 if (GDB_MULTI_ARCH)
1505 fprintf_unfiltered (file,
1506 "gdbarch_dump: POP_FRAME = 0x%08lx\n",
1507 (long) current_gdbarch->pop_frame
1508 /*POP_FRAME ()*/);
1509#endif
1510#ifdef PREPARE_TO_PROCEED
4b9b3959
AC		 1511 fprintf_unfiltered (file,
1512 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1513 "PREPARE_TO_PROCEED(select_it)",
1514 XSTRING (PREPARE_TO_PROCEED (select_it)));
1515 if (GDB_MULTI_ARCH)
1516 fprintf_unfiltered (file,
1517 "gdbarch_dump: PREPARE_TO_PROCEED = 0x%08lx\n",
1518 (long) current_gdbarch->prepare_to_proceed
1519 /*PREPARE_TO_PROCEED ()*/);
4b9b3959 1520#endif
5e74b15c
RE		 1521#ifdef PRINT_FLOAT_INFO
1522#if GDB_MULTI_ARCH
1523 /* Macro might contain `[{}]' when not multi-arch */
1524 fprintf_unfiltered (file,
1525 "gdbarch_dump: %s # %s\n",
1526 "PRINT_FLOAT_INFO()",
1527 XSTRING (PRINT_FLOAT_INFO ()));
1528#endif
1529 if (GDB_MULTI_ARCH)
1530 fprintf_unfiltered (file,
1531 "gdbarch_dump: PRINT_FLOAT_INFO = 0x%08lx\n",
1532 (long) current_gdbarch->print_float_info
1533 /*PRINT_FLOAT_INFO ()*/);
1534#endif
08e45a40 1535#ifdef PROLOGUE_FRAMELESS_P
4b9b3959
AC		 1536 fprintf_unfiltered (file,
1537 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1538 "PROLOGUE_FRAMELESS_P(ip)",
1539 XSTRING (PROLOGUE_FRAMELESS_P (ip)));
1540 if (GDB_MULTI_ARCH)
1541 fprintf_unfiltered (file,
1542 "gdbarch_dump: PROLOGUE_FRAMELESS_P = 0x%08lx\n",
1543 (long) current_gdbarch->prologue_frameless_p
1544 /*PROLOGUE_FRAMELESS_P ()*/);
4b9b3959
AC		 1545#endif
1546#ifdef PUSH_ARGUMENTS
1547 fprintf_unfiltered (file,
1548 "gdbarch_dump: %s # %s\n",
1549 "PUSH_ARGUMENTS(nargs, args, sp, struct_return, struct_addr)",
1550 XSTRING (PUSH_ARGUMENTS (nargs, args, sp, struct_return, struct_addr)));
08e45a40
AC		 1551 if (GDB_MULTI_ARCH)
1552 fprintf_unfiltered (file,
1553 "gdbarch_dump: PUSH_ARGUMENTS = 0x%08lx\n",
1554 (long) current_gdbarch->push_arguments
1555 /*PUSH_ARGUMENTS ()*/);
4b9b3959 1556#endif
08e45a40
AC		 1557#ifdef PUSH_DUMMY_FRAME
1558#if GDB_MULTI_ARCH
63e69063 1559 /* Macro might contain `[{}]' when not multi-arch */
4b9b3959
AC		 1560 fprintf_unfiltered (file,
1561 "gdbarch_dump: %s # %s\n",
1562 "PUSH_DUMMY_FRAME(-)",
1563 XSTRING (PUSH_DUMMY_FRAME (-)));
08e45a40
AC		 1564#endif
1565 if (GDB_MULTI_ARCH)
1566 fprintf_unfiltered (file,
1567 "gdbarch_dump: PUSH_DUMMY_FRAME = 0x%08lx\n",
1568 (long) current_gdbarch->push_dummy_frame
1569 /*PUSH_DUMMY_FRAME ()*/);
4b9b3959
AC		 1570#endif
1571#ifdef PUSH_RETURN_ADDRESS
1572 fprintf_unfiltered (file,
1573 "gdbarch_dump: %s # %s\n",
1574 "PUSH_RETURN_ADDRESS(pc, sp)",
1575 XSTRING (PUSH_RETURN_ADDRESS (pc, sp)));
08e45a40
AC		 1576 if (GDB_MULTI_ARCH)
1577 fprintf_unfiltered (file,
1578 "gdbarch_dump: PUSH_RETURN_ADDRESS = 0x%08lx\n",
1579 (long) current_gdbarch->push_return_address
1580 /*PUSH_RETURN_ADDRESS ()*/);
4b9b3959 1581#endif
08e45a40 1582#ifdef REGISTER_BYTE
4b9b3959
AC		 1583 fprintf_unfiltered (file,
1584 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1585 "REGISTER_BYTE(reg_nr)",
1586 XSTRING (REGISTER_BYTE (reg_nr)));
1587 if (GDB_MULTI_ARCH)
1588 fprintf_unfiltered (file,
1589 "gdbarch_dump: REGISTER_BYTE = 0x%08lx\n",
1590 (long) current_gdbarch->register_byte
1591 /*REGISTER_BYTE ()*/);
4b9b3959 1592#endif
08e45a40 1593#ifdef REGISTER_BYTES
4b9b3959 1594 fprintf_unfiltered (file,
08e45a40
AC		 1595 "gdbarch_dump: REGISTER_BYTES # %s\n",
1596 XSTRING (REGISTER_BYTES));
4b9b3959 1597 fprintf_unfiltered (file,
06b25f14
AC		 1598 "gdbarch_dump: REGISTER_BYTES = %d\n",
1599 REGISTER_BYTES);
4b9b3959 1600#endif
08e45a40 1601#ifdef REGISTER_BYTES_OK
4b9b3959
AC		 1602 fprintf_unfiltered (file,
1603 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1604 "REGISTER_BYTES_OK(nr_bytes)",
1605 XSTRING (REGISTER_BYTES_OK (nr_bytes)));
1606 if (GDB_MULTI_ARCH)
1607 fprintf_unfiltered (file,
1608 "gdbarch_dump: REGISTER_BYTES_OK = 0x%08lx\n",
1609 (long) current_gdbarch->register_bytes_ok
1610 /*REGISTER_BYTES_OK ()*/);
4b9b3959 1611#endif
08e45a40 1612#ifdef REGISTER_CONVERTIBLE
4b9b3959
AC		 1613 fprintf_unfiltered (file,
1614 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1615 "REGISTER_CONVERTIBLE(nr)",
1616 XSTRING (REGISTER_CONVERTIBLE (nr)));
1617 if (GDB_MULTI_ARCH)
1618 fprintf_unfiltered (file,
1619 "gdbarch_dump: REGISTER_CONVERTIBLE = 0x%08lx\n",
1620 (long) current_gdbarch->register_convertible
1621 /*REGISTER_CONVERTIBLE ()*/);
4b9b3959 1622#endif
08e45a40
AC		 1623#ifdef REGISTER_CONVERT_TO_RAW
1624#if GDB_MULTI_ARCH
63e69063 1625 /* Macro might contain `[{}]' when not multi-arch */
4b9b3959
AC		 1626 fprintf_unfiltered (file,
1627 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1628 "REGISTER_CONVERT_TO_RAW(type, regnum, from, to)",
1629 XSTRING (REGISTER_CONVERT_TO_RAW (type, regnum, from, to)));
1630#endif
1631 if (GDB_MULTI_ARCH)
1632 fprintf_unfiltered (file,
1633 "gdbarch_dump: REGISTER_CONVERT_TO_RAW = 0x%08lx\n",
1634 (long) current_gdbarch->register_convert_to_raw
1635 /*REGISTER_CONVERT_TO_RAW ()*/);
4b9b3959 1636#endif
08e45a40
AC		 1637#ifdef REGISTER_CONVERT_TO_VIRTUAL
1638#if GDB_MULTI_ARCH
63e69063 1639 /* Macro might contain `[{}]' when not multi-arch */
4b9b3959
AC		 1640 fprintf_unfiltered (file,
1641 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1642 "REGISTER_CONVERT_TO_VIRTUAL(regnum, type, from, to)",
1643 XSTRING (REGISTER_CONVERT_TO_VIRTUAL (regnum, type, from, to)));
4b9b3959 1644#endif
08e45a40
AC		 1645 if (GDB_MULTI_ARCH)
1646 fprintf_unfiltered (file,
1647 "gdbarch_dump: REGISTER_CONVERT_TO_VIRTUAL = 0x%08lx\n",
1648 (long) current_gdbarch->register_convert_to_virtual
1649 /*REGISTER_CONVERT_TO_VIRTUAL ()*/);
4b9b3959 1650#endif
08e45a40 1651#ifdef REGISTER_NAME
4b9b3959
AC		 1652 fprintf_unfiltered (file,
1653 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1654 "REGISTER_NAME(regnr)",
1655 XSTRING (REGISTER_NAME (regnr)));
1656 if (GDB_MULTI_ARCH)
1657 fprintf_unfiltered (file,
1658 "gdbarch_dump: REGISTER_NAME = 0x%08lx\n",
1659 (long) current_gdbarch->register_name
1660 /*REGISTER_NAME ()*/);
4b9b3959 1661#endif
08e45a40 1662#ifdef REGISTER_RAW_SIZE
4b9b3959
AC		 1663 fprintf_unfiltered (file,
1664 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1665 "REGISTER_RAW_SIZE(reg_nr)",
1666 XSTRING (REGISTER_RAW_SIZE (reg_nr)));
1667 if (GDB_MULTI_ARCH)
1668 fprintf_unfiltered (file,
1669 "gdbarch_dump: REGISTER_RAW_SIZE = 0x%08lx\n",
1670 (long) current_gdbarch->register_raw_size
1671 /*REGISTER_RAW_SIZE ()*/);
4b9b3959 1672#endif
08e45a40 1673#ifdef REGISTER_SIM_REGNO
4b9b3959
AC		 1674 fprintf_unfiltered (file,
1675 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1676 "REGISTER_SIM_REGNO(reg_nr)",
1677 XSTRING (REGISTER_SIM_REGNO (reg_nr)));
1678 if (GDB_MULTI_ARCH)
1679 fprintf_unfiltered (file,
1680 "gdbarch_dump: REGISTER_SIM_REGNO = 0x%08lx\n",
1681 (long) current_gdbarch->register_sim_regno
1682 /*REGISTER_SIM_REGNO ()*/);
4b9b3959 1683#endif
08e45a40 1684#ifdef REGISTER_SIZE
4b9b3959 1685 fprintf_unfiltered (file,
08e45a40
AC		 1686 "gdbarch_dump: REGISTER_SIZE # %s\n",
1687 XSTRING (REGISTER_SIZE));
4b9b3959 1688 fprintf_unfiltered (file,
06b25f14
AC		 1689 "gdbarch_dump: REGISTER_SIZE = %d\n",
1690 REGISTER_SIZE);
4b9b3959 1691#endif
08e45a40 1692#ifdef REGISTER_VIRTUAL_SIZE
4b9b3959 1693 fprintf_unfiltered (file,
08e45a40
AC		 1694 "gdbarch_dump: %s # %s\n",
1695 "REGISTER_VIRTUAL_SIZE(reg_nr)",
1696 XSTRING (REGISTER_VIRTUAL_SIZE (reg_nr)));
1697 if (GDB_MULTI_ARCH)
1698 fprintf_unfiltered (file,
1699 "gdbarch_dump: REGISTER_VIRTUAL_SIZE = 0x%08lx\n",
1700 (long) current_gdbarch->register_virtual_size
1701 /*REGISTER_VIRTUAL_SIZE ()*/);
4b9b3959 1702#endif
08e45a40 1703#ifdef REGISTER_VIRTUAL_TYPE
e02bc4cc
DS		 1704 fprintf_unfiltered (file,
1705 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1706 "REGISTER_VIRTUAL_TYPE(reg_nr)",
1707 XSTRING (REGISTER_VIRTUAL_TYPE (reg_nr)));
1708 if (GDB_MULTI_ARCH)
1709 fprintf_unfiltered (file,
1710 "gdbarch_dump: REGISTER_VIRTUAL_TYPE = 0x%08lx\n",
1711 (long) current_gdbarch->register_virtual_type
1712 /*REGISTER_VIRTUAL_TYPE ()*/);
e02bc4cc 1713#endif
08e45a40 1714#ifdef REG_STRUCT_HAS_ADDR
4b9b3959 1715 fprintf_unfiltered (file,
08e45a40
AC		 1716 "gdbarch_dump: %s # %s\n",
1717 "REG_STRUCT_HAS_ADDR(gcc_p, type)",
1718 XSTRING (REG_STRUCT_HAS_ADDR (gcc_p, type)));
1719 if (GDB_MULTI_ARCH)
1720 fprintf_unfiltered (file,
1721 "gdbarch_dump: REG_STRUCT_HAS_ADDR = 0x%08lx\n",
1722 (long) current_gdbarch->reg_struct_has_addr
1723 /*REG_STRUCT_HAS_ADDR ()*/);
4b9b3959 1724#endif
08e45a40
AC		 1725#ifdef REMOTE_TRANSLATE_XFER_ADDRESS
1726#if GDB_MULTI_ARCH
63e69063 1727 /* Macro might contain `[{}]' when not multi-arch */
4b9b3959
AC		 1728 fprintf_unfiltered (file,
1729 "gdbarch_dump: %s # %s\n",
1730 "REMOTE_TRANSLATE_XFER_ADDRESS(gdb_addr, gdb_len, rem_addr, rem_len)",
1731 XSTRING (REMOTE_TRANSLATE_XFER_ADDRESS (gdb_addr, gdb_len, rem_addr, rem_len)));
1732#endif
08e45a40
AC		 1733 if (GDB_MULTI_ARCH)
1734 fprintf_unfiltered (file,
1735 "gdbarch_dump: REMOTE_TRANSLATE_XFER_ADDRESS = 0x%08lx\n",
1736 (long) current_gdbarch->remote_translate_xfer_address
1737 /*REMOTE_TRANSLATE_XFER_ADDRESS ()*/);
4b9b3959 1738#endif
08e45a40 1739#ifdef RETURN_VALUE_ON_STACK
4b9b3959
AC		 1740 fprintf_unfiltered (file,
1741 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1742 "RETURN_VALUE_ON_STACK(type)",
1743 XSTRING (RETURN_VALUE_ON_STACK (type)));
1744 if (GDB_MULTI_ARCH)
1745 fprintf_unfiltered (file,
1746 "gdbarch_dump: RETURN_VALUE_ON_STACK = 0x%08lx\n",
1747 (long) current_gdbarch->return_value_on_stack
1748 /*RETURN_VALUE_ON_STACK ()*/);
4b9b3959 1749#endif
08e45a40 1750#ifdef SAVED_PC_AFTER_CALL
4b9b3959
AC		 1751 fprintf_unfiltered (file,
1752 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1753 "SAVED_PC_AFTER_CALL(frame)",
1754 XSTRING (SAVED_PC_AFTER_CALL (frame)));
1755 if (GDB_MULTI_ARCH)
1756 fprintf_unfiltered (file,
1757 "gdbarch_dump: SAVED_PC_AFTER_CALL = 0x%08lx\n",
1758 (long) current_gdbarch->saved_pc_after_call
1759 /*SAVED_PC_AFTER_CALL ()*/);
4b9b3959 1760#endif
08e45a40
AC		 1761#ifdef SAVE_DUMMY_FRAME_TOS
1762#if GDB_MULTI_ARCH
1763 /* Macro might contain `[{}]' when not multi-arch */
4b9b3959
AC		 1764 fprintf_unfiltered (file,
1765 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1766 "SAVE_DUMMY_FRAME_TOS(sp)",
1767 XSTRING (SAVE_DUMMY_FRAME_TOS (sp)));
4b9b3959 1768#endif
08e45a40
AC		 1769 if (GDB_MULTI_ARCH)
1770 fprintf_unfiltered (file,
1771 "gdbarch_dump: SAVE_DUMMY_FRAME_TOS = 0x%08lx\n",
1772 (long) current_gdbarch->save_dummy_frame_tos
1773 /*SAVE_DUMMY_FRAME_TOS ()*/);
4b9b3959 1774#endif
08e45a40 1775#ifdef SDB_REG_TO_REGNUM
4b9b3959
AC		 1776 fprintf_unfiltered (file,
1777 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1778 "SDB_REG_TO_REGNUM(sdb_regnr)",
1779 XSTRING (SDB_REG_TO_REGNUM (sdb_regnr)));
1780 if (GDB_MULTI_ARCH)
1781 fprintf_unfiltered (file,
1782 "gdbarch_dump: SDB_REG_TO_REGNUM = 0x%08lx\n",
1783 (long) current_gdbarch->sdb_reg_to_regnum
1784 /*SDB_REG_TO_REGNUM ()*/);
4b9b3959 1785#endif
08e45a40 1786#ifdef SIZEOF_CALL_DUMMY_WORDS
4b9b3959 1787 fprintf_unfiltered (file,
08e45a40
AC		 1788 "gdbarch_dump: SIZEOF_CALL_DUMMY_WORDS # %s\n",
1789 XSTRING (SIZEOF_CALL_DUMMY_WORDS));
1790 fprintf_unfiltered (file,
1791 "gdbarch_dump: SIZEOF_CALL_DUMMY_WORDS = 0x%08lx\n",
1792 (long) SIZEOF_CALL_DUMMY_WORDS);
4b9b3959 1793#endif
08e45a40 1794#ifdef SKIP_PROLOGUE
4b9b3959
AC		 1795 fprintf_unfiltered (file,
1796 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1797 "SKIP_PROLOGUE(ip)",
1798 XSTRING (SKIP_PROLOGUE (ip)));
1799 if (GDB_MULTI_ARCH)
1800 fprintf_unfiltered (file,
1801 "gdbarch_dump: SKIP_PROLOGUE = 0x%08lx\n",
1802 (long) current_gdbarch->skip_prologue
1803 /*SKIP_PROLOGUE ()*/);
4b9b3959 1804#endif
08e45a40 1805#ifdef SKIP_TRAMPOLINE_CODE
4b9b3959
AC		 1806 fprintf_unfiltered (file,
1807 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1808 "SKIP_TRAMPOLINE_CODE(pc)",
1809 XSTRING (SKIP_TRAMPOLINE_CODE (pc)));
1810 if (GDB_MULTI_ARCH)
1811 fprintf_unfiltered (file,
1812 "gdbarch_dump: SKIP_TRAMPOLINE_CODE = 0x%08lx\n",
1813 (long) current_gdbarch->skip_trampoline_code
1814 /*SKIP_TRAMPOLINE_CODE ()*/);
4b9b3959 1815#endif
181c1381
RE		 1816#ifdef SMASH_TEXT_ADDRESS
1817 fprintf_unfiltered (file,
1818 "gdbarch_dump: %s # %s\n",
1819 "SMASH_TEXT_ADDRESS(addr)",
1820 XSTRING (SMASH_TEXT_ADDRESS (addr)));
1821 if (GDB_MULTI_ARCH)
1822 fprintf_unfiltered (file,
1823 "gdbarch_dump: SMASH_TEXT_ADDRESS = 0x%08lx\n",
1824 (long) current_gdbarch->smash_text_address
1825 /*SMASH_TEXT_ADDRESS ()*/);
1826#endif
08e45a40
AC		 1827#ifdef SOFTWARE_SINGLE_STEP
1828#if GDB_MULTI_ARCH
1829 /* Macro might contain `[{}]' when not multi-arch */
4b9b3959
AC		 1830 fprintf_unfiltered (file,
1831 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1832 "SOFTWARE_SINGLE_STEP(sig, insert_breakpoints_p)",
1833 XSTRING (SOFTWARE_SINGLE_STEP (sig, insert_breakpoints_p)));
4b9b3959 1834#endif
08e45a40
AC		 1835 if (GDB_MULTI_ARCH)
1836 fprintf_unfiltered (file,
1837 "gdbarch_dump: SOFTWARE_SINGLE_STEP = 0x%08lx\n",
1838 (long) current_gdbarch->software_single_step
1839 /*SOFTWARE_SINGLE_STEP ()*/);
1840#endif
1841#ifdef SP_REGNUM
1dd4193b 1842 fprintf_unfiltered (file,
08e45a40
AC		 1843 "gdbarch_dump: SP_REGNUM # %s\n",
1844 XSTRING (SP_REGNUM));
1845 fprintf_unfiltered (file,
06b25f14
AC		 1846 "gdbarch_dump: SP_REGNUM = %d\n",
1847 SP_REGNUM);
1dd4193b 1848#endif
08e45a40 1849#ifdef STAB_REG_TO_REGNUM
4b9b3959
AC		 1850 fprintf_unfiltered (file,
1851 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1852 "STAB_REG_TO_REGNUM(stab_regnr)",
1853 XSTRING (STAB_REG_TO_REGNUM (stab_regnr)));
1854 if (GDB_MULTI_ARCH)
1855 fprintf_unfiltered (file,
1856 "gdbarch_dump: STAB_REG_TO_REGNUM = 0x%08lx\n",
1857 (long) current_gdbarch->stab_reg_to_regnum
1858 /*STAB_REG_TO_REGNUM ()*/);
4b9b3959 1859#endif
08e45a40 1860#ifdef STACK_ALIGN
4b9b3959
AC		 1861 fprintf_unfiltered (file,
1862 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1863 "STACK_ALIGN(sp)",
1864 XSTRING (STACK_ALIGN (sp)));
1865 if (GDB_MULTI_ARCH)
1866 fprintf_unfiltered (file,
1867 "gdbarch_dump: STACK_ALIGN = 0x%08lx\n",
1868 (long) current_gdbarch->stack_align
1869 /*STACK_ALIGN ()*/);
4b9b3959 1870#endif
08e45a40
AC		 1871#ifdef STORE_PSEUDO_REGISTER
1872#if GDB_MULTI_ARCH
1873 /* Macro might contain `[{}]' when not multi-arch */
4b9b3959 1874 fprintf_unfiltered (file,
08e45a40
AC		 1875 "gdbarch_dump: %s # %s\n",
1876 "STORE_PSEUDO_REGISTER(regnum)",
1877 XSTRING (STORE_PSEUDO_REGISTER (regnum)));
4b9b3959 1878#endif
08e45a40
AC		 1879 if (GDB_MULTI_ARCH)
1880 fprintf_unfiltered (file,
1881 "gdbarch_dump: STORE_PSEUDO_REGISTER = 0x%08lx\n",
1882 (long) current_gdbarch->store_pseudo_register
1883 /*STORE_PSEUDO_REGISTER ()*/);
4b9b3959 1884#endif
08e45a40
AC		 1885#ifdef STORE_RETURN_VALUE
1886#if GDB_MULTI_ARCH
1887 /* Macro might contain `[{}]' when not multi-arch */
f517ea4e
PS		 1888 fprintf_unfiltered (file,
1889 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1890 "STORE_RETURN_VALUE(type, valbuf)",
1891 XSTRING (STORE_RETURN_VALUE (type, valbuf)));
f517ea4e 1892#endif
08e45a40
AC		 1893 if (GDB_MULTI_ARCH)
1894 fprintf_unfiltered (file,
1895 "gdbarch_dump: STORE_RETURN_VALUE = 0x%08lx\n",
1896 (long) current_gdbarch->store_return_value
1897 /*STORE_RETURN_VALUE ()*/);
875e1767 1898#endif
08e45a40
AC		 1899#ifdef STORE_STRUCT_RETURN
1900#if GDB_MULTI_ARCH
64c4637f
AC		 1901 /* Macro might contain `[{}]' when not multi-arch */
1902 fprintf_unfiltered (file,
1903 "gdbarch_dump: %s # %s\n",
08e45a40
AC		 1904 "STORE_STRUCT_RETURN(addr, sp)",
1905 XSTRING (STORE_STRUCT_RETURN (addr, sp)));
64c4637f 1906#endif
08e45a40
AC		 1907 if (GDB_MULTI_ARCH)
1908 fprintf_unfiltered (file,
1909 "gdbarch_dump: STORE_STRUCT_RETURN = 0x%08lx\n",
1910 (long) current_gdbarch->store_struct_return
1911 /*STORE_STRUCT_RETURN ()*/);
2bf0cb65 1912#endif
08e45a40 1913#ifdef TARGET_ADDR_BIT
bdcd319a 1914 fprintf_unfiltered (file,
08e45a40
AC		 1915 "gdbarch_dump: TARGET_ADDR_BIT # %s\n",
1916 XSTRING (TARGET_ADDR_BIT));
1917 fprintf_unfiltered (file,
06b25f14
AC		 1918 "gdbarch_dump: TARGET_ADDR_BIT = %d\n",
1919 TARGET_ADDR_BIT);
bdcd319a 1920#endif
381323f4 1921#ifdef TARGET_ARCHITECTURE
08e45a40
AC		 1922 fprintf_unfiltered (file,
1923 "gdbarch_dump: TARGET_ARCHITECTURE # %s\n",
1924 XSTRING (TARGET_ARCHITECTURE));
0f71a2f6 1925 if (TARGET_ARCHITECTURE != NULL)
4b9b3959
AC		 1926 fprintf_unfiltered (file,
1927 "gdbarch_dump: TARGET_ARCHITECTURE = %s\n",
adf40b2e 1928 TARGET_ARCHITECTURE->printable_name);
381323f4 1929#endif
08e45a40
AC		 1930#ifdef TARGET_BFD_VMA_BIT
1931 fprintf_unfiltered (file,
1932 "gdbarch_dump: TARGET_BFD_VMA_BIT # %s\n",
1933 XSTRING (TARGET_BFD_VMA_BIT));
1934 fprintf_unfiltered (file,
06b25f14
AC		 1935 "gdbarch_dump: TARGET_BFD_VMA_BIT = %d\n",
1936 TARGET_BFD_VMA_BIT);
08e45a40 1937#endif
381323f4 1938#ifdef TARGET_BYTE_ORDER
08e45a40
AC		 1939 fprintf_unfiltered (file,
1940 "gdbarch_dump: TARGET_BYTE_ORDER # %s\n",
1941 XSTRING (TARGET_BYTE_ORDER));
4b9b3959
AC		 1942 fprintf_unfiltered (file,
1943 "gdbarch_dump: TARGET_BYTE_ORDER = %ld\n",
adf40b2e 1944 (long) TARGET_BYTE_ORDER);
381323f4 1945#endif
4e409299
JB		 1946#ifdef TARGET_CHAR_SIGNED
1947 fprintf_unfiltered (file,
1948 "gdbarch_dump: TARGET_CHAR_SIGNED # %s\n",
1949 XSTRING (TARGET_CHAR_SIGNED));
1950 fprintf_unfiltered (file,
06b25f14
AC		 1951 "gdbarch_dump: TARGET_CHAR_SIGNED = %d\n",
1952 TARGET_CHAR_SIGNED);
4e409299 1953#endif
08e45a40 1954#ifdef TARGET_DOUBLE_BIT
4b9b3959 1955 fprintf_unfiltered (file,
08e45a40
AC		 1956 "gdbarch_dump: TARGET_DOUBLE_BIT # %s\n",
1957 XSTRING (TARGET_DOUBLE_BIT));
4b9b3959 1958 fprintf_unfiltered (file,
06b25f14
AC		 1959 "gdbarch_dump: TARGET_DOUBLE_BIT = %d\n",
1960 TARGET_DOUBLE_BIT);
381323f4 1961#endif
08e45a40 1962#ifdef TARGET_DOUBLE_FORMAT
4b9b3959 1963 fprintf_unfiltered (file,
08e45a40
AC		 1964 "gdbarch_dump: TARGET_DOUBLE_FORMAT # %s\n",
1965 XSTRING (TARGET_DOUBLE_FORMAT));
4b9b3959 1966 fprintf_unfiltered (file,
08e45a40
AC		 1967 "gdbarch_dump: TARGET_DOUBLE_FORMAT = %ld\n",
1968 (long) TARGET_DOUBLE_FORMAT);
381323f4
AC		 1969#endif
1970#ifdef TARGET_FLOAT_BIT
08e45a40
AC		 1971 fprintf_unfiltered (file,
1972 "gdbarch_dump: TARGET_FLOAT_BIT # %s\n",
1973 XSTRING (TARGET_FLOAT_BIT));
4b9b3959 1974 fprintf_unfiltered (file,
06b25f14
AC		 1975 "gdbarch_dump: TARGET_FLOAT_BIT = %d\n",
1976 TARGET_FLOAT_BIT);
381323f4 1977#endif
08e45a40 1978#ifdef TARGET_FLOAT_FORMAT
4b9b3959 1979 fprintf_unfiltered (file,
08e45a40
AC		 1980 "gdbarch_dump: TARGET_FLOAT_FORMAT # %s\n",
1981 XSTRING (TARGET_FLOAT_FORMAT));
1982 fprintf_unfiltered (file,
1983 "gdbarch_dump: TARGET_FLOAT_FORMAT = %ld\n",
1984 (long) TARGET_FLOAT_FORMAT);
1985#endif
1986#ifdef TARGET_INT_BIT
1987 fprintf_unfiltered (file,
1988 "gdbarch_dump: TARGET_INT_BIT # %s\n",
1989 XSTRING (TARGET_INT_BIT));
1990 fprintf_unfiltered (file,
06b25f14
AC		 1991 "gdbarch_dump: TARGET_INT_BIT = %d\n",
1992 TARGET_INT_BIT);
08e45a40
AC		 1993#endif
1994#ifdef TARGET_LONG_BIT
1995 fprintf_unfiltered (file,
1996 "gdbarch_dump: TARGET_LONG_BIT # %s\n",
1997 XSTRING (TARGET_LONG_BIT));
1998 fprintf_unfiltered (file,
06b25f14
AC		 1999 "gdbarch_dump: TARGET_LONG_BIT = %d\n",
2000 TARGET_LONG_BIT);
381323f4
AC		 2001#endif
2002#ifdef TARGET_LONG_DOUBLE_BIT
08e45a40
AC		 2003 fprintf_unfiltered (file,
2004 "gdbarch_dump: TARGET_LONG_DOUBLE_BIT # %s\n",
2005 XSTRING (TARGET_LONG_DOUBLE_BIT));
4b9b3959 2006 fprintf_unfiltered (file,
06b25f14
AC		 2007 "gdbarch_dump: TARGET_LONG_DOUBLE_BIT = %d\n",
2008 TARGET_LONG_DOUBLE_BIT);
381323f4 2009#endif
08e45a40 2010#ifdef TARGET_LONG_DOUBLE_FORMAT
66b43ecb 2011 fprintf_unfiltered (file,
08e45a40
AC		 2012 "gdbarch_dump: TARGET_LONG_DOUBLE_FORMAT # %s\n",
2013 XSTRING (TARGET_LONG_DOUBLE_FORMAT));
52204a0b 2014 fprintf_unfiltered (file,
08e45a40
AC		 2015 "gdbarch_dump: TARGET_LONG_DOUBLE_FORMAT = %ld\n",
2016 (long) TARGET_LONG_DOUBLE_FORMAT);
52204a0b 2017#endif
08e45a40 2018#ifdef TARGET_LONG_LONG_BIT
66b43ecb 2019 fprintf_unfiltered (file,
08e45a40
AC		 2020 "gdbarch_dump: TARGET_LONG_LONG_BIT # %s\n",
2021 XSTRING (TARGET_LONG_LONG_BIT));
4b9b3959 2022 fprintf_unfiltered (file,
06b25f14
AC		 2023 "gdbarch_dump: TARGET_LONG_LONG_BIT = %d\n",
2024 TARGET_LONG_LONG_BIT);
381323f4 2025#endif
08e45a40
AC		 2026#ifdef TARGET_PRINT_INSN
2027 fprintf_unfiltered (file,
2028 "gdbarch_dump: %s # %s\n",
2029 "TARGET_PRINT_INSN(vma, info)",
2030 XSTRING (TARGET_PRINT_INSN (vma, info)));
4b9b3959
AC		 2031 if (GDB_MULTI_ARCH)
2032 fprintf_unfiltered (file,
08e45a40
AC		 2033 "gdbarch_dump: TARGET_PRINT_INSN = 0x%08lx\n",
2034 (long) current_gdbarch->print_insn
2035 /*TARGET_PRINT_INSN ()*/);
381323f4 2036#endif
08e45a40
AC		 2037#ifdef TARGET_PTR_BIT
2038 fprintf_unfiltered (file,
2039 "gdbarch_dump: TARGET_PTR_BIT # %s\n",
2040 XSTRING (TARGET_PTR_BIT));
2041 fprintf_unfiltered (file,
06b25f14
AC		 2042 "gdbarch_dump: TARGET_PTR_BIT = %d\n",
2043 TARGET_PTR_BIT);
381323f4
AC		 2044#endif
2045#ifdef TARGET_READ_FP
08e45a40
AC		 2046 fprintf_unfiltered (file,
2047 "gdbarch_dump: %s # %s\n",
2048 "TARGET_READ_FP()",
2049 XSTRING (TARGET_READ_FP ()));
4b9b3959
AC		 2050 if (GDB_MULTI_ARCH)
2051 fprintf_unfiltered (file,
2052 "gdbarch_dump: TARGET_READ_FP = 0x%08lx\n",
2053 (long) current_gdbarch->read_fp
2054 /*TARGET_READ_FP ()*/);
381323f4 2055#endif
08e45a40
AC		 2056#ifdef TARGET_READ_PC
2057 fprintf_unfiltered (file,
2058 "gdbarch_dump: %s # %s\n",
2059 "TARGET_READ_PC(ptid)",
2060 XSTRING (TARGET_READ_PC (ptid)));
4b9b3959
AC		 2061 if (GDB_MULTI_ARCH)
2062 fprintf_unfiltered (file,
08e45a40
AC		 2063 "gdbarch_dump: TARGET_READ_PC = 0x%08lx\n",
2064 (long) current_gdbarch->read_pc
2065 /*TARGET_READ_PC ()*/);
381323f4
AC		 2066#endif
2067#ifdef TARGET_READ_SP
08e45a40
AC		 2068 fprintf_unfiltered (file,
2069 "gdbarch_dump: %s # %s\n",
2070 "TARGET_READ_SP()",
2071 XSTRING (TARGET_READ_SP ()));
4b9b3959
AC		 2072 if (GDB_MULTI_ARCH)
2073 fprintf_unfiltered (file,
2074 "gdbarch_dump: TARGET_READ_SP = 0x%08lx\n",
2075 (long) current_gdbarch->read_sp
2076 /*TARGET_READ_SP ()*/);
381323f4 2077#endif
08e45a40
AC		 2078#ifdef TARGET_SHORT_BIT
2079 fprintf_unfiltered (file,
2080 "gdbarch_dump: TARGET_SHORT_BIT # %s\n",
2081 XSTRING (TARGET_SHORT_BIT));
2082 fprintf_unfiltered (file,
06b25f14
AC		 2083 "gdbarch_dump: TARGET_SHORT_BIT = %d\n",
2084 TARGET_SHORT_BIT);
39d4ef09
AC		 2085#endif
2086#ifdef TARGET_VIRTUAL_FRAME_POINTER
08e45a40
AC		 2087#if GDB_MULTI_ARCH
2088 /* Macro might contain `[{}]' when not multi-arch */
2089 fprintf_unfiltered (file,
2090 "gdbarch_dump: %s # %s\n",
2091 "TARGET_VIRTUAL_FRAME_POINTER(pc, frame_regnum, frame_offset)",
2092 XSTRING (TARGET_VIRTUAL_FRAME_POINTER (pc, frame_regnum, frame_offset)));
2093#endif
39d4ef09
AC		 2094 if (GDB_MULTI_ARCH)
2095 fprintf_unfiltered (file,
2096 "gdbarch_dump: TARGET_VIRTUAL_FRAME_POINTER = 0x%08lx\n",
2097 (long) current_gdbarch->virtual_frame_pointer
2098 /*TARGET_VIRTUAL_FRAME_POINTER ()*/);
381323f4 2099#endif
08e45a40
AC		 2100#ifdef TARGET_WRITE_FP
2101#if GDB_MULTI_ARCH
2102 /* Macro might contain `[{}]' when not multi-arch */
4b9b3959 2103 fprintf_unfiltered (file,
08e45a40
AC		 2104 "gdbarch_dump: %s # %s\n",
2105 "TARGET_WRITE_FP(val)",
2106 XSTRING (TARGET_WRITE_FP (val)));
381323f4 2107#endif
4b9b3959
AC		 2108 if (GDB_MULTI_ARCH)
2109 fprintf_unfiltered (file,
08e45a40
AC		 2110 "gdbarch_dump: TARGET_WRITE_FP = 0x%08lx\n",
2111 (long) current_gdbarch->write_fp
2112 /*TARGET_WRITE_FP ()*/);
381323f4 2113#endif
08e45a40
AC		 2114#ifdef TARGET_WRITE_PC
2115#if GDB_MULTI_ARCH
2116 /* Macro might contain `[{}]' when not multi-arch */
4b9b3959 2117 fprintf_unfiltered (file,
08e45a40
AC		 2118 "gdbarch_dump: %s # %s\n",
2119 "TARGET_WRITE_PC(val, ptid)",
2120 XSTRING (TARGET_WRITE_PC (val, ptid)));
381323f4 2121#endif
4b9b3959
AC		 2122 if (GDB_MULTI_ARCH)
2123 fprintf_unfiltered (file,
08e45a40
AC		 2124 "gdbarch_dump: TARGET_WRITE_PC = 0x%08lx\n",
2125 (long) current_gdbarch->write_pc
2126 /*TARGET_WRITE_PC ()*/);
381323f4 2127#endif
08e45a40
AC		 2128#ifdef TARGET_WRITE_SP
2129#if GDB_MULTI_ARCH
2130 /* Macro might contain `[{}]' when not multi-arch */
4b9b3959 2131 fprintf_unfiltered (file,
08e45a40
AC		 2132 "gdbarch_dump: %s # %s\n",
2133 "TARGET_WRITE_SP(val)",
2134 XSTRING (TARGET_WRITE_SP (val)));
01fb7433 2135#endif
01fb7433
AC		 2136 if (GDB_MULTI_ARCH)
2137 fprintf_unfiltered (file,
08e45a40
AC		 2138 "gdbarch_dump: TARGET_WRITE_SP = 0x%08lx\n",
2139 (long) current_gdbarch->write_sp
2140 /*TARGET_WRITE_SP ()*/);
01fb7433 2141#endif
381323f4 2142#ifdef USE_GENERIC_DUMMY_FRAMES
08e45a40
AC		 2143 fprintf_unfiltered (file,
2144 "gdbarch_dump: USE_GENERIC_DUMMY_FRAMES # %s\n",
2145 XSTRING (USE_GENERIC_DUMMY_FRAMES));
4b9b3959 2146 fprintf_unfiltered (file,
06b25f14
AC		 2147 "gdbarch_dump: USE_GENERIC_DUMMY_FRAMES = %d\n",
2148 USE_GENERIC_DUMMY_FRAMES);
381323f4 2149#endif
08e45a40 2150#ifdef USE_STRUCT_CONVENTION
4b9b3959 2151 fprintf_unfiltered (file,
08e45a40
AC		 2152 "gdbarch_dump: %s # %s\n",
2153 "USE_STRUCT_CONVENTION(gcc_p, value_type)",
2154 XSTRING (USE_STRUCT_CONVENTION (gcc_p, value_type)));
4b9b3959
AC		 2155 if (GDB_MULTI_ARCH)
2156 fprintf_unfiltered (file,
2157 "gdbarch_dump: USE_STRUCT_CONVENTION = 0x%08lx\n",
2158 (long) current_gdbarch->use_struct_convention
2159 /*USE_STRUCT_CONVENTION ()*/);
381323f4 2160#endif
4b9b3959
AC		 2161 if (current_gdbarch->dump_tdep != NULL)
2162 current_gdbarch->dump_tdep (current_gdbarch, file);
0f71a2f6
JM		 2163}
2164
2165struct gdbarch_tdep *
104c1213 2166gdbarch_tdep (struct gdbarch *gdbarch)
0f71a2f6
JM		 2167{
2168 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2169 fprintf_unfiltered (gdb_stdlog, "gdbarch_tdep called\n");
2170 return gdbarch->tdep;
2171}
2172
2173
2174const struct bfd_arch_info *
104c1213 2175gdbarch_bfd_arch_info (struct gdbarch *gdbarch)
0f71a2f6
JM		 2176{
2177 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2178 fprintf_unfiltered (gdb_stdlog, "gdbarch_bfd_arch_info called\n");
2179 return gdbarch->bfd_arch_info;
2180}
2181
2182int
104c1213 2183gdbarch_byte_order (struct gdbarch *gdbarch)
0f71a2f6
JM		 2184{
2185 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2186 fprintf_unfiltered (gdb_stdlog, "gdbarch_byte_order called\n");
2187 return gdbarch->byte_order;
2188}
2189
0f71a2f6 2190int
104c1213 2191gdbarch_short_bit (struct gdbarch *gdbarch)
0f71a2f6 2192{
66b43ecb 2193 /* Skip verify of short_bit, invalid_p == 0 */
0f71a2f6 2194 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2195 fprintf_unfiltered (gdb_stdlog, "gdbarch_short_bit called\n");
2196 return gdbarch->short_bit;
2197}
2198
2199void
104c1213
JM		 2200set_gdbarch_short_bit (struct gdbarch *gdbarch,
2201 int short_bit)
0f71a2f6
JM		 2202{
2203 gdbarch->short_bit = short_bit;
2204}
2205
2206int
104c1213 2207gdbarch_int_bit (struct gdbarch *gdbarch)
0f71a2f6 2208{
66b43ecb 2209 /* Skip verify of int_bit, invalid_p == 0 */
0f71a2f6 2210 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2211 fprintf_unfiltered (gdb_stdlog, "gdbarch_int_bit called\n");
2212 return gdbarch->int_bit;
2213}
2214
2215void
104c1213
JM		 2216set_gdbarch_int_bit (struct gdbarch *gdbarch,
2217 int int_bit)
0f71a2f6
JM		 2218{
2219 gdbarch->int_bit = int_bit;
2220}
2221
2222int
104c1213 2223gdbarch_long_bit (struct gdbarch *gdbarch)
0f71a2f6 2224{
66b43ecb 2225 /* Skip verify of long_bit, invalid_p == 0 */
0f71a2f6 2226 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2227 fprintf_unfiltered (gdb_stdlog, "gdbarch_long_bit called\n");
2228 return gdbarch->long_bit;
2229}
2230
2231void
104c1213
JM		 2232set_gdbarch_long_bit (struct gdbarch *gdbarch,
2233 int long_bit)
0f71a2f6
JM		 2234{
2235 gdbarch->long_bit = long_bit;
2236}
2237
2238int
104c1213 2239gdbarch_long_long_bit (struct gdbarch *gdbarch)
0f71a2f6 2240{
66b43ecb 2241 /* Skip verify of long_long_bit, invalid_p == 0 */
0f71a2f6 2242 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2243 fprintf_unfiltered (gdb_stdlog, "gdbarch_long_long_bit called\n");
2244 return gdbarch->long_long_bit;
2245}
2246
2247void
104c1213
JM		 2248set_gdbarch_long_long_bit (struct gdbarch *gdbarch,
2249 int long_long_bit)
0f71a2f6
JM		 2250{
2251 gdbarch->long_long_bit = long_long_bit;
2252}
2253
2254int
104c1213 2255gdbarch_float_bit (struct gdbarch *gdbarch)
0f71a2f6 2256{
66b43ecb 2257 /* Skip verify of float_bit, invalid_p == 0 */
0f71a2f6 2258 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2259 fprintf_unfiltered (gdb_stdlog, "gdbarch_float_bit called\n");
2260 return gdbarch->float_bit;
2261}
2262
2263void
104c1213
JM		 2264set_gdbarch_float_bit (struct gdbarch *gdbarch,
2265 int float_bit)
0f71a2f6
JM		 2266{
2267 gdbarch->float_bit = float_bit;
2268}
2269
2270int
104c1213 2271gdbarch_double_bit (struct gdbarch *gdbarch)
0f71a2f6 2272{
66b43ecb 2273 /* Skip verify of double_bit, invalid_p == 0 */
0f71a2f6 2274 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2275 fprintf_unfiltered (gdb_stdlog, "gdbarch_double_bit called\n");
2276 return gdbarch->double_bit;
2277}
2278
2279void
104c1213
JM		 2280set_gdbarch_double_bit (struct gdbarch *gdbarch,
2281 int double_bit)
0f71a2f6
JM		 2282{
2283 gdbarch->double_bit = double_bit;
2284}
2285
2286int
104c1213 2287gdbarch_long_double_bit (struct gdbarch *gdbarch)
0f71a2f6 2288{
66b43ecb 2289 /* Skip verify of long_double_bit, invalid_p == 0 */
0f71a2f6 2290 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2291 fprintf_unfiltered (gdb_stdlog, "gdbarch_long_double_bit called\n");
2292 return gdbarch->long_double_bit;
2293}
2294
2295void
104c1213
JM		 2296set_gdbarch_long_double_bit (struct gdbarch *gdbarch,
2297 int long_double_bit)
0f71a2f6
JM		 2298{
2299 gdbarch->long_double_bit = long_double_bit;
2300}
2301
66b43ecb
AC		 2302int
2303gdbarch_ptr_bit (struct gdbarch *gdbarch)
2304{
2305 /* Skip verify of ptr_bit, invalid_p == 0 */
2306 if (gdbarch_debug >= 2)
2307 fprintf_unfiltered (gdb_stdlog, "gdbarch_ptr_bit called\n");
2308 return gdbarch->ptr_bit;
2309}
2310
2311void
2312set_gdbarch_ptr_bit (struct gdbarch *gdbarch,
2313 int ptr_bit)
2314{
2315 gdbarch->ptr_bit = ptr_bit;
2316}
2317
52204a0b
DT		 2318int
2319gdbarch_addr_bit (struct gdbarch *gdbarch)
2320{
2321 if (gdbarch->addr_bit == 0)
8e65ff28
AC		 2322 internal_error (__FILE__, __LINE__,
2323 "gdbarch: gdbarch_addr_bit invalid");
52204a0b
DT		 2324 if (gdbarch_debug >= 2)
2325 fprintf_unfiltered (gdb_stdlog, "gdbarch_addr_bit called\n");
2326 return gdbarch->addr_bit;
2327}
2328
2329void
2330set_gdbarch_addr_bit (struct gdbarch *gdbarch,
2331 int addr_bit)
2332{
2333 gdbarch->addr_bit = addr_bit;
2334}
2335
66b43ecb
AC		 2336int
2337gdbarch_bfd_vma_bit (struct gdbarch *gdbarch)
2338{
2339 /* Skip verify of bfd_vma_bit, invalid_p == 0 */
2340 if (gdbarch_debug >= 2)
2341 fprintf_unfiltered (gdb_stdlog, "gdbarch_bfd_vma_bit called\n");
2342 return gdbarch->bfd_vma_bit;
2343}
2344
2345void
2346set_gdbarch_bfd_vma_bit (struct gdbarch *gdbarch,
2347 int bfd_vma_bit)
2348{
2349 gdbarch->bfd_vma_bit = bfd_vma_bit;
2350}
2351
4e409299
JB		 2352int
2353gdbarch_char_signed (struct gdbarch *gdbarch)
2354{
2355 if (gdbarch->char_signed == -1)
2356 internal_error (__FILE__, __LINE__,
2357 "gdbarch: gdbarch_char_signed invalid");
2358 if (gdbarch_debug >= 2)
2359 fprintf_unfiltered (gdb_stdlog, "gdbarch_char_signed called\n");
2360 return gdbarch->char_signed;
2361}
2362
2363void
2364set_gdbarch_char_signed (struct gdbarch *gdbarch,
2365 int char_signed)
2366{
2367 gdbarch->char_signed = char_signed;
2368}
2369
0f71a2f6 2370CORE_ADDR
39f77062 2371gdbarch_read_pc (struct gdbarch *gdbarch, ptid_t ptid)
0f71a2f6
JM		 2372{
2373 if (gdbarch->read_pc == 0)
8e65ff28
AC		 2374 internal_error (__FILE__, __LINE__,
2375 "gdbarch: gdbarch_read_pc invalid");
0f71a2f6 2376 if (gdbarch_debug >= 2)
0f71a2f6 2377 fprintf_unfiltered (gdb_stdlog, "gdbarch_read_pc called\n");
39f77062 2378 return gdbarch->read_pc (ptid);
0f71a2f6
JM		 2379}
2380
2381void
104c1213
JM		 2382set_gdbarch_read_pc (struct gdbarch *gdbarch,
2383 gdbarch_read_pc_ftype read_pc)
0f71a2f6
JM		 2384{
2385 gdbarch->read_pc = read_pc;
2386}
2387
2388void
39f77062 2389gdbarch_write_pc (struct gdbarch *gdbarch, CORE_ADDR val, ptid_t ptid)
0f71a2f6
JM		 2390{
2391 if (gdbarch->write_pc == 0)
8e65ff28
AC		 2392 internal_error (__FILE__, __LINE__,
2393 "gdbarch: gdbarch_write_pc invalid");
0f71a2f6 2394 if (gdbarch_debug >= 2)
0f71a2f6 2395 fprintf_unfiltered (gdb_stdlog, "gdbarch_write_pc called\n");
39f77062 2396 gdbarch->write_pc (val, ptid);
0f71a2f6
JM		 2397}
2398
2399void
104c1213
JM		 2400set_gdbarch_write_pc (struct gdbarch *gdbarch,
2401 gdbarch_write_pc_ftype write_pc)
0f71a2f6
JM		 2402{
2403 gdbarch->write_pc = write_pc;
2404}
2405
2406CORE_ADDR
2407gdbarch_read_fp (struct gdbarch *gdbarch)
2408{
2409 if (gdbarch->read_fp == 0)
8e65ff28
AC		 2410 internal_error (__FILE__, __LINE__,
2411 "gdbarch: gdbarch_read_fp invalid");
0f71a2f6 2412 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2413 fprintf_unfiltered (gdb_stdlog, "gdbarch_read_fp called\n");
2414 return gdbarch->read_fp ();
2415}
2416
2417void
104c1213
JM		 2418set_gdbarch_read_fp (struct gdbarch *gdbarch,
2419 gdbarch_read_fp_ftype read_fp)
0f71a2f6
JM		 2420{
2421 gdbarch->read_fp = read_fp;
2422}
2423
2424void
2425gdbarch_write_fp (struct gdbarch *gdbarch, CORE_ADDR val)
2426{
2427 if (gdbarch->write_fp == 0)
8e65ff28
AC		 2428 internal_error (__FILE__, __LINE__,
2429 "gdbarch: gdbarch_write_fp invalid");
0f71a2f6 2430 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2431 fprintf_unfiltered (gdb_stdlog, "gdbarch_write_fp called\n");
2432 gdbarch->write_fp (val);
2433}
2434
2435void
104c1213
JM		 2436set_gdbarch_write_fp (struct gdbarch *gdbarch,
2437 gdbarch_write_fp_ftype write_fp)
0f71a2f6
JM		 2438{
2439 gdbarch->write_fp = write_fp;
2440}
2441
2442CORE_ADDR
2443gdbarch_read_sp (struct gdbarch *gdbarch)
2444{
2445 if (gdbarch->read_sp == 0)
8e65ff28
AC		 2446 internal_error (__FILE__, __LINE__,
2447 "gdbarch: gdbarch_read_sp invalid");
0f71a2f6 2448 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2449 fprintf_unfiltered (gdb_stdlog, "gdbarch_read_sp called\n");
2450 return gdbarch->read_sp ();
2451}
2452
2453void
104c1213
JM		 2454set_gdbarch_read_sp (struct gdbarch *gdbarch,
2455 gdbarch_read_sp_ftype read_sp)
0f71a2f6
JM		 2456{
2457 gdbarch->read_sp = read_sp;
2458}
2459
2460void
2461gdbarch_write_sp (struct gdbarch *gdbarch, CORE_ADDR val)
2462{
2463 if (gdbarch->write_sp == 0)
8e65ff28
AC		 2464 internal_error (__FILE__, __LINE__,
2465 "gdbarch: gdbarch_write_sp invalid");
0f71a2f6 2466 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2467 fprintf_unfiltered (gdb_stdlog, "gdbarch_write_sp called\n");
2468 gdbarch->write_sp (val);
2469}
2470
2471void
104c1213
JM		 2472set_gdbarch_write_sp (struct gdbarch *gdbarch,
2473 gdbarch_write_sp_ftype write_sp)
0f71a2f6
JM		 2474{
2475 gdbarch->write_sp = write_sp;
2476}
2477
39d4ef09
AC		 2478void
2479gdbarch_virtual_frame_pointer (struct gdbarch *gdbarch, CORE_ADDR pc, int *frame_regnum, LONGEST *frame_offset)
2480{
2481 if (gdbarch->virtual_frame_pointer == 0)
2482 internal_error (__FILE__, __LINE__,
2483 "gdbarch: gdbarch_virtual_frame_pointer invalid");
2484 if (gdbarch_debug >= 2)
2485 fprintf_unfiltered (gdb_stdlog, "gdbarch_virtual_frame_pointer called\n");
2486 gdbarch->virtual_frame_pointer (pc, frame_regnum, frame_offset);
2487}
2488
2489void
2490set_gdbarch_virtual_frame_pointer (struct gdbarch *gdbarch,
2491 gdbarch_virtual_frame_pointer_ftype virtual_frame_pointer)
2492{
2493 gdbarch->virtual_frame_pointer = virtual_frame_pointer;
2494}
2495
61a0eb5b
AC		 2496int
2497gdbarch_register_read_p (struct gdbarch *gdbarch)
2498{
2499 return gdbarch->register_read != 0;
2500}
2501
2502void
2503gdbarch_register_read (struct gdbarch *gdbarch, int regnum, char *buf)
2504{
2505 if (gdbarch->register_read == 0)
2506 internal_error (__FILE__, __LINE__,
2507 "gdbarch: gdbarch_register_read invalid");
2508 if (gdbarch_debug >= 2)
2509 fprintf_unfiltered (gdb_stdlog, "gdbarch_register_read called\n");
2510 gdbarch->register_read (gdbarch, regnum, buf);
2511}
2512
2513void
2514set_gdbarch_register_read (struct gdbarch *gdbarch,
2515 gdbarch_register_read_ftype register_read)
2516{
2517 gdbarch->register_read = register_read;
2518}
2519
2520int
2521gdbarch_register_write_p (struct gdbarch *gdbarch)
2522{
2523 return gdbarch->register_write != 0;
2524}
2525
2526void
2527gdbarch_register_write (struct gdbarch *gdbarch, int regnum, char *buf)
2528{
2529 if (gdbarch->register_write == 0)
2530 internal_error (__FILE__, __LINE__,
2531 "gdbarch: gdbarch_register_write invalid");
2532 if (gdbarch_debug >= 2)
2533 fprintf_unfiltered (gdb_stdlog, "gdbarch_register_write called\n");
2534 gdbarch->register_write (gdbarch, regnum, buf);
2535}
2536
2537void
2538set_gdbarch_register_write (struct gdbarch *gdbarch,
2539 gdbarch_register_write_ftype register_write)
2540{
2541 gdbarch->register_write = register_write;
2542}
2543
0f71a2f6 2544int
104c1213 2545gdbarch_num_regs (struct gdbarch *gdbarch)
0f71a2f6
JM		 2546{
2547 if (gdbarch->num_regs == -1)
8e65ff28
AC		 2548 internal_error (__FILE__, __LINE__,
2549 "gdbarch: gdbarch_num_regs invalid");
0f71a2f6 2550 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2551 fprintf_unfiltered (gdb_stdlog, "gdbarch_num_regs called\n");
2552 return gdbarch->num_regs;
2553}
2554
2555void
104c1213
JM		 2556set_gdbarch_num_regs (struct gdbarch *gdbarch,
2557 int num_regs)
0f71a2f6
JM		 2558{
2559 gdbarch->num_regs = num_regs;
2560}
2561
0aba1244
EZ		 2562int
2563gdbarch_num_pseudo_regs (struct gdbarch *gdbarch)
2564{
2565 /* Skip verify of num_pseudo_regs, invalid_p == 0 */
2566 if (gdbarch_debug >= 2)
2567 fprintf_unfiltered (gdb_stdlog, "gdbarch_num_pseudo_regs called\n");
2568 return gdbarch->num_pseudo_regs;
2569}
2570
2571void
2572set_gdbarch_num_pseudo_regs (struct gdbarch *gdbarch,
2573 int num_pseudo_regs)
2574{
2575 gdbarch->num_pseudo_regs = num_pseudo_regs;
2576}
2577
0f71a2f6 2578int
104c1213 2579gdbarch_sp_regnum (struct gdbarch *gdbarch)
0f71a2f6
JM		 2580{
2581 if (gdbarch->sp_regnum == -1)
8e65ff28
AC		 2582 internal_error (__FILE__, __LINE__,
2583 "gdbarch: gdbarch_sp_regnum invalid");
0f71a2f6 2584 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2585 fprintf_unfiltered (gdb_stdlog, "gdbarch_sp_regnum called\n");
2586 return gdbarch->sp_regnum;
2587}
2588
2589void
104c1213
JM		 2590set_gdbarch_sp_regnum (struct gdbarch *gdbarch,
2591 int sp_regnum)
0f71a2f6
JM		 2592{
2593 gdbarch->sp_regnum = sp_regnum;
2594}
2595
2596int
104c1213 2597gdbarch_fp_regnum (struct gdbarch *gdbarch)
0f71a2f6
JM		 2598{
2599 if (gdbarch->fp_regnum == -1)
8e65ff28
AC		 2600 internal_error (__FILE__, __LINE__,
2601 "gdbarch: gdbarch_fp_regnum invalid");
0f71a2f6 2602 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2603 fprintf_unfiltered (gdb_stdlog, "gdbarch_fp_regnum called\n");
2604 return gdbarch->fp_regnum;
2605}
2606
2607void
104c1213
JM		 2608set_gdbarch_fp_regnum (struct gdbarch *gdbarch,
2609 int fp_regnum)
0f71a2f6
JM		 2610{
2611 gdbarch->fp_regnum = fp_regnum;
2612}
2613
2614int
104c1213 2615gdbarch_pc_regnum (struct gdbarch *gdbarch)
0f71a2f6
JM		 2616{
2617 if (gdbarch->pc_regnum == -1)
8e65ff28
AC		 2618 internal_error (__FILE__, __LINE__,
2619 "gdbarch: gdbarch_pc_regnum invalid");
0f71a2f6 2620 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2621 fprintf_unfiltered (gdb_stdlog, "gdbarch_pc_regnum called\n");
2622 return gdbarch->pc_regnum;
2623}
2624
2625void
104c1213
JM		 2626set_gdbarch_pc_regnum (struct gdbarch *gdbarch,
2627 int pc_regnum)
0f71a2f6
JM		 2628{
2629 gdbarch->pc_regnum = pc_regnum;
2630}
2631
60054393
MS		 2632int
2633gdbarch_fp0_regnum (struct gdbarch *gdbarch)
2634{
2635 /* Skip verify of fp0_regnum, invalid_p == 0 */
2636 if (gdbarch_debug >= 2)
2637 fprintf_unfiltered (gdb_stdlog, "gdbarch_fp0_regnum called\n");
2638 return gdbarch->fp0_regnum;
2639}
2640
2641void
2642set_gdbarch_fp0_regnum (struct gdbarch *gdbarch,
2643 int fp0_regnum)
2644{
2645 gdbarch->fp0_regnum = fp0_regnum;
2646}
2647
03863182
AC		 2648int
2649gdbarch_npc_regnum (struct gdbarch *gdbarch)
2650{
2651 /* Skip verify of npc_regnum, invalid_p == 0 */
2652 if (gdbarch_debug >= 2)
2653 fprintf_unfiltered (gdb_stdlog, "gdbarch_npc_regnum called\n");
2654 return gdbarch->npc_regnum;
2655}
2656
2657void
2658set_gdbarch_npc_regnum (struct gdbarch *gdbarch,
2659 int npc_regnum)
2660{
2661 gdbarch->npc_regnum = npc_regnum;
2662}
2663
2664int
2665gdbarch_nnpc_regnum (struct gdbarch *gdbarch)
2666{
2667 /* Skip verify of nnpc_regnum, invalid_p == 0 */
2668 if (gdbarch_debug >= 2)
2669 fprintf_unfiltered (gdb_stdlog, "gdbarch_nnpc_regnum called\n");
2670 return gdbarch->nnpc_regnum;
2671}
2672
2673void
2674set_gdbarch_nnpc_regnum (struct gdbarch *gdbarch,
2675 int nnpc_regnum)
2676{
2677 gdbarch->nnpc_regnum = nnpc_regnum;
2678}
2679
88c72b7d
AC		 2680int
2681gdbarch_stab_reg_to_regnum (struct gdbarch *gdbarch, int stab_regnr)
2682{
2683 if (gdbarch->stab_reg_to_regnum == 0)
8e65ff28
AC		 2684 internal_error (__FILE__, __LINE__,
2685 "gdbarch: gdbarch_stab_reg_to_regnum invalid");
88c72b7d
AC		 2686 if (gdbarch_debug >= 2)
2687 fprintf_unfiltered (gdb_stdlog, "gdbarch_stab_reg_to_regnum called\n");
2688 return gdbarch->stab_reg_to_regnum (stab_regnr);
2689}
2690
2691void
2692set_gdbarch_stab_reg_to_regnum (struct gdbarch *gdbarch,
2693 gdbarch_stab_reg_to_regnum_ftype stab_reg_to_regnum)
2694{
2695 gdbarch->stab_reg_to_regnum = stab_reg_to_regnum;
2696}
2697
2698int
2699gdbarch_ecoff_reg_to_regnum (struct gdbarch *gdbarch, int ecoff_regnr)
2700{
2701 if (gdbarch->ecoff_reg_to_regnum == 0)
8e65ff28
AC		 2702 internal_error (__FILE__, __LINE__,
2703 "gdbarch: gdbarch_ecoff_reg_to_regnum invalid");
88c72b7d
AC		 2704 if (gdbarch_debug >= 2)
2705 fprintf_unfiltered (gdb_stdlog, "gdbarch_ecoff_reg_to_regnum called\n");
2706 return gdbarch->ecoff_reg_to_regnum (ecoff_regnr);
2707}
2708
2709void
2710set_gdbarch_ecoff_reg_to_regnum (struct gdbarch *gdbarch,
2711 gdbarch_ecoff_reg_to_regnum_ftype ecoff_reg_to_regnum)
2712{
2713 gdbarch->ecoff_reg_to_regnum = ecoff_reg_to_regnum;
2714}
2715
2716int
2717gdbarch_dwarf_reg_to_regnum (struct gdbarch *gdbarch, int dwarf_regnr)
2718{
2719 if (gdbarch->dwarf_reg_to_regnum == 0)
8e65ff28
AC		 2720 internal_error (__FILE__, __LINE__,
2721 "gdbarch: gdbarch_dwarf_reg_to_regnum invalid");
88c72b7d
AC		 2722 if (gdbarch_debug >= 2)
2723 fprintf_unfiltered (gdb_stdlog, "gdbarch_dwarf_reg_to_regnum called\n");
2724 return gdbarch->dwarf_reg_to_regnum (dwarf_regnr);
2725}
2726
2727void
2728set_gdbarch_dwarf_reg_to_regnum (struct gdbarch *gdbarch,
2729 gdbarch_dwarf_reg_to_regnum_ftype dwarf_reg_to_regnum)
2730{
2731 gdbarch->dwarf_reg_to_regnum = dwarf_reg_to_regnum;
2732}
2733
2734int
2735gdbarch_sdb_reg_to_regnum (struct gdbarch *gdbarch, int sdb_regnr)
2736{
2737 if (gdbarch->sdb_reg_to_regnum == 0)
8e65ff28
AC		 2738 internal_error (__FILE__, __LINE__,
2739 "gdbarch: gdbarch_sdb_reg_to_regnum invalid");
88c72b7d
AC		 2740 if (gdbarch_debug >= 2)
2741 fprintf_unfiltered (gdb_stdlog, "gdbarch_sdb_reg_to_regnum called\n");
2742 return gdbarch->sdb_reg_to_regnum (sdb_regnr);
2743}
2744
2745void
2746set_gdbarch_sdb_reg_to_regnum (struct gdbarch *gdbarch,
2747 gdbarch_sdb_reg_to_regnum_ftype sdb_reg_to_regnum)
2748{
2749 gdbarch->sdb_reg_to_regnum = sdb_reg_to_regnum;
2750}
2751
2752int
2753gdbarch_dwarf2_reg_to_regnum (struct gdbarch *gdbarch, int dwarf2_regnr)
2754{
2755 if (gdbarch->dwarf2_reg_to_regnum == 0)
8e65ff28
AC		 2756 internal_error (__FILE__, __LINE__,
2757 "gdbarch: gdbarch_dwarf2_reg_to_regnum invalid");
88c72b7d
AC		 2758 if (gdbarch_debug >= 2)
2759 fprintf_unfiltered (gdb_stdlog, "gdbarch_dwarf2_reg_to_regnum called\n");
2760 return gdbarch->dwarf2_reg_to_regnum (dwarf2_regnr);
2761}
2762
2763void
2764set_gdbarch_dwarf2_reg_to_regnum (struct gdbarch *gdbarch,
2765 gdbarch_dwarf2_reg_to_regnum_ftype dwarf2_reg_to_regnum)
2766{
2767 gdbarch->dwarf2_reg_to_regnum = dwarf2_reg_to_regnum;
2768}
2769
0f71a2f6
JM		 2770char *
2771gdbarch_register_name (struct gdbarch *gdbarch, int regnr)
2772{
7be570e7 2773 if (gdbarch->register_name == 0)
8e65ff28
AC		 2774 internal_error (__FILE__, __LINE__,
2775 "gdbarch: gdbarch_register_name invalid");
0f71a2f6 2776 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2777 fprintf_unfiltered (gdb_stdlog, "gdbarch_register_name called\n");
2778 return gdbarch->register_name (regnr);
2779}
2780
2781void
104c1213
JM		 2782set_gdbarch_register_name (struct gdbarch *gdbarch,
2783 gdbarch_register_name_ftype register_name)
0f71a2f6
JM		 2784{
2785 gdbarch->register_name = register_name;
2786}
2787
2788int
104c1213 2789gdbarch_register_size (struct gdbarch *gdbarch)
0f71a2f6
JM		 2790{
2791 if (gdbarch->register_size == -1)
8e65ff28
AC		 2792 internal_error (__FILE__, __LINE__,
2793 "gdbarch: gdbarch_register_size invalid");
0f71a2f6 2794 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2795 fprintf_unfiltered (gdb_stdlog, "gdbarch_register_size called\n");
2796 return gdbarch->register_size;
2797}
2798
2799void
104c1213
JM		 2800set_gdbarch_register_size (struct gdbarch *gdbarch,
2801 int register_size)
0f71a2f6
JM		 2802{
2803 gdbarch->register_size = register_size;
2804}
2805
2806int
104c1213 2807gdbarch_register_bytes (struct gdbarch *gdbarch)
0f71a2f6
JM		 2808{
2809 if (gdbarch->register_bytes == -1)
8e65ff28
AC		 2810 internal_error (__FILE__, __LINE__,
2811 "gdbarch: gdbarch_register_bytes invalid");
0f71a2f6 2812 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2813 fprintf_unfiltered (gdb_stdlog, "gdbarch_register_bytes called\n");
2814 return gdbarch->register_bytes;
2815}
2816
2817void
104c1213
JM		 2818set_gdbarch_register_bytes (struct gdbarch *gdbarch,
2819 int register_bytes)
0f71a2f6
JM		 2820{
2821 gdbarch->register_bytes = register_bytes;
2822}
2823
2824int
2825gdbarch_register_byte (struct gdbarch *gdbarch, int reg_nr)
2826{
2827 if (gdbarch->register_byte == 0)
8e65ff28
AC		 2828 internal_error (__FILE__, __LINE__,
2829 "gdbarch: gdbarch_register_byte invalid");
0f71a2f6 2830 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2831 fprintf_unfiltered (gdb_stdlog, "gdbarch_register_byte called\n");
2832 return gdbarch->register_byte (reg_nr);
2833}
2834
2835void
104c1213
JM		 2836set_gdbarch_register_byte (struct gdbarch *gdbarch,
2837 gdbarch_register_byte_ftype register_byte)
0f71a2f6
JM		 2838{
2839 gdbarch->register_byte = register_byte;
2840}
2841
2842int
2843gdbarch_register_raw_size (struct gdbarch *gdbarch, int reg_nr)
2844{
2845 if (gdbarch->register_raw_size == 0)
8e65ff28
AC		 2846 internal_error (__FILE__, __LINE__,
2847 "gdbarch: gdbarch_register_raw_size invalid");
0f71a2f6 2848 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2849 fprintf_unfiltered (gdb_stdlog, "gdbarch_register_raw_size called\n");
2850 return gdbarch->register_raw_size (reg_nr);
2851}
2852
2853void
104c1213
JM		 2854set_gdbarch_register_raw_size (struct gdbarch *gdbarch,
2855 gdbarch_register_raw_size_ftype register_raw_size)
0f71a2f6
JM		 2856{
2857 gdbarch->register_raw_size = register_raw_size;
2858}
2859
2860int
104c1213 2861gdbarch_max_register_raw_size (struct gdbarch *gdbarch)
0f71a2f6
JM		 2862{
2863 if (gdbarch->max_register_raw_size == -1)
8e65ff28
AC		 2864 internal_error (__FILE__, __LINE__,
2865 "gdbarch: gdbarch_max_register_raw_size invalid");
0f71a2f6 2866 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2867 fprintf_unfiltered (gdb_stdlog, "gdbarch_max_register_raw_size called\n");
2868 return gdbarch->max_register_raw_size;
2869}
2870
2871void
104c1213
JM		 2872set_gdbarch_max_register_raw_size (struct gdbarch *gdbarch,
2873 int max_register_raw_size)
0f71a2f6
JM		 2874{
2875 gdbarch->max_register_raw_size = max_register_raw_size;
2876}
2877
2878int
2879gdbarch_register_virtual_size (struct gdbarch *gdbarch, int reg_nr)
2880{
2881 if (gdbarch->register_virtual_size == 0)
8e65ff28
AC		 2882 internal_error (__FILE__, __LINE__,
2883 "gdbarch: gdbarch_register_virtual_size invalid");
0f71a2f6 2884 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2885 fprintf_unfiltered (gdb_stdlog, "gdbarch_register_virtual_size called\n");
2886 return gdbarch->register_virtual_size (reg_nr);
2887}
2888
2889void
104c1213
JM		 2890set_gdbarch_register_virtual_size (struct gdbarch *gdbarch,
2891 gdbarch_register_virtual_size_ftype register_virtual_size)
0f71a2f6
JM		 2892{
2893 gdbarch->register_virtual_size = register_virtual_size;
2894}
2895
2896int
104c1213 2897gdbarch_max_register_virtual_size (struct gdbarch *gdbarch)
0f71a2f6
JM		 2898{
2899 if (gdbarch->max_register_virtual_size == -1)
8e65ff28
AC		 2900 internal_error (__FILE__, __LINE__,
2901 "gdbarch: gdbarch_max_register_virtual_size invalid");
0f71a2f6 2902 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2903 fprintf_unfiltered (gdb_stdlog, "gdbarch_max_register_virtual_size called\n");
2904 return gdbarch->max_register_virtual_size;
2905}
2906
2907void
104c1213
JM		 2908set_gdbarch_max_register_virtual_size (struct gdbarch *gdbarch,
2909 int max_register_virtual_size)
0f71a2f6
JM		 2910{
2911 gdbarch->max_register_virtual_size = max_register_virtual_size;
2912}
2913
2914struct type *
2915gdbarch_register_virtual_type (struct gdbarch *gdbarch, int reg_nr)
2916{
2917 if (gdbarch->register_virtual_type == 0)
8e65ff28
AC		 2918 internal_error (__FILE__, __LINE__,
2919 "gdbarch: gdbarch_register_virtual_type invalid");
0f71a2f6 2920 if (gdbarch_debug >= 2)
0f71a2f6
JM		 2921 fprintf_unfiltered (gdb_stdlog, "gdbarch_register_virtual_type called\n");
2922 return gdbarch->register_virtual_type (reg_nr);
2923}
2924
2925void
104c1213
JM		 2926set_gdbarch_register_virtual_type (struct gdbarch *gdbarch,
2927 gdbarch_register_virtual_type_ftype register_virtual_type)
0f71a2f6
JM		 2928{
2929 gdbarch->register_virtual_type = register_virtual_type;
2930}
2931
666e11c5
EZ		 2932void
2933gdbarch_do_registers_info (struct gdbarch *gdbarch, int reg_nr, int fpregs)
2934{
2935 if (gdbarch->do_registers_info == 0)
8e65ff28
AC		 2936 internal_error (__FILE__, __LINE__,
2937 "gdbarch: gdbarch_do_registers_info invalid");
666e11c5
EZ		 2938 if (gdbarch_debug >= 2)
2939 fprintf_unfiltered (gdb_stdlog, "gdbarch_do_registers_info called\n");
2940 gdbarch->do_registers_info (reg_nr, fpregs);
2941}
2942
2943void
2944set_gdbarch_do_registers_info (struct gdbarch *gdbarch,
2945 gdbarch_do_registers_info_ftype do_registers_info)
2946{
2947 gdbarch->do_registers_info = do_registers_info;
2948}
2949
5e74b15c
RE		 2950void
2951gdbarch_print_float_info (struct gdbarch *gdbarch)
2952{
2953 if (gdbarch->print_float_info == 0)
2954 internal_error (__FILE__, __LINE__,
2955 "gdbarch: gdbarch_print_float_info invalid");
2956 if (gdbarch_debug >= 2)
2957 fprintf_unfiltered (gdb_stdlog, "gdbarch_print_float_info called\n");
2958 gdbarch->print_float_info ();
2959}
2960
2961void
2962set_gdbarch_print_float_info (struct gdbarch *gdbarch,
2963 gdbarch_print_float_info_ftype print_float_info)
2964{
2965 gdbarch->print_float_info = print_float_info;
2966}
2967
7c7651b2
AC		 2968int
2969gdbarch_register_sim_regno (struct gdbarch *gdbarch, int reg_nr)
2970{
2971 if (gdbarch->register_sim_regno == 0)
8e65ff28
AC		 2972 internal_error (__FILE__, __LINE__,
2973 "gdbarch: gdbarch_register_sim_regno invalid");
7c7651b2
AC		 2974 if (gdbarch_debug >= 2)
2975 fprintf_unfiltered (gdb_stdlog, "gdbarch_register_sim_regno called\n");
2976 return gdbarch->register_sim_regno (reg_nr);
2977}
2978
2979void
2980set_gdbarch_register_sim_regno (struct gdbarch *gdbarch,
2981 gdbarch_register_sim_regno_ftype register_sim_regno)
2982{
2983 gdbarch->register_sim_regno = register_sim_regno;
2984}
2985
2649061d
AC		 2986int
2987gdbarch_register_bytes_ok_p (struct gdbarch *gdbarch)
2988{
2989 return gdbarch->register_bytes_ok != 0;
2990}
2991
2992int
2993gdbarch_register_bytes_ok (struct gdbarch *gdbarch, long nr_bytes)
2994{
2995 if (gdbarch->register_bytes_ok == 0)
8e65ff28
AC		 2996 internal_error (__FILE__, __LINE__,
2997 "gdbarch: gdbarch_register_bytes_ok invalid");
2649061d
AC		 2998 if (gdbarch_debug >= 2)
2999 fprintf_unfiltered (gdb_stdlog, "gdbarch_register_bytes_ok called\n");
3000 return gdbarch->register_bytes_ok (nr_bytes);
3001}
3002
3003void
3004set_gdbarch_register_bytes_ok (struct gdbarch *gdbarch,
3005 gdbarch_register_bytes_ok_ftype register_bytes_ok)
3006{
3007 gdbarch->register_bytes_ok = register_bytes_ok;
3008}
3009
01fb7433 3010int
1622c8f7 3011gdbarch_cannot_fetch_register (struct gdbarch *gdbarch, int regnum)
01fb7433
AC		 3012{
3013 if (gdbarch->cannot_fetch_register == 0)
3014 internal_error (__FILE__, __LINE__,
3015 "gdbarch: gdbarch_cannot_fetch_register invalid");
3016 if (gdbarch_debug >= 2)
3017 fprintf_unfiltered (gdb_stdlog, "gdbarch_cannot_fetch_register called\n");
1622c8f7 3018 return gdbarch->cannot_fetch_register (regnum);
01fb7433
AC		 3019}
3020
3021void
3022set_gdbarch_cannot_fetch_register (struct gdbarch *gdbarch,
3023 gdbarch_cannot_fetch_register_ftype cannot_fetch_register)
3024{
3025 gdbarch->cannot_fetch_register = cannot_fetch_register;
3026}
3027
3028int
1622c8f7 3029gdbarch_cannot_store_register (struct gdbarch *gdbarch, int regnum)
01fb7433
AC		 3030{
3031 if (gdbarch->cannot_store_register == 0)
3032 internal_error (__FILE__, __LINE__,
3033 "gdbarch: gdbarch_cannot_store_register invalid");
3034 if (gdbarch_debug >= 2)
3035 fprintf_unfiltered (gdb_stdlog, "gdbarch_cannot_store_register called\n");
1622c8f7 3036 return gdbarch->cannot_store_register (regnum);
01fb7433
AC		 3037}
3038
3039void
3040set_gdbarch_cannot_store_register (struct gdbarch *gdbarch,
3041 gdbarch_cannot_store_register_ftype cannot_store_register)
3042{
3043 gdbarch->cannot_store_register = cannot_store_register;
3044}
3045
9df628e0
RE		 3046int
3047gdbarch_get_longjmp_target_p (struct gdbarch *gdbarch)
3048{
3049 return gdbarch->get_longjmp_target != 0;
3050}
3051
3052int
3053gdbarch_get_longjmp_target (struct gdbarch *gdbarch, CORE_ADDR *pc)
3054{
3055 if (gdbarch->get_longjmp_target == 0)
3056 internal_error (__FILE__, __LINE__,
3057 "gdbarch: gdbarch_get_longjmp_target invalid");
3058 if (gdbarch_debug >= 2)
3059 fprintf_unfiltered (gdb_stdlog, "gdbarch_get_longjmp_target called\n");
3060 return gdbarch->get_longjmp_target (pc);
3061}
3062
3063void
3064set_gdbarch_get_longjmp_target (struct gdbarch *gdbarch,
3065 gdbarch_get_longjmp_target_ftype get_longjmp_target)
3066{
3067 gdbarch->get_longjmp_target = get_longjmp_target;
3068}
3069
0f71a2f6 3070int
104c1213 3071gdbarch_use_generic_dummy_frames (struct gdbarch *gdbarch)
0f71a2f6
JM		 3072{
3073 if (gdbarch->use_generic_dummy_frames == -1)
8e65ff28
AC		 3074 internal_error (__FILE__, __LINE__,
3075 "gdbarch: gdbarch_use_generic_dummy_frames invalid");
0f71a2f6 3076 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3077 fprintf_unfiltered (gdb_stdlog, "gdbarch_use_generic_dummy_frames called\n");
3078 return gdbarch->use_generic_dummy_frames;
3079}
3080
3081void
104c1213
JM		 3082set_gdbarch_use_generic_dummy_frames (struct gdbarch *gdbarch,
3083 int use_generic_dummy_frames)
0f71a2f6
JM		 3084{
3085 gdbarch->use_generic_dummy_frames = use_generic_dummy_frames;
3086}
3087
3088int
104c1213 3089gdbarch_call_dummy_location (struct gdbarch *gdbarch)
0f71a2f6
JM		 3090{
3091 if (gdbarch->call_dummy_location == 0)
8e65ff28
AC		 3092 internal_error (__FILE__, __LINE__,
3093 "gdbarch: gdbarch_call_dummy_location invalid");
0f71a2f6 3094 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3095 fprintf_unfiltered (gdb_stdlog, "gdbarch_call_dummy_location called\n");
3096 return gdbarch->call_dummy_location;
3097}
3098
3099void
104c1213
JM		 3100set_gdbarch_call_dummy_location (struct gdbarch *gdbarch,
3101 int call_dummy_location)
0f71a2f6
JM		 3102{
3103 gdbarch->call_dummy_location = call_dummy_location;
3104}
3105
3106CORE_ADDR
3107gdbarch_call_dummy_address (struct gdbarch *gdbarch)
3108{
3109 if (gdbarch->call_dummy_address == 0)
8e65ff28
AC		 3110 internal_error (__FILE__, __LINE__,
3111 "gdbarch: gdbarch_call_dummy_address invalid");
0f71a2f6 3112 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3113 fprintf_unfiltered (gdb_stdlog, "gdbarch_call_dummy_address called\n");
3114 return gdbarch->call_dummy_address ();
3115}
3116
3117void
104c1213
JM		 3118set_gdbarch_call_dummy_address (struct gdbarch *gdbarch,
3119 gdbarch_call_dummy_address_ftype call_dummy_address)
0f71a2f6
JM		 3120{
3121 gdbarch->call_dummy_address = call_dummy_address;
3122}
3123
3124CORE_ADDR
104c1213 3125gdbarch_call_dummy_start_offset (struct gdbarch *gdbarch)
0f71a2f6
JM		 3126{
3127 if (gdbarch->call_dummy_start_offset == -1)
8e65ff28
AC		 3128 internal_error (__FILE__, __LINE__,
3129 "gdbarch: gdbarch_call_dummy_start_offset invalid");
0f71a2f6 3130 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3131 fprintf_unfiltered (gdb_stdlog, "gdbarch_call_dummy_start_offset called\n");
3132 return gdbarch->call_dummy_start_offset;
3133}
3134
3135void
104c1213
JM		 3136set_gdbarch_call_dummy_start_offset (struct gdbarch *gdbarch,
3137 CORE_ADDR call_dummy_start_offset)
0f71a2f6
JM		 3138{
3139 gdbarch->call_dummy_start_offset = call_dummy_start_offset;
3140}
3141
3142CORE_ADDR
104c1213 3143gdbarch_call_dummy_breakpoint_offset (struct gdbarch *gdbarch)
0f71a2f6 3144{
83e6b173 3145 if (gdbarch->call_dummy_breakpoint_offset_p && gdbarch->call_dummy_breakpoint_offset == -1)
8e65ff28
AC		 3146 internal_error (__FILE__, __LINE__,
3147 "gdbarch: gdbarch_call_dummy_breakpoint_offset invalid");
0f71a2f6 3148 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3149 fprintf_unfiltered (gdb_stdlog, "gdbarch_call_dummy_breakpoint_offset called\n");
3150 return gdbarch->call_dummy_breakpoint_offset;
3151}
3152
3153void
104c1213
JM		 3154set_gdbarch_call_dummy_breakpoint_offset (struct gdbarch *gdbarch,
3155 CORE_ADDR call_dummy_breakpoint_offset)
0f71a2f6
JM		 3156{
3157 gdbarch->call_dummy_breakpoint_offset = call_dummy_breakpoint_offset;
3158}
3159
3160int
104c1213 3161gdbarch_call_dummy_breakpoint_offset_p (struct gdbarch *gdbarch)
0f71a2f6
JM		 3162{
3163 if (gdbarch->call_dummy_breakpoint_offset_p == -1)
8e65ff28
AC		 3164 internal_error (__FILE__, __LINE__,
3165 "gdbarch: gdbarch_call_dummy_breakpoint_offset_p invalid");
0f71a2f6 3166 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3167 fprintf_unfiltered (gdb_stdlog, "gdbarch_call_dummy_breakpoint_offset_p called\n");
3168 return gdbarch->call_dummy_breakpoint_offset_p;
3169}
3170
3171void
104c1213
JM		 3172set_gdbarch_call_dummy_breakpoint_offset_p (struct gdbarch *gdbarch,
3173 int call_dummy_breakpoint_offset_p)
0f71a2f6
JM		 3174{
3175 gdbarch->call_dummy_breakpoint_offset_p = call_dummy_breakpoint_offset_p;
3176}
3177
3178int
104c1213 3179gdbarch_call_dummy_length (struct gdbarch *gdbarch)
0f71a2f6
JM		 3180{
3181 if (gdbarch->call_dummy_length == -1)
8e65ff28
AC		 3182 internal_error (__FILE__, __LINE__,
3183 "gdbarch: gdbarch_call_dummy_length invalid");
0f71a2f6 3184 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3185 fprintf_unfiltered (gdb_stdlog, "gdbarch_call_dummy_length called\n");
3186 return gdbarch->call_dummy_length;
3187}
3188
3189void
104c1213
JM		 3190set_gdbarch_call_dummy_length (struct gdbarch *gdbarch,
3191 int call_dummy_length)
0f71a2f6
JM		 3192{
3193 gdbarch->call_dummy_length = call_dummy_length;
3194}
3195
3196int
3197gdbarch_pc_in_call_dummy (struct gdbarch *gdbarch, CORE_ADDR pc, CORE_ADDR sp, CORE_ADDR frame_address)
3198{
3199 if (gdbarch->pc_in_call_dummy == 0)
8e65ff28
AC		 3200 internal_error (__FILE__, __LINE__,
3201 "gdbarch: gdbarch_pc_in_call_dummy invalid");
0f71a2f6 3202 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3203 fprintf_unfiltered (gdb_stdlog, "gdbarch_pc_in_call_dummy called\n");
3204 return gdbarch->pc_in_call_dummy (pc, sp, frame_address);
3205}
3206
3207void
104c1213
JM		 3208set_gdbarch_pc_in_call_dummy (struct gdbarch *gdbarch,
3209 gdbarch_pc_in_call_dummy_ftype pc_in_call_dummy)
0f71a2f6
JM		 3210{
3211 gdbarch->pc_in_call_dummy = pc_in_call_dummy;
3212}
3213
3214int
104c1213 3215gdbarch_call_dummy_p (struct gdbarch *gdbarch)
0f71a2f6
JM		 3216{
3217 if (gdbarch->call_dummy_p == -1)
8e65ff28
AC		 3218 internal_error (__FILE__, __LINE__,
3219 "gdbarch: gdbarch_call_dummy_p invalid");
0f71a2f6 3220 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3221 fprintf_unfiltered (gdb_stdlog, "gdbarch_call_dummy_p called\n");
3222 return gdbarch->call_dummy_p;
3223}
3224
3225void
104c1213
JM		 3226set_gdbarch_call_dummy_p (struct gdbarch *gdbarch,
3227 int call_dummy_p)
0f71a2f6
JM		 3228{
3229 gdbarch->call_dummy_p = call_dummy_p;
3230}
3231
3232LONGEST *
104c1213 3233gdbarch_call_dummy_words (struct gdbarch *gdbarch)
0f71a2f6 3234{
c0e8c252 3235 /* Skip verify of call_dummy_words, invalid_p == 0 */
0f71a2f6 3236 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3237 fprintf_unfiltered (gdb_stdlog, "gdbarch_call_dummy_words called\n");
3238 return gdbarch->call_dummy_words;
3239}
3240
3241void
104c1213
JM		 3242set_gdbarch_call_dummy_words (struct gdbarch *gdbarch,
3243 LONGEST * call_dummy_words)
0f71a2f6
JM		 3244{
3245 gdbarch->call_dummy_words = call_dummy_words;
3246}
3247
3248int
104c1213 3249gdbarch_sizeof_call_dummy_words (struct gdbarch *gdbarch)
0f71a2f6 3250{
c0e8c252 3251 /* Skip verify of sizeof_call_dummy_words, invalid_p == 0 */
0f71a2f6 3252 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3253 fprintf_unfiltered (gdb_stdlog, "gdbarch_sizeof_call_dummy_words called\n");
3254 return gdbarch->sizeof_call_dummy_words;
3255}
3256
3257void
104c1213
JM		 3258set_gdbarch_sizeof_call_dummy_words (struct gdbarch *gdbarch,
3259 int sizeof_call_dummy_words)
0f71a2f6
JM		 3260{
3261 gdbarch->sizeof_call_dummy_words = sizeof_call_dummy_words;
3262}
3263
3264int
104c1213 3265gdbarch_call_dummy_stack_adjust_p (struct gdbarch *gdbarch)
0f71a2f6
JM		 3266{
3267 if (gdbarch->call_dummy_stack_adjust_p == -1)
8e65ff28
AC		 3268 internal_error (__FILE__, __LINE__,
3269 "gdbarch: gdbarch_call_dummy_stack_adjust_p invalid");
0f71a2f6 3270 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3271 fprintf_unfiltered (gdb_stdlog, "gdbarch_call_dummy_stack_adjust_p called\n");
3272 return gdbarch->call_dummy_stack_adjust_p;
3273}
3274
3275void
104c1213
JM		 3276set_gdbarch_call_dummy_stack_adjust_p (struct gdbarch *gdbarch,
3277 int call_dummy_stack_adjust_p)
0f71a2f6
JM		 3278{
3279 gdbarch->call_dummy_stack_adjust_p = call_dummy_stack_adjust_p;
3280}
3281
3282int
104c1213 3283gdbarch_call_dummy_stack_adjust (struct gdbarch *gdbarch)
0f71a2f6
JM		 3284{
3285 if (gdbarch->call_dummy_stack_adjust_p && gdbarch->call_dummy_stack_adjust == 0)
8e65ff28
AC		 3286 internal_error (__FILE__, __LINE__,
3287 "gdbarch: gdbarch_call_dummy_stack_adjust invalid");
0f71a2f6 3288 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3289 fprintf_unfiltered (gdb_stdlog, "gdbarch_call_dummy_stack_adjust called\n");
3290 return gdbarch->call_dummy_stack_adjust;
3291}
3292
3293void
104c1213
JM		 3294set_gdbarch_call_dummy_stack_adjust (struct gdbarch *gdbarch,
3295 int call_dummy_stack_adjust)
0f71a2f6
JM		 3296{
3297 gdbarch->call_dummy_stack_adjust = call_dummy_stack_adjust;
3298}
3299
3300void
3301gdbarch_fix_call_dummy (struct gdbarch *gdbarch, char *dummy, CORE_ADDR pc, CORE_ADDR fun, int nargs, struct value **args, struct type *type, int gcc_p)
3302{
3303 if (gdbarch->fix_call_dummy == 0)
8e65ff28
AC		 3304 internal_error (__FILE__, __LINE__,
3305 "gdbarch: gdbarch_fix_call_dummy invalid");
0f71a2f6 3306 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3307 fprintf_unfiltered (gdb_stdlog, "gdbarch_fix_call_dummy called\n");
3308 gdbarch->fix_call_dummy (dummy, pc, fun, nargs, args, type, gcc_p);
3309}
3310
3311void
104c1213
JM		 3312set_gdbarch_fix_call_dummy (struct gdbarch *gdbarch,
3313 gdbarch_fix_call_dummy_ftype fix_call_dummy)
0f71a2f6
JM		 3314{
3315 gdbarch->fix_call_dummy = fix_call_dummy;
3316}
3317
10312cc4
AC		 3318void
3319gdbarch_init_frame_pc_first (struct gdbarch *gdbarch, int fromleaf, struct frame_info *prev)
3320{
3321 if (gdbarch->init_frame_pc_first == 0)
3322 internal_error (__FILE__, __LINE__,
3323 "gdbarch: gdbarch_init_frame_pc_first invalid");
3324 if (gdbarch_debug >= 2)
3325 fprintf_unfiltered (gdb_stdlog, "gdbarch_init_frame_pc_first called\n");
3326 gdbarch->init_frame_pc_first (fromleaf, prev);
3327}
3328
3329void
3330set_gdbarch_init_frame_pc_first (struct gdbarch *gdbarch,
3331 gdbarch_init_frame_pc_first_ftype init_frame_pc_first)
3332{
3333 gdbarch->init_frame_pc_first = init_frame_pc_first;
3334}
3335
3336void
3337gdbarch_init_frame_pc (struct gdbarch *gdbarch, int fromleaf, struct frame_info *prev)
3338{
3339 if (gdbarch->init_frame_pc == 0)
3340 internal_error (__FILE__, __LINE__,
3341 "gdbarch: gdbarch_init_frame_pc invalid");
3342 if (gdbarch_debug >= 2)
3343 fprintf_unfiltered (gdb_stdlog, "gdbarch_init_frame_pc called\n");
3344 gdbarch->init_frame_pc (fromleaf, prev);
3345}
3346
3347void
3348set_gdbarch_init_frame_pc (struct gdbarch *gdbarch,
3349 gdbarch_init_frame_pc_ftype init_frame_pc)
3350{
3351 gdbarch->init_frame_pc = init_frame_pc;
3352}
3353
0f71a2f6 3354int
104c1213 3355gdbarch_believe_pcc_promotion (struct gdbarch *gdbarch)
0f71a2f6
JM		 3356{
3357 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3358 fprintf_unfiltered (gdb_stdlog, "gdbarch_believe_pcc_promotion called\n");
3359 return gdbarch->believe_pcc_promotion;
3360}
3361
3362void
104c1213
JM		 3363set_gdbarch_believe_pcc_promotion (struct gdbarch *gdbarch,
3364 int believe_pcc_promotion)
0f71a2f6
JM		 3365{
3366 gdbarch->believe_pcc_promotion = believe_pcc_promotion;
3367}
3368
3369int
104c1213 3370gdbarch_believe_pcc_promotion_type (struct gdbarch *gdbarch)
0f71a2f6
JM		 3371{
3372 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3373 fprintf_unfiltered (gdb_stdlog, "gdbarch_believe_pcc_promotion_type called\n");
3374 return gdbarch->believe_pcc_promotion_type;
3375}
3376
3377void
104c1213
JM		 3378set_gdbarch_believe_pcc_promotion_type (struct gdbarch *gdbarch,
3379 int believe_pcc_promotion_type)
0f71a2f6
JM		 3380{
3381 gdbarch->believe_pcc_promotion_type = believe_pcc_promotion_type;
3382}
3383
b9a8e3bf
JB		 3384int
3385gdbarch_coerce_float_to_double (struct gdbarch *gdbarch, struct type *formal, struct type *actual)
3386{
3387 if (gdbarch->coerce_float_to_double == 0)
8e65ff28
AC		 3388 internal_error (__FILE__, __LINE__,
3389 "gdbarch: gdbarch_coerce_float_to_double invalid");
b9a8e3bf 3390 if (gdbarch_debug >= 2)
b9a8e3bf
JB		 3391 fprintf_unfiltered (gdb_stdlog, "gdbarch_coerce_float_to_double called\n");
3392 return gdbarch->coerce_float_to_double (formal, actual);
3393}
3394
3395void
3396set_gdbarch_coerce_float_to_double (struct gdbarch *gdbarch,
3397 gdbarch_coerce_float_to_double_ftype coerce_float_to_double)
3398{
3399 gdbarch->coerce_float_to_double = coerce_float_to_double;
3400}
3401
0f71a2f6 3402void
adf40b2e 3403gdbarch_get_saved_register (struct gdbarch *gdbarch, char *raw_buffer, int *optimized, CORE_ADDR *addrp, struct frame_info *frame, int regnum, enum lval_type *lval)
0f71a2f6
JM		 3404{
3405 if (gdbarch->get_saved_register == 0)
8e65ff28
AC		 3406 internal_error (__FILE__, __LINE__,
3407 "gdbarch: gdbarch_get_saved_register invalid");
0f71a2f6 3408 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3409 fprintf_unfiltered (gdb_stdlog, "gdbarch_get_saved_register called\n");
3410 gdbarch->get_saved_register (raw_buffer, optimized, addrp, frame, regnum, lval);
3411}
3412
3413void
104c1213
JM		 3414set_gdbarch_get_saved_register (struct gdbarch *gdbarch,
3415 gdbarch_get_saved_register_ftype get_saved_register)
0f71a2f6
JM		 3416{
3417 gdbarch->get_saved_register = get_saved_register;
3418}
3419
3420int
3421gdbarch_register_convertible (struct gdbarch *gdbarch, int nr)
3422{
3423 if (gdbarch->register_convertible == 0)
8e65ff28
AC		 3424 internal_error (__FILE__, __LINE__,
3425 "gdbarch: gdbarch_register_convertible invalid");
0f71a2f6 3426 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3427 fprintf_unfiltered (gdb_stdlog, "gdbarch_register_convertible called\n");
3428 return gdbarch->register_convertible (nr);
3429}
3430
3431void
104c1213
JM		 3432set_gdbarch_register_convertible (struct gdbarch *gdbarch,
3433 gdbarch_register_convertible_ftype register_convertible)
0f71a2f6
JM		 3434{
3435 gdbarch->register_convertible = register_convertible;
3436}
3437
3438void
3439gdbarch_register_convert_to_virtual (struct gdbarch *gdbarch, int regnum, struct type *type, char *from, char *to)
3440{
3441 if (gdbarch->register_convert_to_virtual == 0)
8e65ff28
AC		 3442 internal_error (__FILE__, __LINE__,
3443 "gdbarch: gdbarch_register_convert_to_virtual invalid");
0f71a2f6 3444 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3445 fprintf_unfiltered (gdb_stdlog, "gdbarch_register_convert_to_virtual called\n");
3446 gdbarch->register_convert_to_virtual (regnum, type, from, to);
3447}
3448
3449void
104c1213
JM		 3450set_gdbarch_register_convert_to_virtual (struct gdbarch *gdbarch,
3451 gdbarch_register_convert_to_virtual_ftype register_convert_to_virtual)
0f71a2f6
JM		 3452{
3453 gdbarch->register_convert_to_virtual = register_convert_to_virtual;
3454}
3455
3456void
3457gdbarch_register_convert_to_raw (struct gdbarch *gdbarch, struct type *type, int regnum, char *from, char *to)
3458{
3459 if (gdbarch->register_convert_to_raw == 0)
8e65ff28
AC		 3460 internal_error (__FILE__, __LINE__,
3461 "gdbarch: gdbarch_register_convert_to_raw invalid");
0f71a2f6 3462 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3463 fprintf_unfiltered (gdb_stdlog, "gdbarch_register_convert_to_raw called\n");
3464 gdbarch->register_convert_to_raw (type, regnum, from, to);
3465}
3466
3467void
104c1213
JM		 3468set_gdbarch_register_convert_to_raw (struct gdbarch *gdbarch,
3469 gdbarch_register_convert_to_raw_ftype register_convert_to_raw)
0f71a2f6
JM		 3470{
3471 gdbarch->register_convert_to_raw = register_convert_to_raw;
3472}
3473
31e9866e
AC		 3474int
3475gdbarch_fetch_pseudo_register_p (struct gdbarch *gdbarch)
3476{
3477 return gdbarch->fetch_pseudo_register != 0;
3478}
3479
7f1b2585
EZ		 3480void
3481gdbarch_fetch_pseudo_register (struct gdbarch *gdbarch, int regnum)
3482{
3483 if (gdbarch->fetch_pseudo_register == 0)
8e65ff28
AC		 3484 internal_error (__FILE__, __LINE__,
3485 "gdbarch: gdbarch_fetch_pseudo_register invalid");
7f1b2585
EZ		 3486 if (gdbarch_debug >= 2)
3487 fprintf_unfiltered (gdb_stdlog, "gdbarch_fetch_pseudo_register called\n");
3488 gdbarch->fetch_pseudo_register (regnum);
3489}
3490
3491void
3492set_gdbarch_fetch_pseudo_register (struct gdbarch *gdbarch,
3493 gdbarch_fetch_pseudo_register_ftype fetch_pseudo_register)
3494{
3495 gdbarch->fetch_pseudo_register = fetch_pseudo_register;
3496}
3497
31e9866e
AC		 3498int
3499gdbarch_store_pseudo_register_p (struct gdbarch *gdbarch)
3500{
3501 return gdbarch->store_pseudo_register != 0;
3502}
3503
7f1b2585
EZ		 3504void
3505gdbarch_store_pseudo_register (struct gdbarch *gdbarch, int regnum)
3506{
3507 if (gdbarch->store_pseudo_register == 0)
8e65ff28
AC		 3508 internal_error (__FILE__, __LINE__,
3509 "gdbarch: gdbarch_store_pseudo_register invalid");
7f1b2585
EZ		 3510 if (gdbarch_debug >= 2)
3511 fprintf_unfiltered (gdb_stdlog, "gdbarch_store_pseudo_register called\n");
3512 gdbarch->store_pseudo_register (regnum);
3513}
3514
3515void
3516set_gdbarch_store_pseudo_register (struct gdbarch *gdbarch,
3517 gdbarch_store_pseudo_register_ftype store_pseudo_register)
3518{
3519 gdbarch->store_pseudo_register = store_pseudo_register;
3520}
3521
4478b372 3522CORE_ADDR
ac2e2ef7 3523gdbarch_pointer_to_address (struct gdbarch *gdbarch, struct type *type, void *buf)
4478b372
JB		 3524{
3525 if (gdbarch->pointer_to_address == 0)
8e65ff28
AC		 3526 internal_error (__FILE__, __LINE__,
3527 "gdbarch: gdbarch_pointer_to_address invalid");
4478b372
JB		 3528 if (gdbarch_debug >= 2)
3529 fprintf_unfiltered (gdb_stdlog, "gdbarch_pointer_to_address called\n");
3530 return gdbarch->pointer_to_address (type, buf);
3531}
3532
3533void
3534set_gdbarch_pointer_to_address (struct gdbarch *gdbarch,
3535 gdbarch_pointer_to_address_ftype pointer_to_address)
3536{
3537 gdbarch->pointer_to_address = pointer_to_address;
3538}
3539
3540void
ac2e2ef7 3541gdbarch_address_to_pointer (struct gdbarch *gdbarch, struct type *type, void *buf, CORE_ADDR addr)
4478b372
JB		 3542{
3543 if (gdbarch->address_to_pointer == 0)
8e65ff28
AC		 3544 internal_error (__FILE__, __LINE__,
3545 "gdbarch: gdbarch_address_to_pointer invalid");
4478b372
JB		 3546 if (gdbarch_debug >= 2)
3547 fprintf_unfiltered (gdb_stdlog, "gdbarch_address_to_pointer called\n");
3548 gdbarch->address_to_pointer (type, buf, addr);
3549}
3550
3551void
3552set_gdbarch_address_to_pointer (struct gdbarch *gdbarch,
3553 gdbarch_address_to_pointer_ftype address_to_pointer)
3554{
3555 gdbarch->address_to_pointer = address_to_pointer;
3556}
3557
fc0c74b1
AC		 3558int
3559gdbarch_integer_to_address_p (struct gdbarch *gdbarch)
3560{
3561 return gdbarch->integer_to_address != 0;
3562}
3563
3564CORE_ADDR
3565gdbarch_integer_to_address (struct gdbarch *gdbarch, struct type *type, void *buf)
3566{
3567 if (gdbarch->integer_to_address == 0)
3568 internal_error (__FILE__, __LINE__,
3569 "gdbarch: gdbarch_integer_to_address invalid");
3570 if (gdbarch_debug >= 2)
3571 fprintf_unfiltered (gdb_stdlog, "gdbarch_integer_to_address called\n");
3572 return gdbarch->integer_to_address (type, buf);
3573}
3574
3575void
3576set_gdbarch_integer_to_address (struct gdbarch *gdbarch,
3577 gdbarch_integer_to_address_ftype integer_to_address)
3578{
3579 gdbarch->integer_to_address = integer_to_address;
3580}
3581
71a9f22e
JB		 3582int
3583gdbarch_return_value_on_stack (struct gdbarch *gdbarch, struct type *type)
3584{
71a9f22e 3585 if (gdbarch->return_value_on_stack == 0)
8e65ff28
AC		 3586 internal_error (__FILE__, __LINE__,
3587 "gdbarch: gdbarch_return_value_on_stack invalid");
71a9f22e
JB		 3588 if (gdbarch_debug >= 2)
3589 fprintf_unfiltered (gdb_stdlog, "gdbarch_return_value_on_stack called\n");
3590 return gdbarch->return_value_on_stack (type);
3591}
3592
3593void
3594set_gdbarch_return_value_on_stack (struct gdbarch *gdbarch,
3595 gdbarch_return_value_on_stack_ftype return_value_on_stack)
3596{
3597 gdbarch->return_value_on_stack = return_value_on_stack;
3598}
3599
0f71a2f6
JM		 3600void
3601gdbarch_extract_return_value (struct gdbarch *gdbarch, struct type *type, char *regbuf, char *valbuf)
3602{
3603 if (gdbarch->extract_return_value == 0)
8e65ff28
AC		 3604 internal_error (__FILE__, __LINE__,
3605 "gdbarch: gdbarch_extract_return_value invalid");
0f71a2f6 3606 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3607 fprintf_unfiltered (gdb_stdlog, "gdbarch_extract_return_value called\n");
3608 gdbarch->extract_return_value (type, regbuf, valbuf);
3609}
3610
3611void
104c1213
JM		 3612set_gdbarch_extract_return_value (struct gdbarch *gdbarch,
3613 gdbarch_extract_return_value_ftype extract_return_value)
0f71a2f6
JM		 3614{
3615 gdbarch->extract_return_value = extract_return_value;
3616}
3617
3618CORE_ADDR
3619gdbarch_push_arguments (struct gdbarch *gdbarch, int nargs, struct value **args, CORE_ADDR sp, int struct_return, CORE_ADDR struct_addr)
3620{
3621 if (gdbarch->push_arguments == 0)
8e65ff28
AC		 3622 internal_error (__FILE__, __LINE__,
3623 "gdbarch: gdbarch_push_arguments invalid");
0f71a2f6 3624 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3625 fprintf_unfiltered (gdb_stdlog, "gdbarch_push_arguments called\n");
3626 return gdbarch->push_arguments (nargs, args, sp, struct_return, struct_addr);
3627}
3628
3629void
104c1213
JM		 3630set_gdbarch_push_arguments (struct gdbarch *gdbarch,
3631 gdbarch_push_arguments_ftype push_arguments)
0f71a2f6
JM		 3632{
3633 gdbarch->push_arguments = push_arguments;
3634}
3635
3636void
3637gdbarch_push_dummy_frame (struct gdbarch *gdbarch)
3638{
3639 if (gdbarch->push_dummy_frame == 0)
8e65ff28
AC		 3640 internal_error (__FILE__, __LINE__,
3641 "gdbarch: gdbarch_push_dummy_frame invalid");
0f71a2f6 3642 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3643 fprintf_unfiltered (gdb_stdlog, "gdbarch_push_dummy_frame called\n");
3644 gdbarch->push_dummy_frame ();
3645}
3646
3647void
104c1213
JM		 3648set_gdbarch_push_dummy_frame (struct gdbarch *gdbarch,
3649 gdbarch_push_dummy_frame_ftype push_dummy_frame)
0f71a2f6
JM		 3650{
3651 gdbarch->push_dummy_frame = push_dummy_frame;
3652}
3653
69a0d5f4
AC		 3654int
3655gdbarch_push_return_address_p (struct gdbarch *gdbarch)
3656{
3657 return gdbarch->push_return_address != 0;
3658}
3659
0f71a2f6
JM		 3660CORE_ADDR
3661gdbarch_push_return_address (struct gdbarch *gdbarch, CORE_ADDR pc, CORE_ADDR sp)
3662{
3663 if (gdbarch->push_return_address == 0)
8e65ff28
AC		 3664 internal_error (__FILE__, __LINE__,
3665 "gdbarch: gdbarch_push_return_address invalid");
0f71a2f6 3666 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3667 fprintf_unfiltered (gdb_stdlog, "gdbarch_push_return_address called\n");
3668 return gdbarch->push_return_address (pc, sp);
3669}
3670
3671void
104c1213
JM		 3672set_gdbarch_push_return_address (struct gdbarch *gdbarch,
3673 gdbarch_push_return_address_ftype push_return_address)
0f71a2f6
JM		 3674{
3675 gdbarch->push_return_address = push_return_address;
3676}
3677
3678void
3679gdbarch_pop_frame (struct gdbarch *gdbarch)
3680{
3681 if (gdbarch->pop_frame == 0)
8e65ff28
AC		 3682 internal_error (__FILE__, __LINE__,
3683 "gdbarch: gdbarch_pop_frame invalid");
0f71a2f6 3684 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3685 fprintf_unfiltered (gdb_stdlog, "gdbarch_pop_frame called\n");
3686 gdbarch->pop_frame ();
3687}
3688
3689void
104c1213
JM		 3690set_gdbarch_pop_frame (struct gdbarch *gdbarch,
3691 gdbarch_pop_frame_ftype pop_frame)
0f71a2f6
JM		 3692{
3693 gdbarch->pop_frame = pop_frame;
3694}
3695
0f71a2f6
JM		 3696void
3697gdbarch_store_struct_return (struct gdbarch *gdbarch, CORE_ADDR addr, CORE_ADDR sp)
3698{
3699 if (gdbarch->store_struct_return == 0)
8e65ff28
AC		 3700 internal_error (__FILE__, __LINE__,
3701 "gdbarch: gdbarch_store_struct_return invalid");
0f71a2f6 3702 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3703 fprintf_unfiltered (gdb_stdlog, "gdbarch_store_struct_return called\n");
3704 gdbarch->store_struct_return (addr, sp);
3705}
3706
3707void
104c1213
JM		 3708set_gdbarch_store_struct_return (struct gdbarch *gdbarch,
3709 gdbarch_store_struct_return_ftype store_struct_return)
0f71a2f6
JM		 3710{
3711 gdbarch->store_struct_return = store_struct_return;
3712}
3713
3714void
3715gdbarch_store_return_value (struct gdbarch *gdbarch, struct type *type, char *valbuf)
3716{
3717 if (gdbarch->store_return_value == 0)
8e65ff28
AC		 3718 internal_error (__FILE__, __LINE__,
3719 "gdbarch: gdbarch_store_return_value invalid");
0f71a2f6 3720 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3721 fprintf_unfiltered (gdb_stdlog, "gdbarch_store_return_value called\n");
3722 gdbarch->store_return_value (type, valbuf);
3723}
3724
3725void
104c1213
JM		 3726set_gdbarch_store_return_value (struct gdbarch *gdbarch,
3727 gdbarch_store_return_value_ftype store_return_value)
0f71a2f6
JM		 3728{
3729 gdbarch->store_return_value = store_return_value;
3730}
3731
d6dd581e
AC		 3732int
3733gdbarch_extract_struct_value_address_p (struct gdbarch *gdbarch)
3734{
3735 return gdbarch->extract_struct_value_address != 0;
3736}
3737
0f71a2f6
JM		 3738CORE_ADDR
3739gdbarch_extract_struct_value_address (struct gdbarch *gdbarch, char *regbuf)
3740{
3741 if (gdbarch->extract_struct_value_address == 0)
8e65ff28
AC		 3742 internal_error (__FILE__, __LINE__,
3743 "gdbarch: gdbarch_extract_struct_value_address invalid");
0f71a2f6 3744 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3745 fprintf_unfiltered (gdb_stdlog, "gdbarch_extract_struct_value_address called\n");
3746 return gdbarch->extract_struct_value_address (regbuf);
3747}
3748
3749void
104c1213
JM		 3750set_gdbarch_extract_struct_value_address (struct gdbarch *gdbarch,
3751 gdbarch_extract_struct_value_address_ftype extract_struct_value_address)
0f71a2f6
JM		 3752{
3753 gdbarch->extract_struct_value_address = extract_struct_value_address;
3754}
3755
3756int
3757gdbarch_use_struct_convention (struct gdbarch *gdbarch, int gcc_p, struct type *value_type)
3758{
3759 if (gdbarch->use_struct_convention == 0)
8e65ff28
AC		 3760 internal_error (__FILE__, __LINE__,
3761 "gdbarch: gdbarch_use_struct_convention invalid");
0f71a2f6 3762 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3763 fprintf_unfiltered (gdb_stdlog, "gdbarch_use_struct_convention called\n");
3764 return gdbarch->use_struct_convention (gcc_p, value_type);
3765}
3766
3767void
104c1213
JM		 3768set_gdbarch_use_struct_convention (struct gdbarch *gdbarch,
3769 gdbarch_use_struct_convention_ftype use_struct_convention)
0f71a2f6
JM		 3770{
3771 gdbarch->use_struct_convention = use_struct_convention;
3772}
3773
3774void
3775gdbarch_frame_init_saved_regs (struct gdbarch *gdbarch, struct frame_info *frame)
3776{
3777 if (gdbarch->frame_init_saved_regs == 0)
8e65ff28
AC		 3778 internal_error (__FILE__, __LINE__,
3779 "gdbarch: gdbarch_frame_init_saved_regs invalid");
0f71a2f6 3780 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3781 fprintf_unfiltered (gdb_stdlog, "gdbarch_frame_init_saved_regs called\n");
3782 gdbarch->frame_init_saved_regs (frame);
3783}
3784
3785void
104c1213
JM		 3786set_gdbarch_frame_init_saved_regs (struct gdbarch *gdbarch,
3787 gdbarch_frame_init_saved_regs_ftype frame_init_saved_regs)
0f71a2f6
JM		 3788{
3789 gdbarch->frame_init_saved_regs = frame_init_saved_regs;
3790}
3791
5fdff426
AC		 3792int
3793gdbarch_init_extra_frame_info_p (struct gdbarch *gdbarch)
3794{
3795 return gdbarch->init_extra_frame_info != 0;
3796}
3797
0f71a2f6
JM		 3798void
3799gdbarch_init_extra_frame_info (struct gdbarch *gdbarch, int fromleaf, struct frame_info *frame)
3800{
3801 if (gdbarch->init_extra_frame_info == 0)
8e65ff28
AC		 3802 internal_error (__FILE__, __LINE__,
3803 "gdbarch: gdbarch_init_extra_frame_info invalid");
0f71a2f6 3804 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3805 fprintf_unfiltered (gdb_stdlog, "gdbarch_init_extra_frame_info called\n");
3806 gdbarch->init_extra_frame_info (fromleaf, frame);
3807}
3808
3809void
104c1213
JM		 3810set_gdbarch_init_extra_frame_info (struct gdbarch *gdbarch,
3811 gdbarch_init_extra_frame_info_ftype init_extra_frame_info)
0f71a2f6
JM		 3812{
3813 gdbarch->init_extra_frame_info = init_extra_frame_info;
3814}
3815
3816CORE_ADDR
3817gdbarch_skip_prologue (struct gdbarch *gdbarch, CORE_ADDR ip)
3818{
3819 if (gdbarch->skip_prologue == 0)
8e65ff28
AC		 3820 internal_error (__FILE__, __LINE__,
3821 "gdbarch: gdbarch_skip_prologue invalid");
0f71a2f6 3822 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3823 fprintf_unfiltered (gdb_stdlog, "gdbarch_skip_prologue called\n");
3824 return gdbarch->skip_prologue (ip);
3825}
3826
3827void
104c1213
JM		 3828set_gdbarch_skip_prologue (struct gdbarch *gdbarch,
3829 gdbarch_skip_prologue_ftype skip_prologue)
0f71a2f6
JM		 3830{
3831 gdbarch->skip_prologue = skip_prologue;
3832}
3833
dad41f9a
AC		 3834int
3835gdbarch_prologue_frameless_p (struct gdbarch *gdbarch, CORE_ADDR ip)
3836{
dad41f9a 3837 if (gdbarch->prologue_frameless_p == 0)
8e65ff28
AC		 3838 internal_error (__FILE__, __LINE__,
3839 "gdbarch: gdbarch_prologue_frameless_p invalid");
dad41f9a
AC		 3840 if (gdbarch_debug >= 2)
3841 fprintf_unfiltered (gdb_stdlog, "gdbarch_prologue_frameless_p called\n");
3842 return gdbarch->prologue_frameless_p (ip);
3843}
3844
3845void
3846set_gdbarch_prologue_frameless_p (struct gdbarch *gdbarch,
3847 gdbarch_prologue_frameless_p_ftype prologue_frameless_p)
3848{
3849 gdbarch->prologue_frameless_p = prologue_frameless_p;
3850}
3851
0f71a2f6
JM		 3852int
3853gdbarch_inner_than (struct gdbarch *gdbarch, CORE_ADDR lhs, CORE_ADDR rhs)
3854{
3855 if (gdbarch->inner_than == 0)
8e65ff28
AC		 3856 internal_error (__FILE__, __LINE__,
3857 "gdbarch: gdbarch_inner_than invalid");
0f71a2f6 3858 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3859 fprintf_unfiltered (gdb_stdlog, "gdbarch_inner_than called\n");
3860 return gdbarch->inner_than (lhs, rhs);
3861}
3862
3863void
104c1213
JM		 3864set_gdbarch_inner_than (struct gdbarch *gdbarch,
3865 gdbarch_inner_than_ftype inner_than)
0f71a2f6
JM		 3866{
3867 gdbarch->inner_than = inner_than;
3868}
3869
3870unsigned char *
adf40b2e 3871gdbarch_breakpoint_from_pc (struct gdbarch *gdbarch, CORE_ADDR *pcptr, int *lenptr)
0f71a2f6
JM		 3872{
3873 if (gdbarch->breakpoint_from_pc == 0)
8e65ff28
AC		 3874 internal_error (__FILE__, __LINE__,
3875 "gdbarch: gdbarch_breakpoint_from_pc invalid");
0f71a2f6 3876 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3877 fprintf_unfiltered (gdb_stdlog, "gdbarch_breakpoint_from_pc called\n");
3878 return gdbarch->breakpoint_from_pc (pcptr, lenptr);
3879}
3880
3881void
104c1213
JM		 3882set_gdbarch_breakpoint_from_pc (struct gdbarch *gdbarch,
3883 gdbarch_breakpoint_from_pc_ftype breakpoint_from_pc)
0f71a2f6
JM		 3884{
3885 gdbarch->breakpoint_from_pc = breakpoint_from_pc;
3886}
3887
917317f4
JM		 3888int
3889gdbarch_memory_insert_breakpoint (struct gdbarch *gdbarch, CORE_ADDR addr, char *contents_cache)
3890{
3891 if (gdbarch->memory_insert_breakpoint == 0)
8e65ff28
AC		 3892 internal_error (__FILE__, __LINE__,
3893 "gdbarch: gdbarch_memory_insert_breakpoint invalid");
917317f4 3894 if (gdbarch_debug >= 2)
917317f4
JM		 3895 fprintf_unfiltered (gdb_stdlog, "gdbarch_memory_insert_breakpoint called\n");
3896 return gdbarch->memory_insert_breakpoint (addr, contents_cache);
3897}
3898
3899void
3900set_gdbarch_memory_insert_breakpoint (struct gdbarch *gdbarch,
3901 gdbarch_memory_insert_breakpoint_ftype memory_insert_breakpoint)
3902{
3903 gdbarch->memory_insert_breakpoint = memory_insert_breakpoint;
3904}
3905
3906int
3907gdbarch_memory_remove_breakpoint (struct gdbarch *gdbarch, CORE_ADDR addr, char *contents_cache)
3908{
3909 if (gdbarch->memory_remove_breakpoint == 0)
8e65ff28
AC		 3910 internal_error (__FILE__, __LINE__,
3911 "gdbarch: gdbarch_memory_remove_breakpoint invalid");
917317f4 3912 if (gdbarch_debug >= 2)
917317f4
JM		 3913 fprintf_unfiltered (gdb_stdlog, "gdbarch_memory_remove_breakpoint called\n");
3914 return gdbarch->memory_remove_breakpoint (addr, contents_cache);
3915}
3916
3917void
3918set_gdbarch_memory_remove_breakpoint (struct gdbarch *gdbarch,
3919 gdbarch_memory_remove_breakpoint_ftype memory_remove_breakpoint)
3920{
3921 gdbarch->memory_remove_breakpoint = memory_remove_breakpoint;
3922}
3923
0f71a2f6 3924CORE_ADDR
104c1213 3925gdbarch_decr_pc_after_break (struct gdbarch *gdbarch)
0f71a2f6
JM		 3926{
3927 if (gdbarch->decr_pc_after_break == -1)
8e65ff28
AC		 3928 internal_error (__FILE__, __LINE__,
3929 "gdbarch: gdbarch_decr_pc_after_break invalid");
0f71a2f6 3930 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3931 fprintf_unfiltered (gdb_stdlog, "gdbarch_decr_pc_after_break called\n");
3932 return gdbarch->decr_pc_after_break;
3933}
3934
3935void
104c1213
JM		 3936set_gdbarch_decr_pc_after_break (struct gdbarch *gdbarch,
3937 CORE_ADDR decr_pc_after_break)
0f71a2f6
JM		 3938{
3939 gdbarch->decr_pc_after_break = decr_pc_after_break;
3940}
3941
e02bc4cc
DS		 3942int
3943gdbarch_prepare_to_proceed (struct gdbarch *gdbarch, int select_it)
3944{
3945 if (gdbarch->prepare_to_proceed == 0)
3946 internal_error (__FILE__, __LINE__,
3947 "gdbarch: gdbarch_prepare_to_proceed invalid");
3948 if (gdbarch_debug >= 2)
3949 fprintf_unfiltered (gdb_stdlog, "gdbarch_prepare_to_proceed called\n");
3950 return gdbarch->prepare_to_proceed (select_it);
3951}
3952
3953void
3954set_gdbarch_prepare_to_proceed (struct gdbarch *gdbarch,
3955 gdbarch_prepare_to_proceed_ftype prepare_to_proceed)
3956{
3957 gdbarch->prepare_to_proceed = prepare_to_proceed;
3958}
3959
0f71a2f6 3960CORE_ADDR
104c1213 3961gdbarch_function_start_offset (struct gdbarch *gdbarch)
0f71a2f6
JM		 3962{
3963 if (gdbarch->function_start_offset == -1)
8e65ff28
AC		 3964 internal_error (__FILE__, __LINE__,
3965 "gdbarch: gdbarch_function_start_offset invalid");
0f71a2f6 3966 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3967 fprintf_unfiltered (gdb_stdlog, "gdbarch_function_start_offset called\n");
3968 return gdbarch->function_start_offset;
3969}
3970
3971void
104c1213
JM		 3972set_gdbarch_function_start_offset (struct gdbarch *gdbarch,
3973 CORE_ADDR function_start_offset)
0f71a2f6
JM		 3974{
3975 gdbarch->function_start_offset = function_start_offset;
3976}
3977
3978void
adf40b2e 3979gdbarch_remote_translate_xfer_address (struct gdbarch *gdbarch, CORE_ADDR gdb_addr, int gdb_len, CORE_ADDR *rem_addr, int *rem_len)
0f71a2f6
JM		 3980{
3981 if (gdbarch->remote_translate_xfer_address == 0)
8e65ff28
AC		 3982 internal_error (__FILE__, __LINE__,
3983 "gdbarch: gdbarch_remote_translate_xfer_address invalid");
0f71a2f6 3984 if (gdbarch_debug >= 2)
0f71a2f6
JM		 3985 fprintf_unfiltered (gdb_stdlog, "gdbarch_remote_translate_xfer_address called\n");
3986 gdbarch->remote_translate_xfer_address (gdb_addr, gdb_len, rem_addr, rem_len);
3987}
3988
3989void
104c1213
JM		 3990set_gdbarch_remote_translate_xfer_address (struct gdbarch *gdbarch,
3991 gdbarch_remote_translate_xfer_address_ftype remote_translate_xfer_address)
0f71a2f6
JM		 3992{
3993 gdbarch->remote_translate_xfer_address = remote_translate_xfer_address;
3994}
3995
3996CORE_ADDR
104c1213 3997gdbarch_frame_args_skip (struct gdbarch *gdbarch)
0f71a2f6
JM		 3998{
3999 if (gdbarch->frame_args_skip == -1)
8e65ff28
AC		 4000 internal_error (__FILE__, __LINE__,
4001 "gdbarch: gdbarch_frame_args_skip invalid");
0f71a2f6 4002 if (gdbarch_debug >= 2)
0f71a2f6
JM		 4003 fprintf_unfiltered (gdb_stdlog, "gdbarch_frame_args_skip called\n");
4004 return gdbarch->frame_args_skip;
4005}
4006
4007void
104c1213
JM		 4008set_gdbarch_frame_args_skip (struct gdbarch *gdbarch,
4009 CORE_ADDR frame_args_skip)
0f71a2f6
JM		 4010{
4011 gdbarch->frame_args_skip = frame_args_skip;
4012}
4013
4014int
4015gdbarch_frameless_function_invocation (struct gdbarch *gdbarch, struct frame_info *fi)
4016{
4017 if (gdbarch->frameless_function_invocation == 0)
8e65ff28
AC		 4018 internal_error (__FILE__, __LINE__,
4019 "gdbarch: gdbarch_frameless_function_invocation invalid");
0f71a2f6 4020 if (gdbarch_debug >= 2)
0f71a2f6
JM		 4021 fprintf_unfiltered (gdb_stdlog, "gdbarch_frameless_function_invocation called\n");
4022 return gdbarch->frameless_function_invocation (fi);
4023}
4024
4025void
104c1213
JM		 4026set_gdbarch_frameless_function_invocation (struct gdbarch *gdbarch,
4027 gdbarch_frameless_function_invocation_ftype frameless_function_invocation)
0f71a2f6
JM		 4028{
4029 gdbarch->frameless_function_invocation = frameless_function_invocation;
4030}
4031
4032CORE_ADDR
4033gdbarch_frame_chain (struct gdbarch *gdbarch, struct frame_info *frame)
4034{
4035 if (gdbarch->frame_chain == 0)
8e65ff28
AC		 4036 internal_error (__FILE__, __LINE__,
4037 "gdbarch: gdbarch_frame_chain invalid");
0f71a2f6 4038 if (gdbarch_debug >= 2)
0f71a2f6
JM		 4039 fprintf_unfiltered (gdb_stdlog, "gdbarch_frame_chain called\n");
4040 return gdbarch->frame_chain (frame);
4041}
4042
4043void
104c1213
JM		 4044set_gdbarch_frame_chain (struct gdbarch *gdbarch,
4045 gdbarch_frame_chain_ftype frame_chain)
0f71a2f6
JM		 4046{
4047 gdbarch->frame_chain = frame_chain;
4048}
4049
4050int
4051gdbarch_frame_chain_valid (struct gdbarch *gdbarch, CORE_ADDR chain, struct frame_info *thisframe)
4052{
4053 if (gdbarch->frame_chain_valid == 0)
8e65ff28
AC		 4054 internal_error (__FILE__, __LINE__,
4055 "gdbarch: gdbarch_frame_chain_valid invalid");
0f71a2f6 4056 if (gdbarch_debug >= 2)
0f71a2f6
JM		 4057 fprintf_unfiltered (gdb_stdlog, "gdbarch_frame_chain_valid called\n");
4058 return gdbarch->frame_chain_valid (chain, thisframe);
4059}
4060
4061void
104c1213
JM		 4062set_gdbarch_frame_chain_valid (struct gdbarch *gdbarch,
4063 gdbarch_frame_chain_valid_ftype frame_chain_valid)
0f71a2f6
JM		 4064{
4065 gdbarch->frame_chain_valid = frame_chain_valid;
4066}
4067
4068CORE_ADDR
4069gdbarch_frame_saved_pc (struct gdbarch *gdbarch, struct frame_info *fi)
4070{
4071 if (gdbarch->frame_saved_pc == 0)
8e65ff28
AC		 4072 internal_error (__FILE__, __LINE__,
4073 "gdbarch: gdbarch_frame_saved_pc invalid");
0f71a2f6 4074 if (gdbarch_debug >= 2)
0f71a2f6
JM		 4075 fprintf_unfiltered (gdb_stdlog, "gdbarch_frame_saved_pc called\n");
4076 return gdbarch->frame_saved_pc (fi);
4077}
4078
4079void
104c1213
JM		 4080set_gdbarch_frame_saved_pc (struct gdbarch *gdbarch,
4081 gdbarch_frame_saved_pc_ftype frame_saved_pc)
0f71a2f6
JM		 4082{
4083 gdbarch->frame_saved_pc = frame_saved_pc;
4084}
4085
4086CORE_ADDR
4087gdbarch_frame_args_address (struct gdbarch *gdbarch, struct frame_info *fi)
4088{
4089 if (gdbarch->frame_args_address == 0)
8e65ff28
AC		 4090 internal_error (__FILE__, __LINE__,
4091 "gdbarch: gdbarch_frame_args_address invalid");
0f71a2f6 4092 if (gdbarch_debug >= 2)
0f71a2f6
JM		 4093 fprintf_unfiltered (gdb_stdlog, "gdbarch_frame_args_address called\n");
4094 return gdbarch->frame_args_address (fi);
4095}
4096
4097void
104c1213
JM		 4098set_gdbarch_frame_args_address (struct gdbarch *gdbarch,
4099 gdbarch_frame_args_address_ftype frame_args_address)
0f71a2f6
JM		 4100{
4101 gdbarch->frame_args_address = frame_args_address;
4102}
4103
4104CORE_ADDR
4105gdbarch_frame_locals_address (struct gdbarch *gdbarch, struct frame_info *fi)
4106{
4107 if (gdbarch->frame_locals_address == 0)
8e65ff28
AC		 4108 internal_error (__FILE__, __LINE__,
4109 "gdbarch: gdbarch_frame_locals_address invalid");
0f71a2f6 4110 if (gdbarch_debug >= 2)
0f71a2f6
JM		 4111 fprintf_unfiltered (gdb_stdlog, "gdbarch_frame_locals_address called\n");
4112 return gdbarch->frame_locals_address (fi);
4113}
4114
4115void
104c1213
JM		 4116set_gdbarch_frame_locals_address (struct gdbarch *gdbarch,
4117 gdbarch_frame_locals_address_ftype frame_locals_address)
0f71a2f6
JM		 4118{
4119 gdbarch->frame_locals_address = frame_locals_address;
4120}
4121
4122CORE_ADDR
4123gdbarch_saved_pc_after_call (struct gdbarch *gdbarch, struct frame_info *frame)
4124{
4125 if (gdbarch->saved_pc_after_call == 0)
8e65ff28
AC		 4126 internal_error (__FILE__, __LINE__,
4127 "gdbarch: gdbarch_saved_pc_after_call invalid");
0f71a2f6 4128 if (gdbarch_debug >= 2)
0f71a2f6
JM		 4129 fprintf_unfiltered (gdb_stdlog, "gdbarch_saved_pc_after_call called\n");
4130 return gdbarch->saved_pc_after_call (frame);
4131}
4132
4133void
104c1213
JM		 4134set_gdbarch_saved_pc_after_call (struct gdbarch *gdbarch,
4135 gdbarch_saved_pc_after_call_ftype saved_pc_after_call)
0f71a2f6
JM		 4136{
4137 gdbarch->saved_pc_after_call = saved_pc_after_call;
4138}
4139
4140int
4141gdbarch_frame_num_args (struct gdbarch *gdbarch, struct frame_info *frame)
4142{
4143 if (gdbarch->frame_num_args == 0)
8e65ff28
AC		 4144 internal_error (__FILE__, __LINE__,
4145 "gdbarch: gdbarch_frame_num_args invalid");
0f71a2f6 4146 if (gdbarch_debug >= 2)
0f71a2f6
JM		 4147 fprintf_unfiltered (gdb_stdlog, "gdbarch_frame_num_args called\n");
4148 return gdbarch->frame_num_args (frame);
4149}
4150
4151void
104c1213
JM		 4152set_gdbarch_frame_num_args (struct gdbarch *gdbarch,
4153 gdbarch_frame_num_args_ftype frame_num_args)
0f71a2f6
JM		 4154{
4155 gdbarch->frame_num_args = frame_num_args;
4156}
4157
2ada493a
AC		 4158int
4159gdbarch_stack_align_p (struct gdbarch *gdbarch)
4160{
4161 return gdbarch->stack_align != 0;
4162}
4163
4164CORE_ADDR
4165gdbarch_stack_align (struct gdbarch *gdbarch, CORE_ADDR sp)
4166{
4167 if (gdbarch->stack_align == 0)
8e65ff28
AC		 4168 internal_error (__FILE__, __LINE__,
4169 "gdbarch: gdbarch_stack_align invalid");
2ada493a
AC		 4170 if (gdbarch_debug >= 2)
4171 fprintf_unfiltered (gdb_stdlog, "gdbarch_stack_align called\n");
4172 return gdbarch->stack_align (sp);
4173}
4174
4175void
4176set_gdbarch_stack_align (struct gdbarch *gdbarch,
4177 gdbarch_stack_align_ftype stack_align)
4178{
4179 gdbarch->stack_align = stack_align;
4180}
4181
1dd4193b
AC		 4182int
4183gdbarch_extra_stack_alignment_needed (struct gdbarch *gdbarch)
4184{
4185 /* Skip verify of extra_stack_alignment_needed, invalid_p == 0 */
4186 if (gdbarch_debug >= 2)
4187 fprintf_unfiltered (gdb_stdlog, "gdbarch_extra_stack_alignment_needed called\n");
4188 return gdbarch->extra_stack_alignment_needed;
4189}
4190
4191void
4192set_gdbarch_extra_stack_alignment_needed (struct gdbarch *gdbarch,
4193 int extra_stack_alignment_needed)
4194{
4195 gdbarch->extra_stack_alignment_needed = extra_stack_alignment_needed;
4196}
4197
d03e67c9
AC		 4198int
4199gdbarch_reg_struct_has_addr_p (struct gdbarch *gdbarch)
4200{
4201 return gdbarch->reg_struct_has_addr != 0;
4202}
4203
4204int
4205gdbarch_reg_struct_has_addr (struct gdbarch *gdbarch, int gcc_p, struct type *type)
4206{
4207 if (gdbarch->reg_struct_has_addr == 0)
8e65ff28
AC		 4208 internal_error (__FILE__, __LINE__,
4209 "gdbarch: gdbarch_reg_struct_has_addr invalid");
d03e67c9
AC		 4210 if (gdbarch_debug >= 2)
4211 fprintf_unfiltered (gdb_stdlog, "gdbarch_reg_struct_has_addr called\n");
4212 return gdbarch->reg_struct_has_addr (gcc_p, type);
4213}
4214
4215void
4216set_gdbarch_reg_struct_has_addr (struct gdbarch *gdbarch,
4217 gdbarch_reg_struct_has_addr_ftype reg_struct_has_addr)
4218{
4219 gdbarch->reg_struct_has_addr = reg_struct_has_addr;
4220}
4221
d1e3cf49
AC		 4222int
4223gdbarch_save_dummy_frame_tos_p (struct gdbarch *gdbarch)
4224{
4225 return gdbarch->save_dummy_frame_tos != 0;
4226}
4227
4228void
4229gdbarch_save_dummy_frame_tos (struct gdbarch *gdbarch, CORE_ADDR sp)
4230{
4231 if (gdbarch->save_dummy_frame_tos == 0)
8e65ff28
AC		 4232 internal_error (__FILE__, __LINE__,
4233 "gdbarch: gdbarch_save_dummy_frame_tos invalid");
d1e3cf49
AC		 4234 if (gdbarch_debug >= 2)
4235 fprintf_unfiltered (gdb_stdlog, "gdbarch_save_dummy_frame_tos called\n");
4236 gdbarch->save_dummy_frame_tos (sp);
4237}
4238
4239void
4240set_gdbarch_save_dummy_frame_tos (struct gdbarch *gdbarch,
4241 gdbarch_save_dummy_frame_tos_ftype save_dummy_frame_tos)
4242{
4243 gdbarch->save_dummy_frame_tos = save_dummy_frame_tos;
4244}
4245
58d5518e
ND		 4246int
4247gdbarch_parm_boundary (struct gdbarch *gdbarch)
4248{
4249 if (gdbarch_debug >= 2)
4250 fprintf_unfiltered (gdb_stdlog, "gdbarch_parm_boundary called\n");
4251 return gdbarch->parm_boundary;
4252}
4253
4254void
4255set_gdbarch_parm_boundary (struct gdbarch *gdbarch,
4256 int parm_boundary)
4257{
4258 gdbarch->parm_boundary = parm_boundary;
4259}
4260
f0d4cc9e
AC		 4261const struct floatformat *
4262gdbarch_float_format (struct gdbarch *gdbarch)
4263{
4264 if (gdbarch_debug >= 2)
4265 fprintf_unfiltered (gdb_stdlog, "gdbarch_float_format called\n");
4266 return gdbarch->float_format;
4267}
4268
4269void
4270set_gdbarch_float_format (struct gdbarch *gdbarch,
4271 const struct floatformat * float_format)
4272{
4273 gdbarch->float_format = float_format;
4274}
4275
4276const struct floatformat *
4277gdbarch_double_format (struct gdbarch *gdbarch)
4278{
4279 if (gdbarch_debug >= 2)
4280 fprintf_unfiltered (gdb_stdlog, "gdbarch_double_format called\n");
4281 return gdbarch->double_format;
4282}
4283
4284void
4285set_gdbarch_double_format (struct gdbarch *gdbarch,
4286 const struct floatformat * double_format)
4287{
4288 gdbarch->double_format = double_format;
4289}
4290
4291const struct floatformat *
4292gdbarch_long_double_format (struct gdbarch *gdbarch)
4293{
4294 if (gdbarch_debug >= 2)
4295 fprintf_unfiltered (gdb_stdlog, "gdbarch_long_double_format called\n");
4296 return gdbarch->long_double_format;
4297}
4298
4299void
4300set_gdbarch_long_double_format (struct gdbarch *gdbarch,
4301 const struct floatformat * long_double_format)
4302{
4303 gdbarch->long_double_format = long_double_format;
4304}
4305
f517ea4e
PS		 4306CORE_ADDR
4307gdbarch_convert_from_func_ptr_addr (struct gdbarch *gdbarch, CORE_ADDR addr)
4308{
4309 if (gdbarch->convert_from_func_ptr_addr == 0)
8e65ff28
AC		 4310 internal_error (__FILE__, __LINE__,
4311 "gdbarch: gdbarch_convert_from_func_ptr_addr invalid");
f517ea4e
PS		 4312 if (gdbarch_debug >= 2)
4313 fprintf_unfiltered (gdb_stdlog, "gdbarch_convert_from_func_ptr_addr called\n");
4314 return gdbarch->convert_from_func_ptr_addr (addr);
4315}
4316
4317void
4318set_gdbarch_convert_from_func_ptr_addr (struct gdbarch *gdbarch,
4319 gdbarch_convert_from_func_ptr_addr_ftype convert_from_func_ptr_addr)
4320{
4321 gdbarch->convert_from_func_ptr_addr = convert_from_func_ptr_addr;
4322}
4323
875e1767
AC		 4324CORE_ADDR
4325gdbarch_addr_bits_remove (struct gdbarch *gdbarch, CORE_ADDR addr)
4326{
4327 if (gdbarch->addr_bits_remove == 0)
4328 internal_error (__FILE__, __LINE__,
4329 "gdbarch: gdbarch_addr_bits_remove invalid");
4330 if (gdbarch_debug >= 2)
4331 fprintf_unfiltered (gdb_stdlog, "gdbarch_addr_bits_remove called\n");
4332 return gdbarch->addr_bits_remove (addr);
4333}
4334
4335void
4336set_gdbarch_addr_bits_remove (struct gdbarch *gdbarch,
4337 gdbarch_addr_bits_remove_ftype addr_bits_remove)
4338{
4339 gdbarch->addr_bits_remove = addr_bits_remove;
4340}
4341
181c1381
RE		 4342CORE_ADDR
4343gdbarch_smash_text_address (struct gdbarch *gdbarch, CORE_ADDR addr)
4344{
4345 if (gdbarch->smash_text_address == 0)
4346 internal_error (__FILE__, __LINE__,
4347 "gdbarch: gdbarch_smash_text_address invalid");
4348 if (gdbarch_debug >= 2)
4349 fprintf_unfiltered (gdb_stdlog, "gdbarch_smash_text_address called\n");
4350 return gdbarch->smash_text_address (addr);
4351}
4352
4353void
4354set_gdbarch_smash_text_address (struct gdbarch *gdbarch,
4355 gdbarch_smash_text_address_ftype smash_text_address)
4356{
4357 gdbarch->smash_text_address = smash_text_address;
4358}
4359
64c4637f
AC		 4360int
4361gdbarch_software_single_step_p (struct gdbarch *gdbarch)
4362{
4363 return gdbarch->software_single_step != 0;
4364}
4365
4366void
4367gdbarch_software_single_step (struct gdbarch *gdbarch, enum target_signal sig, int insert_breakpoints_p)
4368{
4369 if (gdbarch->software_single_step == 0)
4370 internal_error (__FILE__, __LINE__,
4371 "gdbarch: gdbarch_software_single_step invalid");
4372 if (gdbarch_debug >= 2)
4373 fprintf_unfiltered (gdb_stdlog, "gdbarch_software_single_step called\n");
4374 gdbarch->software_single_step (sig, insert_breakpoints_p);
4375}
4376
4377void
4378set_gdbarch_software_single_step (struct gdbarch *gdbarch,
4379 gdbarch_software_single_step_ftype software_single_step)
4380{
4381 gdbarch->software_single_step = software_single_step;
4382}
4383
2bf0cb65
EZ		 4384int
4385gdbarch_print_insn (struct gdbarch *gdbarch, bfd_vma vma, disassemble_info *info)
4386{
4387 if (gdbarch->print_insn == 0)
4388 internal_error (__FILE__, __LINE__,
4389 "gdbarch: gdbarch_print_insn invalid");
4390 if (gdbarch_debug >= 2)
4391 fprintf_unfiltered (gdb_stdlog, "gdbarch_print_insn called\n");
4392 return gdbarch->print_insn (vma, info);
4393}
4394
4395void
4396set_gdbarch_print_insn (struct gdbarch *gdbarch,
4397 gdbarch_print_insn_ftype print_insn)
4398{
4399 gdbarch->print_insn = print_insn;
4400}
4401
bdcd319a
CV		 4402CORE_ADDR
4403gdbarch_skip_trampoline_code (struct gdbarch *gdbarch, CORE_ADDR pc)
4404{
4405 if (gdbarch->skip_trampoline_code == 0)
4406 internal_error (__FILE__, __LINE__,
4407 "gdbarch: gdbarch_skip_trampoline_code invalid");
4408 if (gdbarch_debug >= 2)
4409 fprintf_unfiltered (gdb_stdlog, "gdbarch_skip_trampoline_code called\n");
4410 return gdbarch->skip_trampoline_code (pc);
4411}
4412
4413void
4414set_gdbarch_skip_trampoline_code (struct gdbarch *gdbarch,
4415 gdbarch_skip_trampoline_code_ftype skip_trampoline_code)
4416{
4417 gdbarch->skip_trampoline_code = skip_trampoline_code;
4418}
4419
68e9cc94
CV		 4420int
4421gdbarch_in_solib_call_trampoline (struct gdbarch *gdbarch, CORE_ADDR pc, char *name)
4422{
4423 if (gdbarch->in_solib_call_trampoline == 0)
4424 internal_error (__FILE__, __LINE__,
4425 "gdbarch: gdbarch_in_solib_call_trampoline invalid");
4426 if (gdbarch_debug >= 2)
4427 fprintf_unfiltered (gdb_stdlog, "gdbarch_in_solib_call_trampoline called\n");
4428 return gdbarch->in_solib_call_trampoline (pc, name);
4429}
4430
4431void
4432set_gdbarch_in_solib_call_trampoline (struct gdbarch *gdbarch,
4433 gdbarch_in_solib_call_trampoline_ftype in_solib_call_trampoline)
4434{
4435 gdbarch->in_solib_call_trampoline = in_solib_call_trampoline;
4436}
4437
c12260ac
CV		 4438int
4439gdbarch_in_function_epilogue_p (struct gdbarch *gdbarch, CORE_ADDR addr)
4440{
4441 if (gdbarch->in_function_epilogue_p == 0)
4442 internal_error (__FILE__, __LINE__,
4443 "gdbarch: gdbarch_in_function_epilogue_p invalid");
4444 if (gdbarch_debug >= 2)
4445 fprintf_unfiltered (gdb_stdlog, "gdbarch_in_function_epilogue_p called\n");
4446 return gdbarch->in_function_epilogue_p (gdbarch, addr);
4447}
4448
4449void
4450set_gdbarch_in_function_epilogue_p (struct gdbarch *gdbarch,
4451 gdbarch_in_function_epilogue_p_ftype in_function_epilogue_p)
4452{
4453 gdbarch->in_function_epilogue_p = in_function_epilogue_p;
4454}
4455
552c04a7
TT		 4456char *
4457gdbarch_construct_inferior_arguments (struct gdbarch *gdbarch, int argc, char **argv)
4458{
4459 if (gdbarch->construct_inferior_arguments == 0)
4460 internal_error (__FILE__, __LINE__,
4461 "gdbarch: gdbarch_construct_inferior_arguments invalid");
4462 if (gdbarch_debug >= 2)
4463 fprintf_unfiltered (gdb_stdlog, "gdbarch_construct_inferior_arguments called\n");
4464 return gdbarch->construct_inferior_arguments (gdbarch, argc, argv);
4465}
4466
4467void
4468set_gdbarch_construct_inferior_arguments (struct gdbarch *gdbarch,
4469 gdbarch_construct_inferior_arguments_ftype construct_inferior_arguments)
4470{
4471 gdbarch->construct_inferior_arguments = construct_inferior_arguments;
4472}
4473
b6af0555
JS		 4474int
4475gdbarch_dwarf2_build_frame_info_p (struct gdbarch *gdbarch)
4476{
4477 return gdbarch->dwarf2_build_frame_info != 0;
4478}
4479
4480void
4481gdbarch_dwarf2_build_frame_info (struct gdbarch *gdbarch, struct objfile *objfile)
4482{
4483 if (gdbarch->dwarf2_build_frame_info == 0)
4484 internal_error (__FILE__, __LINE__,
4485 "gdbarch: gdbarch_dwarf2_build_frame_info invalid");
4486 if (gdbarch_debug >= 2)
4487 fprintf_unfiltered (gdb_stdlog, "gdbarch_dwarf2_build_frame_info called\n");
4488 gdbarch->dwarf2_build_frame_info (objfile);
4489}
4490
4491void
4492set_gdbarch_dwarf2_build_frame_info (struct gdbarch *gdbarch,
4493 gdbarch_dwarf2_build_frame_info_ftype dwarf2_build_frame_info)
4494{
4495 gdbarch->dwarf2_build_frame_info = dwarf2_build_frame_info;
4496}
4497
a2cf933a
EZ		 4498void
4499gdbarch_elf_make_msymbol_special (struct gdbarch *gdbarch, asymbol *sym, struct minimal_symbol *msym)
4500{
4501 if (gdbarch->elf_make_msymbol_special == 0)
4502 internal_error (__FILE__, __LINE__,
4503 "gdbarch: gdbarch_elf_make_msymbol_special invalid");
4504 if (gdbarch_debug >= 2)
4505 fprintf_unfiltered (gdb_stdlog, "gdbarch_elf_make_msymbol_special called\n");
4506 gdbarch->elf_make_msymbol_special (sym, msym);
4507}
4508
4509void
4510set_gdbarch_elf_make_msymbol_special (struct gdbarch *gdbarch,
4511 gdbarch_elf_make_msymbol_special_ftype elf_make_msymbol_special)
4512{
4513 gdbarch->elf_make_msymbol_special = elf_make_msymbol_special;
4514}
4515
4516void
4517gdbarch_coff_make_msymbol_special (struct gdbarch *gdbarch, int val, struct minimal_symbol *msym)
4518{
4519 if (gdbarch->coff_make_msymbol_special == 0)
4520 internal_error (__FILE__, __LINE__,
4521 "gdbarch: gdbarch_coff_make_msymbol_special invalid");
4522 if (gdbarch_debug >= 2)
4523 fprintf_unfiltered (gdb_stdlog, "gdbarch_coff_make_msymbol_special called\n");
4524 gdbarch->coff_make_msymbol_special (val, msym);
4525}
4526
4527void
4528set_gdbarch_coff_make_msymbol_special (struct gdbarch *gdbarch,
4529 gdbarch_coff_make_msymbol_special_ftype coff_make_msymbol_special)
4530{
4531 gdbarch->coff_make_msymbol_special = coff_make_msymbol_special;
4532}
4533
0f71a2f6 4534
be5a57e1 4535/* Keep a registry of per-architecture data-pointers required by GDB
0f71a2f6
JM		 4536 modules. */
4537
4538struct gdbarch_data
4539{
95160752
AC		 4540 unsigned index;
4541 gdbarch_data_init_ftype *init;
4542 gdbarch_data_free_ftype *free;
0f71a2f6
JM		 4543};
4544
4545struct gdbarch_data_registration
adf40b2e 4546{
adf40b2e
JM		 4547 struct gdbarch_data *data;
4548 struct gdbarch_data_registration *next;
4549};
0f71a2f6 4550
be5a57e1 4551struct gdbarch_data_registry
adf40b2e 4552{
95160752 4553 unsigned nr;
adf40b2e
JM		 4554 struct gdbarch_data_registration *registrations;
4555};
0f71a2f6 4556
be5a57e1 4557struct gdbarch_data_registry gdbarch_data_registry =
0f71a2f6
JM		 4558{
4559 0, NULL,
4560};
4561
4562struct gdbarch_data *
95160752
AC		 4563register_gdbarch_data (gdbarch_data_init_ftype *init,
4564 gdbarch_data_free_ftype *free)
0f71a2f6
JM		 4565{
4566 struct gdbarch_data_registration **curr;
be5a57e1 4567 for (curr = &gdbarch_data_registry.registrations;
0f71a2f6
JM		 4568 (*curr) != NULL;
4569 curr = &(*curr)->next);
4570 (*curr) = XMALLOC (struct gdbarch_data_registration);
4571 (*curr)->next = NULL;
0f71a2f6 4572 (*curr)->data = XMALLOC (struct gdbarch_data);
be5a57e1 4573 (*curr)->data->index = gdbarch_data_registry.nr++;
95160752
AC		 4574 (*curr)->data->init = init;
4575 (*curr)->data->free = free;
0f71a2f6
JM		 4576 return (*curr)->data;
4577}
4578
4579
b3cc3077 4580/* Walk through all the registered users initializing each in turn. */
0f71a2f6 4581
0f71a2f6 4582static void
b3cc3077 4583init_gdbarch_data (struct gdbarch *gdbarch)
0f71a2f6 4584{
b3cc3077
JB		 4585 struct gdbarch_data_registration *rego;
4586 for (rego = gdbarch_data_registry.registrations;
4587 rego != NULL;
4588 rego = rego->next)
0f71a2f6 4589 {
b3cc3077
JB		 4590 struct gdbarch_data *data = rego->data;
4591 gdb_assert (data->index < gdbarch->nr_data);
4592 if (data->init != NULL)
95160752 4593 {
b3cc3077
JB		 4594 void *pointer = data->init (gdbarch);
4595 set_gdbarch_data (gdbarch, data, pointer);
95160752
AC		 4596 }
4597 }
4598}
4599
b3cc3077 4600/* Create/delete the gdbarch data vector. */
95160752
AC		 4601
4602static void
b3cc3077 4603alloc_gdbarch_data (struct gdbarch *gdbarch)
95160752 4604{
b3cc3077
JB		 4605 gdb_assert (gdbarch->data == NULL);
4606 gdbarch->nr_data = gdbarch_data_registry.nr;
4607 gdbarch->data = xcalloc (gdbarch->nr_data, sizeof (void*));
4608}
3c875b6f 4609
b3cc3077
JB		 4610static void
4611free_gdbarch_data (struct gdbarch *gdbarch)
4612{
4613 struct gdbarch_data_registration *rego;
4614 gdb_assert (gdbarch->data != NULL);
4615 for (rego = gdbarch_data_registry.registrations;
4616 rego != NULL;
4617 rego = rego->next)
95160752 4618 {
b3cc3077
JB		 4619 struct gdbarch_data *data = rego->data;
4620 gdb_assert (data->index < gdbarch->nr_data);
4621 if (data->free != NULL && gdbarch->data[data->index] != NULL)
95160752 4622 {
b3cc3077
JB		 4623 data->free (gdbarch, gdbarch->data[data->index]);
4624 gdbarch->data[data->index] = NULL;
95160752 4625 }
0f71a2f6 4626 }
b3cc3077
JB		 4627 xfree (gdbarch->data);
4628 gdbarch->data = NULL;
0f71a2f6
JM		 4629}
4630
4631
b3cc3077
JB		 4632/* Initialize the current value of thee specified per-architecture
4633 data-pointer. */
4634
95160752
AC		 4635void
4636set_gdbarch_data (struct gdbarch *gdbarch,
4637 struct gdbarch_data *data,
4638 void *pointer)
4639{
4640 gdb_assert (data->index < gdbarch->nr_data);
4641 if (data->free != NULL && gdbarch->data[data->index] != NULL)
4642 data->free (gdbarch, gdbarch->data[data->index]);
4643 gdbarch->data[data->index] = pointer;
4644}
4645
0f71a2f6
JM		 4646/* Return the current value of the specified per-architecture
4647 data-pointer. */
4648
4649void *
7c7651b2 4650gdbarch_data (struct gdbarch_data *data)
0f71a2f6 4651{
95160752 4652 gdb_assert (data->index < current_gdbarch->nr_data);
0f71a2f6
JM		 4653 return current_gdbarch->data[data->index];
4654}
4655
4656
4657
be5a57e1 4658/* Keep a registry of swapped data required by GDB modules. */
0f71a2f6
JM		 4659
4660struct gdbarch_swap
4661{
4662 void *swap;
4663 struct gdbarch_swap_registration *source;
4664 struct gdbarch_swap *next;
4665};
4666
4667struct gdbarch_swap_registration
adf40b2e
JM		 4668{
4669 void *data;
4670 unsigned long sizeof_data;
4671 gdbarch_swap_ftype *init;
4672 struct gdbarch_swap_registration *next;
4673};
0f71a2f6 4674
be5a57e1 4675struct gdbarch_swap_registry
adf40b2e
JM		 4676{
4677 int nr;
4678 struct gdbarch_swap_registration *registrations;
4679};
0f71a2f6 4680
be5a57e1 4681struct gdbarch_swap_registry gdbarch_swap_registry =
0f71a2f6
JM		 4682{
4683 0, NULL,
4684};
4685
4686void
104c1213
JM		 4687register_gdbarch_swap (void *data,
4688 unsigned long sizeof_data,
4689 gdbarch_swap_ftype *init)
0f71a2f6
JM		 4690{
4691 struct gdbarch_swap_registration **rego;
be5a57e1 4692 for (rego = &gdbarch_swap_registry.registrations;
0f71a2f6
JM		 4693 (*rego) != NULL;
4694 rego = &(*rego)->next);
4695 (*rego) = XMALLOC (struct gdbarch_swap_registration);
4696 (*rego)->next = NULL;
4697 (*rego)->init = init;
4698 (*rego)->data = data;
4699 (*rego)->sizeof_data = sizeof_data;
4700}
4701
4702
0f71a2f6 4703static void
104c1213 4704init_gdbarch_swap (struct gdbarch *gdbarch)
0f71a2f6
JM		 4705{
4706 struct gdbarch_swap_registration *rego;
4707 struct gdbarch_swap **curr = &gdbarch->swap;
be5a57e1 4708 for (rego = gdbarch_swap_registry.registrations;
0f71a2f6
JM		 4709 rego != NULL;
4710 rego = rego->next)
4711 {
4712 if (rego->data != NULL)
4713 {
4714 (*curr) = XMALLOC (struct gdbarch_swap);
4715 (*curr)->source = rego;
4716 (*curr)->swap = xmalloc (rego->sizeof_data);
4717 (*curr)->next = NULL;
4718 memset (rego->data, 0, rego->sizeof_data);
4719 curr = &(*curr)->next;
4720 }
4721 if (rego->init != NULL)
4722 rego->init ();
4723 }
4724}
4725
0f71a2f6 4726static void
104c1213 4727swapout_gdbarch_swap (struct gdbarch *gdbarch)
0f71a2f6
JM		 4728{
4729 struct gdbarch_swap *curr;
4730 for (curr = gdbarch->swap;
4731 curr != NULL;
4732 curr = curr->next)
4733 memcpy (curr->swap, curr->source->data, curr->source->sizeof_data);
4734}
4735
0f71a2f6 4736static void
104c1213 4737swapin_gdbarch_swap (struct gdbarch *gdbarch)
0f71a2f6
JM		 4738{
4739 struct gdbarch_swap *curr;
4740 for (curr = gdbarch->swap;
4741 curr != NULL;
4742 curr = curr->next)
4743 memcpy (curr->source->data, curr->swap, curr->source->sizeof_data);
4744}
4745
4746
be5a57e1 4747/* Keep a registry of the architectures known by GDB. */
0f71a2f6 4748
4b9b3959 4749struct gdbarch_registration
0f71a2f6
JM		 4750{
4751 enum bfd_architecture bfd_architecture;
4752 gdbarch_init_ftype *init;
4b9b3959 4753 gdbarch_dump_tdep_ftype *dump_tdep;
0f71a2f6 4754 struct gdbarch_list *arches;
4b9b3959 4755 struct gdbarch_registration *next;
0f71a2f6
JM		 4756};
4757
be5a57e1 4758static struct gdbarch_registration *gdbarch_registry = NULL;
0f71a2f6 4759
b4a20239
AC		 4760static void
4761append_name (const char ***buf, int *nr, const char *name)
4762{
4763 *buf = xrealloc (*buf, sizeof (char**) * (*nr + 1));
4764 (*buf)[*nr] = name;
4765 *nr += 1;
4766}
4767
4768const char **
4769gdbarch_printable_names (void)
4770{
4771 if (GDB_MULTI_ARCH)
4772 {
4773 /* Accumulate a list of names based on the registed list of
4774 architectures. */
4775 enum bfd_architecture a;
4776 int nr_arches = 0;
4777 const char **arches = NULL;
4b9b3959 4778 struct gdbarch_registration *rego;
be5a57e1 4779 for (rego = gdbarch_registry;
b4a20239
AC		 4780 rego != NULL;
4781 rego = rego->next)
4782 {
4783 const struct bfd_arch_info *ap;
4784 ap = bfd_lookup_arch (rego->bfd_architecture, 0);
4785 if (ap == NULL)
8e65ff28
AC		 4786 internal_error (__FILE__, __LINE__,
4787 "gdbarch_architecture_names: multi-arch unknown");
b4a20239
AC		 4788 do
4789 {
4790 append_name (&arches, &nr_arches, ap->printable_name);
4791 ap = ap->next;
4792 }
4793 while (ap != NULL);
4794 }
4795 append_name (&arches, &nr_arches, NULL);
4796 return arches;
4797 }
4798 else
4799 /* Just return all the architectures that BFD knows. Assume that
4800 the legacy architecture framework supports them. */
4801 return bfd_arch_list ();
4802}
4803
4804
0f71a2f6 4805void
4b9b3959
AC		 4806gdbarch_register (enum bfd_architecture bfd_architecture,
4807 gdbarch_init_ftype *init,
4808 gdbarch_dump_tdep_ftype *dump_tdep)
0f71a2f6 4809{
4b9b3959 4810 struct gdbarch_registration **curr;
0f71a2f6 4811 const struct bfd_arch_info *bfd_arch_info;
ec3d358c 4812 /* Check that BFD recognizes this architecture */
0f71a2f6
JM		 4813 bfd_arch_info = bfd_lookup_arch (bfd_architecture, 0);
4814 if (bfd_arch_info == NULL)
4815 {
8e65ff28
AC		 4816 internal_error (__FILE__, __LINE__,
4817 "gdbarch: Attempt to register unknown architecture (%d)",
4818 bfd_architecture);
0f71a2f6
JM		 4819 }
4820 /* Check that we haven't seen this architecture before */
be5a57e1 4821 for (curr = &gdbarch_registry;
0f71a2f6
JM		 4822 (*curr) != NULL;
4823 curr = &(*curr)->next)
4824 {
4825 if (bfd_architecture == (*curr)->bfd_architecture)
8e65ff28
AC		 4826 internal_error (__FILE__, __LINE__,
4827 "gdbarch: Duplicate registraration of architecture (%s)",
4828 bfd_arch_info->printable_name);
0f71a2f6
JM		 4829 }
4830 /* log it */
4831 if (gdbarch_debug)
4832 fprintf_unfiltered (gdb_stdlog, "register_gdbarch_init (%s, 0x%08lx)\n",
4833 bfd_arch_info->printable_name,
4834 (long) init);
4835 /* Append it */
4b9b3959 4836 (*curr) = XMALLOC (struct gdbarch_registration);
0f71a2f6
JM		 4837 (*curr)->bfd_architecture = bfd_architecture;
4838 (*curr)->init = init;
4b9b3959 4839 (*curr)->dump_tdep = dump_tdep;
0f71a2f6
JM		 4840 (*curr)->arches = NULL;
4841 (*curr)->next = NULL;
8e1a459b
C		 4842 /* When non- multi-arch, install whatever target dump routine we've
4843 been provided - hopefully that routine has been written correctly
4b9b3959
AC		 4844 and works regardless of multi-arch. */
4845 if (!GDB_MULTI_ARCH && dump_tdep != NULL
4846 && startup_gdbarch.dump_tdep == NULL)
4847 startup_gdbarch.dump_tdep = dump_tdep;
4848}
4849
4850void
4851register_gdbarch_init (enum bfd_architecture bfd_architecture,
4852 gdbarch_init_ftype *init)
4853{
4854 gdbarch_register (bfd_architecture, init, NULL);
0f71a2f6 4855}
0f71a2f6
JM		 4856
4857
4858/* Look for an architecture using gdbarch_info. Base search on only
4859 BFD_ARCH_INFO and BYTE_ORDER. */
4860
4861struct gdbarch_list *
104c1213
JM		 4862gdbarch_list_lookup_by_info (struct gdbarch_list *arches,
4863 const struct gdbarch_info *info)
0f71a2f6
JM		 4864{
4865 for (; arches != NULL; arches = arches->next)
4866 {
4867 if (info->bfd_arch_info != arches->gdbarch->bfd_arch_info)
4868 continue;
4869 if (info->byte_order != arches->gdbarch->byte_order)
4870 continue;
4871 return arches;
4872 }
4873 return NULL;
4874}
4875
4876
4877/* Update the current architecture. Return ZERO if the update request
4878 failed. */
4879
4880int
16f33e29 4881gdbarch_update_p (struct gdbarch_info info)
0f71a2f6
JM		 4882{
4883 struct gdbarch *new_gdbarch;
4884 struct gdbarch_list **list;
4b9b3959 4885 struct gdbarch_registration *rego;
0f71a2f6 4886
b732d07d
AC		 4887 /* Fill in missing parts of the INFO struct using a number of
4888 sources: ``set ...''; INFOabfd supplied; existing target. */
4889
4890 /* ``(gdb) set architecture ...'' */
4891 if (info.bfd_arch_info == NULL
4892 && !TARGET_ARCHITECTURE_AUTO)
4893 info.bfd_arch_info = TARGET_ARCHITECTURE;
4894 if (info.bfd_arch_info == NULL
4895 && info.abfd != NULL
4896 && bfd_get_arch (info.abfd) != bfd_arch_unknown
4897 && bfd_get_arch (info.abfd) != bfd_arch_obscure)
4898 info.bfd_arch_info = bfd_get_arch_info (info.abfd);
0f71a2f6 4899 if (info.bfd_arch_info == NULL)
b732d07d
AC		 4900 info.bfd_arch_info = TARGET_ARCHITECTURE;
4901
4902 /* ``(gdb) set byte-order ...'' */
428721aa 4903 if (info.byte_order == BFD_ENDIAN_UNKNOWN
b732d07d
AC		 4904 && !TARGET_BYTE_ORDER_AUTO)
4905 info.byte_order = TARGET_BYTE_ORDER;
4906 /* From the INFO struct. */
428721aa 4907 if (info.byte_order == BFD_ENDIAN_UNKNOWN
b732d07d 4908 && info.abfd != NULL)
d7449b42 4909 info.byte_order = (bfd_big_endian (info.abfd) ? BFD_ENDIAN_BIG
778eb05e 4910 : bfd_little_endian (info.abfd) ? BFD_ENDIAN_LITTLE
428721aa 4911 : BFD_ENDIAN_UNKNOWN);
b732d07d 4912 /* From the current target. */
428721aa 4913 if (info.byte_order == BFD_ENDIAN_UNKNOWN)
b732d07d 4914 info.byte_order = TARGET_BYTE_ORDER;
0f71a2f6 4915
b732d07d
AC		 4916 /* Must have found some sort of architecture. */
4917 gdb_assert (info.bfd_arch_info != NULL);
0f71a2f6
JM		 4918
4919 if (gdbarch_debug)
4920 {
0f71a2f6
JM		 4921 fprintf_unfiltered (gdb_stdlog,
4922 "gdbarch_update: info.bfd_arch_info %s\n",
4923 (info.bfd_arch_info != NULL
4924 ? info.bfd_arch_info->printable_name
4925 : "(null)"));
4926 fprintf_unfiltered (gdb_stdlog,
4927 "gdbarch_update: info.byte_order %d (%s)\n",
4928 info.byte_order,
d7449b42 4929 (info.byte_order == BFD_ENDIAN_BIG ? "big"
778eb05e 4930 : info.byte_order == BFD_ENDIAN_LITTLE ? "little"
0f71a2f6
JM		 4931 : "default"));
4932 fprintf_unfiltered (gdb_stdlog,
4933 "gdbarch_update: info.abfd 0x%lx\n",
4934 (long) info.abfd);
4935 fprintf_unfiltered (gdb_stdlog,
4936 "gdbarch_update: info.tdep_info 0x%lx\n",
4937 (long) info.tdep_info);
4938 }
4939
b732d07d
AC		 4940 /* Find the target that knows about this architecture. */
4941 for (rego = gdbarch_registry;
4942 rego != NULL;
4943 rego = rego->next)
4944 if (rego->bfd_architecture == info.bfd_arch_info->arch)
4945 break;
4946 if (rego == NULL)
4947 {
4948 if (gdbarch_debug)
4949 fprintf_unfiltered (gdb_stdlog, "gdbarch_update: No matching architecture\n");
4950 return 0;
4951 }
4952
0f71a2f6
JM		 4953 /* Ask the target for a replacement architecture. */
4954 new_gdbarch = rego->init (info, rego->arches);
4955
4956 /* Did the target like it? No. Reject the change. */
4957 if (new_gdbarch == NULL)
4958 {
4959 if (gdbarch_debug)
4960 fprintf_unfiltered (gdb_stdlog, "gdbarch_update: Target rejected architecture\n");
4961 return 0;
4962 }
4963
4964 /* Did the architecture change? No. Do nothing. */
4965 if (current_gdbarch == new_gdbarch)
4966 {
4967 if (gdbarch_debug)
4968 fprintf_unfiltered (gdb_stdlog, "gdbarch_update: Architecture 0x%08lx (%s) unchanged\n",
4969 (long) new_gdbarch,
4970 new_gdbarch->bfd_arch_info->printable_name);
4971 return 1;
4972 }
4973
4974 /* Swap all data belonging to the old target out */
4975 swapout_gdbarch_swap (current_gdbarch);
4976
4977 /* Is this a pre-existing architecture? Yes. Swap it in. */
4978 for (list = &rego->arches;
4979 (*list) != NULL;
4980 list = &(*list)->next)
4981 {
4982 if ((*list)->gdbarch == new_gdbarch)
4983 {
4984 if (gdbarch_debug)
4b9b3959
AC		 4985 fprintf_unfiltered (gdb_stdlog,
4986 "gdbarch_update: Previous architecture 0x%08lx (%s) selected\n",
0f71a2f6
JM		 4987 (long) new_gdbarch,
4988 new_gdbarch->bfd_arch_info->printable_name);
4989 current_gdbarch = new_gdbarch;
4990 swapin_gdbarch_swap (new_gdbarch);
67c2c32c 4991 architecture_changed_event ();
0f71a2f6
JM		 4992 return 1;
4993 }
4994 }
4b9b3959 4995
0f71a2f6
JM		 4996 /* Append this new architecture to this targets list. */
4997 (*list) = XMALLOC (struct gdbarch_list);
4998 (*list)->next = NULL;
4999 (*list)->gdbarch = new_gdbarch;
5000
5001 /* Switch to this new architecture. Dump it out. */
5002 current_gdbarch = new_gdbarch;
5003 if (gdbarch_debug)
5004 {
5005 fprintf_unfiltered (gdb_stdlog,
adf40b2e 5006 "gdbarch_update: New architecture 0x%08lx (%s) selected\n",
0f71a2f6
JM		 5007 (long) new_gdbarch,
5008 new_gdbarch->bfd_arch_info->printable_name);
0f71a2f6 5009 }
adf40b2e 5010
4b9b3959
AC		 5011 /* Check that the newly installed architecture is valid. Plug in
5012 any post init values. */
5013 new_gdbarch->dump_tdep = rego->dump_tdep;
0f71a2f6
JM		 5014 verify_gdbarch (new_gdbarch);
5015
5016 /* Initialize the per-architecture memory (swap) areas.
5017 CURRENT_GDBARCH must be update before these modules are
5018 called. */
5019 init_gdbarch_swap (new_gdbarch);
adf40b2e 5020
b3cc3077
JB		 5021 /* Initialize the per-architecture data-pointer of all parties that
5022 registered an interest in this architecture. CURRENT_GDBARCH
5023 must be updated before these modules are called. */
5024 init_gdbarch_data (new_gdbarch);
67c2c32c
KS		 5025 architecture_changed_event ();
5026
4b9b3959
AC		 5027 if (gdbarch_debug)
5028 gdbarch_dump (current_gdbarch, gdb_stdlog);
5029
0f71a2f6
JM		 5030 return 1;
5031}
c906108c 5032
c906108c 5033
c906108c
SS		 5034/* Disassembler */
5035
5036/* Pointer to the target-dependent disassembly function. */
104c1213 5037int (*tm_print_insn) (bfd_vma, disassemble_info *);
c906108c
SS		 5038disassemble_info tm_print_insn_info;
5039
5040
104c1213 5041extern void _initialize_gdbarch (void);
b4a20239 5042
c906108c 5043void
7c7651b2 5044_initialize_gdbarch (void)
c906108c 5045{
5d161b24
DB		 5046 struct cmd_list_element *c;
5047
adf40b2e 5048 INIT_DISASSEMBLE_INFO_NO_ARCH (tm_print_insn_info, gdb_stdout, (fprintf_ftype)fprintf_filtered);
c906108c
SS		 5049 tm_print_insn_info.flavour = bfd_target_unknown_flavour;
5050 tm_print_insn_info.read_memory_func = dis_asm_read_memory;
5051 tm_print_insn_info.memory_error_func = dis_asm_memory_error;
5052 tm_print_insn_info.print_address_func = dis_asm_print_address;
5053
5d161b24 5054 add_show_from_set (add_set_cmd ("arch",
c906108c
SS		 5055 class_maintenance,
5056 var_zinteger,
adf40b2e 5057 (char *)&gdbarch_debug,
c906108c 5058 "Set architecture debugging.\n\
5d161b24
DB		 5059When non-zero, architecture debugging is enabled.", &setdebuglist),
5060 &showdebuglist);
59233f88
AC		 5061 c = add_set_cmd ("archdebug",
5062 class_maintenance,
5063 var_zinteger,
5064 (char *)&gdbarch_debug,
5065 "Set architecture debugging.\n\
5d161b24
DB		 5066When non-zero, architecture debugging is enabled.", &setlist);
5067
59233f88
AC		 5068 deprecate_cmd (c, "set debug arch");
5069 deprecate_cmd (add_show_from_set (c, &showlist), "show debug arch");
c906108c 5070}
GDB Binutils - Deliverables
This page took 0.457608 seconds and 4 git commands to generate.