3 # Architecture commands for GDB, the GNU debugger.
4 # Copyright 1998-2000 Free Software Foundation, Inc.
6 # This file is part of GDB.
8 # This program is free software; you can redistribute it and/or modify
9 # it under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 2 of the License, or
11 # (at your option) any later version.
13 # This program is distributed in the hope that it will be useful,
14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with this program; if not, write to the Free Software
20 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
27 echo "${file} missing? cp new-${file} ${file}" 1>&2
28 elif diff -c ${file} new-
${file}
30 echo "${file} unchanged" 1>&2
32 echo "${file} has changed? cp new-${file} ${file}" 1>&2
37 # DEFAULT is a valid fallback definition of a MACRO when
38 # multi-arch is not enabled.
39 default_is_fallback_p
()
41 [ "${default}" != "" -a "${invalid_p}" = "0" ]
44 # Format of the input table
45 read="class level macro returntype function formal actual attrib startup default invalid_p fmt print print_p description"
47 class_is_variable_p
()
49 [ "${class}" = "v" -o "${class}" = "V" ]
52 class_is_function_p
()
54 [ "${class}" = "f" -o "${class}" = "F" ]
57 class_is_predicate_p
()
59 [ "${class}" = "F" -o "${class}" = "V" ]
72 test "${startup}" || startup
=0
73 test "${fmt}" ||
fmt="%ld"
74 test "${print}" || print
="(long) ${macro}"
76 #Should set DEFAULT to zero and force the user to provide
78 #test "${default}" || default=0 - NO
79 case "${invalid_p}" in
81 "" ) test "${default}" && valid_p="gdbarch->${function} != ${default}"
83 #test "${default}" && invalid_p="gdbarch->${function} == ${default}"
85 * ) valid_p
="!(${invalid_p})"
95 # dump out/verify the doco
105 # F -> function + predicate
106 # hiding a function + predicate to test function validity
109 # V -> variable + predicate
110 # hiding a variable + predicate to test variables validity
112 # hiding something from the ``struct info'' object
116 # See GDB_MULTI_ARCH description. Having GDB_MULTI_ARCH >=
117 # LEVEL is a predicate on checking that a given method is
118 # initialized (using INVALID_P).
122 # The name of the MACRO that this method is to be accessed by.
126 # For functions, the return type; for variables, the data type
130 # For functions, the member function name; for variables, the
131 # variable name. Member function names are always prefixed with
132 # ``gdbarch_'' for name-space purity.
136 # The formal argument list. It is assumed that the formal
137 # argument list includes the actual name of each list element.
138 # A function with no arguments shall have ``void'' as the
139 # formal argument list.
143 # The list of actual arguments. The arguments specified shall
144 # match the FORMAL list given above. Functions with out
145 # arguments leave this blank.
149 # Any GCC attributes that should be attached to the function
150 # declaration. At present this field is unused.
154 # To help with the GDB startup a static gdbarch object is
155 # created. STARTUP is the value to insert into that static
158 # By default ``0'' is used.
162 # Any initial value to assign to a new gdbarch object after it
163 # as been malloc()ed. Zero is used by default.
165 # Specify a non-empty DEFAULT and a zero INVALID_P to create a
166 # fallback value or function for when multi-arch is disabled.
167 # Specify a zero DEFAULT function to make that fallback
172 # A predicate equation that validates MEMBER. Non-zero is
173 # returned if the code creating the new architecture failed to
174 # initialize the MEMBER or initialized the member to something
175 # invalid. By default, a check that the value is no longer
176 # equal to DEFAULT is performed. The equation ``0'' disables
177 # the invalid_p check.
181 # printf style format string that can be used to print out the
182 # MEMBER. Sometimes "%s" is useful. For functions, this is
183 # ignored and the function address is printed.
185 # By default ```%ld'' is used.
189 # An optional equation that casts MEMBER to a value suitable
190 # for formatting by FMT.
192 # By default ``(long)'' is used.
196 # An optional indicator for any predicte to wrap around the
199 # # -> Wrap print up in ``#ifdef MACRO''
200 # exp -> Wrap print up in ``if (${print_p}) ...
201 # ``'' -> No predicate
215 # See below (DOCO) for description of each field
217 i:2:TARGET_ARCHITECTURE:const struct bfd_arch_info *:bfd_arch_info::::&bfd_default_arch_struct:::%s:TARGET_ARCHITECTURE->printable_name:TARGET_ARCHITECTURE != NULL
219 i:2:TARGET_BYTE_ORDER:int:byte_order::::BIG_ENDIAN
221 v:1:TARGET_BFD_VMA_BIT:int:bfd_vma_bit::::8 * sizeof (void*):TARGET_ARCHITECTURE->bits_per_address:0
222 v:1:TARGET_PTR_BIT:int:ptr_bit::::8 * sizeof (void*):0
223 #v:1:TARGET_CHAR_BIT:int:char_bit::::8 * sizeof (char):0
224 v:1:TARGET_SHORT_BIT:int:short_bit::::8 * sizeof (short):0
225 v:1:TARGET_INT_BIT:int:int_bit::::8 * sizeof (int):0
226 v:1:TARGET_LONG_BIT:int:long_bit::::8 * sizeof (long):0
227 v:1:TARGET_LONG_LONG_BIT:int:long_long_bit::::8 * sizeof (LONGEST):0
228 v:1:TARGET_FLOAT_BIT:int:float_bit::::8 * sizeof (float):0
229 v:1:TARGET_DOUBLE_BIT:int:double_bit::::8 * sizeof (double):0
230 v:1:TARGET_LONG_DOUBLE_BIT:int:long_double_bit::::8 * sizeof (long double):0
231 v:1:IEEE_FLOAT:int:ieee_float::::0:0:0:::
233 f:1:TARGET_READ_PC:CORE_ADDR:read_pc:int pid:pid::0:0
234 f:1:TARGET_WRITE_PC:void:write_pc:CORE_ADDR val, int pid:val, pid::0:0
235 f:1:TARGET_READ_FP:CORE_ADDR:read_fp:void:::0:0
236 f:1:TARGET_WRITE_FP:void:write_fp:CORE_ADDR val:val::0:0
237 f:1:TARGET_READ_SP:CORE_ADDR:read_sp:void:::0:0
238 f:1:TARGET_WRITE_SP:void:write_sp:CORE_ADDR val:val::0:0
240 v:2:NUM_REGS:int:num_regs::::0:-1
241 v:2:SP_REGNUM:int:sp_regnum::::0:-1
242 v:2:FP_REGNUM:int:fp_regnum::::0:-1
243 v:2:PC_REGNUM:int:pc_regnum::::0:-1
244 v:2:NPC_REGNUM:int:npc_regnum::::0:-1:0
245 v:2:NNPC_REGNUM:int:nnpc_regnum::::0:-1:0
246 f:2:REGISTER_NAME:char *:register_name:int regnr:regnr:::legacy_register_name:0
247 v:2:REGISTER_SIZE:int:register_size::::0:-1
248 v:2:REGISTER_BYTES:int:register_bytes::::0:-1
249 f:2:REGISTER_BYTE:int:register_byte:int reg_nr:reg_nr::0:0
250 f:2:REGISTER_RAW_SIZE:int:register_raw_size:int reg_nr:reg_nr::0:0
251 v:2:MAX_REGISTER_RAW_SIZE:int:max_register_raw_size::::0:-1
252 f:2:REGISTER_VIRTUAL_SIZE:int:register_virtual_size:int reg_nr:reg_nr::0:0
253 v:2:MAX_REGISTER_VIRTUAL_SIZE:int:max_register_virtual_size::::0:-1
254 f:2:REGISTER_VIRTUAL_TYPE:struct type *:register_virtual_type:int reg_nr:reg_nr::0:0
256 v:1:USE_GENERIC_DUMMY_FRAMES:int:use_generic_dummy_frames::::0:-1
257 v:2:CALL_DUMMY_LOCATION:int:call_dummy_location::::0:0
258 f:2:CALL_DUMMY_ADDRESS:CORE_ADDR:call_dummy_address:void:::0:0:gdbarch->call_dummy_location == AT_ENTRY_POINT && gdbarch->call_dummy_address == 0:
259 v:2:CALL_DUMMY_START_OFFSET:CORE_ADDR:call_dummy_start_offset::::0:-1::0x%08lx
260 v:2:CALL_DUMMY_BREAKPOINT_OFFSET:CORE_ADDR:call_dummy_breakpoint_offset::::0:-1::0x%08lx
261 v:1:CALL_DUMMY_BREAKPOINT_OFFSET_P:int:call_dummy_breakpoint_offset_p::::0:-1
262 v:2:CALL_DUMMY_LENGTH:int:call_dummy_length::::0:-1::::CALL_DUMMY_LOCATION == BEFORE_TEXT_END || CALL_DUMMY_LOCATION == AFTER_TEXT_END
263 f:2:PC_IN_CALL_DUMMY:int:pc_in_call_dummy:CORE_ADDR pc, CORE_ADDR sp, CORE_ADDR frame_address:pc, sp, frame_address::0:0
264 v:1:CALL_DUMMY_P:int:call_dummy_p::::0:-1
265 v:2:CALL_DUMMY_WORDS:LONGEST *:call_dummy_words::::0:legacy_call_dummy_words:0:0x%08lx
266 v:2:SIZEOF_CALL_DUMMY_WORDS:int:sizeof_call_dummy_words::::0:legacy_sizeof_call_dummy_words:0:0x%08lx
267 v:1:CALL_DUMMY_STACK_ADJUST_P:int:call_dummy_stack_adjust_p::::0:-1::0x%08lx
268 v:2:CALL_DUMMY_STACK_ADJUST:int:call_dummy_stack_adjust::::0::gdbarch->call_dummy_stack_adjust_p && gdbarch->call_dummy_stack_adjust == 0:0x%08lx::CALL_DUMMY_STACK_ADJUST_P
269 f:2:FIX_CALL_DUMMY:void:fix_call_dummy:char *dummy, CORE_ADDR pc, CORE_ADDR fun, int nargs, struct value **args, struct type *type, int gcc_p:dummy, pc, fun, nargs, args, type, gcc_p::0:0
271 v:2:BELIEVE_PCC_PROMOTION:int:believe_pcc_promotion::::0:::::#
272 v:2:BELIEVE_PCC_PROMOTION_TYPE:int:believe_pcc_promotion_type::::0:::::#
273 f:2:COERCE_FLOAT_TO_DOUBLE:int:coerce_float_to_double:struct type *formal, struct type *actual:formal, actual:::default_coerce_float_to_double:0
274 f:1:GET_SAVED_REGISTER:void:get_saved_register:char *raw_buffer, int *optimized, CORE_ADDR *addrp, struct frame_info *frame, int regnum, enum lval_type *lval:raw_buffer, optimized, addrp, frame, regnum, lval::generic_get_saved_register:0
276 f:1:REGISTER_CONVERTIBLE:int:register_convertible:int nr:nr:::generic_register_convertible_not:0
277 f:2:REGISTER_CONVERT_TO_VIRTUAL:void:register_convert_to_virtual:int regnum, struct type *type, char *from, char *to:regnum, type, from, to:::0:0
278 f:2:REGISTER_CONVERT_TO_RAW:void:register_convert_to_raw:struct type *type, int regnum, char *from, char *to:type, regnum, from, to:::0:0
280 f:2:POINTER_TO_ADDRESS:CORE_ADDR:pointer_to_address:struct type *type, char *buf:type, buf:::generic_pointer_to_address:0
281 f:2:ADDRESS_TO_POINTER:void:address_to_pointer:struct type *type, char *buf, CORE_ADDR addr:type, buf, addr:::generic_address_to_pointer:0
283 f:2:RETURN_VALUE_ON_STACK:int:return_value_on_stack:struct type *type:type:::generic_return_value_on_stack_not:0
284 f:2:EXTRACT_RETURN_VALUE:void:extract_return_value:struct type *type, char *regbuf, char *valbuf:type, regbuf, valbuf::0:0
285 f:1:PUSH_ARGUMENTS:CORE_ADDR:push_arguments:int nargs, struct value **args, CORE_ADDR sp, int struct_return, CORE_ADDR struct_addr:nargs, args, sp, struct_return, struct_addr::0:0
286 f:2:PUSH_DUMMY_FRAME:void:push_dummy_frame:void:-:::0
287 f:1:PUSH_RETURN_ADDRESS:CORE_ADDR:push_return_address:CORE_ADDR pc, CORE_ADDR sp:pc, sp:::0
288 f:2:POP_FRAME:void:pop_frame:void:-:::0
290 # I wish that these would just go away....
291 f:2:D10V_MAKE_DADDR:CORE_ADDR:d10v_make_daddr:CORE_ADDR x:x:::0:0
292 f:2:D10V_MAKE_IADDR:CORE_ADDR:d10v_make_iaddr:CORE_ADDR x:x:::0:0
293 f:2:D10V_DADDR_P:int:d10v_daddr_p:CORE_ADDR x:x:::0:0
294 f:2:D10V_IADDR_P:int:d10v_iaddr_p:CORE_ADDR x:x:::0:0
295 f:2:D10V_CONVERT_DADDR_TO_RAW:CORE_ADDR:d10v_convert_daddr_to_raw:CORE_ADDR x:x:::0:0
296 f:2:D10V_CONVERT_IADDR_TO_RAW:CORE_ADDR:d10v_convert_iaddr_to_raw:CORE_ADDR x:x:::0:0
298 f:2:STORE_STRUCT_RETURN:void:store_struct_return:CORE_ADDR addr, CORE_ADDR sp:addr, sp:::0
299 f:2:STORE_RETURN_VALUE:void:store_return_value:struct type *type, char *valbuf:type, valbuf:::0
300 f:2:EXTRACT_STRUCT_VALUE_ADDRESS:CORE_ADDR:extract_struct_value_address:char *regbuf:regbuf:::0
301 f:2:USE_STRUCT_CONVENTION:int:use_struct_convention:int gcc_p, struct type *value_type:gcc_p, value_type:::0
303 f:2:FRAME_INIT_SAVED_REGS:void:frame_init_saved_regs:struct frame_info *frame:frame::0:0
304 f:2:INIT_EXTRA_FRAME_INFO:void:init_extra_frame_info:int fromleaf, struct frame_info *frame:fromleaf, frame:::0
306 f:2:SKIP_PROLOGUE:CORE_ADDR:skip_prologue:CORE_ADDR ip:ip::0:0
307 f:2:PROLOGUE_FRAMELESS_P:int:prologue_frameless_p:CORE_ADDR ip:ip::0:generic_prologue_frameless_p:0
308 f:2:INNER_THAN:int:inner_than:CORE_ADDR lhs, CORE_ADDR rhs:lhs, rhs::0:0
309 f:2:BREAKPOINT_FROM_PC:unsigned char *:breakpoint_from_pc:CORE_ADDR *pcptr, int *lenptr:pcptr, lenptr:::legacy_breakpoint_from_pc:0
310 f:2:MEMORY_INSERT_BREAKPOINT:int:memory_insert_breakpoint:CORE_ADDR addr, char *contents_cache:addr, contents_cache::0:default_memory_insert_breakpoint:0
311 f:2:MEMORY_REMOVE_BREAKPOINT:int:memory_remove_breakpoint:CORE_ADDR addr, char *contents_cache:addr, contents_cache::0:default_memory_remove_breakpoint:0
312 v:2:DECR_PC_AFTER_BREAK:CORE_ADDR:decr_pc_after_break::::0:-1
313 v:2:FUNCTION_START_OFFSET:CORE_ADDR:function_start_offset::::0:-1
315 f:2:REMOTE_TRANSLATE_XFER_ADDRESS:void:remote_translate_xfer_address:CORE_ADDR gdb_addr, int gdb_len, CORE_ADDR *rem_addr, int *rem_len:gdb_addr, gdb_len, rem_addr, rem_len:::generic_remote_translate_xfer_address:0
317 v:2:FRAME_ARGS_SKIP:CORE_ADDR:frame_args_skip::::0:-1
318 f:2:FRAMELESS_FUNCTION_INVOCATION:int:frameless_function_invocation:struct frame_info *fi:fi:::generic_frameless_function_invocation_not:0
319 f:2:FRAME_CHAIN:CORE_ADDR:frame_chain:struct frame_info *frame:frame::0:0
320 f:1:FRAME_CHAIN_VALID:int:frame_chain_valid:CORE_ADDR chain, struct frame_info *thisframe:chain, thisframe::0:0
321 f:2:FRAME_SAVED_PC:CORE_ADDR:frame_saved_pc:struct frame_info *fi:fi::0:0
322 f:2:FRAME_ARGS_ADDRESS:CORE_ADDR:frame_args_address:struct frame_info *fi:fi::0:0
323 f:2:FRAME_LOCALS_ADDRESS:CORE_ADDR:frame_locals_address:struct frame_info *fi:fi::0:0
324 f:2:SAVED_PC_AFTER_CALL:CORE_ADDR:saved_pc_after_call:struct frame_info *frame:frame::0:0
325 f:2:FRAME_NUM_ARGS:int:frame_num_args:struct frame_info *frame:frame::0:0
327 F:2:STACK_ALIGN:CORE_ADDR:stack_align:CORE_ADDR sp:sp::0:0
328 F:2:REG_STRUCT_HAS_ADDR:int:reg_struct_has_addr:int gcc_p, struct type *type:gcc_p, type::0:0
338 function_list |
while do_read
# eval read $read
341 ${class} ${macro}(${actual})
342 ${returntype} ${function} ($formal)${attrib}
346 invalid_p=${invalid_p}
351 description=${description}
353 if class_is_predicate_p
&& default_is_fallback_p
355 echo "Error: predicate function can not have a non- multi-arch default" 1>&2
366 /* *INDENT-OFF* */ /* THIS FILE IS GENERATED */
368 /* Dynamic architecture support for GDB, the GNU debugger.
369 Copyright 1998-1999, Free Software Foundation, Inc.
371 This file is part of GDB.
373 This program is free software; you can redistribute it and/or modify
374 it under the terms of the GNU General Public License as published by
375 the Free Software Foundation; either version 2 of the License, or
376 (at your option) any later version.
378 This program is distributed in the hope that it will be useful,
379 but WITHOUT ANY WARRANTY; without even the implied warranty of
380 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
381 GNU General Public License for more details.
383 You should have received a copy of the GNU General Public License
384 along with this program; if not, write to the Free Software
385 Foundation, Inc., 59 Temple Place - Suite 330,
386 Boston, MA 02111-1307, USA. */
388 /* This file was created with the aid of \`\`gdbarch.sh''.
390 The bourn shell script \`\`gdbarch.sh'' creates the files
391 \`\`new-gdbarch.c'' and \`\`new-gdbarch.h and then compares them
392 against the existing \`\`gdbarch.[hc]''. Any differences found
395 If editing this file, please also run gdbarch.sh and merge any
396 changes into that script. Conversely, when makeing sweeping changes
397 to this file, modifying gdbarch.sh and using its output may prove
417 #ifndef GDB_MULTI_ARCH
418 #define GDB_MULTI_ARCH 0
421 extern struct gdbarch *current_gdbarch;
424 /* See gdb/doc/gdbint.texi for a discussion of the GDB_MULTI_ARCH
428 /* If any of the following are defined, the target wasn't correctly
432 #if defined (EXTRA_FRAME_INFO)
433 #error "EXTRA_FRAME_INFO: replaced by struct frame_extra_info"
438 #if defined (FRAME_FIND_SAVED_REGS)
439 #error "FRAME_FIND_SAVED_REGS: replaced by FRAME_INIT_SAVED_REGS"
447 echo "/* The following are pre-initialized by GDBARCH. */"
448 function_list |
while do_read
# eval read $read
453 echo "extern ${returntype} gdbarch_${function} (struct gdbarch *gdbarch);"
454 echo "/* set_gdbarch_${function}() - not applicable - pre-initialized. */"
455 echo "#if GDB_MULTI_ARCH"
456 echo "#if (GDB_MULTI_ARCH > 1) || !defined (${macro})"
457 echo "#define ${macro} (gdbarch_${function} (current_gdbarch))"
466 echo "/* The following are initialized by the target dependant code. */"
467 function_list |
while do_read
# eval read $read
469 if class_is_predicate_p
472 echo "#if defined (${macro})"
473 echo "/* Legacy for systems yet to multi-arch ${macro} */"
474 # echo "#if (GDB_MULTI_ARCH <= 2) && defined (${macro})"
475 echo "#define ${macro}_P() (1)"
478 echo "/* Default predicate for non- multi-arch targets. */"
479 echo "#if (GDB_MULTI_ARCH == 0) && !defined (${macro}_P)"
480 echo "#define ${macro}_P() (0)"
483 echo "extern int gdbarch_${function}_p (struct gdbarch *gdbarch);"
484 echo "#if (GDB_MULTI_ARCH > 1) || !defined (${macro}_P)"
485 echo "#define ${macro}_P() (gdbarch_${function}_p (current_gdbarch))"
488 if class_is_variable_p
490 if default_is_fallback_p || class_is_predicate_p
493 echo "/* Default (value) for non- multi-arch platforms. */"
494 echo "#if (GDB_MULTI_ARCH == 0) && !defined (${macro})"
495 echo "#define ${macro} (${default})"
499 echo "extern ${returntype} gdbarch_${function} (struct gdbarch *gdbarch);"
500 echo "extern void set_gdbarch_${function} (struct gdbarch *gdbarch, ${returntype} ${function});"
501 echo "#if GDB_MULTI_ARCH"
502 echo "#if (GDB_MULTI_ARCH > 1) || !defined (${macro})"
503 echo "#define ${macro} (gdbarch_${function} (current_gdbarch))"
507 if class_is_function_p
509 if default_is_fallback_p || class_is_predicate_p
512 echo "/* Default (function) for non- multi-arch platforms. */"
513 echo "#if (GDB_MULTI_ARCH == 0) && !defined (${macro})"
514 if [ "${default}" = "0" ]
516 echo "#define ${macro}(${actual}) (internal_error (\"${macro}\"), 0)"
518 echo "#define ${macro}(${actual}) (${default} (${actual}))"
523 echo "typedef ${returntype} (gdbarch_${function}_ftype) (${formal});"
524 if [ "${formal}" = "void" ]
526 echo "extern ${returntype} gdbarch_${function} (struct gdbarch *gdbarch);"
528 echo "extern ${returntype} gdbarch_${function} (struct gdbarch *gdbarch, ${formal});"
530 echo "extern void set_gdbarch_${function} (struct gdbarch *gdbarch, gdbarch_${function}_ftype *${function});"
531 echo "#if GDB_MULTI_ARCH"
532 echo "#if (GDB_MULTI_ARCH > 1) || !defined (${macro})"
533 if [ "${actual}" = "" ]
535 echo "#define ${macro}() (gdbarch_${function} (current_gdbarch))"
536 elif [ "${actual}" = "-" ]
538 echo "#define ${macro} (gdbarch_${function} (current_gdbarch))"
540 echo "#define ${macro}(${actual}) (gdbarch_${function} (current_gdbarch, ${actual}))"
550 extern struct gdbarch_tdep *gdbarch_tdep (struct gdbarch *gdbarch);
553 /* Mechanism for co-ordinating the selection of a specific
556 GDB targets (*-tdep.c) can register an interest in a specific
557 architecture. Other GDB components can register a need to maintain
558 per-architecture data.
560 The mechanisms below ensures that there is only a loose connection
561 between the set-architecture command and the various GDB
562 components. Each component can independantly register their need
563 to maintain architecture specific data with gdbarch.
567 Previously, a single TARGET_ARCHITECTURE_HOOK was provided. It
570 The more traditional mega-struct containing architecture specific
571 data for all the various GDB components was also considered. Since
572 GDB is built from a variable number of (fairly independant)
573 components it was determined that the global aproach was not
577 /* Register a new architectural family with GDB.
579 Register support for the specified ARCHITECTURE with GDB. When
580 gdbarch determines that the specified architecture has been
581 selected, the corresponding INIT function is called.
585 The INIT function takes two parameters: INFO which contains the
586 information available to gdbarch about the (possibly new)
587 architecture; ARCHES which is a list of the previously created
588 \`\`struct gdbarch'' for this architecture.
590 The INIT function parameter INFO shall, as far as possible, be
591 pre-initialized with information obtained from INFO.ABFD or
592 previously selected architecture (if similar). INIT shall ensure
593 that the INFO.BYTE_ORDER is non-zero.
595 The INIT function shall return any of: NULL - indicating that it
596 doesn't reconize the selected architecture; an existing \`\`struct
597 gdbarch'' from the ARCHES list - indicating that the new
598 architecture is just a synonym for an earlier architecture (see
599 gdbarch_list_lookup_by_info()); a newly created \`\`struct gdbarch''
600 - that describes the selected architecture (see
605 struct gdbarch *gdbarch;
606 struct gdbarch_list *next;
611 /* Use default: bfd_arch_unknown (ZERO). */
612 enum bfd_architecture bfd_architecture;
614 /* Use default: NULL (ZERO). */
615 const struct bfd_arch_info *bfd_arch_info;
617 /* Use default: 0 (ZERO). */
620 /* Use default: NULL (ZERO). */
623 /* Use default: NULL (ZERO). */
624 struct gdbarch_tdep_info *tdep_info;
627 typedef struct gdbarch *(gdbarch_init_ftype) (struct gdbarch_info info, struct gdbarch_list *arches);
629 extern void register_gdbarch_init (enum bfd_architecture architecture, gdbarch_init_ftype *);
632 /* Helper function. Search the list of ARCHES for a GDBARCH that
633 matches the information provided by INFO. */
635 extern struct gdbarch_list *gdbarch_list_lookup_by_info (struct gdbarch_list *arches, const struct gdbarch_info *info);
638 /* Helper function. Create a preliminary \`\`struct gdbarch''. Perform
639 basic initialization using values obtained from the INFO andTDEP
640 parameters. set_gdbarch_*() functions are called to complete the
641 initialization of the object. */
643 extern struct gdbarch *gdbarch_alloc (const struct gdbarch_info *info, struct gdbarch_tdep *tdep);
646 /* Helper function. Free a partially-constructed \`\`struct gdbarch''. */
647 extern void gdbarch_free (struct gdbarch *);
650 /* Helper function. Force an update of the current architecture. Used
651 by legacy targets that have added their own target specific
652 architecture manipulation commands.
654 The INFO parameter shall be fully initialized (\`\`memset (&INFO,
655 sizeof (info), 0)'' set relevant fields) before gdbarch_update() is
656 called. gdbarch_update() shall initialize any \`\`default'' fields
657 using information obtained from the previous architecture or
658 INFO.ABFD (if specified) before calling the corresponding
659 architectures INIT function. */
661 extern int gdbarch_update (struct gdbarch_info info);
665 /* Register per-architecture data-pointer.
667 Reserve space for a per-architecture data-pointer. An identifier
668 for the reserved data-pointer is returned. That identifer should
669 be saved in a local static.
671 When a new architecture is selected, INIT() is called. When a
672 previous architecture is re-selected, the per-architecture
673 data-pointer for that previous architecture is restored (INIT() is
676 INIT() shall return the initial value for the per-architecture
677 data-pointer for the current architecture.
679 Multiple registrarants for any architecture are allowed (and
680 strongly encouraged). */
682 typedef void *(gdbarch_data_ftype) (void);
683 extern struct gdbarch_data *register_gdbarch_data (gdbarch_data_ftype *init);
685 /* Return the value of the per-architecture data-pointer for the
686 current architecture. */
688 extern void *gdbarch_data (struct gdbarch_data*);
692 /* Register per-architecture memory region.
694 Provide a memory-region swap mechanism. Per-architecture memory
695 region are created. These memory regions are swapped whenever the
696 architecture is changed. For a new architecture, the memory region
697 is initialized with zero (0) and the INIT function is called.
699 Memory regions are swapped / initialized in the order that they are
700 registered. NULL DATA and/or INIT values can be specified.
702 New code should use register_gdbarch_data(). */
704 typedef void (gdbarch_swap_ftype) (void);
705 extern void register_gdbarch_swap (void *data, unsigned long size, gdbarch_swap_ftype *init);
706 #define REGISTER_GDBARCH_SWAP(VAR) register_gdbarch_swap (&(VAR), sizeof ((VAR)), NULL)
710 /* The target-system-dependant byte order is dynamic */
712 /* TARGET_BYTE_ORDER_SELECTABLE_P determines if the target endianness
713 is selectable at runtime. The user can use the \`\`set endian''
714 command to change it. TARGET_BYTE_ORDER_AUTO is nonzero when
715 target_byte_order should be auto-detected (from the program image
719 /* Multi-arch GDB is always bi-endian. */
720 #define TARGET_BYTE_ORDER_SELECTABLE_P 1
723 #ifndef TARGET_BYTE_ORDER_SELECTABLE_P
724 /* compat - Catch old targets that define TARGET_BYTE_ORDER_SLECTABLE
725 when they should have defined TARGET_BYTE_ORDER_SELECTABLE_P 1 */
726 #ifdef TARGET_BYTE_ORDER_SELECTABLE
727 #define TARGET_BYTE_ORDER_SELECTABLE_P 1
729 #define TARGET_BYTE_ORDER_SELECTABLE_P 0
733 extern int target_byte_order;
734 #ifdef TARGET_BYTE_ORDER_SELECTABLE
735 /* compat - Catch old targets that define TARGET_BYTE_ORDER_SELECTABLE
736 and expect defs.h to re-define TARGET_BYTE_ORDER. */
737 #undef TARGET_BYTE_ORDER
739 #ifndef TARGET_BYTE_ORDER
740 #define TARGET_BYTE_ORDER (target_byte_order + 0)
743 extern int target_byte_order_auto;
744 #ifndef TARGET_BYTE_ORDER_AUTO
745 #define TARGET_BYTE_ORDER_AUTO (target_byte_order_auto + 0)
750 /* The target-system-dependant BFD architecture is dynamic */
752 extern int target_architecture_auto;
753 #ifndef TARGET_ARCHITECTURE_AUTO
754 #define TARGET_ARCHITECTURE_AUTO (target_architecture_auto + 0)
757 extern const struct bfd_arch_info *target_architecture;
758 #ifndef TARGET_ARCHITECTURE
759 #define TARGET_ARCHITECTURE (target_architecture + 0)
762 /* Notify the target dependant backend of a change to the selected
763 architecture. A zero return status indicates that the target did
764 not like the change. */
766 extern int (*target_architecture_hook) (const struct bfd_arch_info *);
770 /* The target-system-dependant disassembler is semi-dynamic */
772 #include "dis-asm.h" /* Get defs for disassemble_info */
774 extern int dis_asm_read_memory (bfd_vma memaddr, bfd_byte *myaddr,
775 unsigned int len, disassemble_info *info);
777 extern void dis_asm_memory_error (int status, bfd_vma memaddr,
778 disassemble_info *info);
780 extern void dis_asm_print_address (bfd_vma addr,
781 disassemble_info *info);
783 extern int (*tm_print_insn) (bfd_vma, disassemble_info*);
784 extern disassemble_info tm_print_insn_info;
785 #ifndef TARGET_PRINT_INSN
786 #define TARGET_PRINT_INSN(vma, info) (*tm_print_insn) (vma, info)
788 #ifndef TARGET_PRINT_INSN_INFO
789 #define TARGET_PRINT_INSN_INFO (&tm_print_insn_info)
794 /* Explicit test for D10V architecture.
795 USE of these macro's is *STRONGLY* discouraged. */
797 #define GDB_TARGET_IS_D10V (TARGET_ARCHITECTURE->arch == bfd_arch_d10v)
800 /* Fallback definition for EXTRACT_STRUCT_VALUE_ADDRESS */
801 #ifndef EXTRACT_STRUCT_VALUE_ADDRESS
802 #define EXTRACT_STRUCT_VALUE_ADDRESS_P (0)
803 #define EXTRACT_STRUCT_VALUE_ADDRESS(X) (internal_error ("gdbarch: EXTRACT_STRUCT_VALUE_ADDRESS"), 0)
805 #ifndef EXTRACT_STRUCT_VALUE_ADDRESS_P
806 #define EXTRACT_STRUCT_VALUE_ADDRESS_P (1)
811 /* Set the dynamic target-system-dependant parameters (architecture,
812 byte-order, ...) using information found in the BFD */
814 extern void set_gdbarch_from_file (bfd *);
817 /* Explicitly set the dynamic target-system-dependant parameters based
818 on bfd_architecture and machine. */
820 extern void set_architecture_from_arch_mach (enum bfd_architecture, unsigned long);
823 /* Initialize the current architecture to the "first" one we find on
826 extern void initialize_current_architecture (void);
828 /* Helper function for targets that don't know how my arguments are
831 extern int frame_num_args_unknown (struct frame_info *fi);
834 /* gdbarch trace variable */
835 extern int gdbarch_debug;
837 extern void gdbarch_dump (void);
842 #../move-if-change new-gdbarch.h gdbarch.h
843 compare_new gdbarch.h
855 #include "arch-utils.h"
859 #include "inferior.h" /* enum CALL_DUMMY_LOCATION et.al. */
861 /* Just include everything in sight so that the every old definition
862 of macro is visible. */
863 #include "gdb_string.h"
867 #include "inferior.h"
868 #include "breakpoint.h"
869 #include "gdb_wait.h"
873 #include "gdbthread.h"
874 #include "annotate.h"
875 #include "symfile.h" /* for overlay functions */
880 /* Static function declarations */
882 static void verify_gdbarch (struct gdbarch *gdbarch);
883 static void init_gdbarch_data (struct gdbarch *);
884 static void init_gdbarch_swap (struct gdbarch *);
885 static void swapout_gdbarch_swap (struct gdbarch *);
886 static void swapin_gdbarch_swap (struct gdbarch *);
888 /* Convenience macro for allocting typesafe memory. */
891 #define XMALLOC(TYPE) (TYPE*) xmalloc (sizeof (TYPE))
895 /* Non-zero if we want to trace architecture code. */
897 #ifndef GDBARCH_DEBUG
898 #define GDBARCH_DEBUG 0
900 int gdbarch_debug = GDBARCH_DEBUG;
904 # gdbarch open the gdbarch object
906 echo "/* Maintain the struct gdbarch object */"
908 echo "struct gdbarch"
910 echo " /* basic architectural information */"
911 function_list |
while do_read
# eval read $read
915 echo " ${returntype} ${function};"
919 echo " /* target specific vector. */"
920 echo " struct gdbarch_tdep *tdep;"
922 echo " /* per-architecture data-pointers */"
926 echo " /* per-architecture swap-regions */"
927 echo " struct gdbarch_swap *swap;"
930 /* Multi-arch values.
932 When extending this structure you must:
936 Declare set/get functions and define the corresponding
939 gdbarch_alloc(): If zero/NULL is not a suitable default,
940 initialize the new field.
942 verify_gdbarch(): Confirm that the target updated the field
945 gdbarch_dump(): Add a fprintf_unfiltered call to so that the new
948 \`\`startup_gdbarch()'': Append an initial value to the static
949 variable (base values on the host's c-type system).
951 get_gdbarch(): Implement the set/get functions (probably using
952 the macro's as shortcuts).
957 function_list |
while do_read
# eval read $read
959 if class_is_variable_p
961 echo " ${returntype} ${function};"
962 elif class_is_function_p
964 echo " gdbarch_${function}_ftype *${function}${attrib};"
969 # A pre-initialized vector
973 /* The default architecture uses host values (for want of a better
977 echo "extern const struct bfd_arch_info bfd_default_arch_struct;"
979 echo "struct gdbarch startup_gdbarch = {"
980 echo " /* basic architecture information */"
981 function_list |
while do_read
# eval read $read
989 /* target specific vector */
991 /*per-architecture data-pointers and swap regions */
993 /* Multi-arch values */
995 function_list |
while do_read
# eval read $read
997 if class_is_function_p || class_is_variable_p
1003 /* startup_gdbarch() */
1005 struct gdbarch *current_gdbarch = &startup_gdbarch;
1008 # Create a new gdbarch struct
1012 /* Create a new \`\`struct gdbarch'' based in information provided by
1013 \`\`struct gdbarch_info''. */
1018 gdbarch_alloc (const struct gdbarch_info *info,
1019 struct gdbarch_tdep *tdep)
1021 struct gdbarch *gdbarch = XMALLOC (struct gdbarch);
1022 memset (gdbarch, 0, sizeof (*gdbarch));
1024 gdbarch->tdep = tdep;
1027 function_list |
while do_read
# eval read $read
1031 echo " gdbarch->${function} = info->${function};"
1035 echo " /* Force the explicit initialization of these. */"
1036 function_list |
while do_read
# eval read $read
1038 if class_is_function_p || class_is_variable_p
1040 if [ "${default}" != "" -a "${default}" != "0" ]
1042 echo " gdbarch->${function} = ${default};"
1047 /* gdbarch_alloc() */
1053 # Free a gdbarch struct.
1057 /* Free a gdbarch struct. This should never happen in normal
1058 operation --- once you've created a gdbarch, you keep it around.
1059 However, if an architecture's init function encounters an error
1060 building the structure, it may need to clean up a partially
1061 constructed gdbarch. */
1063 gdbarch_free (struct gdbarch *arch)
1065 /* At the moment, this is trivial. */
1070 # verify a new architecture
1073 echo "/* Ensure that all values in a GDBARCH are reasonable. */"
1077 verify_gdbarch (struct gdbarch *gdbarch)
1079 /* Only perform sanity checks on a multi-arch target. */
1080 if (GDB_MULTI_ARCH <= 0)
1083 if (gdbarch->byte_order == 0)
1084 internal_error ("verify_gdbarch: byte-order unset");
1085 if (gdbarch->bfd_arch_info == NULL)
1086 internal_error ("verify_gdbarch: bfd_arch_info unset");
1087 /* Check those that need to be defined for the given multi-arch level. */
1089 function_list |
while do_read
# eval read $read
1091 if class_is_function_p || class_is_variable_p
1093 if [ "${invalid_p}" = "0" ]
1095 echo " /* Skip verify of ${function}, invalid_p == 0 */"
1096 elif class_is_predicate_p
1098 echo " /* Skip verify of ${function}, has predicate */"
1099 elif [ "${invalid_p}" ]
1101 echo " if ((GDB_MULTI_ARCH >= ${level})"
1102 echo " && (${invalid_p}))"
1103 echo " internal_error (\"gdbarch: verify_gdbarch: ${function} invalid\");"
1104 elif [ "${default}" ]
1106 echo " if ((GDB_MULTI_ARCH >= ${level})"
1107 echo " && (gdbarch->${function} == ${default}))"
1108 echo " internal_error (\"gdbarch: verify_gdbarch: ${function} invalid\");"
1116 # dump the structure
1119 echo "/* Print out the details of the current architecture. */"
1126 function_list |
while do_read
# eval read $read
1128 if class_is_function_p
1130 echo " fprintf_unfiltered (gdb_stdlog,"
1131 echo " \"gdbarch_update: ${macro} = 0x%08lx\\n\","
1132 echo " (long) current_gdbarch->${function}"
1133 echo " /*${macro} ()*/);"
1135 if [ "${print_p}" = "#" ]
1137 echo "#ifdef ${macro}"
1138 echo " fprintf_unfiltered (gdb_stdlog,"
1139 echo " \"gdbarch_update: ${macro} = ${fmt}\\n\","
1142 elif [ "${print_p}" ]
1144 echo " if (${print_p})"
1145 echo " fprintf_unfiltered (gdb_stdlog,"
1146 echo " \"gdbarch_update: ${macro} = ${fmt}\\n\","
1149 echo " fprintf_unfiltered (gdb_stdlog,"
1150 echo " \"gdbarch_update: ${macro} = ${fmt}\\n\","
1161 struct gdbarch_tdep *
1162 gdbarch_tdep (struct gdbarch *gdbarch)
1164 if (gdbarch_debug >= 2)
1165 fprintf_unfiltered (gdb_stdlog, "gdbarch_tdep called\n");
1166 return gdbarch->tdep;
1170 function_list |
while do_read
# eval read $read
1172 if class_is_predicate_p
1176 echo "gdbarch_${function}_p (struct gdbarch *gdbarch)"
1180 echo " return ${valid_p};"
1182 echo "#error \"gdbarch_${function}_p: not defined\""
1186 if class_is_function_p
1189 echo "${returntype}"
1190 if [ "${formal}" = "void" ]
1192 echo "gdbarch_${function} (struct gdbarch *gdbarch)"
1194 echo "gdbarch_${function} (struct gdbarch *gdbarch, ${formal})"
1197 echo " if (gdbarch->${function} == 0)"
1198 echo " internal_error (\"gdbarch: gdbarch_${function} invalid\");"
1199 echo " if (gdbarch_debug >= 2)"
1200 echo " fprintf_unfiltered (gdb_stdlog, \"gdbarch_${function} called\n\");"
1201 test "${actual}" = "-" && actual
=""
1202 if [ "${returntype}" = "void" ]
1204 echo " gdbarch->${function} (${actual});"
1206 echo " return gdbarch->${function} (${actual});"
1211 echo "set_gdbarch_${function} (struct gdbarch *gdbarch,"
1212 echo " `echo ${function} | sed -e 's/./ /g'` gdbarch_${function}_ftype ${function})"
1214 echo " gdbarch->${function} = ${function};"
1216 elif class_is_variable_p
1219 echo "${returntype}"
1220 echo "gdbarch_${function} (struct gdbarch *gdbarch)"
1222 if [ "${invalid_p}" = "0" ]
1224 echo " /* Skip verify of ${function}, invalid_p == 0 */"
1225 elif [ "${invalid_p}" ]
1227 echo " if (${invalid_p})"
1228 echo " internal_error (\"gdbarch: gdbarch_${function} invalid\");"
1229 elif [ "${default}" ]
1231 echo " if (gdbarch->${function} == ${default})"
1232 echo " internal_error (\"gdbarch: gdbarch_${function} invalid\");"
1234 echo " if (gdbarch_debug >= 2)"
1235 echo " fprintf_unfiltered (gdb_stdlog, \"gdbarch_${function} called\n\");"
1236 echo " return gdbarch->${function};"
1240 echo "set_gdbarch_${function} (struct gdbarch *gdbarch,"
1241 echo " `echo ${function} | sed -e 's/./ /g'` ${returntype} ${function})"
1243 echo " gdbarch->${function} = ${function};"
1245 elif class_is_info_p
1248 echo "${returntype}"
1249 echo "gdbarch_${function} (struct gdbarch *gdbarch)"
1251 echo " if (gdbarch_debug >= 2)"
1252 echo " fprintf_unfiltered (gdb_stdlog, \"gdbarch_${function} called\n\");"
1253 echo " return gdbarch->${function};"
1258 # All the trailing guff
1262 /* Keep a registrary of per-architecture data-pointers required by GDB
1270 struct gdbarch_data_registration
1272 gdbarch_data_ftype *init;
1273 struct gdbarch_data *data;
1274 struct gdbarch_data_registration *next;
1277 struct gdbarch_data_registrary
1280 struct gdbarch_data_registration *registrations;
1283 struct gdbarch_data_registrary gdbarch_data_registrary =
1288 struct gdbarch_data *
1289 register_gdbarch_data (gdbarch_data_ftype *init)
1291 struct gdbarch_data_registration **curr;
1292 for (curr = &gdbarch_data_registrary.registrations;
1294 curr = &(*curr)->next);
1295 (*curr) = XMALLOC (struct gdbarch_data_registration);
1296 (*curr)->next = NULL;
1297 (*curr)->init = init;
1298 (*curr)->data = XMALLOC (struct gdbarch_data);
1299 (*curr)->data->index = gdbarch_data_registrary.nr++;
1300 return (*curr)->data;
1304 /* Walk through all the registered users initializing each in turn. */
1307 init_gdbarch_data (struct gdbarch *gdbarch)
1309 struct gdbarch_data_registration *rego;
1310 gdbarch->nr_data = gdbarch_data_registrary.nr + 1;
1311 gdbarch->data = xmalloc (sizeof (void*) * gdbarch->nr_data);
1312 for (rego = gdbarch_data_registrary.registrations;
1316 if (rego->data->index < gdbarch->nr_data)
1317 gdbarch->data[rego->data->index] = rego->init ();
1322 /* Return the current value of the specified per-architecture
1327 struct gdbarch_data *data;
1329 if (data->index >= current_gdbarch->nr_data)
1330 internal_error ("gdbarch_data: request for non-existant data.");
1331 return current_gdbarch->data[data->index];
1336 /* Keep a registrary of swaped data required by GDB modules. */
1341 struct gdbarch_swap_registration *source;
1342 struct gdbarch_swap *next;
1345 struct gdbarch_swap_registration
1348 unsigned long sizeof_data;
1349 gdbarch_swap_ftype *init;
1350 struct gdbarch_swap_registration *next;
1353 struct gdbarch_swap_registrary
1356 struct gdbarch_swap_registration *registrations;
1359 struct gdbarch_swap_registrary gdbarch_swap_registrary =
1365 register_gdbarch_swap (void *data,
1366 unsigned long sizeof_data,
1367 gdbarch_swap_ftype *init)
1369 struct gdbarch_swap_registration **rego;
1370 for (rego = &gdbarch_swap_registrary.registrations;
1372 rego = &(*rego)->next);
1373 (*rego) = XMALLOC (struct gdbarch_swap_registration);
1374 (*rego)->next = NULL;
1375 (*rego)->init = init;
1376 (*rego)->data = data;
1377 (*rego)->sizeof_data = sizeof_data;
1382 init_gdbarch_swap (struct gdbarch *gdbarch)
1384 struct gdbarch_swap_registration *rego;
1385 struct gdbarch_swap **curr = &gdbarch->swap;
1386 for (rego = gdbarch_swap_registrary.registrations;
1390 if (rego->data != NULL)
1392 (*curr) = XMALLOC (struct gdbarch_swap);
1393 (*curr)->source = rego;
1394 (*curr)->swap = xmalloc (rego->sizeof_data);
1395 (*curr)->next = NULL;
1396 memset (rego->data, 0, rego->sizeof_data);
1397 curr = &(*curr)->next;
1399 if (rego->init != NULL)
1405 swapout_gdbarch_swap (struct gdbarch *gdbarch)
1407 struct gdbarch_swap *curr;
1408 for (curr = gdbarch->swap;
1411 memcpy (curr->swap, curr->source->data, curr->source->sizeof_data);
1415 swapin_gdbarch_swap (struct gdbarch *gdbarch)
1417 struct gdbarch_swap *curr;
1418 for (curr = gdbarch->swap;
1421 memcpy (curr->source->data, curr->swap, curr->source->sizeof_data);
1425 /* Keep a registrary of the architectures known by GDB. */
1427 struct gdbarch_init_registration
1429 enum bfd_architecture bfd_architecture;
1430 gdbarch_init_ftype *init;
1431 struct gdbarch_list *arches;
1432 struct gdbarch_init_registration *next;
1435 static struct gdbarch_init_registration *gdbarch_init_registrary = NULL;
1438 register_gdbarch_init (enum bfd_architecture bfd_architecture,
1439 gdbarch_init_ftype *init)
1441 struct gdbarch_init_registration **curr;
1442 const struct bfd_arch_info *bfd_arch_info;
1443 /* Check that BFD reconizes this architecture */
1444 bfd_arch_info = bfd_lookup_arch (bfd_architecture, 0);
1445 if (bfd_arch_info == NULL)
1447 internal_error ("gdbarch: Attempt to register unknown architecture (%d)", bfd_architecture);
1449 /* Check that we haven't seen this architecture before */
1450 for (curr = &gdbarch_init_registrary;
1452 curr = &(*curr)->next)
1454 if (bfd_architecture == (*curr)->bfd_architecture)
1455 internal_error ("gdbarch: Duplicate registraration of architecture (%s)",
1456 bfd_arch_info->printable_name);
1460 fprintf_unfiltered (gdb_stdlog, "register_gdbarch_init (%s, 0x%08lx)\n",
1461 bfd_arch_info->printable_name,
1464 (*curr) = XMALLOC (struct gdbarch_init_registration);
1465 (*curr)->bfd_architecture = bfd_architecture;
1466 (*curr)->init = init;
1467 (*curr)->arches = NULL;
1468 (*curr)->next = NULL;
1473 /* Look for an architecture using gdbarch_info. Base search on only
1474 BFD_ARCH_INFO and BYTE_ORDER. */
1476 struct gdbarch_list *
1477 gdbarch_list_lookup_by_info (struct gdbarch_list *arches,
1478 const struct gdbarch_info *info)
1480 for (; arches != NULL; arches = arches->next)
1482 if (info->bfd_arch_info != arches->gdbarch->bfd_arch_info)
1484 if (info->byte_order != arches->gdbarch->byte_order)
1492 /* Update the current architecture. Return ZERO if the update request
1496 gdbarch_update (struct gdbarch_info info)
1498 struct gdbarch *new_gdbarch;
1499 struct gdbarch_list **list;
1500 struct gdbarch_init_registration *rego;
1502 /* Fill in any missing bits. Most important is the bfd_architecture
1503 which is used to select the target architecture. */
1504 if (info.bfd_architecture == bfd_arch_unknown)
1506 if (info.bfd_arch_info != NULL)
1507 info.bfd_architecture = info.bfd_arch_info->arch;
1508 else if (info.abfd != NULL)
1509 info.bfd_architecture = bfd_get_arch (info.abfd);
1510 /* FIXME - should query BFD for its default architecture. */
1512 info.bfd_architecture = current_gdbarch->bfd_arch_info->arch;
1514 if (info.bfd_arch_info == NULL)
1516 if (target_architecture_auto && info.abfd != NULL)
1517 info.bfd_arch_info = bfd_get_arch_info (info.abfd);
1519 info.bfd_arch_info = current_gdbarch->bfd_arch_info;
1521 if (info.byte_order == 0)
1523 if (target_byte_order_auto && info.abfd != NULL)
1524 info.byte_order = (bfd_big_endian (info.abfd) ? BIG_ENDIAN
1525 : bfd_little_endian (info.abfd) ? LITTLE_ENDIAN
1528 info.byte_order = current_gdbarch->byte_order;
1529 /* FIXME - should query BFD for its default byte-order. */
1531 /* A default for abfd? */
1533 /* Find the target that knows about this architecture. */
1534 for (rego = gdbarch_init_registrary;
1535 rego != NULL && rego->bfd_architecture != info.bfd_architecture;
1540 fprintf_unfiltered (gdb_stdlog, "gdbarch_update: No matching architecture\n");
1546 fprintf_unfiltered (gdb_stdlog,
1547 "gdbarch_update: info.bfd_architecture %d (%s)\n",
1548 info.bfd_architecture,
1549 bfd_lookup_arch (info.bfd_architecture, 0)->printable_name);
1550 fprintf_unfiltered (gdb_stdlog,
1551 "gdbarch_update: info.bfd_arch_info %s\n",
1552 (info.bfd_arch_info != NULL
1553 ? info.bfd_arch_info->printable_name
1555 fprintf_unfiltered (gdb_stdlog,
1556 "gdbarch_update: info.byte_order %d (%s)\n",
1558 (info.byte_order == BIG_ENDIAN ? "big"
1559 : info.byte_order == LITTLE_ENDIAN ? "little"
1561 fprintf_unfiltered (gdb_stdlog,
1562 "gdbarch_update: info.abfd 0x%lx\n",
1564 fprintf_unfiltered (gdb_stdlog,
1565 "gdbarch_update: info.tdep_info 0x%lx\n",
1566 (long) info.tdep_info);
1569 /* Ask the target for a replacement architecture. */
1570 new_gdbarch = rego->init (info, rego->arches);
1572 /* Did the target like it? No. Reject the change. */
1573 if (new_gdbarch == NULL)
1576 fprintf_unfiltered (gdb_stdlog, "gdbarch_update: Target rejected architecture\n");
1580 /* Did the architecture change? No. Do nothing. */
1581 if (current_gdbarch == new_gdbarch)
1584 fprintf_unfiltered (gdb_stdlog, "gdbarch_update: Architecture 0x%08lx (%s) unchanged\n",
1586 new_gdbarch->bfd_arch_info->printable_name);
1590 /* Swap all data belonging to the old target out */
1591 swapout_gdbarch_swap (current_gdbarch);
1593 /* Is this a pre-existing architecture? Yes. Swap it in. */
1594 for (list = ®o->arches;
1596 list = &(*list)->next)
1598 if ((*list)->gdbarch == new_gdbarch)
1601 fprintf_unfiltered (gdb_stdlog, "gdbarch_update: Previous architecture 0x%08lx (%s) selected\n",
1603 new_gdbarch->bfd_arch_info->printable_name);
1604 current_gdbarch = new_gdbarch;
1605 swapin_gdbarch_swap (new_gdbarch);
1610 /* Append this new architecture to this targets list. */
1611 (*list) = XMALLOC (struct gdbarch_list);
1612 (*list)->next = NULL;
1613 (*list)->gdbarch = new_gdbarch;
1615 /* Switch to this new architecture. Dump it out. */
1616 current_gdbarch = new_gdbarch;
1619 fprintf_unfiltered (gdb_stdlog,
1620 "gdbarch_update: New architecture 0x%08lx (%s) selected\n",
1622 new_gdbarch->bfd_arch_info->printable_name);
1626 /* Check that the newly installed architecture is valid. */
1627 verify_gdbarch (new_gdbarch);
1629 /* Initialize the per-architecture memory (swap) areas.
1630 CURRENT_GDBARCH must be update before these modules are
1632 init_gdbarch_swap (new_gdbarch);
1634 /* Initialize the per-architecture data-pointer of all parties that
1635 registered an interest in this architecture. CURRENT_GDBARCH
1636 must be updated before these modules are called. */
1637 init_gdbarch_data (new_gdbarch);
1644 /* Functions to manipulate the endianness of the target. */
1646 #ifdef TARGET_BYTE_ORDER_SELECTABLE
1647 /* compat - Catch old targets that expect a selectable byte-order to
1648 default to BIG_ENDIAN */
1649 #ifndef TARGET_BYTE_ORDER_DEFAULT
1650 #define TARGET_BYTE_ORDER_DEFAULT BIG_ENDIAN
1653 #if !TARGET_BYTE_ORDER_SELECTABLE_P
1654 #ifndef TARGET_BYTE_ORDER_DEFAULT
1655 /* compat - Catch old non byte-order selectable targets that do not
1656 define TARGET_BYTE_ORDER_DEFAULT and instead expect
1657 TARGET_BYTE_ORDER to be used as the default. For targets that
1658 defined neither TARGET_BYTE_ORDER nor TARGET_BYTE_ORDER_DEFAULT the
1659 below will get a strange compiler warning. */
1660 #define TARGET_BYTE_ORDER_DEFAULT TARGET_BYTE_ORDER
1663 #ifndef TARGET_BYTE_ORDER_DEFAULT
1664 #define TARGET_BYTE_ORDER_DEFAULT BIG_ENDIAN /* arbitrary */
1666 int target_byte_order = TARGET_BYTE_ORDER_DEFAULT;
1667 int target_byte_order_auto = 1;
1669 /* Chain containing the \"set endian\" commands. */
1670 static struct cmd_list_element *endianlist = NULL;
1672 /* Called by \`\`show endian''. */
1674 show_endian (char *args, int from_tty)
1677 (TARGET_BYTE_ORDER_AUTO
1678 ? "The target endianness is set automatically (currently %s endian)\n"
1679 : "The target is assumed to be %s endian\n");
1680 printf_unfiltered (msg, (TARGET_BYTE_ORDER == BIG_ENDIAN ? "big" : "little"));
1683 /* Called if the user enters \`\`set endian'' without an argument. */
1685 set_endian (char *args, int from_tty)
1687 printf_unfiltered ("\"set endian\" must be followed by \"auto\", \"big\" or \"little\".\n");
1688 show_endian (args, from_tty);
1691 /* Called by \`\`set endian big''. */
1693 set_endian_big (char *args, int from_tty)
1695 if (TARGET_BYTE_ORDER_SELECTABLE_P)
1697 target_byte_order = BIG_ENDIAN;
1698 target_byte_order_auto = 0;
1701 struct gdbarch_info info;
1702 memset (&info, 0, sizeof info);
1703 info.byte_order = BIG_ENDIAN;
1704 gdbarch_update (info);
1709 printf_unfiltered ("Byte order is not selectable.");
1710 show_endian (args, from_tty);
1714 /* Called by \`\`set endian little''. */
1716 set_endian_little (char *args, int from_tty)
1718 if (TARGET_BYTE_ORDER_SELECTABLE_P)
1720 target_byte_order = LITTLE_ENDIAN;
1721 target_byte_order_auto = 0;
1724 struct gdbarch_info info;
1725 memset (&info, 0, sizeof info);
1726 info.byte_order = LITTLE_ENDIAN;
1727 gdbarch_update (info);
1732 printf_unfiltered ("Byte order is not selectable.");
1733 show_endian (args, from_tty);
1737 /* Called by \`\`set endian auto''. */
1739 set_endian_auto (char *args, int from_tty)
1741 if (TARGET_BYTE_ORDER_SELECTABLE_P)
1743 target_byte_order_auto = 1;
1747 printf_unfiltered ("Byte order is not selectable.");
1748 show_endian (args, from_tty);
1752 /* Set the endianness from a BFD. */
1754 set_endian_from_file (bfd *abfd)
1756 if (TARGET_BYTE_ORDER_SELECTABLE_P)
1760 if (bfd_big_endian (abfd))
1763 want = LITTLE_ENDIAN;
1764 if (TARGET_BYTE_ORDER_AUTO)
1765 target_byte_order = want;
1766 else if (TARGET_BYTE_ORDER != want)
1767 warning ("%s endian file does not match %s endian target.",
1768 want == BIG_ENDIAN ? "big" : "little",
1769 TARGET_BYTE_ORDER == BIG_ENDIAN ? "big" : "little");
1773 if (bfd_big_endian (abfd)
1774 ? TARGET_BYTE_ORDER != BIG_ENDIAN
1775 : TARGET_BYTE_ORDER == BIG_ENDIAN)
1776 warning ("%s endian file does not match %s endian target.",
1777 bfd_big_endian (abfd) ? "big" : "little",
1778 TARGET_BYTE_ORDER == BIG_ENDIAN ? "big" : "little");
1784 /* Functions to manipulate the architecture of the target */
1786 enum set_arch { set_arch_auto, set_arch_manual };
1788 int target_architecture_auto = 1;
1789 extern const struct bfd_arch_info bfd_default_arch_struct;
1790 const struct bfd_arch_info *target_architecture = &bfd_default_arch_struct;
1791 int (*target_architecture_hook) (const struct bfd_arch_info *ap);
1793 static void show_endian (char *, int);
1794 static void set_endian (char *, int);
1795 static void set_endian_big (char *, int);
1796 static void set_endian_little (char *, int);
1797 static void set_endian_auto (char *, int);
1798 static void set_endian_from_file (bfd *);
1799 static int arch_ok (const struct bfd_arch_info *arch);
1800 static void set_arch (const struct bfd_arch_info *arch, enum set_arch type);
1801 static void show_architecture (char *, int);
1802 static void set_architecture (char *, int);
1803 static void info_architecture (char *, int);
1804 static void set_architecture_from_file (bfd *);
1806 /* Do the real work of changing the current architecture */
1809 arch_ok (const struct bfd_arch_info *arch)
1811 /* Should be performing the more basic check that the binary is
1812 compatible with GDB. */
1813 /* Check with the target that the architecture is valid. */
1814 return (target_architecture_hook == NULL
1815 || target_architecture_hook (arch));
1819 set_arch (const struct bfd_arch_info *arch,
1825 if (!arch_ok (arch))
1826 warning ("Target may not support %s architecture",
1827 arch->printable_name);
1828 target_architecture = arch;
1830 case set_arch_manual:
1831 if (!arch_ok (arch))
1833 printf_unfiltered ("Target does not support \`%s' architecture.\n",
1834 arch->printable_name);
1838 target_architecture_auto = 0;
1839 target_architecture = arch;
1847 /* Called if the user enters \`\`show architecture'' without an argument. */
1849 show_architecture (char *args, int from_tty)
1852 arch = TARGET_ARCHITECTURE->printable_name;
1853 if (target_architecture_auto)
1854 printf_filtered ("The target architecture is set automatically (currently %s)\n", arch);
1856 printf_filtered ("The target architecture is assumed to be %s\n", arch);
1859 /* Called if the user enters \`\`set architecture'' with or without an
1862 set_architecture (char *args, int from_tty)
1866 printf_unfiltered ("\"set architecture\" must be followed by \"auto\" or an architecture name.\n");
1868 else if (strcmp (args, "auto") == 0)
1870 target_architecture_auto = 1;
1872 else if (GDB_MULTI_ARCH)
1874 const struct bfd_arch_info *arch = bfd_scan_arch (args);
1876 printf_unfiltered ("Architecture \`%s' not reconized.\n", args);
1879 struct gdbarch_info info;
1880 memset (&info, 0, sizeof info);
1881 info.bfd_arch_info = arch;
1882 if (gdbarch_update (info))
1883 target_architecture_auto = 0;
1885 printf_unfiltered ("Architecture \`%s' not reconized.\n", args);
1890 const struct bfd_arch_info *arch = bfd_scan_arch (args);
1892 set_arch (arch, set_arch_manual);
1894 printf_unfiltered ("Architecture \`%s' not reconized.\n", args);
1898 /* Called if the user enters \`\`info architecture'' without an argument. */
1900 info_architecture (char *args, int from_tty)
1902 enum bfd_architecture a;
1905 if (gdbarch_init_registrary != NULL)
1907 struct gdbarch_init_registration *rego;
1908 printf_filtered ("Available architectures are:\n");
1909 for (rego = gdbarch_init_registrary;
1913 const struct bfd_arch_info *ap;
1914 ap = bfd_lookup_arch (rego->bfd_architecture, 0);
1919 printf_filtered (" %s", ap->printable_name);
1923 printf_filtered ("\n");
1929 printf_filtered ("There are no available architectures.\n");
1933 printf_filtered ("Available architectures are:\n");
1934 for (a = bfd_arch_obscure + 1; a < bfd_arch_last; a++)
1936 const struct bfd_arch_info *ap = bfd_lookup_arch (a, 0);
1941 printf_filtered (" %s", ap->printable_name);
1945 printf_filtered ("\n");
1950 /* Set the architecture from arch/machine */
1952 set_architecture_from_arch_mach (arch, mach)
1953 enum bfd_architecture arch;
1956 const struct bfd_arch_info *wanted = bfd_lookup_arch (arch, mach);
1958 set_arch (wanted, set_arch_manual);
1960 internal_error ("gdbarch: hardwired architecture/machine not reconized");
1963 /* Set the architecture from a BFD */
1965 set_architecture_from_file (bfd *abfd)
1967 const struct bfd_arch_info *wanted = bfd_get_arch_info (abfd);
1968 if (target_architecture_auto)
1970 set_arch (wanted, set_arch_auto);
1972 else if (wanted != target_architecture)
1974 warning ("%s architecture file may be incompatible with %s target.",
1975 wanted->printable_name,
1976 target_architecture->printable_name);
1981 /* Misc helper functions for targets. */
1984 frame_num_args_unknown (fi)
1985 struct frame_info *fi;
1992 generic_register_convertible_not (num)
2001 /* Pointer to the target-dependent disassembly function. */
2002 int (*tm_print_insn) (bfd_vma, disassemble_info *);
2003 disassemble_info tm_print_insn_info;
2007 /* Set the dynamic target-system-dependant parameters (architecture,
2008 byte-order) using information found in the BFD */
2011 set_gdbarch_from_file (abfd)
2016 struct gdbarch_info info;
2017 memset (&info, 0, sizeof info);
2019 gdbarch_update (info);
2022 set_architecture_from_file (abfd);
2023 set_endian_from_file (abfd);
2027 /* Initialize the current architecture. */
2029 initialize_current_architecture ()
2033 struct gdbarch_init_registration *rego;
2034 const struct bfd_arch_info *chosen = NULL;
2035 for (rego = gdbarch_init_registrary; rego != NULL; rego = rego->next)
2037 const struct bfd_arch_info *ap
2038 = bfd_lookup_arch (rego->bfd_architecture, 0);
2040 /* Choose the first architecture alphabetically. */
2042 || strcmp (ap->printable_name, chosen->printable_name) < 0)
2048 struct gdbarch_info info;
2049 memset (&info, 0, sizeof info);
2050 info.bfd_arch_info = chosen;
2051 gdbarch_update (info);
2056 extern void _initialize_gdbarch (void);
2058 _initialize_gdbarch ()
2060 struct cmd_list_element *c;
2062 add_prefix_cmd ("endian", class_support, set_endian,
2063 "Set endianness of target.",
2064 &endianlist, "set endian ", 0, &setlist);
2065 add_cmd ("big", class_support, set_endian_big,
2066 "Set target as being big endian.", &endianlist);
2067 add_cmd ("little", class_support, set_endian_little,
2068 "Set target as being little endian.", &endianlist);
2069 add_cmd ("auto", class_support, set_endian_auto,
2070 "Select target endianness automatically.", &endianlist);
2071 add_cmd ("endian", class_support, show_endian,
2072 "Show endianness of target.", &showlist);
2074 add_cmd ("architecture", class_support, set_architecture,
2075 "Set architecture of target.", &setlist);
2076 add_alias_cmd ("processor", "architecture", class_support, 1, &setlist);
2077 add_cmd ("architecture", class_support, show_architecture,
2078 "Show architecture of target.", &showlist);
2079 add_cmd ("architecture", class_support, info_architecture,
2080 "List supported target architectures", &infolist);
2082 INIT_DISASSEMBLE_INFO_NO_ARCH (tm_print_insn_info, gdb_stdout, (fprintf_ftype)fprintf_filtered);
2083 tm_print_insn_info.flavour = bfd_target_unknown_flavour;
2084 tm_print_insn_info.read_memory_func = dis_asm_read_memory;
2085 tm_print_insn_info.memory_error_func = dis_asm_memory_error;
2086 tm_print_insn_info.print_address_func = dis_asm_print_address;
2088 add_show_from_set (add_set_cmd ("arch",
2091 (char *)&gdbarch_debug,
2092 "Set architecture debugging.\n\\
2093 When non-zero, architecture debugging is enabled.", &setdebuglist),
2095 c = add_set_cmd ("archdebug",
2098 (char *)&gdbarch_debug,
2099 "Set architecture debugging.\n\\
2100 When non-zero, architecture debugging is enabled.", &setlist);
2102 deprecate_cmd (c, "set debug arch");
2103 deprecate_cmd (add_show_from_set (c, &showlist), "show debug arch");
2109 #../move-if-change new-gdbarch.c gdbarch.c
2110 compare_new gdbarch.c