1 /* *INDENT-OFF* */ /* THIS FILE IS GENERATED */
3 /* Dynamic architecture support for GDB, the GNU debugger.
5 Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
6 2007, 2008, 2009 Free Software Foundation, Inc.
8 This file is part of GDB.
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 3 of the License, or
13 (at your option) any later version.
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with this program. If not, see <http://www.gnu.org/licenses/>. */
23 /* This file was created with the aid of ``gdbarch.sh''.
25 The Bourne shell script ``gdbarch.sh'' creates the files
26 ``new-gdbarch.c'' and ``new-gdbarch.h and then compares them
27 against the existing ``gdbarch.[hc]''. Any differences found
30 If editing this file, please also run gdbarch.sh and merge any
31 changes into that script. Conversely, when making sweeping changes
32 to this file, modifying gdbarch.sh and using its output may prove
37 #include "arch-utils.h"
43 #include "floatformat.h"
45 #include "gdb_assert.h"
46 #include "gdb_string.h"
47 #include "reggroups.h"
49 #include "gdb_obstack.h"
53 /* Static function declarations */
55 static void alloc_gdbarch_data (struct gdbarch
*);
57 /* Non-zero if we want to trace architecture code. */
60 #define GDBARCH_DEBUG 0
62 int gdbarch_debug
= GDBARCH_DEBUG
;
64 show_gdbarch_debug (struct ui_file
*file
, int from_tty
,
65 struct cmd_list_element
*c
, const char *value
)
67 fprintf_filtered (file
, _("Architecture debugging is %s.\n"), value
);
71 pformat (const struct floatformat
**format
)
76 /* Just print out one of them - this is only for diagnostics. */
77 return format
[0]->name
;
81 pstring (const char *string
)
89 /* Maintain the struct gdbarch object. */
93 /* Has this architecture been fully initialized? */
96 /* An obstack bound to the lifetime of the architecture. */
97 struct obstack
*obstack
;
99 /* basic architectural information. */
100 const struct bfd_arch_info
* bfd_arch_info
;
102 int byte_order_for_code
;
103 enum gdb_osabi osabi
;
104 const struct target_desc
* target_desc
;
106 /* target specific vector. */
107 struct gdbarch_tdep
*tdep
;
108 gdbarch_dump_tdep_ftype
*dump_tdep
;
110 /* per-architecture data-pointers. */
114 /* per-architecture swap-regions. */
115 struct gdbarch_swap
*swap
;
117 /* Multi-arch values.
119 When extending this structure you must:
123 Declare set/get functions and define the corresponding
126 gdbarch_alloc(): If zero/NULL is not a suitable default,
127 initialize the new field.
129 verify_gdbarch(): Confirm that the target updated the field
132 gdbarch_dump(): Add a fprintf_unfiltered call so that the new
135 ``startup_gdbarch()'': Append an initial value to the static
136 variable (base values on the host's c-type system).
138 get_gdbarch(): Implement the set/get functions (probably using
139 the macro's as shortcuts).
148 int long_long_align_bit
;
150 const struct floatformat
** half_format
;
152 const struct floatformat
** float_format
;
154 const struct floatformat
** double_format
;
156 const struct floatformat
** long_double_format
;
159 int dwarf2_addr_size
;
161 gdbarch_read_pc_ftype
*read_pc
;
162 gdbarch_write_pc_ftype
*write_pc
;
163 gdbarch_virtual_frame_pointer_ftype
*virtual_frame_pointer
;
164 gdbarch_pseudo_register_read_ftype
*pseudo_register_read
;
165 gdbarch_pseudo_register_read_value_ftype
*pseudo_register_read_value
;
166 gdbarch_pseudo_register_write_ftype
*pseudo_register_write
;
169 gdbarch_ax_pseudo_register_collect_ftype
*ax_pseudo_register_collect
;
170 gdbarch_ax_pseudo_register_push_stack_ftype
*ax_pseudo_register_push_stack
;
175 gdbarch_stab_reg_to_regnum_ftype
*stab_reg_to_regnum
;
176 gdbarch_ecoff_reg_to_regnum_ftype
*ecoff_reg_to_regnum
;
177 gdbarch_sdb_reg_to_regnum_ftype
*sdb_reg_to_regnum
;
178 gdbarch_dwarf2_reg_to_regnum_ftype
*dwarf2_reg_to_regnum
;
179 gdbarch_register_name_ftype
*register_name
;
180 gdbarch_register_type_ftype
*register_type
;
181 gdbarch_dummy_id_ftype
*dummy_id
;
182 int deprecated_fp_regnum
;
183 gdbarch_push_dummy_call_ftype
*push_dummy_call
;
184 int call_dummy_location
;
185 gdbarch_push_dummy_code_ftype
*push_dummy_code
;
186 gdbarch_print_registers_info_ftype
*print_registers_info
;
187 gdbarch_print_float_info_ftype
*print_float_info
;
188 gdbarch_print_vector_info_ftype
*print_vector_info
;
189 gdbarch_register_sim_regno_ftype
*register_sim_regno
;
190 gdbarch_cannot_fetch_register_ftype
*cannot_fetch_register
;
191 gdbarch_cannot_store_register_ftype
*cannot_store_register
;
192 gdbarch_get_longjmp_target_ftype
*get_longjmp_target
;
193 int believe_pcc_promotion
;
194 gdbarch_convert_register_p_ftype
*convert_register_p
;
195 gdbarch_register_to_value_ftype
*register_to_value
;
196 gdbarch_value_to_register_ftype
*value_to_register
;
197 gdbarch_value_from_register_ftype
*value_from_register
;
198 gdbarch_pointer_to_address_ftype
*pointer_to_address
;
199 gdbarch_address_to_pointer_ftype
*address_to_pointer
;
200 gdbarch_integer_to_address_ftype
*integer_to_address
;
201 gdbarch_return_value_ftype
*return_value
;
202 gdbarch_skip_prologue_ftype
*skip_prologue
;
203 gdbarch_skip_main_prologue_ftype
*skip_main_prologue
;
204 gdbarch_inner_than_ftype
*inner_than
;
205 gdbarch_breakpoint_from_pc_ftype
*breakpoint_from_pc
;
206 gdbarch_remote_breakpoint_from_pc_ftype
*remote_breakpoint_from_pc
;
207 gdbarch_adjust_breakpoint_address_ftype
*adjust_breakpoint_address
;
208 gdbarch_memory_insert_breakpoint_ftype
*memory_insert_breakpoint
;
209 gdbarch_memory_remove_breakpoint_ftype
*memory_remove_breakpoint
;
210 CORE_ADDR decr_pc_after_break
;
211 CORE_ADDR deprecated_function_start_offset
;
212 gdbarch_remote_register_number_ftype
*remote_register_number
;
213 gdbarch_fetch_tls_load_module_address_ftype
*fetch_tls_load_module_address
;
214 CORE_ADDR frame_args_skip
;
215 gdbarch_unwind_pc_ftype
*unwind_pc
;
216 gdbarch_unwind_sp_ftype
*unwind_sp
;
217 gdbarch_frame_num_args_ftype
*frame_num_args
;
218 gdbarch_frame_align_ftype
*frame_align
;
219 gdbarch_stabs_argument_has_addr_ftype
*stabs_argument_has_addr
;
220 int frame_red_zone_size
;
221 gdbarch_convert_from_func_ptr_addr_ftype
*convert_from_func_ptr_addr
;
222 gdbarch_addr_bits_remove_ftype
*addr_bits_remove
;
223 gdbarch_smash_text_address_ftype
*smash_text_address
;
224 gdbarch_software_single_step_ftype
*software_single_step
;
225 gdbarch_single_step_through_delay_ftype
*single_step_through_delay
;
226 gdbarch_print_insn_ftype
*print_insn
;
227 gdbarch_skip_trampoline_code_ftype
*skip_trampoline_code
;
228 gdbarch_skip_solib_resolver_ftype
*skip_solib_resolver
;
229 gdbarch_in_solib_return_trampoline_ftype
*in_solib_return_trampoline
;
230 gdbarch_in_function_epilogue_p_ftype
*in_function_epilogue_p
;
231 gdbarch_elf_make_msymbol_special_ftype
*elf_make_msymbol_special
;
232 gdbarch_coff_make_msymbol_special_ftype
*coff_make_msymbol_special
;
233 int cannot_step_breakpoint
;
234 int have_nonsteppable_watchpoint
;
235 gdbarch_address_class_type_flags_ftype
*address_class_type_flags
;
236 gdbarch_address_class_type_flags_to_name_ftype
*address_class_type_flags_to_name
;
237 gdbarch_address_class_name_to_type_flags_ftype
*address_class_name_to_type_flags
;
238 gdbarch_register_reggroup_p_ftype
*register_reggroup_p
;
239 gdbarch_fetch_pointer_argument_ftype
*fetch_pointer_argument
;
240 gdbarch_regset_from_core_section_ftype
*regset_from_core_section
;
241 struct core_regset_section
* core_regset_sections
;
242 gdbarch_core_xfer_shared_libraries_ftype
*core_xfer_shared_libraries
;
243 gdbarch_core_pid_to_str_ftype
*core_pid_to_str
;
244 const char * gcore_bfd_target
;
245 int vtable_function_descriptors
;
247 gdbarch_skip_permanent_breakpoint_ftype
*skip_permanent_breakpoint
;
248 ULONGEST max_insn_length
;
249 gdbarch_displaced_step_copy_insn_ftype
*displaced_step_copy_insn
;
250 gdbarch_displaced_step_hw_singlestep_ftype
*displaced_step_hw_singlestep
;
251 gdbarch_displaced_step_fixup_ftype
*displaced_step_fixup
;
252 gdbarch_displaced_step_free_closure_ftype
*displaced_step_free_closure
;
253 gdbarch_displaced_step_location_ftype
*displaced_step_location
;
254 gdbarch_relocate_instruction_ftype
*relocate_instruction
;
255 gdbarch_overlay_update_ftype
*overlay_update
;
256 gdbarch_core_read_description_ftype
*core_read_description
;
257 gdbarch_static_transform_name_ftype
*static_transform_name
;
258 int sofun_address_maybe_missing
;
259 gdbarch_process_record_ftype
*process_record
;
260 gdbarch_process_record_signal_ftype
*process_record_signal
;
261 gdbarch_target_signal_from_host_ftype
*target_signal_from_host
;
262 gdbarch_target_signal_to_host_ftype
*target_signal_to_host
;
263 gdbarch_get_siginfo_type_ftype
*get_siginfo_type
;
264 gdbarch_record_special_symbol_ftype
*record_special_symbol
;
265 gdbarch_get_syscall_number_ftype
*get_syscall_number
;
266 int has_global_solist
;
267 int has_global_breakpoints
;
268 gdbarch_has_shared_address_space_ftype
*has_shared_address_space
;
269 gdbarch_fast_tracepoint_valid_at_ftype
*fast_tracepoint_valid_at
;
270 gdbarch_auto_charset_ftype
*auto_charset
;
271 gdbarch_auto_wide_charset_ftype
*auto_wide_charset
;
272 const char * solib_symbols_extension
;
273 int has_dos_based_file_system
;
274 gdbarch_gen_return_address_ftype
*gen_return_address
;
278 /* The default architecture uses host values (for want of a better
281 extern const struct bfd_arch_info bfd_default_arch_struct
;
283 struct gdbarch startup_gdbarch
=
285 1, /* Always initialized. */
286 NULL
, /* The obstack. */
287 /* basic architecture information. */
288 &bfd_default_arch_struct
, /* bfd_arch_info */
289 BFD_ENDIAN_BIG
, /* byte_order */
290 BFD_ENDIAN_BIG
, /* byte_order_for_code */
291 GDB_OSABI_UNKNOWN
, /* osabi */
293 /* target specific vector and its dump routine. */
295 /*per-architecture data-pointers and swap regions. */
297 /* Multi-arch values */
298 1, /* bits_big_endian */
299 8 * sizeof (short), /* short_bit */
300 8 * sizeof (int), /* int_bit */
301 8 * sizeof (long), /* long_bit */
302 8 * sizeof (LONGEST
), /* long_long_bit */
303 8 * sizeof (LONGEST
), /* long_long_align_bit */
306 8 * sizeof (float), /* float_bit */
307 0, /* float_format */
308 8 * sizeof (double), /* double_bit */
309 0, /* double_format */
310 8 * sizeof (long double), /* long_double_bit */
311 0, /* long_double_format */
312 8 * sizeof (void*), /* ptr_bit */
313 8 * sizeof (void*), /* addr_bit */
314 sizeof (void*), /* dwarf2_addr_size */
318 legacy_virtual_frame_pointer
, /* virtual_frame_pointer */
319 0, /* pseudo_register_read */
320 0, /* pseudo_register_read_value */
321 0, /* pseudo_register_write */
323 0, /* num_pseudo_regs */
324 0, /* ax_pseudo_register_collect */
325 0, /* ax_pseudo_register_push_stack */
330 no_op_reg_to_regnum
, /* stab_reg_to_regnum */
331 no_op_reg_to_regnum
, /* ecoff_reg_to_regnum */
332 no_op_reg_to_regnum
, /* sdb_reg_to_regnum */
333 no_op_reg_to_regnum
, /* dwarf2_reg_to_regnum */
334 0, /* register_name */
335 0, /* register_type */
337 -1, /* deprecated_fp_regnum */
338 0, /* push_dummy_call */
339 0, /* call_dummy_location */
340 0, /* push_dummy_code */
341 default_print_registers_info
, /* print_registers_info */
342 0, /* print_float_info */
343 0, /* print_vector_info */
344 legacy_register_sim_regno
, /* register_sim_regno */
345 cannot_register_not
, /* cannot_fetch_register */
346 cannot_register_not
, /* cannot_store_register */
347 0, /* get_longjmp_target */
348 0, /* believe_pcc_promotion */
349 generic_convert_register_p
, /* convert_register_p */
350 0, /* register_to_value */
351 0, /* value_to_register */
352 0, /* value_from_register */
353 unsigned_pointer_to_address
, /* pointer_to_address */
354 unsigned_address_to_pointer
, /* address_to_pointer */
355 0, /* integer_to_address */
356 0, /* return_value */
357 0, /* skip_prologue */
358 0, /* skip_main_prologue */
360 0, /* breakpoint_from_pc */
361 default_remote_breakpoint_from_pc
, /* remote_breakpoint_from_pc */
362 0, /* adjust_breakpoint_address */
363 default_memory_insert_breakpoint
, /* memory_insert_breakpoint */
364 default_memory_remove_breakpoint
, /* memory_remove_breakpoint */
365 0, /* decr_pc_after_break */
366 0, /* deprecated_function_start_offset */
367 default_remote_register_number
, /* remote_register_number */
368 0, /* fetch_tls_load_module_address */
369 0, /* frame_args_skip */
372 0, /* frame_num_args */
374 default_stabs_argument_has_addr
, /* stabs_argument_has_addr */
375 0, /* frame_red_zone_size */
376 convert_from_func_ptr_addr_identity
, /* convert_from_func_ptr_addr */
377 core_addr_identity
, /* addr_bits_remove */
378 core_addr_identity
, /* smash_text_address */
379 0, /* software_single_step */
380 0, /* single_step_through_delay */
382 0, /* skip_trampoline_code */
383 generic_skip_solib_resolver
, /* skip_solib_resolver */
384 generic_in_solib_return_trampoline
, /* in_solib_return_trampoline */
385 generic_in_function_epilogue_p
, /* in_function_epilogue_p */
386 0, /* elf_make_msymbol_special */
387 0, /* coff_make_msymbol_special */
388 0, /* cannot_step_breakpoint */
389 0, /* have_nonsteppable_watchpoint */
390 0, /* address_class_type_flags */
391 0, /* address_class_type_flags_to_name */
392 0, /* address_class_name_to_type_flags */
393 default_register_reggroup_p
, /* register_reggroup_p */
394 0, /* fetch_pointer_argument */
395 0, /* regset_from_core_section */
396 0, /* core_regset_sections */
397 0, /* core_xfer_shared_libraries */
398 0, /* core_pid_to_str */
399 0, /* gcore_bfd_target */
400 0, /* vtable_function_descriptors */
401 0, /* vbit_in_delta */
402 0, /* skip_permanent_breakpoint */
403 0, /* max_insn_length */
404 0, /* displaced_step_copy_insn */
405 default_displaced_step_hw_singlestep
, /* displaced_step_hw_singlestep */
406 0, /* displaced_step_fixup */
407 NULL
, /* displaced_step_free_closure */
408 NULL
, /* displaced_step_location */
409 0, /* relocate_instruction */
410 0, /* overlay_update */
411 0, /* core_read_description */
412 0, /* static_transform_name */
413 0, /* sofun_address_maybe_missing */
414 0, /* process_record */
415 0, /* process_record_signal */
416 default_target_signal_from_host
, /* target_signal_from_host */
417 default_target_signal_to_host
, /* target_signal_to_host */
418 0, /* get_siginfo_type */
419 0, /* record_special_symbol */
420 0, /* get_syscall_number */
421 0, /* has_global_solist */
422 0, /* has_global_breakpoints */
423 default_has_shared_address_space
, /* has_shared_address_space */
424 default_fast_tracepoint_valid_at
, /* fast_tracepoint_valid_at */
425 default_auto_charset
, /* auto_charset */
426 default_auto_wide_charset
, /* auto_wide_charset */
427 0, /* solib_symbols_extension */
428 0, /* has_dos_based_file_system */
429 default_gen_return_address
, /* gen_return_address */
430 /* startup_gdbarch() */
433 struct gdbarch
*target_gdbarch
= &startup_gdbarch
;
435 /* Create a new ``struct gdbarch'' based on information provided by
436 ``struct gdbarch_info''. */
439 gdbarch_alloc (const struct gdbarch_info
*info
,
440 struct gdbarch_tdep
*tdep
)
442 struct gdbarch
*gdbarch
;
444 /* Create an obstack for allocating all the per-architecture memory,
445 then use that to allocate the architecture vector. */
446 struct obstack
*obstack
= XMALLOC (struct obstack
);
447 obstack_init (obstack
);
448 gdbarch
= obstack_alloc (obstack
, sizeof (*gdbarch
));
449 memset (gdbarch
, 0, sizeof (*gdbarch
));
450 gdbarch
->obstack
= obstack
;
452 alloc_gdbarch_data (gdbarch
);
454 gdbarch
->tdep
= tdep
;
456 gdbarch
->bfd_arch_info
= info
->bfd_arch_info
;
457 gdbarch
->byte_order
= info
->byte_order
;
458 gdbarch
->byte_order_for_code
= info
->byte_order_for_code
;
459 gdbarch
->osabi
= info
->osabi
;
460 gdbarch
->target_desc
= info
->target_desc
;
462 /* Force the explicit initialization of these. */
463 gdbarch
->bits_big_endian
= (gdbarch
->byte_order
== BFD_ENDIAN_BIG
);
464 gdbarch
->short_bit
= 2*TARGET_CHAR_BIT
;
465 gdbarch
->int_bit
= 4*TARGET_CHAR_BIT
;
466 gdbarch
->long_bit
= 4*TARGET_CHAR_BIT
;
467 gdbarch
->long_long_bit
= 2*gdbarch
->long_bit
;
468 gdbarch
->long_long_align_bit
= 2*gdbarch
->long_bit
;
469 gdbarch
->half_bit
= 2*TARGET_CHAR_BIT
;
470 gdbarch
->float_bit
= 4*TARGET_CHAR_BIT
;
471 gdbarch
->double_bit
= 8*TARGET_CHAR_BIT
;
472 gdbarch
->long_double_bit
= 8*TARGET_CHAR_BIT
;
473 gdbarch
->ptr_bit
= gdbarch
->int_bit
;
474 gdbarch
->char_signed
= -1;
475 gdbarch
->virtual_frame_pointer
= legacy_virtual_frame_pointer
;
476 gdbarch
->num_regs
= -1;
477 gdbarch
->sp_regnum
= -1;
478 gdbarch
->pc_regnum
= -1;
479 gdbarch
->ps_regnum
= -1;
480 gdbarch
->fp0_regnum
= -1;
481 gdbarch
->stab_reg_to_regnum
= no_op_reg_to_regnum
;
482 gdbarch
->ecoff_reg_to_regnum
= no_op_reg_to_regnum
;
483 gdbarch
->sdb_reg_to_regnum
= no_op_reg_to_regnum
;
484 gdbarch
->dwarf2_reg_to_regnum
= no_op_reg_to_regnum
;
485 gdbarch
->deprecated_fp_regnum
= -1;
486 gdbarch
->call_dummy_location
= AT_ENTRY_POINT
;
487 gdbarch
->print_registers_info
= default_print_registers_info
;
488 gdbarch
->register_sim_regno
= legacy_register_sim_regno
;
489 gdbarch
->cannot_fetch_register
= cannot_register_not
;
490 gdbarch
->cannot_store_register
= cannot_register_not
;
491 gdbarch
->convert_register_p
= generic_convert_register_p
;
492 gdbarch
->value_from_register
= default_value_from_register
;
493 gdbarch
->pointer_to_address
= unsigned_pointer_to_address
;
494 gdbarch
->address_to_pointer
= unsigned_address_to_pointer
;
495 gdbarch
->remote_breakpoint_from_pc
= default_remote_breakpoint_from_pc
;
496 gdbarch
->memory_insert_breakpoint
= default_memory_insert_breakpoint
;
497 gdbarch
->memory_remove_breakpoint
= default_memory_remove_breakpoint
;
498 gdbarch
->remote_register_number
= default_remote_register_number
;
499 gdbarch
->stabs_argument_has_addr
= default_stabs_argument_has_addr
;
500 gdbarch
->convert_from_func_ptr_addr
= convert_from_func_ptr_addr_identity
;
501 gdbarch
->addr_bits_remove
= core_addr_identity
;
502 gdbarch
->smash_text_address
= core_addr_identity
;
503 gdbarch
->skip_trampoline_code
= generic_skip_trampoline_code
;
504 gdbarch
->skip_solib_resolver
= generic_skip_solib_resolver
;
505 gdbarch
->in_solib_return_trampoline
= generic_in_solib_return_trampoline
;
506 gdbarch
->in_function_epilogue_p
= generic_in_function_epilogue_p
;
507 gdbarch
->elf_make_msymbol_special
= default_elf_make_msymbol_special
;
508 gdbarch
->coff_make_msymbol_special
= default_coff_make_msymbol_special
;
509 gdbarch
->register_reggroup_p
= default_register_reggroup_p
;
510 gdbarch
->displaced_step_hw_singlestep
= default_displaced_step_hw_singlestep
;
511 gdbarch
->displaced_step_fixup
= NULL
;
512 gdbarch
->displaced_step_free_closure
= NULL
;
513 gdbarch
->displaced_step_location
= NULL
;
514 gdbarch
->relocate_instruction
= NULL
;
515 gdbarch
->target_signal_from_host
= default_target_signal_from_host
;
516 gdbarch
->target_signal_to_host
= default_target_signal_to_host
;
517 gdbarch
->has_shared_address_space
= default_has_shared_address_space
;
518 gdbarch
->fast_tracepoint_valid_at
= default_fast_tracepoint_valid_at
;
519 gdbarch
->auto_charset
= default_auto_charset
;
520 gdbarch
->auto_wide_charset
= default_auto_wide_charset
;
521 gdbarch
->gen_return_address
= default_gen_return_address
;
522 /* gdbarch_alloc() */
528 /* Allocate extra space using the per-architecture obstack. */
531 gdbarch_obstack_zalloc (struct gdbarch
*arch
, long size
)
533 void *data
= obstack_alloc (arch
->obstack
, size
);
535 memset (data
, 0, size
);
540 /* Free a gdbarch struct. This should never happen in normal
541 operation --- once you've created a gdbarch, you keep it around.
542 However, if an architecture's init function encounters an error
543 building the structure, it may need to clean up a partially
544 constructed gdbarch. */
547 gdbarch_free (struct gdbarch
*arch
)
549 struct obstack
*obstack
;
551 gdb_assert (arch
!= NULL
);
552 gdb_assert (!arch
->initialized_p
);
553 obstack
= arch
->obstack
;
554 obstack_free (obstack
, 0); /* Includes the ARCH. */
559 /* Ensure that all values in a GDBARCH are reasonable. */
562 verify_gdbarch (struct gdbarch
*gdbarch
)
565 struct cleanup
*cleanups
;
569 log
= mem_fileopen ();
570 cleanups
= make_cleanup_ui_file_delete (log
);
572 if (gdbarch
->byte_order
== BFD_ENDIAN_UNKNOWN
)
573 fprintf_unfiltered (log
, "\n\tbyte-order");
574 if (gdbarch
->bfd_arch_info
== NULL
)
575 fprintf_unfiltered (log
, "\n\tbfd_arch_info");
576 /* Check those that need to be defined for the given multi-arch level. */
577 /* Skip verify of bits_big_endian, invalid_p == 0 */
578 /* Skip verify of short_bit, invalid_p == 0 */
579 /* Skip verify of int_bit, invalid_p == 0 */
580 /* Skip verify of long_bit, invalid_p == 0 */
581 /* Skip verify of long_long_bit, invalid_p == 0 */
582 /* Skip verify of long_long_align_bit, invalid_p == 0 */
583 /* Skip verify of half_bit, invalid_p == 0 */
584 if (gdbarch
->half_format
== 0)
585 gdbarch
->half_format
= floatformats_ieee_half
;
586 /* Skip verify of float_bit, invalid_p == 0 */
587 if (gdbarch
->float_format
== 0)
588 gdbarch
->float_format
= floatformats_ieee_single
;
589 /* Skip verify of double_bit, invalid_p == 0 */
590 if (gdbarch
->double_format
== 0)
591 gdbarch
->double_format
= floatformats_ieee_double
;
592 /* Skip verify of long_double_bit, invalid_p == 0 */
593 if (gdbarch
->long_double_format
== 0)
594 gdbarch
->long_double_format
= floatformats_ieee_double
;
595 /* Skip verify of ptr_bit, invalid_p == 0 */
596 if (gdbarch
->addr_bit
== 0)
597 gdbarch
->addr_bit
= gdbarch_ptr_bit (gdbarch
);
598 if (gdbarch
->dwarf2_addr_size
== 0)
599 gdbarch
->dwarf2_addr_size
= gdbarch_ptr_bit (gdbarch
) / TARGET_CHAR_BIT
;
600 if (gdbarch
->char_signed
== -1)
601 gdbarch
->char_signed
= 1;
602 /* Skip verify of read_pc, has predicate. */
603 /* Skip verify of write_pc, has predicate. */
604 /* Skip verify of virtual_frame_pointer, invalid_p == 0 */
605 /* Skip verify of pseudo_register_read, has predicate. */
606 /* Skip verify of pseudo_register_read_value, has predicate. */
607 /* Skip verify of pseudo_register_write, has predicate. */
608 if (gdbarch
->num_regs
== -1)
609 fprintf_unfiltered (log
, "\n\tnum_regs");
610 /* Skip verify of num_pseudo_regs, invalid_p == 0 */
611 /* Skip verify of ax_pseudo_register_collect, has predicate. */
612 /* Skip verify of ax_pseudo_register_push_stack, has predicate. */
613 /* Skip verify of sp_regnum, invalid_p == 0 */
614 /* Skip verify of pc_regnum, invalid_p == 0 */
615 /* Skip verify of ps_regnum, invalid_p == 0 */
616 /* Skip verify of fp0_regnum, invalid_p == 0 */
617 /* Skip verify of stab_reg_to_regnum, invalid_p == 0 */
618 /* Skip verify of ecoff_reg_to_regnum, invalid_p == 0 */
619 /* Skip verify of sdb_reg_to_regnum, invalid_p == 0 */
620 /* Skip verify of dwarf2_reg_to_regnum, invalid_p == 0 */
621 if (gdbarch
->register_name
== 0)
622 fprintf_unfiltered (log
, "\n\tregister_name");
623 /* Skip verify of register_type, has predicate. */
624 /* Skip verify of dummy_id, has predicate. */
625 /* Skip verify of deprecated_fp_regnum, invalid_p == 0 */
626 /* Skip verify of push_dummy_call, has predicate. */
627 /* Skip verify of call_dummy_location, invalid_p == 0 */
628 /* Skip verify of push_dummy_code, has predicate. */
629 /* Skip verify of print_registers_info, invalid_p == 0 */
630 /* Skip verify of print_float_info, has predicate. */
631 /* Skip verify of print_vector_info, has predicate. */
632 /* Skip verify of register_sim_regno, invalid_p == 0 */
633 /* Skip verify of cannot_fetch_register, invalid_p == 0 */
634 /* Skip verify of cannot_store_register, invalid_p == 0 */
635 /* Skip verify of get_longjmp_target, has predicate. */
636 /* Skip verify of convert_register_p, invalid_p == 0 */
637 /* Skip verify of value_from_register, invalid_p == 0 */
638 /* Skip verify of pointer_to_address, invalid_p == 0 */
639 /* Skip verify of address_to_pointer, invalid_p == 0 */
640 /* Skip verify of integer_to_address, has predicate. */
641 /* Skip verify of return_value, has predicate. */
642 if (gdbarch
->skip_prologue
== 0)
643 fprintf_unfiltered (log
, "\n\tskip_prologue");
644 /* Skip verify of skip_main_prologue, has predicate. */
645 if (gdbarch
->inner_than
== 0)
646 fprintf_unfiltered (log
, "\n\tinner_than");
647 if (gdbarch
->breakpoint_from_pc
== 0)
648 fprintf_unfiltered (log
, "\n\tbreakpoint_from_pc");
649 /* Skip verify of remote_breakpoint_from_pc, invalid_p == 0 */
650 /* Skip verify of adjust_breakpoint_address, has predicate. */
651 /* Skip verify of memory_insert_breakpoint, invalid_p == 0 */
652 /* Skip verify of memory_remove_breakpoint, invalid_p == 0 */
653 /* Skip verify of decr_pc_after_break, invalid_p == 0 */
654 /* Skip verify of deprecated_function_start_offset, invalid_p == 0 */
655 /* Skip verify of remote_register_number, invalid_p == 0 */
656 /* Skip verify of fetch_tls_load_module_address, has predicate. */
657 /* Skip verify of frame_args_skip, invalid_p == 0 */
658 /* Skip verify of unwind_pc, has predicate. */
659 /* Skip verify of unwind_sp, has predicate. */
660 /* Skip verify of frame_num_args, has predicate. */
661 /* Skip verify of frame_align, has predicate. */
662 /* Skip verify of stabs_argument_has_addr, invalid_p == 0 */
663 /* Skip verify of convert_from_func_ptr_addr, invalid_p == 0 */
664 /* Skip verify of addr_bits_remove, invalid_p == 0 */
665 /* Skip verify of smash_text_address, invalid_p == 0 */
666 /* Skip verify of software_single_step, has predicate. */
667 /* Skip verify of single_step_through_delay, has predicate. */
668 if (gdbarch
->print_insn
== 0)
669 fprintf_unfiltered (log
, "\n\tprint_insn");
670 /* Skip verify of skip_trampoline_code, invalid_p == 0 */
671 /* Skip verify of skip_solib_resolver, invalid_p == 0 */
672 /* Skip verify of in_solib_return_trampoline, invalid_p == 0 */
673 /* Skip verify of in_function_epilogue_p, invalid_p == 0 */
674 /* Skip verify of elf_make_msymbol_special, invalid_p == 0 */
675 /* Skip verify of coff_make_msymbol_special, invalid_p == 0 */
676 /* Skip verify of cannot_step_breakpoint, invalid_p == 0 */
677 /* Skip verify of have_nonsteppable_watchpoint, invalid_p == 0 */
678 /* Skip verify of address_class_type_flags, has predicate. */
679 /* Skip verify of address_class_type_flags_to_name, has predicate. */
680 /* Skip verify of address_class_name_to_type_flags, has predicate. */
681 /* Skip verify of register_reggroup_p, invalid_p == 0 */
682 /* Skip verify of fetch_pointer_argument, has predicate. */
683 /* Skip verify of regset_from_core_section, has predicate. */
684 /* Skip verify of core_xfer_shared_libraries, has predicate. */
685 /* Skip verify of core_pid_to_str, has predicate. */
686 /* Skip verify of gcore_bfd_target, has predicate. */
687 /* Skip verify of vtable_function_descriptors, invalid_p == 0 */
688 /* Skip verify of vbit_in_delta, invalid_p == 0 */
689 /* Skip verify of skip_permanent_breakpoint, has predicate. */
690 /* Skip verify of max_insn_length, has predicate. */
691 /* Skip verify of displaced_step_copy_insn, has predicate. */
692 /* Skip verify of displaced_step_hw_singlestep, invalid_p == 0 */
693 /* Skip verify of displaced_step_fixup, has predicate. */
694 if ((! gdbarch
->displaced_step_free_closure
) != (! gdbarch
->displaced_step_copy_insn
))
695 fprintf_unfiltered (log
, "\n\tdisplaced_step_free_closure");
696 if ((! gdbarch
->displaced_step_location
) != (! gdbarch
->displaced_step_copy_insn
))
697 fprintf_unfiltered (log
, "\n\tdisplaced_step_location");
698 /* Skip verify of relocate_instruction, has predicate. */
699 /* Skip verify of overlay_update, has predicate. */
700 /* Skip verify of core_read_description, has predicate. */
701 /* Skip verify of static_transform_name, has predicate. */
702 /* Skip verify of sofun_address_maybe_missing, invalid_p == 0 */
703 /* Skip verify of process_record, has predicate. */
704 /* Skip verify of process_record_signal, has predicate. */
705 /* Skip verify of target_signal_from_host, invalid_p == 0 */
706 /* Skip verify of target_signal_to_host, invalid_p == 0 */
707 /* Skip verify of get_siginfo_type, has predicate. */
708 /* Skip verify of record_special_symbol, has predicate. */
709 /* Skip verify of get_syscall_number, has predicate. */
710 /* Skip verify of has_global_solist, invalid_p == 0 */
711 /* Skip verify of has_global_breakpoints, invalid_p == 0 */
712 /* Skip verify of has_shared_address_space, invalid_p == 0 */
713 /* Skip verify of fast_tracepoint_valid_at, invalid_p == 0 */
714 /* Skip verify of auto_charset, invalid_p == 0 */
715 /* Skip verify of auto_wide_charset, invalid_p == 0 */
716 /* Skip verify of has_dos_based_file_system, invalid_p == 0 */
717 /* Skip verify of gen_return_address, invalid_p == 0 */
718 buf
= ui_file_xstrdup (log
, &length
);
719 make_cleanup (xfree
, buf
);
721 internal_error (__FILE__
, __LINE__
,
722 _("verify_gdbarch: the following are invalid ...%s"),
724 do_cleanups (cleanups
);
728 /* Print out the details of the current architecture. */
731 gdbarch_dump (struct gdbarch
*gdbarch
, struct ui_file
*file
)
733 const char *gdb_nm_file
= "<not-defined>";
735 #if defined (GDB_NM_FILE)
736 gdb_nm_file
= GDB_NM_FILE
;
738 fprintf_unfiltered (file
,
739 "gdbarch_dump: GDB_NM_FILE = %s\n",
741 fprintf_unfiltered (file
,
742 "gdbarch_dump: addr_bit = %s\n",
743 plongest (gdbarch
->addr_bit
));
744 fprintf_unfiltered (file
,
745 "gdbarch_dump: addr_bits_remove = <%s>\n",
746 host_address_to_string (gdbarch
->addr_bits_remove
));
747 fprintf_unfiltered (file
,
748 "gdbarch_dump: gdbarch_address_class_name_to_type_flags_p() = %d\n",
749 gdbarch_address_class_name_to_type_flags_p (gdbarch
));
750 fprintf_unfiltered (file
,
751 "gdbarch_dump: address_class_name_to_type_flags = <%s>\n",
752 host_address_to_string (gdbarch
->address_class_name_to_type_flags
));
753 fprintf_unfiltered (file
,
754 "gdbarch_dump: gdbarch_address_class_type_flags_p() = %d\n",
755 gdbarch_address_class_type_flags_p (gdbarch
));
756 fprintf_unfiltered (file
,
757 "gdbarch_dump: address_class_type_flags = <%s>\n",
758 host_address_to_string (gdbarch
->address_class_type_flags
));
759 fprintf_unfiltered (file
,
760 "gdbarch_dump: gdbarch_address_class_type_flags_to_name_p() = %d\n",
761 gdbarch_address_class_type_flags_to_name_p (gdbarch
));
762 fprintf_unfiltered (file
,
763 "gdbarch_dump: address_class_type_flags_to_name = <%s>\n",
764 host_address_to_string (gdbarch
->address_class_type_flags_to_name
));
765 fprintf_unfiltered (file
,
766 "gdbarch_dump: address_to_pointer = <%s>\n",
767 host_address_to_string (gdbarch
->address_to_pointer
));
768 fprintf_unfiltered (file
,
769 "gdbarch_dump: gdbarch_adjust_breakpoint_address_p() = %d\n",
770 gdbarch_adjust_breakpoint_address_p (gdbarch
));
771 fprintf_unfiltered (file
,
772 "gdbarch_dump: adjust_breakpoint_address = <%s>\n",
773 host_address_to_string (gdbarch
->adjust_breakpoint_address
));
774 fprintf_unfiltered (file
,
775 "gdbarch_dump: auto_charset = <%s>\n",
776 host_address_to_string (gdbarch
->auto_charset
));
777 fprintf_unfiltered (file
,
778 "gdbarch_dump: auto_wide_charset = <%s>\n",
779 host_address_to_string (gdbarch
->auto_wide_charset
));
780 fprintf_unfiltered (file
,
781 "gdbarch_dump: gdbarch_ax_pseudo_register_collect_p() = %d\n",
782 gdbarch_ax_pseudo_register_collect_p (gdbarch
));
783 fprintf_unfiltered (file
,
784 "gdbarch_dump: ax_pseudo_register_collect = <%s>\n",
785 host_address_to_string (gdbarch
->ax_pseudo_register_collect
));
786 fprintf_unfiltered (file
,
787 "gdbarch_dump: gdbarch_ax_pseudo_register_push_stack_p() = %d\n",
788 gdbarch_ax_pseudo_register_push_stack_p (gdbarch
));
789 fprintf_unfiltered (file
,
790 "gdbarch_dump: ax_pseudo_register_push_stack = <%s>\n",
791 host_address_to_string (gdbarch
->ax_pseudo_register_push_stack
));
792 fprintf_unfiltered (file
,
793 "gdbarch_dump: believe_pcc_promotion = %s\n",
794 plongest (gdbarch
->believe_pcc_promotion
));
795 fprintf_unfiltered (file
,
796 "gdbarch_dump: bfd_arch_info = %s\n",
797 gdbarch_bfd_arch_info (gdbarch
)->printable_name
);
798 fprintf_unfiltered (file
,
799 "gdbarch_dump: bits_big_endian = %s\n",
800 plongest (gdbarch
->bits_big_endian
));
801 fprintf_unfiltered (file
,
802 "gdbarch_dump: breakpoint_from_pc = <%s>\n",
803 host_address_to_string (gdbarch
->breakpoint_from_pc
));
804 fprintf_unfiltered (file
,
805 "gdbarch_dump: byte_order = %s\n",
806 plongest (gdbarch
->byte_order
));
807 fprintf_unfiltered (file
,
808 "gdbarch_dump: byte_order_for_code = %s\n",
809 plongest (gdbarch
->byte_order_for_code
));
810 fprintf_unfiltered (file
,
811 "gdbarch_dump: call_dummy_location = %s\n",
812 plongest (gdbarch
->call_dummy_location
));
813 fprintf_unfiltered (file
,
814 "gdbarch_dump: cannot_fetch_register = <%s>\n",
815 host_address_to_string (gdbarch
->cannot_fetch_register
));
816 fprintf_unfiltered (file
,
817 "gdbarch_dump: cannot_step_breakpoint = %s\n",
818 plongest (gdbarch
->cannot_step_breakpoint
));
819 fprintf_unfiltered (file
,
820 "gdbarch_dump: cannot_store_register = <%s>\n",
821 host_address_to_string (gdbarch
->cannot_store_register
));
822 fprintf_unfiltered (file
,
823 "gdbarch_dump: char_signed = %s\n",
824 plongest (gdbarch
->char_signed
));
825 fprintf_unfiltered (file
,
826 "gdbarch_dump: coff_make_msymbol_special = <%s>\n",
827 host_address_to_string (gdbarch
->coff_make_msymbol_special
));
828 fprintf_unfiltered (file
,
829 "gdbarch_dump: convert_from_func_ptr_addr = <%s>\n",
830 host_address_to_string (gdbarch
->convert_from_func_ptr_addr
));
831 fprintf_unfiltered (file
,
832 "gdbarch_dump: convert_register_p = <%s>\n",
833 host_address_to_string (gdbarch
->convert_register_p
));
834 fprintf_unfiltered (file
,
835 "gdbarch_dump: gdbarch_core_pid_to_str_p() = %d\n",
836 gdbarch_core_pid_to_str_p (gdbarch
));
837 fprintf_unfiltered (file
,
838 "gdbarch_dump: core_pid_to_str = <%s>\n",
839 host_address_to_string (gdbarch
->core_pid_to_str
));
840 fprintf_unfiltered (file
,
841 "gdbarch_dump: gdbarch_core_read_description_p() = %d\n",
842 gdbarch_core_read_description_p (gdbarch
));
843 fprintf_unfiltered (file
,
844 "gdbarch_dump: core_read_description = <%s>\n",
845 host_address_to_string (gdbarch
->core_read_description
));
846 fprintf_unfiltered (file
,
847 "gdbarch_dump: core_regset_sections = %s\n",
848 host_address_to_string (gdbarch
->core_regset_sections
));
849 fprintf_unfiltered (file
,
850 "gdbarch_dump: gdbarch_core_xfer_shared_libraries_p() = %d\n",
851 gdbarch_core_xfer_shared_libraries_p (gdbarch
));
852 fprintf_unfiltered (file
,
853 "gdbarch_dump: core_xfer_shared_libraries = <%s>\n",
854 host_address_to_string (gdbarch
->core_xfer_shared_libraries
));
855 fprintf_unfiltered (file
,
856 "gdbarch_dump: decr_pc_after_break = %s\n",
857 core_addr_to_string_nz (gdbarch
->decr_pc_after_break
));
858 fprintf_unfiltered (file
,
859 "gdbarch_dump: deprecated_fp_regnum = %s\n",
860 plongest (gdbarch
->deprecated_fp_regnum
));
861 fprintf_unfiltered (file
,
862 "gdbarch_dump: deprecated_function_start_offset = %s\n",
863 core_addr_to_string_nz (gdbarch
->deprecated_function_start_offset
));
864 fprintf_unfiltered (file
,
865 "gdbarch_dump: gdbarch_displaced_step_copy_insn_p() = %d\n",
866 gdbarch_displaced_step_copy_insn_p (gdbarch
));
867 fprintf_unfiltered (file
,
868 "gdbarch_dump: displaced_step_copy_insn = <%s>\n",
869 host_address_to_string (gdbarch
->displaced_step_copy_insn
));
870 fprintf_unfiltered (file
,
871 "gdbarch_dump: gdbarch_displaced_step_fixup_p() = %d\n",
872 gdbarch_displaced_step_fixup_p (gdbarch
));
873 fprintf_unfiltered (file
,
874 "gdbarch_dump: displaced_step_fixup = <%s>\n",
875 host_address_to_string (gdbarch
->displaced_step_fixup
));
876 fprintf_unfiltered (file
,
877 "gdbarch_dump: displaced_step_free_closure = <%s>\n",
878 host_address_to_string (gdbarch
->displaced_step_free_closure
));
879 fprintf_unfiltered (file
,
880 "gdbarch_dump: displaced_step_hw_singlestep = <%s>\n",
881 host_address_to_string (gdbarch
->displaced_step_hw_singlestep
));
882 fprintf_unfiltered (file
,
883 "gdbarch_dump: displaced_step_location = <%s>\n",
884 host_address_to_string (gdbarch
->displaced_step_location
));
885 fprintf_unfiltered (file
,
886 "gdbarch_dump: double_bit = %s\n",
887 plongest (gdbarch
->double_bit
));
888 fprintf_unfiltered (file
,
889 "gdbarch_dump: double_format = %s\n",
890 pformat (gdbarch
->double_format
));
891 fprintf_unfiltered (file
,
892 "gdbarch_dump: gdbarch_dummy_id_p() = %d\n",
893 gdbarch_dummy_id_p (gdbarch
));
894 fprintf_unfiltered (file
,
895 "gdbarch_dump: dummy_id = <%s>\n",
896 host_address_to_string (gdbarch
->dummy_id
));
897 fprintf_unfiltered (file
,
898 "gdbarch_dump: dwarf2_addr_size = %s\n",
899 plongest (gdbarch
->dwarf2_addr_size
));
900 fprintf_unfiltered (file
,
901 "gdbarch_dump: dwarf2_reg_to_regnum = <%s>\n",
902 host_address_to_string (gdbarch
->dwarf2_reg_to_regnum
));
903 fprintf_unfiltered (file
,
904 "gdbarch_dump: ecoff_reg_to_regnum = <%s>\n",
905 host_address_to_string (gdbarch
->ecoff_reg_to_regnum
));
906 fprintf_unfiltered (file
,
907 "gdbarch_dump: elf_make_msymbol_special = <%s>\n",
908 host_address_to_string (gdbarch
->elf_make_msymbol_special
));
909 fprintf_unfiltered (file
,
910 "gdbarch_dump: fast_tracepoint_valid_at = <%s>\n",
911 host_address_to_string (gdbarch
->fast_tracepoint_valid_at
));
912 fprintf_unfiltered (file
,
913 "gdbarch_dump: gdbarch_fetch_pointer_argument_p() = %d\n",
914 gdbarch_fetch_pointer_argument_p (gdbarch
));
915 fprintf_unfiltered (file
,
916 "gdbarch_dump: fetch_pointer_argument = <%s>\n",
917 host_address_to_string (gdbarch
->fetch_pointer_argument
));
918 fprintf_unfiltered (file
,
919 "gdbarch_dump: gdbarch_fetch_tls_load_module_address_p() = %d\n",
920 gdbarch_fetch_tls_load_module_address_p (gdbarch
));
921 fprintf_unfiltered (file
,
922 "gdbarch_dump: fetch_tls_load_module_address = <%s>\n",
923 host_address_to_string (gdbarch
->fetch_tls_load_module_address
));
924 fprintf_unfiltered (file
,
925 "gdbarch_dump: float_bit = %s\n",
926 plongest (gdbarch
->float_bit
));
927 fprintf_unfiltered (file
,
928 "gdbarch_dump: float_format = %s\n",
929 pformat (gdbarch
->float_format
));
930 fprintf_unfiltered (file
,
931 "gdbarch_dump: fp0_regnum = %s\n",
932 plongest (gdbarch
->fp0_regnum
));
933 fprintf_unfiltered (file
,
934 "gdbarch_dump: gdbarch_frame_align_p() = %d\n",
935 gdbarch_frame_align_p (gdbarch
));
936 fprintf_unfiltered (file
,
937 "gdbarch_dump: frame_align = <%s>\n",
938 host_address_to_string (gdbarch
->frame_align
));
939 fprintf_unfiltered (file
,
940 "gdbarch_dump: frame_args_skip = %s\n",
941 core_addr_to_string_nz (gdbarch
->frame_args_skip
));
942 fprintf_unfiltered (file
,
943 "gdbarch_dump: gdbarch_frame_num_args_p() = %d\n",
944 gdbarch_frame_num_args_p (gdbarch
));
945 fprintf_unfiltered (file
,
946 "gdbarch_dump: frame_num_args = <%s>\n",
947 host_address_to_string (gdbarch
->frame_num_args
));
948 fprintf_unfiltered (file
,
949 "gdbarch_dump: frame_red_zone_size = %s\n",
950 plongest (gdbarch
->frame_red_zone_size
));
951 fprintf_unfiltered (file
,
952 "gdbarch_dump: gdbarch_gcore_bfd_target_p() = %d\n",
953 gdbarch_gcore_bfd_target_p (gdbarch
));
954 fprintf_unfiltered (file
,
955 "gdbarch_dump: gcore_bfd_target = %s\n",
956 pstring (gdbarch
->gcore_bfd_target
));
957 fprintf_unfiltered (file
,
958 "gdbarch_dump: gen_return_address = <%s>\n",
959 host_address_to_string (gdbarch
->gen_return_address
));
960 fprintf_unfiltered (file
,
961 "gdbarch_dump: gdbarch_get_longjmp_target_p() = %d\n",
962 gdbarch_get_longjmp_target_p (gdbarch
));
963 fprintf_unfiltered (file
,
964 "gdbarch_dump: get_longjmp_target = <%s>\n",
965 host_address_to_string (gdbarch
->get_longjmp_target
));
966 fprintf_unfiltered (file
,
967 "gdbarch_dump: gdbarch_get_siginfo_type_p() = %d\n",
968 gdbarch_get_siginfo_type_p (gdbarch
));
969 fprintf_unfiltered (file
,
970 "gdbarch_dump: get_siginfo_type = <%s>\n",
971 host_address_to_string (gdbarch
->get_siginfo_type
));
972 fprintf_unfiltered (file
,
973 "gdbarch_dump: gdbarch_get_syscall_number_p() = %d\n",
974 gdbarch_get_syscall_number_p (gdbarch
));
975 fprintf_unfiltered (file
,
976 "gdbarch_dump: get_syscall_number = <%s>\n",
977 host_address_to_string (gdbarch
->get_syscall_number
));
978 fprintf_unfiltered (file
,
979 "gdbarch_dump: half_bit = %s\n",
980 plongest (gdbarch
->half_bit
));
981 fprintf_unfiltered (file
,
982 "gdbarch_dump: half_format = %s\n",
983 pformat (gdbarch
->half_format
));
984 fprintf_unfiltered (file
,
985 "gdbarch_dump: has_dos_based_file_system = %s\n",
986 plongest (gdbarch
->has_dos_based_file_system
));
987 fprintf_unfiltered (file
,
988 "gdbarch_dump: has_global_breakpoints = %s\n",
989 plongest (gdbarch
->has_global_breakpoints
));
990 fprintf_unfiltered (file
,
991 "gdbarch_dump: has_global_solist = %s\n",
992 plongest (gdbarch
->has_global_solist
));
993 fprintf_unfiltered (file
,
994 "gdbarch_dump: has_shared_address_space = <%s>\n",
995 host_address_to_string (gdbarch
->has_shared_address_space
));
996 fprintf_unfiltered (file
,
997 "gdbarch_dump: have_nonsteppable_watchpoint = %s\n",
998 plongest (gdbarch
->have_nonsteppable_watchpoint
));
999 fprintf_unfiltered (file
,
1000 "gdbarch_dump: in_function_epilogue_p = <%s>\n",
1001 host_address_to_string (gdbarch
->in_function_epilogue_p
));
1002 fprintf_unfiltered (file
,
1003 "gdbarch_dump: in_solib_return_trampoline = <%s>\n",
1004 host_address_to_string (gdbarch
->in_solib_return_trampoline
));
1005 fprintf_unfiltered (file
,
1006 "gdbarch_dump: inner_than = <%s>\n",
1007 host_address_to_string (gdbarch
->inner_than
));
1008 fprintf_unfiltered (file
,
1009 "gdbarch_dump: int_bit = %s\n",
1010 plongest (gdbarch
->int_bit
));
1011 fprintf_unfiltered (file
,
1012 "gdbarch_dump: gdbarch_integer_to_address_p() = %d\n",
1013 gdbarch_integer_to_address_p (gdbarch
));
1014 fprintf_unfiltered (file
,
1015 "gdbarch_dump: integer_to_address = <%s>\n",
1016 host_address_to_string (gdbarch
->integer_to_address
));
1017 fprintf_unfiltered (file
,
1018 "gdbarch_dump: long_bit = %s\n",
1019 plongest (gdbarch
->long_bit
));
1020 fprintf_unfiltered (file
,
1021 "gdbarch_dump: long_double_bit = %s\n",
1022 plongest (gdbarch
->long_double_bit
));
1023 fprintf_unfiltered (file
,
1024 "gdbarch_dump: long_double_format = %s\n",
1025 pformat (gdbarch
->long_double_format
));
1026 fprintf_unfiltered (file
,
1027 "gdbarch_dump: long_long_align_bit = %s\n",
1028 plongest (gdbarch
->long_long_align_bit
));
1029 fprintf_unfiltered (file
,
1030 "gdbarch_dump: long_long_bit = %s\n",
1031 plongest (gdbarch
->long_long_bit
));
1032 fprintf_unfiltered (file
,
1033 "gdbarch_dump: gdbarch_max_insn_length_p() = %d\n",
1034 gdbarch_max_insn_length_p (gdbarch
));
1035 fprintf_unfiltered (file
,
1036 "gdbarch_dump: max_insn_length = %s\n",
1037 plongest (gdbarch
->max_insn_length
));
1038 fprintf_unfiltered (file
,
1039 "gdbarch_dump: memory_insert_breakpoint = <%s>\n",
1040 host_address_to_string (gdbarch
->memory_insert_breakpoint
));
1041 fprintf_unfiltered (file
,
1042 "gdbarch_dump: memory_remove_breakpoint = <%s>\n",
1043 host_address_to_string (gdbarch
->memory_remove_breakpoint
));
1044 fprintf_unfiltered (file
,
1045 "gdbarch_dump: num_pseudo_regs = %s\n",
1046 plongest (gdbarch
->num_pseudo_regs
));
1047 fprintf_unfiltered (file
,
1048 "gdbarch_dump: num_regs = %s\n",
1049 plongest (gdbarch
->num_regs
));
1050 fprintf_unfiltered (file
,
1051 "gdbarch_dump: osabi = %s\n",
1052 plongest (gdbarch
->osabi
));
1053 fprintf_unfiltered (file
,
1054 "gdbarch_dump: gdbarch_overlay_update_p() = %d\n",
1055 gdbarch_overlay_update_p (gdbarch
));
1056 fprintf_unfiltered (file
,
1057 "gdbarch_dump: overlay_update = <%s>\n",
1058 host_address_to_string (gdbarch
->overlay_update
));
1059 fprintf_unfiltered (file
,
1060 "gdbarch_dump: pc_regnum = %s\n",
1061 plongest (gdbarch
->pc_regnum
));
1062 fprintf_unfiltered (file
,
1063 "gdbarch_dump: pointer_to_address = <%s>\n",
1064 host_address_to_string (gdbarch
->pointer_to_address
));
1065 fprintf_unfiltered (file
,
1066 "gdbarch_dump: gdbarch_print_float_info_p() = %d\n",
1067 gdbarch_print_float_info_p (gdbarch
));
1068 fprintf_unfiltered (file
,
1069 "gdbarch_dump: print_float_info = <%s>\n",
1070 host_address_to_string (gdbarch
->print_float_info
));
1071 fprintf_unfiltered (file
,
1072 "gdbarch_dump: print_insn = <%s>\n",
1073 host_address_to_string (gdbarch
->print_insn
));
1074 fprintf_unfiltered (file
,
1075 "gdbarch_dump: print_registers_info = <%s>\n",
1076 host_address_to_string (gdbarch
->print_registers_info
));
1077 fprintf_unfiltered (file
,
1078 "gdbarch_dump: gdbarch_print_vector_info_p() = %d\n",
1079 gdbarch_print_vector_info_p (gdbarch
));
1080 fprintf_unfiltered (file
,
1081 "gdbarch_dump: print_vector_info = <%s>\n",
1082 host_address_to_string (gdbarch
->print_vector_info
));
1083 fprintf_unfiltered (file
,
1084 "gdbarch_dump: gdbarch_process_record_p() = %d\n",
1085 gdbarch_process_record_p (gdbarch
));
1086 fprintf_unfiltered (file
,
1087 "gdbarch_dump: process_record = <%s>\n",
1088 host_address_to_string (gdbarch
->process_record
));
1089 fprintf_unfiltered (file
,
1090 "gdbarch_dump: gdbarch_process_record_signal_p() = %d\n",
1091 gdbarch_process_record_signal_p (gdbarch
));
1092 fprintf_unfiltered (file
,
1093 "gdbarch_dump: process_record_signal = <%s>\n",
1094 host_address_to_string (gdbarch
->process_record_signal
));
1095 fprintf_unfiltered (file
,
1096 "gdbarch_dump: ps_regnum = %s\n",
1097 plongest (gdbarch
->ps_regnum
));
1098 fprintf_unfiltered (file
,
1099 "gdbarch_dump: gdbarch_pseudo_register_read_p() = %d\n",
1100 gdbarch_pseudo_register_read_p (gdbarch
));
1101 fprintf_unfiltered (file
,
1102 "gdbarch_dump: pseudo_register_read = <%s>\n",
1103 host_address_to_string (gdbarch
->pseudo_register_read
));
1104 fprintf_unfiltered (file
,
1105 "gdbarch_dump: gdbarch_pseudo_register_read_value_p() = %d\n",
1106 gdbarch_pseudo_register_read_value_p (gdbarch
));
1107 fprintf_unfiltered (file
,
1108 "gdbarch_dump: pseudo_register_read_value = <%s>\n",
1109 host_address_to_string (gdbarch
->pseudo_register_read_value
));
1110 fprintf_unfiltered (file
,
1111 "gdbarch_dump: gdbarch_pseudo_register_write_p() = %d\n",
1112 gdbarch_pseudo_register_write_p (gdbarch
));
1113 fprintf_unfiltered (file
,
1114 "gdbarch_dump: pseudo_register_write = <%s>\n",
1115 host_address_to_string (gdbarch
->pseudo_register_write
));
1116 fprintf_unfiltered (file
,
1117 "gdbarch_dump: ptr_bit = %s\n",
1118 plongest (gdbarch
->ptr_bit
));
1119 fprintf_unfiltered (file
,
1120 "gdbarch_dump: gdbarch_push_dummy_call_p() = %d\n",
1121 gdbarch_push_dummy_call_p (gdbarch
));
1122 fprintf_unfiltered (file
,
1123 "gdbarch_dump: push_dummy_call = <%s>\n",
1124 host_address_to_string (gdbarch
->push_dummy_call
));
1125 fprintf_unfiltered (file
,
1126 "gdbarch_dump: gdbarch_push_dummy_code_p() = %d\n",
1127 gdbarch_push_dummy_code_p (gdbarch
));
1128 fprintf_unfiltered (file
,
1129 "gdbarch_dump: push_dummy_code = <%s>\n",
1130 host_address_to_string (gdbarch
->push_dummy_code
));
1131 fprintf_unfiltered (file
,
1132 "gdbarch_dump: gdbarch_read_pc_p() = %d\n",
1133 gdbarch_read_pc_p (gdbarch
));
1134 fprintf_unfiltered (file
,
1135 "gdbarch_dump: read_pc = <%s>\n",
1136 host_address_to_string (gdbarch
->read_pc
));
1137 fprintf_unfiltered (file
,
1138 "gdbarch_dump: gdbarch_record_special_symbol_p() = %d\n",
1139 gdbarch_record_special_symbol_p (gdbarch
));
1140 fprintf_unfiltered (file
,
1141 "gdbarch_dump: record_special_symbol = <%s>\n",
1142 host_address_to_string (gdbarch
->record_special_symbol
));
1143 fprintf_unfiltered (file
,
1144 "gdbarch_dump: register_name = <%s>\n",
1145 host_address_to_string (gdbarch
->register_name
));
1146 fprintf_unfiltered (file
,
1147 "gdbarch_dump: register_reggroup_p = <%s>\n",
1148 host_address_to_string (gdbarch
->register_reggroup_p
));
1149 fprintf_unfiltered (file
,
1150 "gdbarch_dump: register_sim_regno = <%s>\n",
1151 host_address_to_string (gdbarch
->register_sim_regno
));
1152 fprintf_unfiltered (file
,
1153 "gdbarch_dump: register_to_value = <%s>\n",
1154 host_address_to_string (gdbarch
->register_to_value
));
1155 fprintf_unfiltered (file
,
1156 "gdbarch_dump: gdbarch_register_type_p() = %d\n",
1157 gdbarch_register_type_p (gdbarch
));
1158 fprintf_unfiltered (file
,
1159 "gdbarch_dump: register_type = <%s>\n",
1160 host_address_to_string (gdbarch
->register_type
));
1161 fprintf_unfiltered (file
,
1162 "gdbarch_dump: gdbarch_regset_from_core_section_p() = %d\n",
1163 gdbarch_regset_from_core_section_p (gdbarch
));
1164 fprintf_unfiltered (file
,
1165 "gdbarch_dump: regset_from_core_section = <%s>\n",
1166 host_address_to_string (gdbarch
->regset_from_core_section
));
1167 fprintf_unfiltered (file
,
1168 "gdbarch_dump: gdbarch_relocate_instruction_p() = %d\n",
1169 gdbarch_relocate_instruction_p (gdbarch
));
1170 fprintf_unfiltered (file
,
1171 "gdbarch_dump: relocate_instruction = <%s>\n",
1172 host_address_to_string (gdbarch
->relocate_instruction
));
1173 fprintf_unfiltered (file
,
1174 "gdbarch_dump: remote_breakpoint_from_pc = <%s>\n",
1175 host_address_to_string (gdbarch
->remote_breakpoint_from_pc
));
1176 fprintf_unfiltered (file
,
1177 "gdbarch_dump: remote_register_number = <%s>\n",
1178 host_address_to_string (gdbarch
->remote_register_number
));
1179 fprintf_unfiltered (file
,
1180 "gdbarch_dump: gdbarch_return_value_p() = %d\n",
1181 gdbarch_return_value_p (gdbarch
));
1182 fprintf_unfiltered (file
,
1183 "gdbarch_dump: return_value = <%s>\n",
1184 host_address_to_string (gdbarch
->return_value
));
1185 fprintf_unfiltered (file
,
1186 "gdbarch_dump: sdb_reg_to_regnum = <%s>\n",
1187 host_address_to_string (gdbarch
->sdb_reg_to_regnum
));
1188 fprintf_unfiltered (file
,
1189 "gdbarch_dump: short_bit = %s\n",
1190 plongest (gdbarch
->short_bit
));
1191 fprintf_unfiltered (file
,
1192 "gdbarch_dump: gdbarch_single_step_through_delay_p() = %d\n",
1193 gdbarch_single_step_through_delay_p (gdbarch
));
1194 fprintf_unfiltered (file
,
1195 "gdbarch_dump: single_step_through_delay = <%s>\n",
1196 host_address_to_string (gdbarch
->single_step_through_delay
));
1197 fprintf_unfiltered (file
,
1198 "gdbarch_dump: gdbarch_skip_main_prologue_p() = %d\n",
1199 gdbarch_skip_main_prologue_p (gdbarch
));
1200 fprintf_unfiltered (file
,
1201 "gdbarch_dump: skip_main_prologue = <%s>\n",
1202 host_address_to_string (gdbarch
->skip_main_prologue
));
1203 fprintf_unfiltered (file
,
1204 "gdbarch_dump: gdbarch_skip_permanent_breakpoint_p() = %d\n",
1205 gdbarch_skip_permanent_breakpoint_p (gdbarch
));
1206 fprintf_unfiltered (file
,
1207 "gdbarch_dump: skip_permanent_breakpoint = <%s>\n",
1208 host_address_to_string (gdbarch
->skip_permanent_breakpoint
));
1209 fprintf_unfiltered (file
,
1210 "gdbarch_dump: skip_prologue = <%s>\n",
1211 host_address_to_string (gdbarch
->skip_prologue
));
1212 fprintf_unfiltered (file
,
1213 "gdbarch_dump: skip_solib_resolver = <%s>\n",
1214 host_address_to_string (gdbarch
->skip_solib_resolver
));
1215 fprintf_unfiltered (file
,
1216 "gdbarch_dump: skip_trampoline_code = <%s>\n",
1217 host_address_to_string (gdbarch
->skip_trampoline_code
));
1218 fprintf_unfiltered (file
,
1219 "gdbarch_dump: smash_text_address = <%s>\n",
1220 host_address_to_string (gdbarch
->smash_text_address
));
1221 fprintf_unfiltered (file
,
1222 "gdbarch_dump: gdbarch_software_single_step_p() = %d\n",
1223 gdbarch_software_single_step_p (gdbarch
));
1224 fprintf_unfiltered (file
,
1225 "gdbarch_dump: software_single_step = <%s>\n",
1226 host_address_to_string (gdbarch
->software_single_step
));
1227 fprintf_unfiltered (file
,
1228 "gdbarch_dump: sofun_address_maybe_missing = %s\n",
1229 plongest (gdbarch
->sofun_address_maybe_missing
));
1230 fprintf_unfiltered (file
,
1231 "gdbarch_dump: solib_symbols_extension = %s\n",
1232 pstring (gdbarch
->solib_symbols_extension
));
1233 fprintf_unfiltered (file
,
1234 "gdbarch_dump: sp_regnum = %s\n",
1235 plongest (gdbarch
->sp_regnum
));
1236 fprintf_unfiltered (file
,
1237 "gdbarch_dump: stab_reg_to_regnum = <%s>\n",
1238 host_address_to_string (gdbarch
->stab_reg_to_regnum
));
1239 fprintf_unfiltered (file
,
1240 "gdbarch_dump: stabs_argument_has_addr = <%s>\n",
1241 host_address_to_string (gdbarch
->stabs_argument_has_addr
));
1242 fprintf_unfiltered (file
,
1243 "gdbarch_dump: gdbarch_static_transform_name_p() = %d\n",
1244 gdbarch_static_transform_name_p (gdbarch
));
1245 fprintf_unfiltered (file
,
1246 "gdbarch_dump: static_transform_name = <%s>\n",
1247 host_address_to_string (gdbarch
->static_transform_name
));
1248 fprintf_unfiltered (file
,
1249 "gdbarch_dump: target_desc = %s\n",
1250 host_address_to_string (gdbarch
->target_desc
));
1251 fprintf_unfiltered (file
,
1252 "gdbarch_dump: target_signal_from_host = <%s>\n",
1253 host_address_to_string (gdbarch
->target_signal_from_host
));
1254 fprintf_unfiltered (file
,
1255 "gdbarch_dump: target_signal_to_host = <%s>\n",
1256 host_address_to_string (gdbarch
->target_signal_to_host
));
1257 fprintf_unfiltered (file
,
1258 "gdbarch_dump: gdbarch_unwind_pc_p() = %d\n",
1259 gdbarch_unwind_pc_p (gdbarch
));
1260 fprintf_unfiltered (file
,
1261 "gdbarch_dump: unwind_pc = <%s>\n",
1262 host_address_to_string (gdbarch
->unwind_pc
));
1263 fprintf_unfiltered (file
,
1264 "gdbarch_dump: gdbarch_unwind_sp_p() = %d\n",
1265 gdbarch_unwind_sp_p (gdbarch
));
1266 fprintf_unfiltered (file
,
1267 "gdbarch_dump: unwind_sp = <%s>\n",
1268 host_address_to_string (gdbarch
->unwind_sp
));
1269 fprintf_unfiltered (file
,
1270 "gdbarch_dump: value_from_register = <%s>\n",
1271 host_address_to_string (gdbarch
->value_from_register
));
1272 fprintf_unfiltered (file
,
1273 "gdbarch_dump: value_to_register = <%s>\n",
1274 host_address_to_string (gdbarch
->value_to_register
));
1275 fprintf_unfiltered (file
,
1276 "gdbarch_dump: vbit_in_delta = %s\n",
1277 plongest (gdbarch
->vbit_in_delta
));
1278 fprintf_unfiltered (file
,
1279 "gdbarch_dump: virtual_frame_pointer = <%s>\n",
1280 host_address_to_string (gdbarch
->virtual_frame_pointer
));
1281 fprintf_unfiltered (file
,
1282 "gdbarch_dump: vtable_function_descriptors = %s\n",
1283 plongest (gdbarch
->vtable_function_descriptors
));
1284 fprintf_unfiltered (file
,
1285 "gdbarch_dump: gdbarch_write_pc_p() = %d\n",
1286 gdbarch_write_pc_p (gdbarch
));
1287 fprintf_unfiltered (file
,
1288 "gdbarch_dump: write_pc = <%s>\n",
1289 host_address_to_string (gdbarch
->write_pc
));
1290 if (gdbarch
->dump_tdep
!= NULL
)
1291 gdbarch
->dump_tdep (gdbarch
, file
);
1294 struct gdbarch_tdep
*
1295 gdbarch_tdep (struct gdbarch
*gdbarch
)
1297 if (gdbarch_debug
>= 2)
1298 fprintf_unfiltered (gdb_stdlog
, "gdbarch_tdep called\n");
1299 return gdbarch
->tdep
;
1303 const struct bfd_arch_info
*
1304 gdbarch_bfd_arch_info (struct gdbarch
*gdbarch
)
1306 gdb_assert (gdbarch
!= NULL
);
1307 if (gdbarch_debug
>= 2)
1308 fprintf_unfiltered (gdb_stdlog
, "gdbarch_bfd_arch_info called\n");
1309 return gdbarch
->bfd_arch_info
;
1313 gdbarch_byte_order (struct gdbarch
*gdbarch
)
1315 gdb_assert (gdbarch
!= NULL
);
1316 if (gdbarch_debug
>= 2)
1317 fprintf_unfiltered (gdb_stdlog
, "gdbarch_byte_order called\n");
1318 return gdbarch
->byte_order
;
1322 gdbarch_byte_order_for_code (struct gdbarch
*gdbarch
)
1324 gdb_assert (gdbarch
!= NULL
);
1325 if (gdbarch_debug
>= 2)
1326 fprintf_unfiltered (gdb_stdlog
, "gdbarch_byte_order_for_code called\n");
1327 return gdbarch
->byte_order_for_code
;
1331 gdbarch_osabi (struct gdbarch
*gdbarch
)
1333 gdb_assert (gdbarch
!= NULL
);
1334 if (gdbarch_debug
>= 2)
1335 fprintf_unfiltered (gdb_stdlog
, "gdbarch_osabi called\n");
1336 return gdbarch
->osabi
;
1339 const struct target_desc
*
1340 gdbarch_target_desc (struct gdbarch
*gdbarch
)
1342 gdb_assert (gdbarch
!= NULL
);
1343 if (gdbarch_debug
>= 2)
1344 fprintf_unfiltered (gdb_stdlog
, "gdbarch_target_desc called\n");
1345 return gdbarch
->target_desc
;
1349 gdbarch_bits_big_endian (struct gdbarch
*gdbarch
)
1351 gdb_assert (gdbarch
!= NULL
);
1352 /* Skip verify of bits_big_endian, invalid_p == 0 */
1353 if (gdbarch_debug
>= 2)
1354 fprintf_unfiltered (gdb_stdlog
, "gdbarch_bits_big_endian called\n");
1355 return gdbarch
->bits_big_endian
;
1359 set_gdbarch_bits_big_endian (struct gdbarch
*gdbarch
,
1360 int bits_big_endian
)
1362 gdbarch
->bits_big_endian
= bits_big_endian
;
1366 gdbarch_short_bit (struct gdbarch
*gdbarch
)
1368 gdb_assert (gdbarch
!= NULL
);
1369 /* Skip verify of short_bit, invalid_p == 0 */
1370 if (gdbarch_debug
>= 2)
1371 fprintf_unfiltered (gdb_stdlog
, "gdbarch_short_bit called\n");
1372 return gdbarch
->short_bit
;
1376 set_gdbarch_short_bit (struct gdbarch
*gdbarch
,
1379 gdbarch
->short_bit
= short_bit
;
1383 gdbarch_int_bit (struct gdbarch
*gdbarch
)
1385 gdb_assert (gdbarch
!= NULL
);
1386 /* Skip verify of int_bit, invalid_p == 0 */
1387 if (gdbarch_debug
>= 2)
1388 fprintf_unfiltered (gdb_stdlog
, "gdbarch_int_bit called\n");
1389 return gdbarch
->int_bit
;
1393 set_gdbarch_int_bit (struct gdbarch
*gdbarch
,
1396 gdbarch
->int_bit
= int_bit
;
1400 gdbarch_long_bit (struct gdbarch
*gdbarch
)
1402 gdb_assert (gdbarch
!= NULL
);
1403 /* Skip verify of long_bit, invalid_p == 0 */
1404 if (gdbarch_debug
>= 2)
1405 fprintf_unfiltered (gdb_stdlog
, "gdbarch_long_bit called\n");
1406 return gdbarch
->long_bit
;
1410 set_gdbarch_long_bit (struct gdbarch
*gdbarch
,
1413 gdbarch
->long_bit
= long_bit
;
1417 gdbarch_long_long_bit (struct gdbarch
*gdbarch
)
1419 gdb_assert (gdbarch
!= NULL
);
1420 /* Skip verify of long_long_bit, invalid_p == 0 */
1421 if (gdbarch_debug
>= 2)
1422 fprintf_unfiltered (gdb_stdlog
, "gdbarch_long_long_bit called\n");
1423 return gdbarch
->long_long_bit
;
1427 set_gdbarch_long_long_bit (struct gdbarch
*gdbarch
,
1430 gdbarch
->long_long_bit
= long_long_bit
;
1434 gdbarch_long_long_align_bit (struct gdbarch
*gdbarch
)
1436 gdb_assert (gdbarch
!= NULL
);
1437 /* Skip verify of long_long_align_bit, invalid_p == 0 */
1438 if (gdbarch_debug
>= 2)
1439 fprintf_unfiltered (gdb_stdlog
, "gdbarch_long_long_align_bit called\n");
1440 return gdbarch
->long_long_align_bit
;
1444 set_gdbarch_long_long_align_bit (struct gdbarch
*gdbarch
,
1445 int long_long_align_bit
)
1447 gdbarch
->long_long_align_bit
= long_long_align_bit
;
1451 gdbarch_half_bit (struct gdbarch
*gdbarch
)
1453 gdb_assert (gdbarch
!= NULL
);
1454 /* Skip verify of half_bit, invalid_p == 0 */
1455 if (gdbarch_debug
>= 2)
1456 fprintf_unfiltered (gdb_stdlog
, "gdbarch_half_bit called\n");
1457 return gdbarch
->half_bit
;
1461 set_gdbarch_half_bit (struct gdbarch
*gdbarch
,
1464 gdbarch
->half_bit
= half_bit
;
1467 const struct floatformat
**
1468 gdbarch_half_format (struct gdbarch
*gdbarch
)
1470 gdb_assert (gdbarch
!= NULL
);
1471 if (gdbarch_debug
>= 2)
1472 fprintf_unfiltered (gdb_stdlog
, "gdbarch_half_format called\n");
1473 return gdbarch
->half_format
;
1477 set_gdbarch_half_format (struct gdbarch
*gdbarch
,
1478 const struct floatformat
** half_format
)
1480 gdbarch
->half_format
= half_format
;
1484 gdbarch_float_bit (struct gdbarch
*gdbarch
)
1486 gdb_assert (gdbarch
!= NULL
);
1487 /* Skip verify of float_bit, invalid_p == 0 */
1488 if (gdbarch_debug
>= 2)
1489 fprintf_unfiltered (gdb_stdlog
, "gdbarch_float_bit called\n");
1490 return gdbarch
->float_bit
;
1494 set_gdbarch_float_bit (struct gdbarch
*gdbarch
,
1497 gdbarch
->float_bit
= float_bit
;
1500 const struct floatformat
**
1501 gdbarch_float_format (struct gdbarch
*gdbarch
)
1503 gdb_assert (gdbarch
!= NULL
);
1504 if (gdbarch_debug
>= 2)
1505 fprintf_unfiltered (gdb_stdlog
, "gdbarch_float_format called\n");
1506 return gdbarch
->float_format
;
1510 set_gdbarch_float_format (struct gdbarch
*gdbarch
,
1511 const struct floatformat
** float_format
)
1513 gdbarch
->float_format
= float_format
;
1517 gdbarch_double_bit (struct gdbarch
*gdbarch
)
1519 gdb_assert (gdbarch
!= NULL
);
1520 /* Skip verify of double_bit, invalid_p == 0 */
1521 if (gdbarch_debug
>= 2)
1522 fprintf_unfiltered (gdb_stdlog
, "gdbarch_double_bit called\n");
1523 return gdbarch
->double_bit
;
1527 set_gdbarch_double_bit (struct gdbarch
*gdbarch
,
1530 gdbarch
->double_bit
= double_bit
;
1533 const struct floatformat
**
1534 gdbarch_double_format (struct gdbarch
*gdbarch
)
1536 gdb_assert (gdbarch
!= NULL
);
1537 if (gdbarch_debug
>= 2)
1538 fprintf_unfiltered (gdb_stdlog
, "gdbarch_double_format called\n");
1539 return gdbarch
->double_format
;
1543 set_gdbarch_double_format (struct gdbarch
*gdbarch
,
1544 const struct floatformat
** double_format
)
1546 gdbarch
->double_format
= double_format
;
1550 gdbarch_long_double_bit (struct gdbarch
*gdbarch
)
1552 gdb_assert (gdbarch
!= NULL
);
1553 /* Skip verify of long_double_bit, invalid_p == 0 */
1554 if (gdbarch_debug
>= 2)
1555 fprintf_unfiltered (gdb_stdlog
, "gdbarch_long_double_bit called\n");
1556 return gdbarch
->long_double_bit
;
1560 set_gdbarch_long_double_bit (struct gdbarch
*gdbarch
,
1561 int long_double_bit
)
1563 gdbarch
->long_double_bit
= long_double_bit
;
1566 const struct floatformat
**
1567 gdbarch_long_double_format (struct gdbarch
*gdbarch
)
1569 gdb_assert (gdbarch
!= NULL
);
1570 if (gdbarch_debug
>= 2)
1571 fprintf_unfiltered (gdb_stdlog
, "gdbarch_long_double_format called\n");
1572 return gdbarch
->long_double_format
;
1576 set_gdbarch_long_double_format (struct gdbarch
*gdbarch
,
1577 const struct floatformat
** long_double_format
)
1579 gdbarch
->long_double_format
= long_double_format
;
1583 gdbarch_ptr_bit (struct gdbarch
*gdbarch
)
1585 gdb_assert (gdbarch
!= NULL
);
1586 /* Skip verify of ptr_bit, invalid_p == 0 */
1587 if (gdbarch_debug
>= 2)
1588 fprintf_unfiltered (gdb_stdlog
, "gdbarch_ptr_bit called\n");
1589 return gdbarch
->ptr_bit
;
1593 set_gdbarch_ptr_bit (struct gdbarch
*gdbarch
,
1596 gdbarch
->ptr_bit
= ptr_bit
;
1600 gdbarch_addr_bit (struct gdbarch
*gdbarch
)
1602 gdb_assert (gdbarch
!= NULL
);
1603 /* Check variable changed from pre-default. */
1604 gdb_assert (gdbarch
->addr_bit
!= 0);
1605 if (gdbarch_debug
>= 2)
1606 fprintf_unfiltered (gdb_stdlog
, "gdbarch_addr_bit called\n");
1607 return gdbarch
->addr_bit
;
1611 set_gdbarch_addr_bit (struct gdbarch
*gdbarch
,
1614 gdbarch
->addr_bit
= addr_bit
;
1618 gdbarch_dwarf2_addr_size (struct gdbarch
*gdbarch
)
1620 gdb_assert (gdbarch
!= NULL
);
1621 /* Check variable changed from pre-default. */
1622 gdb_assert (gdbarch
->dwarf2_addr_size
!= 0);
1623 if (gdbarch_debug
>= 2)
1624 fprintf_unfiltered (gdb_stdlog
, "gdbarch_dwarf2_addr_size called\n");
1625 return gdbarch
->dwarf2_addr_size
;
1629 set_gdbarch_dwarf2_addr_size (struct gdbarch
*gdbarch
,
1630 int dwarf2_addr_size
)
1632 gdbarch
->dwarf2_addr_size
= dwarf2_addr_size
;
1636 gdbarch_char_signed (struct gdbarch
*gdbarch
)
1638 gdb_assert (gdbarch
!= NULL
);
1639 /* Check variable changed from pre-default. */
1640 gdb_assert (gdbarch
->char_signed
!= -1);
1641 if (gdbarch_debug
>= 2)
1642 fprintf_unfiltered (gdb_stdlog
, "gdbarch_char_signed called\n");
1643 return gdbarch
->char_signed
;
1647 set_gdbarch_char_signed (struct gdbarch
*gdbarch
,
1650 gdbarch
->char_signed
= char_signed
;
1654 gdbarch_read_pc_p (struct gdbarch
*gdbarch
)
1656 gdb_assert (gdbarch
!= NULL
);
1657 return gdbarch
->read_pc
!= NULL
;
1661 gdbarch_read_pc (struct gdbarch
*gdbarch
, struct regcache
*regcache
)
1663 gdb_assert (gdbarch
!= NULL
);
1664 gdb_assert (gdbarch
->read_pc
!= NULL
);
1665 if (gdbarch_debug
>= 2)
1666 fprintf_unfiltered (gdb_stdlog
, "gdbarch_read_pc called\n");
1667 return gdbarch
->read_pc (regcache
);
1671 set_gdbarch_read_pc (struct gdbarch
*gdbarch
,
1672 gdbarch_read_pc_ftype read_pc
)
1674 gdbarch
->read_pc
= read_pc
;
1678 gdbarch_write_pc_p (struct gdbarch
*gdbarch
)
1680 gdb_assert (gdbarch
!= NULL
);
1681 return gdbarch
->write_pc
!= NULL
;
1685 gdbarch_write_pc (struct gdbarch
*gdbarch
, struct regcache
*regcache
, CORE_ADDR val
)
1687 gdb_assert (gdbarch
!= NULL
);
1688 gdb_assert (gdbarch
->write_pc
!= NULL
);
1689 if (gdbarch_debug
>= 2)
1690 fprintf_unfiltered (gdb_stdlog
, "gdbarch_write_pc called\n");
1691 gdbarch
->write_pc (regcache
, val
);
1695 set_gdbarch_write_pc (struct gdbarch
*gdbarch
,
1696 gdbarch_write_pc_ftype write_pc
)
1698 gdbarch
->write_pc
= write_pc
;
1702 gdbarch_virtual_frame_pointer (struct gdbarch
*gdbarch
, CORE_ADDR pc
, int *frame_regnum
, LONGEST
*frame_offset
)
1704 gdb_assert (gdbarch
!= NULL
);
1705 gdb_assert (gdbarch
->virtual_frame_pointer
!= NULL
);
1706 if (gdbarch_debug
>= 2)
1707 fprintf_unfiltered (gdb_stdlog
, "gdbarch_virtual_frame_pointer called\n");
1708 gdbarch
->virtual_frame_pointer (gdbarch
, pc
, frame_regnum
, frame_offset
);
1712 set_gdbarch_virtual_frame_pointer (struct gdbarch
*gdbarch
,
1713 gdbarch_virtual_frame_pointer_ftype virtual_frame_pointer
)
1715 gdbarch
->virtual_frame_pointer
= virtual_frame_pointer
;
1719 gdbarch_pseudo_register_read_p (struct gdbarch
*gdbarch
)
1721 gdb_assert (gdbarch
!= NULL
);
1722 return gdbarch
->pseudo_register_read
!= NULL
;
1725 enum register_status
1726 gdbarch_pseudo_register_read (struct gdbarch
*gdbarch
, struct regcache
*regcache
, int cookednum
, gdb_byte
*buf
)
1728 gdb_assert (gdbarch
!= NULL
);
1729 gdb_assert (gdbarch
->pseudo_register_read
!= NULL
);
1730 if (gdbarch_debug
>= 2)
1731 fprintf_unfiltered (gdb_stdlog
, "gdbarch_pseudo_register_read called\n");
1732 return gdbarch
->pseudo_register_read (gdbarch
, regcache
, cookednum
, buf
);
1736 set_gdbarch_pseudo_register_read (struct gdbarch
*gdbarch
,
1737 gdbarch_pseudo_register_read_ftype pseudo_register_read
)
1739 gdbarch
->pseudo_register_read
= pseudo_register_read
;
1743 gdbarch_pseudo_register_read_value_p (struct gdbarch
*gdbarch
)
1745 gdb_assert (gdbarch
!= NULL
);
1746 return gdbarch
->pseudo_register_read_value
!= NULL
;
1750 gdbarch_pseudo_register_read_value (struct gdbarch
*gdbarch
, struct regcache
*regcache
, int cookednum
)
1752 gdb_assert (gdbarch
!= NULL
);
1753 gdb_assert (gdbarch
->pseudo_register_read_value
!= NULL
);
1754 if (gdbarch_debug
>= 2)
1755 fprintf_unfiltered (gdb_stdlog
, "gdbarch_pseudo_register_read_value called\n");
1756 return gdbarch
->pseudo_register_read_value (gdbarch
, regcache
, cookednum
);
1760 set_gdbarch_pseudo_register_read_value (struct gdbarch
*gdbarch
,
1761 gdbarch_pseudo_register_read_value_ftype pseudo_register_read_value
)
1763 gdbarch
->pseudo_register_read_value
= pseudo_register_read_value
;
1767 gdbarch_pseudo_register_write_p (struct gdbarch
*gdbarch
)
1769 gdb_assert (gdbarch
!= NULL
);
1770 return gdbarch
->pseudo_register_write
!= NULL
;
1774 gdbarch_pseudo_register_write (struct gdbarch
*gdbarch
, struct regcache
*regcache
, int cookednum
, const gdb_byte
*buf
)
1776 gdb_assert (gdbarch
!= NULL
);
1777 gdb_assert (gdbarch
->pseudo_register_write
!= NULL
);
1778 if (gdbarch_debug
>= 2)
1779 fprintf_unfiltered (gdb_stdlog
, "gdbarch_pseudo_register_write called\n");
1780 gdbarch
->pseudo_register_write (gdbarch
, regcache
, cookednum
, buf
);
1784 set_gdbarch_pseudo_register_write (struct gdbarch
*gdbarch
,
1785 gdbarch_pseudo_register_write_ftype pseudo_register_write
)
1787 gdbarch
->pseudo_register_write
= pseudo_register_write
;
1791 gdbarch_num_regs (struct gdbarch
*gdbarch
)
1793 gdb_assert (gdbarch
!= NULL
);
1794 /* Check variable changed from pre-default. */
1795 gdb_assert (gdbarch
->num_regs
!= -1);
1796 if (gdbarch_debug
>= 2)
1797 fprintf_unfiltered (gdb_stdlog
, "gdbarch_num_regs called\n");
1798 return gdbarch
->num_regs
;
1802 set_gdbarch_num_regs (struct gdbarch
*gdbarch
,
1805 gdbarch
->num_regs
= num_regs
;
1809 gdbarch_num_pseudo_regs (struct gdbarch
*gdbarch
)
1811 gdb_assert (gdbarch
!= NULL
);
1812 /* Skip verify of num_pseudo_regs, invalid_p == 0 */
1813 if (gdbarch_debug
>= 2)
1814 fprintf_unfiltered (gdb_stdlog
, "gdbarch_num_pseudo_regs called\n");
1815 return gdbarch
->num_pseudo_regs
;
1819 set_gdbarch_num_pseudo_regs (struct gdbarch
*gdbarch
,
1820 int num_pseudo_regs
)
1822 gdbarch
->num_pseudo_regs
= num_pseudo_regs
;
1826 gdbarch_ax_pseudo_register_collect_p (struct gdbarch
*gdbarch
)
1828 gdb_assert (gdbarch
!= NULL
);
1829 return gdbarch
->ax_pseudo_register_collect
!= NULL
;
1833 gdbarch_ax_pseudo_register_collect (struct gdbarch
*gdbarch
, struct agent_expr
*ax
, int reg
)
1835 gdb_assert (gdbarch
!= NULL
);
1836 gdb_assert (gdbarch
->ax_pseudo_register_collect
!= NULL
);
1837 if (gdbarch_debug
>= 2)
1838 fprintf_unfiltered (gdb_stdlog
, "gdbarch_ax_pseudo_register_collect called\n");
1839 return gdbarch
->ax_pseudo_register_collect (gdbarch
, ax
, reg
);
1843 set_gdbarch_ax_pseudo_register_collect (struct gdbarch
*gdbarch
,
1844 gdbarch_ax_pseudo_register_collect_ftype ax_pseudo_register_collect
)
1846 gdbarch
->ax_pseudo_register_collect
= ax_pseudo_register_collect
;
1850 gdbarch_ax_pseudo_register_push_stack_p (struct gdbarch
*gdbarch
)
1852 gdb_assert (gdbarch
!= NULL
);
1853 return gdbarch
->ax_pseudo_register_push_stack
!= NULL
;
1857 gdbarch_ax_pseudo_register_push_stack (struct gdbarch
*gdbarch
, struct agent_expr
*ax
, int reg
)
1859 gdb_assert (gdbarch
!= NULL
);
1860 gdb_assert (gdbarch
->ax_pseudo_register_push_stack
!= NULL
);
1861 if (gdbarch_debug
>= 2)
1862 fprintf_unfiltered (gdb_stdlog
, "gdbarch_ax_pseudo_register_push_stack called\n");
1863 return gdbarch
->ax_pseudo_register_push_stack (gdbarch
, ax
, reg
);
1867 set_gdbarch_ax_pseudo_register_push_stack (struct gdbarch
*gdbarch
,
1868 gdbarch_ax_pseudo_register_push_stack_ftype ax_pseudo_register_push_stack
)
1870 gdbarch
->ax_pseudo_register_push_stack
= ax_pseudo_register_push_stack
;
1874 gdbarch_sp_regnum (struct gdbarch
*gdbarch
)
1876 gdb_assert (gdbarch
!= NULL
);
1877 /* Skip verify of sp_regnum, invalid_p == 0 */
1878 if (gdbarch_debug
>= 2)
1879 fprintf_unfiltered (gdb_stdlog
, "gdbarch_sp_regnum called\n");
1880 return gdbarch
->sp_regnum
;
1884 set_gdbarch_sp_regnum (struct gdbarch
*gdbarch
,
1887 gdbarch
->sp_regnum
= sp_regnum
;
1891 gdbarch_pc_regnum (struct gdbarch
*gdbarch
)
1893 gdb_assert (gdbarch
!= NULL
);
1894 /* Skip verify of pc_regnum, invalid_p == 0 */
1895 if (gdbarch_debug
>= 2)
1896 fprintf_unfiltered (gdb_stdlog
, "gdbarch_pc_regnum called\n");
1897 return gdbarch
->pc_regnum
;
1901 set_gdbarch_pc_regnum (struct gdbarch
*gdbarch
,
1904 gdbarch
->pc_regnum
= pc_regnum
;
1908 gdbarch_ps_regnum (struct gdbarch
*gdbarch
)
1910 gdb_assert (gdbarch
!= NULL
);
1911 /* Skip verify of ps_regnum, invalid_p == 0 */
1912 if (gdbarch_debug
>= 2)
1913 fprintf_unfiltered (gdb_stdlog
, "gdbarch_ps_regnum called\n");
1914 return gdbarch
->ps_regnum
;
1918 set_gdbarch_ps_regnum (struct gdbarch
*gdbarch
,
1921 gdbarch
->ps_regnum
= ps_regnum
;
1925 gdbarch_fp0_regnum (struct gdbarch
*gdbarch
)
1927 gdb_assert (gdbarch
!= NULL
);
1928 /* Skip verify of fp0_regnum, invalid_p == 0 */
1929 if (gdbarch_debug
>= 2)
1930 fprintf_unfiltered (gdb_stdlog
, "gdbarch_fp0_regnum called\n");
1931 return gdbarch
->fp0_regnum
;
1935 set_gdbarch_fp0_regnum (struct gdbarch
*gdbarch
,
1938 gdbarch
->fp0_regnum
= fp0_regnum
;
1942 gdbarch_stab_reg_to_regnum (struct gdbarch
*gdbarch
, int stab_regnr
)
1944 gdb_assert (gdbarch
!= NULL
);
1945 gdb_assert (gdbarch
->stab_reg_to_regnum
!= NULL
);
1946 if (gdbarch_debug
>= 2)
1947 fprintf_unfiltered (gdb_stdlog
, "gdbarch_stab_reg_to_regnum called\n");
1948 return gdbarch
->stab_reg_to_regnum (gdbarch
, stab_regnr
);
1952 set_gdbarch_stab_reg_to_regnum (struct gdbarch
*gdbarch
,
1953 gdbarch_stab_reg_to_regnum_ftype stab_reg_to_regnum
)
1955 gdbarch
->stab_reg_to_regnum
= stab_reg_to_regnum
;
1959 gdbarch_ecoff_reg_to_regnum (struct gdbarch
*gdbarch
, int ecoff_regnr
)
1961 gdb_assert (gdbarch
!= NULL
);
1962 gdb_assert (gdbarch
->ecoff_reg_to_regnum
!= NULL
);
1963 if (gdbarch_debug
>= 2)
1964 fprintf_unfiltered (gdb_stdlog
, "gdbarch_ecoff_reg_to_regnum called\n");
1965 return gdbarch
->ecoff_reg_to_regnum (gdbarch
, ecoff_regnr
);
1969 set_gdbarch_ecoff_reg_to_regnum (struct gdbarch
*gdbarch
,
1970 gdbarch_ecoff_reg_to_regnum_ftype ecoff_reg_to_regnum
)
1972 gdbarch
->ecoff_reg_to_regnum
= ecoff_reg_to_regnum
;
1976 gdbarch_sdb_reg_to_regnum (struct gdbarch
*gdbarch
, int sdb_regnr
)
1978 gdb_assert (gdbarch
!= NULL
);
1979 gdb_assert (gdbarch
->sdb_reg_to_regnum
!= NULL
);
1980 if (gdbarch_debug
>= 2)
1981 fprintf_unfiltered (gdb_stdlog
, "gdbarch_sdb_reg_to_regnum called\n");
1982 return gdbarch
->sdb_reg_to_regnum (gdbarch
, sdb_regnr
);
1986 set_gdbarch_sdb_reg_to_regnum (struct gdbarch
*gdbarch
,
1987 gdbarch_sdb_reg_to_regnum_ftype sdb_reg_to_regnum
)
1989 gdbarch
->sdb_reg_to_regnum
= sdb_reg_to_regnum
;
1993 gdbarch_dwarf2_reg_to_regnum (struct gdbarch
*gdbarch
, int dwarf2_regnr
)
1995 gdb_assert (gdbarch
!= NULL
);
1996 gdb_assert (gdbarch
->dwarf2_reg_to_regnum
!= NULL
);
1997 if (gdbarch_debug
>= 2)
1998 fprintf_unfiltered (gdb_stdlog
, "gdbarch_dwarf2_reg_to_regnum called\n");
1999 return gdbarch
->dwarf2_reg_to_regnum (gdbarch
, dwarf2_regnr
);
2003 set_gdbarch_dwarf2_reg_to_regnum (struct gdbarch
*gdbarch
,
2004 gdbarch_dwarf2_reg_to_regnum_ftype dwarf2_reg_to_regnum
)
2006 gdbarch
->dwarf2_reg_to_regnum
= dwarf2_reg_to_regnum
;
2010 gdbarch_register_name (struct gdbarch
*gdbarch
, int regnr
)
2012 gdb_assert (gdbarch
!= NULL
);
2013 gdb_assert (gdbarch
->register_name
!= NULL
);
2014 if (gdbarch_debug
>= 2)
2015 fprintf_unfiltered (gdb_stdlog
, "gdbarch_register_name called\n");
2016 return gdbarch
->register_name (gdbarch
, regnr
);
2020 set_gdbarch_register_name (struct gdbarch
*gdbarch
,
2021 gdbarch_register_name_ftype register_name
)
2023 gdbarch
->register_name
= register_name
;
2027 gdbarch_register_type_p (struct gdbarch
*gdbarch
)
2029 gdb_assert (gdbarch
!= NULL
);
2030 return gdbarch
->register_type
!= NULL
;
2034 gdbarch_register_type (struct gdbarch
*gdbarch
, int reg_nr
)
2036 gdb_assert (gdbarch
!= NULL
);
2037 gdb_assert (gdbarch
->register_type
!= NULL
);
2038 if (gdbarch_debug
>= 2)
2039 fprintf_unfiltered (gdb_stdlog
, "gdbarch_register_type called\n");
2040 return gdbarch
->register_type (gdbarch
, reg_nr
);
2044 set_gdbarch_register_type (struct gdbarch
*gdbarch
,
2045 gdbarch_register_type_ftype register_type
)
2047 gdbarch
->register_type
= register_type
;
2051 gdbarch_dummy_id_p (struct gdbarch
*gdbarch
)
2053 gdb_assert (gdbarch
!= NULL
);
2054 return gdbarch
->dummy_id
!= NULL
;
2058 gdbarch_dummy_id (struct gdbarch
*gdbarch
, struct frame_info
*this_frame
)
2060 gdb_assert (gdbarch
!= NULL
);
2061 gdb_assert (gdbarch
->dummy_id
!= NULL
);
2062 if (gdbarch_debug
>= 2)
2063 fprintf_unfiltered (gdb_stdlog
, "gdbarch_dummy_id called\n");
2064 return gdbarch
->dummy_id (gdbarch
, this_frame
);
2068 set_gdbarch_dummy_id (struct gdbarch
*gdbarch
,
2069 gdbarch_dummy_id_ftype dummy_id
)
2071 gdbarch
->dummy_id
= dummy_id
;
2075 gdbarch_deprecated_fp_regnum (struct gdbarch
*gdbarch
)
2077 gdb_assert (gdbarch
!= NULL
);
2078 /* Skip verify of deprecated_fp_regnum, invalid_p == 0 */
2079 if (gdbarch_debug
>= 2)
2080 fprintf_unfiltered (gdb_stdlog
, "gdbarch_deprecated_fp_regnum called\n");
2081 return gdbarch
->deprecated_fp_regnum
;
2085 set_gdbarch_deprecated_fp_regnum (struct gdbarch
*gdbarch
,
2086 int deprecated_fp_regnum
)
2088 gdbarch
->deprecated_fp_regnum
= deprecated_fp_regnum
;
2092 gdbarch_push_dummy_call_p (struct gdbarch
*gdbarch
)
2094 gdb_assert (gdbarch
!= NULL
);
2095 return gdbarch
->push_dummy_call
!= NULL
;
2099 gdbarch_push_dummy_call (struct gdbarch
*gdbarch
, struct value
*function
, struct regcache
*regcache
, CORE_ADDR bp_addr
, int nargs
, struct value
**args
, CORE_ADDR sp
, int struct_return
, CORE_ADDR struct_addr
)
2101 gdb_assert (gdbarch
!= NULL
);
2102 gdb_assert (gdbarch
->push_dummy_call
!= NULL
);
2103 if (gdbarch_debug
>= 2)
2104 fprintf_unfiltered (gdb_stdlog
, "gdbarch_push_dummy_call called\n");
2105 return gdbarch
->push_dummy_call (gdbarch
, function
, regcache
, bp_addr
, nargs
, args
, sp
, struct_return
, struct_addr
);
2109 set_gdbarch_push_dummy_call (struct gdbarch
*gdbarch
,
2110 gdbarch_push_dummy_call_ftype push_dummy_call
)
2112 gdbarch
->push_dummy_call
= push_dummy_call
;
2116 gdbarch_call_dummy_location (struct gdbarch
*gdbarch
)
2118 gdb_assert (gdbarch
!= NULL
);
2119 /* Skip verify of call_dummy_location, invalid_p == 0 */
2120 if (gdbarch_debug
>= 2)
2121 fprintf_unfiltered (gdb_stdlog
, "gdbarch_call_dummy_location called\n");
2122 return gdbarch
->call_dummy_location
;
2126 set_gdbarch_call_dummy_location (struct gdbarch
*gdbarch
,
2127 int call_dummy_location
)
2129 gdbarch
->call_dummy_location
= call_dummy_location
;
2133 gdbarch_push_dummy_code_p (struct gdbarch
*gdbarch
)
2135 gdb_assert (gdbarch
!= NULL
);
2136 return gdbarch
->push_dummy_code
!= NULL
;
2140 gdbarch_push_dummy_code (struct gdbarch
*gdbarch
, CORE_ADDR sp
, CORE_ADDR funaddr
, struct value
**args
, int nargs
, struct type
*value_type
, CORE_ADDR
*real_pc
, CORE_ADDR
*bp_addr
, struct regcache
*regcache
)
2142 gdb_assert (gdbarch
!= NULL
);
2143 gdb_assert (gdbarch
->push_dummy_code
!= NULL
);
2144 if (gdbarch_debug
>= 2)
2145 fprintf_unfiltered (gdb_stdlog
, "gdbarch_push_dummy_code called\n");
2146 return gdbarch
->push_dummy_code (gdbarch
, sp
, funaddr
, args
, nargs
, value_type
, real_pc
, bp_addr
, regcache
);
2150 set_gdbarch_push_dummy_code (struct gdbarch
*gdbarch
,
2151 gdbarch_push_dummy_code_ftype push_dummy_code
)
2153 gdbarch
->push_dummy_code
= push_dummy_code
;
2157 gdbarch_print_registers_info (struct gdbarch
*gdbarch
, struct ui_file
*file
, struct frame_info
*frame
, int regnum
, int all
)
2159 gdb_assert (gdbarch
!= NULL
);
2160 gdb_assert (gdbarch
->print_registers_info
!= NULL
);
2161 if (gdbarch_debug
>= 2)
2162 fprintf_unfiltered (gdb_stdlog
, "gdbarch_print_registers_info called\n");
2163 gdbarch
->print_registers_info (gdbarch
, file
, frame
, regnum
, all
);
2167 set_gdbarch_print_registers_info (struct gdbarch
*gdbarch
,
2168 gdbarch_print_registers_info_ftype print_registers_info
)
2170 gdbarch
->print_registers_info
= print_registers_info
;
2174 gdbarch_print_float_info_p (struct gdbarch
*gdbarch
)
2176 gdb_assert (gdbarch
!= NULL
);
2177 return gdbarch
->print_float_info
!= NULL
;
2181 gdbarch_print_float_info (struct gdbarch
*gdbarch
, struct ui_file
*file
, struct frame_info
*frame
, const char *args
)
2183 gdb_assert (gdbarch
!= NULL
);
2184 gdb_assert (gdbarch
->print_float_info
!= NULL
);
2185 if (gdbarch_debug
>= 2)
2186 fprintf_unfiltered (gdb_stdlog
, "gdbarch_print_float_info called\n");
2187 gdbarch
->print_float_info (gdbarch
, file
, frame
, args
);
2191 set_gdbarch_print_float_info (struct gdbarch
*gdbarch
,
2192 gdbarch_print_float_info_ftype print_float_info
)
2194 gdbarch
->print_float_info
= print_float_info
;
2198 gdbarch_print_vector_info_p (struct gdbarch
*gdbarch
)
2200 gdb_assert (gdbarch
!= NULL
);
2201 return gdbarch
->print_vector_info
!= NULL
;
2205 gdbarch_print_vector_info (struct gdbarch
*gdbarch
, struct ui_file
*file
, struct frame_info
*frame
, const char *args
)
2207 gdb_assert (gdbarch
!= NULL
);
2208 gdb_assert (gdbarch
->print_vector_info
!= NULL
);
2209 if (gdbarch_debug
>= 2)
2210 fprintf_unfiltered (gdb_stdlog
, "gdbarch_print_vector_info called\n");
2211 gdbarch
->print_vector_info (gdbarch
, file
, frame
, args
);
2215 set_gdbarch_print_vector_info (struct gdbarch
*gdbarch
,
2216 gdbarch_print_vector_info_ftype print_vector_info
)
2218 gdbarch
->print_vector_info
= print_vector_info
;
2222 gdbarch_register_sim_regno (struct gdbarch
*gdbarch
, int reg_nr
)
2224 gdb_assert (gdbarch
!= NULL
);
2225 gdb_assert (gdbarch
->register_sim_regno
!= NULL
);
2226 if (gdbarch_debug
>= 2)
2227 fprintf_unfiltered (gdb_stdlog
, "gdbarch_register_sim_regno called\n");
2228 return gdbarch
->register_sim_regno (gdbarch
, reg_nr
);
2232 set_gdbarch_register_sim_regno (struct gdbarch
*gdbarch
,
2233 gdbarch_register_sim_regno_ftype register_sim_regno
)
2235 gdbarch
->register_sim_regno
= register_sim_regno
;
2239 gdbarch_cannot_fetch_register (struct gdbarch
*gdbarch
, int regnum
)
2241 gdb_assert (gdbarch
!= NULL
);
2242 gdb_assert (gdbarch
->cannot_fetch_register
!= NULL
);
2243 if (gdbarch_debug
>= 2)
2244 fprintf_unfiltered (gdb_stdlog
, "gdbarch_cannot_fetch_register called\n");
2245 return gdbarch
->cannot_fetch_register (gdbarch
, regnum
);
2249 set_gdbarch_cannot_fetch_register (struct gdbarch
*gdbarch
,
2250 gdbarch_cannot_fetch_register_ftype cannot_fetch_register
)
2252 gdbarch
->cannot_fetch_register
= cannot_fetch_register
;
2256 gdbarch_cannot_store_register (struct gdbarch
*gdbarch
, int regnum
)
2258 gdb_assert (gdbarch
!= NULL
);
2259 gdb_assert (gdbarch
->cannot_store_register
!= NULL
);
2260 if (gdbarch_debug
>= 2)
2261 fprintf_unfiltered (gdb_stdlog
, "gdbarch_cannot_store_register called\n");
2262 return gdbarch
->cannot_store_register (gdbarch
, regnum
);
2266 set_gdbarch_cannot_store_register (struct gdbarch
*gdbarch
,
2267 gdbarch_cannot_store_register_ftype cannot_store_register
)
2269 gdbarch
->cannot_store_register
= cannot_store_register
;
2273 gdbarch_get_longjmp_target_p (struct gdbarch
*gdbarch
)
2275 gdb_assert (gdbarch
!= NULL
);
2276 return gdbarch
->get_longjmp_target
!= NULL
;
2280 gdbarch_get_longjmp_target (struct gdbarch
*gdbarch
, struct frame_info
*frame
, CORE_ADDR
*pc
)
2282 gdb_assert (gdbarch
!= NULL
);
2283 gdb_assert (gdbarch
->get_longjmp_target
!= NULL
);
2284 if (gdbarch_debug
>= 2)
2285 fprintf_unfiltered (gdb_stdlog
, "gdbarch_get_longjmp_target called\n");
2286 return gdbarch
->get_longjmp_target (frame
, pc
);
2290 set_gdbarch_get_longjmp_target (struct gdbarch
*gdbarch
,
2291 gdbarch_get_longjmp_target_ftype get_longjmp_target
)
2293 gdbarch
->get_longjmp_target
= get_longjmp_target
;
2297 gdbarch_believe_pcc_promotion (struct gdbarch
*gdbarch
)
2299 gdb_assert (gdbarch
!= NULL
);
2300 if (gdbarch_debug
>= 2)
2301 fprintf_unfiltered (gdb_stdlog
, "gdbarch_believe_pcc_promotion called\n");
2302 return gdbarch
->believe_pcc_promotion
;
2306 set_gdbarch_believe_pcc_promotion (struct gdbarch
*gdbarch
,
2307 int believe_pcc_promotion
)
2309 gdbarch
->believe_pcc_promotion
= believe_pcc_promotion
;
2313 gdbarch_convert_register_p (struct gdbarch
*gdbarch
, int regnum
, struct type
*type
)
2315 gdb_assert (gdbarch
!= NULL
);
2316 gdb_assert (gdbarch
->convert_register_p
!= NULL
);
2317 if (gdbarch_debug
>= 2)
2318 fprintf_unfiltered (gdb_stdlog
, "gdbarch_convert_register_p called\n");
2319 return gdbarch
->convert_register_p (gdbarch
, regnum
, type
);
2323 set_gdbarch_convert_register_p (struct gdbarch
*gdbarch
,
2324 gdbarch_convert_register_p_ftype convert_register_p
)
2326 gdbarch
->convert_register_p
= convert_register_p
;
2330 gdbarch_register_to_value (struct gdbarch
*gdbarch
, struct frame_info
*frame
, int regnum
, struct type
*type
, gdb_byte
*buf
, int *optimizedp
, int *unavailablep
)
2332 gdb_assert (gdbarch
!= NULL
);
2333 gdb_assert (gdbarch
->register_to_value
!= NULL
);
2334 if (gdbarch_debug
>= 2)
2335 fprintf_unfiltered (gdb_stdlog
, "gdbarch_register_to_value called\n");
2336 return gdbarch
->register_to_value (frame
, regnum
, type
, buf
, optimizedp
, unavailablep
);
2340 set_gdbarch_register_to_value (struct gdbarch
*gdbarch
,
2341 gdbarch_register_to_value_ftype register_to_value
)
2343 gdbarch
->register_to_value
= register_to_value
;
2347 gdbarch_value_to_register (struct gdbarch
*gdbarch
, struct frame_info
*frame
, int regnum
, struct type
*type
, const gdb_byte
*buf
)
2349 gdb_assert (gdbarch
!= NULL
);
2350 gdb_assert (gdbarch
->value_to_register
!= NULL
);
2351 if (gdbarch_debug
>= 2)
2352 fprintf_unfiltered (gdb_stdlog
, "gdbarch_value_to_register called\n");
2353 gdbarch
->value_to_register (frame
, regnum
, type
, buf
);
2357 set_gdbarch_value_to_register (struct gdbarch
*gdbarch
,
2358 gdbarch_value_to_register_ftype value_to_register
)
2360 gdbarch
->value_to_register
= value_to_register
;
2364 gdbarch_value_from_register (struct gdbarch
*gdbarch
, struct type
*type
, int regnum
, struct frame_info
*frame
)
2366 gdb_assert (gdbarch
!= NULL
);
2367 gdb_assert (gdbarch
->value_from_register
!= NULL
);
2368 if (gdbarch_debug
>= 2)
2369 fprintf_unfiltered (gdb_stdlog
, "gdbarch_value_from_register called\n");
2370 return gdbarch
->value_from_register (type
, regnum
, frame
);
2374 set_gdbarch_value_from_register (struct gdbarch
*gdbarch
,
2375 gdbarch_value_from_register_ftype value_from_register
)
2377 gdbarch
->value_from_register
= value_from_register
;
2381 gdbarch_pointer_to_address (struct gdbarch
*gdbarch
, struct type
*type
, const gdb_byte
*buf
)
2383 gdb_assert (gdbarch
!= NULL
);
2384 gdb_assert (gdbarch
->pointer_to_address
!= NULL
);
2385 if (gdbarch_debug
>= 2)
2386 fprintf_unfiltered (gdb_stdlog
, "gdbarch_pointer_to_address called\n");
2387 return gdbarch
->pointer_to_address (gdbarch
, type
, buf
);
2391 set_gdbarch_pointer_to_address (struct gdbarch
*gdbarch
,
2392 gdbarch_pointer_to_address_ftype pointer_to_address
)
2394 gdbarch
->pointer_to_address
= pointer_to_address
;
2398 gdbarch_address_to_pointer (struct gdbarch
*gdbarch
, struct type
*type
, gdb_byte
*buf
, CORE_ADDR addr
)
2400 gdb_assert (gdbarch
!= NULL
);
2401 gdb_assert (gdbarch
->address_to_pointer
!= NULL
);
2402 if (gdbarch_debug
>= 2)
2403 fprintf_unfiltered (gdb_stdlog
, "gdbarch_address_to_pointer called\n");
2404 gdbarch
->address_to_pointer (gdbarch
, type
, buf
, addr
);
2408 set_gdbarch_address_to_pointer (struct gdbarch
*gdbarch
,
2409 gdbarch_address_to_pointer_ftype address_to_pointer
)
2411 gdbarch
->address_to_pointer
= address_to_pointer
;
2415 gdbarch_integer_to_address_p (struct gdbarch
*gdbarch
)
2417 gdb_assert (gdbarch
!= NULL
);
2418 return gdbarch
->integer_to_address
!= NULL
;
2422 gdbarch_integer_to_address (struct gdbarch
*gdbarch
, struct type
*type
, const gdb_byte
*buf
)
2424 gdb_assert (gdbarch
!= NULL
);
2425 gdb_assert (gdbarch
->integer_to_address
!= NULL
);
2426 if (gdbarch_debug
>= 2)
2427 fprintf_unfiltered (gdb_stdlog
, "gdbarch_integer_to_address called\n");
2428 return gdbarch
->integer_to_address (gdbarch
, type
, buf
);
2432 set_gdbarch_integer_to_address (struct gdbarch
*gdbarch
,
2433 gdbarch_integer_to_address_ftype integer_to_address
)
2435 gdbarch
->integer_to_address
= integer_to_address
;
2439 gdbarch_return_value_p (struct gdbarch
*gdbarch
)
2441 gdb_assert (gdbarch
!= NULL
);
2442 return gdbarch
->return_value
!= NULL
;
2445 enum return_value_convention
2446 gdbarch_return_value (struct gdbarch
*gdbarch
, struct type
*functype
, struct type
*valtype
, struct regcache
*regcache
, gdb_byte
*readbuf
, const gdb_byte
*writebuf
)
2448 gdb_assert (gdbarch
!= NULL
);
2449 gdb_assert (gdbarch
->return_value
!= NULL
);
2450 if (gdbarch_debug
>= 2)
2451 fprintf_unfiltered (gdb_stdlog
, "gdbarch_return_value called\n");
2452 return gdbarch
->return_value (gdbarch
, functype
, valtype
, regcache
, readbuf
, writebuf
);
2456 set_gdbarch_return_value (struct gdbarch
*gdbarch
,
2457 gdbarch_return_value_ftype return_value
)
2459 gdbarch
->return_value
= return_value
;
2463 gdbarch_skip_prologue (struct gdbarch
*gdbarch
, CORE_ADDR ip
)
2465 gdb_assert (gdbarch
!= NULL
);
2466 gdb_assert (gdbarch
->skip_prologue
!= NULL
);
2467 if (gdbarch_debug
>= 2)
2468 fprintf_unfiltered (gdb_stdlog
, "gdbarch_skip_prologue called\n");
2469 return gdbarch
->skip_prologue (gdbarch
, ip
);
2473 set_gdbarch_skip_prologue (struct gdbarch
*gdbarch
,
2474 gdbarch_skip_prologue_ftype skip_prologue
)
2476 gdbarch
->skip_prologue
= skip_prologue
;
2480 gdbarch_skip_main_prologue_p (struct gdbarch
*gdbarch
)
2482 gdb_assert (gdbarch
!= NULL
);
2483 return gdbarch
->skip_main_prologue
!= NULL
;
2487 gdbarch_skip_main_prologue (struct gdbarch
*gdbarch
, CORE_ADDR ip
)
2489 gdb_assert (gdbarch
!= NULL
);
2490 gdb_assert (gdbarch
->skip_main_prologue
!= NULL
);
2491 if (gdbarch_debug
>= 2)
2492 fprintf_unfiltered (gdb_stdlog
, "gdbarch_skip_main_prologue called\n");
2493 return gdbarch
->skip_main_prologue (gdbarch
, ip
);
2497 set_gdbarch_skip_main_prologue (struct gdbarch
*gdbarch
,
2498 gdbarch_skip_main_prologue_ftype skip_main_prologue
)
2500 gdbarch
->skip_main_prologue
= skip_main_prologue
;
2504 gdbarch_inner_than (struct gdbarch
*gdbarch
, CORE_ADDR lhs
, CORE_ADDR rhs
)
2506 gdb_assert (gdbarch
!= NULL
);
2507 gdb_assert (gdbarch
->inner_than
!= NULL
);
2508 if (gdbarch_debug
>= 2)
2509 fprintf_unfiltered (gdb_stdlog
, "gdbarch_inner_than called\n");
2510 return gdbarch
->inner_than (lhs
, rhs
);
2514 set_gdbarch_inner_than (struct gdbarch
*gdbarch
,
2515 gdbarch_inner_than_ftype inner_than
)
2517 gdbarch
->inner_than
= inner_than
;
2521 gdbarch_breakpoint_from_pc (struct gdbarch
*gdbarch
, CORE_ADDR
*pcptr
, int *lenptr
)
2523 gdb_assert (gdbarch
!= NULL
);
2524 gdb_assert (gdbarch
->breakpoint_from_pc
!= NULL
);
2525 if (gdbarch_debug
>= 2)
2526 fprintf_unfiltered (gdb_stdlog
, "gdbarch_breakpoint_from_pc called\n");
2527 return gdbarch
->breakpoint_from_pc (gdbarch
, pcptr
, lenptr
);
2531 set_gdbarch_breakpoint_from_pc (struct gdbarch
*gdbarch
,
2532 gdbarch_breakpoint_from_pc_ftype breakpoint_from_pc
)
2534 gdbarch
->breakpoint_from_pc
= breakpoint_from_pc
;
2538 gdbarch_remote_breakpoint_from_pc (struct gdbarch
*gdbarch
, CORE_ADDR
*pcptr
, int *kindptr
)
2540 gdb_assert (gdbarch
!= NULL
);
2541 gdb_assert (gdbarch
->remote_breakpoint_from_pc
!= NULL
);
2542 if (gdbarch_debug
>= 2)
2543 fprintf_unfiltered (gdb_stdlog
, "gdbarch_remote_breakpoint_from_pc called\n");
2544 gdbarch
->remote_breakpoint_from_pc (gdbarch
, pcptr
, kindptr
);
2548 set_gdbarch_remote_breakpoint_from_pc (struct gdbarch
*gdbarch
,
2549 gdbarch_remote_breakpoint_from_pc_ftype remote_breakpoint_from_pc
)
2551 gdbarch
->remote_breakpoint_from_pc
= remote_breakpoint_from_pc
;
2555 gdbarch_adjust_breakpoint_address_p (struct gdbarch
*gdbarch
)
2557 gdb_assert (gdbarch
!= NULL
);
2558 return gdbarch
->adjust_breakpoint_address
!= NULL
;
2562 gdbarch_adjust_breakpoint_address (struct gdbarch
*gdbarch
, CORE_ADDR bpaddr
)
2564 gdb_assert (gdbarch
!= NULL
);
2565 gdb_assert (gdbarch
->adjust_breakpoint_address
!= NULL
);
2566 if (gdbarch_debug
>= 2)
2567 fprintf_unfiltered (gdb_stdlog
, "gdbarch_adjust_breakpoint_address called\n");
2568 return gdbarch
->adjust_breakpoint_address (gdbarch
, bpaddr
);
2572 set_gdbarch_adjust_breakpoint_address (struct gdbarch
*gdbarch
,
2573 gdbarch_adjust_breakpoint_address_ftype adjust_breakpoint_address
)
2575 gdbarch
->adjust_breakpoint_address
= adjust_breakpoint_address
;
2579 gdbarch_memory_insert_breakpoint (struct gdbarch
*gdbarch
, struct bp_target_info
*bp_tgt
)
2581 gdb_assert (gdbarch
!= NULL
);
2582 gdb_assert (gdbarch
->memory_insert_breakpoint
!= NULL
);
2583 if (gdbarch_debug
>= 2)
2584 fprintf_unfiltered (gdb_stdlog
, "gdbarch_memory_insert_breakpoint called\n");
2585 return gdbarch
->memory_insert_breakpoint (gdbarch
, bp_tgt
);
2589 set_gdbarch_memory_insert_breakpoint (struct gdbarch
*gdbarch
,
2590 gdbarch_memory_insert_breakpoint_ftype memory_insert_breakpoint
)
2592 gdbarch
->memory_insert_breakpoint
= memory_insert_breakpoint
;
2596 gdbarch_memory_remove_breakpoint (struct gdbarch
*gdbarch
, struct bp_target_info
*bp_tgt
)
2598 gdb_assert (gdbarch
!= NULL
);
2599 gdb_assert (gdbarch
->memory_remove_breakpoint
!= NULL
);
2600 if (gdbarch_debug
>= 2)
2601 fprintf_unfiltered (gdb_stdlog
, "gdbarch_memory_remove_breakpoint called\n");
2602 return gdbarch
->memory_remove_breakpoint (gdbarch
, bp_tgt
);
2606 set_gdbarch_memory_remove_breakpoint (struct gdbarch
*gdbarch
,
2607 gdbarch_memory_remove_breakpoint_ftype memory_remove_breakpoint
)
2609 gdbarch
->memory_remove_breakpoint
= memory_remove_breakpoint
;
2613 gdbarch_decr_pc_after_break (struct gdbarch
*gdbarch
)
2615 gdb_assert (gdbarch
!= NULL
);
2616 /* Skip verify of decr_pc_after_break, invalid_p == 0 */
2617 if (gdbarch_debug
>= 2)
2618 fprintf_unfiltered (gdb_stdlog
, "gdbarch_decr_pc_after_break called\n");
2619 return gdbarch
->decr_pc_after_break
;
2623 set_gdbarch_decr_pc_after_break (struct gdbarch
*gdbarch
,
2624 CORE_ADDR decr_pc_after_break
)
2626 gdbarch
->decr_pc_after_break
= decr_pc_after_break
;
2630 gdbarch_deprecated_function_start_offset (struct gdbarch
*gdbarch
)
2632 gdb_assert (gdbarch
!= NULL
);
2633 /* Skip verify of deprecated_function_start_offset, invalid_p == 0 */
2634 if (gdbarch_debug
>= 2)
2635 fprintf_unfiltered (gdb_stdlog
, "gdbarch_deprecated_function_start_offset called\n");
2636 return gdbarch
->deprecated_function_start_offset
;
2640 set_gdbarch_deprecated_function_start_offset (struct gdbarch
*gdbarch
,
2641 CORE_ADDR deprecated_function_start_offset
)
2643 gdbarch
->deprecated_function_start_offset
= deprecated_function_start_offset
;
2647 gdbarch_remote_register_number (struct gdbarch
*gdbarch
, int regno
)
2649 gdb_assert (gdbarch
!= NULL
);
2650 gdb_assert (gdbarch
->remote_register_number
!= NULL
);
2651 if (gdbarch_debug
>= 2)
2652 fprintf_unfiltered (gdb_stdlog
, "gdbarch_remote_register_number called\n");
2653 return gdbarch
->remote_register_number (gdbarch
, regno
);
2657 set_gdbarch_remote_register_number (struct gdbarch
*gdbarch
,
2658 gdbarch_remote_register_number_ftype remote_register_number
)
2660 gdbarch
->remote_register_number
= remote_register_number
;
2664 gdbarch_fetch_tls_load_module_address_p (struct gdbarch
*gdbarch
)
2666 gdb_assert (gdbarch
!= NULL
);
2667 return gdbarch
->fetch_tls_load_module_address
!= NULL
;
2671 gdbarch_fetch_tls_load_module_address (struct gdbarch
*gdbarch
, struct objfile
*objfile
)
2673 gdb_assert (gdbarch
!= NULL
);
2674 gdb_assert (gdbarch
->fetch_tls_load_module_address
!= NULL
);
2675 if (gdbarch_debug
>= 2)
2676 fprintf_unfiltered (gdb_stdlog
, "gdbarch_fetch_tls_load_module_address called\n");
2677 return gdbarch
->fetch_tls_load_module_address (objfile
);
2681 set_gdbarch_fetch_tls_load_module_address (struct gdbarch
*gdbarch
,
2682 gdbarch_fetch_tls_load_module_address_ftype fetch_tls_load_module_address
)
2684 gdbarch
->fetch_tls_load_module_address
= fetch_tls_load_module_address
;
2688 gdbarch_frame_args_skip (struct gdbarch
*gdbarch
)
2690 gdb_assert (gdbarch
!= NULL
);
2691 /* Skip verify of frame_args_skip, invalid_p == 0 */
2692 if (gdbarch_debug
>= 2)
2693 fprintf_unfiltered (gdb_stdlog
, "gdbarch_frame_args_skip called\n");
2694 return gdbarch
->frame_args_skip
;
2698 set_gdbarch_frame_args_skip (struct gdbarch
*gdbarch
,
2699 CORE_ADDR frame_args_skip
)
2701 gdbarch
->frame_args_skip
= frame_args_skip
;
2705 gdbarch_unwind_pc_p (struct gdbarch
*gdbarch
)
2707 gdb_assert (gdbarch
!= NULL
);
2708 return gdbarch
->unwind_pc
!= NULL
;
2712 gdbarch_unwind_pc (struct gdbarch
*gdbarch
, struct frame_info
*next_frame
)
2714 gdb_assert (gdbarch
!= NULL
);
2715 gdb_assert (gdbarch
->unwind_pc
!= NULL
);
2716 if (gdbarch_debug
>= 2)
2717 fprintf_unfiltered (gdb_stdlog
, "gdbarch_unwind_pc called\n");
2718 return gdbarch
->unwind_pc (gdbarch
, next_frame
);
2722 set_gdbarch_unwind_pc (struct gdbarch
*gdbarch
,
2723 gdbarch_unwind_pc_ftype unwind_pc
)
2725 gdbarch
->unwind_pc
= unwind_pc
;
2729 gdbarch_unwind_sp_p (struct gdbarch
*gdbarch
)
2731 gdb_assert (gdbarch
!= NULL
);
2732 return gdbarch
->unwind_sp
!= NULL
;
2736 gdbarch_unwind_sp (struct gdbarch
*gdbarch
, struct frame_info
*next_frame
)
2738 gdb_assert (gdbarch
!= NULL
);
2739 gdb_assert (gdbarch
->unwind_sp
!= NULL
);
2740 if (gdbarch_debug
>= 2)
2741 fprintf_unfiltered (gdb_stdlog
, "gdbarch_unwind_sp called\n");
2742 return gdbarch
->unwind_sp (gdbarch
, next_frame
);
2746 set_gdbarch_unwind_sp (struct gdbarch
*gdbarch
,
2747 gdbarch_unwind_sp_ftype unwind_sp
)
2749 gdbarch
->unwind_sp
= unwind_sp
;
2753 gdbarch_frame_num_args_p (struct gdbarch
*gdbarch
)
2755 gdb_assert (gdbarch
!= NULL
);
2756 return gdbarch
->frame_num_args
!= NULL
;
2760 gdbarch_frame_num_args (struct gdbarch
*gdbarch
, struct frame_info
*frame
)
2762 gdb_assert (gdbarch
!= NULL
);
2763 gdb_assert (gdbarch
->frame_num_args
!= NULL
);
2764 if (gdbarch_debug
>= 2)
2765 fprintf_unfiltered (gdb_stdlog
, "gdbarch_frame_num_args called\n");
2766 return gdbarch
->frame_num_args (frame
);
2770 set_gdbarch_frame_num_args (struct gdbarch
*gdbarch
,
2771 gdbarch_frame_num_args_ftype frame_num_args
)
2773 gdbarch
->frame_num_args
= frame_num_args
;
2777 gdbarch_frame_align_p (struct gdbarch
*gdbarch
)
2779 gdb_assert (gdbarch
!= NULL
);
2780 return gdbarch
->frame_align
!= NULL
;
2784 gdbarch_frame_align (struct gdbarch
*gdbarch
, CORE_ADDR address
)
2786 gdb_assert (gdbarch
!= NULL
);
2787 gdb_assert (gdbarch
->frame_align
!= NULL
);
2788 if (gdbarch_debug
>= 2)
2789 fprintf_unfiltered (gdb_stdlog
, "gdbarch_frame_align called\n");
2790 return gdbarch
->frame_align (gdbarch
, address
);
2794 set_gdbarch_frame_align (struct gdbarch
*gdbarch
,
2795 gdbarch_frame_align_ftype frame_align
)
2797 gdbarch
->frame_align
= frame_align
;
2801 gdbarch_stabs_argument_has_addr (struct gdbarch
*gdbarch
, struct type
*type
)
2803 gdb_assert (gdbarch
!= NULL
);
2804 gdb_assert (gdbarch
->stabs_argument_has_addr
!= NULL
);
2805 if (gdbarch_debug
>= 2)
2806 fprintf_unfiltered (gdb_stdlog
, "gdbarch_stabs_argument_has_addr called\n");
2807 return gdbarch
->stabs_argument_has_addr (gdbarch
, type
);
2811 set_gdbarch_stabs_argument_has_addr (struct gdbarch
*gdbarch
,
2812 gdbarch_stabs_argument_has_addr_ftype stabs_argument_has_addr
)
2814 gdbarch
->stabs_argument_has_addr
= stabs_argument_has_addr
;
2818 gdbarch_frame_red_zone_size (struct gdbarch
*gdbarch
)
2820 gdb_assert (gdbarch
!= NULL
);
2821 if (gdbarch_debug
>= 2)
2822 fprintf_unfiltered (gdb_stdlog
, "gdbarch_frame_red_zone_size called\n");
2823 return gdbarch
->frame_red_zone_size
;
2827 set_gdbarch_frame_red_zone_size (struct gdbarch
*gdbarch
,
2828 int frame_red_zone_size
)
2830 gdbarch
->frame_red_zone_size
= frame_red_zone_size
;
2834 gdbarch_convert_from_func_ptr_addr (struct gdbarch
*gdbarch
, CORE_ADDR addr
, struct target_ops
*targ
)
2836 gdb_assert (gdbarch
!= NULL
);
2837 gdb_assert (gdbarch
->convert_from_func_ptr_addr
!= NULL
);
2838 if (gdbarch_debug
>= 2)
2839 fprintf_unfiltered (gdb_stdlog
, "gdbarch_convert_from_func_ptr_addr called\n");
2840 return gdbarch
->convert_from_func_ptr_addr (gdbarch
, addr
, targ
);
2844 set_gdbarch_convert_from_func_ptr_addr (struct gdbarch
*gdbarch
,
2845 gdbarch_convert_from_func_ptr_addr_ftype convert_from_func_ptr_addr
)
2847 gdbarch
->convert_from_func_ptr_addr
= convert_from_func_ptr_addr
;
2851 gdbarch_addr_bits_remove (struct gdbarch
*gdbarch
, CORE_ADDR addr
)
2853 gdb_assert (gdbarch
!= NULL
);
2854 gdb_assert (gdbarch
->addr_bits_remove
!= NULL
);
2855 if (gdbarch_debug
>= 2)
2856 fprintf_unfiltered (gdb_stdlog
, "gdbarch_addr_bits_remove called\n");
2857 return gdbarch
->addr_bits_remove (gdbarch
, addr
);
2861 set_gdbarch_addr_bits_remove (struct gdbarch
*gdbarch
,
2862 gdbarch_addr_bits_remove_ftype addr_bits_remove
)
2864 gdbarch
->addr_bits_remove
= addr_bits_remove
;
2868 gdbarch_smash_text_address (struct gdbarch
*gdbarch
, CORE_ADDR addr
)
2870 gdb_assert (gdbarch
!= NULL
);
2871 gdb_assert (gdbarch
->smash_text_address
!= NULL
);
2872 if (gdbarch_debug
>= 2)
2873 fprintf_unfiltered (gdb_stdlog
, "gdbarch_smash_text_address called\n");
2874 return gdbarch
->smash_text_address (gdbarch
, addr
);
2878 set_gdbarch_smash_text_address (struct gdbarch
*gdbarch
,
2879 gdbarch_smash_text_address_ftype smash_text_address
)
2881 gdbarch
->smash_text_address
= smash_text_address
;
2885 gdbarch_software_single_step_p (struct gdbarch
*gdbarch
)
2887 gdb_assert (gdbarch
!= NULL
);
2888 return gdbarch
->software_single_step
!= NULL
;
2892 gdbarch_software_single_step (struct gdbarch
*gdbarch
, struct frame_info
*frame
)
2894 gdb_assert (gdbarch
!= NULL
);
2895 gdb_assert (gdbarch
->software_single_step
!= NULL
);
2896 if (gdbarch_debug
>= 2)
2897 fprintf_unfiltered (gdb_stdlog
, "gdbarch_software_single_step called\n");
2898 return gdbarch
->software_single_step (frame
);
2902 set_gdbarch_software_single_step (struct gdbarch
*gdbarch
,
2903 gdbarch_software_single_step_ftype software_single_step
)
2905 gdbarch
->software_single_step
= software_single_step
;
2909 gdbarch_single_step_through_delay_p (struct gdbarch
*gdbarch
)
2911 gdb_assert (gdbarch
!= NULL
);
2912 return gdbarch
->single_step_through_delay
!= NULL
;
2916 gdbarch_single_step_through_delay (struct gdbarch
*gdbarch
, struct frame_info
*frame
)
2918 gdb_assert (gdbarch
!= NULL
);
2919 gdb_assert (gdbarch
->single_step_through_delay
!= NULL
);
2920 if (gdbarch_debug
>= 2)
2921 fprintf_unfiltered (gdb_stdlog
, "gdbarch_single_step_through_delay called\n");
2922 return gdbarch
->single_step_through_delay (gdbarch
, frame
);
2926 set_gdbarch_single_step_through_delay (struct gdbarch
*gdbarch
,
2927 gdbarch_single_step_through_delay_ftype single_step_through_delay
)
2929 gdbarch
->single_step_through_delay
= single_step_through_delay
;
2933 gdbarch_print_insn (struct gdbarch
*gdbarch
, bfd_vma vma
, struct disassemble_info
*info
)
2935 gdb_assert (gdbarch
!= NULL
);
2936 gdb_assert (gdbarch
->print_insn
!= NULL
);
2937 if (gdbarch_debug
>= 2)
2938 fprintf_unfiltered (gdb_stdlog
, "gdbarch_print_insn called\n");
2939 return gdbarch
->print_insn (vma
, info
);
2943 set_gdbarch_print_insn (struct gdbarch
*gdbarch
,
2944 gdbarch_print_insn_ftype print_insn
)
2946 gdbarch
->print_insn
= print_insn
;
2950 gdbarch_skip_trampoline_code (struct gdbarch
*gdbarch
, struct frame_info
*frame
, CORE_ADDR pc
)
2952 gdb_assert (gdbarch
!= NULL
);
2953 gdb_assert (gdbarch
->skip_trampoline_code
!= NULL
);
2954 if (gdbarch_debug
>= 2)
2955 fprintf_unfiltered (gdb_stdlog
, "gdbarch_skip_trampoline_code called\n");
2956 return gdbarch
->skip_trampoline_code (frame
, pc
);
2960 set_gdbarch_skip_trampoline_code (struct gdbarch
*gdbarch
,
2961 gdbarch_skip_trampoline_code_ftype skip_trampoline_code
)
2963 gdbarch
->skip_trampoline_code
= skip_trampoline_code
;
2967 gdbarch_skip_solib_resolver (struct gdbarch
*gdbarch
, CORE_ADDR pc
)
2969 gdb_assert (gdbarch
!= NULL
);
2970 gdb_assert (gdbarch
->skip_solib_resolver
!= NULL
);
2971 if (gdbarch_debug
>= 2)
2972 fprintf_unfiltered (gdb_stdlog
, "gdbarch_skip_solib_resolver called\n");
2973 return gdbarch
->skip_solib_resolver (gdbarch
, pc
);
2977 set_gdbarch_skip_solib_resolver (struct gdbarch
*gdbarch
,
2978 gdbarch_skip_solib_resolver_ftype skip_solib_resolver
)
2980 gdbarch
->skip_solib_resolver
= skip_solib_resolver
;
2984 gdbarch_in_solib_return_trampoline (struct gdbarch
*gdbarch
, CORE_ADDR pc
, char *name
)
2986 gdb_assert (gdbarch
!= NULL
);
2987 gdb_assert (gdbarch
->in_solib_return_trampoline
!= NULL
);
2988 if (gdbarch_debug
>= 2)
2989 fprintf_unfiltered (gdb_stdlog
, "gdbarch_in_solib_return_trampoline called\n");
2990 return gdbarch
->in_solib_return_trampoline (gdbarch
, pc
, name
);
2994 set_gdbarch_in_solib_return_trampoline (struct gdbarch
*gdbarch
,
2995 gdbarch_in_solib_return_trampoline_ftype in_solib_return_trampoline
)
2997 gdbarch
->in_solib_return_trampoline
= in_solib_return_trampoline
;
3001 gdbarch_in_function_epilogue_p (struct gdbarch
*gdbarch
, CORE_ADDR addr
)
3003 gdb_assert (gdbarch
!= NULL
);
3004 gdb_assert (gdbarch
->in_function_epilogue_p
!= NULL
);
3005 if (gdbarch_debug
>= 2)
3006 fprintf_unfiltered (gdb_stdlog
, "gdbarch_in_function_epilogue_p called\n");
3007 return gdbarch
->in_function_epilogue_p (gdbarch
, addr
);
3011 set_gdbarch_in_function_epilogue_p (struct gdbarch
*gdbarch
,
3012 gdbarch_in_function_epilogue_p_ftype in_function_epilogue_p
)
3014 gdbarch
->in_function_epilogue_p
= in_function_epilogue_p
;
3018 gdbarch_elf_make_msymbol_special (struct gdbarch
*gdbarch
, asymbol
*sym
, struct minimal_symbol
*msym
)
3020 gdb_assert (gdbarch
!= NULL
);
3021 gdb_assert (gdbarch
->elf_make_msymbol_special
!= NULL
);
3022 if (gdbarch_debug
>= 2)
3023 fprintf_unfiltered (gdb_stdlog
, "gdbarch_elf_make_msymbol_special called\n");
3024 gdbarch
->elf_make_msymbol_special (sym
, msym
);
3028 set_gdbarch_elf_make_msymbol_special (struct gdbarch
*gdbarch
,
3029 gdbarch_elf_make_msymbol_special_ftype elf_make_msymbol_special
)
3031 gdbarch
->elf_make_msymbol_special
= elf_make_msymbol_special
;
3035 gdbarch_coff_make_msymbol_special (struct gdbarch
*gdbarch
, int val
, struct minimal_symbol
*msym
)
3037 gdb_assert (gdbarch
!= NULL
);
3038 gdb_assert (gdbarch
->coff_make_msymbol_special
!= NULL
);
3039 if (gdbarch_debug
>= 2)
3040 fprintf_unfiltered (gdb_stdlog
, "gdbarch_coff_make_msymbol_special called\n");
3041 gdbarch
->coff_make_msymbol_special (val
, msym
);
3045 set_gdbarch_coff_make_msymbol_special (struct gdbarch
*gdbarch
,
3046 gdbarch_coff_make_msymbol_special_ftype coff_make_msymbol_special
)
3048 gdbarch
->coff_make_msymbol_special
= coff_make_msymbol_special
;
3052 gdbarch_cannot_step_breakpoint (struct gdbarch
*gdbarch
)
3054 gdb_assert (gdbarch
!= NULL
);
3055 /* Skip verify of cannot_step_breakpoint, invalid_p == 0 */
3056 if (gdbarch_debug
>= 2)
3057 fprintf_unfiltered (gdb_stdlog
, "gdbarch_cannot_step_breakpoint called\n");
3058 return gdbarch
->cannot_step_breakpoint
;
3062 set_gdbarch_cannot_step_breakpoint (struct gdbarch
*gdbarch
,
3063 int cannot_step_breakpoint
)
3065 gdbarch
->cannot_step_breakpoint
= cannot_step_breakpoint
;
3069 gdbarch_have_nonsteppable_watchpoint (struct gdbarch
*gdbarch
)
3071 gdb_assert (gdbarch
!= NULL
);
3072 /* Skip verify of have_nonsteppable_watchpoint, invalid_p == 0 */
3073 if (gdbarch_debug
>= 2)
3074 fprintf_unfiltered (gdb_stdlog
, "gdbarch_have_nonsteppable_watchpoint called\n");
3075 return gdbarch
->have_nonsteppable_watchpoint
;
3079 set_gdbarch_have_nonsteppable_watchpoint (struct gdbarch
*gdbarch
,
3080 int have_nonsteppable_watchpoint
)
3082 gdbarch
->have_nonsteppable_watchpoint
= have_nonsteppable_watchpoint
;
3086 gdbarch_address_class_type_flags_p (struct gdbarch
*gdbarch
)
3088 gdb_assert (gdbarch
!= NULL
);
3089 return gdbarch
->address_class_type_flags
!= NULL
;
3093 gdbarch_address_class_type_flags (struct gdbarch
*gdbarch
, int byte_size
, int dwarf2_addr_class
)
3095 gdb_assert (gdbarch
!= NULL
);
3096 gdb_assert (gdbarch
->address_class_type_flags
!= NULL
);
3097 if (gdbarch_debug
>= 2)
3098 fprintf_unfiltered (gdb_stdlog
, "gdbarch_address_class_type_flags called\n");
3099 return gdbarch
->address_class_type_flags (byte_size
, dwarf2_addr_class
);
3103 set_gdbarch_address_class_type_flags (struct gdbarch
*gdbarch
,
3104 gdbarch_address_class_type_flags_ftype address_class_type_flags
)
3106 gdbarch
->address_class_type_flags
= address_class_type_flags
;
3110 gdbarch_address_class_type_flags_to_name_p (struct gdbarch
*gdbarch
)
3112 gdb_assert (gdbarch
!= NULL
);
3113 return gdbarch
->address_class_type_flags_to_name
!= NULL
;
3117 gdbarch_address_class_type_flags_to_name (struct gdbarch
*gdbarch
, int type_flags
)
3119 gdb_assert (gdbarch
!= NULL
);
3120 gdb_assert (gdbarch
->address_class_type_flags_to_name
!= NULL
);
3121 if (gdbarch_debug
>= 2)
3122 fprintf_unfiltered (gdb_stdlog
, "gdbarch_address_class_type_flags_to_name called\n");
3123 return gdbarch
->address_class_type_flags_to_name (gdbarch
, type_flags
);
3127 set_gdbarch_address_class_type_flags_to_name (struct gdbarch
*gdbarch
,
3128 gdbarch_address_class_type_flags_to_name_ftype address_class_type_flags_to_name
)
3130 gdbarch
->address_class_type_flags_to_name
= address_class_type_flags_to_name
;
3134 gdbarch_address_class_name_to_type_flags_p (struct gdbarch
*gdbarch
)
3136 gdb_assert (gdbarch
!= NULL
);
3137 return gdbarch
->address_class_name_to_type_flags
!= NULL
;
3141 gdbarch_address_class_name_to_type_flags (struct gdbarch
*gdbarch
, const char *name
, int *type_flags_ptr
)
3143 gdb_assert (gdbarch
!= NULL
);
3144 gdb_assert (gdbarch
->address_class_name_to_type_flags
!= NULL
);
3145 if (gdbarch_debug
>= 2)
3146 fprintf_unfiltered (gdb_stdlog
, "gdbarch_address_class_name_to_type_flags called\n");
3147 return gdbarch
->address_class_name_to_type_flags (gdbarch
, name
, type_flags_ptr
);
3151 set_gdbarch_address_class_name_to_type_flags (struct gdbarch
*gdbarch
,
3152 gdbarch_address_class_name_to_type_flags_ftype address_class_name_to_type_flags
)
3154 gdbarch
->address_class_name_to_type_flags
= address_class_name_to_type_flags
;
3158 gdbarch_register_reggroup_p (struct gdbarch
*gdbarch
, int regnum
, struct reggroup
*reggroup
)
3160 gdb_assert (gdbarch
!= NULL
);
3161 gdb_assert (gdbarch
->register_reggroup_p
!= NULL
);
3162 if (gdbarch_debug
>= 2)
3163 fprintf_unfiltered (gdb_stdlog
, "gdbarch_register_reggroup_p called\n");
3164 return gdbarch
->register_reggroup_p (gdbarch
, regnum
, reggroup
);
3168 set_gdbarch_register_reggroup_p (struct gdbarch
*gdbarch
,
3169 gdbarch_register_reggroup_p_ftype register_reggroup_p
)
3171 gdbarch
->register_reggroup_p
= register_reggroup_p
;
3175 gdbarch_fetch_pointer_argument_p (struct gdbarch
*gdbarch
)
3177 gdb_assert (gdbarch
!= NULL
);
3178 return gdbarch
->fetch_pointer_argument
!= NULL
;
3182 gdbarch_fetch_pointer_argument (struct gdbarch
*gdbarch
, struct frame_info
*frame
, int argi
, struct type
*type
)
3184 gdb_assert (gdbarch
!= NULL
);
3185 gdb_assert (gdbarch
->fetch_pointer_argument
!= NULL
);
3186 if (gdbarch_debug
>= 2)
3187 fprintf_unfiltered (gdb_stdlog
, "gdbarch_fetch_pointer_argument called\n");
3188 return gdbarch
->fetch_pointer_argument (frame
, argi
, type
);
3192 set_gdbarch_fetch_pointer_argument (struct gdbarch
*gdbarch
,
3193 gdbarch_fetch_pointer_argument_ftype fetch_pointer_argument
)
3195 gdbarch
->fetch_pointer_argument
= fetch_pointer_argument
;
3199 gdbarch_regset_from_core_section_p (struct gdbarch
*gdbarch
)
3201 gdb_assert (gdbarch
!= NULL
);
3202 return gdbarch
->regset_from_core_section
!= NULL
;
3205 const struct regset
*
3206 gdbarch_regset_from_core_section (struct gdbarch
*gdbarch
, const char *sect_name
, size_t sect_size
)
3208 gdb_assert (gdbarch
!= NULL
);
3209 gdb_assert (gdbarch
->regset_from_core_section
!= NULL
);
3210 if (gdbarch_debug
>= 2)
3211 fprintf_unfiltered (gdb_stdlog
, "gdbarch_regset_from_core_section called\n");
3212 return gdbarch
->regset_from_core_section (gdbarch
, sect_name
, sect_size
);
3216 set_gdbarch_regset_from_core_section (struct gdbarch
*gdbarch
,
3217 gdbarch_regset_from_core_section_ftype regset_from_core_section
)
3219 gdbarch
->regset_from_core_section
= regset_from_core_section
;
3222 struct core_regset_section
*
3223 gdbarch_core_regset_sections (struct gdbarch
*gdbarch
)
3225 gdb_assert (gdbarch
!= NULL
);
3226 if (gdbarch_debug
>= 2)
3227 fprintf_unfiltered (gdb_stdlog
, "gdbarch_core_regset_sections called\n");
3228 return gdbarch
->core_regset_sections
;
3232 set_gdbarch_core_regset_sections (struct gdbarch
*gdbarch
,
3233 struct core_regset_section
* core_regset_sections
)
3235 gdbarch
->core_regset_sections
= core_regset_sections
;
3239 gdbarch_core_xfer_shared_libraries_p (struct gdbarch
*gdbarch
)
3241 gdb_assert (gdbarch
!= NULL
);
3242 return gdbarch
->core_xfer_shared_libraries
!= NULL
;
3246 gdbarch_core_xfer_shared_libraries (struct gdbarch
*gdbarch
, gdb_byte
*readbuf
, ULONGEST offset
, LONGEST len
)
3248 gdb_assert (gdbarch
!= NULL
);
3249 gdb_assert (gdbarch
->core_xfer_shared_libraries
!= NULL
);
3250 if (gdbarch_debug
>= 2)
3251 fprintf_unfiltered (gdb_stdlog
, "gdbarch_core_xfer_shared_libraries called\n");
3252 return gdbarch
->core_xfer_shared_libraries (gdbarch
, readbuf
, offset
, len
);
3256 set_gdbarch_core_xfer_shared_libraries (struct gdbarch
*gdbarch
,
3257 gdbarch_core_xfer_shared_libraries_ftype core_xfer_shared_libraries
)
3259 gdbarch
->core_xfer_shared_libraries
= core_xfer_shared_libraries
;
3263 gdbarch_core_pid_to_str_p (struct gdbarch
*gdbarch
)
3265 gdb_assert (gdbarch
!= NULL
);
3266 return gdbarch
->core_pid_to_str
!= NULL
;
3270 gdbarch_core_pid_to_str (struct gdbarch
*gdbarch
, ptid_t ptid
)
3272 gdb_assert (gdbarch
!= NULL
);
3273 gdb_assert (gdbarch
->core_pid_to_str
!= NULL
);
3274 if (gdbarch_debug
>= 2)
3275 fprintf_unfiltered (gdb_stdlog
, "gdbarch_core_pid_to_str called\n");
3276 return gdbarch
->core_pid_to_str (gdbarch
, ptid
);
3280 set_gdbarch_core_pid_to_str (struct gdbarch
*gdbarch
,
3281 gdbarch_core_pid_to_str_ftype core_pid_to_str
)
3283 gdbarch
->core_pid_to_str
= core_pid_to_str
;
3287 gdbarch_gcore_bfd_target_p (struct gdbarch
*gdbarch
)
3289 gdb_assert (gdbarch
!= NULL
);
3290 return gdbarch
->gcore_bfd_target
!= 0;
3294 gdbarch_gcore_bfd_target (struct gdbarch
*gdbarch
)
3296 gdb_assert (gdbarch
!= NULL
);
3297 /* Check variable changed from pre-default. */
3298 gdb_assert (gdbarch
->gcore_bfd_target
!= 0);
3299 if (gdbarch_debug
>= 2)
3300 fprintf_unfiltered (gdb_stdlog
, "gdbarch_gcore_bfd_target called\n");
3301 return gdbarch
->gcore_bfd_target
;
3305 set_gdbarch_gcore_bfd_target (struct gdbarch
*gdbarch
,
3306 const char * gcore_bfd_target
)
3308 gdbarch
->gcore_bfd_target
= gcore_bfd_target
;
3312 gdbarch_vtable_function_descriptors (struct gdbarch
*gdbarch
)
3314 gdb_assert (gdbarch
!= NULL
);
3315 /* Skip verify of vtable_function_descriptors, invalid_p == 0 */
3316 if (gdbarch_debug
>= 2)
3317 fprintf_unfiltered (gdb_stdlog
, "gdbarch_vtable_function_descriptors called\n");
3318 return gdbarch
->vtable_function_descriptors
;
3322 set_gdbarch_vtable_function_descriptors (struct gdbarch
*gdbarch
,
3323 int vtable_function_descriptors
)
3325 gdbarch
->vtable_function_descriptors
= vtable_function_descriptors
;
3329 gdbarch_vbit_in_delta (struct gdbarch
*gdbarch
)
3331 gdb_assert (gdbarch
!= NULL
);
3332 /* Skip verify of vbit_in_delta, invalid_p == 0 */
3333 if (gdbarch_debug
>= 2)
3334 fprintf_unfiltered (gdb_stdlog
, "gdbarch_vbit_in_delta called\n");
3335 return gdbarch
->vbit_in_delta
;
3339 set_gdbarch_vbit_in_delta (struct gdbarch
*gdbarch
,
3342 gdbarch
->vbit_in_delta
= vbit_in_delta
;
3346 gdbarch_skip_permanent_breakpoint_p (struct gdbarch
*gdbarch
)
3348 gdb_assert (gdbarch
!= NULL
);
3349 return gdbarch
->skip_permanent_breakpoint
!= NULL
;
3353 gdbarch_skip_permanent_breakpoint (struct gdbarch
*gdbarch
, struct regcache
*regcache
)
3355 gdb_assert (gdbarch
!= NULL
);
3356 gdb_assert (gdbarch
->skip_permanent_breakpoint
!= NULL
);
3357 if (gdbarch_debug
>= 2)
3358 fprintf_unfiltered (gdb_stdlog
, "gdbarch_skip_permanent_breakpoint called\n");
3359 gdbarch
->skip_permanent_breakpoint (regcache
);
3363 set_gdbarch_skip_permanent_breakpoint (struct gdbarch
*gdbarch
,
3364 gdbarch_skip_permanent_breakpoint_ftype skip_permanent_breakpoint
)
3366 gdbarch
->skip_permanent_breakpoint
= skip_permanent_breakpoint
;
3370 gdbarch_max_insn_length_p (struct gdbarch
*gdbarch
)
3372 gdb_assert (gdbarch
!= NULL
);
3373 return gdbarch
->max_insn_length
!= 0;
3377 gdbarch_max_insn_length (struct gdbarch
*gdbarch
)
3379 gdb_assert (gdbarch
!= NULL
);
3380 /* Check variable changed from pre-default. */
3381 gdb_assert (gdbarch
->max_insn_length
!= 0);
3382 if (gdbarch_debug
>= 2)
3383 fprintf_unfiltered (gdb_stdlog
, "gdbarch_max_insn_length called\n");
3384 return gdbarch
->max_insn_length
;
3388 set_gdbarch_max_insn_length (struct gdbarch
*gdbarch
,
3389 ULONGEST max_insn_length
)
3391 gdbarch
->max_insn_length
= max_insn_length
;
3395 gdbarch_displaced_step_copy_insn_p (struct gdbarch
*gdbarch
)
3397 gdb_assert (gdbarch
!= NULL
);
3398 return gdbarch
->displaced_step_copy_insn
!= NULL
;
3401 struct displaced_step_closure
*
3402 gdbarch_displaced_step_copy_insn (struct gdbarch
*gdbarch
, CORE_ADDR from
, CORE_ADDR to
, struct regcache
*regs
)
3404 gdb_assert (gdbarch
!= NULL
);
3405 gdb_assert (gdbarch
->displaced_step_copy_insn
!= NULL
);
3406 if (gdbarch_debug
>= 2)
3407 fprintf_unfiltered (gdb_stdlog
, "gdbarch_displaced_step_copy_insn called\n");
3408 return gdbarch
->displaced_step_copy_insn (gdbarch
, from
, to
, regs
);
3412 set_gdbarch_displaced_step_copy_insn (struct gdbarch
*gdbarch
,
3413 gdbarch_displaced_step_copy_insn_ftype displaced_step_copy_insn
)
3415 gdbarch
->displaced_step_copy_insn
= displaced_step_copy_insn
;
3419 gdbarch_displaced_step_hw_singlestep (struct gdbarch
*gdbarch
, struct displaced_step_closure
*closure
)
3421 gdb_assert (gdbarch
!= NULL
);
3422 gdb_assert (gdbarch
->displaced_step_hw_singlestep
!= NULL
);
3423 if (gdbarch_debug
>= 2)
3424 fprintf_unfiltered (gdb_stdlog
, "gdbarch_displaced_step_hw_singlestep called\n");
3425 return gdbarch
->displaced_step_hw_singlestep (gdbarch
, closure
);
3429 set_gdbarch_displaced_step_hw_singlestep (struct gdbarch
*gdbarch
,
3430 gdbarch_displaced_step_hw_singlestep_ftype displaced_step_hw_singlestep
)
3432 gdbarch
->displaced_step_hw_singlestep
= displaced_step_hw_singlestep
;
3436 gdbarch_displaced_step_fixup_p (struct gdbarch
*gdbarch
)
3438 gdb_assert (gdbarch
!= NULL
);
3439 return gdbarch
->displaced_step_fixup
!= NULL
;
3443 gdbarch_displaced_step_fixup (struct gdbarch
*gdbarch
, struct displaced_step_closure
*closure
, CORE_ADDR from
, CORE_ADDR to
, struct regcache
*regs
)
3445 gdb_assert (gdbarch
!= NULL
);
3446 gdb_assert (gdbarch
->displaced_step_fixup
!= NULL
);
3447 /* Do not check predicate: gdbarch->displaced_step_fixup != NULL, allow call. */
3448 if (gdbarch_debug
>= 2)
3449 fprintf_unfiltered (gdb_stdlog
, "gdbarch_displaced_step_fixup called\n");
3450 gdbarch
->displaced_step_fixup (gdbarch
, closure
, from
, to
, regs
);
3454 set_gdbarch_displaced_step_fixup (struct gdbarch
*gdbarch
,
3455 gdbarch_displaced_step_fixup_ftype displaced_step_fixup
)
3457 gdbarch
->displaced_step_fixup
= displaced_step_fixup
;
3461 gdbarch_displaced_step_free_closure (struct gdbarch
*gdbarch
, struct displaced_step_closure
*closure
)
3463 gdb_assert (gdbarch
!= NULL
);
3464 gdb_assert (gdbarch
->displaced_step_free_closure
!= NULL
);
3465 if (gdbarch_debug
>= 2)
3466 fprintf_unfiltered (gdb_stdlog
, "gdbarch_displaced_step_free_closure called\n");
3467 gdbarch
->displaced_step_free_closure (gdbarch
, closure
);
3471 set_gdbarch_displaced_step_free_closure (struct gdbarch
*gdbarch
,
3472 gdbarch_displaced_step_free_closure_ftype displaced_step_free_closure
)
3474 gdbarch
->displaced_step_free_closure
= displaced_step_free_closure
;
3478 gdbarch_displaced_step_location (struct gdbarch
*gdbarch
)
3480 gdb_assert (gdbarch
!= NULL
);
3481 gdb_assert (gdbarch
->displaced_step_location
!= NULL
);
3482 if (gdbarch_debug
>= 2)
3483 fprintf_unfiltered (gdb_stdlog
, "gdbarch_displaced_step_location called\n");
3484 return gdbarch
->displaced_step_location (gdbarch
);
3488 set_gdbarch_displaced_step_location (struct gdbarch
*gdbarch
,
3489 gdbarch_displaced_step_location_ftype displaced_step_location
)
3491 gdbarch
->displaced_step_location
= displaced_step_location
;
3495 gdbarch_relocate_instruction_p (struct gdbarch
*gdbarch
)
3497 gdb_assert (gdbarch
!= NULL
);
3498 return gdbarch
->relocate_instruction
!= NULL
;
3502 gdbarch_relocate_instruction (struct gdbarch
*gdbarch
, CORE_ADDR
*to
, CORE_ADDR from
)
3504 gdb_assert (gdbarch
!= NULL
);
3505 gdb_assert (gdbarch
->relocate_instruction
!= NULL
);
3506 /* Do not check predicate: gdbarch->relocate_instruction != NULL, allow call. */
3507 if (gdbarch_debug
>= 2)
3508 fprintf_unfiltered (gdb_stdlog
, "gdbarch_relocate_instruction called\n");
3509 gdbarch
->relocate_instruction (gdbarch
, to
, from
);
3513 set_gdbarch_relocate_instruction (struct gdbarch
*gdbarch
,
3514 gdbarch_relocate_instruction_ftype relocate_instruction
)
3516 gdbarch
->relocate_instruction
= relocate_instruction
;
3520 gdbarch_overlay_update_p (struct gdbarch
*gdbarch
)
3522 gdb_assert (gdbarch
!= NULL
);
3523 return gdbarch
->overlay_update
!= NULL
;
3527 gdbarch_overlay_update (struct gdbarch
*gdbarch
, struct obj_section
*osect
)
3529 gdb_assert (gdbarch
!= NULL
);
3530 gdb_assert (gdbarch
->overlay_update
!= NULL
);
3531 if (gdbarch_debug
>= 2)
3532 fprintf_unfiltered (gdb_stdlog
, "gdbarch_overlay_update called\n");
3533 gdbarch
->overlay_update (osect
);
3537 set_gdbarch_overlay_update (struct gdbarch
*gdbarch
,
3538 gdbarch_overlay_update_ftype overlay_update
)
3540 gdbarch
->overlay_update
= overlay_update
;
3544 gdbarch_core_read_description_p (struct gdbarch
*gdbarch
)
3546 gdb_assert (gdbarch
!= NULL
);
3547 return gdbarch
->core_read_description
!= NULL
;
3550 const struct target_desc
*
3551 gdbarch_core_read_description (struct gdbarch
*gdbarch
, struct target_ops
*target
, bfd
*abfd
)
3553 gdb_assert (gdbarch
!= NULL
);
3554 gdb_assert (gdbarch
->core_read_description
!= NULL
);
3555 if (gdbarch_debug
>= 2)
3556 fprintf_unfiltered (gdb_stdlog
, "gdbarch_core_read_description called\n");
3557 return gdbarch
->core_read_description (gdbarch
, target
, abfd
);
3561 set_gdbarch_core_read_description (struct gdbarch
*gdbarch
,
3562 gdbarch_core_read_description_ftype core_read_description
)
3564 gdbarch
->core_read_description
= core_read_description
;
3568 gdbarch_static_transform_name_p (struct gdbarch
*gdbarch
)
3570 gdb_assert (gdbarch
!= NULL
);
3571 return gdbarch
->static_transform_name
!= NULL
;
3575 gdbarch_static_transform_name (struct gdbarch
*gdbarch
, char *name
)
3577 gdb_assert (gdbarch
!= NULL
);
3578 gdb_assert (gdbarch
->static_transform_name
!= NULL
);
3579 if (gdbarch_debug
>= 2)
3580 fprintf_unfiltered (gdb_stdlog
, "gdbarch_static_transform_name called\n");
3581 return gdbarch
->static_transform_name (name
);
3585 set_gdbarch_static_transform_name (struct gdbarch
*gdbarch
,
3586 gdbarch_static_transform_name_ftype static_transform_name
)
3588 gdbarch
->static_transform_name
= static_transform_name
;
3592 gdbarch_sofun_address_maybe_missing (struct gdbarch
*gdbarch
)
3594 gdb_assert (gdbarch
!= NULL
);
3595 /* Skip verify of sofun_address_maybe_missing, invalid_p == 0 */
3596 if (gdbarch_debug
>= 2)
3597 fprintf_unfiltered (gdb_stdlog
, "gdbarch_sofun_address_maybe_missing called\n");
3598 return gdbarch
->sofun_address_maybe_missing
;
3602 set_gdbarch_sofun_address_maybe_missing (struct gdbarch
*gdbarch
,
3603 int sofun_address_maybe_missing
)
3605 gdbarch
->sofun_address_maybe_missing
= sofun_address_maybe_missing
;
3609 gdbarch_process_record_p (struct gdbarch
*gdbarch
)
3611 gdb_assert (gdbarch
!= NULL
);
3612 return gdbarch
->process_record
!= NULL
;
3616 gdbarch_process_record (struct gdbarch
*gdbarch
, struct regcache
*regcache
, CORE_ADDR addr
)
3618 gdb_assert (gdbarch
!= NULL
);
3619 gdb_assert (gdbarch
->process_record
!= NULL
);
3620 if (gdbarch_debug
>= 2)
3621 fprintf_unfiltered (gdb_stdlog
, "gdbarch_process_record called\n");
3622 return gdbarch
->process_record (gdbarch
, regcache
, addr
);
3626 set_gdbarch_process_record (struct gdbarch
*gdbarch
,
3627 gdbarch_process_record_ftype process_record
)
3629 gdbarch
->process_record
= process_record
;
3633 gdbarch_process_record_signal_p (struct gdbarch
*gdbarch
)
3635 gdb_assert (gdbarch
!= NULL
);
3636 return gdbarch
->process_record_signal
!= NULL
;
3640 gdbarch_process_record_signal (struct gdbarch
*gdbarch
, struct regcache
*regcache
, enum target_signal signal
)
3642 gdb_assert (gdbarch
!= NULL
);
3643 gdb_assert (gdbarch
->process_record_signal
!= NULL
);
3644 if (gdbarch_debug
>= 2)
3645 fprintf_unfiltered (gdb_stdlog
, "gdbarch_process_record_signal called\n");
3646 return gdbarch
->process_record_signal (gdbarch
, regcache
, signal
);
3650 set_gdbarch_process_record_signal (struct gdbarch
*gdbarch
,
3651 gdbarch_process_record_signal_ftype process_record_signal
)
3653 gdbarch
->process_record_signal
= process_record_signal
;
3657 gdbarch_target_signal_from_host (struct gdbarch
*gdbarch
, int signo
)
3659 gdb_assert (gdbarch
!= NULL
);
3660 gdb_assert (gdbarch
->target_signal_from_host
!= NULL
);
3661 if (gdbarch_debug
>= 2)
3662 fprintf_unfiltered (gdb_stdlog
, "gdbarch_target_signal_from_host called\n");
3663 return gdbarch
->target_signal_from_host (gdbarch
, signo
);
3667 set_gdbarch_target_signal_from_host (struct gdbarch
*gdbarch
,
3668 gdbarch_target_signal_from_host_ftype target_signal_from_host
)
3670 gdbarch
->target_signal_from_host
= target_signal_from_host
;
3674 gdbarch_target_signal_to_host (struct gdbarch
*gdbarch
, enum target_signal ts
)
3676 gdb_assert (gdbarch
!= NULL
);
3677 gdb_assert (gdbarch
->target_signal_to_host
!= NULL
);
3678 if (gdbarch_debug
>= 2)
3679 fprintf_unfiltered (gdb_stdlog
, "gdbarch_target_signal_to_host called\n");
3680 return gdbarch
->target_signal_to_host (gdbarch
, ts
);
3684 set_gdbarch_target_signal_to_host (struct gdbarch
*gdbarch
,
3685 gdbarch_target_signal_to_host_ftype target_signal_to_host
)
3687 gdbarch
->target_signal_to_host
= target_signal_to_host
;
3691 gdbarch_get_siginfo_type_p (struct gdbarch
*gdbarch
)
3693 gdb_assert (gdbarch
!= NULL
);
3694 return gdbarch
->get_siginfo_type
!= NULL
;
3698 gdbarch_get_siginfo_type (struct gdbarch
*gdbarch
)
3700 gdb_assert (gdbarch
!= NULL
);
3701 gdb_assert (gdbarch
->get_siginfo_type
!= NULL
);
3702 if (gdbarch_debug
>= 2)
3703 fprintf_unfiltered (gdb_stdlog
, "gdbarch_get_siginfo_type called\n");
3704 return gdbarch
->get_siginfo_type (gdbarch
);
3708 set_gdbarch_get_siginfo_type (struct gdbarch
*gdbarch
,
3709 gdbarch_get_siginfo_type_ftype get_siginfo_type
)
3711 gdbarch
->get_siginfo_type
= get_siginfo_type
;
3715 gdbarch_record_special_symbol_p (struct gdbarch
*gdbarch
)
3717 gdb_assert (gdbarch
!= NULL
);
3718 return gdbarch
->record_special_symbol
!= NULL
;
3722 gdbarch_record_special_symbol (struct gdbarch
*gdbarch
, struct objfile
*objfile
, asymbol
*sym
)
3724 gdb_assert (gdbarch
!= NULL
);
3725 gdb_assert (gdbarch
->record_special_symbol
!= NULL
);
3726 if (gdbarch_debug
>= 2)
3727 fprintf_unfiltered (gdb_stdlog
, "gdbarch_record_special_symbol called\n");
3728 gdbarch
->record_special_symbol (gdbarch
, objfile
, sym
);
3732 set_gdbarch_record_special_symbol (struct gdbarch
*gdbarch
,
3733 gdbarch_record_special_symbol_ftype record_special_symbol
)
3735 gdbarch
->record_special_symbol
= record_special_symbol
;
3739 gdbarch_get_syscall_number_p (struct gdbarch
*gdbarch
)
3741 gdb_assert (gdbarch
!= NULL
);
3742 return gdbarch
->get_syscall_number
!= NULL
;
3746 gdbarch_get_syscall_number (struct gdbarch
*gdbarch
, ptid_t ptid
)
3748 gdb_assert (gdbarch
!= NULL
);
3749 gdb_assert (gdbarch
->get_syscall_number
!= NULL
);
3750 if (gdbarch_debug
>= 2)
3751 fprintf_unfiltered (gdb_stdlog
, "gdbarch_get_syscall_number called\n");
3752 return gdbarch
->get_syscall_number (gdbarch
, ptid
);
3756 set_gdbarch_get_syscall_number (struct gdbarch
*gdbarch
,
3757 gdbarch_get_syscall_number_ftype get_syscall_number
)
3759 gdbarch
->get_syscall_number
= get_syscall_number
;
3763 gdbarch_has_global_solist (struct gdbarch
*gdbarch
)
3765 gdb_assert (gdbarch
!= NULL
);
3766 /* Skip verify of has_global_solist, invalid_p == 0 */
3767 if (gdbarch_debug
>= 2)
3768 fprintf_unfiltered (gdb_stdlog
, "gdbarch_has_global_solist called\n");
3769 return gdbarch
->has_global_solist
;
3773 set_gdbarch_has_global_solist (struct gdbarch
*gdbarch
,
3774 int has_global_solist
)
3776 gdbarch
->has_global_solist
= has_global_solist
;
3780 gdbarch_has_global_breakpoints (struct gdbarch
*gdbarch
)
3782 gdb_assert (gdbarch
!= NULL
);
3783 /* Skip verify of has_global_breakpoints, invalid_p == 0 */
3784 if (gdbarch_debug
>= 2)
3785 fprintf_unfiltered (gdb_stdlog
, "gdbarch_has_global_breakpoints called\n");
3786 return gdbarch
->has_global_breakpoints
;
3790 set_gdbarch_has_global_breakpoints (struct gdbarch
*gdbarch
,
3791 int has_global_breakpoints
)
3793 gdbarch
->has_global_breakpoints
= has_global_breakpoints
;
3797 gdbarch_has_shared_address_space (struct gdbarch
*gdbarch
)
3799 gdb_assert (gdbarch
!= NULL
);
3800 gdb_assert (gdbarch
->has_shared_address_space
!= NULL
);
3801 if (gdbarch_debug
>= 2)
3802 fprintf_unfiltered (gdb_stdlog
, "gdbarch_has_shared_address_space called\n");
3803 return gdbarch
->has_shared_address_space (gdbarch
);
3807 set_gdbarch_has_shared_address_space (struct gdbarch
*gdbarch
,
3808 gdbarch_has_shared_address_space_ftype has_shared_address_space
)
3810 gdbarch
->has_shared_address_space
= has_shared_address_space
;
3814 gdbarch_fast_tracepoint_valid_at (struct gdbarch
*gdbarch
, CORE_ADDR addr
, int *isize
, char **msg
)
3816 gdb_assert (gdbarch
!= NULL
);
3817 gdb_assert (gdbarch
->fast_tracepoint_valid_at
!= NULL
);
3818 if (gdbarch_debug
>= 2)
3819 fprintf_unfiltered (gdb_stdlog
, "gdbarch_fast_tracepoint_valid_at called\n");
3820 return gdbarch
->fast_tracepoint_valid_at (gdbarch
, addr
, isize
, msg
);
3824 set_gdbarch_fast_tracepoint_valid_at (struct gdbarch
*gdbarch
,
3825 gdbarch_fast_tracepoint_valid_at_ftype fast_tracepoint_valid_at
)
3827 gdbarch
->fast_tracepoint_valid_at
= fast_tracepoint_valid_at
;
3831 gdbarch_auto_charset (struct gdbarch
*gdbarch
)
3833 gdb_assert (gdbarch
!= NULL
);
3834 gdb_assert (gdbarch
->auto_charset
!= NULL
);
3835 if (gdbarch_debug
>= 2)
3836 fprintf_unfiltered (gdb_stdlog
, "gdbarch_auto_charset called\n");
3837 return gdbarch
->auto_charset ();
3841 set_gdbarch_auto_charset (struct gdbarch
*gdbarch
,
3842 gdbarch_auto_charset_ftype auto_charset
)
3844 gdbarch
->auto_charset
= auto_charset
;
3848 gdbarch_auto_wide_charset (struct gdbarch
*gdbarch
)
3850 gdb_assert (gdbarch
!= NULL
);
3851 gdb_assert (gdbarch
->auto_wide_charset
!= NULL
);
3852 if (gdbarch_debug
>= 2)
3853 fprintf_unfiltered (gdb_stdlog
, "gdbarch_auto_wide_charset called\n");
3854 return gdbarch
->auto_wide_charset ();
3858 set_gdbarch_auto_wide_charset (struct gdbarch
*gdbarch
,
3859 gdbarch_auto_wide_charset_ftype auto_wide_charset
)
3861 gdbarch
->auto_wide_charset
= auto_wide_charset
;
3865 gdbarch_solib_symbols_extension (struct gdbarch
*gdbarch
)
3867 gdb_assert (gdbarch
!= NULL
);
3868 if (gdbarch_debug
>= 2)
3869 fprintf_unfiltered (gdb_stdlog
, "gdbarch_solib_symbols_extension called\n");
3870 return gdbarch
->solib_symbols_extension
;
3874 set_gdbarch_solib_symbols_extension (struct gdbarch
*gdbarch
,
3875 const char * solib_symbols_extension
)
3877 gdbarch
->solib_symbols_extension
= solib_symbols_extension
;
3881 gdbarch_has_dos_based_file_system (struct gdbarch
*gdbarch
)
3883 gdb_assert (gdbarch
!= NULL
);
3884 /* Skip verify of has_dos_based_file_system, invalid_p == 0 */
3885 if (gdbarch_debug
>= 2)
3886 fprintf_unfiltered (gdb_stdlog
, "gdbarch_has_dos_based_file_system called\n");
3887 return gdbarch
->has_dos_based_file_system
;
3891 set_gdbarch_has_dos_based_file_system (struct gdbarch
*gdbarch
,
3892 int has_dos_based_file_system
)
3894 gdbarch
->has_dos_based_file_system
= has_dos_based_file_system
;
3898 gdbarch_gen_return_address (struct gdbarch
*gdbarch
, struct agent_expr
*ax
, struct axs_value
*value
, CORE_ADDR scope
)
3900 gdb_assert (gdbarch
!= NULL
);
3901 gdb_assert (gdbarch
->gen_return_address
!= NULL
);
3902 if (gdbarch_debug
>= 2)
3903 fprintf_unfiltered (gdb_stdlog
, "gdbarch_gen_return_address called\n");
3904 gdbarch
->gen_return_address (gdbarch
, ax
, value
, scope
);
3908 set_gdbarch_gen_return_address (struct gdbarch
*gdbarch
,
3909 gdbarch_gen_return_address_ftype gen_return_address
)
3911 gdbarch
->gen_return_address
= gen_return_address
;
3915 /* Keep a registry of per-architecture data-pointers required by GDB
3922 gdbarch_data_pre_init_ftype
*pre_init
;
3923 gdbarch_data_post_init_ftype
*post_init
;
3926 struct gdbarch_data_registration
3928 struct gdbarch_data
*data
;
3929 struct gdbarch_data_registration
*next
;
3932 struct gdbarch_data_registry
3935 struct gdbarch_data_registration
*registrations
;
3938 struct gdbarch_data_registry gdbarch_data_registry
=
3943 static struct gdbarch_data
*
3944 gdbarch_data_register (gdbarch_data_pre_init_ftype
*pre_init
,
3945 gdbarch_data_post_init_ftype
*post_init
)
3947 struct gdbarch_data_registration
**curr
;
3949 /* Append the new registration. */
3950 for (curr
= &gdbarch_data_registry
.registrations
;
3952 curr
= &(*curr
)->next
);
3953 (*curr
) = XMALLOC (struct gdbarch_data_registration
);
3954 (*curr
)->next
= NULL
;
3955 (*curr
)->data
= XMALLOC (struct gdbarch_data
);
3956 (*curr
)->data
->index
= gdbarch_data_registry
.nr
++;
3957 (*curr
)->data
->pre_init
= pre_init
;
3958 (*curr
)->data
->post_init
= post_init
;
3959 (*curr
)->data
->init_p
= 1;
3960 return (*curr
)->data
;
3963 struct gdbarch_data
*
3964 gdbarch_data_register_pre_init (gdbarch_data_pre_init_ftype
*pre_init
)
3966 return gdbarch_data_register (pre_init
, NULL
);
3969 struct gdbarch_data
*
3970 gdbarch_data_register_post_init (gdbarch_data_post_init_ftype
*post_init
)
3972 return gdbarch_data_register (NULL
, post_init
);
3975 /* Create/delete the gdbarch data vector. */
3978 alloc_gdbarch_data (struct gdbarch
*gdbarch
)
3980 gdb_assert (gdbarch
->data
== NULL
);
3981 gdbarch
->nr_data
= gdbarch_data_registry
.nr
;
3982 gdbarch
->data
= GDBARCH_OBSTACK_CALLOC (gdbarch
, gdbarch
->nr_data
, void *);
3985 /* Initialize the current value of the specified per-architecture
3989 deprecated_set_gdbarch_data (struct gdbarch
*gdbarch
,
3990 struct gdbarch_data
*data
,
3993 gdb_assert (data
->index
< gdbarch
->nr_data
);
3994 gdb_assert (gdbarch
->data
[data
->index
] == NULL
);
3995 gdb_assert (data
->pre_init
== NULL
);
3996 gdbarch
->data
[data
->index
] = pointer
;
3999 /* Return the current value of the specified per-architecture
4003 gdbarch_data (struct gdbarch
*gdbarch
, struct gdbarch_data
*data
)
4005 gdb_assert (data
->index
< gdbarch
->nr_data
);
4006 if (gdbarch
->data
[data
->index
] == NULL
)
4008 /* The data-pointer isn't initialized, call init() to get a
4010 if (data
->pre_init
!= NULL
)
4011 /* Mid architecture creation: pass just the obstack, and not
4012 the entire architecture, as that way it isn't possible for
4013 pre-init code to refer to undefined architecture
4015 gdbarch
->data
[data
->index
] = data
->pre_init (gdbarch
->obstack
);
4016 else if (gdbarch
->initialized_p
4017 && data
->post_init
!= NULL
)
4018 /* Post architecture creation: pass the entire architecture
4019 (as all fields are valid), but be careful to also detect
4020 recursive references. */
4022 gdb_assert (data
->init_p
);
4024 gdbarch
->data
[data
->index
] = data
->post_init (gdbarch
);
4028 /* The architecture initialization hasn't completed - punt -
4029 hope that the caller knows what they are doing. Once
4030 deprecated_set_gdbarch_data has been initialized, this can be
4031 changed to an internal error. */
4033 gdb_assert (gdbarch
->data
[data
->index
] != NULL
);
4035 return gdbarch
->data
[data
->index
];
4039 /* Keep a registry of the architectures known by GDB. */
4041 struct gdbarch_registration
4043 enum bfd_architecture bfd_architecture
;
4044 gdbarch_init_ftype
*init
;
4045 gdbarch_dump_tdep_ftype
*dump_tdep
;
4046 struct gdbarch_list
*arches
;
4047 struct gdbarch_registration
*next
;
4050 static struct gdbarch_registration
*gdbarch_registry
= NULL
;
4053 append_name (const char ***buf
, int *nr
, const char *name
)
4055 *buf
= xrealloc (*buf
, sizeof (char**) * (*nr
+ 1));
4061 gdbarch_printable_names (void)
4063 /* Accumulate a list of names based on the registed list of
4066 const char **arches
= NULL
;
4067 struct gdbarch_registration
*rego
;
4069 for (rego
= gdbarch_registry
;
4073 const struct bfd_arch_info
*ap
;
4074 ap
= bfd_lookup_arch (rego
->bfd_architecture
, 0);
4076 internal_error (__FILE__
, __LINE__
,
4077 _("gdbarch_architecture_names: multi-arch unknown"));
4080 append_name (&arches
, &nr_arches
, ap
->printable_name
);
4085 append_name (&arches
, &nr_arches
, NULL
);
4091 gdbarch_register (enum bfd_architecture bfd_architecture
,
4092 gdbarch_init_ftype
*init
,
4093 gdbarch_dump_tdep_ftype
*dump_tdep
)
4095 struct gdbarch_registration
**curr
;
4096 const struct bfd_arch_info
*bfd_arch_info
;
4098 /* Check that BFD recognizes this architecture */
4099 bfd_arch_info
= bfd_lookup_arch (bfd_architecture
, 0);
4100 if (bfd_arch_info
== NULL
)
4102 internal_error (__FILE__
, __LINE__
,
4103 _("gdbarch: Attempt to register "
4104 "unknown architecture (%d)"),
4107 /* Check that we haven't seen this architecture before. */
4108 for (curr
= &gdbarch_registry
;
4110 curr
= &(*curr
)->next
)
4112 if (bfd_architecture
== (*curr
)->bfd_architecture
)
4113 internal_error (__FILE__
, __LINE__
,
4114 _("gdbarch: Duplicate registration "
4115 "of architecture (%s)"),
4116 bfd_arch_info
->printable_name
);
4120 fprintf_unfiltered (gdb_stdlog
, "register_gdbarch_init (%s, %s)\n",
4121 bfd_arch_info
->printable_name
,
4122 host_address_to_string (init
));
4124 (*curr
) = XMALLOC (struct gdbarch_registration
);
4125 (*curr
)->bfd_architecture
= bfd_architecture
;
4126 (*curr
)->init
= init
;
4127 (*curr
)->dump_tdep
= dump_tdep
;
4128 (*curr
)->arches
= NULL
;
4129 (*curr
)->next
= NULL
;
4133 register_gdbarch_init (enum bfd_architecture bfd_architecture
,
4134 gdbarch_init_ftype
*init
)
4136 gdbarch_register (bfd_architecture
, init
, NULL
);
4140 /* Look for an architecture using gdbarch_info. */
4142 struct gdbarch_list
*
4143 gdbarch_list_lookup_by_info (struct gdbarch_list
*arches
,
4144 const struct gdbarch_info
*info
)
4146 for (; arches
!= NULL
; arches
= arches
->next
)
4148 if (info
->bfd_arch_info
!= arches
->gdbarch
->bfd_arch_info
)
4150 if (info
->byte_order
!= arches
->gdbarch
->byte_order
)
4152 if (info
->osabi
!= arches
->gdbarch
->osabi
)
4154 if (info
->target_desc
!= arches
->gdbarch
->target_desc
)
4162 /* Find an architecture that matches the specified INFO. Create a new
4163 architecture if needed. Return that new architecture. */
4166 gdbarch_find_by_info (struct gdbarch_info info
)
4168 struct gdbarch
*new_gdbarch
;
4169 struct gdbarch_registration
*rego
;
4171 /* Fill in missing parts of the INFO struct using a number of
4172 sources: "set ..."; INFOabfd supplied; and the global
4174 gdbarch_info_fill (&info
);
4176 /* Must have found some sort of architecture. */
4177 gdb_assert (info
.bfd_arch_info
!= NULL
);
4181 fprintf_unfiltered (gdb_stdlog
,
4182 "gdbarch_find_by_info: info.bfd_arch_info %s\n",
4183 (info
.bfd_arch_info
!= NULL
4184 ? info
.bfd_arch_info
->printable_name
4186 fprintf_unfiltered (gdb_stdlog
,
4187 "gdbarch_find_by_info: info.byte_order %d (%s)\n",
4189 (info
.byte_order
== BFD_ENDIAN_BIG
? "big"
4190 : info
.byte_order
== BFD_ENDIAN_LITTLE
? "little"
4192 fprintf_unfiltered (gdb_stdlog
,
4193 "gdbarch_find_by_info: info.osabi %d (%s)\n",
4194 info
.osabi
, gdbarch_osabi_name (info
.osabi
));
4195 fprintf_unfiltered (gdb_stdlog
,
4196 "gdbarch_find_by_info: info.abfd %s\n",
4197 host_address_to_string (info
.abfd
));
4198 fprintf_unfiltered (gdb_stdlog
,
4199 "gdbarch_find_by_info: info.tdep_info %s\n",
4200 host_address_to_string (info
.tdep_info
));
4203 /* Find the tdep code that knows about this architecture. */
4204 for (rego
= gdbarch_registry
;
4207 if (rego
->bfd_architecture
== info
.bfd_arch_info
->arch
)
4212 fprintf_unfiltered (gdb_stdlog
, "gdbarch_find_by_info: "
4213 "No matching architecture\n");
4217 /* Ask the tdep code for an architecture that matches "info". */
4218 new_gdbarch
= rego
->init (info
, rego
->arches
);
4220 /* Did the tdep code like it? No. Reject the change and revert to
4221 the old architecture. */
4222 if (new_gdbarch
== NULL
)
4225 fprintf_unfiltered (gdb_stdlog
, "gdbarch_find_by_info: "
4226 "Target rejected architecture\n");
4230 /* Is this a pre-existing architecture (as determined by already
4231 being initialized)? Move it to the front of the architecture
4232 list (keeping the list sorted Most Recently Used). */
4233 if (new_gdbarch
->initialized_p
)
4235 struct gdbarch_list
**list
;
4236 struct gdbarch_list
*this;
4238 fprintf_unfiltered (gdb_stdlog
, "gdbarch_find_by_info: "
4239 "Previous architecture %s (%s) selected\n",
4240 host_address_to_string (new_gdbarch
),
4241 new_gdbarch
->bfd_arch_info
->printable_name
);
4242 /* Find the existing arch in the list. */
4243 for (list
= ®o
->arches
;
4244 (*list
) != NULL
&& (*list
)->gdbarch
!= new_gdbarch
;
4245 list
= &(*list
)->next
);
4246 /* It had better be in the list of architectures. */
4247 gdb_assert ((*list
) != NULL
&& (*list
)->gdbarch
== new_gdbarch
);
4250 (*list
) = this->next
;
4251 /* Insert THIS at the front. */
4252 this->next
= rego
->arches
;
4253 rego
->arches
= this;
4258 /* It's a new architecture. */
4260 fprintf_unfiltered (gdb_stdlog
, "gdbarch_find_by_info: "
4261 "New architecture %s (%s) selected\n",
4262 host_address_to_string (new_gdbarch
),
4263 new_gdbarch
->bfd_arch_info
->printable_name
);
4265 /* Insert the new architecture into the front of the architecture
4266 list (keep the list sorted Most Recently Used). */
4268 struct gdbarch_list
*this = XMALLOC (struct gdbarch_list
);
4269 this->next
= rego
->arches
;
4270 this->gdbarch
= new_gdbarch
;
4271 rego
->arches
= this;
4274 /* Check that the newly installed architecture is valid. Plug in
4275 any post init values. */
4276 new_gdbarch
->dump_tdep
= rego
->dump_tdep
;
4277 verify_gdbarch (new_gdbarch
);
4278 new_gdbarch
->initialized_p
= 1;
4281 gdbarch_dump (new_gdbarch
, gdb_stdlog
);
4286 /* Make the specified architecture current. */
4289 deprecated_target_gdbarch_select_hack (struct gdbarch
*new_gdbarch
)
4291 gdb_assert (new_gdbarch
!= NULL
);
4292 gdb_assert (new_gdbarch
->initialized_p
);
4293 target_gdbarch
= new_gdbarch
;
4294 observer_notify_architecture_changed (new_gdbarch
);
4295 registers_changed ();
4298 extern void _initialize_gdbarch (void);
4301 _initialize_gdbarch (void)
4303 add_setshow_zinteger_cmd ("arch", class_maintenance
, &gdbarch_debug
, _("\
4304 Set architecture debugging."), _("\
4305 Show architecture debugging."), _("\
4306 When non-zero, architecture debugging is enabled."),
4309 &setdebuglist
, &showdebuglist
);