1 /* *INDENT-OFF* */ /* THIS FILE IS GENERATED */
3 /* Dynamic architecture support for GDB, the GNU debugger.
5 Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
6 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 2 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, write to the Free Software
22 Foundation, Inc., 51 Franklin Street, Fifth Floor,
23 Boston, MA 02110-1301, USA. */
25 /* This file was created with the aid of ``gdbarch.sh''.
27 The Bourne shell script ``gdbarch.sh'' creates the files
28 ``new-gdbarch.c'' and ``new-gdbarch.h and then compares them
29 against the existing ``gdbarch.[hc]''. Any differences found
32 If editing this file, please also run gdbarch.sh and merge any
33 changes into that script. Conversely, when making sweeping changes
34 to this file, modifying gdbarch.sh and using its output may prove
39 #include "arch-utils.h"
45 #include "floatformat.h"
47 #include "gdb_assert.h"
48 #include "gdb_string.h"
49 #include "gdb-events.h"
50 #include "reggroups.h"
52 #include "gdb_obstack.h"
54 /* Static function declarations */
56 static void alloc_gdbarch_data (struct gdbarch
*);
58 /* Non-zero if we want to trace architecture code. */
61 #define GDBARCH_DEBUG 0
63 int gdbarch_debug
= GDBARCH_DEBUG
;
65 show_gdbarch_debug (struct ui_file
*file
, int from_tty
,
66 struct cmd_list_element
*c
, const char *value
)
68 fprintf_filtered (file
, _("Architecture debugging is %s.\n"), value
);
72 pformat (const struct floatformat
**format
)
77 /* Just print out one of them - this is only for diagnostics. */
78 return format
[0]->name
;
82 /* Maintain the struct gdbarch object */
86 /* Has this architecture been fully initialized? */
89 /* An obstack bound to the lifetime of the architecture. */
90 struct obstack
*obstack
;
92 /* basic architectural information */
93 const struct bfd_arch_info
* bfd_arch_info
;
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).
140 const struct floatformat
** float_format
;
142 const struct floatformat
** double_format
;
144 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_dwarf_reg_to_regnum_ftype
*dwarf_reg_to_regnum
;
163 gdbarch_sdb_reg_to_regnum_ftype
*sdb_reg_to_regnum
;
164 gdbarch_dwarf2_reg_to_regnum_ftype
*dwarf2_reg_to_regnum
;
165 gdbarch_register_name_ftype
*register_name
;
166 gdbarch_register_type_ftype
*register_type
;
167 gdbarch_unwind_dummy_id_ftype
*unwind_dummy_id
;
168 int deprecated_fp_regnum
;
169 gdbarch_push_dummy_call_ftype
*push_dummy_call
;
170 int deprecated_register_size
;
171 int call_dummy_location
;
172 gdbarch_push_dummy_code_ftype
*push_dummy_code
;
173 gdbarch_print_registers_info_ftype
*print_registers_info
;
174 gdbarch_print_float_info_ftype
*print_float_info
;
175 gdbarch_print_vector_info_ftype
*print_vector_info
;
176 gdbarch_register_sim_regno_ftype
*register_sim_regno
;
177 gdbarch_cannot_fetch_register_ftype
*cannot_fetch_register
;
178 gdbarch_cannot_store_register_ftype
*cannot_store_register
;
179 gdbarch_get_longjmp_target_ftype
*get_longjmp_target
;
180 int believe_pcc_promotion
;
181 gdbarch_convert_register_p_ftype
*convert_register_p
;
182 gdbarch_register_to_value_ftype
*register_to_value
;
183 gdbarch_value_to_register_ftype
*value_to_register
;
184 gdbarch_value_from_register_ftype
*value_from_register
;
185 gdbarch_pointer_to_address_ftype
*pointer_to_address
;
186 gdbarch_address_to_pointer_ftype
*address_to_pointer
;
187 gdbarch_integer_to_address_ftype
*integer_to_address
;
188 gdbarch_return_value_ftype
*return_value
;
189 gdbarch_extract_return_value_ftype
*extract_return_value
;
190 gdbarch_store_return_value_ftype
*store_return_value
;
191 gdbarch_deprecated_use_struct_convention_ftype
*deprecated_use_struct_convention
;
192 gdbarch_deprecated_extract_struct_value_address_ftype
*deprecated_extract_struct_value_address
;
193 gdbarch_skip_prologue_ftype
*skip_prologue
;
194 gdbarch_inner_than_ftype
*inner_than
;
195 gdbarch_breakpoint_from_pc_ftype
*breakpoint_from_pc
;
196 gdbarch_adjust_breakpoint_address_ftype
*adjust_breakpoint_address
;
197 gdbarch_memory_insert_breakpoint_ftype
*memory_insert_breakpoint
;
198 gdbarch_memory_remove_breakpoint_ftype
*memory_remove_breakpoint
;
199 CORE_ADDR decr_pc_after_break
;
200 CORE_ADDR deprecated_function_start_offset
;
201 gdbarch_remote_register_number_ftype
*remote_register_number
;
202 gdbarch_fetch_tls_load_module_address_ftype
*fetch_tls_load_module_address
;
203 CORE_ADDR frame_args_skip
;
204 gdbarch_unwind_pc_ftype
*unwind_pc
;
205 gdbarch_unwind_sp_ftype
*unwind_sp
;
206 gdbarch_frame_num_args_ftype
*frame_num_args
;
207 gdbarch_deprecated_stack_align_ftype
*deprecated_stack_align
;
208 gdbarch_frame_align_ftype
*frame_align
;
209 gdbarch_deprecated_reg_struct_has_addr_ftype
*deprecated_reg_struct_has_addr
;
210 gdbarch_stabs_argument_has_addr_ftype
*stabs_argument_has_addr
;
211 int frame_red_zone_size
;
212 gdbarch_convert_from_func_ptr_addr_ftype
*convert_from_func_ptr_addr
;
213 gdbarch_addr_bits_remove_ftype
*addr_bits_remove
;
214 gdbarch_smash_text_address_ftype
*smash_text_address
;
215 gdbarch_software_single_step_ftype
*software_single_step
;
216 gdbarch_single_step_through_delay_ftype
*single_step_through_delay
;
217 gdbarch_print_insn_ftype
*print_insn
;
218 gdbarch_skip_trampoline_code_ftype
*skip_trampoline_code
;
219 gdbarch_skip_solib_resolver_ftype
*skip_solib_resolver
;
220 gdbarch_in_solib_return_trampoline_ftype
*in_solib_return_trampoline
;
221 gdbarch_in_function_epilogue_p_ftype
*in_function_epilogue_p
;
222 gdbarch_construct_inferior_arguments_ftype
*construct_inferior_arguments
;
223 gdbarch_elf_make_msymbol_special_ftype
*elf_make_msymbol_special
;
224 gdbarch_coff_make_msymbol_special_ftype
*coff_make_msymbol_special
;
225 const char * name_of_malloc
;
226 int cannot_step_breakpoint
;
227 int have_nonsteppable_watchpoint
;
228 gdbarch_address_class_type_flags_ftype
*address_class_type_flags
;
229 gdbarch_address_class_type_flags_to_name_ftype
*address_class_type_flags_to_name
;
230 gdbarch_address_class_name_to_type_flags_ftype
*address_class_name_to_type_flags
;
231 gdbarch_register_reggroup_p_ftype
*register_reggroup_p
;
232 gdbarch_fetch_pointer_argument_ftype
*fetch_pointer_argument
;
233 gdbarch_regset_from_core_section_ftype
*regset_from_core_section
;
234 int vtable_function_descriptors
;
236 gdbarch_skip_permanent_breakpoint_ftype
*skip_permanent_breakpoint
;
237 gdbarch_overlay_update_ftype
*overlay_update
;
241 /* The default architecture uses host values (for want of a better
244 extern const struct bfd_arch_info bfd_default_arch_struct
;
246 struct gdbarch startup_gdbarch
=
248 1, /* Always initialized. */
249 NULL
, /* The obstack. */
250 /* basic architecture information */
251 &bfd_default_arch_struct
, /* bfd_arch_info */
252 BFD_ENDIAN_BIG
, /* byte_order */
253 GDB_OSABI_UNKNOWN
, /* osabi */
255 /* target specific vector and its dump routine */
257 /*per-architecture data-pointers and swap regions */
259 /* Multi-arch values */
260 8 * sizeof (short), /* short_bit */
261 8 * sizeof (int), /* int_bit */
262 8 * sizeof (long), /* long_bit */
263 8 * sizeof (LONGEST
), /* long_long_bit */
264 8 * sizeof (float), /* float_bit */
265 0, /* float_format */
266 8 * sizeof (double), /* double_bit */
267 0, /* double_format */
268 8 * sizeof (long double), /* long_double_bit */
269 0, /* long_double_format */
270 8 * sizeof (void*), /* ptr_bit */
271 8 * sizeof (void*), /* addr_bit */
272 8 * sizeof (void*), /* bfd_vma_bit */
276 0, /* virtual_frame_pointer */
277 0, /* pseudo_register_read */
278 0, /* pseudo_register_write */
280 0, /* num_pseudo_regs */
285 0, /* stab_reg_to_regnum */
286 0, /* ecoff_reg_to_regnum */
287 0, /* dwarf_reg_to_regnum */
288 0, /* sdb_reg_to_regnum */
289 0, /* dwarf2_reg_to_regnum */
290 0, /* register_name */
291 0, /* register_type */
292 0, /* unwind_dummy_id */
293 -1, /* deprecated_fp_regnum */
294 0, /* push_dummy_call */
295 0, /* deprecated_register_size */
296 0, /* call_dummy_location */
297 0, /* push_dummy_code */
298 default_print_registers_info
, /* print_registers_info */
299 0, /* print_float_info */
300 0, /* print_vector_info */
301 0, /* register_sim_regno */
302 0, /* cannot_fetch_register */
303 0, /* cannot_store_register */
304 0, /* get_longjmp_target */
305 0, /* believe_pcc_promotion */
306 0, /* convert_register_p */
307 0, /* register_to_value */
308 0, /* value_to_register */
309 0, /* value_from_register */
310 0, /* pointer_to_address */
311 0, /* address_to_pointer */
312 0, /* integer_to_address */
313 0, /* return_value */
314 0, /* extract_return_value */
315 0, /* store_return_value */
316 0, /* deprecated_use_struct_convention */
317 0, /* deprecated_extract_struct_value_address */
318 0, /* skip_prologue */
320 0, /* breakpoint_from_pc */
321 0, /* adjust_breakpoint_address */
322 0, /* memory_insert_breakpoint */
323 0, /* memory_remove_breakpoint */
324 0, /* decr_pc_after_break */
325 0, /* deprecated_function_start_offset */
326 default_remote_register_number
, /* remote_register_number */
327 0, /* fetch_tls_load_module_address */
328 0, /* frame_args_skip */
331 0, /* frame_num_args */
332 0, /* deprecated_stack_align */
334 0, /* deprecated_reg_struct_has_addr */
335 default_stabs_argument_has_addr
, /* stabs_argument_has_addr */
336 0, /* frame_red_zone_size */
337 convert_from_func_ptr_addr_identity
, /* convert_from_func_ptr_addr */
338 0, /* addr_bits_remove */
339 0, /* smash_text_address */
340 0, /* software_single_step */
341 0, /* single_step_through_delay */
343 0, /* skip_trampoline_code */
344 generic_skip_solib_resolver
, /* skip_solib_resolver */
345 0, /* in_solib_return_trampoline */
346 generic_in_function_epilogue_p
, /* in_function_epilogue_p */
347 construct_inferior_arguments
, /* construct_inferior_arguments */
348 0, /* elf_make_msymbol_special */
349 0, /* coff_make_msymbol_special */
350 "malloc", /* name_of_malloc */
351 0, /* cannot_step_breakpoint */
352 0, /* have_nonsteppable_watchpoint */
353 0, /* address_class_type_flags */
354 0, /* address_class_type_flags_to_name */
355 0, /* address_class_name_to_type_flags */
356 default_register_reggroup_p
, /* register_reggroup_p */
357 0, /* fetch_pointer_argument */
358 0, /* regset_from_core_section */
359 0, /* vtable_function_descriptors */
360 0, /* vbit_in_delta */
361 0, /* skip_permanent_breakpoint */
362 0, /* overlay_update */
363 /* startup_gdbarch() */
366 struct gdbarch
*current_gdbarch
= &startup_gdbarch
;
368 /* Create a new ``struct gdbarch'' based on information provided by
369 ``struct gdbarch_info''. */
372 gdbarch_alloc (const struct gdbarch_info
*info
,
373 struct gdbarch_tdep
*tdep
)
375 /* NOTE: The new architecture variable is named ``current_gdbarch''
376 so that macros such as TARGET_DOUBLE_BIT, when expanded, refer to
377 the current local architecture and not the previous global
378 architecture. This ensures that the new architectures initial
379 values are not influenced by the previous architecture. Once
380 everything is parameterised with gdbarch, this will go away. */
381 struct gdbarch
*current_gdbarch
;
383 /* Create an obstack for allocating all the per-architecture memory,
384 then use that to allocate the architecture vector. */
385 struct obstack
*obstack
= XMALLOC (struct obstack
);
386 obstack_init (obstack
);
387 current_gdbarch
= obstack_alloc (obstack
, sizeof (*current_gdbarch
));
388 memset (current_gdbarch
, 0, sizeof (*current_gdbarch
));
389 current_gdbarch
->obstack
= obstack
;
391 alloc_gdbarch_data (current_gdbarch
);
393 current_gdbarch
->tdep
= tdep
;
395 current_gdbarch
->bfd_arch_info
= info
->bfd_arch_info
;
396 current_gdbarch
->byte_order
= info
->byte_order
;
397 current_gdbarch
->osabi
= info
->osabi
;
398 current_gdbarch
->target_desc
= info
->target_desc
;
400 /* Force the explicit initialization of these. */
401 current_gdbarch
->short_bit
= 2*TARGET_CHAR_BIT
;
402 current_gdbarch
->int_bit
= 4*TARGET_CHAR_BIT
;
403 current_gdbarch
->long_bit
= 4*TARGET_CHAR_BIT
;
404 current_gdbarch
->long_long_bit
= 2*TARGET_LONG_BIT
;
405 current_gdbarch
->float_bit
= 4*TARGET_CHAR_BIT
;
406 current_gdbarch
->double_bit
= 8*TARGET_CHAR_BIT
;
407 current_gdbarch
->long_double_bit
= 8*TARGET_CHAR_BIT
;
408 current_gdbarch
->ptr_bit
= TARGET_INT_BIT
;
409 current_gdbarch
->bfd_vma_bit
= TARGET_ARCHITECTURE
->bits_per_address
;
410 current_gdbarch
->char_signed
= -1;
411 current_gdbarch
->write_pc
= generic_target_write_pc
;
412 current_gdbarch
->virtual_frame_pointer
= legacy_virtual_frame_pointer
;
413 current_gdbarch
->num_regs
= -1;
414 current_gdbarch
->sp_regnum
= -1;
415 current_gdbarch
->pc_regnum
= -1;
416 current_gdbarch
->ps_regnum
= -1;
417 current_gdbarch
->fp0_regnum
= -1;
418 current_gdbarch
->stab_reg_to_regnum
= no_op_reg_to_regnum
;
419 current_gdbarch
->ecoff_reg_to_regnum
= no_op_reg_to_regnum
;
420 current_gdbarch
->dwarf_reg_to_regnum
= no_op_reg_to_regnum
;
421 current_gdbarch
->sdb_reg_to_regnum
= no_op_reg_to_regnum
;
422 current_gdbarch
->dwarf2_reg_to_regnum
= no_op_reg_to_regnum
;
423 current_gdbarch
->deprecated_fp_regnum
= -1;
424 current_gdbarch
->call_dummy_location
= AT_ENTRY_POINT
;
425 current_gdbarch
->print_registers_info
= default_print_registers_info
;
426 current_gdbarch
->register_sim_regno
= legacy_register_sim_regno
;
427 current_gdbarch
->cannot_fetch_register
= cannot_register_not
;
428 current_gdbarch
->cannot_store_register
= cannot_register_not
;
429 current_gdbarch
->convert_register_p
= generic_convert_register_p
;
430 current_gdbarch
->value_from_register
= default_value_from_register
;
431 current_gdbarch
->pointer_to_address
= unsigned_pointer_to_address
;
432 current_gdbarch
->address_to_pointer
= unsigned_address_to_pointer
;
433 current_gdbarch
->return_value
= legacy_return_value
;
434 current_gdbarch
->deprecated_use_struct_convention
= generic_use_struct_convention
;
435 current_gdbarch
->memory_insert_breakpoint
= default_memory_insert_breakpoint
;
436 current_gdbarch
->memory_remove_breakpoint
= default_memory_remove_breakpoint
;
437 current_gdbarch
->remote_register_number
= default_remote_register_number
;
438 current_gdbarch
->stabs_argument_has_addr
= default_stabs_argument_has_addr
;
439 current_gdbarch
->convert_from_func_ptr_addr
= convert_from_func_ptr_addr_identity
;
440 current_gdbarch
->addr_bits_remove
= core_addr_identity
;
441 current_gdbarch
->smash_text_address
= core_addr_identity
;
442 current_gdbarch
->skip_trampoline_code
= generic_skip_trampoline_code
;
443 current_gdbarch
->skip_solib_resolver
= generic_skip_solib_resolver
;
444 current_gdbarch
->in_solib_return_trampoline
= generic_in_solib_return_trampoline
;
445 current_gdbarch
->in_function_epilogue_p
= generic_in_function_epilogue_p
;
446 current_gdbarch
->construct_inferior_arguments
= construct_inferior_arguments
;
447 current_gdbarch
->elf_make_msymbol_special
= default_elf_make_msymbol_special
;
448 current_gdbarch
->coff_make_msymbol_special
= default_coff_make_msymbol_special
;
449 current_gdbarch
->name_of_malloc
= "malloc";
450 current_gdbarch
->register_reggroup_p
= default_register_reggroup_p
;
451 /* gdbarch_alloc() */
453 return current_gdbarch
;
457 /* Allocate extra space using the per-architecture obstack. */
460 gdbarch_obstack_zalloc (struct gdbarch
*arch
, long size
)
462 void *data
= obstack_alloc (arch
->obstack
, size
);
463 memset (data
, 0, size
);
468 /* Free a gdbarch struct. This should never happen in normal
469 operation --- once you've created a gdbarch, you keep it around.
470 However, if an architecture's init function encounters an error
471 building the structure, it may need to clean up a partially
472 constructed gdbarch. */
475 gdbarch_free (struct gdbarch
*arch
)
477 struct obstack
*obstack
;
478 gdb_assert (arch
!= NULL
);
479 gdb_assert (!arch
->initialized_p
);
480 obstack
= arch
->obstack
;
481 obstack_free (obstack
, 0); /* Includes the ARCH. */
486 /* Ensure that all values in a GDBARCH are reasonable. */
488 /* NOTE/WARNING: The parameter is called ``current_gdbarch'' so that it
489 just happens to match the global variable ``current_gdbarch''. That
490 way macros refering to that variable get the local and not the global
491 version - ulgh. Once everything is parameterised with gdbarch, this
495 verify_gdbarch (struct gdbarch
*current_gdbarch
)
498 struct cleanup
*cleanups
;
501 log
= mem_fileopen ();
502 cleanups
= make_cleanup_ui_file_delete (log
);
504 if (current_gdbarch
->byte_order
== BFD_ENDIAN_UNKNOWN
)
505 fprintf_unfiltered (log
, "\n\tbyte-order");
506 if (current_gdbarch
->bfd_arch_info
== NULL
)
507 fprintf_unfiltered (log
, "\n\tbfd_arch_info");
508 /* Check those that need to be defined for the given multi-arch level. */
509 /* Skip verify of short_bit, invalid_p == 0 */
510 /* Skip verify of int_bit, invalid_p == 0 */
511 /* Skip verify of long_bit, invalid_p == 0 */
512 /* Skip verify of long_long_bit, invalid_p == 0 */
513 /* Skip verify of float_bit, invalid_p == 0 */
514 if (current_gdbarch
->float_format
== 0)
515 current_gdbarch
->float_format
= floatformats_ieee_single
;
516 /* Skip verify of double_bit, invalid_p == 0 */
517 if (current_gdbarch
->double_format
== 0)
518 current_gdbarch
->double_format
= floatformats_ieee_double
;
519 /* Skip verify of long_double_bit, invalid_p == 0 */
520 if (current_gdbarch
->long_double_format
== 0)
521 current_gdbarch
->long_double_format
= floatformats_ieee_double
;
522 /* Skip verify of ptr_bit, invalid_p == 0 */
523 if (current_gdbarch
->addr_bit
== 0)
524 current_gdbarch
->addr_bit
= TARGET_PTR_BIT
;
525 /* Skip verify of bfd_vma_bit, invalid_p == 0 */
526 if (current_gdbarch
->char_signed
== -1)
527 current_gdbarch
->char_signed
= 1;
528 /* Skip verify of read_pc, has predicate */
529 /* Skip verify of write_pc, invalid_p == 0 */
530 /* Skip verify of virtual_frame_pointer, invalid_p == 0 */
531 /* Skip verify of pseudo_register_read, has predicate */
532 /* Skip verify of pseudo_register_write, has predicate */
533 if (current_gdbarch
->num_regs
== -1)
534 fprintf_unfiltered (log
, "\n\tnum_regs");
535 /* Skip verify of num_pseudo_regs, invalid_p == 0 */
536 /* Skip verify of sp_regnum, invalid_p == 0 */
537 /* Skip verify of pc_regnum, invalid_p == 0 */
538 /* Skip verify of ps_regnum, invalid_p == 0 */
539 /* Skip verify of fp0_regnum, invalid_p == 0 */
540 /* Skip verify of stab_reg_to_regnum, invalid_p == 0 */
541 /* Skip verify of ecoff_reg_to_regnum, invalid_p == 0 */
542 /* Skip verify of dwarf_reg_to_regnum, invalid_p == 0 */
543 /* Skip verify of sdb_reg_to_regnum, invalid_p == 0 */
544 /* Skip verify of dwarf2_reg_to_regnum, invalid_p == 0 */
545 /* Skip verify of register_type, has predicate */
546 /* Skip verify of unwind_dummy_id, has predicate */
547 /* Skip verify of deprecated_fp_regnum, invalid_p == 0 */
548 /* Skip verify of push_dummy_call, has predicate */
549 /* Skip verify of call_dummy_location, invalid_p == 0 */
550 /* Skip verify of push_dummy_code, has predicate */
551 /* Skip verify of print_registers_info, invalid_p == 0 */
552 /* Skip verify of print_float_info, has predicate */
553 /* Skip verify of print_vector_info, has predicate */
554 /* Skip verify of register_sim_regno, invalid_p == 0 */
555 /* Skip verify of cannot_fetch_register, invalid_p == 0 */
556 /* Skip verify of cannot_store_register, invalid_p == 0 */
557 /* Skip verify of get_longjmp_target, has predicate */
558 /* Skip verify of convert_register_p, invalid_p == 0 */
559 /* Skip verify of value_from_register, invalid_p == 0 */
560 /* Skip verify of pointer_to_address, invalid_p == 0 */
561 /* Skip verify of address_to_pointer, invalid_p == 0 */
562 /* Skip verify of integer_to_address, has predicate */
563 /* Skip verify of return_value, has predicate */
564 /* Skip verify of deprecated_use_struct_convention, invalid_p == 0 */
565 /* Skip verify of deprecated_extract_struct_value_address, has predicate */
566 if (current_gdbarch
->skip_prologue
== 0)
567 fprintf_unfiltered (log
, "\n\tskip_prologue");
568 if (current_gdbarch
->inner_than
== 0)
569 fprintf_unfiltered (log
, "\n\tinner_than");
570 if (current_gdbarch
->breakpoint_from_pc
== 0)
571 fprintf_unfiltered (log
, "\n\tbreakpoint_from_pc");
572 /* Skip verify of adjust_breakpoint_address, has predicate */
573 /* Skip verify of memory_insert_breakpoint, invalid_p == 0 */
574 /* Skip verify of memory_remove_breakpoint, invalid_p == 0 */
575 /* Skip verify of decr_pc_after_break, invalid_p == 0 */
576 /* Skip verify of deprecated_function_start_offset, invalid_p == 0 */
577 /* Skip verify of remote_register_number, invalid_p == 0 */
578 /* Skip verify of fetch_tls_load_module_address, has predicate */
579 /* Skip verify of frame_args_skip, invalid_p == 0 */
580 /* Skip verify of unwind_pc, has predicate */
581 /* Skip verify of unwind_sp, has predicate */
582 /* Skip verify of frame_num_args, has predicate */
583 /* Skip verify of deprecated_stack_align, has predicate */
584 /* Skip verify of frame_align, has predicate */
585 /* Skip verify of deprecated_reg_struct_has_addr, has predicate */
586 /* Skip verify of stabs_argument_has_addr, invalid_p == 0 */
587 /* Skip verify of convert_from_func_ptr_addr, invalid_p == 0 */
588 /* Skip verify of addr_bits_remove, invalid_p == 0 */
589 /* Skip verify of smash_text_address, invalid_p == 0 */
590 /* Skip verify of software_single_step, has predicate */
591 /* Skip verify of single_step_through_delay, has predicate */
592 if (current_gdbarch
->print_insn
== 0)
593 fprintf_unfiltered (log
, "\n\tprint_insn");
594 /* Skip verify of skip_trampoline_code, invalid_p == 0 */
595 /* Skip verify of skip_solib_resolver, invalid_p == 0 */
596 /* Skip verify of in_solib_return_trampoline, invalid_p == 0 */
597 /* Skip verify of in_function_epilogue_p, invalid_p == 0 */
598 /* Skip verify of construct_inferior_arguments, invalid_p == 0 */
599 /* Skip verify of elf_make_msymbol_special, invalid_p == 0 */
600 /* Skip verify of coff_make_msymbol_special, invalid_p == 0 */
601 /* Skip verify of name_of_malloc, invalid_p == 0 */
602 /* Skip verify of cannot_step_breakpoint, invalid_p == 0 */
603 /* Skip verify of have_nonsteppable_watchpoint, invalid_p == 0 */
604 /* Skip verify of address_class_type_flags, has predicate */
605 /* Skip verify of address_class_type_flags_to_name, has predicate */
606 /* Skip verify of address_class_name_to_type_flags, has predicate */
607 /* Skip verify of register_reggroup_p, invalid_p == 0 */
608 /* Skip verify of fetch_pointer_argument, has predicate */
609 /* Skip verify of regset_from_core_section, has predicate */
610 /* Skip verify of vtable_function_descriptors, invalid_p == 0 */
611 /* Skip verify of vbit_in_delta, invalid_p == 0 */
612 /* Skip verify of skip_permanent_breakpoint, has predicate */
613 /* Skip verify of overlay_update, has predicate */
614 buf
= ui_file_xstrdup (log
, &dummy
);
615 make_cleanup (xfree
, buf
);
616 if (strlen (buf
) > 0)
617 internal_error (__FILE__
, __LINE__
,
618 _("verify_gdbarch: the following are invalid ...%s"),
620 do_cleanups (cleanups
);
624 /* Print out the details of the current architecture. */
626 /* NOTE/WARNING: The parameter is called ``current_gdbarch'' so that it
627 just happens to match the global variable ``current_gdbarch''. That
628 way macros refering to that variable get the local and not the global
629 version - ulgh. Once everything is parameterised with gdbarch, this
633 gdbarch_dump (struct gdbarch
*current_gdbarch
, struct ui_file
*file
)
635 const char *gdb_xm_file
= "<not-defined>";
636 const char *gdb_nm_file
= "<not-defined>";
637 const char *gdb_tm_file
= "<not-defined>";
638 #if defined (GDB_XM_FILE)
639 gdb_xm_file
= GDB_XM_FILE
;
641 fprintf_unfiltered (file
,
642 "gdbarch_dump: GDB_XM_FILE = %s\n",
644 #if defined (GDB_NM_FILE)
645 gdb_nm_file
= GDB_NM_FILE
;
647 fprintf_unfiltered (file
,
648 "gdbarch_dump: GDB_NM_FILE = %s\n",
650 #if defined (GDB_TM_FILE)
651 gdb_tm_file
= GDB_TM_FILE
;
653 fprintf_unfiltered (file
,
654 "gdbarch_dump: GDB_TM_FILE = %s\n",
656 #ifdef TARGET_ADDR_BIT
657 fprintf_unfiltered (file
,
658 "gdbarch_dump: TARGET_ADDR_BIT # %s\n",
659 XSTRING (TARGET_ADDR_BIT
));
661 fprintf_unfiltered (file
,
662 "gdbarch_dump: addr_bit = %s\n",
663 paddr_d (current_gdbarch
->addr_bit
));
664 fprintf_unfiltered (file
,
665 "gdbarch_dump: addr_bits_remove = <0x%lx>\n",
666 (long) current_gdbarch
->addr_bits_remove
);
667 fprintf_unfiltered (file
,
668 "gdbarch_dump: gdbarch_address_class_name_to_type_flags_p() = %d\n",
669 gdbarch_address_class_name_to_type_flags_p (current_gdbarch
));
670 fprintf_unfiltered (file
,
671 "gdbarch_dump: address_class_name_to_type_flags = <0x%lx>\n",
672 (long) current_gdbarch
->address_class_name_to_type_flags
);
673 fprintf_unfiltered (file
,
674 "gdbarch_dump: gdbarch_address_class_type_flags_p() = %d\n",
675 gdbarch_address_class_type_flags_p (current_gdbarch
));
676 fprintf_unfiltered (file
,
677 "gdbarch_dump: address_class_type_flags = <0x%lx>\n",
678 (long) current_gdbarch
->address_class_type_flags
);
679 fprintf_unfiltered (file
,
680 "gdbarch_dump: gdbarch_address_class_type_flags_to_name_p() = %d\n",
681 gdbarch_address_class_type_flags_to_name_p (current_gdbarch
));
682 fprintf_unfiltered (file
,
683 "gdbarch_dump: address_class_type_flags_to_name = <0x%lx>\n",
684 (long) current_gdbarch
->address_class_type_flags_to_name
);
685 fprintf_unfiltered (file
,
686 "gdbarch_dump: address_to_pointer = <0x%lx>\n",
687 (long) current_gdbarch
->address_to_pointer
);
688 fprintf_unfiltered (file
,
689 "gdbarch_dump: gdbarch_adjust_breakpoint_address_p() = %d\n",
690 gdbarch_adjust_breakpoint_address_p (current_gdbarch
));
691 fprintf_unfiltered (file
,
692 "gdbarch_dump: adjust_breakpoint_address = <0x%lx>\n",
693 (long) current_gdbarch
->adjust_breakpoint_address
);
694 #ifdef BELIEVE_PCC_PROMOTION
695 fprintf_unfiltered (file
,
696 "gdbarch_dump: BELIEVE_PCC_PROMOTION # %s\n",
697 XSTRING (BELIEVE_PCC_PROMOTION
));
699 fprintf_unfiltered (file
,
700 "gdbarch_dump: believe_pcc_promotion = %s\n",
701 paddr_d (current_gdbarch
->believe_pcc_promotion
));
702 #ifdef TARGET_ARCHITECTURE
703 fprintf_unfiltered (file
,
704 "gdbarch_dump: TARGET_ARCHITECTURE # %s\n",
705 XSTRING (TARGET_ARCHITECTURE
));
707 fprintf_unfiltered (file
,
708 "gdbarch_dump: bfd_arch_info = %s\n",
709 TARGET_ARCHITECTURE
->printable_name
);
710 #ifdef TARGET_BFD_VMA_BIT
711 fprintf_unfiltered (file
,
712 "gdbarch_dump: TARGET_BFD_VMA_BIT # %s\n",
713 XSTRING (TARGET_BFD_VMA_BIT
));
715 fprintf_unfiltered (file
,
716 "gdbarch_dump: bfd_vma_bit = %s\n",
717 paddr_d (current_gdbarch
->bfd_vma_bit
));
718 #ifdef BREAKPOINT_FROM_PC
719 fprintf_unfiltered (file
,
720 "gdbarch_dump: %s # %s\n",
721 "BREAKPOINT_FROM_PC(pcptr, lenptr)",
722 XSTRING (BREAKPOINT_FROM_PC (pcptr
, lenptr
)));
724 fprintf_unfiltered (file
,
725 "gdbarch_dump: breakpoint_from_pc = <0x%lx>\n",
726 (long) current_gdbarch
->breakpoint_from_pc
);
727 fprintf_unfiltered (file
,
728 "gdbarch_dump: byte_order = %s\n",
729 paddr_d (current_gdbarch
->byte_order
));
730 fprintf_unfiltered (file
,
731 "gdbarch_dump: call_dummy_location = %s\n",
732 paddr_d (current_gdbarch
->call_dummy_location
));
733 fprintf_unfiltered (file
,
734 "gdbarch_dump: cannot_fetch_register = <0x%lx>\n",
735 (long) current_gdbarch
->cannot_fetch_register
);
736 fprintf_unfiltered (file
,
737 "gdbarch_dump: cannot_step_breakpoint = %s\n",
738 paddr_d (current_gdbarch
->cannot_step_breakpoint
));
739 fprintf_unfiltered (file
,
740 "gdbarch_dump: cannot_store_register = <0x%lx>\n",
741 (long) current_gdbarch
->cannot_store_register
);
742 fprintf_unfiltered (file
,
743 "gdbarch_dump: char_signed = %s\n",
744 paddr_d (current_gdbarch
->char_signed
));
745 fprintf_unfiltered (file
,
746 "gdbarch_dump: coff_make_msymbol_special = <0x%lx>\n",
747 (long) current_gdbarch
->coff_make_msymbol_special
);
748 fprintf_unfiltered (file
,
749 "gdbarch_dump: construct_inferior_arguments = <0x%lx>\n",
750 (long) current_gdbarch
->construct_inferior_arguments
);
751 fprintf_unfiltered (file
,
752 "gdbarch_dump: convert_from_func_ptr_addr = <0x%lx>\n",
753 (long) current_gdbarch
->convert_from_func_ptr_addr
);
754 #ifdef CONVERT_REGISTER_P
755 fprintf_unfiltered (file
,
756 "gdbarch_dump: %s # %s\n",
757 "CONVERT_REGISTER_P(regnum, type)",
758 XSTRING (CONVERT_REGISTER_P (regnum
, type
)));
760 fprintf_unfiltered (file
,
761 "gdbarch_dump: convert_register_p = <0x%lx>\n",
762 (long) current_gdbarch
->convert_register_p
);
763 fprintf_unfiltered (file
,
764 "gdbarch_dump: decr_pc_after_break = 0x%s\n",
765 paddr_nz (current_gdbarch
->decr_pc_after_break
));
766 #ifdef DEPRECATED_EXTRACT_STRUCT_VALUE_ADDRESS_P
767 fprintf_unfiltered (file
,
768 "gdbarch_dump: %s # %s\n",
769 "DEPRECATED_EXTRACT_STRUCT_VALUE_ADDRESS_P()",
770 XSTRING (DEPRECATED_EXTRACT_STRUCT_VALUE_ADDRESS_P ()));
772 fprintf_unfiltered (file
,
773 "gdbarch_dump: gdbarch_deprecated_extract_struct_value_address_p() = %d\n",
774 gdbarch_deprecated_extract_struct_value_address_p (current_gdbarch
));
775 #ifdef DEPRECATED_EXTRACT_STRUCT_VALUE_ADDRESS
776 fprintf_unfiltered (file
,
777 "gdbarch_dump: %s # %s\n",
778 "DEPRECATED_EXTRACT_STRUCT_VALUE_ADDRESS(regcache)",
779 XSTRING (DEPRECATED_EXTRACT_STRUCT_VALUE_ADDRESS (regcache
)));
781 fprintf_unfiltered (file
,
782 "gdbarch_dump: deprecated_extract_struct_value_address = <0x%lx>\n",
783 (long) current_gdbarch
->deprecated_extract_struct_value_address
);
784 #ifdef DEPRECATED_FP_REGNUM
785 fprintf_unfiltered (file
,
786 "gdbarch_dump: DEPRECATED_FP_REGNUM # %s\n",
787 XSTRING (DEPRECATED_FP_REGNUM
));
789 fprintf_unfiltered (file
,
790 "gdbarch_dump: deprecated_fp_regnum = %s\n",
791 paddr_d (current_gdbarch
->deprecated_fp_regnum
));
792 #ifdef DEPRECATED_FUNCTION_START_OFFSET
793 fprintf_unfiltered (file
,
794 "gdbarch_dump: DEPRECATED_FUNCTION_START_OFFSET # %s\n",
795 XSTRING (DEPRECATED_FUNCTION_START_OFFSET
));
797 fprintf_unfiltered (file
,
798 "gdbarch_dump: deprecated_function_start_offset = 0x%s\n",
799 paddr_nz (current_gdbarch
->deprecated_function_start_offset
));
800 #ifdef DEPRECATED_REG_STRUCT_HAS_ADDR_P
801 fprintf_unfiltered (file
,
802 "gdbarch_dump: %s # %s\n",
803 "DEPRECATED_REG_STRUCT_HAS_ADDR_P()",
804 XSTRING (DEPRECATED_REG_STRUCT_HAS_ADDR_P ()));
806 fprintf_unfiltered (file
,
807 "gdbarch_dump: gdbarch_deprecated_reg_struct_has_addr_p() = %d\n",
808 gdbarch_deprecated_reg_struct_has_addr_p (current_gdbarch
));
809 #ifdef DEPRECATED_REG_STRUCT_HAS_ADDR
810 fprintf_unfiltered (file
,
811 "gdbarch_dump: %s # %s\n",
812 "DEPRECATED_REG_STRUCT_HAS_ADDR(gcc_p, type)",
813 XSTRING (DEPRECATED_REG_STRUCT_HAS_ADDR (gcc_p
, type
)));
815 fprintf_unfiltered (file
,
816 "gdbarch_dump: deprecated_reg_struct_has_addr = <0x%lx>\n",
817 (long) current_gdbarch
->deprecated_reg_struct_has_addr
);
818 #ifdef DEPRECATED_REGISTER_SIZE
819 fprintf_unfiltered (file
,
820 "gdbarch_dump: DEPRECATED_REGISTER_SIZE # %s\n",
821 XSTRING (DEPRECATED_REGISTER_SIZE
));
823 fprintf_unfiltered (file
,
824 "gdbarch_dump: deprecated_register_size = %s\n",
825 paddr_d (current_gdbarch
->deprecated_register_size
));
826 #ifdef DEPRECATED_STACK_ALIGN_P
827 fprintf_unfiltered (file
,
828 "gdbarch_dump: %s # %s\n",
829 "DEPRECATED_STACK_ALIGN_P()",
830 XSTRING (DEPRECATED_STACK_ALIGN_P ()));
832 fprintf_unfiltered (file
,
833 "gdbarch_dump: gdbarch_deprecated_stack_align_p() = %d\n",
834 gdbarch_deprecated_stack_align_p (current_gdbarch
));
835 #ifdef DEPRECATED_STACK_ALIGN
836 fprintf_unfiltered (file
,
837 "gdbarch_dump: %s # %s\n",
838 "DEPRECATED_STACK_ALIGN(sp)",
839 XSTRING (DEPRECATED_STACK_ALIGN (sp
)));
841 fprintf_unfiltered (file
,
842 "gdbarch_dump: deprecated_stack_align = <0x%lx>\n",
843 (long) current_gdbarch
->deprecated_stack_align
);
844 #ifdef DEPRECATED_USE_STRUCT_CONVENTION
845 fprintf_unfiltered (file
,
846 "gdbarch_dump: %s # %s\n",
847 "DEPRECATED_USE_STRUCT_CONVENTION(gcc_p, value_type)",
848 XSTRING (DEPRECATED_USE_STRUCT_CONVENTION (gcc_p
, value_type
)));
850 fprintf_unfiltered (file
,
851 "gdbarch_dump: deprecated_use_struct_convention = <0x%lx>\n",
852 (long) current_gdbarch
->deprecated_use_struct_convention
);
853 #ifdef TARGET_DOUBLE_BIT
854 fprintf_unfiltered (file
,
855 "gdbarch_dump: TARGET_DOUBLE_BIT # %s\n",
856 XSTRING (TARGET_DOUBLE_BIT
));
858 fprintf_unfiltered (file
,
859 "gdbarch_dump: double_bit = %s\n",
860 paddr_d (current_gdbarch
->double_bit
));
861 #ifdef TARGET_DOUBLE_FORMAT
862 fprintf_unfiltered (file
,
863 "gdbarch_dump: TARGET_DOUBLE_FORMAT # %s\n",
864 XSTRING (TARGET_DOUBLE_FORMAT
));
866 fprintf_unfiltered (file
,
867 "gdbarch_dump: double_format = %s\n",
868 pformat (current_gdbarch
->double_format
));
869 #ifdef DWARF2_REG_TO_REGNUM
870 fprintf_unfiltered (file
,
871 "gdbarch_dump: %s # %s\n",
872 "DWARF2_REG_TO_REGNUM(dwarf2_regnr)",
873 XSTRING (DWARF2_REG_TO_REGNUM (dwarf2_regnr
)));
875 fprintf_unfiltered (file
,
876 "gdbarch_dump: dwarf2_reg_to_regnum = <0x%lx>\n",
877 (long) current_gdbarch
->dwarf2_reg_to_regnum
);
878 #ifdef DWARF_REG_TO_REGNUM
879 fprintf_unfiltered (file
,
880 "gdbarch_dump: %s # %s\n",
881 "DWARF_REG_TO_REGNUM(dwarf_regnr)",
882 XSTRING (DWARF_REG_TO_REGNUM (dwarf_regnr
)));
884 fprintf_unfiltered (file
,
885 "gdbarch_dump: dwarf_reg_to_regnum = <0x%lx>\n",
886 (long) current_gdbarch
->dwarf_reg_to_regnum
);
887 #ifdef ECOFF_REG_TO_REGNUM
888 fprintf_unfiltered (file
,
889 "gdbarch_dump: %s # %s\n",
890 "ECOFF_REG_TO_REGNUM(ecoff_regnr)",
891 XSTRING (ECOFF_REG_TO_REGNUM (ecoff_regnr
)));
893 fprintf_unfiltered (file
,
894 "gdbarch_dump: ecoff_reg_to_regnum = <0x%lx>\n",
895 (long) current_gdbarch
->ecoff_reg_to_regnum
);
896 fprintf_unfiltered (file
,
897 "gdbarch_dump: elf_make_msymbol_special = <0x%lx>\n",
898 (long) current_gdbarch
->elf_make_msymbol_special
);
899 #ifdef EXTRACT_RETURN_VALUE
900 fprintf_unfiltered (file
,
901 "gdbarch_dump: %s # %s\n",
902 "EXTRACT_RETURN_VALUE(type, regcache, valbuf)",
903 XSTRING (EXTRACT_RETURN_VALUE (type
, regcache
, valbuf
)));
905 fprintf_unfiltered (file
,
906 "gdbarch_dump: extract_return_value = <0x%lx>\n",
907 (long) current_gdbarch
->extract_return_value
);
908 fprintf_unfiltered (file
,
909 "gdbarch_dump: gdbarch_fetch_pointer_argument_p() = %d\n",
910 gdbarch_fetch_pointer_argument_p (current_gdbarch
));
911 fprintf_unfiltered (file
,
912 "gdbarch_dump: fetch_pointer_argument = <0x%lx>\n",
913 (long) current_gdbarch
->fetch_pointer_argument
);
914 #ifdef FETCH_TLS_LOAD_MODULE_ADDRESS_P
915 fprintf_unfiltered (file
,
916 "gdbarch_dump: %s # %s\n",
917 "FETCH_TLS_LOAD_MODULE_ADDRESS_P()",
918 XSTRING (FETCH_TLS_LOAD_MODULE_ADDRESS_P ()));
920 fprintf_unfiltered (file
,
921 "gdbarch_dump: gdbarch_fetch_tls_load_module_address_p() = %d\n",
922 gdbarch_fetch_tls_load_module_address_p (current_gdbarch
));
923 #ifdef FETCH_TLS_LOAD_MODULE_ADDRESS
924 fprintf_unfiltered (file
,
925 "gdbarch_dump: %s # %s\n",
926 "FETCH_TLS_LOAD_MODULE_ADDRESS(objfile)",
927 XSTRING (FETCH_TLS_LOAD_MODULE_ADDRESS (objfile
)));
929 fprintf_unfiltered (file
,
930 "gdbarch_dump: fetch_tls_load_module_address = <0x%lx>\n",
931 (long) current_gdbarch
->fetch_tls_load_module_address
);
932 #ifdef TARGET_FLOAT_BIT
933 fprintf_unfiltered (file
,
934 "gdbarch_dump: TARGET_FLOAT_BIT # %s\n",
935 XSTRING (TARGET_FLOAT_BIT
));
937 fprintf_unfiltered (file
,
938 "gdbarch_dump: float_bit = %s\n",
939 paddr_d (current_gdbarch
->float_bit
));
940 #ifdef TARGET_FLOAT_FORMAT
941 fprintf_unfiltered (file
,
942 "gdbarch_dump: TARGET_FLOAT_FORMAT # %s\n",
943 XSTRING (TARGET_FLOAT_FORMAT
));
945 fprintf_unfiltered (file
,
946 "gdbarch_dump: float_format = %s\n",
947 pformat (current_gdbarch
->float_format
));
949 fprintf_unfiltered (file
,
950 "gdbarch_dump: FP0_REGNUM # %s\n",
951 XSTRING (FP0_REGNUM
));
953 fprintf_unfiltered (file
,
954 "gdbarch_dump: fp0_regnum = %s\n",
955 paddr_d (current_gdbarch
->fp0_regnum
));
956 fprintf_unfiltered (file
,
957 "gdbarch_dump: gdbarch_frame_align_p() = %d\n",
958 gdbarch_frame_align_p (current_gdbarch
));
959 fprintf_unfiltered (file
,
960 "gdbarch_dump: frame_align = <0x%lx>\n",
961 (long) current_gdbarch
->frame_align
);
962 fprintf_unfiltered (file
,
963 "gdbarch_dump: frame_args_skip = 0x%s\n",
964 paddr_nz (current_gdbarch
->frame_args_skip
));
965 fprintf_unfiltered (file
,
966 "gdbarch_dump: gdbarch_frame_num_args_p() = %d\n",
967 gdbarch_frame_num_args_p (current_gdbarch
));
968 fprintf_unfiltered (file
,
969 "gdbarch_dump: frame_num_args = <0x%lx>\n",
970 (long) current_gdbarch
->frame_num_args
);
971 fprintf_unfiltered (file
,
972 "gdbarch_dump: frame_red_zone_size = %s\n",
973 paddr_d (current_gdbarch
->frame_red_zone_size
));
974 fprintf_unfiltered (file
,
975 "gdbarch_dump: gdbarch_get_longjmp_target_p() = %d\n",
976 gdbarch_get_longjmp_target_p (current_gdbarch
));
977 fprintf_unfiltered (file
,
978 "gdbarch_dump: get_longjmp_target = <0x%lx>\n",
979 (long) current_gdbarch
->get_longjmp_target
);
980 fprintf_unfiltered (file
,
981 "gdbarch_dump: have_nonsteppable_watchpoint = %s\n",
982 paddr_d (current_gdbarch
->have_nonsteppable_watchpoint
));
983 fprintf_unfiltered (file
,
984 "gdbarch_dump: in_function_epilogue_p = <0x%lx>\n",
985 (long) current_gdbarch
->in_function_epilogue_p
);
986 #ifdef IN_SOLIB_RETURN_TRAMPOLINE
987 fprintf_unfiltered (file
,
988 "gdbarch_dump: %s # %s\n",
989 "IN_SOLIB_RETURN_TRAMPOLINE(pc, name)",
990 XSTRING (IN_SOLIB_RETURN_TRAMPOLINE (pc
, name
)));
992 fprintf_unfiltered (file
,
993 "gdbarch_dump: in_solib_return_trampoline = <0x%lx>\n",
994 (long) current_gdbarch
->in_solib_return_trampoline
);
995 fprintf_unfiltered (file
,
996 "gdbarch_dump: inner_than = <0x%lx>\n",
997 (long) current_gdbarch
->inner_than
);
998 #ifdef TARGET_INT_BIT
999 fprintf_unfiltered (file
,
1000 "gdbarch_dump: TARGET_INT_BIT # %s\n",
1001 XSTRING (TARGET_INT_BIT
));
1003 fprintf_unfiltered (file
,
1004 "gdbarch_dump: int_bit = %s\n",
1005 paddr_d (current_gdbarch
->int_bit
));
1006 fprintf_unfiltered (file
,
1007 "gdbarch_dump: gdbarch_integer_to_address_p() = %d\n",
1008 gdbarch_integer_to_address_p (current_gdbarch
));
1009 fprintf_unfiltered (file
,
1010 "gdbarch_dump: integer_to_address = <0x%lx>\n",
1011 (long) current_gdbarch
->integer_to_address
);
1012 #ifdef TARGET_LONG_BIT
1013 fprintf_unfiltered (file
,
1014 "gdbarch_dump: TARGET_LONG_BIT # %s\n",
1015 XSTRING (TARGET_LONG_BIT
));
1017 fprintf_unfiltered (file
,
1018 "gdbarch_dump: long_bit = %s\n",
1019 paddr_d (current_gdbarch
->long_bit
));
1020 #ifdef TARGET_LONG_DOUBLE_BIT
1021 fprintf_unfiltered (file
,
1022 "gdbarch_dump: TARGET_LONG_DOUBLE_BIT # %s\n",
1023 XSTRING (TARGET_LONG_DOUBLE_BIT
));
1025 fprintf_unfiltered (file
,
1026 "gdbarch_dump: long_double_bit = %s\n",
1027 paddr_d (current_gdbarch
->long_double_bit
));
1028 #ifdef TARGET_LONG_DOUBLE_FORMAT
1029 fprintf_unfiltered (file
,
1030 "gdbarch_dump: TARGET_LONG_DOUBLE_FORMAT # %s\n",
1031 XSTRING (TARGET_LONG_DOUBLE_FORMAT
));
1033 fprintf_unfiltered (file
,
1034 "gdbarch_dump: long_double_format = %s\n",
1035 pformat (current_gdbarch
->long_double_format
));
1036 #ifdef TARGET_LONG_LONG_BIT
1037 fprintf_unfiltered (file
,
1038 "gdbarch_dump: TARGET_LONG_LONG_BIT # %s\n",
1039 XSTRING (TARGET_LONG_LONG_BIT
));
1041 fprintf_unfiltered (file
,
1042 "gdbarch_dump: long_long_bit = %s\n",
1043 paddr_d (current_gdbarch
->long_long_bit
));
1044 #ifdef MEMORY_INSERT_BREAKPOINT
1045 fprintf_unfiltered (file
,
1046 "gdbarch_dump: %s # %s\n",
1047 "MEMORY_INSERT_BREAKPOINT(bp_tgt)",
1048 XSTRING (MEMORY_INSERT_BREAKPOINT (bp_tgt
)));
1050 fprintf_unfiltered (file
,
1051 "gdbarch_dump: memory_insert_breakpoint = <0x%lx>\n",
1052 (long) current_gdbarch
->memory_insert_breakpoint
);
1053 #ifdef MEMORY_REMOVE_BREAKPOINT
1054 fprintf_unfiltered (file
,
1055 "gdbarch_dump: %s # %s\n",
1056 "MEMORY_REMOVE_BREAKPOINT(bp_tgt)",
1057 XSTRING (MEMORY_REMOVE_BREAKPOINT (bp_tgt
)));
1059 fprintf_unfiltered (file
,
1060 "gdbarch_dump: memory_remove_breakpoint = <0x%lx>\n",
1061 (long) current_gdbarch
->memory_remove_breakpoint
);
1062 #ifdef NAME_OF_MALLOC
1063 fprintf_unfiltered (file
,
1064 "gdbarch_dump: NAME_OF_MALLOC # %s\n",
1065 XSTRING (NAME_OF_MALLOC
));
1067 fprintf_unfiltered (file
,
1068 "gdbarch_dump: name_of_malloc = %s\n",
1070 fprintf_unfiltered (file
,
1071 "gdbarch_dump: num_pseudo_regs = %s\n",
1072 paddr_d (current_gdbarch
->num_pseudo_regs
));
1073 fprintf_unfiltered (file
,
1074 "gdbarch_dump: num_regs = %s\n",
1075 paddr_d (current_gdbarch
->num_regs
));
1076 fprintf_unfiltered (file
,
1077 "gdbarch_dump: osabi = %s\n",
1078 paddr_d (current_gdbarch
->osabi
));
1079 fprintf_unfiltered (file
,
1080 "gdbarch_dump: gdbarch_overlay_update_p() = %d\n",
1081 gdbarch_overlay_update_p (current_gdbarch
));
1082 fprintf_unfiltered (file
,
1083 "gdbarch_dump: overlay_update = <0x%lx>\n",
1084 (long) current_gdbarch
->overlay_update
);
1086 fprintf_unfiltered (file
,
1087 "gdbarch_dump: PC_REGNUM # %s\n",
1088 XSTRING (PC_REGNUM
));
1090 fprintf_unfiltered (file
,
1091 "gdbarch_dump: pc_regnum = %s\n",
1092 paddr_d (current_gdbarch
->pc_regnum
));
1093 fprintf_unfiltered (file
,
1094 "gdbarch_dump: pointer_to_address = <0x%lx>\n",
1095 (long) current_gdbarch
->pointer_to_address
);
1096 fprintf_unfiltered (file
,
1097 "gdbarch_dump: gdbarch_print_float_info_p() = %d\n",
1098 gdbarch_print_float_info_p (current_gdbarch
));
1099 fprintf_unfiltered (file
,
1100 "gdbarch_dump: print_float_info = <0x%lx>\n",
1101 (long) current_gdbarch
->print_float_info
);
1102 #ifdef TARGET_PRINT_INSN
1103 fprintf_unfiltered (file
,
1104 "gdbarch_dump: %s # %s\n",
1105 "TARGET_PRINT_INSN(vma, info)",
1106 XSTRING (TARGET_PRINT_INSN (vma
, info
)));
1108 fprintf_unfiltered (file
,
1109 "gdbarch_dump: print_insn = <0x%lx>\n",
1110 (long) current_gdbarch
->print_insn
);
1111 fprintf_unfiltered (file
,
1112 "gdbarch_dump: print_registers_info = <0x%lx>\n",
1113 (long) current_gdbarch
->print_registers_info
);
1114 fprintf_unfiltered (file
,
1115 "gdbarch_dump: gdbarch_print_vector_info_p() = %d\n",
1116 gdbarch_print_vector_info_p (current_gdbarch
));
1117 fprintf_unfiltered (file
,
1118 "gdbarch_dump: print_vector_info = <0x%lx>\n",
1119 (long) current_gdbarch
->print_vector_info
);
1121 fprintf_unfiltered (file
,
1122 "gdbarch_dump: PS_REGNUM # %s\n",
1123 XSTRING (PS_REGNUM
));
1125 fprintf_unfiltered (file
,
1126 "gdbarch_dump: ps_regnum = %s\n",
1127 paddr_d (current_gdbarch
->ps_regnum
));
1128 fprintf_unfiltered (file
,
1129 "gdbarch_dump: gdbarch_pseudo_register_read_p() = %d\n",
1130 gdbarch_pseudo_register_read_p (current_gdbarch
));
1131 fprintf_unfiltered (file
,
1132 "gdbarch_dump: pseudo_register_read = <0x%lx>\n",
1133 (long) current_gdbarch
->pseudo_register_read
);
1134 fprintf_unfiltered (file
,
1135 "gdbarch_dump: gdbarch_pseudo_register_write_p() = %d\n",
1136 gdbarch_pseudo_register_write_p (current_gdbarch
));
1137 fprintf_unfiltered (file
,
1138 "gdbarch_dump: pseudo_register_write = <0x%lx>\n",
1139 (long) current_gdbarch
->pseudo_register_write
);
1140 #ifdef TARGET_PTR_BIT
1141 fprintf_unfiltered (file
,
1142 "gdbarch_dump: TARGET_PTR_BIT # %s\n",
1143 XSTRING (TARGET_PTR_BIT
));
1145 fprintf_unfiltered (file
,
1146 "gdbarch_dump: ptr_bit = %s\n",
1147 paddr_d (current_gdbarch
->ptr_bit
));
1148 fprintf_unfiltered (file
,
1149 "gdbarch_dump: gdbarch_push_dummy_call_p() = %d\n",
1150 gdbarch_push_dummy_call_p (current_gdbarch
));
1151 fprintf_unfiltered (file
,
1152 "gdbarch_dump: push_dummy_call = <0x%lx>\n",
1153 (long) current_gdbarch
->push_dummy_call
);
1154 fprintf_unfiltered (file
,
1155 "gdbarch_dump: gdbarch_push_dummy_code_p() = %d\n",
1156 gdbarch_push_dummy_code_p (current_gdbarch
));
1157 fprintf_unfiltered (file
,
1158 "gdbarch_dump: push_dummy_code = <0x%lx>\n",
1159 (long) current_gdbarch
->push_dummy_code
);
1160 #ifdef TARGET_READ_PC_P
1161 fprintf_unfiltered (file
,
1162 "gdbarch_dump: %s # %s\n",
1163 "TARGET_READ_PC_P()",
1164 XSTRING (TARGET_READ_PC_P ()));
1166 fprintf_unfiltered (file
,
1167 "gdbarch_dump: gdbarch_read_pc_p() = %d\n",
1168 gdbarch_read_pc_p (current_gdbarch
));
1169 #ifdef TARGET_READ_PC
1170 fprintf_unfiltered (file
,
1171 "gdbarch_dump: %s # %s\n",
1172 "TARGET_READ_PC(ptid)",
1173 XSTRING (TARGET_READ_PC (ptid
)));
1175 fprintf_unfiltered (file
,
1176 "gdbarch_dump: read_pc = <0x%lx>\n",
1177 (long) current_gdbarch
->read_pc
);
1178 fprintf_unfiltered (file
,
1179 "gdbarch_dump: register_name = <0x%lx>\n",
1180 (long) current_gdbarch
->register_name
);
1181 fprintf_unfiltered (file
,
1182 "gdbarch_dump: register_reggroup_p = <0x%lx>\n",
1183 (long) current_gdbarch
->register_reggroup_p
);
1184 #ifdef REGISTER_SIM_REGNO
1185 fprintf_unfiltered (file
,
1186 "gdbarch_dump: %s # %s\n",
1187 "REGISTER_SIM_REGNO(reg_nr)",
1188 XSTRING (REGISTER_SIM_REGNO (reg_nr
)));
1190 fprintf_unfiltered (file
,
1191 "gdbarch_dump: register_sim_regno = <0x%lx>\n",
1192 (long) current_gdbarch
->register_sim_regno
);
1193 #ifdef REGISTER_TO_VALUE
1194 fprintf_unfiltered (file
,
1195 "gdbarch_dump: %s # %s\n",
1196 "REGISTER_TO_VALUE(frame, regnum, type, buf)",
1197 XSTRING (REGISTER_TO_VALUE (frame
, regnum
, type
, buf
)));
1199 fprintf_unfiltered (file
,
1200 "gdbarch_dump: register_to_value = <0x%lx>\n",
1201 (long) current_gdbarch
->register_to_value
);
1202 fprintf_unfiltered (file
,
1203 "gdbarch_dump: gdbarch_register_type_p() = %d\n",
1204 gdbarch_register_type_p (current_gdbarch
));
1205 fprintf_unfiltered (file
,
1206 "gdbarch_dump: register_type = <0x%lx>\n",
1207 (long) current_gdbarch
->register_type
);
1208 fprintf_unfiltered (file
,
1209 "gdbarch_dump: gdbarch_regset_from_core_section_p() = %d\n",
1210 gdbarch_regset_from_core_section_p (current_gdbarch
));
1211 fprintf_unfiltered (file
,
1212 "gdbarch_dump: regset_from_core_section = <0x%lx>\n",
1213 (long) current_gdbarch
->regset_from_core_section
);
1214 fprintf_unfiltered (file
,
1215 "gdbarch_dump: remote_register_number = <0x%lx>\n",
1216 (long) current_gdbarch
->remote_register_number
);
1217 fprintf_unfiltered (file
,
1218 "gdbarch_dump: gdbarch_return_value_p() = %d\n",
1219 gdbarch_return_value_p (current_gdbarch
));
1220 fprintf_unfiltered (file
,
1221 "gdbarch_dump: return_value = <0x%lx>\n",
1222 (long) current_gdbarch
->return_value
);
1223 #ifdef SDB_REG_TO_REGNUM
1224 fprintf_unfiltered (file
,
1225 "gdbarch_dump: %s # %s\n",
1226 "SDB_REG_TO_REGNUM(sdb_regnr)",
1227 XSTRING (SDB_REG_TO_REGNUM (sdb_regnr
)));
1229 fprintf_unfiltered (file
,
1230 "gdbarch_dump: sdb_reg_to_regnum = <0x%lx>\n",
1231 (long) current_gdbarch
->sdb_reg_to_regnum
);
1232 #ifdef TARGET_SHORT_BIT
1233 fprintf_unfiltered (file
,
1234 "gdbarch_dump: TARGET_SHORT_BIT # %s\n",
1235 XSTRING (TARGET_SHORT_BIT
));
1237 fprintf_unfiltered (file
,
1238 "gdbarch_dump: short_bit = %s\n",
1239 paddr_d (current_gdbarch
->short_bit
));
1240 fprintf_unfiltered (file
,
1241 "gdbarch_dump: gdbarch_single_step_through_delay_p() = %d\n",
1242 gdbarch_single_step_through_delay_p (current_gdbarch
));
1243 fprintf_unfiltered (file
,
1244 "gdbarch_dump: single_step_through_delay = <0x%lx>\n",
1245 (long) current_gdbarch
->single_step_through_delay
);
1246 fprintf_unfiltered (file
,
1247 "gdbarch_dump: gdbarch_skip_permanent_breakpoint_p() = %d\n",
1248 gdbarch_skip_permanent_breakpoint_p (current_gdbarch
));
1249 fprintf_unfiltered (file
,
1250 "gdbarch_dump: skip_permanent_breakpoint = <0x%lx>\n",
1251 (long) current_gdbarch
->skip_permanent_breakpoint
);
1252 #ifdef SKIP_PROLOGUE
1253 fprintf_unfiltered (file
,
1254 "gdbarch_dump: %s # %s\n",
1255 "SKIP_PROLOGUE(ip)",
1256 XSTRING (SKIP_PROLOGUE (ip
)));
1258 fprintf_unfiltered (file
,
1259 "gdbarch_dump: skip_prologue = <0x%lx>\n",
1260 (long) current_gdbarch
->skip_prologue
);
1261 fprintf_unfiltered (file
,
1262 "gdbarch_dump: skip_solib_resolver = <0x%lx>\n",
1263 (long) current_gdbarch
->skip_solib_resolver
);
1264 #ifdef SKIP_TRAMPOLINE_CODE
1265 fprintf_unfiltered (file
,
1266 "gdbarch_dump: %s # %s\n",
1267 "SKIP_TRAMPOLINE_CODE(pc)",
1268 XSTRING (SKIP_TRAMPOLINE_CODE (pc
)));
1270 fprintf_unfiltered (file
,
1271 "gdbarch_dump: skip_trampoline_code = <0x%lx>\n",
1272 (long) current_gdbarch
->skip_trampoline_code
);
1273 #ifdef SMASH_TEXT_ADDRESS
1274 fprintf_unfiltered (file
,
1275 "gdbarch_dump: %s # %s\n",
1276 "SMASH_TEXT_ADDRESS(addr)",
1277 XSTRING (SMASH_TEXT_ADDRESS (addr
)));
1279 fprintf_unfiltered (file
,
1280 "gdbarch_dump: smash_text_address = <0x%lx>\n",
1281 (long) current_gdbarch
->smash_text_address
);
1282 #ifdef SOFTWARE_SINGLE_STEP_P
1283 fprintf_unfiltered (file
,
1284 "gdbarch_dump: %s # %s\n",
1285 "SOFTWARE_SINGLE_STEP_P()",
1286 XSTRING (SOFTWARE_SINGLE_STEP_P ()));
1288 fprintf_unfiltered (file
,
1289 "gdbarch_dump: gdbarch_software_single_step_p() = %d\n",
1290 gdbarch_software_single_step_p (current_gdbarch
));
1291 #ifdef SOFTWARE_SINGLE_STEP
1292 fprintf_unfiltered (file
,
1293 "gdbarch_dump: %s # %s\n",
1294 "SOFTWARE_SINGLE_STEP(regcache)",
1295 XSTRING (SOFTWARE_SINGLE_STEP (regcache
)));
1297 fprintf_unfiltered (file
,
1298 "gdbarch_dump: software_single_step = <0x%lx>\n",
1299 (long) current_gdbarch
->software_single_step
);
1301 fprintf_unfiltered (file
,
1302 "gdbarch_dump: SP_REGNUM # %s\n",
1303 XSTRING (SP_REGNUM
));
1305 fprintf_unfiltered (file
,
1306 "gdbarch_dump: sp_regnum = %s\n",
1307 paddr_d (current_gdbarch
->sp_regnum
));
1308 #ifdef STAB_REG_TO_REGNUM
1309 fprintf_unfiltered (file
,
1310 "gdbarch_dump: %s # %s\n",
1311 "STAB_REG_TO_REGNUM(stab_regnr)",
1312 XSTRING (STAB_REG_TO_REGNUM (stab_regnr
)));
1314 fprintf_unfiltered (file
,
1315 "gdbarch_dump: stab_reg_to_regnum = <0x%lx>\n",
1316 (long) current_gdbarch
->stab_reg_to_regnum
);
1317 fprintf_unfiltered (file
,
1318 "gdbarch_dump: stabs_argument_has_addr = <0x%lx>\n",
1319 (long) current_gdbarch
->stabs_argument_has_addr
);
1320 #ifdef STORE_RETURN_VALUE
1321 fprintf_unfiltered (file
,
1322 "gdbarch_dump: %s # %s\n",
1323 "STORE_RETURN_VALUE(type, regcache, valbuf)",
1324 XSTRING (STORE_RETURN_VALUE (type
, regcache
, valbuf
)));
1326 fprintf_unfiltered (file
,
1327 "gdbarch_dump: store_return_value = <0x%lx>\n",
1328 (long) current_gdbarch
->store_return_value
);
1329 fprintf_unfiltered (file
,
1330 "gdbarch_dump: target_desc = %s\n",
1331 paddr_d ((long) current_gdbarch
->target_desc
));
1332 fprintf_unfiltered (file
,
1333 "gdbarch_dump: gdbarch_unwind_dummy_id_p() = %d\n",
1334 gdbarch_unwind_dummy_id_p (current_gdbarch
));
1335 fprintf_unfiltered (file
,
1336 "gdbarch_dump: unwind_dummy_id = <0x%lx>\n",
1337 (long) current_gdbarch
->unwind_dummy_id
);
1338 fprintf_unfiltered (file
,
1339 "gdbarch_dump: gdbarch_unwind_pc_p() = %d\n",
1340 gdbarch_unwind_pc_p (current_gdbarch
));
1341 fprintf_unfiltered (file
,
1342 "gdbarch_dump: unwind_pc = <0x%lx>\n",
1343 (long) current_gdbarch
->unwind_pc
);
1344 fprintf_unfiltered (file
,
1345 "gdbarch_dump: gdbarch_unwind_sp_p() = %d\n",
1346 gdbarch_unwind_sp_p (current_gdbarch
));
1347 fprintf_unfiltered (file
,
1348 "gdbarch_dump: unwind_sp = <0x%lx>\n",
1349 (long) current_gdbarch
->unwind_sp
);
1350 fprintf_unfiltered (file
,
1351 "gdbarch_dump: value_from_register = <0x%lx>\n",
1352 (long) current_gdbarch
->value_from_register
);
1353 #ifdef VALUE_TO_REGISTER
1354 fprintf_unfiltered (file
,
1355 "gdbarch_dump: %s # %s\n",
1356 "VALUE_TO_REGISTER(frame, regnum, type, buf)",
1357 XSTRING (VALUE_TO_REGISTER (frame
, regnum
, type
, buf
)));
1359 fprintf_unfiltered (file
,
1360 "gdbarch_dump: value_to_register = <0x%lx>\n",
1361 (long) current_gdbarch
->value_to_register
);
1362 fprintf_unfiltered (file
,
1363 "gdbarch_dump: vbit_in_delta = %s\n",
1364 paddr_d (current_gdbarch
->vbit_in_delta
));
1365 #ifdef TARGET_VIRTUAL_FRAME_POINTER
1366 fprintf_unfiltered (file
,
1367 "gdbarch_dump: %s # %s\n",
1368 "TARGET_VIRTUAL_FRAME_POINTER(pc, frame_regnum, frame_offset)",
1369 XSTRING (TARGET_VIRTUAL_FRAME_POINTER (pc
, frame_regnum
, frame_offset
)));
1371 fprintf_unfiltered (file
,
1372 "gdbarch_dump: virtual_frame_pointer = <0x%lx>\n",
1373 (long) current_gdbarch
->virtual_frame_pointer
);
1374 fprintf_unfiltered (file
,
1375 "gdbarch_dump: vtable_function_descriptors = %s\n",
1376 paddr_d (current_gdbarch
->vtable_function_descriptors
));
1377 #ifdef TARGET_WRITE_PC
1378 fprintf_unfiltered (file
,
1379 "gdbarch_dump: %s # %s\n",
1380 "TARGET_WRITE_PC(val, ptid)",
1381 XSTRING (TARGET_WRITE_PC (val
, ptid
)));
1383 fprintf_unfiltered (file
,
1384 "gdbarch_dump: write_pc = <0x%lx>\n",
1385 (long) current_gdbarch
->write_pc
);
1386 if (current_gdbarch
->dump_tdep
!= NULL
)
1387 current_gdbarch
->dump_tdep (current_gdbarch
, file
);
1390 struct gdbarch_tdep
*
1391 gdbarch_tdep (struct gdbarch
*gdbarch
)
1393 if (gdbarch_debug
>= 2)
1394 fprintf_unfiltered (gdb_stdlog
, "gdbarch_tdep called\n");
1395 return gdbarch
->tdep
;
1399 const struct bfd_arch_info
*
1400 gdbarch_bfd_arch_info (struct gdbarch
*gdbarch
)
1402 gdb_assert (gdbarch
!= NULL
);
1403 if (gdbarch_debug
>= 2)
1404 fprintf_unfiltered (gdb_stdlog
, "gdbarch_bfd_arch_info called\n");
1405 return gdbarch
->bfd_arch_info
;
1409 gdbarch_byte_order (struct gdbarch
*gdbarch
)
1411 gdb_assert (gdbarch
!= NULL
);
1412 if (gdbarch_debug
>= 2)
1413 fprintf_unfiltered (gdb_stdlog
, "gdbarch_byte_order called\n");
1414 return gdbarch
->byte_order
;
1418 gdbarch_osabi (struct gdbarch
*gdbarch
)
1420 gdb_assert (gdbarch
!= NULL
);
1421 if (gdbarch_debug
>= 2)
1422 fprintf_unfiltered (gdb_stdlog
, "gdbarch_osabi called\n");
1423 return gdbarch
->osabi
;
1426 const struct target_desc
*
1427 gdbarch_target_desc (struct gdbarch
*gdbarch
)
1429 gdb_assert (gdbarch
!= NULL
);
1430 if (gdbarch_debug
>= 2)
1431 fprintf_unfiltered (gdb_stdlog
, "gdbarch_target_desc called\n");
1432 return gdbarch
->target_desc
;
1436 gdbarch_short_bit (struct gdbarch
*gdbarch
)
1438 gdb_assert (gdbarch
!= NULL
);
1439 /* Skip verify of short_bit, invalid_p == 0 */
1440 if (gdbarch_debug
>= 2)
1441 fprintf_unfiltered (gdb_stdlog
, "gdbarch_short_bit called\n");
1442 return gdbarch
->short_bit
;
1446 set_gdbarch_short_bit (struct gdbarch
*gdbarch
,
1449 gdbarch
->short_bit
= short_bit
;
1453 gdbarch_int_bit (struct gdbarch
*gdbarch
)
1455 gdb_assert (gdbarch
!= NULL
);
1456 /* Skip verify of int_bit, invalid_p == 0 */
1457 if (gdbarch_debug
>= 2)
1458 fprintf_unfiltered (gdb_stdlog
, "gdbarch_int_bit called\n");
1459 return gdbarch
->int_bit
;
1463 set_gdbarch_int_bit (struct gdbarch
*gdbarch
,
1466 gdbarch
->int_bit
= int_bit
;
1470 gdbarch_long_bit (struct gdbarch
*gdbarch
)
1472 gdb_assert (gdbarch
!= NULL
);
1473 /* Skip verify of long_bit, invalid_p == 0 */
1474 if (gdbarch_debug
>= 2)
1475 fprintf_unfiltered (gdb_stdlog
, "gdbarch_long_bit called\n");
1476 return gdbarch
->long_bit
;
1480 set_gdbarch_long_bit (struct gdbarch
*gdbarch
,
1483 gdbarch
->long_bit
= long_bit
;
1487 gdbarch_long_long_bit (struct gdbarch
*gdbarch
)
1489 gdb_assert (gdbarch
!= NULL
);
1490 /* Skip verify of long_long_bit, invalid_p == 0 */
1491 if (gdbarch_debug
>= 2)
1492 fprintf_unfiltered (gdb_stdlog
, "gdbarch_long_long_bit called\n");
1493 return gdbarch
->long_long_bit
;
1497 set_gdbarch_long_long_bit (struct gdbarch
*gdbarch
,
1500 gdbarch
->long_long_bit
= long_long_bit
;
1504 gdbarch_float_bit (struct gdbarch
*gdbarch
)
1506 gdb_assert (gdbarch
!= NULL
);
1507 /* Skip verify of float_bit, invalid_p == 0 */
1508 if (gdbarch_debug
>= 2)
1509 fprintf_unfiltered (gdb_stdlog
, "gdbarch_float_bit called\n");
1510 return gdbarch
->float_bit
;
1514 set_gdbarch_float_bit (struct gdbarch
*gdbarch
,
1517 gdbarch
->float_bit
= float_bit
;
1520 const struct floatformat
**
1521 gdbarch_float_format (struct gdbarch
*gdbarch
)
1523 gdb_assert (gdbarch
!= NULL
);
1524 if (gdbarch_debug
>= 2)
1525 fprintf_unfiltered (gdb_stdlog
, "gdbarch_float_format called\n");
1526 return gdbarch
->float_format
;
1530 set_gdbarch_float_format (struct gdbarch
*gdbarch
,
1531 const struct floatformat
** float_format
)
1533 gdbarch
->float_format
= float_format
;
1537 gdbarch_double_bit (struct gdbarch
*gdbarch
)
1539 gdb_assert (gdbarch
!= NULL
);
1540 /* Skip verify of double_bit, invalid_p == 0 */
1541 if (gdbarch_debug
>= 2)
1542 fprintf_unfiltered (gdb_stdlog
, "gdbarch_double_bit called\n");
1543 return gdbarch
->double_bit
;
1547 set_gdbarch_double_bit (struct gdbarch
*gdbarch
,
1550 gdbarch
->double_bit
= double_bit
;
1553 const struct floatformat
**
1554 gdbarch_double_format (struct gdbarch
*gdbarch
)
1556 gdb_assert (gdbarch
!= NULL
);
1557 if (gdbarch_debug
>= 2)
1558 fprintf_unfiltered (gdb_stdlog
, "gdbarch_double_format called\n");
1559 return gdbarch
->double_format
;
1563 set_gdbarch_double_format (struct gdbarch
*gdbarch
,
1564 const struct floatformat
** double_format
)
1566 gdbarch
->double_format
= double_format
;
1570 gdbarch_long_double_bit (struct gdbarch
*gdbarch
)
1572 gdb_assert (gdbarch
!= NULL
);
1573 /* Skip verify of long_double_bit, invalid_p == 0 */
1574 if (gdbarch_debug
>= 2)
1575 fprintf_unfiltered (gdb_stdlog
, "gdbarch_long_double_bit called\n");
1576 return gdbarch
->long_double_bit
;
1580 set_gdbarch_long_double_bit (struct gdbarch
*gdbarch
,
1581 int long_double_bit
)
1583 gdbarch
->long_double_bit
= long_double_bit
;
1586 const struct floatformat
**
1587 gdbarch_long_double_format (struct gdbarch
*gdbarch
)
1589 gdb_assert (gdbarch
!= NULL
);
1590 if (gdbarch_debug
>= 2)
1591 fprintf_unfiltered (gdb_stdlog
, "gdbarch_long_double_format called\n");
1592 return gdbarch
->long_double_format
;
1596 set_gdbarch_long_double_format (struct gdbarch
*gdbarch
,
1597 const struct floatformat
** long_double_format
)
1599 gdbarch
->long_double_format
= long_double_format
;
1603 gdbarch_ptr_bit (struct gdbarch
*gdbarch
)
1605 gdb_assert (gdbarch
!= NULL
);
1606 /* Skip verify of ptr_bit, invalid_p == 0 */
1607 if (gdbarch_debug
>= 2)
1608 fprintf_unfiltered (gdb_stdlog
, "gdbarch_ptr_bit called\n");
1609 return gdbarch
->ptr_bit
;
1613 set_gdbarch_ptr_bit (struct gdbarch
*gdbarch
,
1616 gdbarch
->ptr_bit
= ptr_bit
;
1620 gdbarch_addr_bit (struct gdbarch
*gdbarch
)
1622 gdb_assert (gdbarch
!= NULL
);
1623 /* Check variable changed from pre-default. */
1624 gdb_assert (gdbarch
->addr_bit
!= 0);
1625 if (gdbarch_debug
>= 2)
1626 fprintf_unfiltered (gdb_stdlog
, "gdbarch_addr_bit called\n");
1627 return gdbarch
->addr_bit
;
1631 set_gdbarch_addr_bit (struct gdbarch
*gdbarch
,
1634 gdbarch
->addr_bit
= addr_bit
;
1638 gdbarch_bfd_vma_bit (struct gdbarch
*gdbarch
)
1640 gdb_assert (gdbarch
!= NULL
);
1641 /* Skip verify of bfd_vma_bit, invalid_p == 0 */
1642 if (gdbarch_debug
>= 2)
1643 fprintf_unfiltered (gdb_stdlog
, "gdbarch_bfd_vma_bit called\n");
1644 return gdbarch
->bfd_vma_bit
;
1648 set_gdbarch_bfd_vma_bit (struct gdbarch
*gdbarch
,
1651 gdbarch
->bfd_vma_bit
= bfd_vma_bit
;
1655 gdbarch_char_signed (struct gdbarch
*gdbarch
)
1657 gdb_assert (gdbarch
!= NULL
);
1658 /* Check variable changed from pre-default. */
1659 gdb_assert (gdbarch
->char_signed
!= -1);
1660 if (gdbarch_debug
>= 2)
1661 fprintf_unfiltered (gdb_stdlog
, "gdbarch_char_signed called\n");
1662 return gdbarch
->char_signed
;
1666 set_gdbarch_char_signed (struct gdbarch
*gdbarch
,
1669 gdbarch
->char_signed
= char_signed
;
1673 gdbarch_read_pc_p (struct gdbarch
*gdbarch
)
1675 gdb_assert (gdbarch
!= NULL
);
1676 return gdbarch
->read_pc
!= NULL
;
1680 gdbarch_read_pc (struct gdbarch
*gdbarch
, ptid_t ptid
)
1682 gdb_assert (gdbarch
!= NULL
);
1683 gdb_assert (gdbarch
->read_pc
!= NULL
);
1684 if (gdbarch_debug
>= 2)
1685 fprintf_unfiltered (gdb_stdlog
, "gdbarch_read_pc called\n");
1686 return gdbarch
->read_pc (ptid
);
1690 set_gdbarch_read_pc (struct gdbarch
*gdbarch
,
1691 gdbarch_read_pc_ftype read_pc
)
1693 gdbarch
->read_pc
= read_pc
;
1697 gdbarch_write_pc (struct gdbarch
*gdbarch
, CORE_ADDR val
, ptid_t ptid
)
1699 gdb_assert (gdbarch
!= NULL
);
1700 gdb_assert (gdbarch
->write_pc
!= NULL
);
1701 if (gdbarch_debug
>= 2)
1702 fprintf_unfiltered (gdb_stdlog
, "gdbarch_write_pc called\n");
1703 gdbarch
->write_pc (val
, ptid
);
1707 set_gdbarch_write_pc (struct gdbarch
*gdbarch
,
1708 gdbarch_write_pc_ftype write_pc
)
1710 gdbarch
->write_pc
= write_pc
;
1714 gdbarch_virtual_frame_pointer (struct gdbarch
*gdbarch
, CORE_ADDR pc
, int *frame_regnum
, LONGEST
*frame_offset
)
1716 gdb_assert (gdbarch
!= NULL
);
1717 gdb_assert (gdbarch
->virtual_frame_pointer
!= NULL
);
1718 if (gdbarch_debug
>= 2)
1719 fprintf_unfiltered (gdb_stdlog
, "gdbarch_virtual_frame_pointer called\n");
1720 gdbarch
->virtual_frame_pointer (pc
, frame_regnum
, frame_offset
);
1724 set_gdbarch_virtual_frame_pointer (struct gdbarch
*gdbarch
,
1725 gdbarch_virtual_frame_pointer_ftype virtual_frame_pointer
)
1727 gdbarch
->virtual_frame_pointer
= virtual_frame_pointer
;
1731 gdbarch_pseudo_register_read_p (struct gdbarch
*gdbarch
)
1733 gdb_assert (gdbarch
!= NULL
);
1734 return gdbarch
->pseudo_register_read
!= NULL
;
1738 gdbarch_pseudo_register_read (struct gdbarch
*gdbarch
, struct regcache
*regcache
, int cookednum
, gdb_byte
*buf
)
1740 gdb_assert (gdbarch
!= NULL
);
1741 gdb_assert (gdbarch
->pseudo_register_read
!= NULL
);
1742 if (gdbarch_debug
>= 2)
1743 fprintf_unfiltered (gdb_stdlog
, "gdbarch_pseudo_register_read called\n");
1744 gdbarch
->pseudo_register_read (gdbarch
, regcache
, cookednum
, buf
);
1748 set_gdbarch_pseudo_register_read (struct gdbarch
*gdbarch
,
1749 gdbarch_pseudo_register_read_ftype pseudo_register_read
)
1751 gdbarch
->pseudo_register_read
= pseudo_register_read
;
1755 gdbarch_pseudo_register_write_p (struct gdbarch
*gdbarch
)
1757 gdb_assert (gdbarch
!= NULL
);
1758 return gdbarch
->pseudo_register_write
!= NULL
;
1762 gdbarch_pseudo_register_write (struct gdbarch
*gdbarch
, struct regcache
*regcache
, int cookednum
, const gdb_byte
*buf
)
1764 gdb_assert (gdbarch
!= NULL
);
1765 gdb_assert (gdbarch
->pseudo_register_write
!= NULL
);
1766 if (gdbarch_debug
>= 2)
1767 fprintf_unfiltered (gdb_stdlog
, "gdbarch_pseudo_register_write called\n");
1768 gdbarch
->pseudo_register_write (gdbarch
, regcache
, cookednum
, buf
);
1772 set_gdbarch_pseudo_register_write (struct gdbarch
*gdbarch
,
1773 gdbarch_pseudo_register_write_ftype pseudo_register_write
)
1775 gdbarch
->pseudo_register_write
= pseudo_register_write
;
1779 gdbarch_num_regs (struct gdbarch
*gdbarch
)
1781 gdb_assert (gdbarch
!= NULL
);
1782 /* Check variable changed from pre-default. */
1783 gdb_assert (gdbarch
->num_regs
!= -1);
1784 if (gdbarch_debug
>= 2)
1785 fprintf_unfiltered (gdb_stdlog
, "gdbarch_num_regs called\n");
1786 return gdbarch
->num_regs
;
1790 set_gdbarch_num_regs (struct gdbarch
*gdbarch
,
1793 gdbarch
->num_regs
= num_regs
;
1797 gdbarch_num_pseudo_regs (struct gdbarch
*gdbarch
)
1799 gdb_assert (gdbarch
!= NULL
);
1800 /* Skip verify of num_pseudo_regs, invalid_p == 0 */
1801 if (gdbarch_debug
>= 2)
1802 fprintf_unfiltered (gdb_stdlog
, "gdbarch_num_pseudo_regs called\n");
1803 return gdbarch
->num_pseudo_regs
;
1807 set_gdbarch_num_pseudo_regs (struct gdbarch
*gdbarch
,
1808 int num_pseudo_regs
)
1810 gdbarch
->num_pseudo_regs
= num_pseudo_regs
;
1814 gdbarch_sp_regnum (struct gdbarch
*gdbarch
)
1816 gdb_assert (gdbarch
!= NULL
);
1817 /* Skip verify of sp_regnum, invalid_p == 0 */
1818 if (gdbarch_debug
>= 2)
1819 fprintf_unfiltered (gdb_stdlog
, "gdbarch_sp_regnum called\n");
1820 return gdbarch
->sp_regnum
;
1824 set_gdbarch_sp_regnum (struct gdbarch
*gdbarch
,
1827 gdbarch
->sp_regnum
= sp_regnum
;
1831 gdbarch_pc_regnum (struct gdbarch
*gdbarch
)
1833 gdb_assert (gdbarch
!= NULL
);
1834 /* Skip verify of pc_regnum, invalid_p == 0 */
1835 if (gdbarch_debug
>= 2)
1836 fprintf_unfiltered (gdb_stdlog
, "gdbarch_pc_regnum called\n");
1837 return gdbarch
->pc_regnum
;
1841 set_gdbarch_pc_regnum (struct gdbarch
*gdbarch
,
1844 gdbarch
->pc_regnum
= pc_regnum
;
1848 gdbarch_ps_regnum (struct gdbarch
*gdbarch
)
1850 gdb_assert (gdbarch
!= NULL
);
1851 /* Skip verify of ps_regnum, invalid_p == 0 */
1852 if (gdbarch_debug
>= 2)
1853 fprintf_unfiltered (gdb_stdlog
, "gdbarch_ps_regnum called\n");
1854 return gdbarch
->ps_regnum
;
1858 set_gdbarch_ps_regnum (struct gdbarch
*gdbarch
,
1861 gdbarch
->ps_regnum
= ps_regnum
;
1865 gdbarch_fp0_regnum (struct gdbarch
*gdbarch
)
1867 gdb_assert (gdbarch
!= NULL
);
1868 /* Skip verify of fp0_regnum, invalid_p == 0 */
1869 if (gdbarch_debug
>= 2)
1870 fprintf_unfiltered (gdb_stdlog
, "gdbarch_fp0_regnum called\n");
1871 return gdbarch
->fp0_regnum
;
1875 set_gdbarch_fp0_regnum (struct gdbarch
*gdbarch
,
1878 gdbarch
->fp0_regnum
= fp0_regnum
;
1882 gdbarch_stab_reg_to_regnum (struct gdbarch
*gdbarch
, int stab_regnr
)
1884 gdb_assert (gdbarch
!= NULL
);
1885 gdb_assert (gdbarch
->stab_reg_to_regnum
!= NULL
);
1886 if (gdbarch_debug
>= 2)
1887 fprintf_unfiltered (gdb_stdlog
, "gdbarch_stab_reg_to_regnum called\n");
1888 return gdbarch
->stab_reg_to_regnum (stab_regnr
);
1892 set_gdbarch_stab_reg_to_regnum (struct gdbarch
*gdbarch
,
1893 gdbarch_stab_reg_to_regnum_ftype stab_reg_to_regnum
)
1895 gdbarch
->stab_reg_to_regnum
= stab_reg_to_regnum
;
1899 gdbarch_ecoff_reg_to_regnum (struct gdbarch
*gdbarch
, int ecoff_regnr
)
1901 gdb_assert (gdbarch
!= NULL
);
1902 gdb_assert (gdbarch
->ecoff_reg_to_regnum
!= NULL
);
1903 if (gdbarch_debug
>= 2)
1904 fprintf_unfiltered (gdb_stdlog
, "gdbarch_ecoff_reg_to_regnum called\n");
1905 return gdbarch
->ecoff_reg_to_regnum (ecoff_regnr
);
1909 set_gdbarch_ecoff_reg_to_regnum (struct gdbarch
*gdbarch
,
1910 gdbarch_ecoff_reg_to_regnum_ftype ecoff_reg_to_regnum
)
1912 gdbarch
->ecoff_reg_to_regnum
= ecoff_reg_to_regnum
;
1916 gdbarch_dwarf_reg_to_regnum (struct gdbarch
*gdbarch
, int dwarf_regnr
)
1918 gdb_assert (gdbarch
!= NULL
);
1919 gdb_assert (gdbarch
->dwarf_reg_to_regnum
!= NULL
);
1920 if (gdbarch_debug
>= 2)
1921 fprintf_unfiltered (gdb_stdlog
, "gdbarch_dwarf_reg_to_regnum called\n");
1922 return gdbarch
->dwarf_reg_to_regnum (dwarf_regnr
);
1926 set_gdbarch_dwarf_reg_to_regnum (struct gdbarch
*gdbarch
,
1927 gdbarch_dwarf_reg_to_regnum_ftype dwarf_reg_to_regnum
)
1929 gdbarch
->dwarf_reg_to_regnum
= dwarf_reg_to_regnum
;
1933 gdbarch_sdb_reg_to_regnum (struct gdbarch
*gdbarch
, int sdb_regnr
)
1935 gdb_assert (gdbarch
!= NULL
);
1936 gdb_assert (gdbarch
->sdb_reg_to_regnum
!= NULL
);
1937 if (gdbarch_debug
>= 2)
1938 fprintf_unfiltered (gdb_stdlog
, "gdbarch_sdb_reg_to_regnum called\n");
1939 return gdbarch
->sdb_reg_to_regnum (sdb_regnr
);
1943 set_gdbarch_sdb_reg_to_regnum (struct gdbarch
*gdbarch
,
1944 gdbarch_sdb_reg_to_regnum_ftype sdb_reg_to_regnum
)
1946 gdbarch
->sdb_reg_to_regnum
= sdb_reg_to_regnum
;
1950 gdbarch_dwarf2_reg_to_regnum (struct gdbarch
*gdbarch
, int dwarf2_regnr
)
1952 gdb_assert (gdbarch
!= NULL
);
1953 gdb_assert (gdbarch
->dwarf2_reg_to_regnum
!= NULL
);
1954 if (gdbarch_debug
>= 2)
1955 fprintf_unfiltered (gdb_stdlog
, "gdbarch_dwarf2_reg_to_regnum called\n");
1956 return gdbarch
->dwarf2_reg_to_regnum (dwarf2_regnr
);
1960 set_gdbarch_dwarf2_reg_to_regnum (struct gdbarch
*gdbarch
,
1961 gdbarch_dwarf2_reg_to_regnum_ftype dwarf2_reg_to_regnum
)
1963 gdbarch
->dwarf2_reg_to_regnum
= dwarf2_reg_to_regnum
;
1967 gdbarch_register_name (struct gdbarch
*gdbarch
, int regnr
)
1969 gdb_assert (gdbarch
!= NULL
);
1970 gdb_assert (gdbarch
->register_name
!= NULL
);
1971 if (gdbarch_debug
>= 2)
1972 fprintf_unfiltered (gdb_stdlog
, "gdbarch_register_name called\n");
1973 return gdbarch
->register_name (regnr
);
1977 set_gdbarch_register_name (struct gdbarch
*gdbarch
,
1978 gdbarch_register_name_ftype register_name
)
1980 gdbarch
->register_name
= register_name
;
1984 gdbarch_register_type_p (struct gdbarch
*gdbarch
)
1986 gdb_assert (gdbarch
!= NULL
);
1987 return gdbarch
->register_type
!= NULL
;
1991 gdbarch_register_type (struct gdbarch
*gdbarch
, int reg_nr
)
1993 gdb_assert (gdbarch
!= NULL
);
1994 gdb_assert (gdbarch
->register_type
!= NULL
);
1995 if (gdbarch_debug
>= 2)
1996 fprintf_unfiltered (gdb_stdlog
, "gdbarch_register_type called\n");
1997 return gdbarch
->register_type (gdbarch
, reg_nr
);
2001 set_gdbarch_register_type (struct gdbarch
*gdbarch
,
2002 gdbarch_register_type_ftype register_type
)
2004 gdbarch
->register_type
= register_type
;
2008 gdbarch_unwind_dummy_id_p (struct gdbarch
*gdbarch
)
2010 gdb_assert (gdbarch
!= NULL
);
2011 return gdbarch
->unwind_dummy_id
!= NULL
;
2015 gdbarch_unwind_dummy_id (struct gdbarch
*gdbarch
, struct frame_info
*info
)
2017 gdb_assert (gdbarch
!= NULL
);
2018 gdb_assert (gdbarch
->unwind_dummy_id
!= NULL
);
2019 if (gdbarch_debug
>= 2)
2020 fprintf_unfiltered (gdb_stdlog
, "gdbarch_unwind_dummy_id called\n");
2021 return gdbarch
->unwind_dummy_id (gdbarch
, info
);
2025 set_gdbarch_unwind_dummy_id (struct gdbarch
*gdbarch
,
2026 gdbarch_unwind_dummy_id_ftype unwind_dummy_id
)
2028 gdbarch
->unwind_dummy_id
= unwind_dummy_id
;
2032 gdbarch_deprecated_fp_regnum (struct gdbarch
*gdbarch
)
2034 gdb_assert (gdbarch
!= NULL
);
2035 /* Skip verify of deprecated_fp_regnum, invalid_p == 0 */
2036 if (gdbarch_debug
>= 2)
2037 fprintf_unfiltered (gdb_stdlog
, "gdbarch_deprecated_fp_regnum called\n");
2038 return gdbarch
->deprecated_fp_regnum
;
2042 set_gdbarch_deprecated_fp_regnum (struct gdbarch
*gdbarch
,
2043 int deprecated_fp_regnum
)
2045 gdbarch
->deprecated_fp_regnum
= deprecated_fp_regnum
;
2049 gdbarch_push_dummy_call_p (struct gdbarch
*gdbarch
)
2051 gdb_assert (gdbarch
!= NULL
);
2052 return gdbarch
->push_dummy_call
!= NULL
;
2056 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
)
2058 gdb_assert (gdbarch
!= NULL
);
2059 gdb_assert (gdbarch
->push_dummy_call
!= NULL
);
2060 if (gdbarch_debug
>= 2)
2061 fprintf_unfiltered (gdb_stdlog
, "gdbarch_push_dummy_call called\n");
2062 return gdbarch
->push_dummy_call (gdbarch
, function
, regcache
, bp_addr
, nargs
, args
, sp
, struct_return
, struct_addr
);
2066 set_gdbarch_push_dummy_call (struct gdbarch
*gdbarch
,
2067 gdbarch_push_dummy_call_ftype push_dummy_call
)
2069 gdbarch
->push_dummy_call
= push_dummy_call
;
2073 gdbarch_deprecated_register_size (struct gdbarch
*gdbarch
)
2075 gdb_assert (gdbarch
!= NULL
);
2076 if (gdbarch_debug
>= 2)
2077 fprintf_unfiltered (gdb_stdlog
, "gdbarch_deprecated_register_size called\n");
2078 return gdbarch
->deprecated_register_size
;
2082 set_gdbarch_deprecated_register_size (struct gdbarch
*gdbarch
,
2083 int deprecated_register_size
)
2085 gdbarch
->deprecated_register_size
= deprecated_register_size
;
2089 gdbarch_call_dummy_location (struct gdbarch
*gdbarch
)
2091 gdb_assert (gdbarch
!= NULL
);
2092 /* Skip verify of call_dummy_location, invalid_p == 0 */
2093 if (gdbarch_debug
>= 2)
2094 fprintf_unfiltered (gdb_stdlog
, "gdbarch_call_dummy_location called\n");
2095 return gdbarch
->call_dummy_location
;
2099 set_gdbarch_call_dummy_location (struct gdbarch
*gdbarch
,
2100 int call_dummy_location
)
2102 gdbarch
->call_dummy_location
= call_dummy_location
;
2106 gdbarch_push_dummy_code_p (struct gdbarch
*gdbarch
)
2108 gdb_assert (gdbarch
!= NULL
);
2109 return gdbarch
->push_dummy_code
!= NULL
;
2113 gdbarch_push_dummy_code (struct gdbarch
*gdbarch
, CORE_ADDR sp
, CORE_ADDR funaddr
, int using_gcc
, struct value
**args
, int nargs
, struct type
*value_type
, CORE_ADDR
*real_pc
, CORE_ADDR
*bp_addr
)
2115 gdb_assert (gdbarch
!= NULL
);
2116 gdb_assert (gdbarch
->push_dummy_code
!= NULL
);
2117 if (gdbarch_debug
>= 2)
2118 fprintf_unfiltered (gdb_stdlog
, "gdbarch_push_dummy_code called\n");
2119 return gdbarch
->push_dummy_code (gdbarch
, sp
, funaddr
, using_gcc
, args
, nargs
, value_type
, real_pc
, bp_addr
);
2123 set_gdbarch_push_dummy_code (struct gdbarch
*gdbarch
,
2124 gdbarch_push_dummy_code_ftype push_dummy_code
)
2126 gdbarch
->push_dummy_code
= push_dummy_code
;
2130 gdbarch_print_registers_info (struct gdbarch
*gdbarch
, struct ui_file
*file
, struct frame_info
*frame
, int regnum
, int all
)
2132 gdb_assert (gdbarch
!= NULL
);
2133 gdb_assert (gdbarch
->print_registers_info
!= NULL
);
2134 if (gdbarch_debug
>= 2)
2135 fprintf_unfiltered (gdb_stdlog
, "gdbarch_print_registers_info called\n");
2136 gdbarch
->print_registers_info (gdbarch
, file
, frame
, regnum
, all
);
2140 set_gdbarch_print_registers_info (struct gdbarch
*gdbarch
,
2141 gdbarch_print_registers_info_ftype print_registers_info
)
2143 gdbarch
->print_registers_info
= print_registers_info
;
2147 gdbarch_print_float_info_p (struct gdbarch
*gdbarch
)
2149 gdb_assert (gdbarch
!= NULL
);
2150 return gdbarch
->print_float_info
!= NULL
;
2154 gdbarch_print_float_info (struct gdbarch
*gdbarch
, struct ui_file
*file
, struct frame_info
*frame
, const char *args
)
2156 gdb_assert (gdbarch
!= NULL
);
2157 gdb_assert (gdbarch
->print_float_info
!= NULL
);
2158 if (gdbarch_debug
>= 2)
2159 fprintf_unfiltered (gdb_stdlog
, "gdbarch_print_float_info called\n");
2160 gdbarch
->print_float_info (gdbarch
, file
, frame
, args
);
2164 set_gdbarch_print_float_info (struct gdbarch
*gdbarch
,
2165 gdbarch_print_float_info_ftype print_float_info
)
2167 gdbarch
->print_float_info
= print_float_info
;
2171 gdbarch_print_vector_info_p (struct gdbarch
*gdbarch
)
2173 gdb_assert (gdbarch
!= NULL
);
2174 return gdbarch
->print_vector_info
!= NULL
;
2178 gdbarch_print_vector_info (struct gdbarch
*gdbarch
, struct ui_file
*file
, struct frame_info
*frame
, const char *args
)
2180 gdb_assert (gdbarch
!= NULL
);
2181 gdb_assert (gdbarch
->print_vector_info
!= NULL
);
2182 if (gdbarch_debug
>= 2)
2183 fprintf_unfiltered (gdb_stdlog
, "gdbarch_print_vector_info called\n");
2184 gdbarch
->print_vector_info (gdbarch
, file
, frame
, args
);
2188 set_gdbarch_print_vector_info (struct gdbarch
*gdbarch
,
2189 gdbarch_print_vector_info_ftype print_vector_info
)
2191 gdbarch
->print_vector_info
= print_vector_info
;
2195 gdbarch_register_sim_regno (struct gdbarch
*gdbarch
, int reg_nr
)
2197 gdb_assert (gdbarch
!= NULL
);
2198 gdb_assert (gdbarch
->register_sim_regno
!= NULL
);
2199 if (gdbarch_debug
>= 2)
2200 fprintf_unfiltered (gdb_stdlog
, "gdbarch_register_sim_regno called\n");
2201 return gdbarch
->register_sim_regno (reg_nr
);
2205 set_gdbarch_register_sim_regno (struct gdbarch
*gdbarch
,
2206 gdbarch_register_sim_regno_ftype register_sim_regno
)
2208 gdbarch
->register_sim_regno
= register_sim_regno
;
2212 gdbarch_cannot_fetch_register (struct gdbarch
*gdbarch
, int regnum
)
2214 gdb_assert (gdbarch
!= NULL
);
2215 gdb_assert (gdbarch
->cannot_fetch_register
!= NULL
);
2216 if (gdbarch_debug
>= 2)
2217 fprintf_unfiltered (gdb_stdlog
, "gdbarch_cannot_fetch_register called\n");
2218 return gdbarch
->cannot_fetch_register (regnum
);
2222 set_gdbarch_cannot_fetch_register (struct gdbarch
*gdbarch
,
2223 gdbarch_cannot_fetch_register_ftype cannot_fetch_register
)
2225 gdbarch
->cannot_fetch_register
= cannot_fetch_register
;
2229 gdbarch_cannot_store_register (struct gdbarch
*gdbarch
, int regnum
)
2231 gdb_assert (gdbarch
!= NULL
);
2232 gdb_assert (gdbarch
->cannot_store_register
!= NULL
);
2233 if (gdbarch_debug
>= 2)
2234 fprintf_unfiltered (gdb_stdlog
, "gdbarch_cannot_store_register called\n");
2235 return gdbarch
->cannot_store_register (regnum
);
2239 set_gdbarch_cannot_store_register (struct gdbarch
*gdbarch
,
2240 gdbarch_cannot_store_register_ftype cannot_store_register
)
2242 gdbarch
->cannot_store_register
= cannot_store_register
;
2246 gdbarch_get_longjmp_target_p (struct gdbarch
*gdbarch
)
2248 gdb_assert (gdbarch
!= NULL
);
2249 return gdbarch
->get_longjmp_target
!= NULL
;
2253 gdbarch_get_longjmp_target (struct gdbarch
*gdbarch
, CORE_ADDR
*pc
)
2255 gdb_assert (gdbarch
!= NULL
);
2256 gdb_assert (gdbarch
->get_longjmp_target
!= NULL
);
2257 if (gdbarch_debug
>= 2)
2258 fprintf_unfiltered (gdb_stdlog
, "gdbarch_get_longjmp_target called\n");
2259 return gdbarch
->get_longjmp_target (pc
);
2263 set_gdbarch_get_longjmp_target (struct gdbarch
*gdbarch
,
2264 gdbarch_get_longjmp_target_ftype get_longjmp_target
)
2266 gdbarch
->get_longjmp_target
= get_longjmp_target
;
2270 gdbarch_believe_pcc_promotion (struct gdbarch
*gdbarch
)
2272 gdb_assert (gdbarch
!= NULL
);
2273 if (gdbarch_debug
>= 2)
2274 fprintf_unfiltered (gdb_stdlog
, "gdbarch_believe_pcc_promotion called\n");
2275 return gdbarch
->believe_pcc_promotion
;
2279 set_gdbarch_believe_pcc_promotion (struct gdbarch
*gdbarch
,
2280 int believe_pcc_promotion
)
2282 gdbarch
->believe_pcc_promotion
= believe_pcc_promotion
;
2286 gdbarch_convert_register_p (struct gdbarch
*gdbarch
, int regnum
, struct type
*type
)
2288 gdb_assert (gdbarch
!= NULL
);
2289 gdb_assert (gdbarch
->convert_register_p
!= NULL
);
2290 if (gdbarch_debug
>= 2)
2291 fprintf_unfiltered (gdb_stdlog
, "gdbarch_convert_register_p called\n");
2292 return gdbarch
->convert_register_p (regnum
, type
);
2296 set_gdbarch_convert_register_p (struct gdbarch
*gdbarch
,
2297 gdbarch_convert_register_p_ftype convert_register_p
)
2299 gdbarch
->convert_register_p
= convert_register_p
;
2303 gdbarch_register_to_value (struct gdbarch
*gdbarch
, struct frame_info
*frame
, int regnum
, struct type
*type
, gdb_byte
*buf
)
2305 gdb_assert (gdbarch
!= NULL
);
2306 gdb_assert (gdbarch
->register_to_value
!= NULL
);
2307 if (gdbarch_debug
>= 2)
2308 fprintf_unfiltered (gdb_stdlog
, "gdbarch_register_to_value called\n");
2309 gdbarch
->register_to_value (frame
, regnum
, type
, buf
);
2313 set_gdbarch_register_to_value (struct gdbarch
*gdbarch
,
2314 gdbarch_register_to_value_ftype register_to_value
)
2316 gdbarch
->register_to_value
= register_to_value
;
2320 gdbarch_value_to_register (struct gdbarch
*gdbarch
, struct frame_info
*frame
, int regnum
, struct type
*type
, const gdb_byte
*buf
)
2322 gdb_assert (gdbarch
!= NULL
);
2323 gdb_assert (gdbarch
->value_to_register
!= NULL
);
2324 if (gdbarch_debug
>= 2)
2325 fprintf_unfiltered (gdb_stdlog
, "gdbarch_value_to_register called\n");
2326 gdbarch
->value_to_register (frame
, regnum
, type
, buf
);
2330 set_gdbarch_value_to_register (struct gdbarch
*gdbarch
,
2331 gdbarch_value_to_register_ftype value_to_register
)
2333 gdbarch
->value_to_register
= value_to_register
;
2337 gdbarch_value_from_register (struct gdbarch
*gdbarch
, struct type
*type
, int regnum
, struct frame_info
*frame
)
2339 gdb_assert (gdbarch
!= NULL
);
2340 gdb_assert (gdbarch
->value_from_register
!= NULL
);
2341 if (gdbarch_debug
>= 2)
2342 fprintf_unfiltered (gdb_stdlog
, "gdbarch_value_from_register called\n");
2343 return gdbarch
->value_from_register (type
, regnum
, frame
);
2347 set_gdbarch_value_from_register (struct gdbarch
*gdbarch
,
2348 gdbarch_value_from_register_ftype value_from_register
)
2350 gdbarch
->value_from_register
= value_from_register
;
2354 gdbarch_pointer_to_address (struct gdbarch
*gdbarch
, struct type
*type
, const gdb_byte
*buf
)
2356 gdb_assert (gdbarch
!= NULL
);
2357 gdb_assert (gdbarch
->pointer_to_address
!= NULL
);
2358 if (gdbarch_debug
>= 2)
2359 fprintf_unfiltered (gdb_stdlog
, "gdbarch_pointer_to_address called\n");
2360 return gdbarch
->pointer_to_address (type
, buf
);
2364 set_gdbarch_pointer_to_address (struct gdbarch
*gdbarch
,
2365 gdbarch_pointer_to_address_ftype pointer_to_address
)
2367 gdbarch
->pointer_to_address
= pointer_to_address
;
2371 gdbarch_address_to_pointer (struct gdbarch
*gdbarch
, struct type
*type
, gdb_byte
*buf
, CORE_ADDR addr
)
2373 gdb_assert (gdbarch
!= NULL
);
2374 gdb_assert (gdbarch
->address_to_pointer
!= NULL
);
2375 if (gdbarch_debug
>= 2)
2376 fprintf_unfiltered (gdb_stdlog
, "gdbarch_address_to_pointer called\n");
2377 gdbarch
->address_to_pointer (type
, buf
, addr
);
2381 set_gdbarch_address_to_pointer (struct gdbarch
*gdbarch
,
2382 gdbarch_address_to_pointer_ftype address_to_pointer
)
2384 gdbarch
->address_to_pointer
= address_to_pointer
;
2388 gdbarch_integer_to_address_p (struct gdbarch
*gdbarch
)
2390 gdb_assert (gdbarch
!= NULL
);
2391 return gdbarch
->integer_to_address
!= NULL
;
2395 gdbarch_integer_to_address (struct gdbarch
*gdbarch
, struct type
*type
, const gdb_byte
*buf
)
2397 gdb_assert (gdbarch
!= NULL
);
2398 gdb_assert (gdbarch
->integer_to_address
!= NULL
);
2399 if (gdbarch_debug
>= 2)
2400 fprintf_unfiltered (gdb_stdlog
, "gdbarch_integer_to_address called\n");
2401 return gdbarch
->integer_to_address (gdbarch
, type
, buf
);
2405 set_gdbarch_integer_to_address (struct gdbarch
*gdbarch
,
2406 gdbarch_integer_to_address_ftype integer_to_address
)
2408 gdbarch
->integer_to_address
= integer_to_address
;
2412 gdbarch_return_value_p (struct gdbarch
*gdbarch
)
2414 gdb_assert (gdbarch
!= NULL
);
2415 return gdbarch
->return_value
!= legacy_return_value
;
2418 enum return_value_convention
2419 gdbarch_return_value (struct gdbarch
*gdbarch
, struct type
*valtype
, struct regcache
*regcache
, gdb_byte
*readbuf
, const gdb_byte
*writebuf
)
2421 gdb_assert (gdbarch
!= NULL
);
2422 gdb_assert (gdbarch
->return_value
!= NULL
);
2423 /* Do not check predicate: gdbarch->return_value != legacy_return_value, allow call. */
2424 if (gdbarch_debug
>= 2)
2425 fprintf_unfiltered (gdb_stdlog
, "gdbarch_return_value called\n");
2426 return gdbarch
->return_value (gdbarch
, valtype
, regcache
, readbuf
, writebuf
);
2430 set_gdbarch_return_value (struct gdbarch
*gdbarch
,
2431 gdbarch_return_value_ftype return_value
)
2433 gdbarch
->return_value
= return_value
;
2437 gdbarch_extract_return_value (struct gdbarch
*gdbarch
, struct type
*type
, struct regcache
*regcache
, gdb_byte
*valbuf
)
2439 gdb_assert (gdbarch
!= NULL
);
2440 gdb_assert (gdbarch
->extract_return_value
!= NULL
);
2441 if (gdbarch_debug
>= 2)
2442 fprintf_unfiltered (gdb_stdlog
, "gdbarch_extract_return_value called\n");
2443 gdbarch
->extract_return_value (type
, regcache
, valbuf
);
2447 set_gdbarch_extract_return_value (struct gdbarch
*gdbarch
,
2448 gdbarch_extract_return_value_ftype extract_return_value
)
2450 gdbarch
->extract_return_value
= extract_return_value
;
2454 gdbarch_store_return_value (struct gdbarch
*gdbarch
, struct type
*type
, struct regcache
*regcache
, const gdb_byte
*valbuf
)
2456 gdb_assert (gdbarch
!= NULL
);
2457 gdb_assert (gdbarch
->store_return_value
!= NULL
);
2458 if (gdbarch_debug
>= 2)
2459 fprintf_unfiltered (gdb_stdlog
, "gdbarch_store_return_value called\n");
2460 gdbarch
->store_return_value (type
, regcache
, valbuf
);
2464 set_gdbarch_store_return_value (struct gdbarch
*gdbarch
,
2465 gdbarch_store_return_value_ftype store_return_value
)
2467 gdbarch
->store_return_value
= store_return_value
;
2471 gdbarch_deprecated_use_struct_convention (struct gdbarch
*gdbarch
, int gcc_p
, struct type
*value_type
)
2473 gdb_assert (gdbarch
!= NULL
);
2474 gdb_assert (gdbarch
->deprecated_use_struct_convention
!= NULL
);
2475 if (gdbarch_debug
>= 2)
2476 fprintf_unfiltered (gdb_stdlog
, "gdbarch_deprecated_use_struct_convention called\n");
2477 return gdbarch
->deprecated_use_struct_convention (gcc_p
, value_type
);
2481 set_gdbarch_deprecated_use_struct_convention (struct gdbarch
*gdbarch
,
2482 gdbarch_deprecated_use_struct_convention_ftype deprecated_use_struct_convention
)
2484 gdbarch
->deprecated_use_struct_convention
= deprecated_use_struct_convention
;
2488 gdbarch_deprecated_extract_struct_value_address_p (struct gdbarch
*gdbarch
)
2490 gdb_assert (gdbarch
!= NULL
);
2491 return gdbarch
->deprecated_extract_struct_value_address
!= NULL
;
2495 gdbarch_deprecated_extract_struct_value_address (struct gdbarch
*gdbarch
, struct regcache
*regcache
)
2497 gdb_assert (gdbarch
!= NULL
);
2498 gdb_assert (gdbarch
->deprecated_extract_struct_value_address
!= NULL
);
2499 if (gdbarch_debug
>= 2)
2500 fprintf_unfiltered (gdb_stdlog
, "gdbarch_deprecated_extract_struct_value_address called\n");
2501 return gdbarch
->deprecated_extract_struct_value_address (regcache
);
2505 set_gdbarch_deprecated_extract_struct_value_address (struct gdbarch
*gdbarch
,
2506 gdbarch_deprecated_extract_struct_value_address_ftype deprecated_extract_struct_value_address
)
2508 gdbarch
->deprecated_extract_struct_value_address
= deprecated_extract_struct_value_address
;
2512 gdbarch_skip_prologue (struct gdbarch
*gdbarch
, CORE_ADDR ip
)
2514 gdb_assert (gdbarch
!= NULL
);
2515 gdb_assert (gdbarch
->skip_prologue
!= NULL
);
2516 if (gdbarch_debug
>= 2)
2517 fprintf_unfiltered (gdb_stdlog
, "gdbarch_skip_prologue called\n");
2518 return gdbarch
->skip_prologue (ip
);
2522 set_gdbarch_skip_prologue (struct gdbarch
*gdbarch
,
2523 gdbarch_skip_prologue_ftype skip_prologue
)
2525 gdbarch
->skip_prologue
= skip_prologue
;
2529 gdbarch_inner_than (struct gdbarch
*gdbarch
, CORE_ADDR lhs
, CORE_ADDR rhs
)
2531 gdb_assert (gdbarch
!= NULL
);
2532 gdb_assert (gdbarch
->inner_than
!= NULL
);
2533 if (gdbarch_debug
>= 2)
2534 fprintf_unfiltered (gdb_stdlog
, "gdbarch_inner_than called\n");
2535 return gdbarch
->inner_than (lhs
, rhs
);
2539 set_gdbarch_inner_than (struct gdbarch
*gdbarch
,
2540 gdbarch_inner_than_ftype inner_than
)
2542 gdbarch
->inner_than
= inner_than
;
2546 gdbarch_breakpoint_from_pc (struct gdbarch
*gdbarch
, CORE_ADDR
*pcptr
, int *lenptr
)
2548 gdb_assert (gdbarch
!= NULL
);
2549 gdb_assert (gdbarch
->breakpoint_from_pc
!= NULL
);
2550 if (gdbarch_debug
>= 2)
2551 fprintf_unfiltered (gdb_stdlog
, "gdbarch_breakpoint_from_pc called\n");
2552 return gdbarch
->breakpoint_from_pc (pcptr
, lenptr
);
2556 set_gdbarch_breakpoint_from_pc (struct gdbarch
*gdbarch
,
2557 gdbarch_breakpoint_from_pc_ftype breakpoint_from_pc
)
2559 gdbarch
->breakpoint_from_pc
= breakpoint_from_pc
;
2563 gdbarch_adjust_breakpoint_address_p (struct gdbarch
*gdbarch
)
2565 gdb_assert (gdbarch
!= NULL
);
2566 return gdbarch
->adjust_breakpoint_address
!= NULL
;
2570 gdbarch_adjust_breakpoint_address (struct gdbarch
*gdbarch
, CORE_ADDR bpaddr
)
2572 gdb_assert (gdbarch
!= NULL
);
2573 gdb_assert (gdbarch
->adjust_breakpoint_address
!= NULL
);
2574 if (gdbarch_debug
>= 2)
2575 fprintf_unfiltered (gdb_stdlog
, "gdbarch_adjust_breakpoint_address called\n");
2576 return gdbarch
->adjust_breakpoint_address (gdbarch
, bpaddr
);
2580 set_gdbarch_adjust_breakpoint_address (struct gdbarch
*gdbarch
,
2581 gdbarch_adjust_breakpoint_address_ftype adjust_breakpoint_address
)
2583 gdbarch
->adjust_breakpoint_address
= adjust_breakpoint_address
;
2587 gdbarch_memory_insert_breakpoint (struct gdbarch
*gdbarch
, struct bp_target_info
*bp_tgt
)
2589 gdb_assert (gdbarch
!= NULL
);
2590 gdb_assert (gdbarch
->memory_insert_breakpoint
!= NULL
);
2591 if (gdbarch_debug
>= 2)
2592 fprintf_unfiltered (gdb_stdlog
, "gdbarch_memory_insert_breakpoint called\n");
2593 return gdbarch
->memory_insert_breakpoint (bp_tgt
);
2597 set_gdbarch_memory_insert_breakpoint (struct gdbarch
*gdbarch
,
2598 gdbarch_memory_insert_breakpoint_ftype memory_insert_breakpoint
)
2600 gdbarch
->memory_insert_breakpoint
= memory_insert_breakpoint
;
2604 gdbarch_memory_remove_breakpoint (struct gdbarch
*gdbarch
, struct bp_target_info
*bp_tgt
)
2606 gdb_assert (gdbarch
!= NULL
);
2607 gdb_assert (gdbarch
->memory_remove_breakpoint
!= NULL
);
2608 if (gdbarch_debug
>= 2)
2609 fprintf_unfiltered (gdb_stdlog
, "gdbarch_memory_remove_breakpoint called\n");
2610 return gdbarch
->memory_remove_breakpoint (bp_tgt
);
2614 set_gdbarch_memory_remove_breakpoint (struct gdbarch
*gdbarch
,
2615 gdbarch_memory_remove_breakpoint_ftype memory_remove_breakpoint
)
2617 gdbarch
->memory_remove_breakpoint
= memory_remove_breakpoint
;
2621 gdbarch_decr_pc_after_break (struct gdbarch
*gdbarch
)
2623 gdb_assert (gdbarch
!= NULL
);
2624 /* Skip verify of decr_pc_after_break, invalid_p == 0 */
2625 if (gdbarch_debug
>= 2)
2626 fprintf_unfiltered (gdb_stdlog
, "gdbarch_decr_pc_after_break called\n");
2627 return gdbarch
->decr_pc_after_break
;
2631 set_gdbarch_decr_pc_after_break (struct gdbarch
*gdbarch
,
2632 CORE_ADDR decr_pc_after_break
)
2634 gdbarch
->decr_pc_after_break
= decr_pc_after_break
;
2638 gdbarch_deprecated_function_start_offset (struct gdbarch
*gdbarch
)
2640 gdb_assert (gdbarch
!= NULL
);
2641 /* Skip verify of deprecated_function_start_offset, invalid_p == 0 */
2642 if (gdbarch_debug
>= 2)
2643 fprintf_unfiltered (gdb_stdlog
, "gdbarch_deprecated_function_start_offset called\n");
2644 return gdbarch
->deprecated_function_start_offset
;
2648 set_gdbarch_deprecated_function_start_offset (struct gdbarch
*gdbarch
,
2649 CORE_ADDR deprecated_function_start_offset
)
2651 gdbarch
->deprecated_function_start_offset
= deprecated_function_start_offset
;
2655 gdbarch_remote_register_number (struct gdbarch
*gdbarch
, int regno
)
2657 gdb_assert (gdbarch
!= NULL
);
2658 gdb_assert (gdbarch
->remote_register_number
!= NULL
);
2659 if (gdbarch_debug
>= 2)
2660 fprintf_unfiltered (gdb_stdlog
, "gdbarch_remote_register_number called\n");
2661 return gdbarch
->remote_register_number (gdbarch
, regno
);
2665 set_gdbarch_remote_register_number (struct gdbarch
*gdbarch
,
2666 gdbarch_remote_register_number_ftype remote_register_number
)
2668 gdbarch
->remote_register_number
= remote_register_number
;
2672 gdbarch_fetch_tls_load_module_address_p (struct gdbarch
*gdbarch
)
2674 gdb_assert (gdbarch
!= NULL
);
2675 return gdbarch
->fetch_tls_load_module_address
!= NULL
;
2679 gdbarch_fetch_tls_load_module_address (struct gdbarch
*gdbarch
, struct objfile
*objfile
)
2681 gdb_assert (gdbarch
!= NULL
);
2682 gdb_assert (gdbarch
->fetch_tls_load_module_address
!= NULL
);
2683 if (gdbarch_debug
>= 2)
2684 fprintf_unfiltered (gdb_stdlog
, "gdbarch_fetch_tls_load_module_address called\n");
2685 return gdbarch
->fetch_tls_load_module_address (objfile
);
2689 set_gdbarch_fetch_tls_load_module_address (struct gdbarch
*gdbarch
,
2690 gdbarch_fetch_tls_load_module_address_ftype fetch_tls_load_module_address
)
2692 gdbarch
->fetch_tls_load_module_address
= fetch_tls_load_module_address
;
2696 gdbarch_frame_args_skip (struct gdbarch
*gdbarch
)
2698 gdb_assert (gdbarch
!= NULL
);
2699 /* Skip verify of frame_args_skip, invalid_p == 0 */
2700 if (gdbarch_debug
>= 2)
2701 fprintf_unfiltered (gdb_stdlog
, "gdbarch_frame_args_skip called\n");
2702 return gdbarch
->frame_args_skip
;
2706 set_gdbarch_frame_args_skip (struct gdbarch
*gdbarch
,
2707 CORE_ADDR frame_args_skip
)
2709 gdbarch
->frame_args_skip
= frame_args_skip
;
2713 gdbarch_unwind_pc_p (struct gdbarch
*gdbarch
)
2715 gdb_assert (gdbarch
!= NULL
);
2716 return gdbarch
->unwind_pc
!= NULL
;
2720 gdbarch_unwind_pc (struct gdbarch
*gdbarch
, struct frame_info
*next_frame
)
2722 gdb_assert (gdbarch
!= NULL
);
2723 gdb_assert (gdbarch
->unwind_pc
!= NULL
);
2724 if (gdbarch_debug
>= 2)
2725 fprintf_unfiltered (gdb_stdlog
, "gdbarch_unwind_pc called\n");
2726 return gdbarch
->unwind_pc (gdbarch
, next_frame
);
2730 set_gdbarch_unwind_pc (struct gdbarch
*gdbarch
,
2731 gdbarch_unwind_pc_ftype unwind_pc
)
2733 gdbarch
->unwind_pc
= unwind_pc
;
2737 gdbarch_unwind_sp_p (struct gdbarch
*gdbarch
)
2739 gdb_assert (gdbarch
!= NULL
);
2740 return gdbarch
->unwind_sp
!= NULL
;
2744 gdbarch_unwind_sp (struct gdbarch
*gdbarch
, struct frame_info
*next_frame
)
2746 gdb_assert (gdbarch
!= NULL
);
2747 gdb_assert (gdbarch
->unwind_sp
!= NULL
);
2748 if (gdbarch_debug
>= 2)
2749 fprintf_unfiltered (gdb_stdlog
, "gdbarch_unwind_sp called\n");
2750 return gdbarch
->unwind_sp (gdbarch
, next_frame
);
2754 set_gdbarch_unwind_sp (struct gdbarch
*gdbarch
,
2755 gdbarch_unwind_sp_ftype unwind_sp
)
2757 gdbarch
->unwind_sp
= unwind_sp
;
2761 gdbarch_frame_num_args_p (struct gdbarch
*gdbarch
)
2763 gdb_assert (gdbarch
!= NULL
);
2764 return gdbarch
->frame_num_args
!= NULL
;
2768 gdbarch_frame_num_args (struct gdbarch
*gdbarch
, struct frame_info
*frame
)
2770 gdb_assert (gdbarch
!= NULL
);
2771 gdb_assert (gdbarch
->frame_num_args
!= NULL
);
2772 if (gdbarch_debug
>= 2)
2773 fprintf_unfiltered (gdb_stdlog
, "gdbarch_frame_num_args called\n");
2774 return gdbarch
->frame_num_args (frame
);
2778 set_gdbarch_frame_num_args (struct gdbarch
*gdbarch
,
2779 gdbarch_frame_num_args_ftype frame_num_args
)
2781 gdbarch
->frame_num_args
= frame_num_args
;
2785 gdbarch_deprecated_stack_align_p (struct gdbarch
*gdbarch
)
2787 gdb_assert (gdbarch
!= NULL
);
2788 return gdbarch
->deprecated_stack_align
!= NULL
;
2792 gdbarch_deprecated_stack_align (struct gdbarch
*gdbarch
, CORE_ADDR sp
)
2794 gdb_assert (gdbarch
!= NULL
);
2795 gdb_assert (gdbarch
->deprecated_stack_align
!= NULL
);
2796 if (gdbarch_debug
>= 2)
2797 fprintf_unfiltered (gdb_stdlog
, "gdbarch_deprecated_stack_align called\n");
2798 return gdbarch
->deprecated_stack_align (sp
);
2802 set_gdbarch_deprecated_stack_align (struct gdbarch
*gdbarch
,
2803 gdbarch_deprecated_stack_align_ftype deprecated_stack_align
)
2805 gdbarch
->deprecated_stack_align
= deprecated_stack_align
;
2809 gdbarch_frame_align_p (struct gdbarch
*gdbarch
)
2811 gdb_assert (gdbarch
!= NULL
);
2812 return gdbarch
->frame_align
!= NULL
;
2816 gdbarch_frame_align (struct gdbarch
*gdbarch
, CORE_ADDR address
)
2818 gdb_assert (gdbarch
!= NULL
);
2819 gdb_assert (gdbarch
->frame_align
!= NULL
);
2820 if (gdbarch_debug
>= 2)
2821 fprintf_unfiltered (gdb_stdlog
, "gdbarch_frame_align called\n");
2822 return gdbarch
->frame_align (gdbarch
, address
);
2826 set_gdbarch_frame_align (struct gdbarch
*gdbarch
,
2827 gdbarch_frame_align_ftype frame_align
)
2829 gdbarch
->frame_align
= frame_align
;
2833 gdbarch_deprecated_reg_struct_has_addr_p (struct gdbarch
*gdbarch
)
2835 gdb_assert (gdbarch
!= NULL
);
2836 return gdbarch
->deprecated_reg_struct_has_addr
!= NULL
;
2840 gdbarch_deprecated_reg_struct_has_addr (struct gdbarch
*gdbarch
, int gcc_p
, struct type
*type
)
2842 gdb_assert (gdbarch
!= NULL
);
2843 gdb_assert (gdbarch
->deprecated_reg_struct_has_addr
!= NULL
);
2844 if (gdbarch_debug
>= 2)
2845 fprintf_unfiltered (gdb_stdlog
, "gdbarch_deprecated_reg_struct_has_addr called\n");
2846 return gdbarch
->deprecated_reg_struct_has_addr (gcc_p
, type
);
2850 set_gdbarch_deprecated_reg_struct_has_addr (struct gdbarch
*gdbarch
,
2851 gdbarch_deprecated_reg_struct_has_addr_ftype deprecated_reg_struct_has_addr
)
2853 gdbarch
->deprecated_reg_struct_has_addr
= deprecated_reg_struct_has_addr
;
2857 gdbarch_stabs_argument_has_addr (struct gdbarch
*gdbarch
, struct type
*type
)
2859 gdb_assert (gdbarch
!= NULL
);
2860 gdb_assert (gdbarch
->stabs_argument_has_addr
!= NULL
);
2861 if (gdbarch_debug
>= 2)
2862 fprintf_unfiltered (gdb_stdlog
, "gdbarch_stabs_argument_has_addr called\n");
2863 return gdbarch
->stabs_argument_has_addr (gdbarch
, type
);
2867 set_gdbarch_stabs_argument_has_addr (struct gdbarch
*gdbarch
,
2868 gdbarch_stabs_argument_has_addr_ftype stabs_argument_has_addr
)
2870 gdbarch
->stabs_argument_has_addr
= stabs_argument_has_addr
;
2874 gdbarch_frame_red_zone_size (struct gdbarch
*gdbarch
)
2876 gdb_assert (gdbarch
!= NULL
);
2877 if (gdbarch_debug
>= 2)
2878 fprintf_unfiltered (gdb_stdlog
, "gdbarch_frame_red_zone_size called\n");
2879 return gdbarch
->frame_red_zone_size
;
2883 set_gdbarch_frame_red_zone_size (struct gdbarch
*gdbarch
,
2884 int frame_red_zone_size
)
2886 gdbarch
->frame_red_zone_size
= frame_red_zone_size
;
2890 gdbarch_convert_from_func_ptr_addr (struct gdbarch
*gdbarch
, CORE_ADDR addr
, struct target_ops
*targ
)
2892 gdb_assert (gdbarch
!= NULL
);
2893 gdb_assert (gdbarch
->convert_from_func_ptr_addr
!= NULL
);
2894 if (gdbarch_debug
>= 2)
2895 fprintf_unfiltered (gdb_stdlog
, "gdbarch_convert_from_func_ptr_addr called\n");
2896 return gdbarch
->convert_from_func_ptr_addr (gdbarch
, addr
, targ
);
2900 set_gdbarch_convert_from_func_ptr_addr (struct gdbarch
*gdbarch
,
2901 gdbarch_convert_from_func_ptr_addr_ftype convert_from_func_ptr_addr
)
2903 gdbarch
->convert_from_func_ptr_addr
= convert_from_func_ptr_addr
;
2907 gdbarch_addr_bits_remove (struct gdbarch
*gdbarch
, CORE_ADDR addr
)
2909 gdb_assert (gdbarch
!= NULL
);
2910 gdb_assert (gdbarch
->addr_bits_remove
!= NULL
);
2911 if (gdbarch_debug
>= 2)
2912 fprintf_unfiltered (gdb_stdlog
, "gdbarch_addr_bits_remove called\n");
2913 return gdbarch
->addr_bits_remove (addr
);
2917 set_gdbarch_addr_bits_remove (struct gdbarch
*gdbarch
,
2918 gdbarch_addr_bits_remove_ftype addr_bits_remove
)
2920 gdbarch
->addr_bits_remove
= addr_bits_remove
;
2924 gdbarch_smash_text_address (struct gdbarch
*gdbarch
, CORE_ADDR addr
)
2926 gdb_assert (gdbarch
!= NULL
);
2927 gdb_assert (gdbarch
->smash_text_address
!= NULL
);
2928 if (gdbarch_debug
>= 2)
2929 fprintf_unfiltered (gdb_stdlog
, "gdbarch_smash_text_address called\n");
2930 return gdbarch
->smash_text_address (addr
);
2934 set_gdbarch_smash_text_address (struct gdbarch
*gdbarch
,
2935 gdbarch_smash_text_address_ftype smash_text_address
)
2937 gdbarch
->smash_text_address
= smash_text_address
;
2941 gdbarch_software_single_step_p (struct gdbarch
*gdbarch
)
2943 gdb_assert (gdbarch
!= NULL
);
2944 return gdbarch
->software_single_step
!= NULL
;
2948 gdbarch_software_single_step (struct gdbarch
*gdbarch
, struct regcache
*regcache
)
2950 gdb_assert (gdbarch
!= NULL
);
2951 gdb_assert (gdbarch
->software_single_step
!= NULL
);
2952 if (gdbarch_debug
>= 2)
2953 fprintf_unfiltered (gdb_stdlog
, "gdbarch_software_single_step called\n");
2954 return gdbarch
->software_single_step (regcache
);
2958 set_gdbarch_software_single_step (struct gdbarch
*gdbarch
,
2959 gdbarch_software_single_step_ftype software_single_step
)
2961 gdbarch
->software_single_step
= software_single_step
;
2965 gdbarch_single_step_through_delay_p (struct gdbarch
*gdbarch
)
2967 gdb_assert (gdbarch
!= NULL
);
2968 return gdbarch
->single_step_through_delay
!= NULL
;
2972 gdbarch_single_step_through_delay (struct gdbarch
*gdbarch
, struct frame_info
*frame
)
2974 gdb_assert (gdbarch
!= NULL
);
2975 gdb_assert (gdbarch
->single_step_through_delay
!= NULL
);
2976 if (gdbarch_debug
>= 2)
2977 fprintf_unfiltered (gdb_stdlog
, "gdbarch_single_step_through_delay called\n");
2978 return gdbarch
->single_step_through_delay (gdbarch
, frame
);
2982 set_gdbarch_single_step_through_delay (struct gdbarch
*gdbarch
,
2983 gdbarch_single_step_through_delay_ftype single_step_through_delay
)
2985 gdbarch
->single_step_through_delay
= single_step_through_delay
;
2989 gdbarch_print_insn (struct gdbarch
*gdbarch
, bfd_vma vma
, struct disassemble_info
*info
)
2991 gdb_assert (gdbarch
!= NULL
);
2992 gdb_assert (gdbarch
->print_insn
!= NULL
);
2993 if (gdbarch_debug
>= 2)
2994 fprintf_unfiltered (gdb_stdlog
, "gdbarch_print_insn called\n");
2995 return gdbarch
->print_insn (vma
, info
);
2999 set_gdbarch_print_insn (struct gdbarch
*gdbarch
,
3000 gdbarch_print_insn_ftype print_insn
)
3002 gdbarch
->print_insn
= print_insn
;
3006 gdbarch_skip_trampoline_code (struct gdbarch
*gdbarch
, CORE_ADDR pc
)
3008 gdb_assert (gdbarch
!= NULL
);
3009 gdb_assert (gdbarch
->skip_trampoline_code
!= NULL
);
3010 if (gdbarch_debug
>= 2)
3011 fprintf_unfiltered (gdb_stdlog
, "gdbarch_skip_trampoline_code called\n");
3012 return gdbarch
->skip_trampoline_code (pc
);
3016 set_gdbarch_skip_trampoline_code (struct gdbarch
*gdbarch
,
3017 gdbarch_skip_trampoline_code_ftype skip_trampoline_code
)
3019 gdbarch
->skip_trampoline_code
= skip_trampoline_code
;
3023 gdbarch_skip_solib_resolver (struct gdbarch
*gdbarch
, CORE_ADDR pc
)
3025 gdb_assert (gdbarch
!= NULL
);
3026 gdb_assert (gdbarch
->skip_solib_resolver
!= NULL
);
3027 if (gdbarch_debug
>= 2)
3028 fprintf_unfiltered (gdb_stdlog
, "gdbarch_skip_solib_resolver called\n");
3029 return gdbarch
->skip_solib_resolver (gdbarch
, pc
);
3033 set_gdbarch_skip_solib_resolver (struct gdbarch
*gdbarch
,
3034 gdbarch_skip_solib_resolver_ftype skip_solib_resolver
)
3036 gdbarch
->skip_solib_resolver
= skip_solib_resolver
;
3040 gdbarch_in_solib_return_trampoline (struct gdbarch
*gdbarch
, CORE_ADDR pc
, char *name
)
3042 gdb_assert (gdbarch
!= NULL
);
3043 gdb_assert (gdbarch
->in_solib_return_trampoline
!= NULL
);
3044 if (gdbarch_debug
>= 2)
3045 fprintf_unfiltered (gdb_stdlog
, "gdbarch_in_solib_return_trampoline called\n");
3046 return gdbarch
->in_solib_return_trampoline (pc
, name
);
3050 set_gdbarch_in_solib_return_trampoline (struct gdbarch
*gdbarch
,
3051 gdbarch_in_solib_return_trampoline_ftype in_solib_return_trampoline
)
3053 gdbarch
->in_solib_return_trampoline
= in_solib_return_trampoline
;
3057 gdbarch_in_function_epilogue_p (struct gdbarch
*gdbarch
, CORE_ADDR addr
)
3059 gdb_assert (gdbarch
!= NULL
);
3060 gdb_assert (gdbarch
->in_function_epilogue_p
!= NULL
);
3061 if (gdbarch_debug
>= 2)
3062 fprintf_unfiltered (gdb_stdlog
, "gdbarch_in_function_epilogue_p called\n");
3063 return gdbarch
->in_function_epilogue_p (gdbarch
, addr
);
3067 set_gdbarch_in_function_epilogue_p (struct gdbarch
*gdbarch
,
3068 gdbarch_in_function_epilogue_p_ftype in_function_epilogue_p
)
3070 gdbarch
->in_function_epilogue_p
= in_function_epilogue_p
;
3074 gdbarch_construct_inferior_arguments (struct gdbarch
*gdbarch
, int argc
, char **argv
)
3076 gdb_assert (gdbarch
!= NULL
);
3077 gdb_assert (gdbarch
->construct_inferior_arguments
!= NULL
);
3078 if (gdbarch_debug
>= 2)
3079 fprintf_unfiltered (gdb_stdlog
, "gdbarch_construct_inferior_arguments called\n");
3080 return gdbarch
->construct_inferior_arguments (gdbarch
, argc
, argv
);
3084 set_gdbarch_construct_inferior_arguments (struct gdbarch
*gdbarch
,
3085 gdbarch_construct_inferior_arguments_ftype construct_inferior_arguments
)
3087 gdbarch
->construct_inferior_arguments
= construct_inferior_arguments
;
3091 gdbarch_elf_make_msymbol_special (struct gdbarch
*gdbarch
, asymbol
*sym
, struct minimal_symbol
*msym
)
3093 gdb_assert (gdbarch
!= NULL
);
3094 gdb_assert (gdbarch
->elf_make_msymbol_special
!= NULL
);
3095 if (gdbarch_debug
>= 2)
3096 fprintf_unfiltered (gdb_stdlog
, "gdbarch_elf_make_msymbol_special called\n");
3097 gdbarch
->elf_make_msymbol_special (sym
, msym
);
3101 set_gdbarch_elf_make_msymbol_special (struct gdbarch
*gdbarch
,
3102 gdbarch_elf_make_msymbol_special_ftype elf_make_msymbol_special
)
3104 gdbarch
->elf_make_msymbol_special
= elf_make_msymbol_special
;
3108 gdbarch_coff_make_msymbol_special (struct gdbarch
*gdbarch
, int val
, struct minimal_symbol
*msym
)
3110 gdb_assert (gdbarch
!= NULL
);
3111 gdb_assert (gdbarch
->coff_make_msymbol_special
!= NULL
);
3112 if (gdbarch_debug
>= 2)
3113 fprintf_unfiltered (gdb_stdlog
, "gdbarch_coff_make_msymbol_special called\n");
3114 gdbarch
->coff_make_msymbol_special (val
, msym
);
3118 set_gdbarch_coff_make_msymbol_special (struct gdbarch
*gdbarch
,
3119 gdbarch_coff_make_msymbol_special_ftype coff_make_msymbol_special
)
3121 gdbarch
->coff_make_msymbol_special
= coff_make_msymbol_special
;
3125 gdbarch_name_of_malloc (struct gdbarch
*gdbarch
)
3127 gdb_assert (gdbarch
!= NULL
);
3128 /* Skip verify of name_of_malloc, invalid_p == 0 */
3129 if (gdbarch_debug
>= 2)
3130 fprintf_unfiltered (gdb_stdlog
, "gdbarch_name_of_malloc called\n");
3131 return gdbarch
->name_of_malloc
;
3135 set_gdbarch_name_of_malloc (struct gdbarch
*gdbarch
,
3136 const char * name_of_malloc
)
3138 gdbarch
->name_of_malloc
= name_of_malloc
;
3142 gdbarch_cannot_step_breakpoint (struct gdbarch
*gdbarch
)
3144 gdb_assert (gdbarch
!= NULL
);
3145 /* Skip verify of cannot_step_breakpoint, invalid_p == 0 */
3146 if (gdbarch_debug
>= 2)
3147 fprintf_unfiltered (gdb_stdlog
, "gdbarch_cannot_step_breakpoint called\n");
3148 return gdbarch
->cannot_step_breakpoint
;
3152 set_gdbarch_cannot_step_breakpoint (struct gdbarch
*gdbarch
,
3153 int cannot_step_breakpoint
)
3155 gdbarch
->cannot_step_breakpoint
= cannot_step_breakpoint
;
3159 gdbarch_have_nonsteppable_watchpoint (struct gdbarch
*gdbarch
)
3161 gdb_assert (gdbarch
!= NULL
);
3162 /* Skip verify of have_nonsteppable_watchpoint, invalid_p == 0 */
3163 if (gdbarch_debug
>= 2)
3164 fprintf_unfiltered (gdb_stdlog
, "gdbarch_have_nonsteppable_watchpoint called\n");
3165 return gdbarch
->have_nonsteppable_watchpoint
;
3169 set_gdbarch_have_nonsteppable_watchpoint (struct gdbarch
*gdbarch
,
3170 int have_nonsteppable_watchpoint
)
3172 gdbarch
->have_nonsteppable_watchpoint
= have_nonsteppable_watchpoint
;
3176 gdbarch_address_class_type_flags_p (struct gdbarch
*gdbarch
)
3178 gdb_assert (gdbarch
!= NULL
);
3179 return gdbarch
->address_class_type_flags
!= NULL
;
3183 gdbarch_address_class_type_flags (struct gdbarch
*gdbarch
, int byte_size
, int dwarf2_addr_class
)
3185 gdb_assert (gdbarch
!= NULL
);
3186 gdb_assert (gdbarch
->address_class_type_flags
!= NULL
);
3187 if (gdbarch_debug
>= 2)
3188 fprintf_unfiltered (gdb_stdlog
, "gdbarch_address_class_type_flags called\n");
3189 return gdbarch
->address_class_type_flags (byte_size
, dwarf2_addr_class
);
3193 set_gdbarch_address_class_type_flags (struct gdbarch
*gdbarch
,
3194 gdbarch_address_class_type_flags_ftype address_class_type_flags
)
3196 gdbarch
->address_class_type_flags
= address_class_type_flags
;
3200 gdbarch_address_class_type_flags_to_name_p (struct gdbarch
*gdbarch
)
3202 gdb_assert (gdbarch
!= NULL
);
3203 return gdbarch
->address_class_type_flags_to_name
!= NULL
;
3207 gdbarch_address_class_type_flags_to_name (struct gdbarch
*gdbarch
, int type_flags
)
3209 gdb_assert (gdbarch
!= NULL
);
3210 gdb_assert (gdbarch
->address_class_type_flags_to_name
!= NULL
);
3211 if (gdbarch_debug
>= 2)
3212 fprintf_unfiltered (gdb_stdlog
, "gdbarch_address_class_type_flags_to_name called\n");
3213 return gdbarch
->address_class_type_flags_to_name (gdbarch
, type_flags
);
3217 set_gdbarch_address_class_type_flags_to_name (struct gdbarch
*gdbarch
,
3218 gdbarch_address_class_type_flags_to_name_ftype address_class_type_flags_to_name
)
3220 gdbarch
->address_class_type_flags_to_name
= address_class_type_flags_to_name
;
3224 gdbarch_address_class_name_to_type_flags_p (struct gdbarch
*gdbarch
)
3226 gdb_assert (gdbarch
!= NULL
);
3227 return gdbarch
->address_class_name_to_type_flags
!= NULL
;
3231 gdbarch_address_class_name_to_type_flags (struct gdbarch
*gdbarch
, const char *name
, int *type_flags_ptr
)
3233 gdb_assert (gdbarch
!= NULL
);
3234 gdb_assert (gdbarch
->address_class_name_to_type_flags
!= NULL
);
3235 if (gdbarch_debug
>= 2)
3236 fprintf_unfiltered (gdb_stdlog
, "gdbarch_address_class_name_to_type_flags called\n");
3237 return gdbarch
->address_class_name_to_type_flags (gdbarch
, name
, type_flags_ptr
);
3241 set_gdbarch_address_class_name_to_type_flags (struct gdbarch
*gdbarch
,
3242 gdbarch_address_class_name_to_type_flags_ftype address_class_name_to_type_flags
)
3244 gdbarch
->address_class_name_to_type_flags
= address_class_name_to_type_flags
;
3248 gdbarch_register_reggroup_p (struct gdbarch
*gdbarch
, int regnum
, struct reggroup
*reggroup
)
3250 gdb_assert (gdbarch
!= NULL
);
3251 gdb_assert (gdbarch
->register_reggroup_p
!= NULL
);
3252 if (gdbarch_debug
>= 2)
3253 fprintf_unfiltered (gdb_stdlog
, "gdbarch_register_reggroup_p called\n");
3254 return gdbarch
->register_reggroup_p (gdbarch
, regnum
, reggroup
);
3258 set_gdbarch_register_reggroup_p (struct gdbarch
*gdbarch
,
3259 gdbarch_register_reggroup_p_ftype register_reggroup_p
)
3261 gdbarch
->register_reggroup_p
= register_reggroup_p
;
3265 gdbarch_fetch_pointer_argument_p (struct gdbarch
*gdbarch
)
3267 gdb_assert (gdbarch
!= NULL
);
3268 return gdbarch
->fetch_pointer_argument
!= NULL
;
3272 gdbarch_fetch_pointer_argument (struct gdbarch
*gdbarch
, struct frame_info
*frame
, int argi
, struct type
*type
)
3274 gdb_assert (gdbarch
!= NULL
);
3275 gdb_assert (gdbarch
->fetch_pointer_argument
!= NULL
);
3276 if (gdbarch_debug
>= 2)
3277 fprintf_unfiltered (gdb_stdlog
, "gdbarch_fetch_pointer_argument called\n");
3278 return gdbarch
->fetch_pointer_argument (frame
, argi
, type
);
3282 set_gdbarch_fetch_pointer_argument (struct gdbarch
*gdbarch
,
3283 gdbarch_fetch_pointer_argument_ftype fetch_pointer_argument
)
3285 gdbarch
->fetch_pointer_argument
= fetch_pointer_argument
;
3289 gdbarch_regset_from_core_section_p (struct gdbarch
*gdbarch
)
3291 gdb_assert (gdbarch
!= NULL
);
3292 return gdbarch
->regset_from_core_section
!= NULL
;
3295 const struct regset
*
3296 gdbarch_regset_from_core_section (struct gdbarch
*gdbarch
, const char *sect_name
, size_t sect_size
)
3298 gdb_assert (gdbarch
!= NULL
);
3299 gdb_assert (gdbarch
->regset_from_core_section
!= NULL
);
3300 if (gdbarch_debug
>= 2)
3301 fprintf_unfiltered (gdb_stdlog
, "gdbarch_regset_from_core_section called\n");
3302 return gdbarch
->regset_from_core_section (gdbarch
, sect_name
, sect_size
);
3306 set_gdbarch_regset_from_core_section (struct gdbarch
*gdbarch
,
3307 gdbarch_regset_from_core_section_ftype regset_from_core_section
)
3309 gdbarch
->regset_from_core_section
= regset_from_core_section
;
3313 gdbarch_vtable_function_descriptors (struct gdbarch
*gdbarch
)
3315 gdb_assert (gdbarch
!= NULL
);
3316 /* Skip verify of vtable_function_descriptors, invalid_p == 0 */
3317 if (gdbarch_debug
>= 2)
3318 fprintf_unfiltered (gdb_stdlog
, "gdbarch_vtable_function_descriptors called\n");
3319 return gdbarch
->vtable_function_descriptors
;
3323 set_gdbarch_vtable_function_descriptors (struct gdbarch
*gdbarch
,
3324 int vtable_function_descriptors
)
3326 gdbarch
->vtable_function_descriptors
= vtable_function_descriptors
;
3330 gdbarch_vbit_in_delta (struct gdbarch
*gdbarch
)
3332 gdb_assert (gdbarch
!= NULL
);
3333 /* Skip verify of vbit_in_delta, invalid_p == 0 */
3334 if (gdbarch_debug
>= 2)
3335 fprintf_unfiltered (gdb_stdlog
, "gdbarch_vbit_in_delta called\n");
3336 return gdbarch
->vbit_in_delta
;
3340 set_gdbarch_vbit_in_delta (struct gdbarch
*gdbarch
,
3343 gdbarch
->vbit_in_delta
= vbit_in_delta
;
3347 gdbarch_skip_permanent_breakpoint_p (struct gdbarch
*gdbarch
)
3349 gdb_assert (gdbarch
!= NULL
);
3350 return gdbarch
->skip_permanent_breakpoint
!= NULL
;
3354 gdbarch_skip_permanent_breakpoint (struct gdbarch
*gdbarch
, struct regcache
*regcache
)
3356 gdb_assert (gdbarch
!= NULL
);
3357 gdb_assert (gdbarch
->skip_permanent_breakpoint
!= NULL
);
3358 if (gdbarch_debug
>= 2)
3359 fprintf_unfiltered (gdb_stdlog
, "gdbarch_skip_permanent_breakpoint called\n");
3360 gdbarch
->skip_permanent_breakpoint (regcache
);
3364 set_gdbarch_skip_permanent_breakpoint (struct gdbarch
*gdbarch
,
3365 gdbarch_skip_permanent_breakpoint_ftype skip_permanent_breakpoint
)
3367 gdbarch
->skip_permanent_breakpoint
= skip_permanent_breakpoint
;
3371 gdbarch_overlay_update_p (struct gdbarch
*gdbarch
)
3373 gdb_assert (gdbarch
!= NULL
);
3374 return gdbarch
->overlay_update
!= NULL
;
3378 gdbarch_overlay_update (struct gdbarch
*gdbarch
, struct obj_section
*osect
)
3380 gdb_assert (gdbarch
!= NULL
);
3381 gdb_assert (gdbarch
->overlay_update
!= NULL
);
3382 if (gdbarch_debug
>= 2)
3383 fprintf_unfiltered (gdb_stdlog
, "gdbarch_overlay_update called\n");
3384 gdbarch
->overlay_update (osect
);
3388 set_gdbarch_overlay_update (struct gdbarch
*gdbarch
,
3389 gdbarch_overlay_update_ftype overlay_update
)
3391 gdbarch
->overlay_update
= overlay_update
;
3395 /* Keep a registry of per-architecture data-pointers required by GDB
3402 gdbarch_data_pre_init_ftype
*pre_init
;
3403 gdbarch_data_post_init_ftype
*post_init
;
3406 struct gdbarch_data_registration
3408 struct gdbarch_data
*data
;
3409 struct gdbarch_data_registration
*next
;
3412 struct gdbarch_data_registry
3415 struct gdbarch_data_registration
*registrations
;
3418 struct gdbarch_data_registry gdbarch_data_registry
=
3423 static struct gdbarch_data
*
3424 gdbarch_data_register (gdbarch_data_pre_init_ftype
*pre_init
,
3425 gdbarch_data_post_init_ftype
*post_init
)
3427 struct gdbarch_data_registration
**curr
;
3428 /* Append the new registraration. */
3429 for (curr
= &gdbarch_data_registry
.registrations
;
3431 curr
= &(*curr
)->next
);
3432 (*curr
) = XMALLOC (struct gdbarch_data_registration
);
3433 (*curr
)->next
= NULL
;
3434 (*curr
)->data
= XMALLOC (struct gdbarch_data
);
3435 (*curr
)->data
->index
= gdbarch_data_registry
.nr
++;
3436 (*curr
)->data
->pre_init
= pre_init
;
3437 (*curr
)->data
->post_init
= post_init
;
3438 (*curr
)->data
->init_p
= 1;
3439 return (*curr
)->data
;
3442 struct gdbarch_data
*
3443 gdbarch_data_register_pre_init (gdbarch_data_pre_init_ftype
*pre_init
)
3445 return gdbarch_data_register (pre_init
, NULL
);
3448 struct gdbarch_data
*
3449 gdbarch_data_register_post_init (gdbarch_data_post_init_ftype
*post_init
)
3451 return gdbarch_data_register (NULL
, post_init
);
3454 /* Create/delete the gdbarch data vector. */
3457 alloc_gdbarch_data (struct gdbarch
*gdbarch
)
3459 gdb_assert (gdbarch
->data
== NULL
);
3460 gdbarch
->nr_data
= gdbarch_data_registry
.nr
;
3461 gdbarch
->data
= GDBARCH_OBSTACK_CALLOC (gdbarch
, gdbarch
->nr_data
, void *);
3464 /* Initialize the current value of the specified per-architecture
3468 deprecated_set_gdbarch_data (struct gdbarch
*gdbarch
,
3469 struct gdbarch_data
*data
,
3472 gdb_assert (data
->index
< gdbarch
->nr_data
);
3473 gdb_assert (gdbarch
->data
[data
->index
] == NULL
);
3474 gdb_assert (data
->pre_init
== NULL
);
3475 gdbarch
->data
[data
->index
] = pointer
;
3478 /* Return the current value of the specified per-architecture
3482 gdbarch_data (struct gdbarch
*gdbarch
, struct gdbarch_data
*data
)
3484 gdb_assert (data
->index
< gdbarch
->nr_data
);
3485 if (gdbarch
->data
[data
->index
] == NULL
)
3487 /* The data-pointer isn't initialized, call init() to get a
3489 if (data
->pre_init
!= NULL
)
3490 /* Mid architecture creation: pass just the obstack, and not
3491 the entire architecture, as that way it isn't possible for
3492 pre-init code to refer to undefined architecture
3494 gdbarch
->data
[data
->index
] = data
->pre_init (gdbarch
->obstack
);
3495 else if (gdbarch
->initialized_p
3496 && data
->post_init
!= NULL
)
3497 /* Post architecture creation: pass the entire architecture
3498 (as all fields are valid), but be careful to also detect
3499 recursive references. */
3501 gdb_assert (data
->init_p
);
3503 gdbarch
->data
[data
->index
] = data
->post_init (gdbarch
);
3507 /* The architecture initialization hasn't completed - punt -
3508 hope that the caller knows what they are doing. Once
3509 deprecated_set_gdbarch_data has been initialized, this can be
3510 changed to an internal error. */
3512 gdb_assert (gdbarch
->data
[data
->index
] != NULL
);
3514 return gdbarch
->data
[data
->index
];
3519 /* Keep a registry of swapped data required by GDB modules. */
3524 struct gdbarch_swap_registration
*source
;
3525 struct gdbarch_swap
*next
;
3528 struct gdbarch_swap_registration
3531 unsigned long sizeof_data
;
3532 gdbarch_swap_ftype
*init
;
3533 struct gdbarch_swap_registration
*next
;
3536 struct gdbarch_swap_registry
3539 struct gdbarch_swap_registration
*registrations
;
3542 struct gdbarch_swap_registry gdbarch_swap_registry
=
3548 deprecated_register_gdbarch_swap (void *data
,
3549 unsigned long sizeof_data
,
3550 gdbarch_swap_ftype
*init
)
3552 struct gdbarch_swap_registration
**rego
;
3553 for (rego
= &gdbarch_swap_registry
.registrations
;
3555 rego
= &(*rego
)->next
);
3556 (*rego
) = XMALLOC (struct gdbarch_swap_registration
);
3557 (*rego
)->next
= NULL
;
3558 (*rego
)->init
= init
;
3559 (*rego
)->data
= data
;
3560 (*rego
)->sizeof_data
= sizeof_data
;
3564 current_gdbarch_swap_init_hack (void)
3566 struct gdbarch_swap_registration
*rego
;
3567 struct gdbarch_swap
**curr
= ¤t_gdbarch
->swap
;
3568 for (rego
= gdbarch_swap_registry
.registrations
;
3572 if (rego
->data
!= NULL
)
3574 (*curr
) = GDBARCH_OBSTACK_ZALLOC (current_gdbarch
,
3575 struct gdbarch_swap
);
3576 (*curr
)->source
= rego
;
3577 (*curr
)->swap
= gdbarch_obstack_zalloc (current_gdbarch
,
3579 (*curr
)->next
= NULL
;
3580 curr
= &(*curr
)->next
;
3582 if (rego
->init
!= NULL
)
3587 static struct gdbarch
*
3588 current_gdbarch_swap_out_hack (void)
3590 struct gdbarch
*old_gdbarch
= current_gdbarch
;
3591 struct gdbarch_swap
*curr
;
3593 gdb_assert (old_gdbarch
!= NULL
);
3594 for (curr
= old_gdbarch
->swap
;
3598 memcpy (curr
->swap
, curr
->source
->data
, curr
->source
->sizeof_data
);
3599 memset (curr
->source
->data
, 0, curr
->source
->sizeof_data
);
3601 current_gdbarch
= NULL
;
3606 current_gdbarch_swap_in_hack (struct gdbarch
*new_gdbarch
)
3608 struct gdbarch_swap
*curr
;
3610 gdb_assert (current_gdbarch
== NULL
);
3611 for (curr
= new_gdbarch
->swap
;
3614 memcpy (curr
->source
->data
, curr
->swap
, curr
->source
->sizeof_data
);
3615 current_gdbarch
= new_gdbarch
;
3619 /* Keep a registry of the architectures known by GDB. */
3621 struct gdbarch_registration
3623 enum bfd_architecture bfd_architecture
;
3624 gdbarch_init_ftype
*init
;
3625 gdbarch_dump_tdep_ftype
*dump_tdep
;
3626 struct gdbarch_list
*arches
;
3627 struct gdbarch_registration
*next
;
3630 static struct gdbarch_registration
*gdbarch_registry
= NULL
;
3633 append_name (const char ***buf
, int *nr
, const char *name
)
3635 *buf
= xrealloc (*buf
, sizeof (char**) * (*nr
+ 1));
3641 gdbarch_printable_names (void)
3643 /* Accumulate a list of names based on the registed list of
3645 enum bfd_architecture a
;
3647 const char **arches
= NULL
;
3648 struct gdbarch_registration
*rego
;
3649 for (rego
= gdbarch_registry
;
3653 const struct bfd_arch_info
*ap
;
3654 ap
= bfd_lookup_arch (rego
->bfd_architecture
, 0);
3656 internal_error (__FILE__
, __LINE__
,
3657 _("gdbarch_architecture_names: multi-arch unknown"));
3660 append_name (&arches
, &nr_arches
, ap
->printable_name
);
3665 append_name (&arches
, &nr_arches
, NULL
);
3671 gdbarch_register (enum bfd_architecture bfd_architecture
,
3672 gdbarch_init_ftype
*init
,
3673 gdbarch_dump_tdep_ftype
*dump_tdep
)
3675 struct gdbarch_registration
**curr
;
3676 const struct bfd_arch_info
*bfd_arch_info
;
3677 /* Check that BFD recognizes this architecture */
3678 bfd_arch_info
= bfd_lookup_arch (bfd_architecture
, 0);
3679 if (bfd_arch_info
== NULL
)
3681 internal_error (__FILE__
, __LINE__
,
3682 _("gdbarch: Attempt to register unknown architecture (%d)"),
3685 /* Check that we haven't seen this architecture before */
3686 for (curr
= &gdbarch_registry
;
3688 curr
= &(*curr
)->next
)
3690 if (bfd_architecture
== (*curr
)->bfd_architecture
)
3691 internal_error (__FILE__
, __LINE__
,
3692 _("gdbarch: Duplicate registraration of architecture (%s)"),
3693 bfd_arch_info
->printable_name
);
3697 fprintf_unfiltered (gdb_stdlog
, "register_gdbarch_init (%s, 0x%08lx)\n",
3698 bfd_arch_info
->printable_name
,
3701 (*curr
) = XMALLOC (struct gdbarch_registration
);
3702 (*curr
)->bfd_architecture
= bfd_architecture
;
3703 (*curr
)->init
= init
;
3704 (*curr
)->dump_tdep
= dump_tdep
;
3705 (*curr
)->arches
= NULL
;
3706 (*curr
)->next
= NULL
;
3710 register_gdbarch_init (enum bfd_architecture bfd_architecture
,
3711 gdbarch_init_ftype
*init
)
3713 gdbarch_register (bfd_architecture
, init
, NULL
);
3717 /* Look for an architecture using gdbarch_info. */
3719 struct gdbarch_list
*
3720 gdbarch_list_lookup_by_info (struct gdbarch_list
*arches
,
3721 const struct gdbarch_info
*info
)
3723 for (; arches
!= NULL
; arches
= arches
->next
)
3725 if (info
->bfd_arch_info
!= arches
->gdbarch
->bfd_arch_info
)
3727 if (info
->byte_order
!= arches
->gdbarch
->byte_order
)
3729 if (info
->osabi
!= arches
->gdbarch
->osabi
)
3731 if (info
->target_desc
!= arches
->gdbarch
->target_desc
)
3739 /* Find an architecture that matches the specified INFO. Create a new
3740 architecture if needed. Return that new architecture. Assumes
3741 that there is no current architecture. */
3743 static struct gdbarch
*
3744 find_arch_by_info (struct gdbarch_info info
)
3746 struct gdbarch
*new_gdbarch
;
3747 struct gdbarch_registration
*rego
;
3749 /* The existing architecture has been swapped out - all this code
3750 works from a clean slate. */
3751 gdb_assert (current_gdbarch
== NULL
);
3753 /* Fill in missing parts of the INFO struct using a number of
3754 sources: "set ..."; INFOabfd supplied; and the global
3756 gdbarch_info_fill (&info
);
3758 /* Must have found some sort of architecture. */
3759 gdb_assert (info
.bfd_arch_info
!= NULL
);
3763 fprintf_unfiltered (gdb_stdlog
,
3764 "find_arch_by_info: info.bfd_arch_info %s\n",
3765 (info
.bfd_arch_info
!= NULL
3766 ? info
.bfd_arch_info
->printable_name
3768 fprintf_unfiltered (gdb_stdlog
,
3769 "find_arch_by_info: info.byte_order %d (%s)\n",
3771 (info
.byte_order
== BFD_ENDIAN_BIG
? "big"
3772 : info
.byte_order
== BFD_ENDIAN_LITTLE
? "little"
3774 fprintf_unfiltered (gdb_stdlog
,
3775 "find_arch_by_info: info.osabi %d (%s)\n",
3776 info
.osabi
, gdbarch_osabi_name (info
.osabi
));
3777 fprintf_unfiltered (gdb_stdlog
,
3778 "find_arch_by_info: info.abfd 0x%lx\n",
3780 fprintf_unfiltered (gdb_stdlog
,
3781 "find_arch_by_info: info.tdep_info 0x%lx\n",
3782 (long) info
.tdep_info
);
3785 /* Find the tdep code that knows about this architecture. */
3786 for (rego
= gdbarch_registry
;
3789 if (rego
->bfd_architecture
== info
.bfd_arch_info
->arch
)
3794 fprintf_unfiltered (gdb_stdlog
, "find_arch_by_info: "
3795 "No matching architecture\n");
3799 /* Ask the tdep code for an architecture that matches "info". */
3800 new_gdbarch
= rego
->init (info
, rego
->arches
);
3802 /* Did the tdep code like it? No. Reject the change and revert to
3803 the old architecture. */
3804 if (new_gdbarch
== NULL
)
3807 fprintf_unfiltered (gdb_stdlog
, "find_arch_by_info: "
3808 "Target rejected architecture\n");
3812 /* Is this a pre-existing architecture (as determined by already
3813 being initialized)? Move it to the front of the architecture
3814 list (keeping the list sorted Most Recently Used). */
3815 if (new_gdbarch
->initialized_p
)
3817 struct gdbarch_list
**list
;
3818 struct gdbarch_list
*this;
3820 fprintf_unfiltered (gdb_stdlog
, "find_arch_by_info: "
3821 "Previous architecture 0x%08lx (%s) selected\n",
3823 new_gdbarch
->bfd_arch_info
->printable_name
);
3824 /* Find the existing arch in the list. */
3825 for (list
= ®o
->arches
;
3826 (*list
) != NULL
&& (*list
)->gdbarch
!= new_gdbarch
;
3827 list
= &(*list
)->next
);
3828 /* It had better be in the list of architectures. */
3829 gdb_assert ((*list
) != NULL
&& (*list
)->gdbarch
== new_gdbarch
);
3832 (*list
) = this->next
;
3833 /* Insert THIS at the front. */
3834 this->next
= rego
->arches
;
3835 rego
->arches
= this;
3840 /* It's a new architecture. */
3842 fprintf_unfiltered (gdb_stdlog
, "find_arch_by_info: "
3843 "New architecture 0x%08lx (%s) selected\n",
3845 new_gdbarch
->bfd_arch_info
->printable_name
);
3847 /* Insert the new architecture into the front of the architecture
3848 list (keep the list sorted Most Recently Used). */
3850 struct gdbarch_list
*this = XMALLOC (struct gdbarch_list
);
3851 this->next
= rego
->arches
;
3852 this->gdbarch
= new_gdbarch
;
3853 rego
->arches
= this;
3856 /* Check that the newly installed architecture is valid. Plug in
3857 any post init values. */
3858 new_gdbarch
->dump_tdep
= rego
->dump_tdep
;
3859 verify_gdbarch (new_gdbarch
);
3860 new_gdbarch
->initialized_p
= 1;
3862 /* Initialize any per-architecture swap areas. This phase requires
3863 a valid global CURRENT_GDBARCH. Set it momentarially, and then
3864 swap the entire architecture out. */
3865 current_gdbarch
= new_gdbarch
;
3866 current_gdbarch_swap_init_hack ();
3867 current_gdbarch_swap_out_hack ();
3870 gdbarch_dump (new_gdbarch
, gdb_stdlog
);
3876 gdbarch_find_by_info (struct gdbarch_info info
)
3878 /* Save the previously selected architecture, setting the global to
3879 NULL. This stops things like gdbarch->init() trying to use the
3880 previous architecture's configuration. The previous architecture
3881 may not even be of the same architecture family. The most recent
3882 architecture of the same family is found at the head of the
3883 rego->arches list. */
3884 struct gdbarch
*old_gdbarch
= current_gdbarch_swap_out_hack ();
3886 /* Find the specified architecture. */
3887 struct gdbarch
*new_gdbarch
= find_arch_by_info (info
);
3889 /* Restore the existing architecture. */
3890 gdb_assert (current_gdbarch
== NULL
);
3891 current_gdbarch_swap_in_hack (old_gdbarch
);
3896 /* Make the specified architecture current, swapping the existing one
3900 deprecated_current_gdbarch_select_hack (struct gdbarch
*new_gdbarch
)
3902 gdb_assert (new_gdbarch
!= NULL
);
3903 gdb_assert (current_gdbarch
!= NULL
);
3904 gdb_assert (new_gdbarch
->initialized_p
);
3905 current_gdbarch_swap_out_hack ();
3906 current_gdbarch_swap_in_hack (new_gdbarch
);
3907 architecture_changed_event ();
3908 reinit_frame_cache ();
3911 extern void _initialize_gdbarch (void);
3914 _initialize_gdbarch (void)
3916 struct cmd_list_element
*c
;
3918 add_setshow_zinteger_cmd ("arch", class_maintenance
, &gdbarch_debug
, _("\
3919 Set architecture debugging."), _("\
3920 Show architecture debugging."), _("\
3921 When non-zero, architecture debugging is enabled."),
3924 &setdebuglist
, &showdebuglist
);