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, 2007
6 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 /* Maintain the struct gdbarch object */
85 /* Has this architecture been fully initialized? */
88 /* An obstack bound to the lifetime of the architecture. */
89 struct obstack
*obstack
;
91 /* basic architectural information */
92 const struct bfd_arch_info
* bfd_arch_info
;
94 int byte_order_for_code
;
96 const struct target_desc
* target_desc
;
98 /* target specific vector. */
99 struct gdbarch_tdep
*tdep
;
100 gdbarch_dump_tdep_ftype
*dump_tdep
;
102 /* per-architecture data-pointers */
106 /* per-architecture swap-regions */
107 struct gdbarch_swap
*swap
;
109 /* Multi-arch values.
111 When extending this structure you must:
115 Declare set/get functions and define the corresponding
118 gdbarch_alloc(): If zero/NULL is not a suitable default,
119 initialize the new field.
121 verify_gdbarch(): Confirm that the target updated the field
124 gdbarch_dump(): Add a fprintf_unfiltered call so that the new
127 ``startup_gdbarch()'': Append an initial value to the static
128 variable (base values on the host's c-type system).
130 get_gdbarch(): Implement the set/get functions (probably using
131 the macro's as shortcuts).
141 const struct floatformat
** float_format
;
143 const struct floatformat
** double_format
;
145 const struct floatformat
** long_double_format
;
149 gdbarch_read_pc_ftype
*read_pc
;
150 gdbarch_write_pc_ftype
*write_pc
;
151 gdbarch_virtual_frame_pointer_ftype
*virtual_frame_pointer
;
152 gdbarch_pseudo_register_read_ftype
*pseudo_register_read
;
153 gdbarch_pseudo_register_write_ftype
*pseudo_register_write
;
160 gdbarch_stab_reg_to_regnum_ftype
*stab_reg_to_regnum
;
161 gdbarch_ecoff_reg_to_regnum_ftype
*ecoff_reg_to_regnum
;
162 gdbarch_sdb_reg_to_regnum_ftype
*sdb_reg_to_regnum
;
163 gdbarch_dwarf2_reg_to_regnum_ftype
*dwarf2_reg_to_regnum
;
164 gdbarch_register_name_ftype
*register_name
;
165 gdbarch_register_type_ftype
*register_type
;
166 gdbarch_dummy_id_ftype
*dummy_id
;
167 int deprecated_fp_regnum
;
168 gdbarch_push_dummy_call_ftype
*push_dummy_call
;
169 int call_dummy_location
;
170 gdbarch_push_dummy_code_ftype
*push_dummy_code
;
171 gdbarch_print_registers_info_ftype
*print_registers_info
;
172 gdbarch_print_float_info_ftype
*print_float_info
;
173 gdbarch_print_vector_info_ftype
*print_vector_info
;
174 gdbarch_register_sim_regno_ftype
*register_sim_regno
;
175 gdbarch_cannot_fetch_register_ftype
*cannot_fetch_register
;
176 gdbarch_cannot_store_register_ftype
*cannot_store_register
;
177 gdbarch_get_longjmp_target_ftype
*get_longjmp_target
;
178 int believe_pcc_promotion
;
179 gdbarch_convert_register_p_ftype
*convert_register_p
;
180 gdbarch_register_to_value_ftype
*register_to_value
;
181 gdbarch_value_to_register_ftype
*value_to_register
;
182 gdbarch_value_from_register_ftype
*value_from_register
;
183 gdbarch_pointer_to_address_ftype
*pointer_to_address
;
184 gdbarch_address_to_pointer_ftype
*address_to_pointer
;
185 gdbarch_integer_to_address_ftype
*integer_to_address
;
186 gdbarch_return_value_ftype
*return_value
;
187 gdbarch_skip_prologue_ftype
*skip_prologue
;
188 gdbarch_skip_main_prologue_ftype
*skip_main_prologue
;
189 gdbarch_inner_than_ftype
*inner_than
;
190 gdbarch_breakpoint_from_pc_ftype
*breakpoint_from_pc
;
191 gdbarch_adjust_breakpoint_address_ftype
*adjust_breakpoint_address
;
192 gdbarch_memory_insert_breakpoint_ftype
*memory_insert_breakpoint
;
193 gdbarch_memory_remove_breakpoint_ftype
*memory_remove_breakpoint
;
194 CORE_ADDR decr_pc_after_break
;
195 CORE_ADDR deprecated_function_start_offset
;
196 gdbarch_remote_register_number_ftype
*remote_register_number
;
197 gdbarch_fetch_tls_load_module_address_ftype
*fetch_tls_load_module_address
;
198 CORE_ADDR frame_args_skip
;
199 gdbarch_unwind_pc_ftype
*unwind_pc
;
200 gdbarch_unwind_sp_ftype
*unwind_sp
;
201 gdbarch_frame_num_args_ftype
*frame_num_args
;
202 gdbarch_frame_align_ftype
*frame_align
;
203 gdbarch_stabs_argument_has_addr_ftype
*stabs_argument_has_addr
;
204 int frame_red_zone_size
;
205 gdbarch_convert_from_func_ptr_addr_ftype
*convert_from_func_ptr_addr
;
206 gdbarch_addr_bits_remove_ftype
*addr_bits_remove
;
207 gdbarch_smash_text_address_ftype
*smash_text_address
;
208 gdbarch_software_single_step_ftype
*software_single_step
;
209 gdbarch_single_step_through_delay_ftype
*single_step_through_delay
;
210 gdbarch_print_insn_ftype
*print_insn
;
211 gdbarch_skip_trampoline_code_ftype
*skip_trampoline_code
;
212 gdbarch_skip_solib_resolver_ftype
*skip_solib_resolver
;
213 gdbarch_in_solib_return_trampoline_ftype
*in_solib_return_trampoline
;
214 gdbarch_in_function_epilogue_p_ftype
*in_function_epilogue_p
;
215 gdbarch_elf_make_msymbol_special_ftype
*elf_make_msymbol_special
;
216 gdbarch_coff_make_msymbol_special_ftype
*coff_make_msymbol_special
;
217 int cannot_step_breakpoint
;
218 int have_nonsteppable_watchpoint
;
219 gdbarch_address_class_type_flags_ftype
*address_class_type_flags
;
220 gdbarch_address_class_type_flags_to_name_ftype
*address_class_type_flags_to_name
;
221 gdbarch_address_class_name_to_type_flags_ftype
*address_class_name_to_type_flags
;
222 gdbarch_register_reggroup_p_ftype
*register_reggroup_p
;
223 gdbarch_fetch_pointer_argument_ftype
*fetch_pointer_argument
;
224 gdbarch_regset_from_core_section_ftype
*regset_from_core_section
;
225 int core_reg_section_encodes_pid
;
226 struct core_regset_section
* core_regset_sections
;
227 gdbarch_core_xfer_shared_libraries_ftype
*core_xfer_shared_libraries
;
228 gdbarch_core_pid_to_str_ftype
*core_pid_to_str
;
229 const char * gcore_bfd_target
;
230 int vtable_function_descriptors
;
232 gdbarch_skip_permanent_breakpoint_ftype
*skip_permanent_breakpoint
;
233 ULONGEST max_insn_length
;
234 gdbarch_displaced_step_copy_insn_ftype
*displaced_step_copy_insn
;
235 gdbarch_displaced_step_fixup_ftype
*displaced_step_fixup
;
236 gdbarch_displaced_step_free_closure_ftype
*displaced_step_free_closure
;
237 gdbarch_displaced_step_location_ftype
*displaced_step_location
;
238 gdbarch_overlay_update_ftype
*overlay_update
;
239 gdbarch_core_read_description_ftype
*core_read_description
;
240 gdbarch_static_transform_name_ftype
*static_transform_name
;
241 int sofun_address_maybe_missing
;
242 gdbarch_process_record_ftype
*process_record
;
243 gdbarch_process_record_signal_ftype
*process_record_signal
;
244 gdbarch_target_signal_from_host_ftype
*target_signal_from_host
;
245 gdbarch_target_signal_to_host_ftype
*target_signal_to_host
;
246 gdbarch_get_siginfo_type_ftype
*get_siginfo_type
;
247 gdbarch_record_special_symbol_ftype
*record_special_symbol
;
248 gdbarch_get_syscall_number_ftype
*get_syscall_number
;
249 int has_global_solist
;
250 int has_global_breakpoints
;
254 /* The default architecture uses host values (for want of a better
257 extern const struct bfd_arch_info bfd_default_arch_struct
;
259 struct gdbarch startup_gdbarch
=
261 1, /* Always initialized. */
262 NULL
, /* The obstack. */
263 /* basic architecture information */
264 &bfd_default_arch_struct
, /* bfd_arch_info */
265 BFD_ENDIAN_BIG
, /* byte_order */
266 BFD_ENDIAN_BIG
, /* byte_order_for_code */
267 GDB_OSABI_UNKNOWN
, /* osabi */
269 /* target specific vector and its dump routine */
271 /*per-architecture data-pointers and swap regions */
273 /* Multi-arch values */
274 1, /* bits_big_endian */
275 8 * sizeof (short), /* short_bit */
276 8 * sizeof (int), /* int_bit */
277 8 * sizeof (long), /* long_bit */
278 8 * sizeof (LONGEST
), /* long_long_bit */
279 8 * sizeof (float), /* float_bit */
280 0, /* float_format */
281 8 * sizeof (double), /* double_bit */
282 0, /* double_format */
283 8 * sizeof (long double), /* long_double_bit */
284 0, /* long_double_format */
285 8 * sizeof (void*), /* ptr_bit */
286 8 * sizeof (void*), /* addr_bit */
290 legacy_virtual_frame_pointer
, /* virtual_frame_pointer */
291 0, /* pseudo_register_read */
292 0, /* pseudo_register_write */
294 0, /* num_pseudo_regs */
299 no_op_reg_to_regnum
, /* stab_reg_to_regnum */
300 no_op_reg_to_regnum
, /* ecoff_reg_to_regnum */
301 no_op_reg_to_regnum
, /* sdb_reg_to_regnum */
302 no_op_reg_to_regnum
, /* dwarf2_reg_to_regnum */
303 0, /* register_name */
304 0, /* register_type */
306 -1, /* deprecated_fp_regnum */
307 0, /* push_dummy_call */
308 0, /* call_dummy_location */
309 0, /* push_dummy_code */
310 default_print_registers_info
, /* print_registers_info */
311 0, /* print_float_info */
312 0, /* print_vector_info */
313 legacy_register_sim_regno
, /* register_sim_regno */
314 cannot_register_not
, /* cannot_fetch_register */
315 cannot_register_not
, /* cannot_store_register */
316 0, /* get_longjmp_target */
317 0, /* believe_pcc_promotion */
318 generic_convert_register_p
, /* convert_register_p */
319 0, /* register_to_value */
320 0, /* value_to_register */
321 0, /* value_from_register */
322 unsigned_pointer_to_address
, /* pointer_to_address */
323 unsigned_address_to_pointer
, /* address_to_pointer */
324 0, /* integer_to_address */
325 0, /* return_value */
326 0, /* skip_prologue */
327 0, /* skip_main_prologue */
329 0, /* breakpoint_from_pc */
330 0, /* adjust_breakpoint_address */
331 default_memory_insert_breakpoint
, /* memory_insert_breakpoint */
332 default_memory_remove_breakpoint
, /* memory_remove_breakpoint */
333 0, /* decr_pc_after_break */
334 0, /* deprecated_function_start_offset */
335 default_remote_register_number
, /* remote_register_number */
336 0, /* fetch_tls_load_module_address */
337 0, /* frame_args_skip */
340 0, /* frame_num_args */
342 default_stabs_argument_has_addr
, /* stabs_argument_has_addr */
343 0, /* frame_red_zone_size */
344 convert_from_func_ptr_addr_identity
, /* convert_from_func_ptr_addr */
345 core_addr_identity
, /* addr_bits_remove */
346 core_addr_identity
, /* smash_text_address */
347 0, /* software_single_step */
348 0, /* single_step_through_delay */
350 0, /* skip_trampoline_code */
351 generic_skip_solib_resolver
, /* skip_solib_resolver */
352 generic_in_solib_return_trampoline
, /* in_solib_return_trampoline */
353 generic_in_function_epilogue_p
, /* in_function_epilogue_p */
354 0, /* elf_make_msymbol_special */
355 0, /* coff_make_msymbol_special */
356 0, /* cannot_step_breakpoint */
357 0, /* have_nonsteppable_watchpoint */
358 0, /* address_class_type_flags */
359 0, /* address_class_type_flags_to_name */
360 0, /* address_class_name_to_type_flags */
361 default_register_reggroup_p
, /* register_reggroup_p */
362 0, /* fetch_pointer_argument */
363 0, /* regset_from_core_section */
364 0, /* core_reg_section_encodes_pid */
365 0, /* core_regset_sections */
366 0, /* core_xfer_shared_libraries */
367 0, /* core_pid_to_str */
368 0, /* gcore_bfd_target */
369 0, /* vtable_function_descriptors */
370 0, /* vbit_in_delta */
371 0, /* skip_permanent_breakpoint */
372 0, /* max_insn_length */
373 0, /* displaced_step_copy_insn */
374 0, /* displaced_step_fixup */
375 NULL
, /* displaced_step_free_closure */
376 NULL
, /* displaced_step_location */
377 0, /* overlay_update */
378 0, /* core_read_description */
379 0, /* static_transform_name */
380 0, /* sofun_address_maybe_missing */
381 0, /* process_record */
382 0, /* process_record_signal */
383 default_target_signal_from_host
, /* target_signal_from_host */
384 default_target_signal_to_host
, /* target_signal_to_host */
385 0, /* get_siginfo_type */
386 0, /* record_special_symbol */
387 0, /* get_syscall_number */
388 0, /* has_global_solist */
389 0, /* has_global_breakpoints */
390 /* startup_gdbarch() */
393 struct gdbarch
*target_gdbarch
= &startup_gdbarch
;
395 /* Create a new ``struct gdbarch'' based on information provided by
396 ``struct gdbarch_info''. */
399 gdbarch_alloc (const struct gdbarch_info
*info
,
400 struct gdbarch_tdep
*tdep
)
402 struct gdbarch
*gdbarch
;
404 /* Create an obstack for allocating all the per-architecture memory,
405 then use that to allocate the architecture vector. */
406 struct obstack
*obstack
= XMALLOC (struct obstack
);
407 obstack_init (obstack
);
408 gdbarch
= obstack_alloc (obstack
, sizeof (*gdbarch
));
409 memset (gdbarch
, 0, sizeof (*gdbarch
));
410 gdbarch
->obstack
= obstack
;
412 alloc_gdbarch_data (gdbarch
);
414 gdbarch
->tdep
= tdep
;
416 gdbarch
->bfd_arch_info
= info
->bfd_arch_info
;
417 gdbarch
->byte_order
= info
->byte_order
;
418 gdbarch
->byte_order_for_code
= info
->byte_order_for_code
;
419 gdbarch
->osabi
= info
->osabi
;
420 gdbarch
->target_desc
= info
->target_desc
;
422 /* Force the explicit initialization of these. */
423 gdbarch
->bits_big_endian
= (gdbarch
->byte_order
== BFD_ENDIAN_BIG
);
424 gdbarch
->short_bit
= 2*TARGET_CHAR_BIT
;
425 gdbarch
->int_bit
= 4*TARGET_CHAR_BIT
;
426 gdbarch
->long_bit
= 4*TARGET_CHAR_BIT
;
427 gdbarch
->long_long_bit
= 2*gdbarch
->long_bit
;
428 gdbarch
->float_bit
= 4*TARGET_CHAR_BIT
;
429 gdbarch
->double_bit
= 8*TARGET_CHAR_BIT
;
430 gdbarch
->long_double_bit
= 8*TARGET_CHAR_BIT
;
431 gdbarch
->ptr_bit
= gdbarch
->int_bit
;
432 gdbarch
->char_signed
= -1;
433 gdbarch
->virtual_frame_pointer
= legacy_virtual_frame_pointer
;
434 gdbarch
->num_regs
= -1;
435 gdbarch
->sp_regnum
= -1;
436 gdbarch
->pc_regnum
= -1;
437 gdbarch
->ps_regnum
= -1;
438 gdbarch
->fp0_regnum
= -1;
439 gdbarch
->stab_reg_to_regnum
= no_op_reg_to_regnum
;
440 gdbarch
->ecoff_reg_to_regnum
= no_op_reg_to_regnum
;
441 gdbarch
->sdb_reg_to_regnum
= no_op_reg_to_regnum
;
442 gdbarch
->dwarf2_reg_to_regnum
= no_op_reg_to_regnum
;
443 gdbarch
->deprecated_fp_regnum
= -1;
444 gdbarch
->call_dummy_location
= AT_ENTRY_POINT
;
445 gdbarch
->print_registers_info
= default_print_registers_info
;
446 gdbarch
->register_sim_regno
= legacy_register_sim_regno
;
447 gdbarch
->cannot_fetch_register
= cannot_register_not
;
448 gdbarch
->cannot_store_register
= cannot_register_not
;
449 gdbarch
->convert_register_p
= generic_convert_register_p
;
450 gdbarch
->value_from_register
= default_value_from_register
;
451 gdbarch
->pointer_to_address
= unsigned_pointer_to_address
;
452 gdbarch
->address_to_pointer
= unsigned_address_to_pointer
;
453 gdbarch
->memory_insert_breakpoint
= default_memory_insert_breakpoint
;
454 gdbarch
->memory_remove_breakpoint
= default_memory_remove_breakpoint
;
455 gdbarch
->remote_register_number
= default_remote_register_number
;
456 gdbarch
->stabs_argument_has_addr
= default_stabs_argument_has_addr
;
457 gdbarch
->convert_from_func_ptr_addr
= convert_from_func_ptr_addr_identity
;
458 gdbarch
->addr_bits_remove
= core_addr_identity
;
459 gdbarch
->smash_text_address
= core_addr_identity
;
460 gdbarch
->skip_trampoline_code
= generic_skip_trampoline_code
;
461 gdbarch
->skip_solib_resolver
= generic_skip_solib_resolver
;
462 gdbarch
->in_solib_return_trampoline
= generic_in_solib_return_trampoline
;
463 gdbarch
->in_function_epilogue_p
= generic_in_function_epilogue_p
;
464 gdbarch
->elf_make_msymbol_special
= default_elf_make_msymbol_special
;
465 gdbarch
->coff_make_msymbol_special
= default_coff_make_msymbol_special
;
466 gdbarch
->register_reggroup_p
= default_register_reggroup_p
;
467 gdbarch
->displaced_step_fixup
= NULL
;
468 gdbarch
->displaced_step_free_closure
= NULL
;
469 gdbarch
->displaced_step_location
= NULL
;
470 gdbarch
->target_signal_from_host
= default_target_signal_from_host
;
471 gdbarch
->target_signal_to_host
= default_target_signal_to_host
;
472 /* gdbarch_alloc() */
478 /* Allocate extra space using the per-architecture obstack. */
481 gdbarch_obstack_zalloc (struct gdbarch
*arch
, long size
)
483 void *data
= obstack_alloc (arch
->obstack
, size
);
484 memset (data
, 0, size
);
489 /* Free a gdbarch struct. This should never happen in normal
490 operation --- once you've created a gdbarch, you keep it around.
491 However, if an architecture's init function encounters an error
492 building the structure, it may need to clean up a partially
493 constructed gdbarch. */
496 gdbarch_free (struct gdbarch
*arch
)
498 struct obstack
*obstack
;
499 gdb_assert (arch
!= NULL
);
500 gdb_assert (!arch
->initialized_p
);
501 obstack
= arch
->obstack
;
502 obstack_free (obstack
, 0); /* Includes the ARCH. */
507 /* Ensure that all values in a GDBARCH are reasonable. */
510 verify_gdbarch (struct gdbarch
*gdbarch
)
513 struct cleanup
*cleanups
;
516 log
= mem_fileopen ();
517 cleanups
= make_cleanup_ui_file_delete (log
);
519 if (gdbarch
->byte_order
== BFD_ENDIAN_UNKNOWN
)
520 fprintf_unfiltered (log
, "\n\tbyte-order");
521 if (gdbarch
->bfd_arch_info
== NULL
)
522 fprintf_unfiltered (log
, "\n\tbfd_arch_info");
523 /* Check those that need to be defined for the given multi-arch level. */
524 /* Skip verify of bits_big_endian, invalid_p == 0 */
525 /* Skip verify of short_bit, invalid_p == 0 */
526 /* Skip verify of int_bit, invalid_p == 0 */
527 /* Skip verify of long_bit, invalid_p == 0 */
528 /* Skip verify of long_long_bit, invalid_p == 0 */
529 /* Skip verify of float_bit, invalid_p == 0 */
530 if (gdbarch
->float_format
== 0)
531 gdbarch
->float_format
= floatformats_ieee_single
;
532 /* Skip verify of double_bit, invalid_p == 0 */
533 if (gdbarch
->double_format
== 0)
534 gdbarch
->double_format
= floatformats_ieee_double
;
535 /* Skip verify of long_double_bit, invalid_p == 0 */
536 if (gdbarch
->long_double_format
== 0)
537 gdbarch
->long_double_format
= floatformats_ieee_double
;
538 /* Skip verify of ptr_bit, invalid_p == 0 */
539 if (gdbarch
->addr_bit
== 0)
540 gdbarch
->addr_bit
= gdbarch_ptr_bit (gdbarch
);
541 if (gdbarch
->char_signed
== -1)
542 gdbarch
->char_signed
= 1;
543 /* Skip verify of read_pc, has predicate */
544 /* Skip verify of write_pc, has predicate */
545 /* Skip verify of virtual_frame_pointer, invalid_p == 0 */
546 /* Skip verify of pseudo_register_read, has predicate */
547 /* Skip verify of pseudo_register_write, has predicate */
548 if (gdbarch
->num_regs
== -1)
549 fprintf_unfiltered (log
, "\n\tnum_regs");
550 /* Skip verify of num_pseudo_regs, invalid_p == 0 */
551 /* Skip verify of sp_regnum, invalid_p == 0 */
552 /* Skip verify of pc_regnum, invalid_p == 0 */
553 /* Skip verify of ps_regnum, invalid_p == 0 */
554 /* Skip verify of fp0_regnum, invalid_p == 0 */
555 /* Skip verify of stab_reg_to_regnum, invalid_p == 0 */
556 /* Skip verify of ecoff_reg_to_regnum, invalid_p == 0 */
557 /* Skip verify of sdb_reg_to_regnum, invalid_p == 0 */
558 /* Skip verify of dwarf2_reg_to_regnum, invalid_p == 0 */
559 if (gdbarch
->register_name
== 0)
560 fprintf_unfiltered (log
, "\n\tregister_name");
561 /* Skip verify of register_type, has predicate */
562 /* Skip verify of dummy_id, has predicate */
563 /* Skip verify of deprecated_fp_regnum, invalid_p == 0 */
564 /* Skip verify of push_dummy_call, has predicate */
565 /* Skip verify of call_dummy_location, invalid_p == 0 */
566 /* Skip verify of push_dummy_code, has predicate */
567 /* Skip verify of print_registers_info, invalid_p == 0 */
568 /* Skip verify of print_float_info, has predicate */
569 /* Skip verify of print_vector_info, has predicate */
570 /* Skip verify of register_sim_regno, invalid_p == 0 */
571 /* Skip verify of cannot_fetch_register, invalid_p == 0 */
572 /* Skip verify of cannot_store_register, invalid_p == 0 */
573 /* Skip verify of get_longjmp_target, has predicate */
574 /* Skip verify of convert_register_p, invalid_p == 0 */
575 /* Skip verify of value_from_register, invalid_p == 0 */
576 /* Skip verify of pointer_to_address, invalid_p == 0 */
577 /* Skip verify of address_to_pointer, invalid_p == 0 */
578 /* Skip verify of integer_to_address, has predicate */
579 /* Skip verify of return_value, has predicate */
580 if (gdbarch
->skip_prologue
== 0)
581 fprintf_unfiltered (log
, "\n\tskip_prologue");
582 /* Skip verify of skip_main_prologue, has predicate */
583 if (gdbarch
->inner_than
== 0)
584 fprintf_unfiltered (log
, "\n\tinner_than");
585 if (gdbarch
->breakpoint_from_pc
== 0)
586 fprintf_unfiltered (log
, "\n\tbreakpoint_from_pc");
587 /* Skip verify of adjust_breakpoint_address, has predicate */
588 /* Skip verify of memory_insert_breakpoint, invalid_p == 0 */
589 /* Skip verify of memory_remove_breakpoint, invalid_p == 0 */
590 /* Skip verify of decr_pc_after_break, invalid_p == 0 */
591 /* Skip verify of deprecated_function_start_offset, invalid_p == 0 */
592 /* Skip verify of remote_register_number, invalid_p == 0 */
593 /* Skip verify of fetch_tls_load_module_address, has predicate */
594 /* Skip verify of frame_args_skip, invalid_p == 0 */
595 /* Skip verify of unwind_pc, has predicate */
596 /* Skip verify of unwind_sp, has predicate */
597 /* Skip verify of frame_num_args, has predicate */
598 /* Skip verify of frame_align, has predicate */
599 /* Skip verify of stabs_argument_has_addr, invalid_p == 0 */
600 /* Skip verify of convert_from_func_ptr_addr, invalid_p == 0 */
601 /* Skip verify of addr_bits_remove, invalid_p == 0 */
602 /* Skip verify of smash_text_address, invalid_p == 0 */
603 /* Skip verify of software_single_step, has predicate */
604 /* Skip verify of single_step_through_delay, has predicate */
605 if (gdbarch
->print_insn
== 0)
606 fprintf_unfiltered (log
, "\n\tprint_insn");
607 /* Skip verify of skip_trampoline_code, invalid_p == 0 */
608 /* Skip verify of skip_solib_resolver, invalid_p == 0 */
609 /* Skip verify of in_solib_return_trampoline, invalid_p == 0 */
610 /* Skip verify of in_function_epilogue_p, invalid_p == 0 */
611 /* Skip verify of elf_make_msymbol_special, invalid_p == 0 */
612 /* Skip verify of coff_make_msymbol_special, invalid_p == 0 */
613 /* Skip verify of cannot_step_breakpoint, invalid_p == 0 */
614 /* Skip verify of have_nonsteppable_watchpoint, invalid_p == 0 */
615 /* Skip verify of address_class_type_flags, has predicate */
616 /* Skip verify of address_class_type_flags_to_name, has predicate */
617 /* Skip verify of address_class_name_to_type_flags, has predicate */
618 /* Skip verify of register_reggroup_p, invalid_p == 0 */
619 /* Skip verify of fetch_pointer_argument, has predicate */
620 /* Skip verify of regset_from_core_section, has predicate */
621 /* Skip verify of core_reg_section_encodes_pid, invalid_p == 0 */
622 /* Skip verify of core_xfer_shared_libraries, has predicate */
623 /* Skip verify of core_pid_to_str, has predicate */
624 /* Skip verify of gcore_bfd_target, has predicate */
625 /* Skip verify of vtable_function_descriptors, invalid_p == 0 */
626 /* Skip verify of vbit_in_delta, invalid_p == 0 */
627 /* Skip verify of skip_permanent_breakpoint, has predicate */
628 /* Skip verify of max_insn_length, has predicate */
629 /* Skip verify of displaced_step_copy_insn, has predicate */
630 /* Skip verify of displaced_step_fixup, has predicate */
631 if ((! gdbarch
->displaced_step_free_closure
) != (! gdbarch
->displaced_step_copy_insn
))
632 fprintf_unfiltered (log
, "\n\tdisplaced_step_free_closure");
633 if ((! gdbarch
->displaced_step_location
) != (! gdbarch
->displaced_step_copy_insn
))
634 fprintf_unfiltered (log
, "\n\tdisplaced_step_location");
635 /* Skip verify of overlay_update, has predicate */
636 /* Skip verify of core_read_description, has predicate */
637 /* Skip verify of static_transform_name, has predicate */
638 /* Skip verify of sofun_address_maybe_missing, invalid_p == 0 */
639 /* Skip verify of process_record, has predicate */
640 /* Skip verify of process_record_signal, has predicate */
641 /* Skip verify of target_signal_from_host, invalid_p == 0 */
642 /* Skip verify of target_signal_to_host, invalid_p == 0 */
643 /* Skip verify of get_siginfo_type, has predicate */
644 /* Skip verify of record_special_symbol, has predicate */
645 /* Skip verify of get_syscall_number, has predicate */
646 /* Skip verify of has_global_solist, invalid_p == 0 */
647 /* Skip verify of has_global_breakpoints, invalid_p == 0 */
648 buf
= ui_file_xstrdup (log
, &length
);
649 make_cleanup (xfree
, buf
);
651 internal_error (__FILE__
, __LINE__
,
652 _("verify_gdbarch: the following are invalid ...%s"),
654 do_cleanups (cleanups
);
658 /* Print out the details of the current architecture. */
661 gdbarch_dump (struct gdbarch
*gdbarch
, struct ui_file
*file
)
663 const char *gdb_nm_file
= "<not-defined>";
664 #if defined (GDB_NM_FILE)
665 gdb_nm_file
= GDB_NM_FILE
;
667 fprintf_unfiltered (file
,
668 "gdbarch_dump: GDB_NM_FILE = %s\n",
670 fprintf_unfiltered (file
,
671 "gdbarch_dump: addr_bit = %s\n",
672 plongest (gdbarch
->addr_bit
));
673 fprintf_unfiltered (file
,
674 "gdbarch_dump: addr_bits_remove = <%s>\n",
675 host_address_to_string (gdbarch
->addr_bits_remove
));
676 fprintf_unfiltered (file
,
677 "gdbarch_dump: gdbarch_address_class_name_to_type_flags_p() = %d\n",
678 gdbarch_address_class_name_to_type_flags_p (gdbarch
));
679 fprintf_unfiltered (file
,
680 "gdbarch_dump: address_class_name_to_type_flags = <%s>\n",
681 host_address_to_string (gdbarch
->address_class_name_to_type_flags
));
682 fprintf_unfiltered (file
,
683 "gdbarch_dump: gdbarch_address_class_type_flags_p() = %d\n",
684 gdbarch_address_class_type_flags_p (gdbarch
));
685 fprintf_unfiltered (file
,
686 "gdbarch_dump: address_class_type_flags = <%s>\n",
687 host_address_to_string (gdbarch
->address_class_type_flags
));
688 fprintf_unfiltered (file
,
689 "gdbarch_dump: gdbarch_address_class_type_flags_to_name_p() = %d\n",
690 gdbarch_address_class_type_flags_to_name_p (gdbarch
));
691 fprintf_unfiltered (file
,
692 "gdbarch_dump: address_class_type_flags_to_name = <%s>\n",
693 host_address_to_string (gdbarch
->address_class_type_flags_to_name
));
694 fprintf_unfiltered (file
,
695 "gdbarch_dump: address_to_pointer = <%s>\n",
696 host_address_to_string (gdbarch
->address_to_pointer
));
697 fprintf_unfiltered (file
,
698 "gdbarch_dump: gdbarch_adjust_breakpoint_address_p() = %d\n",
699 gdbarch_adjust_breakpoint_address_p (gdbarch
));
700 fprintf_unfiltered (file
,
701 "gdbarch_dump: adjust_breakpoint_address = <%s>\n",
702 host_address_to_string (gdbarch
->adjust_breakpoint_address
));
703 fprintf_unfiltered (file
,
704 "gdbarch_dump: believe_pcc_promotion = %s\n",
705 plongest (gdbarch
->believe_pcc_promotion
));
706 fprintf_unfiltered (file
,
707 "gdbarch_dump: bfd_arch_info = %s\n",
708 gdbarch_bfd_arch_info (gdbarch
)->printable_name
);
709 fprintf_unfiltered (file
,
710 "gdbarch_dump: bits_big_endian = %s\n",
711 plongest (gdbarch
->bits_big_endian
));
712 fprintf_unfiltered (file
,
713 "gdbarch_dump: breakpoint_from_pc = <%s>\n",
714 host_address_to_string (gdbarch
->breakpoint_from_pc
));
715 fprintf_unfiltered (file
,
716 "gdbarch_dump: byte_order = %s\n",
717 plongest (gdbarch
->byte_order
));
718 fprintf_unfiltered (file
,
719 "gdbarch_dump: byte_order_for_code = %s\n",
720 plongest (gdbarch
->byte_order_for_code
));
721 fprintf_unfiltered (file
,
722 "gdbarch_dump: call_dummy_location = %s\n",
723 plongest (gdbarch
->call_dummy_location
));
724 fprintf_unfiltered (file
,
725 "gdbarch_dump: cannot_fetch_register = <%s>\n",
726 host_address_to_string (gdbarch
->cannot_fetch_register
));
727 fprintf_unfiltered (file
,
728 "gdbarch_dump: cannot_step_breakpoint = %s\n",
729 plongest (gdbarch
->cannot_step_breakpoint
));
730 fprintf_unfiltered (file
,
731 "gdbarch_dump: cannot_store_register = <%s>\n",
732 host_address_to_string (gdbarch
->cannot_store_register
));
733 fprintf_unfiltered (file
,
734 "gdbarch_dump: char_signed = %s\n",
735 plongest (gdbarch
->char_signed
));
736 fprintf_unfiltered (file
,
737 "gdbarch_dump: coff_make_msymbol_special = <%s>\n",
738 host_address_to_string (gdbarch
->coff_make_msymbol_special
));
739 fprintf_unfiltered (file
,
740 "gdbarch_dump: convert_from_func_ptr_addr = <%s>\n",
741 host_address_to_string (gdbarch
->convert_from_func_ptr_addr
));
742 fprintf_unfiltered (file
,
743 "gdbarch_dump: convert_register_p = <%s>\n",
744 host_address_to_string (gdbarch
->convert_register_p
));
745 fprintf_unfiltered (file
,
746 "gdbarch_dump: gdbarch_core_pid_to_str_p() = %d\n",
747 gdbarch_core_pid_to_str_p (gdbarch
));
748 fprintf_unfiltered (file
,
749 "gdbarch_dump: core_pid_to_str = <%s>\n",
750 host_address_to_string (gdbarch
->core_pid_to_str
));
751 fprintf_unfiltered (file
,
752 "gdbarch_dump: gdbarch_core_read_description_p() = %d\n",
753 gdbarch_core_read_description_p (gdbarch
));
754 fprintf_unfiltered (file
,
755 "gdbarch_dump: core_read_description = <%s>\n",
756 host_address_to_string (gdbarch
->core_read_description
));
757 fprintf_unfiltered (file
,
758 "gdbarch_dump: core_reg_section_encodes_pid = %s\n",
759 plongest (gdbarch
->core_reg_section_encodes_pid
));
760 fprintf_unfiltered (file
,
761 "gdbarch_dump: core_regset_sections = %s\n",
762 host_address_to_string (gdbarch
->core_regset_sections
));
763 fprintf_unfiltered (file
,
764 "gdbarch_dump: gdbarch_core_xfer_shared_libraries_p() = %d\n",
765 gdbarch_core_xfer_shared_libraries_p (gdbarch
));
766 fprintf_unfiltered (file
,
767 "gdbarch_dump: core_xfer_shared_libraries = <%s>\n",
768 host_address_to_string (gdbarch
->core_xfer_shared_libraries
));
769 fprintf_unfiltered (file
,
770 "gdbarch_dump: decr_pc_after_break = %s\n",
771 core_addr_to_string_nz (gdbarch
->decr_pc_after_break
));
772 fprintf_unfiltered (file
,
773 "gdbarch_dump: deprecated_fp_regnum = %s\n",
774 plongest (gdbarch
->deprecated_fp_regnum
));
775 fprintf_unfiltered (file
,
776 "gdbarch_dump: deprecated_function_start_offset = %s\n",
777 core_addr_to_string_nz (gdbarch
->deprecated_function_start_offset
));
778 fprintf_unfiltered (file
,
779 "gdbarch_dump: gdbarch_displaced_step_copy_insn_p() = %d\n",
780 gdbarch_displaced_step_copy_insn_p (gdbarch
));
781 fprintf_unfiltered (file
,
782 "gdbarch_dump: displaced_step_copy_insn = <%s>\n",
783 host_address_to_string (gdbarch
->displaced_step_copy_insn
));
784 fprintf_unfiltered (file
,
785 "gdbarch_dump: gdbarch_displaced_step_fixup_p() = %d\n",
786 gdbarch_displaced_step_fixup_p (gdbarch
));
787 fprintf_unfiltered (file
,
788 "gdbarch_dump: displaced_step_fixup = <%s>\n",
789 host_address_to_string (gdbarch
->displaced_step_fixup
));
790 fprintf_unfiltered (file
,
791 "gdbarch_dump: displaced_step_free_closure = <%s>\n",
792 host_address_to_string (gdbarch
->displaced_step_free_closure
));
793 fprintf_unfiltered (file
,
794 "gdbarch_dump: displaced_step_location = <%s>\n",
795 host_address_to_string (gdbarch
->displaced_step_location
));
796 fprintf_unfiltered (file
,
797 "gdbarch_dump: double_bit = %s\n",
798 plongest (gdbarch
->double_bit
));
799 fprintf_unfiltered (file
,
800 "gdbarch_dump: double_format = %s\n",
801 pformat (gdbarch
->double_format
));
802 fprintf_unfiltered (file
,
803 "gdbarch_dump: gdbarch_dummy_id_p() = %d\n",
804 gdbarch_dummy_id_p (gdbarch
));
805 fprintf_unfiltered (file
,
806 "gdbarch_dump: dummy_id = <%s>\n",
807 host_address_to_string (gdbarch
->dummy_id
));
808 fprintf_unfiltered (file
,
809 "gdbarch_dump: dwarf2_reg_to_regnum = <%s>\n",
810 host_address_to_string (gdbarch
->dwarf2_reg_to_regnum
));
811 fprintf_unfiltered (file
,
812 "gdbarch_dump: ecoff_reg_to_regnum = <%s>\n",
813 host_address_to_string (gdbarch
->ecoff_reg_to_regnum
));
814 fprintf_unfiltered (file
,
815 "gdbarch_dump: elf_make_msymbol_special = <%s>\n",
816 host_address_to_string (gdbarch
->elf_make_msymbol_special
));
817 fprintf_unfiltered (file
,
818 "gdbarch_dump: gdbarch_fetch_pointer_argument_p() = %d\n",
819 gdbarch_fetch_pointer_argument_p (gdbarch
));
820 fprintf_unfiltered (file
,
821 "gdbarch_dump: fetch_pointer_argument = <%s>\n",
822 host_address_to_string (gdbarch
->fetch_pointer_argument
));
823 fprintf_unfiltered (file
,
824 "gdbarch_dump: gdbarch_fetch_tls_load_module_address_p() = %d\n",
825 gdbarch_fetch_tls_load_module_address_p (gdbarch
));
826 fprintf_unfiltered (file
,
827 "gdbarch_dump: fetch_tls_load_module_address = <%s>\n",
828 host_address_to_string (gdbarch
->fetch_tls_load_module_address
));
829 fprintf_unfiltered (file
,
830 "gdbarch_dump: float_bit = %s\n",
831 plongest (gdbarch
->float_bit
));
832 fprintf_unfiltered (file
,
833 "gdbarch_dump: float_format = %s\n",
834 pformat (gdbarch
->float_format
));
835 fprintf_unfiltered (file
,
836 "gdbarch_dump: fp0_regnum = %s\n",
837 plongest (gdbarch
->fp0_regnum
));
838 fprintf_unfiltered (file
,
839 "gdbarch_dump: gdbarch_frame_align_p() = %d\n",
840 gdbarch_frame_align_p (gdbarch
));
841 fprintf_unfiltered (file
,
842 "gdbarch_dump: frame_align = <%s>\n",
843 host_address_to_string (gdbarch
->frame_align
));
844 fprintf_unfiltered (file
,
845 "gdbarch_dump: frame_args_skip = %s\n",
846 core_addr_to_string_nz (gdbarch
->frame_args_skip
));
847 fprintf_unfiltered (file
,
848 "gdbarch_dump: gdbarch_frame_num_args_p() = %d\n",
849 gdbarch_frame_num_args_p (gdbarch
));
850 fprintf_unfiltered (file
,
851 "gdbarch_dump: frame_num_args = <%s>\n",
852 host_address_to_string (gdbarch
->frame_num_args
));
853 fprintf_unfiltered (file
,
854 "gdbarch_dump: frame_red_zone_size = %s\n",
855 plongest (gdbarch
->frame_red_zone_size
));
856 fprintf_unfiltered (file
,
857 "gdbarch_dump: gdbarch_gcore_bfd_target_p() = %d\n",
858 gdbarch_gcore_bfd_target_p (gdbarch
));
859 fprintf_unfiltered (file
,
860 "gdbarch_dump: gcore_bfd_target = %s\n",
861 gdbarch
->gcore_bfd_target
);
862 fprintf_unfiltered (file
,
863 "gdbarch_dump: gdbarch_get_longjmp_target_p() = %d\n",
864 gdbarch_get_longjmp_target_p (gdbarch
));
865 fprintf_unfiltered (file
,
866 "gdbarch_dump: get_longjmp_target = <%s>\n",
867 host_address_to_string (gdbarch
->get_longjmp_target
));
868 fprintf_unfiltered (file
,
869 "gdbarch_dump: gdbarch_get_siginfo_type_p() = %d\n",
870 gdbarch_get_siginfo_type_p (gdbarch
));
871 fprintf_unfiltered (file
,
872 "gdbarch_dump: get_siginfo_type = <%s>\n",
873 host_address_to_string (gdbarch
->get_siginfo_type
));
874 fprintf_unfiltered (file
,
875 "gdbarch_dump: gdbarch_get_syscall_number_p() = %d\n",
876 gdbarch_get_syscall_number_p (gdbarch
));
877 fprintf_unfiltered (file
,
878 "gdbarch_dump: get_syscall_number = <%s>\n",
879 host_address_to_string (gdbarch
->get_syscall_number
));
880 fprintf_unfiltered (file
,
881 "gdbarch_dump: has_global_breakpoints = %s\n",
882 plongest (gdbarch
->has_global_breakpoints
));
883 fprintf_unfiltered (file
,
884 "gdbarch_dump: has_global_solist = %s\n",
885 plongest (gdbarch
->has_global_solist
));
886 fprintf_unfiltered (file
,
887 "gdbarch_dump: have_nonsteppable_watchpoint = %s\n",
888 plongest (gdbarch
->have_nonsteppable_watchpoint
));
889 fprintf_unfiltered (file
,
890 "gdbarch_dump: in_function_epilogue_p = <%s>\n",
891 host_address_to_string (gdbarch
->in_function_epilogue_p
));
892 fprintf_unfiltered (file
,
893 "gdbarch_dump: in_solib_return_trampoline = <%s>\n",
894 host_address_to_string (gdbarch
->in_solib_return_trampoline
));
895 fprintf_unfiltered (file
,
896 "gdbarch_dump: inner_than = <%s>\n",
897 host_address_to_string (gdbarch
->inner_than
));
898 fprintf_unfiltered (file
,
899 "gdbarch_dump: int_bit = %s\n",
900 plongest (gdbarch
->int_bit
));
901 fprintf_unfiltered (file
,
902 "gdbarch_dump: gdbarch_integer_to_address_p() = %d\n",
903 gdbarch_integer_to_address_p (gdbarch
));
904 fprintf_unfiltered (file
,
905 "gdbarch_dump: integer_to_address = <%s>\n",
906 host_address_to_string (gdbarch
->integer_to_address
));
907 fprintf_unfiltered (file
,
908 "gdbarch_dump: long_bit = %s\n",
909 plongest (gdbarch
->long_bit
));
910 fprintf_unfiltered (file
,
911 "gdbarch_dump: long_double_bit = %s\n",
912 plongest (gdbarch
->long_double_bit
));
913 fprintf_unfiltered (file
,
914 "gdbarch_dump: long_double_format = %s\n",
915 pformat (gdbarch
->long_double_format
));
916 fprintf_unfiltered (file
,
917 "gdbarch_dump: long_long_bit = %s\n",
918 plongest (gdbarch
->long_long_bit
));
919 fprintf_unfiltered (file
,
920 "gdbarch_dump: gdbarch_max_insn_length_p() = %d\n",
921 gdbarch_max_insn_length_p (gdbarch
));
922 fprintf_unfiltered (file
,
923 "gdbarch_dump: max_insn_length = %s\n",
924 plongest (gdbarch
->max_insn_length
));
925 fprintf_unfiltered (file
,
926 "gdbarch_dump: memory_insert_breakpoint = <%s>\n",
927 host_address_to_string (gdbarch
->memory_insert_breakpoint
));
928 fprintf_unfiltered (file
,
929 "gdbarch_dump: memory_remove_breakpoint = <%s>\n",
930 host_address_to_string (gdbarch
->memory_remove_breakpoint
));
931 fprintf_unfiltered (file
,
932 "gdbarch_dump: num_pseudo_regs = %s\n",
933 plongest (gdbarch
->num_pseudo_regs
));
934 fprintf_unfiltered (file
,
935 "gdbarch_dump: num_regs = %s\n",
936 plongest (gdbarch
->num_regs
));
937 fprintf_unfiltered (file
,
938 "gdbarch_dump: osabi = %s\n",
939 plongest (gdbarch
->osabi
));
940 fprintf_unfiltered (file
,
941 "gdbarch_dump: gdbarch_overlay_update_p() = %d\n",
942 gdbarch_overlay_update_p (gdbarch
));
943 fprintf_unfiltered (file
,
944 "gdbarch_dump: overlay_update = <%s>\n",
945 host_address_to_string (gdbarch
->overlay_update
));
946 fprintf_unfiltered (file
,
947 "gdbarch_dump: pc_regnum = %s\n",
948 plongest (gdbarch
->pc_regnum
));
949 fprintf_unfiltered (file
,
950 "gdbarch_dump: pointer_to_address = <%s>\n",
951 host_address_to_string (gdbarch
->pointer_to_address
));
952 fprintf_unfiltered (file
,
953 "gdbarch_dump: gdbarch_print_float_info_p() = %d\n",
954 gdbarch_print_float_info_p (gdbarch
));
955 fprintf_unfiltered (file
,
956 "gdbarch_dump: print_float_info = <%s>\n",
957 host_address_to_string (gdbarch
->print_float_info
));
958 fprintf_unfiltered (file
,
959 "gdbarch_dump: print_insn = <%s>\n",
960 host_address_to_string (gdbarch
->print_insn
));
961 fprintf_unfiltered (file
,
962 "gdbarch_dump: print_registers_info = <%s>\n",
963 host_address_to_string (gdbarch
->print_registers_info
));
964 fprintf_unfiltered (file
,
965 "gdbarch_dump: gdbarch_print_vector_info_p() = %d\n",
966 gdbarch_print_vector_info_p (gdbarch
));
967 fprintf_unfiltered (file
,
968 "gdbarch_dump: print_vector_info = <%s>\n",
969 host_address_to_string (gdbarch
->print_vector_info
));
970 fprintf_unfiltered (file
,
971 "gdbarch_dump: gdbarch_process_record_p() = %d\n",
972 gdbarch_process_record_p (gdbarch
));
973 fprintf_unfiltered (file
,
974 "gdbarch_dump: process_record = <%s>\n",
975 host_address_to_string (gdbarch
->process_record
));
976 fprintf_unfiltered (file
,
977 "gdbarch_dump: gdbarch_process_record_signal_p() = %d\n",
978 gdbarch_process_record_signal_p (gdbarch
));
979 fprintf_unfiltered (file
,
980 "gdbarch_dump: process_record_signal = <%s>\n",
981 host_address_to_string (gdbarch
->process_record_signal
));
982 fprintf_unfiltered (file
,
983 "gdbarch_dump: ps_regnum = %s\n",
984 plongest (gdbarch
->ps_regnum
));
985 fprintf_unfiltered (file
,
986 "gdbarch_dump: gdbarch_pseudo_register_read_p() = %d\n",
987 gdbarch_pseudo_register_read_p (gdbarch
));
988 fprintf_unfiltered (file
,
989 "gdbarch_dump: pseudo_register_read = <%s>\n",
990 host_address_to_string (gdbarch
->pseudo_register_read
));
991 fprintf_unfiltered (file
,
992 "gdbarch_dump: gdbarch_pseudo_register_write_p() = %d\n",
993 gdbarch_pseudo_register_write_p (gdbarch
));
994 fprintf_unfiltered (file
,
995 "gdbarch_dump: pseudo_register_write = <%s>\n",
996 host_address_to_string (gdbarch
->pseudo_register_write
));
997 fprintf_unfiltered (file
,
998 "gdbarch_dump: ptr_bit = %s\n",
999 plongest (gdbarch
->ptr_bit
));
1000 fprintf_unfiltered (file
,
1001 "gdbarch_dump: gdbarch_push_dummy_call_p() = %d\n",
1002 gdbarch_push_dummy_call_p (gdbarch
));
1003 fprintf_unfiltered (file
,
1004 "gdbarch_dump: push_dummy_call = <%s>\n",
1005 host_address_to_string (gdbarch
->push_dummy_call
));
1006 fprintf_unfiltered (file
,
1007 "gdbarch_dump: gdbarch_push_dummy_code_p() = %d\n",
1008 gdbarch_push_dummy_code_p (gdbarch
));
1009 fprintf_unfiltered (file
,
1010 "gdbarch_dump: push_dummy_code = <%s>\n",
1011 host_address_to_string (gdbarch
->push_dummy_code
));
1012 fprintf_unfiltered (file
,
1013 "gdbarch_dump: gdbarch_read_pc_p() = %d\n",
1014 gdbarch_read_pc_p (gdbarch
));
1015 fprintf_unfiltered (file
,
1016 "gdbarch_dump: read_pc = <%s>\n",
1017 host_address_to_string (gdbarch
->read_pc
));
1018 fprintf_unfiltered (file
,
1019 "gdbarch_dump: gdbarch_record_special_symbol_p() = %d\n",
1020 gdbarch_record_special_symbol_p (gdbarch
));
1021 fprintf_unfiltered (file
,
1022 "gdbarch_dump: record_special_symbol = <%s>\n",
1023 host_address_to_string (gdbarch
->record_special_symbol
));
1024 fprintf_unfiltered (file
,
1025 "gdbarch_dump: register_name = <%s>\n",
1026 host_address_to_string (gdbarch
->register_name
));
1027 fprintf_unfiltered (file
,
1028 "gdbarch_dump: register_reggroup_p = <%s>\n",
1029 host_address_to_string (gdbarch
->register_reggroup_p
));
1030 fprintf_unfiltered (file
,
1031 "gdbarch_dump: register_sim_regno = <%s>\n",
1032 host_address_to_string (gdbarch
->register_sim_regno
));
1033 fprintf_unfiltered (file
,
1034 "gdbarch_dump: register_to_value = <%s>\n",
1035 host_address_to_string (gdbarch
->register_to_value
));
1036 fprintf_unfiltered (file
,
1037 "gdbarch_dump: gdbarch_register_type_p() = %d\n",
1038 gdbarch_register_type_p (gdbarch
));
1039 fprintf_unfiltered (file
,
1040 "gdbarch_dump: register_type = <%s>\n",
1041 host_address_to_string (gdbarch
->register_type
));
1042 fprintf_unfiltered (file
,
1043 "gdbarch_dump: gdbarch_regset_from_core_section_p() = %d\n",
1044 gdbarch_regset_from_core_section_p (gdbarch
));
1045 fprintf_unfiltered (file
,
1046 "gdbarch_dump: regset_from_core_section = <%s>\n",
1047 host_address_to_string (gdbarch
->regset_from_core_section
));
1048 fprintf_unfiltered (file
,
1049 "gdbarch_dump: remote_register_number = <%s>\n",
1050 host_address_to_string (gdbarch
->remote_register_number
));
1051 fprintf_unfiltered (file
,
1052 "gdbarch_dump: gdbarch_return_value_p() = %d\n",
1053 gdbarch_return_value_p (gdbarch
));
1054 fprintf_unfiltered (file
,
1055 "gdbarch_dump: return_value = <%s>\n",
1056 host_address_to_string (gdbarch
->return_value
));
1057 fprintf_unfiltered (file
,
1058 "gdbarch_dump: sdb_reg_to_regnum = <%s>\n",
1059 host_address_to_string (gdbarch
->sdb_reg_to_regnum
));
1060 fprintf_unfiltered (file
,
1061 "gdbarch_dump: short_bit = %s\n",
1062 plongest (gdbarch
->short_bit
));
1063 fprintf_unfiltered (file
,
1064 "gdbarch_dump: gdbarch_single_step_through_delay_p() = %d\n",
1065 gdbarch_single_step_through_delay_p (gdbarch
));
1066 fprintf_unfiltered (file
,
1067 "gdbarch_dump: single_step_through_delay = <%s>\n",
1068 host_address_to_string (gdbarch
->single_step_through_delay
));
1069 fprintf_unfiltered (file
,
1070 "gdbarch_dump: gdbarch_skip_main_prologue_p() = %d\n",
1071 gdbarch_skip_main_prologue_p (gdbarch
));
1072 fprintf_unfiltered (file
,
1073 "gdbarch_dump: skip_main_prologue = <%s>\n",
1074 host_address_to_string (gdbarch
->skip_main_prologue
));
1075 fprintf_unfiltered (file
,
1076 "gdbarch_dump: gdbarch_skip_permanent_breakpoint_p() = %d\n",
1077 gdbarch_skip_permanent_breakpoint_p (gdbarch
));
1078 fprintf_unfiltered (file
,
1079 "gdbarch_dump: skip_permanent_breakpoint = <%s>\n",
1080 host_address_to_string (gdbarch
->skip_permanent_breakpoint
));
1081 fprintf_unfiltered (file
,
1082 "gdbarch_dump: skip_prologue = <%s>\n",
1083 host_address_to_string (gdbarch
->skip_prologue
));
1084 fprintf_unfiltered (file
,
1085 "gdbarch_dump: skip_solib_resolver = <%s>\n",
1086 host_address_to_string (gdbarch
->skip_solib_resolver
));
1087 fprintf_unfiltered (file
,
1088 "gdbarch_dump: skip_trampoline_code = <%s>\n",
1089 host_address_to_string (gdbarch
->skip_trampoline_code
));
1090 fprintf_unfiltered (file
,
1091 "gdbarch_dump: smash_text_address = <%s>\n",
1092 host_address_to_string (gdbarch
->smash_text_address
));
1093 fprintf_unfiltered (file
,
1094 "gdbarch_dump: gdbarch_software_single_step_p() = %d\n",
1095 gdbarch_software_single_step_p (gdbarch
));
1096 fprintf_unfiltered (file
,
1097 "gdbarch_dump: software_single_step = <%s>\n",
1098 host_address_to_string (gdbarch
->software_single_step
));
1099 fprintf_unfiltered (file
,
1100 "gdbarch_dump: sofun_address_maybe_missing = %s\n",
1101 plongest (gdbarch
->sofun_address_maybe_missing
));
1102 fprintf_unfiltered (file
,
1103 "gdbarch_dump: sp_regnum = %s\n",
1104 plongest (gdbarch
->sp_regnum
));
1105 fprintf_unfiltered (file
,
1106 "gdbarch_dump: stab_reg_to_regnum = <%s>\n",
1107 host_address_to_string (gdbarch
->stab_reg_to_regnum
));
1108 fprintf_unfiltered (file
,
1109 "gdbarch_dump: stabs_argument_has_addr = <%s>\n",
1110 host_address_to_string (gdbarch
->stabs_argument_has_addr
));
1111 fprintf_unfiltered (file
,
1112 "gdbarch_dump: gdbarch_static_transform_name_p() = %d\n",
1113 gdbarch_static_transform_name_p (gdbarch
));
1114 fprintf_unfiltered (file
,
1115 "gdbarch_dump: static_transform_name = <%s>\n",
1116 host_address_to_string (gdbarch
->static_transform_name
));
1117 fprintf_unfiltered (file
,
1118 "gdbarch_dump: target_desc = %s\n",
1119 host_address_to_string (gdbarch
->target_desc
));
1120 fprintf_unfiltered (file
,
1121 "gdbarch_dump: target_signal_from_host = <%s>\n",
1122 host_address_to_string (gdbarch
->target_signal_from_host
));
1123 fprintf_unfiltered (file
,
1124 "gdbarch_dump: target_signal_to_host = <%s>\n",
1125 host_address_to_string (gdbarch
->target_signal_to_host
));
1126 fprintf_unfiltered (file
,
1127 "gdbarch_dump: gdbarch_unwind_pc_p() = %d\n",
1128 gdbarch_unwind_pc_p (gdbarch
));
1129 fprintf_unfiltered (file
,
1130 "gdbarch_dump: unwind_pc = <%s>\n",
1131 host_address_to_string (gdbarch
->unwind_pc
));
1132 fprintf_unfiltered (file
,
1133 "gdbarch_dump: gdbarch_unwind_sp_p() = %d\n",
1134 gdbarch_unwind_sp_p (gdbarch
));
1135 fprintf_unfiltered (file
,
1136 "gdbarch_dump: unwind_sp = <%s>\n",
1137 host_address_to_string (gdbarch
->unwind_sp
));
1138 fprintf_unfiltered (file
,
1139 "gdbarch_dump: value_from_register = <%s>\n",
1140 host_address_to_string (gdbarch
->value_from_register
));
1141 fprintf_unfiltered (file
,
1142 "gdbarch_dump: value_to_register = <%s>\n",
1143 host_address_to_string (gdbarch
->value_to_register
));
1144 fprintf_unfiltered (file
,
1145 "gdbarch_dump: vbit_in_delta = %s\n",
1146 plongest (gdbarch
->vbit_in_delta
));
1147 fprintf_unfiltered (file
,
1148 "gdbarch_dump: virtual_frame_pointer = <%s>\n",
1149 host_address_to_string (gdbarch
->virtual_frame_pointer
));
1150 fprintf_unfiltered (file
,
1151 "gdbarch_dump: vtable_function_descriptors = %s\n",
1152 plongest (gdbarch
->vtable_function_descriptors
));
1153 fprintf_unfiltered (file
,
1154 "gdbarch_dump: gdbarch_write_pc_p() = %d\n",
1155 gdbarch_write_pc_p (gdbarch
));
1156 fprintf_unfiltered (file
,
1157 "gdbarch_dump: write_pc = <%s>\n",
1158 host_address_to_string (gdbarch
->write_pc
));
1159 if (gdbarch
->dump_tdep
!= NULL
)
1160 gdbarch
->dump_tdep (gdbarch
, file
);
1163 struct gdbarch_tdep
*
1164 gdbarch_tdep (struct gdbarch
*gdbarch
)
1166 if (gdbarch_debug
>= 2)
1167 fprintf_unfiltered (gdb_stdlog
, "gdbarch_tdep called\n");
1168 return gdbarch
->tdep
;
1172 const struct bfd_arch_info
*
1173 gdbarch_bfd_arch_info (struct gdbarch
*gdbarch
)
1175 gdb_assert (gdbarch
!= NULL
);
1176 if (gdbarch_debug
>= 2)
1177 fprintf_unfiltered (gdb_stdlog
, "gdbarch_bfd_arch_info called\n");
1178 return gdbarch
->bfd_arch_info
;
1182 gdbarch_byte_order (struct gdbarch
*gdbarch
)
1184 gdb_assert (gdbarch
!= NULL
);
1185 if (gdbarch_debug
>= 2)
1186 fprintf_unfiltered (gdb_stdlog
, "gdbarch_byte_order called\n");
1187 return gdbarch
->byte_order
;
1191 gdbarch_byte_order_for_code (struct gdbarch
*gdbarch
)
1193 gdb_assert (gdbarch
!= NULL
);
1194 if (gdbarch_debug
>= 2)
1195 fprintf_unfiltered (gdb_stdlog
, "gdbarch_byte_order_for_code called\n");
1196 return gdbarch
->byte_order_for_code
;
1200 gdbarch_osabi (struct gdbarch
*gdbarch
)
1202 gdb_assert (gdbarch
!= NULL
);
1203 if (gdbarch_debug
>= 2)
1204 fprintf_unfiltered (gdb_stdlog
, "gdbarch_osabi called\n");
1205 return gdbarch
->osabi
;
1208 const struct target_desc
*
1209 gdbarch_target_desc (struct gdbarch
*gdbarch
)
1211 gdb_assert (gdbarch
!= NULL
);
1212 if (gdbarch_debug
>= 2)
1213 fprintf_unfiltered (gdb_stdlog
, "gdbarch_target_desc called\n");
1214 return gdbarch
->target_desc
;
1218 gdbarch_bits_big_endian (struct gdbarch
*gdbarch
)
1220 gdb_assert (gdbarch
!= NULL
);
1221 /* Skip verify of bits_big_endian, invalid_p == 0 */
1222 if (gdbarch_debug
>= 2)
1223 fprintf_unfiltered (gdb_stdlog
, "gdbarch_bits_big_endian called\n");
1224 return gdbarch
->bits_big_endian
;
1228 set_gdbarch_bits_big_endian (struct gdbarch
*gdbarch
,
1229 int bits_big_endian
)
1231 gdbarch
->bits_big_endian
= bits_big_endian
;
1235 gdbarch_short_bit (struct gdbarch
*gdbarch
)
1237 gdb_assert (gdbarch
!= NULL
);
1238 /* Skip verify of short_bit, invalid_p == 0 */
1239 if (gdbarch_debug
>= 2)
1240 fprintf_unfiltered (gdb_stdlog
, "gdbarch_short_bit called\n");
1241 return gdbarch
->short_bit
;
1245 set_gdbarch_short_bit (struct gdbarch
*gdbarch
,
1248 gdbarch
->short_bit
= short_bit
;
1252 gdbarch_int_bit (struct gdbarch
*gdbarch
)
1254 gdb_assert (gdbarch
!= NULL
);
1255 /* Skip verify of int_bit, invalid_p == 0 */
1256 if (gdbarch_debug
>= 2)
1257 fprintf_unfiltered (gdb_stdlog
, "gdbarch_int_bit called\n");
1258 return gdbarch
->int_bit
;
1262 set_gdbarch_int_bit (struct gdbarch
*gdbarch
,
1265 gdbarch
->int_bit
= int_bit
;
1269 gdbarch_long_bit (struct gdbarch
*gdbarch
)
1271 gdb_assert (gdbarch
!= NULL
);
1272 /* Skip verify of long_bit, invalid_p == 0 */
1273 if (gdbarch_debug
>= 2)
1274 fprintf_unfiltered (gdb_stdlog
, "gdbarch_long_bit called\n");
1275 return gdbarch
->long_bit
;
1279 set_gdbarch_long_bit (struct gdbarch
*gdbarch
,
1282 gdbarch
->long_bit
= long_bit
;
1286 gdbarch_long_long_bit (struct gdbarch
*gdbarch
)
1288 gdb_assert (gdbarch
!= NULL
);
1289 /* Skip verify of long_long_bit, invalid_p == 0 */
1290 if (gdbarch_debug
>= 2)
1291 fprintf_unfiltered (gdb_stdlog
, "gdbarch_long_long_bit called\n");
1292 return gdbarch
->long_long_bit
;
1296 set_gdbarch_long_long_bit (struct gdbarch
*gdbarch
,
1299 gdbarch
->long_long_bit
= long_long_bit
;
1303 gdbarch_float_bit (struct gdbarch
*gdbarch
)
1305 gdb_assert (gdbarch
!= NULL
);
1306 /* Skip verify of float_bit, invalid_p == 0 */
1307 if (gdbarch_debug
>= 2)
1308 fprintf_unfiltered (gdb_stdlog
, "gdbarch_float_bit called\n");
1309 return gdbarch
->float_bit
;
1313 set_gdbarch_float_bit (struct gdbarch
*gdbarch
,
1316 gdbarch
->float_bit
= float_bit
;
1319 const struct floatformat
**
1320 gdbarch_float_format (struct gdbarch
*gdbarch
)
1322 gdb_assert (gdbarch
!= NULL
);
1323 if (gdbarch_debug
>= 2)
1324 fprintf_unfiltered (gdb_stdlog
, "gdbarch_float_format called\n");
1325 return gdbarch
->float_format
;
1329 set_gdbarch_float_format (struct gdbarch
*gdbarch
,
1330 const struct floatformat
** float_format
)
1332 gdbarch
->float_format
= float_format
;
1336 gdbarch_double_bit (struct gdbarch
*gdbarch
)
1338 gdb_assert (gdbarch
!= NULL
);
1339 /* Skip verify of double_bit, invalid_p == 0 */
1340 if (gdbarch_debug
>= 2)
1341 fprintf_unfiltered (gdb_stdlog
, "gdbarch_double_bit called\n");
1342 return gdbarch
->double_bit
;
1346 set_gdbarch_double_bit (struct gdbarch
*gdbarch
,
1349 gdbarch
->double_bit
= double_bit
;
1352 const struct floatformat
**
1353 gdbarch_double_format (struct gdbarch
*gdbarch
)
1355 gdb_assert (gdbarch
!= NULL
);
1356 if (gdbarch_debug
>= 2)
1357 fprintf_unfiltered (gdb_stdlog
, "gdbarch_double_format called\n");
1358 return gdbarch
->double_format
;
1362 set_gdbarch_double_format (struct gdbarch
*gdbarch
,
1363 const struct floatformat
** double_format
)
1365 gdbarch
->double_format
= double_format
;
1369 gdbarch_long_double_bit (struct gdbarch
*gdbarch
)
1371 gdb_assert (gdbarch
!= NULL
);
1372 /* Skip verify of long_double_bit, invalid_p == 0 */
1373 if (gdbarch_debug
>= 2)
1374 fprintf_unfiltered (gdb_stdlog
, "gdbarch_long_double_bit called\n");
1375 return gdbarch
->long_double_bit
;
1379 set_gdbarch_long_double_bit (struct gdbarch
*gdbarch
,
1380 int long_double_bit
)
1382 gdbarch
->long_double_bit
= long_double_bit
;
1385 const struct floatformat
**
1386 gdbarch_long_double_format (struct gdbarch
*gdbarch
)
1388 gdb_assert (gdbarch
!= NULL
);
1389 if (gdbarch_debug
>= 2)
1390 fprintf_unfiltered (gdb_stdlog
, "gdbarch_long_double_format called\n");
1391 return gdbarch
->long_double_format
;
1395 set_gdbarch_long_double_format (struct gdbarch
*gdbarch
,
1396 const struct floatformat
** long_double_format
)
1398 gdbarch
->long_double_format
= long_double_format
;
1402 gdbarch_ptr_bit (struct gdbarch
*gdbarch
)
1404 gdb_assert (gdbarch
!= NULL
);
1405 /* Skip verify of ptr_bit, invalid_p == 0 */
1406 if (gdbarch_debug
>= 2)
1407 fprintf_unfiltered (gdb_stdlog
, "gdbarch_ptr_bit called\n");
1408 return gdbarch
->ptr_bit
;
1412 set_gdbarch_ptr_bit (struct gdbarch
*gdbarch
,
1415 gdbarch
->ptr_bit
= ptr_bit
;
1419 gdbarch_addr_bit (struct gdbarch
*gdbarch
)
1421 gdb_assert (gdbarch
!= NULL
);
1422 /* Check variable changed from pre-default. */
1423 gdb_assert (gdbarch
->addr_bit
!= 0);
1424 if (gdbarch_debug
>= 2)
1425 fprintf_unfiltered (gdb_stdlog
, "gdbarch_addr_bit called\n");
1426 return gdbarch
->addr_bit
;
1430 set_gdbarch_addr_bit (struct gdbarch
*gdbarch
,
1433 gdbarch
->addr_bit
= addr_bit
;
1437 gdbarch_char_signed (struct gdbarch
*gdbarch
)
1439 gdb_assert (gdbarch
!= NULL
);
1440 /* Check variable changed from pre-default. */
1441 gdb_assert (gdbarch
->char_signed
!= -1);
1442 if (gdbarch_debug
>= 2)
1443 fprintf_unfiltered (gdb_stdlog
, "gdbarch_char_signed called\n");
1444 return gdbarch
->char_signed
;
1448 set_gdbarch_char_signed (struct gdbarch
*gdbarch
,
1451 gdbarch
->char_signed
= char_signed
;
1455 gdbarch_read_pc_p (struct gdbarch
*gdbarch
)
1457 gdb_assert (gdbarch
!= NULL
);
1458 return gdbarch
->read_pc
!= NULL
;
1462 gdbarch_read_pc (struct gdbarch
*gdbarch
, struct regcache
*regcache
)
1464 gdb_assert (gdbarch
!= NULL
);
1465 gdb_assert (gdbarch
->read_pc
!= NULL
);
1466 if (gdbarch_debug
>= 2)
1467 fprintf_unfiltered (gdb_stdlog
, "gdbarch_read_pc called\n");
1468 return gdbarch
->read_pc (regcache
);
1472 set_gdbarch_read_pc (struct gdbarch
*gdbarch
,
1473 gdbarch_read_pc_ftype read_pc
)
1475 gdbarch
->read_pc
= read_pc
;
1479 gdbarch_write_pc_p (struct gdbarch
*gdbarch
)
1481 gdb_assert (gdbarch
!= NULL
);
1482 return gdbarch
->write_pc
!= NULL
;
1486 gdbarch_write_pc (struct gdbarch
*gdbarch
, struct regcache
*regcache
, CORE_ADDR val
)
1488 gdb_assert (gdbarch
!= NULL
);
1489 gdb_assert (gdbarch
->write_pc
!= NULL
);
1490 if (gdbarch_debug
>= 2)
1491 fprintf_unfiltered (gdb_stdlog
, "gdbarch_write_pc called\n");
1492 gdbarch
->write_pc (regcache
, val
);
1496 set_gdbarch_write_pc (struct gdbarch
*gdbarch
,
1497 gdbarch_write_pc_ftype write_pc
)
1499 gdbarch
->write_pc
= write_pc
;
1503 gdbarch_virtual_frame_pointer (struct gdbarch
*gdbarch
, CORE_ADDR pc
, int *frame_regnum
, LONGEST
*frame_offset
)
1505 gdb_assert (gdbarch
!= NULL
);
1506 gdb_assert (gdbarch
->virtual_frame_pointer
!= NULL
);
1507 if (gdbarch_debug
>= 2)
1508 fprintf_unfiltered (gdb_stdlog
, "gdbarch_virtual_frame_pointer called\n");
1509 gdbarch
->virtual_frame_pointer (gdbarch
, pc
, frame_regnum
, frame_offset
);
1513 set_gdbarch_virtual_frame_pointer (struct gdbarch
*gdbarch
,
1514 gdbarch_virtual_frame_pointer_ftype virtual_frame_pointer
)
1516 gdbarch
->virtual_frame_pointer
= virtual_frame_pointer
;
1520 gdbarch_pseudo_register_read_p (struct gdbarch
*gdbarch
)
1522 gdb_assert (gdbarch
!= NULL
);
1523 return gdbarch
->pseudo_register_read
!= NULL
;
1527 gdbarch_pseudo_register_read (struct gdbarch
*gdbarch
, struct regcache
*regcache
, int cookednum
, gdb_byte
*buf
)
1529 gdb_assert (gdbarch
!= NULL
);
1530 gdb_assert (gdbarch
->pseudo_register_read
!= NULL
);
1531 if (gdbarch_debug
>= 2)
1532 fprintf_unfiltered (gdb_stdlog
, "gdbarch_pseudo_register_read called\n");
1533 gdbarch
->pseudo_register_read (gdbarch
, regcache
, cookednum
, buf
);
1537 set_gdbarch_pseudo_register_read (struct gdbarch
*gdbarch
,
1538 gdbarch_pseudo_register_read_ftype pseudo_register_read
)
1540 gdbarch
->pseudo_register_read
= pseudo_register_read
;
1544 gdbarch_pseudo_register_write_p (struct gdbarch
*gdbarch
)
1546 gdb_assert (gdbarch
!= NULL
);
1547 return gdbarch
->pseudo_register_write
!= NULL
;
1551 gdbarch_pseudo_register_write (struct gdbarch
*gdbarch
, struct regcache
*regcache
, int cookednum
, const gdb_byte
*buf
)
1553 gdb_assert (gdbarch
!= NULL
);
1554 gdb_assert (gdbarch
->pseudo_register_write
!= NULL
);
1555 if (gdbarch_debug
>= 2)
1556 fprintf_unfiltered (gdb_stdlog
, "gdbarch_pseudo_register_write called\n");
1557 gdbarch
->pseudo_register_write (gdbarch
, regcache
, cookednum
, buf
);
1561 set_gdbarch_pseudo_register_write (struct gdbarch
*gdbarch
,
1562 gdbarch_pseudo_register_write_ftype pseudo_register_write
)
1564 gdbarch
->pseudo_register_write
= pseudo_register_write
;
1568 gdbarch_num_regs (struct gdbarch
*gdbarch
)
1570 gdb_assert (gdbarch
!= NULL
);
1571 /* Check variable changed from pre-default. */
1572 gdb_assert (gdbarch
->num_regs
!= -1);
1573 if (gdbarch_debug
>= 2)
1574 fprintf_unfiltered (gdb_stdlog
, "gdbarch_num_regs called\n");
1575 return gdbarch
->num_regs
;
1579 set_gdbarch_num_regs (struct gdbarch
*gdbarch
,
1582 gdbarch
->num_regs
= num_regs
;
1586 gdbarch_num_pseudo_regs (struct gdbarch
*gdbarch
)
1588 gdb_assert (gdbarch
!= NULL
);
1589 /* Skip verify of num_pseudo_regs, invalid_p == 0 */
1590 if (gdbarch_debug
>= 2)
1591 fprintf_unfiltered (gdb_stdlog
, "gdbarch_num_pseudo_regs called\n");
1592 return gdbarch
->num_pseudo_regs
;
1596 set_gdbarch_num_pseudo_regs (struct gdbarch
*gdbarch
,
1597 int num_pseudo_regs
)
1599 gdbarch
->num_pseudo_regs
= num_pseudo_regs
;
1603 gdbarch_sp_regnum (struct gdbarch
*gdbarch
)
1605 gdb_assert (gdbarch
!= NULL
);
1606 /* Skip verify of sp_regnum, invalid_p == 0 */
1607 if (gdbarch_debug
>= 2)
1608 fprintf_unfiltered (gdb_stdlog
, "gdbarch_sp_regnum called\n");
1609 return gdbarch
->sp_regnum
;
1613 set_gdbarch_sp_regnum (struct gdbarch
*gdbarch
,
1616 gdbarch
->sp_regnum
= sp_regnum
;
1620 gdbarch_pc_regnum (struct gdbarch
*gdbarch
)
1622 gdb_assert (gdbarch
!= NULL
);
1623 /* Skip verify of pc_regnum, invalid_p == 0 */
1624 if (gdbarch_debug
>= 2)
1625 fprintf_unfiltered (gdb_stdlog
, "gdbarch_pc_regnum called\n");
1626 return gdbarch
->pc_regnum
;
1630 set_gdbarch_pc_regnum (struct gdbarch
*gdbarch
,
1633 gdbarch
->pc_regnum
= pc_regnum
;
1637 gdbarch_ps_regnum (struct gdbarch
*gdbarch
)
1639 gdb_assert (gdbarch
!= NULL
);
1640 /* Skip verify of ps_regnum, invalid_p == 0 */
1641 if (gdbarch_debug
>= 2)
1642 fprintf_unfiltered (gdb_stdlog
, "gdbarch_ps_regnum called\n");
1643 return gdbarch
->ps_regnum
;
1647 set_gdbarch_ps_regnum (struct gdbarch
*gdbarch
,
1650 gdbarch
->ps_regnum
= ps_regnum
;
1654 gdbarch_fp0_regnum (struct gdbarch
*gdbarch
)
1656 gdb_assert (gdbarch
!= NULL
);
1657 /* Skip verify of fp0_regnum, invalid_p == 0 */
1658 if (gdbarch_debug
>= 2)
1659 fprintf_unfiltered (gdb_stdlog
, "gdbarch_fp0_regnum called\n");
1660 return gdbarch
->fp0_regnum
;
1664 set_gdbarch_fp0_regnum (struct gdbarch
*gdbarch
,
1667 gdbarch
->fp0_regnum
= fp0_regnum
;
1671 gdbarch_stab_reg_to_regnum (struct gdbarch
*gdbarch
, int stab_regnr
)
1673 gdb_assert (gdbarch
!= NULL
);
1674 gdb_assert (gdbarch
->stab_reg_to_regnum
!= NULL
);
1675 if (gdbarch_debug
>= 2)
1676 fprintf_unfiltered (gdb_stdlog
, "gdbarch_stab_reg_to_regnum called\n");
1677 return gdbarch
->stab_reg_to_regnum (gdbarch
, stab_regnr
);
1681 set_gdbarch_stab_reg_to_regnum (struct gdbarch
*gdbarch
,
1682 gdbarch_stab_reg_to_regnum_ftype stab_reg_to_regnum
)
1684 gdbarch
->stab_reg_to_regnum
= stab_reg_to_regnum
;
1688 gdbarch_ecoff_reg_to_regnum (struct gdbarch
*gdbarch
, int ecoff_regnr
)
1690 gdb_assert (gdbarch
!= NULL
);
1691 gdb_assert (gdbarch
->ecoff_reg_to_regnum
!= NULL
);
1692 if (gdbarch_debug
>= 2)
1693 fprintf_unfiltered (gdb_stdlog
, "gdbarch_ecoff_reg_to_regnum called\n");
1694 return gdbarch
->ecoff_reg_to_regnum (gdbarch
, ecoff_regnr
);
1698 set_gdbarch_ecoff_reg_to_regnum (struct gdbarch
*gdbarch
,
1699 gdbarch_ecoff_reg_to_regnum_ftype ecoff_reg_to_regnum
)
1701 gdbarch
->ecoff_reg_to_regnum
= ecoff_reg_to_regnum
;
1705 gdbarch_sdb_reg_to_regnum (struct gdbarch
*gdbarch
, int sdb_regnr
)
1707 gdb_assert (gdbarch
!= NULL
);
1708 gdb_assert (gdbarch
->sdb_reg_to_regnum
!= NULL
);
1709 if (gdbarch_debug
>= 2)
1710 fprintf_unfiltered (gdb_stdlog
, "gdbarch_sdb_reg_to_regnum called\n");
1711 return gdbarch
->sdb_reg_to_regnum (gdbarch
, sdb_regnr
);
1715 set_gdbarch_sdb_reg_to_regnum (struct gdbarch
*gdbarch
,
1716 gdbarch_sdb_reg_to_regnum_ftype sdb_reg_to_regnum
)
1718 gdbarch
->sdb_reg_to_regnum
= sdb_reg_to_regnum
;
1722 gdbarch_dwarf2_reg_to_regnum (struct gdbarch
*gdbarch
, int dwarf2_regnr
)
1724 gdb_assert (gdbarch
!= NULL
);
1725 gdb_assert (gdbarch
->dwarf2_reg_to_regnum
!= NULL
);
1726 if (gdbarch_debug
>= 2)
1727 fprintf_unfiltered (gdb_stdlog
, "gdbarch_dwarf2_reg_to_regnum called\n");
1728 return gdbarch
->dwarf2_reg_to_regnum (gdbarch
, dwarf2_regnr
);
1732 set_gdbarch_dwarf2_reg_to_regnum (struct gdbarch
*gdbarch
,
1733 gdbarch_dwarf2_reg_to_regnum_ftype dwarf2_reg_to_regnum
)
1735 gdbarch
->dwarf2_reg_to_regnum
= dwarf2_reg_to_regnum
;
1739 gdbarch_register_name (struct gdbarch
*gdbarch
, int regnr
)
1741 gdb_assert (gdbarch
!= NULL
);
1742 gdb_assert (gdbarch
->register_name
!= NULL
);
1743 if (gdbarch_debug
>= 2)
1744 fprintf_unfiltered (gdb_stdlog
, "gdbarch_register_name called\n");
1745 return gdbarch
->register_name (gdbarch
, regnr
);
1749 set_gdbarch_register_name (struct gdbarch
*gdbarch
,
1750 gdbarch_register_name_ftype register_name
)
1752 gdbarch
->register_name
= register_name
;
1756 gdbarch_register_type_p (struct gdbarch
*gdbarch
)
1758 gdb_assert (gdbarch
!= NULL
);
1759 return gdbarch
->register_type
!= NULL
;
1763 gdbarch_register_type (struct gdbarch
*gdbarch
, int reg_nr
)
1765 gdb_assert (gdbarch
!= NULL
);
1766 gdb_assert (gdbarch
->register_type
!= NULL
);
1767 if (gdbarch_debug
>= 2)
1768 fprintf_unfiltered (gdb_stdlog
, "gdbarch_register_type called\n");
1769 return gdbarch
->register_type (gdbarch
, reg_nr
);
1773 set_gdbarch_register_type (struct gdbarch
*gdbarch
,
1774 gdbarch_register_type_ftype register_type
)
1776 gdbarch
->register_type
= register_type
;
1780 gdbarch_dummy_id_p (struct gdbarch
*gdbarch
)
1782 gdb_assert (gdbarch
!= NULL
);
1783 return gdbarch
->dummy_id
!= NULL
;
1787 gdbarch_dummy_id (struct gdbarch
*gdbarch
, struct frame_info
*this_frame
)
1789 gdb_assert (gdbarch
!= NULL
);
1790 gdb_assert (gdbarch
->dummy_id
!= NULL
);
1791 if (gdbarch_debug
>= 2)
1792 fprintf_unfiltered (gdb_stdlog
, "gdbarch_dummy_id called\n");
1793 return gdbarch
->dummy_id (gdbarch
, this_frame
);
1797 set_gdbarch_dummy_id (struct gdbarch
*gdbarch
,
1798 gdbarch_dummy_id_ftype dummy_id
)
1800 gdbarch
->dummy_id
= dummy_id
;
1804 gdbarch_deprecated_fp_regnum (struct gdbarch
*gdbarch
)
1806 gdb_assert (gdbarch
!= NULL
);
1807 /* Skip verify of deprecated_fp_regnum, invalid_p == 0 */
1808 if (gdbarch_debug
>= 2)
1809 fprintf_unfiltered (gdb_stdlog
, "gdbarch_deprecated_fp_regnum called\n");
1810 return gdbarch
->deprecated_fp_regnum
;
1814 set_gdbarch_deprecated_fp_regnum (struct gdbarch
*gdbarch
,
1815 int deprecated_fp_regnum
)
1817 gdbarch
->deprecated_fp_regnum
= deprecated_fp_regnum
;
1821 gdbarch_push_dummy_call_p (struct gdbarch
*gdbarch
)
1823 gdb_assert (gdbarch
!= NULL
);
1824 return gdbarch
->push_dummy_call
!= NULL
;
1828 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
)
1830 gdb_assert (gdbarch
!= NULL
);
1831 gdb_assert (gdbarch
->push_dummy_call
!= NULL
);
1832 if (gdbarch_debug
>= 2)
1833 fprintf_unfiltered (gdb_stdlog
, "gdbarch_push_dummy_call called\n");
1834 return gdbarch
->push_dummy_call (gdbarch
, function
, regcache
, bp_addr
, nargs
, args
, sp
, struct_return
, struct_addr
);
1838 set_gdbarch_push_dummy_call (struct gdbarch
*gdbarch
,
1839 gdbarch_push_dummy_call_ftype push_dummy_call
)
1841 gdbarch
->push_dummy_call
= push_dummy_call
;
1845 gdbarch_call_dummy_location (struct gdbarch
*gdbarch
)
1847 gdb_assert (gdbarch
!= NULL
);
1848 /* Skip verify of call_dummy_location, invalid_p == 0 */
1849 if (gdbarch_debug
>= 2)
1850 fprintf_unfiltered (gdb_stdlog
, "gdbarch_call_dummy_location called\n");
1851 return gdbarch
->call_dummy_location
;
1855 set_gdbarch_call_dummy_location (struct gdbarch
*gdbarch
,
1856 int call_dummy_location
)
1858 gdbarch
->call_dummy_location
= call_dummy_location
;
1862 gdbarch_push_dummy_code_p (struct gdbarch
*gdbarch
)
1864 gdb_assert (gdbarch
!= NULL
);
1865 return gdbarch
->push_dummy_code
!= NULL
;
1869 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
)
1871 gdb_assert (gdbarch
!= NULL
);
1872 gdb_assert (gdbarch
->push_dummy_code
!= NULL
);
1873 if (gdbarch_debug
>= 2)
1874 fprintf_unfiltered (gdb_stdlog
, "gdbarch_push_dummy_code called\n");
1875 return gdbarch
->push_dummy_code (gdbarch
, sp
, funaddr
, args
, nargs
, value_type
, real_pc
, bp_addr
, regcache
);
1879 set_gdbarch_push_dummy_code (struct gdbarch
*gdbarch
,
1880 gdbarch_push_dummy_code_ftype push_dummy_code
)
1882 gdbarch
->push_dummy_code
= push_dummy_code
;
1886 gdbarch_print_registers_info (struct gdbarch
*gdbarch
, struct ui_file
*file
, struct frame_info
*frame
, int regnum
, int all
)
1888 gdb_assert (gdbarch
!= NULL
);
1889 gdb_assert (gdbarch
->print_registers_info
!= NULL
);
1890 if (gdbarch_debug
>= 2)
1891 fprintf_unfiltered (gdb_stdlog
, "gdbarch_print_registers_info called\n");
1892 gdbarch
->print_registers_info (gdbarch
, file
, frame
, regnum
, all
);
1896 set_gdbarch_print_registers_info (struct gdbarch
*gdbarch
,
1897 gdbarch_print_registers_info_ftype print_registers_info
)
1899 gdbarch
->print_registers_info
= print_registers_info
;
1903 gdbarch_print_float_info_p (struct gdbarch
*gdbarch
)
1905 gdb_assert (gdbarch
!= NULL
);
1906 return gdbarch
->print_float_info
!= NULL
;
1910 gdbarch_print_float_info (struct gdbarch
*gdbarch
, struct ui_file
*file
, struct frame_info
*frame
, const char *args
)
1912 gdb_assert (gdbarch
!= NULL
);
1913 gdb_assert (gdbarch
->print_float_info
!= NULL
);
1914 if (gdbarch_debug
>= 2)
1915 fprintf_unfiltered (gdb_stdlog
, "gdbarch_print_float_info called\n");
1916 gdbarch
->print_float_info (gdbarch
, file
, frame
, args
);
1920 set_gdbarch_print_float_info (struct gdbarch
*gdbarch
,
1921 gdbarch_print_float_info_ftype print_float_info
)
1923 gdbarch
->print_float_info
= print_float_info
;
1927 gdbarch_print_vector_info_p (struct gdbarch
*gdbarch
)
1929 gdb_assert (gdbarch
!= NULL
);
1930 return gdbarch
->print_vector_info
!= NULL
;
1934 gdbarch_print_vector_info (struct gdbarch
*gdbarch
, struct ui_file
*file
, struct frame_info
*frame
, const char *args
)
1936 gdb_assert (gdbarch
!= NULL
);
1937 gdb_assert (gdbarch
->print_vector_info
!= NULL
);
1938 if (gdbarch_debug
>= 2)
1939 fprintf_unfiltered (gdb_stdlog
, "gdbarch_print_vector_info called\n");
1940 gdbarch
->print_vector_info (gdbarch
, file
, frame
, args
);
1944 set_gdbarch_print_vector_info (struct gdbarch
*gdbarch
,
1945 gdbarch_print_vector_info_ftype print_vector_info
)
1947 gdbarch
->print_vector_info
= print_vector_info
;
1951 gdbarch_register_sim_regno (struct gdbarch
*gdbarch
, int reg_nr
)
1953 gdb_assert (gdbarch
!= NULL
);
1954 gdb_assert (gdbarch
->register_sim_regno
!= NULL
);
1955 if (gdbarch_debug
>= 2)
1956 fprintf_unfiltered (gdb_stdlog
, "gdbarch_register_sim_regno called\n");
1957 return gdbarch
->register_sim_regno (gdbarch
, reg_nr
);
1961 set_gdbarch_register_sim_regno (struct gdbarch
*gdbarch
,
1962 gdbarch_register_sim_regno_ftype register_sim_regno
)
1964 gdbarch
->register_sim_regno
= register_sim_regno
;
1968 gdbarch_cannot_fetch_register (struct gdbarch
*gdbarch
, int regnum
)
1970 gdb_assert (gdbarch
!= NULL
);
1971 gdb_assert (gdbarch
->cannot_fetch_register
!= NULL
);
1972 if (gdbarch_debug
>= 2)
1973 fprintf_unfiltered (gdb_stdlog
, "gdbarch_cannot_fetch_register called\n");
1974 return gdbarch
->cannot_fetch_register (gdbarch
, regnum
);
1978 set_gdbarch_cannot_fetch_register (struct gdbarch
*gdbarch
,
1979 gdbarch_cannot_fetch_register_ftype cannot_fetch_register
)
1981 gdbarch
->cannot_fetch_register
= cannot_fetch_register
;
1985 gdbarch_cannot_store_register (struct gdbarch
*gdbarch
, int regnum
)
1987 gdb_assert (gdbarch
!= NULL
);
1988 gdb_assert (gdbarch
->cannot_store_register
!= NULL
);
1989 if (gdbarch_debug
>= 2)
1990 fprintf_unfiltered (gdb_stdlog
, "gdbarch_cannot_store_register called\n");
1991 return gdbarch
->cannot_store_register (gdbarch
, regnum
);
1995 set_gdbarch_cannot_store_register (struct gdbarch
*gdbarch
,
1996 gdbarch_cannot_store_register_ftype cannot_store_register
)
1998 gdbarch
->cannot_store_register
= cannot_store_register
;
2002 gdbarch_get_longjmp_target_p (struct gdbarch
*gdbarch
)
2004 gdb_assert (gdbarch
!= NULL
);
2005 return gdbarch
->get_longjmp_target
!= NULL
;
2009 gdbarch_get_longjmp_target (struct gdbarch
*gdbarch
, struct frame_info
*frame
, CORE_ADDR
*pc
)
2011 gdb_assert (gdbarch
!= NULL
);
2012 gdb_assert (gdbarch
->get_longjmp_target
!= NULL
);
2013 if (gdbarch_debug
>= 2)
2014 fprintf_unfiltered (gdb_stdlog
, "gdbarch_get_longjmp_target called\n");
2015 return gdbarch
->get_longjmp_target (frame
, pc
);
2019 set_gdbarch_get_longjmp_target (struct gdbarch
*gdbarch
,
2020 gdbarch_get_longjmp_target_ftype get_longjmp_target
)
2022 gdbarch
->get_longjmp_target
= get_longjmp_target
;
2026 gdbarch_believe_pcc_promotion (struct gdbarch
*gdbarch
)
2028 gdb_assert (gdbarch
!= NULL
);
2029 if (gdbarch_debug
>= 2)
2030 fprintf_unfiltered (gdb_stdlog
, "gdbarch_believe_pcc_promotion called\n");
2031 return gdbarch
->believe_pcc_promotion
;
2035 set_gdbarch_believe_pcc_promotion (struct gdbarch
*gdbarch
,
2036 int believe_pcc_promotion
)
2038 gdbarch
->believe_pcc_promotion
= believe_pcc_promotion
;
2042 gdbarch_convert_register_p (struct gdbarch
*gdbarch
, int regnum
, struct type
*type
)
2044 gdb_assert (gdbarch
!= NULL
);
2045 gdb_assert (gdbarch
->convert_register_p
!= NULL
);
2046 if (gdbarch_debug
>= 2)
2047 fprintf_unfiltered (gdb_stdlog
, "gdbarch_convert_register_p called\n");
2048 return gdbarch
->convert_register_p (gdbarch
, regnum
, type
);
2052 set_gdbarch_convert_register_p (struct gdbarch
*gdbarch
,
2053 gdbarch_convert_register_p_ftype convert_register_p
)
2055 gdbarch
->convert_register_p
= convert_register_p
;
2059 gdbarch_register_to_value (struct gdbarch
*gdbarch
, struct frame_info
*frame
, int regnum
, struct type
*type
, gdb_byte
*buf
)
2061 gdb_assert (gdbarch
!= NULL
);
2062 gdb_assert (gdbarch
->register_to_value
!= NULL
);
2063 if (gdbarch_debug
>= 2)
2064 fprintf_unfiltered (gdb_stdlog
, "gdbarch_register_to_value called\n");
2065 gdbarch
->register_to_value (frame
, regnum
, type
, buf
);
2069 set_gdbarch_register_to_value (struct gdbarch
*gdbarch
,
2070 gdbarch_register_to_value_ftype register_to_value
)
2072 gdbarch
->register_to_value
= register_to_value
;
2076 gdbarch_value_to_register (struct gdbarch
*gdbarch
, struct frame_info
*frame
, int regnum
, struct type
*type
, const gdb_byte
*buf
)
2078 gdb_assert (gdbarch
!= NULL
);
2079 gdb_assert (gdbarch
->value_to_register
!= NULL
);
2080 if (gdbarch_debug
>= 2)
2081 fprintf_unfiltered (gdb_stdlog
, "gdbarch_value_to_register called\n");
2082 gdbarch
->value_to_register (frame
, regnum
, type
, buf
);
2086 set_gdbarch_value_to_register (struct gdbarch
*gdbarch
,
2087 gdbarch_value_to_register_ftype value_to_register
)
2089 gdbarch
->value_to_register
= value_to_register
;
2093 gdbarch_value_from_register (struct gdbarch
*gdbarch
, struct type
*type
, int regnum
, struct frame_info
*frame
)
2095 gdb_assert (gdbarch
!= NULL
);
2096 gdb_assert (gdbarch
->value_from_register
!= NULL
);
2097 if (gdbarch_debug
>= 2)
2098 fprintf_unfiltered (gdb_stdlog
, "gdbarch_value_from_register called\n");
2099 return gdbarch
->value_from_register (type
, regnum
, frame
);
2103 set_gdbarch_value_from_register (struct gdbarch
*gdbarch
,
2104 gdbarch_value_from_register_ftype value_from_register
)
2106 gdbarch
->value_from_register
= value_from_register
;
2110 gdbarch_pointer_to_address (struct gdbarch
*gdbarch
, struct type
*type
, const gdb_byte
*buf
)
2112 gdb_assert (gdbarch
!= NULL
);
2113 gdb_assert (gdbarch
->pointer_to_address
!= NULL
);
2114 if (gdbarch_debug
>= 2)
2115 fprintf_unfiltered (gdb_stdlog
, "gdbarch_pointer_to_address called\n");
2116 return gdbarch
->pointer_to_address (gdbarch
, type
, buf
);
2120 set_gdbarch_pointer_to_address (struct gdbarch
*gdbarch
,
2121 gdbarch_pointer_to_address_ftype pointer_to_address
)
2123 gdbarch
->pointer_to_address
= pointer_to_address
;
2127 gdbarch_address_to_pointer (struct gdbarch
*gdbarch
, struct type
*type
, gdb_byte
*buf
, CORE_ADDR addr
)
2129 gdb_assert (gdbarch
!= NULL
);
2130 gdb_assert (gdbarch
->address_to_pointer
!= NULL
);
2131 if (gdbarch_debug
>= 2)
2132 fprintf_unfiltered (gdb_stdlog
, "gdbarch_address_to_pointer called\n");
2133 gdbarch
->address_to_pointer (gdbarch
, type
, buf
, addr
);
2137 set_gdbarch_address_to_pointer (struct gdbarch
*gdbarch
,
2138 gdbarch_address_to_pointer_ftype address_to_pointer
)
2140 gdbarch
->address_to_pointer
= address_to_pointer
;
2144 gdbarch_integer_to_address_p (struct gdbarch
*gdbarch
)
2146 gdb_assert (gdbarch
!= NULL
);
2147 return gdbarch
->integer_to_address
!= NULL
;
2151 gdbarch_integer_to_address (struct gdbarch
*gdbarch
, struct type
*type
, const gdb_byte
*buf
)
2153 gdb_assert (gdbarch
!= NULL
);
2154 gdb_assert (gdbarch
->integer_to_address
!= NULL
);
2155 if (gdbarch_debug
>= 2)
2156 fprintf_unfiltered (gdb_stdlog
, "gdbarch_integer_to_address called\n");
2157 return gdbarch
->integer_to_address (gdbarch
, type
, buf
);
2161 set_gdbarch_integer_to_address (struct gdbarch
*gdbarch
,
2162 gdbarch_integer_to_address_ftype integer_to_address
)
2164 gdbarch
->integer_to_address
= integer_to_address
;
2168 gdbarch_return_value_p (struct gdbarch
*gdbarch
)
2170 gdb_assert (gdbarch
!= NULL
);
2171 return gdbarch
->return_value
!= NULL
;
2174 enum return_value_convention
2175 gdbarch_return_value (struct gdbarch
*gdbarch
, struct type
*functype
, struct type
*valtype
, struct regcache
*regcache
, gdb_byte
*readbuf
, const gdb_byte
*writebuf
)
2177 gdb_assert (gdbarch
!= NULL
);
2178 gdb_assert (gdbarch
->return_value
!= NULL
);
2179 if (gdbarch_debug
>= 2)
2180 fprintf_unfiltered (gdb_stdlog
, "gdbarch_return_value called\n");
2181 return gdbarch
->return_value (gdbarch
, functype
, valtype
, regcache
, readbuf
, writebuf
);
2185 set_gdbarch_return_value (struct gdbarch
*gdbarch
,
2186 gdbarch_return_value_ftype return_value
)
2188 gdbarch
->return_value
= return_value
;
2192 gdbarch_skip_prologue (struct gdbarch
*gdbarch
, CORE_ADDR ip
)
2194 gdb_assert (gdbarch
!= NULL
);
2195 gdb_assert (gdbarch
->skip_prologue
!= NULL
);
2196 if (gdbarch_debug
>= 2)
2197 fprintf_unfiltered (gdb_stdlog
, "gdbarch_skip_prologue called\n");
2198 return gdbarch
->skip_prologue (gdbarch
, ip
);
2202 set_gdbarch_skip_prologue (struct gdbarch
*gdbarch
,
2203 gdbarch_skip_prologue_ftype skip_prologue
)
2205 gdbarch
->skip_prologue
= skip_prologue
;
2209 gdbarch_skip_main_prologue_p (struct gdbarch
*gdbarch
)
2211 gdb_assert (gdbarch
!= NULL
);
2212 return gdbarch
->skip_main_prologue
!= NULL
;
2216 gdbarch_skip_main_prologue (struct gdbarch
*gdbarch
, CORE_ADDR ip
)
2218 gdb_assert (gdbarch
!= NULL
);
2219 gdb_assert (gdbarch
->skip_main_prologue
!= NULL
);
2220 if (gdbarch_debug
>= 2)
2221 fprintf_unfiltered (gdb_stdlog
, "gdbarch_skip_main_prologue called\n");
2222 return gdbarch
->skip_main_prologue (gdbarch
, ip
);
2226 set_gdbarch_skip_main_prologue (struct gdbarch
*gdbarch
,
2227 gdbarch_skip_main_prologue_ftype skip_main_prologue
)
2229 gdbarch
->skip_main_prologue
= skip_main_prologue
;
2233 gdbarch_inner_than (struct gdbarch
*gdbarch
, CORE_ADDR lhs
, CORE_ADDR rhs
)
2235 gdb_assert (gdbarch
!= NULL
);
2236 gdb_assert (gdbarch
->inner_than
!= NULL
);
2237 if (gdbarch_debug
>= 2)
2238 fprintf_unfiltered (gdb_stdlog
, "gdbarch_inner_than called\n");
2239 return gdbarch
->inner_than (lhs
, rhs
);
2243 set_gdbarch_inner_than (struct gdbarch
*gdbarch
,
2244 gdbarch_inner_than_ftype inner_than
)
2246 gdbarch
->inner_than
= inner_than
;
2250 gdbarch_breakpoint_from_pc (struct gdbarch
*gdbarch
, CORE_ADDR
*pcptr
, int *lenptr
)
2252 gdb_assert (gdbarch
!= NULL
);
2253 gdb_assert (gdbarch
->breakpoint_from_pc
!= NULL
);
2254 if (gdbarch_debug
>= 2)
2255 fprintf_unfiltered (gdb_stdlog
, "gdbarch_breakpoint_from_pc called\n");
2256 return gdbarch
->breakpoint_from_pc (gdbarch
, pcptr
, lenptr
);
2260 set_gdbarch_breakpoint_from_pc (struct gdbarch
*gdbarch
,
2261 gdbarch_breakpoint_from_pc_ftype breakpoint_from_pc
)
2263 gdbarch
->breakpoint_from_pc
= breakpoint_from_pc
;
2267 gdbarch_adjust_breakpoint_address_p (struct gdbarch
*gdbarch
)
2269 gdb_assert (gdbarch
!= NULL
);
2270 return gdbarch
->adjust_breakpoint_address
!= NULL
;
2274 gdbarch_adjust_breakpoint_address (struct gdbarch
*gdbarch
, CORE_ADDR bpaddr
)
2276 gdb_assert (gdbarch
!= NULL
);
2277 gdb_assert (gdbarch
->adjust_breakpoint_address
!= NULL
);
2278 if (gdbarch_debug
>= 2)
2279 fprintf_unfiltered (gdb_stdlog
, "gdbarch_adjust_breakpoint_address called\n");
2280 return gdbarch
->adjust_breakpoint_address (gdbarch
, bpaddr
);
2284 set_gdbarch_adjust_breakpoint_address (struct gdbarch
*gdbarch
,
2285 gdbarch_adjust_breakpoint_address_ftype adjust_breakpoint_address
)
2287 gdbarch
->adjust_breakpoint_address
= adjust_breakpoint_address
;
2291 gdbarch_memory_insert_breakpoint (struct gdbarch
*gdbarch
, struct bp_target_info
*bp_tgt
)
2293 gdb_assert (gdbarch
!= NULL
);
2294 gdb_assert (gdbarch
->memory_insert_breakpoint
!= NULL
);
2295 if (gdbarch_debug
>= 2)
2296 fprintf_unfiltered (gdb_stdlog
, "gdbarch_memory_insert_breakpoint called\n");
2297 return gdbarch
->memory_insert_breakpoint (gdbarch
, bp_tgt
);
2301 set_gdbarch_memory_insert_breakpoint (struct gdbarch
*gdbarch
,
2302 gdbarch_memory_insert_breakpoint_ftype memory_insert_breakpoint
)
2304 gdbarch
->memory_insert_breakpoint
= memory_insert_breakpoint
;
2308 gdbarch_memory_remove_breakpoint (struct gdbarch
*gdbarch
, struct bp_target_info
*bp_tgt
)
2310 gdb_assert (gdbarch
!= NULL
);
2311 gdb_assert (gdbarch
->memory_remove_breakpoint
!= NULL
);
2312 if (gdbarch_debug
>= 2)
2313 fprintf_unfiltered (gdb_stdlog
, "gdbarch_memory_remove_breakpoint called\n");
2314 return gdbarch
->memory_remove_breakpoint (gdbarch
, bp_tgt
);
2318 set_gdbarch_memory_remove_breakpoint (struct gdbarch
*gdbarch
,
2319 gdbarch_memory_remove_breakpoint_ftype memory_remove_breakpoint
)
2321 gdbarch
->memory_remove_breakpoint
= memory_remove_breakpoint
;
2325 gdbarch_decr_pc_after_break (struct gdbarch
*gdbarch
)
2327 gdb_assert (gdbarch
!= NULL
);
2328 /* Skip verify of decr_pc_after_break, invalid_p == 0 */
2329 if (gdbarch_debug
>= 2)
2330 fprintf_unfiltered (gdb_stdlog
, "gdbarch_decr_pc_after_break called\n");
2331 return gdbarch
->decr_pc_after_break
;
2335 set_gdbarch_decr_pc_after_break (struct gdbarch
*gdbarch
,
2336 CORE_ADDR decr_pc_after_break
)
2338 gdbarch
->decr_pc_after_break
= decr_pc_after_break
;
2342 gdbarch_deprecated_function_start_offset (struct gdbarch
*gdbarch
)
2344 gdb_assert (gdbarch
!= NULL
);
2345 /* Skip verify of deprecated_function_start_offset, invalid_p == 0 */
2346 if (gdbarch_debug
>= 2)
2347 fprintf_unfiltered (gdb_stdlog
, "gdbarch_deprecated_function_start_offset called\n");
2348 return gdbarch
->deprecated_function_start_offset
;
2352 set_gdbarch_deprecated_function_start_offset (struct gdbarch
*gdbarch
,
2353 CORE_ADDR deprecated_function_start_offset
)
2355 gdbarch
->deprecated_function_start_offset
= deprecated_function_start_offset
;
2359 gdbarch_remote_register_number (struct gdbarch
*gdbarch
, int regno
)
2361 gdb_assert (gdbarch
!= NULL
);
2362 gdb_assert (gdbarch
->remote_register_number
!= NULL
);
2363 if (gdbarch_debug
>= 2)
2364 fprintf_unfiltered (gdb_stdlog
, "gdbarch_remote_register_number called\n");
2365 return gdbarch
->remote_register_number (gdbarch
, regno
);
2369 set_gdbarch_remote_register_number (struct gdbarch
*gdbarch
,
2370 gdbarch_remote_register_number_ftype remote_register_number
)
2372 gdbarch
->remote_register_number
= remote_register_number
;
2376 gdbarch_fetch_tls_load_module_address_p (struct gdbarch
*gdbarch
)
2378 gdb_assert (gdbarch
!= NULL
);
2379 return gdbarch
->fetch_tls_load_module_address
!= NULL
;
2383 gdbarch_fetch_tls_load_module_address (struct gdbarch
*gdbarch
, struct objfile
*objfile
)
2385 gdb_assert (gdbarch
!= NULL
);
2386 gdb_assert (gdbarch
->fetch_tls_load_module_address
!= NULL
);
2387 if (gdbarch_debug
>= 2)
2388 fprintf_unfiltered (gdb_stdlog
, "gdbarch_fetch_tls_load_module_address called\n");
2389 return gdbarch
->fetch_tls_load_module_address (objfile
);
2393 set_gdbarch_fetch_tls_load_module_address (struct gdbarch
*gdbarch
,
2394 gdbarch_fetch_tls_load_module_address_ftype fetch_tls_load_module_address
)
2396 gdbarch
->fetch_tls_load_module_address
= fetch_tls_load_module_address
;
2400 gdbarch_frame_args_skip (struct gdbarch
*gdbarch
)
2402 gdb_assert (gdbarch
!= NULL
);
2403 /* Skip verify of frame_args_skip, invalid_p == 0 */
2404 if (gdbarch_debug
>= 2)
2405 fprintf_unfiltered (gdb_stdlog
, "gdbarch_frame_args_skip called\n");
2406 return gdbarch
->frame_args_skip
;
2410 set_gdbarch_frame_args_skip (struct gdbarch
*gdbarch
,
2411 CORE_ADDR frame_args_skip
)
2413 gdbarch
->frame_args_skip
= frame_args_skip
;
2417 gdbarch_unwind_pc_p (struct gdbarch
*gdbarch
)
2419 gdb_assert (gdbarch
!= NULL
);
2420 return gdbarch
->unwind_pc
!= NULL
;
2424 gdbarch_unwind_pc (struct gdbarch
*gdbarch
, struct frame_info
*next_frame
)
2426 gdb_assert (gdbarch
!= NULL
);
2427 gdb_assert (gdbarch
->unwind_pc
!= NULL
);
2428 if (gdbarch_debug
>= 2)
2429 fprintf_unfiltered (gdb_stdlog
, "gdbarch_unwind_pc called\n");
2430 return gdbarch
->unwind_pc (gdbarch
, next_frame
);
2434 set_gdbarch_unwind_pc (struct gdbarch
*gdbarch
,
2435 gdbarch_unwind_pc_ftype unwind_pc
)
2437 gdbarch
->unwind_pc
= unwind_pc
;
2441 gdbarch_unwind_sp_p (struct gdbarch
*gdbarch
)
2443 gdb_assert (gdbarch
!= NULL
);
2444 return gdbarch
->unwind_sp
!= NULL
;
2448 gdbarch_unwind_sp (struct gdbarch
*gdbarch
, struct frame_info
*next_frame
)
2450 gdb_assert (gdbarch
!= NULL
);
2451 gdb_assert (gdbarch
->unwind_sp
!= NULL
);
2452 if (gdbarch_debug
>= 2)
2453 fprintf_unfiltered (gdb_stdlog
, "gdbarch_unwind_sp called\n");
2454 return gdbarch
->unwind_sp (gdbarch
, next_frame
);
2458 set_gdbarch_unwind_sp (struct gdbarch
*gdbarch
,
2459 gdbarch_unwind_sp_ftype unwind_sp
)
2461 gdbarch
->unwind_sp
= unwind_sp
;
2465 gdbarch_frame_num_args_p (struct gdbarch
*gdbarch
)
2467 gdb_assert (gdbarch
!= NULL
);
2468 return gdbarch
->frame_num_args
!= NULL
;
2472 gdbarch_frame_num_args (struct gdbarch
*gdbarch
, struct frame_info
*frame
)
2474 gdb_assert (gdbarch
!= NULL
);
2475 gdb_assert (gdbarch
->frame_num_args
!= NULL
);
2476 if (gdbarch_debug
>= 2)
2477 fprintf_unfiltered (gdb_stdlog
, "gdbarch_frame_num_args called\n");
2478 return gdbarch
->frame_num_args (frame
);
2482 set_gdbarch_frame_num_args (struct gdbarch
*gdbarch
,
2483 gdbarch_frame_num_args_ftype frame_num_args
)
2485 gdbarch
->frame_num_args
= frame_num_args
;
2489 gdbarch_frame_align_p (struct gdbarch
*gdbarch
)
2491 gdb_assert (gdbarch
!= NULL
);
2492 return gdbarch
->frame_align
!= NULL
;
2496 gdbarch_frame_align (struct gdbarch
*gdbarch
, CORE_ADDR address
)
2498 gdb_assert (gdbarch
!= NULL
);
2499 gdb_assert (gdbarch
->frame_align
!= NULL
);
2500 if (gdbarch_debug
>= 2)
2501 fprintf_unfiltered (gdb_stdlog
, "gdbarch_frame_align called\n");
2502 return gdbarch
->frame_align (gdbarch
, address
);
2506 set_gdbarch_frame_align (struct gdbarch
*gdbarch
,
2507 gdbarch_frame_align_ftype frame_align
)
2509 gdbarch
->frame_align
= frame_align
;
2513 gdbarch_stabs_argument_has_addr (struct gdbarch
*gdbarch
, struct type
*type
)
2515 gdb_assert (gdbarch
!= NULL
);
2516 gdb_assert (gdbarch
->stabs_argument_has_addr
!= NULL
);
2517 if (gdbarch_debug
>= 2)
2518 fprintf_unfiltered (gdb_stdlog
, "gdbarch_stabs_argument_has_addr called\n");
2519 return gdbarch
->stabs_argument_has_addr (gdbarch
, type
);
2523 set_gdbarch_stabs_argument_has_addr (struct gdbarch
*gdbarch
,
2524 gdbarch_stabs_argument_has_addr_ftype stabs_argument_has_addr
)
2526 gdbarch
->stabs_argument_has_addr
= stabs_argument_has_addr
;
2530 gdbarch_frame_red_zone_size (struct gdbarch
*gdbarch
)
2532 gdb_assert (gdbarch
!= NULL
);
2533 if (gdbarch_debug
>= 2)
2534 fprintf_unfiltered (gdb_stdlog
, "gdbarch_frame_red_zone_size called\n");
2535 return gdbarch
->frame_red_zone_size
;
2539 set_gdbarch_frame_red_zone_size (struct gdbarch
*gdbarch
,
2540 int frame_red_zone_size
)
2542 gdbarch
->frame_red_zone_size
= frame_red_zone_size
;
2546 gdbarch_convert_from_func_ptr_addr (struct gdbarch
*gdbarch
, CORE_ADDR addr
, struct target_ops
*targ
)
2548 gdb_assert (gdbarch
!= NULL
);
2549 gdb_assert (gdbarch
->convert_from_func_ptr_addr
!= NULL
);
2550 if (gdbarch_debug
>= 2)
2551 fprintf_unfiltered (gdb_stdlog
, "gdbarch_convert_from_func_ptr_addr called\n");
2552 return gdbarch
->convert_from_func_ptr_addr (gdbarch
, addr
, targ
);
2556 set_gdbarch_convert_from_func_ptr_addr (struct gdbarch
*gdbarch
,
2557 gdbarch_convert_from_func_ptr_addr_ftype convert_from_func_ptr_addr
)
2559 gdbarch
->convert_from_func_ptr_addr
= convert_from_func_ptr_addr
;
2563 gdbarch_addr_bits_remove (struct gdbarch
*gdbarch
, CORE_ADDR addr
)
2565 gdb_assert (gdbarch
!= NULL
);
2566 gdb_assert (gdbarch
->addr_bits_remove
!= NULL
);
2567 if (gdbarch_debug
>= 2)
2568 fprintf_unfiltered (gdb_stdlog
, "gdbarch_addr_bits_remove called\n");
2569 return gdbarch
->addr_bits_remove (gdbarch
, addr
);
2573 set_gdbarch_addr_bits_remove (struct gdbarch
*gdbarch
,
2574 gdbarch_addr_bits_remove_ftype addr_bits_remove
)
2576 gdbarch
->addr_bits_remove
= addr_bits_remove
;
2580 gdbarch_smash_text_address (struct gdbarch
*gdbarch
, CORE_ADDR addr
)
2582 gdb_assert (gdbarch
!= NULL
);
2583 gdb_assert (gdbarch
->smash_text_address
!= NULL
);
2584 if (gdbarch_debug
>= 2)
2585 fprintf_unfiltered (gdb_stdlog
, "gdbarch_smash_text_address called\n");
2586 return gdbarch
->smash_text_address (gdbarch
, addr
);
2590 set_gdbarch_smash_text_address (struct gdbarch
*gdbarch
,
2591 gdbarch_smash_text_address_ftype smash_text_address
)
2593 gdbarch
->smash_text_address
= smash_text_address
;
2597 gdbarch_software_single_step_p (struct gdbarch
*gdbarch
)
2599 gdb_assert (gdbarch
!= NULL
);
2600 return gdbarch
->software_single_step
!= NULL
;
2604 gdbarch_software_single_step (struct gdbarch
*gdbarch
, struct frame_info
*frame
)
2606 gdb_assert (gdbarch
!= NULL
);
2607 gdb_assert (gdbarch
->software_single_step
!= NULL
);
2608 if (gdbarch_debug
>= 2)
2609 fprintf_unfiltered (gdb_stdlog
, "gdbarch_software_single_step called\n");
2610 return gdbarch
->software_single_step (frame
);
2614 set_gdbarch_software_single_step (struct gdbarch
*gdbarch
,
2615 gdbarch_software_single_step_ftype software_single_step
)
2617 gdbarch
->software_single_step
= software_single_step
;
2621 gdbarch_single_step_through_delay_p (struct gdbarch
*gdbarch
)
2623 gdb_assert (gdbarch
!= NULL
);
2624 return gdbarch
->single_step_through_delay
!= NULL
;
2628 gdbarch_single_step_through_delay (struct gdbarch
*gdbarch
, struct frame_info
*frame
)
2630 gdb_assert (gdbarch
!= NULL
);
2631 gdb_assert (gdbarch
->single_step_through_delay
!= NULL
);
2632 if (gdbarch_debug
>= 2)
2633 fprintf_unfiltered (gdb_stdlog
, "gdbarch_single_step_through_delay called\n");
2634 return gdbarch
->single_step_through_delay (gdbarch
, frame
);
2638 set_gdbarch_single_step_through_delay (struct gdbarch
*gdbarch
,
2639 gdbarch_single_step_through_delay_ftype single_step_through_delay
)
2641 gdbarch
->single_step_through_delay
= single_step_through_delay
;
2645 gdbarch_print_insn (struct gdbarch
*gdbarch
, bfd_vma vma
, struct disassemble_info
*info
)
2647 gdb_assert (gdbarch
!= NULL
);
2648 gdb_assert (gdbarch
->print_insn
!= NULL
);
2649 if (gdbarch_debug
>= 2)
2650 fprintf_unfiltered (gdb_stdlog
, "gdbarch_print_insn called\n");
2651 return gdbarch
->print_insn (vma
, info
);
2655 set_gdbarch_print_insn (struct gdbarch
*gdbarch
,
2656 gdbarch_print_insn_ftype print_insn
)
2658 gdbarch
->print_insn
= print_insn
;
2662 gdbarch_skip_trampoline_code (struct gdbarch
*gdbarch
, struct frame_info
*frame
, CORE_ADDR pc
)
2664 gdb_assert (gdbarch
!= NULL
);
2665 gdb_assert (gdbarch
->skip_trampoline_code
!= NULL
);
2666 if (gdbarch_debug
>= 2)
2667 fprintf_unfiltered (gdb_stdlog
, "gdbarch_skip_trampoline_code called\n");
2668 return gdbarch
->skip_trampoline_code (frame
, pc
);
2672 set_gdbarch_skip_trampoline_code (struct gdbarch
*gdbarch
,
2673 gdbarch_skip_trampoline_code_ftype skip_trampoline_code
)
2675 gdbarch
->skip_trampoline_code
= skip_trampoline_code
;
2679 gdbarch_skip_solib_resolver (struct gdbarch
*gdbarch
, CORE_ADDR pc
)
2681 gdb_assert (gdbarch
!= NULL
);
2682 gdb_assert (gdbarch
->skip_solib_resolver
!= NULL
);
2683 if (gdbarch_debug
>= 2)
2684 fprintf_unfiltered (gdb_stdlog
, "gdbarch_skip_solib_resolver called\n");
2685 return gdbarch
->skip_solib_resolver (gdbarch
, pc
);
2689 set_gdbarch_skip_solib_resolver (struct gdbarch
*gdbarch
,
2690 gdbarch_skip_solib_resolver_ftype skip_solib_resolver
)
2692 gdbarch
->skip_solib_resolver
= skip_solib_resolver
;
2696 gdbarch_in_solib_return_trampoline (struct gdbarch
*gdbarch
, CORE_ADDR pc
, char *name
)
2698 gdb_assert (gdbarch
!= NULL
);
2699 gdb_assert (gdbarch
->in_solib_return_trampoline
!= NULL
);
2700 if (gdbarch_debug
>= 2)
2701 fprintf_unfiltered (gdb_stdlog
, "gdbarch_in_solib_return_trampoline called\n");
2702 return gdbarch
->in_solib_return_trampoline (gdbarch
, pc
, name
);
2706 set_gdbarch_in_solib_return_trampoline (struct gdbarch
*gdbarch
,
2707 gdbarch_in_solib_return_trampoline_ftype in_solib_return_trampoline
)
2709 gdbarch
->in_solib_return_trampoline
= in_solib_return_trampoline
;
2713 gdbarch_in_function_epilogue_p (struct gdbarch
*gdbarch
, CORE_ADDR addr
)
2715 gdb_assert (gdbarch
!= NULL
);
2716 gdb_assert (gdbarch
->in_function_epilogue_p
!= NULL
);
2717 if (gdbarch_debug
>= 2)
2718 fprintf_unfiltered (gdb_stdlog
, "gdbarch_in_function_epilogue_p called\n");
2719 return gdbarch
->in_function_epilogue_p (gdbarch
, addr
);
2723 set_gdbarch_in_function_epilogue_p (struct gdbarch
*gdbarch
,
2724 gdbarch_in_function_epilogue_p_ftype in_function_epilogue_p
)
2726 gdbarch
->in_function_epilogue_p
= in_function_epilogue_p
;
2730 gdbarch_elf_make_msymbol_special (struct gdbarch
*gdbarch
, asymbol
*sym
, struct minimal_symbol
*msym
)
2732 gdb_assert (gdbarch
!= NULL
);
2733 gdb_assert (gdbarch
->elf_make_msymbol_special
!= NULL
);
2734 if (gdbarch_debug
>= 2)
2735 fprintf_unfiltered (gdb_stdlog
, "gdbarch_elf_make_msymbol_special called\n");
2736 gdbarch
->elf_make_msymbol_special (sym
, msym
);
2740 set_gdbarch_elf_make_msymbol_special (struct gdbarch
*gdbarch
,
2741 gdbarch_elf_make_msymbol_special_ftype elf_make_msymbol_special
)
2743 gdbarch
->elf_make_msymbol_special
= elf_make_msymbol_special
;
2747 gdbarch_coff_make_msymbol_special (struct gdbarch
*gdbarch
, int val
, struct minimal_symbol
*msym
)
2749 gdb_assert (gdbarch
!= NULL
);
2750 gdb_assert (gdbarch
->coff_make_msymbol_special
!= NULL
);
2751 if (gdbarch_debug
>= 2)
2752 fprintf_unfiltered (gdb_stdlog
, "gdbarch_coff_make_msymbol_special called\n");
2753 gdbarch
->coff_make_msymbol_special (val
, msym
);
2757 set_gdbarch_coff_make_msymbol_special (struct gdbarch
*gdbarch
,
2758 gdbarch_coff_make_msymbol_special_ftype coff_make_msymbol_special
)
2760 gdbarch
->coff_make_msymbol_special
= coff_make_msymbol_special
;
2764 gdbarch_cannot_step_breakpoint (struct gdbarch
*gdbarch
)
2766 gdb_assert (gdbarch
!= NULL
);
2767 /* Skip verify of cannot_step_breakpoint, invalid_p == 0 */
2768 if (gdbarch_debug
>= 2)
2769 fprintf_unfiltered (gdb_stdlog
, "gdbarch_cannot_step_breakpoint called\n");
2770 return gdbarch
->cannot_step_breakpoint
;
2774 set_gdbarch_cannot_step_breakpoint (struct gdbarch
*gdbarch
,
2775 int cannot_step_breakpoint
)
2777 gdbarch
->cannot_step_breakpoint
= cannot_step_breakpoint
;
2781 gdbarch_have_nonsteppable_watchpoint (struct gdbarch
*gdbarch
)
2783 gdb_assert (gdbarch
!= NULL
);
2784 /* Skip verify of have_nonsteppable_watchpoint, invalid_p == 0 */
2785 if (gdbarch_debug
>= 2)
2786 fprintf_unfiltered (gdb_stdlog
, "gdbarch_have_nonsteppable_watchpoint called\n");
2787 return gdbarch
->have_nonsteppable_watchpoint
;
2791 set_gdbarch_have_nonsteppable_watchpoint (struct gdbarch
*gdbarch
,
2792 int have_nonsteppable_watchpoint
)
2794 gdbarch
->have_nonsteppable_watchpoint
= have_nonsteppable_watchpoint
;
2798 gdbarch_address_class_type_flags_p (struct gdbarch
*gdbarch
)
2800 gdb_assert (gdbarch
!= NULL
);
2801 return gdbarch
->address_class_type_flags
!= NULL
;
2805 gdbarch_address_class_type_flags (struct gdbarch
*gdbarch
, int byte_size
, int dwarf2_addr_class
)
2807 gdb_assert (gdbarch
!= NULL
);
2808 gdb_assert (gdbarch
->address_class_type_flags
!= NULL
);
2809 if (gdbarch_debug
>= 2)
2810 fprintf_unfiltered (gdb_stdlog
, "gdbarch_address_class_type_flags called\n");
2811 return gdbarch
->address_class_type_flags (byte_size
, dwarf2_addr_class
);
2815 set_gdbarch_address_class_type_flags (struct gdbarch
*gdbarch
,
2816 gdbarch_address_class_type_flags_ftype address_class_type_flags
)
2818 gdbarch
->address_class_type_flags
= address_class_type_flags
;
2822 gdbarch_address_class_type_flags_to_name_p (struct gdbarch
*gdbarch
)
2824 gdb_assert (gdbarch
!= NULL
);
2825 return gdbarch
->address_class_type_flags_to_name
!= NULL
;
2829 gdbarch_address_class_type_flags_to_name (struct gdbarch
*gdbarch
, int type_flags
)
2831 gdb_assert (gdbarch
!= NULL
);
2832 gdb_assert (gdbarch
->address_class_type_flags_to_name
!= NULL
);
2833 if (gdbarch_debug
>= 2)
2834 fprintf_unfiltered (gdb_stdlog
, "gdbarch_address_class_type_flags_to_name called\n");
2835 return gdbarch
->address_class_type_flags_to_name (gdbarch
, type_flags
);
2839 set_gdbarch_address_class_type_flags_to_name (struct gdbarch
*gdbarch
,
2840 gdbarch_address_class_type_flags_to_name_ftype address_class_type_flags_to_name
)
2842 gdbarch
->address_class_type_flags_to_name
= address_class_type_flags_to_name
;
2846 gdbarch_address_class_name_to_type_flags_p (struct gdbarch
*gdbarch
)
2848 gdb_assert (gdbarch
!= NULL
);
2849 return gdbarch
->address_class_name_to_type_flags
!= NULL
;
2853 gdbarch_address_class_name_to_type_flags (struct gdbarch
*gdbarch
, const char *name
, int *type_flags_ptr
)
2855 gdb_assert (gdbarch
!= NULL
);
2856 gdb_assert (gdbarch
->address_class_name_to_type_flags
!= NULL
);
2857 if (gdbarch_debug
>= 2)
2858 fprintf_unfiltered (gdb_stdlog
, "gdbarch_address_class_name_to_type_flags called\n");
2859 return gdbarch
->address_class_name_to_type_flags (gdbarch
, name
, type_flags_ptr
);
2863 set_gdbarch_address_class_name_to_type_flags (struct gdbarch
*gdbarch
,
2864 gdbarch_address_class_name_to_type_flags_ftype address_class_name_to_type_flags
)
2866 gdbarch
->address_class_name_to_type_flags
= address_class_name_to_type_flags
;
2870 gdbarch_register_reggroup_p (struct gdbarch
*gdbarch
, int regnum
, struct reggroup
*reggroup
)
2872 gdb_assert (gdbarch
!= NULL
);
2873 gdb_assert (gdbarch
->register_reggroup_p
!= NULL
);
2874 if (gdbarch_debug
>= 2)
2875 fprintf_unfiltered (gdb_stdlog
, "gdbarch_register_reggroup_p called\n");
2876 return gdbarch
->register_reggroup_p (gdbarch
, regnum
, reggroup
);
2880 set_gdbarch_register_reggroup_p (struct gdbarch
*gdbarch
,
2881 gdbarch_register_reggroup_p_ftype register_reggroup_p
)
2883 gdbarch
->register_reggroup_p
= register_reggroup_p
;
2887 gdbarch_fetch_pointer_argument_p (struct gdbarch
*gdbarch
)
2889 gdb_assert (gdbarch
!= NULL
);
2890 return gdbarch
->fetch_pointer_argument
!= NULL
;
2894 gdbarch_fetch_pointer_argument (struct gdbarch
*gdbarch
, struct frame_info
*frame
, int argi
, struct type
*type
)
2896 gdb_assert (gdbarch
!= NULL
);
2897 gdb_assert (gdbarch
->fetch_pointer_argument
!= NULL
);
2898 if (gdbarch_debug
>= 2)
2899 fprintf_unfiltered (gdb_stdlog
, "gdbarch_fetch_pointer_argument called\n");
2900 return gdbarch
->fetch_pointer_argument (frame
, argi
, type
);
2904 set_gdbarch_fetch_pointer_argument (struct gdbarch
*gdbarch
,
2905 gdbarch_fetch_pointer_argument_ftype fetch_pointer_argument
)
2907 gdbarch
->fetch_pointer_argument
= fetch_pointer_argument
;
2911 gdbarch_regset_from_core_section_p (struct gdbarch
*gdbarch
)
2913 gdb_assert (gdbarch
!= NULL
);
2914 return gdbarch
->regset_from_core_section
!= NULL
;
2917 const struct regset
*
2918 gdbarch_regset_from_core_section (struct gdbarch
*gdbarch
, const char *sect_name
, size_t sect_size
)
2920 gdb_assert (gdbarch
!= NULL
);
2921 gdb_assert (gdbarch
->regset_from_core_section
!= NULL
);
2922 if (gdbarch_debug
>= 2)
2923 fprintf_unfiltered (gdb_stdlog
, "gdbarch_regset_from_core_section called\n");
2924 return gdbarch
->regset_from_core_section (gdbarch
, sect_name
, sect_size
);
2928 set_gdbarch_regset_from_core_section (struct gdbarch
*gdbarch
,
2929 gdbarch_regset_from_core_section_ftype regset_from_core_section
)
2931 gdbarch
->regset_from_core_section
= regset_from_core_section
;
2935 gdbarch_core_reg_section_encodes_pid (struct gdbarch
*gdbarch
)
2937 gdb_assert (gdbarch
!= NULL
);
2938 /* Skip verify of core_reg_section_encodes_pid, invalid_p == 0 */
2939 if (gdbarch_debug
>= 2)
2940 fprintf_unfiltered (gdb_stdlog
, "gdbarch_core_reg_section_encodes_pid called\n");
2941 return gdbarch
->core_reg_section_encodes_pid
;
2945 set_gdbarch_core_reg_section_encodes_pid (struct gdbarch
*gdbarch
,
2946 int core_reg_section_encodes_pid
)
2948 gdbarch
->core_reg_section_encodes_pid
= core_reg_section_encodes_pid
;
2951 struct core_regset_section
*
2952 gdbarch_core_regset_sections (struct gdbarch
*gdbarch
)
2954 gdb_assert (gdbarch
!= NULL
);
2955 if (gdbarch_debug
>= 2)
2956 fprintf_unfiltered (gdb_stdlog
, "gdbarch_core_regset_sections called\n");
2957 return gdbarch
->core_regset_sections
;
2961 set_gdbarch_core_regset_sections (struct gdbarch
*gdbarch
,
2962 struct core_regset_section
* core_regset_sections
)
2964 gdbarch
->core_regset_sections
= core_regset_sections
;
2968 gdbarch_core_xfer_shared_libraries_p (struct gdbarch
*gdbarch
)
2970 gdb_assert (gdbarch
!= NULL
);
2971 return gdbarch
->core_xfer_shared_libraries
!= NULL
;
2975 gdbarch_core_xfer_shared_libraries (struct gdbarch
*gdbarch
, gdb_byte
*readbuf
, ULONGEST offset
, LONGEST len
)
2977 gdb_assert (gdbarch
!= NULL
);
2978 gdb_assert (gdbarch
->core_xfer_shared_libraries
!= NULL
);
2979 if (gdbarch_debug
>= 2)
2980 fprintf_unfiltered (gdb_stdlog
, "gdbarch_core_xfer_shared_libraries called\n");
2981 return gdbarch
->core_xfer_shared_libraries (gdbarch
, readbuf
, offset
, len
);
2985 set_gdbarch_core_xfer_shared_libraries (struct gdbarch
*gdbarch
,
2986 gdbarch_core_xfer_shared_libraries_ftype core_xfer_shared_libraries
)
2988 gdbarch
->core_xfer_shared_libraries
= core_xfer_shared_libraries
;
2992 gdbarch_core_pid_to_str_p (struct gdbarch
*gdbarch
)
2994 gdb_assert (gdbarch
!= NULL
);
2995 return gdbarch
->core_pid_to_str
!= NULL
;
2999 gdbarch_core_pid_to_str (struct gdbarch
*gdbarch
, ptid_t ptid
)
3001 gdb_assert (gdbarch
!= NULL
);
3002 gdb_assert (gdbarch
->core_pid_to_str
!= NULL
);
3003 if (gdbarch_debug
>= 2)
3004 fprintf_unfiltered (gdb_stdlog
, "gdbarch_core_pid_to_str called\n");
3005 return gdbarch
->core_pid_to_str (gdbarch
, ptid
);
3009 set_gdbarch_core_pid_to_str (struct gdbarch
*gdbarch
,
3010 gdbarch_core_pid_to_str_ftype core_pid_to_str
)
3012 gdbarch
->core_pid_to_str
= core_pid_to_str
;
3016 gdbarch_gcore_bfd_target_p (struct gdbarch
*gdbarch
)
3018 gdb_assert (gdbarch
!= NULL
);
3019 return gdbarch
->gcore_bfd_target
!= 0;
3023 gdbarch_gcore_bfd_target (struct gdbarch
*gdbarch
)
3025 gdb_assert (gdbarch
!= NULL
);
3026 /* Check variable changed from pre-default. */
3027 gdb_assert (gdbarch
->gcore_bfd_target
!= 0);
3028 if (gdbarch_debug
>= 2)
3029 fprintf_unfiltered (gdb_stdlog
, "gdbarch_gcore_bfd_target called\n");
3030 return gdbarch
->gcore_bfd_target
;
3034 set_gdbarch_gcore_bfd_target (struct gdbarch
*gdbarch
,
3035 const char * gcore_bfd_target
)
3037 gdbarch
->gcore_bfd_target
= gcore_bfd_target
;
3041 gdbarch_vtable_function_descriptors (struct gdbarch
*gdbarch
)
3043 gdb_assert (gdbarch
!= NULL
);
3044 /* Skip verify of vtable_function_descriptors, invalid_p == 0 */
3045 if (gdbarch_debug
>= 2)
3046 fprintf_unfiltered (gdb_stdlog
, "gdbarch_vtable_function_descriptors called\n");
3047 return gdbarch
->vtable_function_descriptors
;
3051 set_gdbarch_vtable_function_descriptors (struct gdbarch
*gdbarch
,
3052 int vtable_function_descriptors
)
3054 gdbarch
->vtable_function_descriptors
= vtable_function_descriptors
;
3058 gdbarch_vbit_in_delta (struct gdbarch
*gdbarch
)
3060 gdb_assert (gdbarch
!= NULL
);
3061 /* Skip verify of vbit_in_delta, invalid_p == 0 */
3062 if (gdbarch_debug
>= 2)
3063 fprintf_unfiltered (gdb_stdlog
, "gdbarch_vbit_in_delta called\n");
3064 return gdbarch
->vbit_in_delta
;
3068 set_gdbarch_vbit_in_delta (struct gdbarch
*gdbarch
,
3071 gdbarch
->vbit_in_delta
= vbit_in_delta
;
3075 gdbarch_skip_permanent_breakpoint_p (struct gdbarch
*gdbarch
)
3077 gdb_assert (gdbarch
!= NULL
);
3078 return gdbarch
->skip_permanent_breakpoint
!= NULL
;
3082 gdbarch_skip_permanent_breakpoint (struct gdbarch
*gdbarch
, struct regcache
*regcache
)
3084 gdb_assert (gdbarch
!= NULL
);
3085 gdb_assert (gdbarch
->skip_permanent_breakpoint
!= NULL
);
3086 if (gdbarch_debug
>= 2)
3087 fprintf_unfiltered (gdb_stdlog
, "gdbarch_skip_permanent_breakpoint called\n");
3088 gdbarch
->skip_permanent_breakpoint (regcache
);
3092 set_gdbarch_skip_permanent_breakpoint (struct gdbarch
*gdbarch
,
3093 gdbarch_skip_permanent_breakpoint_ftype skip_permanent_breakpoint
)
3095 gdbarch
->skip_permanent_breakpoint
= skip_permanent_breakpoint
;
3099 gdbarch_max_insn_length_p (struct gdbarch
*gdbarch
)
3101 gdb_assert (gdbarch
!= NULL
);
3102 return gdbarch
->max_insn_length
!= 0;
3106 gdbarch_max_insn_length (struct gdbarch
*gdbarch
)
3108 gdb_assert (gdbarch
!= NULL
);
3109 /* Check variable changed from pre-default. */
3110 gdb_assert (gdbarch
->max_insn_length
!= 0);
3111 if (gdbarch_debug
>= 2)
3112 fprintf_unfiltered (gdb_stdlog
, "gdbarch_max_insn_length called\n");
3113 return gdbarch
->max_insn_length
;
3117 set_gdbarch_max_insn_length (struct gdbarch
*gdbarch
,
3118 ULONGEST max_insn_length
)
3120 gdbarch
->max_insn_length
= max_insn_length
;
3124 gdbarch_displaced_step_copy_insn_p (struct gdbarch
*gdbarch
)
3126 gdb_assert (gdbarch
!= NULL
);
3127 return gdbarch
->displaced_step_copy_insn
!= NULL
;
3130 struct displaced_step_closure
*
3131 gdbarch_displaced_step_copy_insn (struct gdbarch
*gdbarch
, CORE_ADDR from
, CORE_ADDR to
, struct regcache
*regs
)
3133 gdb_assert (gdbarch
!= NULL
);
3134 gdb_assert (gdbarch
->displaced_step_copy_insn
!= NULL
);
3135 if (gdbarch_debug
>= 2)
3136 fprintf_unfiltered (gdb_stdlog
, "gdbarch_displaced_step_copy_insn called\n");
3137 return gdbarch
->displaced_step_copy_insn (gdbarch
, from
, to
, regs
);
3141 set_gdbarch_displaced_step_copy_insn (struct gdbarch
*gdbarch
,
3142 gdbarch_displaced_step_copy_insn_ftype displaced_step_copy_insn
)
3144 gdbarch
->displaced_step_copy_insn
= displaced_step_copy_insn
;
3148 gdbarch_displaced_step_fixup_p (struct gdbarch
*gdbarch
)
3150 gdb_assert (gdbarch
!= NULL
);
3151 return gdbarch
->displaced_step_fixup
!= NULL
;
3155 gdbarch_displaced_step_fixup (struct gdbarch
*gdbarch
, struct displaced_step_closure
*closure
, CORE_ADDR from
, CORE_ADDR to
, struct regcache
*regs
)
3157 gdb_assert (gdbarch
!= NULL
);
3158 gdb_assert (gdbarch
->displaced_step_fixup
!= NULL
);
3159 /* Do not check predicate: gdbarch->displaced_step_fixup != NULL, allow call. */
3160 if (gdbarch_debug
>= 2)
3161 fprintf_unfiltered (gdb_stdlog
, "gdbarch_displaced_step_fixup called\n");
3162 gdbarch
->displaced_step_fixup (gdbarch
, closure
, from
, to
, regs
);
3166 set_gdbarch_displaced_step_fixup (struct gdbarch
*gdbarch
,
3167 gdbarch_displaced_step_fixup_ftype displaced_step_fixup
)
3169 gdbarch
->displaced_step_fixup
= displaced_step_fixup
;
3173 gdbarch_displaced_step_free_closure (struct gdbarch
*gdbarch
, struct displaced_step_closure
*closure
)
3175 gdb_assert (gdbarch
!= NULL
);
3176 gdb_assert (gdbarch
->displaced_step_free_closure
!= NULL
);
3177 if (gdbarch_debug
>= 2)
3178 fprintf_unfiltered (gdb_stdlog
, "gdbarch_displaced_step_free_closure called\n");
3179 gdbarch
->displaced_step_free_closure (gdbarch
, closure
);
3183 set_gdbarch_displaced_step_free_closure (struct gdbarch
*gdbarch
,
3184 gdbarch_displaced_step_free_closure_ftype displaced_step_free_closure
)
3186 gdbarch
->displaced_step_free_closure
= displaced_step_free_closure
;
3190 gdbarch_displaced_step_location (struct gdbarch
*gdbarch
)
3192 gdb_assert (gdbarch
!= NULL
);
3193 gdb_assert (gdbarch
->displaced_step_location
!= NULL
);
3194 if (gdbarch_debug
>= 2)
3195 fprintf_unfiltered (gdb_stdlog
, "gdbarch_displaced_step_location called\n");
3196 return gdbarch
->displaced_step_location (gdbarch
);
3200 set_gdbarch_displaced_step_location (struct gdbarch
*gdbarch
,
3201 gdbarch_displaced_step_location_ftype displaced_step_location
)
3203 gdbarch
->displaced_step_location
= displaced_step_location
;
3207 gdbarch_overlay_update_p (struct gdbarch
*gdbarch
)
3209 gdb_assert (gdbarch
!= NULL
);
3210 return gdbarch
->overlay_update
!= NULL
;
3214 gdbarch_overlay_update (struct gdbarch
*gdbarch
, struct obj_section
*osect
)
3216 gdb_assert (gdbarch
!= NULL
);
3217 gdb_assert (gdbarch
->overlay_update
!= NULL
);
3218 if (gdbarch_debug
>= 2)
3219 fprintf_unfiltered (gdb_stdlog
, "gdbarch_overlay_update called\n");
3220 gdbarch
->overlay_update (osect
);
3224 set_gdbarch_overlay_update (struct gdbarch
*gdbarch
,
3225 gdbarch_overlay_update_ftype overlay_update
)
3227 gdbarch
->overlay_update
= overlay_update
;
3231 gdbarch_core_read_description_p (struct gdbarch
*gdbarch
)
3233 gdb_assert (gdbarch
!= NULL
);
3234 return gdbarch
->core_read_description
!= NULL
;
3237 const struct target_desc
*
3238 gdbarch_core_read_description (struct gdbarch
*gdbarch
, struct target_ops
*target
, bfd
*abfd
)
3240 gdb_assert (gdbarch
!= NULL
);
3241 gdb_assert (gdbarch
->core_read_description
!= NULL
);
3242 if (gdbarch_debug
>= 2)
3243 fprintf_unfiltered (gdb_stdlog
, "gdbarch_core_read_description called\n");
3244 return gdbarch
->core_read_description (gdbarch
, target
, abfd
);
3248 set_gdbarch_core_read_description (struct gdbarch
*gdbarch
,
3249 gdbarch_core_read_description_ftype core_read_description
)
3251 gdbarch
->core_read_description
= core_read_description
;
3255 gdbarch_static_transform_name_p (struct gdbarch
*gdbarch
)
3257 gdb_assert (gdbarch
!= NULL
);
3258 return gdbarch
->static_transform_name
!= NULL
;
3262 gdbarch_static_transform_name (struct gdbarch
*gdbarch
, char *name
)
3264 gdb_assert (gdbarch
!= NULL
);
3265 gdb_assert (gdbarch
->static_transform_name
!= NULL
);
3266 if (gdbarch_debug
>= 2)
3267 fprintf_unfiltered (gdb_stdlog
, "gdbarch_static_transform_name called\n");
3268 return gdbarch
->static_transform_name (name
);
3272 set_gdbarch_static_transform_name (struct gdbarch
*gdbarch
,
3273 gdbarch_static_transform_name_ftype static_transform_name
)
3275 gdbarch
->static_transform_name
= static_transform_name
;
3279 gdbarch_sofun_address_maybe_missing (struct gdbarch
*gdbarch
)
3281 gdb_assert (gdbarch
!= NULL
);
3282 /* Skip verify of sofun_address_maybe_missing, invalid_p == 0 */
3283 if (gdbarch_debug
>= 2)
3284 fprintf_unfiltered (gdb_stdlog
, "gdbarch_sofun_address_maybe_missing called\n");
3285 return gdbarch
->sofun_address_maybe_missing
;
3289 set_gdbarch_sofun_address_maybe_missing (struct gdbarch
*gdbarch
,
3290 int sofun_address_maybe_missing
)
3292 gdbarch
->sofun_address_maybe_missing
= sofun_address_maybe_missing
;
3296 gdbarch_process_record_p (struct gdbarch
*gdbarch
)
3298 gdb_assert (gdbarch
!= NULL
);
3299 return gdbarch
->process_record
!= NULL
;
3303 gdbarch_process_record (struct gdbarch
*gdbarch
, struct regcache
*regcache
, CORE_ADDR addr
)
3305 gdb_assert (gdbarch
!= NULL
);
3306 gdb_assert (gdbarch
->process_record
!= NULL
);
3307 if (gdbarch_debug
>= 2)
3308 fprintf_unfiltered (gdb_stdlog
, "gdbarch_process_record called\n");
3309 return gdbarch
->process_record (gdbarch
, regcache
, addr
);
3313 set_gdbarch_process_record (struct gdbarch
*gdbarch
,
3314 gdbarch_process_record_ftype process_record
)
3316 gdbarch
->process_record
= process_record
;
3320 gdbarch_process_record_signal_p (struct gdbarch
*gdbarch
)
3322 gdb_assert (gdbarch
!= NULL
);
3323 return gdbarch
->process_record_signal
!= NULL
;
3327 gdbarch_process_record_signal (struct gdbarch
*gdbarch
, struct regcache
*regcache
, enum target_signal signal
)
3329 gdb_assert (gdbarch
!= NULL
);
3330 gdb_assert (gdbarch
->process_record_signal
!= NULL
);
3331 if (gdbarch_debug
>= 2)
3332 fprintf_unfiltered (gdb_stdlog
, "gdbarch_process_record_signal called\n");
3333 return gdbarch
->process_record_signal (gdbarch
, regcache
, signal
);
3337 set_gdbarch_process_record_signal (struct gdbarch
*gdbarch
,
3338 gdbarch_process_record_signal_ftype process_record_signal
)
3340 gdbarch
->process_record_signal
= process_record_signal
;
3344 gdbarch_target_signal_from_host (struct gdbarch
*gdbarch
, int signo
)
3346 gdb_assert (gdbarch
!= NULL
);
3347 gdb_assert (gdbarch
->target_signal_from_host
!= NULL
);
3348 if (gdbarch_debug
>= 2)
3349 fprintf_unfiltered (gdb_stdlog
, "gdbarch_target_signal_from_host called\n");
3350 return gdbarch
->target_signal_from_host (gdbarch
, signo
);
3354 set_gdbarch_target_signal_from_host (struct gdbarch
*gdbarch
,
3355 gdbarch_target_signal_from_host_ftype target_signal_from_host
)
3357 gdbarch
->target_signal_from_host
= target_signal_from_host
;
3361 gdbarch_target_signal_to_host (struct gdbarch
*gdbarch
, enum target_signal ts
)
3363 gdb_assert (gdbarch
!= NULL
);
3364 gdb_assert (gdbarch
->target_signal_to_host
!= NULL
);
3365 if (gdbarch_debug
>= 2)
3366 fprintf_unfiltered (gdb_stdlog
, "gdbarch_target_signal_to_host called\n");
3367 return gdbarch
->target_signal_to_host (gdbarch
, ts
);
3371 set_gdbarch_target_signal_to_host (struct gdbarch
*gdbarch
,
3372 gdbarch_target_signal_to_host_ftype target_signal_to_host
)
3374 gdbarch
->target_signal_to_host
= target_signal_to_host
;
3378 gdbarch_get_siginfo_type_p (struct gdbarch
*gdbarch
)
3380 gdb_assert (gdbarch
!= NULL
);
3381 return gdbarch
->get_siginfo_type
!= NULL
;
3385 gdbarch_get_siginfo_type (struct gdbarch
*gdbarch
)
3387 gdb_assert (gdbarch
!= NULL
);
3388 gdb_assert (gdbarch
->get_siginfo_type
!= NULL
);
3389 if (gdbarch_debug
>= 2)
3390 fprintf_unfiltered (gdb_stdlog
, "gdbarch_get_siginfo_type called\n");
3391 return gdbarch
->get_siginfo_type (gdbarch
);
3395 set_gdbarch_get_siginfo_type (struct gdbarch
*gdbarch
,
3396 gdbarch_get_siginfo_type_ftype get_siginfo_type
)
3398 gdbarch
->get_siginfo_type
= get_siginfo_type
;
3402 gdbarch_record_special_symbol_p (struct gdbarch
*gdbarch
)
3404 gdb_assert (gdbarch
!= NULL
);
3405 return gdbarch
->record_special_symbol
!= NULL
;
3409 gdbarch_record_special_symbol (struct gdbarch
*gdbarch
, struct objfile
*objfile
, asymbol
*sym
)
3411 gdb_assert (gdbarch
!= NULL
);
3412 gdb_assert (gdbarch
->record_special_symbol
!= NULL
);
3413 if (gdbarch_debug
>= 2)
3414 fprintf_unfiltered (gdb_stdlog
, "gdbarch_record_special_symbol called\n");
3415 gdbarch
->record_special_symbol (gdbarch
, objfile
, sym
);
3419 set_gdbarch_record_special_symbol (struct gdbarch
*gdbarch
,
3420 gdbarch_record_special_symbol_ftype record_special_symbol
)
3422 gdbarch
->record_special_symbol
= record_special_symbol
;
3426 gdbarch_get_syscall_number_p (struct gdbarch
*gdbarch
)
3428 gdb_assert (gdbarch
!= NULL
);
3429 return gdbarch
->get_syscall_number
!= NULL
;
3433 gdbarch_get_syscall_number (struct gdbarch
*gdbarch
, ptid_t ptid
)
3435 gdb_assert (gdbarch
!= NULL
);
3436 gdb_assert (gdbarch
->get_syscall_number
!= NULL
);
3437 if (gdbarch_debug
>= 2)
3438 fprintf_unfiltered (gdb_stdlog
, "gdbarch_get_syscall_number called\n");
3439 return gdbarch
->get_syscall_number (gdbarch
, ptid
);
3443 set_gdbarch_get_syscall_number (struct gdbarch
*gdbarch
,
3444 gdbarch_get_syscall_number_ftype get_syscall_number
)
3446 gdbarch
->get_syscall_number
= get_syscall_number
;
3450 gdbarch_has_global_solist (struct gdbarch
*gdbarch
)
3452 gdb_assert (gdbarch
!= NULL
);
3453 /* Skip verify of has_global_solist, invalid_p == 0 */
3454 if (gdbarch_debug
>= 2)
3455 fprintf_unfiltered (gdb_stdlog
, "gdbarch_has_global_solist called\n");
3456 return gdbarch
->has_global_solist
;
3460 set_gdbarch_has_global_solist (struct gdbarch
*gdbarch
,
3461 int has_global_solist
)
3463 gdbarch
->has_global_solist
= has_global_solist
;
3467 gdbarch_has_global_breakpoints (struct gdbarch
*gdbarch
)
3469 gdb_assert (gdbarch
!= NULL
);
3470 /* Skip verify of has_global_breakpoints, invalid_p == 0 */
3471 if (gdbarch_debug
>= 2)
3472 fprintf_unfiltered (gdb_stdlog
, "gdbarch_has_global_breakpoints called\n");
3473 return gdbarch
->has_global_breakpoints
;
3477 set_gdbarch_has_global_breakpoints (struct gdbarch
*gdbarch
,
3478 int has_global_breakpoints
)
3480 gdbarch
->has_global_breakpoints
= has_global_breakpoints
;
3484 /* Keep a registry of per-architecture data-pointers required by GDB
3491 gdbarch_data_pre_init_ftype
*pre_init
;
3492 gdbarch_data_post_init_ftype
*post_init
;
3495 struct gdbarch_data_registration
3497 struct gdbarch_data
*data
;
3498 struct gdbarch_data_registration
*next
;
3501 struct gdbarch_data_registry
3504 struct gdbarch_data_registration
*registrations
;
3507 struct gdbarch_data_registry gdbarch_data_registry
=
3512 static struct gdbarch_data
*
3513 gdbarch_data_register (gdbarch_data_pre_init_ftype
*pre_init
,
3514 gdbarch_data_post_init_ftype
*post_init
)
3516 struct gdbarch_data_registration
**curr
;
3517 /* Append the new registraration. */
3518 for (curr
= &gdbarch_data_registry
.registrations
;
3520 curr
= &(*curr
)->next
);
3521 (*curr
) = XMALLOC (struct gdbarch_data_registration
);
3522 (*curr
)->next
= NULL
;
3523 (*curr
)->data
= XMALLOC (struct gdbarch_data
);
3524 (*curr
)->data
->index
= gdbarch_data_registry
.nr
++;
3525 (*curr
)->data
->pre_init
= pre_init
;
3526 (*curr
)->data
->post_init
= post_init
;
3527 (*curr
)->data
->init_p
= 1;
3528 return (*curr
)->data
;
3531 struct gdbarch_data
*
3532 gdbarch_data_register_pre_init (gdbarch_data_pre_init_ftype
*pre_init
)
3534 return gdbarch_data_register (pre_init
, NULL
);
3537 struct gdbarch_data
*
3538 gdbarch_data_register_post_init (gdbarch_data_post_init_ftype
*post_init
)
3540 return gdbarch_data_register (NULL
, post_init
);
3543 /* Create/delete the gdbarch data vector. */
3546 alloc_gdbarch_data (struct gdbarch
*gdbarch
)
3548 gdb_assert (gdbarch
->data
== NULL
);
3549 gdbarch
->nr_data
= gdbarch_data_registry
.nr
;
3550 gdbarch
->data
= GDBARCH_OBSTACK_CALLOC (gdbarch
, gdbarch
->nr_data
, void *);
3553 /* Initialize the current value of the specified per-architecture
3557 deprecated_set_gdbarch_data (struct gdbarch
*gdbarch
,
3558 struct gdbarch_data
*data
,
3561 gdb_assert (data
->index
< gdbarch
->nr_data
);
3562 gdb_assert (gdbarch
->data
[data
->index
] == NULL
);
3563 gdb_assert (data
->pre_init
== NULL
);
3564 gdbarch
->data
[data
->index
] = pointer
;
3567 /* Return the current value of the specified per-architecture
3571 gdbarch_data (struct gdbarch
*gdbarch
, struct gdbarch_data
*data
)
3573 gdb_assert (data
->index
< gdbarch
->nr_data
);
3574 if (gdbarch
->data
[data
->index
] == NULL
)
3576 /* The data-pointer isn't initialized, call init() to get a
3578 if (data
->pre_init
!= NULL
)
3579 /* Mid architecture creation: pass just the obstack, and not
3580 the entire architecture, as that way it isn't possible for
3581 pre-init code to refer to undefined architecture
3583 gdbarch
->data
[data
->index
] = data
->pre_init (gdbarch
->obstack
);
3584 else if (gdbarch
->initialized_p
3585 && data
->post_init
!= NULL
)
3586 /* Post architecture creation: pass the entire architecture
3587 (as all fields are valid), but be careful to also detect
3588 recursive references. */
3590 gdb_assert (data
->init_p
);
3592 gdbarch
->data
[data
->index
] = data
->post_init (gdbarch
);
3596 /* The architecture initialization hasn't completed - punt -
3597 hope that the caller knows what they are doing. Once
3598 deprecated_set_gdbarch_data has been initialized, this can be
3599 changed to an internal error. */
3601 gdb_assert (gdbarch
->data
[data
->index
] != NULL
);
3603 return gdbarch
->data
[data
->index
];
3607 /* Keep a registry of the architectures known by GDB. */
3609 struct gdbarch_registration
3611 enum bfd_architecture bfd_architecture
;
3612 gdbarch_init_ftype
*init
;
3613 gdbarch_dump_tdep_ftype
*dump_tdep
;
3614 struct gdbarch_list
*arches
;
3615 struct gdbarch_registration
*next
;
3618 static struct gdbarch_registration
*gdbarch_registry
= NULL
;
3621 append_name (const char ***buf
, int *nr
, const char *name
)
3623 *buf
= xrealloc (*buf
, sizeof (char**) * (*nr
+ 1));
3629 gdbarch_printable_names (void)
3631 /* Accumulate a list of names based on the registed list of
3633 enum bfd_architecture a
;
3635 const char **arches
= NULL
;
3636 struct gdbarch_registration
*rego
;
3637 for (rego
= gdbarch_registry
;
3641 const struct bfd_arch_info
*ap
;
3642 ap
= bfd_lookup_arch (rego
->bfd_architecture
, 0);
3644 internal_error (__FILE__
, __LINE__
,
3645 _("gdbarch_architecture_names: multi-arch unknown"));
3648 append_name (&arches
, &nr_arches
, ap
->printable_name
);
3653 append_name (&arches
, &nr_arches
, NULL
);
3659 gdbarch_register (enum bfd_architecture bfd_architecture
,
3660 gdbarch_init_ftype
*init
,
3661 gdbarch_dump_tdep_ftype
*dump_tdep
)
3663 struct gdbarch_registration
**curr
;
3664 const struct bfd_arch_info
*bfd_arch_info
;
3665 /* Check that BFD recognizes this architecture */
3666 bfd_arch_info
= bfd_lookup_arch (bfd_architecture
, 0);
3667 if (bfd_arch_info
== NULL
)
3669 internal_error (__FILE__
, __LINE__
,
3670 _("gdbarch: Attempt to register unknown architecture (%d)"),
3673 /* Check that we haven't seen this architecture before */
3674 for (curr
= &gdbarch_registry
;
3676 curr
= &(*curr
)->next
)
3678 if (bfd_architecture
== (*curr
)->bfd_architecture
)
3679 internal_error (__FILE__
, __LINE__
,
3680 _("gdbarch: Duplicate registraration of architecture (%s)"),
3681 bfd_arch_info
->printable_name
);
3685 fprintf_unfiltered (gdb_stdlog
, "register_gdbarch_init (%s, %s)\n",
3686 bfd_arch_info
->printable_name
,
3687 host_address_to_string (init
));
3689 (*curr
) = XMALLOC (struct gdbarch_registration
);
3690 (*curr
)->bfd_architecture
= bfd_architecture
;
3691 (*curr
)->init
= init
;
3692 (*curr
)->dump_tdep
= dump_tdep
;
3693 (*curr
)->arches
= NULL
;
3694 (*curr
)->next
= NULL
;
3698 register_gdbarch_init (enum bfd_architecture bfd_architecture
,
3699 gdbarch_init_ftype
*init
)
3701 gdbarch_register (bfd_architecture
, init
, NULL
);
3705 /* Look for an architecture using gdbarch_info. */
3707 struct gdbarch_list
*
3708 gdbarch_list_lookup_by_info (struct gdbarch_list
*arches
,
3709 const struct gdbarch_info
*info
)
3711 for (; arches
!= NULL
; arches
= arches
->next
)
3713 if (info
->bfd_arch_info
!= arches
->gdbarch
->bfd_arch_info
)
3715 if (info
->byte_order
!= arches
->gdbarch
->byte_order
)
3717 if (info
->osabi
!= arches
->gdbarch
->osabi
)
3719 if (info
->target_desc
!= arches
->gdbarch
->target_desc
)
3727 /* Find an architecture that matches the specified INFO. Create a new
3728 architecture if needed. Return that new architecture. */
3731 gdbarch_find_by_info (struct gdbarch_info info
)
3733 struct gdbarch
*new_gdbarch
;
3734 struct gdbarch_registration
*rego
;
3736 /* Fill in missing parts of the INFO struct using a number of
3737 sources: "set ..."; INFOabfd supplied; and the global
3739 gdbarch_info_fill (&info
);
3741 /* Must have found some sort of architecture. */
3742 gdb_assert (info
.bfd_arch_info
!= NULL
);
3746 fprintf_unfiltered (gdb_stdlog
,
3747 "gdbarch_find_by_info: info.bfd_arch_info %s\n",
3748 (info
.bfd_arch_info
!= NULL
3749 ? info
.bfd_arch_info
->printable_name
3751 fprintf_unfiltered (gdb_stdlog
,
3752 "gdbarch_find_by_info: info.byte_order %d (%s)\n",
3754 (info
.byte_order
== BFD_ENDIAN_BIG
? "big"
3755 : info
.byte_order
== BFD_ENDIAN_LITTLE
? "little"
3757 fprintf_unfiltered (gdb_stdlog
,
3758 "gdbarch_find_by_info: info.osabi %d (%s)\n",
3759 info
.osabi
, gdbarch_osabi_name (info
.osabi
));
3760 fprintf_unfiltered (gdb_stdlog
,
3761 "gdbarch_find_by_info: info.abfd %s\n",
3762 host_address_to_string (info
.abfd
));
3763 fprintf_unfiltered (gdb_stdlog
,
3764 "gdbarch_find_by_info: info.tdep_info %s\n",
3765 host_address_to_string (info
.tdep_info
));
3768 /* Find the tdep code that knows about this architecture. */
3769 for (rego
= gdbarch_registry
;
3772 if (rego
->bfd_architecture
== info
.bfd_arch_info
->arch
)
3777 fprintf_unfiltered (gdb_stdlog
, "gdbarch_find_by_info: "
3778 "No matching architecture\n");
3782 /* Ask the tdep code for an architecture that matches "info". */
3783 new_gdbarch
= rego
->init (info
, rego
->arches
);
3785 /* Did the tdep code like it? No. Reject the change and revert to
3786 the old architecture. */
3787 if (new_gdbarch
== NULL
)
3790 fprintf_unfiltered (gdb_stdlog
, "gdbarch_find_by_info: "
3791 "Target rejected architecture\n");
3795 /* Is this a pre-existing architecture (as determined by already
3796 being initialized)? Move it to the front of the architecture
3797 list (keeping the list sorted Most Recently Used). */
3798 if (new_gdbarch
->initialized_p
)
3800 struct gdbarch_list
**list
;
3801 struct gdbarch_list
*this;
3803 fprintf_unfiltered (gdb_stdlog
, "gdbarch_find_by_info: "
3804 "Previous architecture %s (%s) selected\n",
3805 host_address_to_string (new_gdbarch
),
3806 new_gdbarch
->bfd_arch_info
->printable_name
);
3807 /* Find the existing arch in the list. */
3808 for (list
= ®o
->arches
;
3809 (*list
) != NULL
&& (*list
)->gdbarch
!= new_gdbarch
;
3810 list
= &(*list
)->next
);
3811 /* It had better be in the list of architectures. */
3812 gdb_assert ((*list
) != NULL
&& (*list
)->gdbarch
== new_gdbarch
);
3815 (*list
) = this->next
;
3816 /* Insert THIS at the front. */
3817 this->next
= rego
->arches
;
3818 rego
->arches
= this;
3823 /* It's a new architecture. */
3825 fprintf_unfiltered (gdb_stdlog
, "gdbarch_find_by_info: "
3826 "New architecture %s (%s) selected\n",
3827 host_address_to_string (new_gdbarch
),
3828 new_gdbarch
->bfd_arch_info
->printable_name
);
3830 /* Insert the new architecture into the front of the architecture
3831 list (keep the list sorted Most Recently Used). */
3833 struct gdbarch_list
*this = XMALLOC (struct gdbarch_list
);
3834 this->next
= rego
->arches
;
3835 this->gdbarch
= new_gdbarch
;
3836 rego
->arches
= this;
3839 /* Check that the newly installed architecture is valid. Plug in
3840 any post init values. */
3841 new_gdbarch
->dump_tdep
= rego
->dump_tdep
;
3842 verify_gdbarch (new_gdbarch
);
3843 new_gdbarch
->initialized_p
= 1;
3846 gdbarch_dump (new_gdbarch
, gdb_stdlog
);
3851 /* Make the specified architecture current. */
3854 deprecated_target_gdbarch_select_hack (struct gdbarch
*new_gdbarch
)
3856 gdb_assert (new_gdbarch
!= NULL
);
3857 gdb_assert (new_gdbarch
->initialized_p
);
3858 target_gdbarch
= new_gdbarch
;
3859 observer_notify_architecture_changed (new_gdbarch
);
3860 registers_changed ();
3863 extern void _initialize_gdbarch (void);
3866 _initialize_gdbarch (void)
3868 struct cmd_list_element
*c
;
3870 add_setshow_zinteger_cmd ("arch", class_maintenance
, &gdbarch_debug
, _("\
3871 Set architecture debugging."), _("\
3872 Show architecture debugging."), _("\
3873 When non-zero, architecture debugging is enabled."),
3876 &setdebuglist
, &showdebuglist
);