Subversion Repositories or1k

/* *INDENT-OFF* */ /* THIS FILE IS GENERATED */

/* *INDENT-OFF* */ /* THIS FILE IS GENERATED */

/* Dynamic architecture support for GDB, the GNU debugger.

/* Dynamic architecture support for GDB, the GNU debugger.

   Copyright 1998-1999, Free Software Foundation, Inc.

   Copyright 1998-1999, Free Software Foundation, Inc.

   This file is part of GDB.

   This file is part of GDB.

   This program is free software; you can redistribute it and/or modify

   This program is free software; you can redistribute it and/or modify

   it under the terms of the GNU General Public License as published by

   it under the terms of the GNU General Public License as published by

   the Free Software Foundation; either version 2 of the License, or

   the Free Software Foundation; either version 2 of the License, or

   (at your option) any later version.

   (at your option) any later version.

   This program is distributed in the hope that it will be useful,

   This program is distributed in the hope that it will be useful,

   but WITHOUT ANY WARRANTY; without even the implied warranty of

   but WITHOUT ANY WARRANTY; without even the implied warranty of

   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

   GNU General Public License for more details.

   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License

   You should have received a copy of the GNU General Public License

   along with this program; if not, write to the Free Software

   along with this program; if not, write to the Free Software

   Foundation, Inc., 59 Temple Place - Suite 330,

   Foundation, Inc., 59 Temple Place - Suite 330,

   Boston, MA 02111-1307, USA.  */

   Boston, MA 02111-1307, USA.  */

/* This file was created with the aid of ``gdbarch.sh''.

/* This file was created with the aid of ``gdbarch.sh''.

   The bourn shell script ``gdbarch.sh'' creates the files

   The bourn shell script ``gdbarch.sh'' creates the files

   ``new-gdbarch.c'' and ``new-gdbarch.h and then compares them

   ``new-gdbarch.c'' and ``new-gdbarch.h and then compares them

   against the existing ``gdbarch.[hc]''.  Any differences found

   against the existing ``gdbarch.[hc]''.  Any differences found

   being reported.

   being reported.

   If editing this file, please also run gdbarch.sh and merge any

   If editing this file, please also run gdbarch.sh and merge any

   changes into that script. Conversely, when makeing sweeping changes

   changes into that script. Conversely, when makeing sweeping changes

   to this file, modifying gdbarch.sh and using its output may prove

   to this file, modifying gdbarch.sh and using its output may prove

   easier. */

   easier. */

#include "defs.h"

#include "defs.h"

#include "arch-utils.h"

#include "arch-utils.h"

#if GDB_MULTI_ARCH

#if GDB_MULTI_ARCH

#include "gdbcmd.h"

#include "gdbcmd.h"

#include "inferior.h" /* enum CALL_DUMMY_LOCATION et.al. */

#include "inferior.h" /* enum CALL_DUMMY_LOCATION et.al. */

#else

#else

/* Just include everything in sight so that the every old definition

/* Just include everything in sight so that the every old definition

   of macro is visible. */

   of macro is visible. */

#include "gdb_string.h"

#include "gdb_string.h"

#include <ctype.h>

#include <ctype.h>

#include "symtab.h"

#include "symtab.h"

#include "frame.h"

#include "frame.h"

#include "inferior.h"

#include "inferior.h"

#include "breakpoint.h"

#include "breakpoint.h"

#include "gdb_wait.h"

#include "gdb_wait.h"

#include "gdbcore.h"

#include "gdbcore.h"

#include "gdbcmd.h"

#include "gdbcmd.h"

#include "target.h"

#include "target.h"

#include "gdbthread.h"

#include "gdbthread.h"

#include "annotate.h"

#include "annotate.h"

#include "symfile.h"            /* for overlay functions */

#include "symfile.h"            /* for overlay functions */

#endif

#endif

#include "symcat.h"

#include "symcat.h"

/* Static function declarations */

/* Static function declarations */

static void verify_gdbarch (struct gdbarch *gdbarch);

static void verify_gdbarch (struct gdbarch *gdbarch);

static void init_gdbarch_data (struct gdbarch *);

static void init_gdbarch_data (struct gdbarch *);

static void init_gdbarch_swap (struct gdbarch *);

static void init_gdbarch_swap (struct gdbarch *);

static void swapout_gdbarch_swap (struct gdbarch *);

static void swapout_gdbarch_swap (struct gdbarch *);

static void swapin_gdbarch_swap (struct gdbarch *);

static void swapin_gdbarch_swap (struct gdbarch *);

/* Convenience macro for allocting typesafe memory. */

/* Convenience macro for allocting typesafe memory. */

#ifndef XMALLOC

#ifndef XMALLOC

#define XMALLOC(TYPE) (TYPE*) xmalloc (sizeof (TYPE))

#define XMALLOC(TYPE) (TYPE*) xmalloc (sizeof (TYPE))

#endif

#endif

/* Non-zero if we want to trace architecture code.  */

/* Non-zero if we want to trace architecture code.  */

#ifndef GDBARCH_DEBUG

#ifndef GDBARCH_DEBUG

#define GDBARCH_DEBUG 0

#define GDBARCH_DEBUG 0

#endif

#endif

int gdbarch_debug = GDBARCH_DEBUG;

int gdbarch_debug = GDBARCH_DEBUG;

/* Maintain the struct gdbarch object */

/* Maintain the struct gdbarch object */

struct gdbarch

struct gdbarch

{

{

  /* basic architectural information */

  /* basic architectural information */

  const struct bfd_arch_info * bfd_arch_info;

  const struct bfd_arch_info * bfd_arch_info;

  int byte_order;

  int byte_order;

  /* target specific vector. */

  /* target specific vector. */

  struct gdbarch_tdep *tdep;

  struct gdbarch_tdep *tdep;

  /* per-architecture data-pointers */

  /* per-architecture data-pointers */

  int nr_data;

  int nr_data;

  void **data;

  void **data;

  /* per-architecture swap-regions */

  /* per-architecture swap-regions */

  struct gdbarch_swap *swap;

  struct gdbarch_swap *swap;

  /* Multi-arch values.

  /* Multi-arch values.

     When extending this structure you must:

     When extending this structure you must:

     Add the field below.

     Add the field below.

     Declare set/get functions and define the corresponding

     Declare set/get functions and define the corresponding

     macro in gdbarch.h.

     macro in gdbarch.h.

     gdbarch_alloc(): If zero/NULL is not a suitable default,

     gdbarch_alloc(): If zero/NULL is not a suitable default,

     initialize the new field.

     initialize the new field.

     verify_gdbarch(): Confirm that the target updated the field

     verify_gdbarch(): Confirm that the target updated the field

     correctly.

     correctly.

     gdbarch_dump(): Add a fprintf_unfiltered call to so that the new

     gdbarch_dump(): Add a fprintf_unfiltered call to so that the new

     field is dumped out

     field is dumped out

     ``startup_gdbarch()'': Append an initial value to the static

     ``startup_gdbarch()'': Append an initial value to the static

     variable (base values on the host's c-type system).

     variable (base values on the host's c-type system).

     get_gdbarch(): Implement the set/get functions (probably using

     get_gdbarch(): Implement the set/get functions (probably using

     the macro's as shortcuts).

     the macro's as shortcuts).

     */

     */

  int bfd_vma_bit;

  int bfd_vma_bit;

  int ptr_bit;

  int ptr_bit;

  int short_bit;

  int short_bit;

  int int_bit;

  int int_bit;

  int long_bit;

  int long_bit;

  int long_long_bit;

  int long_long_bit;

  int float_bit;

  int float_bit;

  int double_bit;

  int double_bit;

  int long_double_bit;

  int long_double_bit;

  gdbarch_read_pc_ftype *read_pc;

  gdbarch_read_pc_ftype *read_pc;

  gdbarch_write_pc_ftype *write_pc;

  gdbarch_write_pc_ftype *write_pc;

  gdbarch_read_fp_ftype *read_fp;

  gdbarch_read_fp_ftype *read_fp;

  gdbarch_write_fp_ftype *write_fp;

  gdbarch_write_fp_ftype *write_fp;

  gdbarch_read_sp_ftype *read_sp;

  gdbarch_read_sp_ftype *read_sp;

  gdbarch_write_sp_ftype *write_sp;

  gdbarch_write_sp_ftype *write_sp;

  int num_regs;

  int num_regs;

  int sp_regnum;

  int sp_regnum;

  int fp_regnum;

  int fp_regnum;

  int pc_regnum;

  int pc_regnum;

  gdbarch_register_name_ftype *register_name;

  gdbarch_register_name_ftype *register_name;

  int register_size;

  int register_size;

  int register_bytes;

  int register_bytes;

  gdbarch_register_byte_ftype *register_byte;

  gdbarch_register_byte_ftype *register_byte;

  gdbarch_register_raw_size_ftype *register_raw_size;

  gdbarch_register_raw_size_ftype *register_raw_size;

  int max_register_raw_size;

  int max_register_raw_size;

  gdbarch_register_virtual_size_ftype *register_virtual_size;

  gdbarch_register_virtual_size_ftype *register_virtual_size;

  int max_register_virtual_size;

  int max_register_virtual_size;

  gdbarch_register_virtual_type_ftype *register_virtual_type;

  gdbarch_register_virtual_type_ftype *register_virtual_type;

  int use_generic_dummy_frames;

  int use_generic_dummy_frames;

  int call_dummy_location;

  int call_dummy_location;

  gdbarch_call_dummy_address_ftype *call_dummy_address;

  gdbarch_call_dummy_address_ftype *call_dummy_address;

  CORE_ADDR call_dummy_start_offset;

  CORE_ADDR call_dummy_start_offset;

  CORE_ADDR call_dummy_breakpoint_offset;

  CORE_ADDR call_dummy_breakpoint_offset;

  int call_dummy_breakpoint_offset_p;

  int call_dummy_breakpoint_offset_p;

  int call_dummy_length;

  int call_dummy_length;

  gdbarch_pc_in_call_dummy_ftype *pc_in_call_dummy;

  gdbarch_pc_in_call_dummy_ftype *pc_in_call_dummy;

  int call_dummy_p;

  int call_dummy_p;

  LONGEST * call_dummy_words;

  LONGEST * call_dummy_words;

  int sizeof_call_dummy_words;

  int sizeof_call_dummy_words;

  int call_dummy_stack_adjust_p;

  int call_dummy_stack_adjust_p;

  int call_dummy_stack_adjust;

  int call_dummy_stack_adjust;

  gdbarch_fix_call_dummy_ftype *fix_call_dummy;

  gdbarch_fix_call_dummy_ftype *fix_call_dummy;

  int believe_pcc_promotion;

  int believe_pcc_promotion;

  int believe_pcc_promotion_type;

  int believe_pcc_promotion_type;

  gdbarch_coerce_float_to_double_ftype *coerce_float_to_double;

  gdbarch_coerce_float_to_double_ftype *coerce_float_to_double;

  gdbarch_get_saved_register_ftype *get_saved_register;

  gdbarch_get_saved_register_ftype *get_saved_register;

  gdbarch_register_convertible_ftype *register_convertible;

  gdbarch_register_convertible_ftype *register_convertible;

  gdbarch_register_convert_to_virtual_ftype *register_convert_to_virtual;

  gdbarch_register_convert_to_virtual_ftype *register_convert_to_virtual;

  gdbarch_register_convert_to_raw_ftype *register_convert_to_raw;

  gdbarch_register_convert_to_raw_ftype *register_convert_to_raw;

  gdbarch_extract_return_value_ftype *extract_return_value;

  gdbarch_extract_return_value_ftype *extract_return_value;

  gdbarch_push_arguments_ftype *push_arguments;

  gdbarch_push_arguments_ftype *push_arguments;

  gdbarch_push_dummy_frame_ftype *push_dummy_frame;

  gdbarch_push_dummy_frame_ftype *push_dummy_frame;

  gdbarch_push_return_address_ftype *push_return_address;

  gdbarch_push_return_address_ftype *push_return_address;

  gdbarch_pop_frame_ftype *pop_frame;

  gdbarch_pop_frame_ftype *pop_frame;

  gdbarch_d10v_make_daddr_ftype *d10v_make_daddr;

  gdbarch_d10v_make_daddr_ftype *d10v_make_daddr;

  gdbarch_d10v_make_iaddr_ftype *d10v_make_iaddr;

  gdbarch_d10v_make_iaddr_ftype *d10v_make_iaddr;

  gdbarch_d10v_daddr_p_ftype *d10v_daddr_p;

  gdbarch_d10v_daddr_p_ftype *d10v_daddr_p;

  gdbarch_d10v_iaddr_p_ftype *d10v_iaddr_p;

  gdbarch_d10v_iaddr_p_ftype *d10v_iaddr_p;

  gdbarch_d10v_convert_daddr_to_raw_ftype *d10v_convert_daddr_to_raw;

  gdbarch_d10v_convert_daddr_to_raw_ftype *d10v_convert_daddr_to_raw;

  gdbarch_d10v_convert_iaddr_to_raw_ftype *d10v_convert_iaddr_to_raw;

  gdbarch_d10v_convert_iaddr_to_raw_ftype *d10v_convert_iaddr_to_raw;

  gdbarch_store_struct_return_ftype *store_struct_return;

  gdbarch_store_struct_return_ftype *store_struct_return;

  gdbarch_store_return_value_ftype *store_return_value;

  gdbarch_store_return_value_ftype *store_return_value;

  gdbarch_extract_struct_value_address_ftype *extract_struct_value_address;

  gdbarch_extract_struct_value_address_ftype *extract_struct_value_address;

  gdbarch_use_struct_convention_ftype *use_struct_convention;

  gdbarch_use_struct_convention_ftype *use_struct_convention;

  gdbarch_frame_init_saved_regs_ftype *frame_init_saved_regs;

  gdbarch_frame_init_saved_regs_ftype *frame_init_saved_regs;

  gdbarch_init_extra_frame_info_ftype *init_extra_frame_info;

  gdbarch_init_extra_frame_info_ftype *init_extra_frame_info;

  gdbarch_skip_prologue_ftype *skip_prologue;

  gdbarch_skip_prologue_ftype *skip_prologue;

  gdbarch_inner_than_ftype *inner_than;

  gdbarch_inner_than_ftype *inner_than;

  gdbarch_breakpoint_from_pc_ftype *breakpoint_from_pc;

  gdbarch_breakpoint_from_pc_ftype *breakpoint_from_pc;

  gdbarch_memory_insert_breakpoint_ftype *memory_insert_breakpoint;

  gdbarch_memory_insert_breakpoint_ftype *memory_insert_breakpoint;

  gdbarch_memory_remove_breakpoint_ftype *memory_remove_breakpoint;

  gdbarch_memory_remove_breakpoint_ftype *memory_remove_breakpoint;

  CORE_ADDR decr_pc_after_break;

  CORE_ADDR decr_pc_after_break;

  CORE_ADDR function_start_offset;

  CORE_ADDR function_start_offset;

  gdbarch_remote_translate_xfer_address_ftype *remote_translate_xfer_address;

  gdbarch_remote_translate_xfer_address_ftype *remote_translate_xfer_address;

  CORE_ADDR frame_args_skip;

  CORE_ADDR frame_args_skip;

  gdbarch_frameless_function_invocation_ftype *frameless_function_invocation;

  gdbarch_frameless_function_invocation_ftype *frameless_function_invocation;

  gdbarch_frame_chain_ftype *frame_chain;

  gdbarch_frame_chain_ftype *frame_chain;

  gdbarch_frame_chain_valid_ftype *frame_chain_valid;

  gdbarch_frame_chain_valid_ftype *frame_chain_valid;

  gdbarch_frame_saved_pc_ftype *frame_saved_pc;

  gdbarch_frame_saved_pc_ftype *frame_saved_pc;

  gdbarch_frame_args_address_ftype *frame_args_address;

  gdbarch_frame_args_address_ftype *frame_args_address;

  gdbarch_frame_locals_address_ftype *frame_locals_address;

  gdbarch_frame_locals_address_ftype *frame_locals_address;

  gdbarch_saved_pc_after_call_ftype *saved_pc_after_call;

  gdbarch_saved_pc_after_call_ftype *saved_pc_after_call;

  gdbarch_frame_num_args_ftype *frame_num_args;

  gdbarch_frame_num_args_ftype *frame_num_args;

};

};

/* The default architecture uses host values (for want of a better

/* The default architecture uses host values (for want of a better

   choice). */

   choice). */

extern const struct bfd_arch_info bfd_default_arch_struct;

extern const struct bfd_arch_info bfd_default_arch_struct;

struct gdbarch startup_gdbarch = {

struct gdbarch startup_gdbarch = {

  /* basic architecture information */

  /* basic architecture information */

  &bfd_default_arch_struct,

  &bfd_default_arch_struct,

  BIG_ENDIAN,

  BIG_ENDIAN,

  /* target specific vector */

  /* target specific vector */

  NULL,

  NULL,

  /*per-architecture data-pointers and swap regions */

  /*per-architecture data-pointers and swap regions */

  0, NULL, NULL,

  0, NULL, NULL,

  /* Multi-arch values */

  /* Multi-arch values */

  8 * sizeof (void*),

  8 * sizeof (void*),

  8 * sizeof (void*),

  8 * sizeof (void*),

  8 * sizeof (short),

  8 * sizeof (short),

  8 * sizeof (int),

  8 * sizeof (int),

  8 * sizeof (long),

  8 * sizeof (long),

  8 * sizeof (LONGEST),

  8 * sizeof (LONGEST),

  8 * sizeof (float),

  8 * sizeof (float),

  8 * sizeof (double),

  8 * sizeof (double),

  8 * sizeof (long double),

  8 * sizeof (long double),

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  generic_get_saved_register,

  generic_get_saved_register,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  0,

  /* startup_gdbarch() */

  /* startup_gdbarch() */

};

};

struct gdbarch *current_gdbarch = &startup_gdbarch;

struct gdbarch *current_gdbarch = &startup_gdbarch;

/* Create a new ``struct gdbarch'' based in information provided by

/* Create a new ``struct gdbarch'' based in information provided by

   ``struct gdbarch_info''. */

   ``struct gdbarch_info''. */

struct gdbarch *

struct gdbarch *

gdbarch_alloc (const struct gdbarch_info *info,

gdbarch_alloc (const struct gdbarch_info *info,

               struct gdbarch_tdep *tdep)

               struct gdbarch_tdep *tdep)

{

{

  struct gdbarch *gdbarch = XMALLOC (struct gdbarch);

  struct gdbarch *gdbarch = XMALLOC (struct gdbarch);

  memset (gdbarch, 0, sizeof (*gdbarch));

  memset (gdbarch, 0, sizeof (*gdbarch));

  gdbarch->tdep = tdep;

  gdbarch->tdep = tdep;

  gdbarch->bfd_arch_info = info->bfd_arch_info;

  gdbarch->bfd_arch_info = info->bfd_arch_info;

  gdbarch->byte_order = info->byte_order;

  gdbarch->byte_order = info->byte_order;

  /* Force the explicit initialization of these. */

  /* Force the explicit initialization of these. */

  gdbarch->bfd_vma_bit = TARGET_ARCHITECTURE->bits_per_address;

  gdbarch->bfd_vma_bit = TARGET_ARCHITECTURE->bits_per_address;

  gdbarch->num_regs = -1;

  gdbarch->num_regs = -1;

  gdbarch->sp_regnum = -1;

  gdbarch->sp_regnum = -1;

  gdbarch->fp_regnum = -1;

  gdbarch->fp_regnum = -1;

  gdbarch->pc_regnum = -1;

  gdbarch->pc_regnum = -1;

  gdbarch->register_name = legacy_register_name;

  gdbarch->register_name = legacy_register_name;

  gdbarch->register_size = -1;

  gdbarch->register_size = -1;

  gdbarch->register_bytes = -1;

  gdbarch->register_bytes = -1;

  gdbarch->max_register_raw_size = -1;

  gdbarch->max_register_raw_size = -1;

  gdbarch->max_register_virtual_size = -1;

  gdbarch->max_register_virtual_size = -1;

  gdbarch->use_generic_dummy_frames = -1;

  gdbarch->use_generic_dummy_frames = -1;

  gdbarch->call_dummy_start_offset = -1;

  gdbarch->call_dummy_start_offset = -1;

  gdbarch->call_dummy_breakpoint_offset = -1;

  gdbarch->call_dummy_breakpoint_offset = -1;

  gdbarch->call_dummy_breakpoint_offset_p = -1;

  gdbarch->call_dummy_breakpoint_offset_p = -1;

  gdbarch->call_dummy_length = -1;

  gdbarch->call_dummy_length = -1;

  gdbarch->call_dummy_p = -1;

  gdbarch->call_dummy_p = -1;

  gdbarch->call_dummy_words = legacy_call_dummy_words;

  gdbarch->call_dummy_words = legacy_call_dummy_words;

  gdbarch->sizeof_call_dummy_words = legacy_sizeof_call_dummy_words;

  gdbarch->sizeof_call_dummy_words = legacy_sizeof_call_dummy_words;

  gdbarch->call_dummy_stack_adjust_p = -1;

  gdbarch->call_dummy_stack_adjust_p = -1;

  gdbarch->coerce_float_to_double = default_coerce_float_to_double;

  gdbarch->coerce_float_to_double = default_coerce_float_to_double;

  gdbarch->register_convertible = generic_register_convertible_not;

  gdbarch->register_convertible = generic_register_convertible_not;

  gdbarch->breakpoint_from_pc = legacy_breakpoint_from_pc;

  gdbarch->breakpoint_from_pc = legacy_breakpoint_from_pc;

  gdbarch->memory_insert_breakpoint = default_memory_insert_breakpoint;

  gdbarch->memory_insert_breakpoint = default_memory_insert_breakpoint;

  gdbarch->memory_remove_breakpoint = default_memory_remove_breakpoint;

  gdbarch->memory_remove_breakpoint = default_memory_remove_breakpoint;

  gdbarch->decr_pc_after_break = -1;

  gdbarch->decr_pc_after_break = -1;

  gdbarch->function_start_offset = -1;

  gdbarch->function_start_offset = -1;

  gdbarch->remote_translate_xfer_address = generic_remote_translate_xfer_address;

  gdbarch->remote_translate_xfer_address = generic_remote_translate_xfer_address;

  gdbarch->frame_args_skip = -1;

  gdbarch->frame_args_skip = -1;

  gdbarch->frameless_function_invocation = generic_frameless_function_invocation_not;

  gdbarch->frameless_function_invocation = generic_frameless_function_invocation_not;

  /* gdbarch_alloc() */

  /* gdbarch_alloc() */

  return gdbarch;

  return gdbarch;

}

}

/* Free a gdbarch struct.  This should never happen in normal

/* Free a gdbarch struct.  This should never happen in normal

   operation --- once you've created a gdbarch, you keep it around.

   operation --- once you've created a gdbarch, you keep it around.

   However, if an architecture's init function encounters an error

   However, if an architecture's init function encounters an error

   building the structure, it may need to clean up a partially

   building the structure, it may need to clean up a partially

   constructed gdbarch.  */

   constructed gdbarch.  */

void

void

gdbarch_free (struct gdbarch *arch)

gdbarch_free (struct gdbarch *arch)

{

{

  /* At the moment, this is trivial.  */

  /* At the moment, this is trivial.  */

  free (arch);

  free (arch);

}

}

/* Ensure that all values in a GDBARCH are reasonable. */

/* Ensure that all values in a GDBARCH are reasonable. */

static void

static void

verify_gdbarch (struct gdbarch *gdbarch)

verify_gdbarch (struct gdbarch *gdbarch)

{

{

  /* Only perform sanity checks on a multi-arch target. */

  /* Only perform sanity checks on a multi-arch target. */

  if (GDB_MULTI_ARCH <= 0)

  if (GDB_MULTI_ARCH <= 0)

    return;

    return;

  /* fundamental */

  /* fundamental */

  if (gdbarch->byte_order == 0)

  if (gdbarch->byte_order == 0)

    internal_error ("verify_gdbarch: byte-order unset");

    internal_error ("verify_gdbarch: byte-order unset");

  if (gdbarch->bfd_arch_info == NULL)

  if (gdbarch->bfd_arch_info == NULL)

    internal_error ("verify_gdbarch: bfd_arch_info unset");

    internal_error ("verify_gdbarch: bfd_arch_info unset");

  /* Check those that need to be defined for the given multi-arch level. */

  /* Check those that need to be defined for the given multi-arch level. */

  /* Skip verify of bfd_vma_bit, invalid_p == 0 */

  /* Skip verify of bfd_vma_bit, invalid_p == 0 */

  if ((GDB_MULTI_ARCH >= 1)

  if ((GDB_MULTI_ARCH >= 1)

      && (gdbarch->ptr_bit == 0))

      && (gdbarch->ptr_bit == 0))

    internal_error ("gdbarch: verify_gdbarch: ptr_bit invalid");

    internal_error ("gdbarch: verify_gdbarch: ptr_bit invalid");

  if ((GDB_MULTI_ARCH >= 1)

  if ((GDB_MULTI_ARCH >= 1)

      && (gdbarch->short_bit == 0))

      && (gdbarch->short_bit == 0))

    internal_error ("gdbarch: verify_gdbarch: short_bit invalid");

    internal_error ("gdbarch: verify_gdbarch: short_bit invalid");

  if ((GDB_MULTI_ARCH >= 1)

  if ((GDB_MULTI_ARCH >= 1)

      && (gdbarch->int_bit == 0))

      && (gdbarch->int_bit == 0))

    internal_error ("gdbarch: verify_gdbarch: int_bit invalid");

    internal_error ("gdbarch: verify_gdbarch: int_bit invalid");

  if ((GDB_MULTI_ARCH >= 1)

  if ((GDB_MULTI_ARCH >= 1)

      && (gdbarch->long_bit == 0))

      && (gdbarch->long_bit == 0))

    internal_error ("gdbarch: verify_gdbarch: long_bit invalid");

    internal_error ("gdbarch: verify_gdbarch: long_bit invalid");

  if ((GDB_MULTI_ARCH >= 1)

  if ((GDB_MULTI_ARCH >= 1)

      && (gdbarch->long_long_bit == 0))

      && (gdbarch->long_long_bit == 0))

    internal_error ("gdbarch: verify_gdbarch: long_long_bit invalid");

    internal_error ("gdbarch: verify_gdbarch: long_long_bit invalid");

  if ((GDB_MULTI_ARCH >= 1)

  if ((GDB_MULTI_ARCH >= 1)

      && (gdbarch->float_bit == 0))

      && (gdbarch->float_bit == 0))

    internal_error ("gdbarch: verify_gdbarch: float_bit invalid");

    internal_error ("gdbarch: verify_gdbarch: float_bit invalid");

  if ((GDB_MULTI_ARCH >= 1)

  if ((GDB_MULTI_ARCH >= 1)

      && (gdbarch->double_bit == 0))

      && (gdbarch->double_bit == 0))

    internal_error ("gdbarch: verify_gdbarch: double_bit invalid");

    internal_error ("gdbarch: verify_gdbarch: double_bit invalid");

  if ((GDB_MULTI_ARCH >= 1)

  if ((GDB_MULTI_ARCH >= 1)

      && (gdbarch->long_double_bit == 0))

      && (gdbarch->long_double_bit == 0))

    internal_error ("gdbarch: verify_gdbarch: long_double_bit invalid");

    internal_error ("gdbarch: verify_gdbarch: long_double_bit invalid");

  if ((GDB_MULTI_ARCH >= 1)

  if ((GDB_MULTI_ARCH >= 1)

      && (gdbarch->read_pc == 0))

      && (gdbarch->read_pc == 0))

    internal_error ("gdbarch: verify_gdbarch: read_pc invalid");

    internal_error ("gdbarch: verify_gdbarch: read_pc invalid");

  if ((GDB_MULTI_ARCH >= 1)

  if ((GDB_MULTI_ARCH >= 1)

      && (gdbarch->write_pc == 0))

      && (gdbarch->write_pc == 0))

    internal_error ("gdbarch: verify_gdbarch: write_pc invalid");

    internal_error ("gdbarch: verify_gdbarch: write_pc invalid");

  if ((GDB_MULTI_ARCH >= 1)

  if ((GDB_MULTI_ARCH >= 1)

      && (gdbarch->read_fp == 0))

      && (gdbarch->read_fp == 0))

    internal_error ("gdbarch: verify_gdbarch: read_fp invalid");

    internal_error ("gdbarch: verify_gdbarch: read_fp invalid");

  if ((GDB_MULTI_ARCH >= 1)

  if ((GDB_MULTI_ARCH >= 1)

      && (gdbarch->write_fp == 0))

      && (gdbarch->write_fp == 0))

    internal_error ("gdbarch: verify_gdbarch: write_fp invalid");

    internal_error ("gdbarch: verify_gdbarch: write_fp invalid");

  if ((GDB_MULTI_ARCH >= 1)

  if ((GDB_MULTI_ARCH >= 1)

      && (gdbarch->read_sp == 0))

      && (gdbarch->read_sp == 0))

    internal_error ("gdbarch: verify_gdbarch: read_sp invalid");

    internal_error ("gdbarch: verify_gdbarch: read_sp invalid");

  if ((GDB_MULTI_ARCH >= 1)

  if ((GDB_MULTI_ARCH >= 1)

      && (gdbarch->write_sp == 0))

      && (gdbarch->write_sp == 0))

    internal_error ("gdbarch: verify_gdbarch: write_sp invalid");

    internal_error ("gdbarch: verify_gdbarch: write_sp invalid");

  if ((GDB_MULTI_ARCH >= 2)

  if ((GDB_MULTI_ARCH >= 2)

      && (gdbarch->num_regs == -1))

      && (gdbarch->num_regs == -1))

    internal_error ("gdbarch: verify_gdbarch: num_regs invalid");

    internal_error ("gdbarch: verify_gdbarch: num_regs invalid");

  if ((GDB_MULTI_ARCH >= 2)

  if ((GDB_MULTI_ARCH >= 2)

      && (gdbarch->sp_regnum == -1))

      && (gdbarch->sp_regnum == -1))

    internal_error ("gdbarch: verify_gdbarch: sp_regnum invalid");

    internal_error ("gdbarch: verify_gdbarch: sp_regnum invalid");

  if ((GDB_MULTI_ARCH >= 2)

  if ((GDB_MULTI_ARCH >= 2)

      && (gdbarch->fp_regnum == -1))

      && (gdbarch->fp_regnum == -1))

    internal_error ("gdbarch: verify_gdbarch: fp_regnum invalid");

    internal_error ("gdbarch: verify_gdbarch: fp_regnum invalid");

  if ((GDB_MULTI_ARCH >= 2)

  if ((GDB_MULTI_ARCH >= 2)

      && (gdbarch->pc_regnum == -1))

      && (gdbarch->pc_regnum == -1))

    internal_error ("gdbarch: verify_gdbarch: pc_regnum invalid");

    internal_error ("gdbarch: verify_gdbarch: pc_regnum invalid");

  /* Skip verify of register_name, invalid_p == 0 */

  /* Skip verify of register_name, invalid_p == 0 */

  if ((GDB_MULTI_ARCH >= 2)

  if ((GDB_MULTI_ARCH >= 2)

      && (gdbarch->register_size == -1))

      && (gdbarch->register_size == -1))

    internal_error ("gdbarch: verify_gdbarch: register_size invalid");

    internal_error ("gdbarch: verify_gdbarch: register_size invalid");

  if ((GDB_MULTI_ARCH >= 2)

  if ((GDB_MULTI_ARCH >= 2)

      && (gdbarch->register_bytes == -1))

      && (gdbarch->register_bytes == -1))

    internal_error ("gdbarch: verify_gdbarch: register_bytes invalid");

    internal_error ("gdbarch: verify_gdbarch: register_bytes invalid");

  if ((GDB_MULTI_ARCH >= 2)

  if ((GDB_MULTI_ARCH >= 2)

      && (gdbarch->register_byte == 0))

      && (gdbarch->register_byte == 0))

    internal_error ("gdbarch: verify_gdbarch: register_byte invalid");

    internal_error ("gdbarch: verify_gdbarch: register_byte invalid");

  if ((GDB_MULTI_ARCH >= 2)

  if ((GDB_MULTI_ARCH >= 2)

      && (gdbarch->register_raw_size == 0))

      && (gdbarch->register_raw_size == 0))

    internal_error ("gdbarch: verify_gdbarch: register_raw_size invalid");

    internal_error ("gdbarch: verify_gdbarch: register_raw_size invalid");

  if ((GDB_MULTI_ARCH >= 2)

  if ((GDB_MULTI_ARCH >= 2)

      && (gdbarch->max_register_raw_size == -1))

      && (gdbarch->max_register_raw_size == -1))

    internal_error ("gdbarch: verify_gdbarch: max_register_raw_size invalid");

    internal_error ("gdbarch: verify_gdbarch: max_register_raw_size invalid");

  if ((GDB_MULTI_ARCH >= 2)

  if ((GDB_MULTI_ARCH >= 2)

      && (gdbarch->register_virtual_size == 0))

      && (gdbarch->register_virtual_size == 0))

    internal_error ("gdbarch: verify_gdbarch: register_virtual_size invalid");

    internal_error ("gdbarch: verify_gdbarch: register_virtual_size invalid");

  if ((GDB_MULTI_ARCH >= 2)

  if ((GDB_MULTI_ARCH >= 2)

      && (gdbarch->max_register_virtual_size == -1))

      && (gdbarch->max_register_virtual_size == -1))

    internal_error ("gdbarch: verify_gdbarch: max_register_virtual_size invalid");

    internal_error ("gdbarch: verify_gdbarch: max_register_virtual_size invalid");

  if ((GDB_MULTI_ARCH >= 2)

  if ((GDB_MULTI_ARCH >= 2)

      && (gdbarch->register_virtual_type == 0))

      && (gdbarch->register_virtual_type == 0))

    internal_error ("gdbarch: verify_gdbarch: register_virtual_type invalid");

    internal_error ("gdbarch: verify_gdbarch: register_virtual_type invalid");

  if ((GDB_MULTI_ARCH >= 1)

  if ((GDB_MULTI_ARCH >= 1)

      && (gdbarch->use_generic_dummy_frames == -1))

      && (gdbarch->use_generic_dummy_frames == -1))

    internal_error ("gdbarch: verify_gdbarch: use_generic_dummy_frames invalid");

    internal_error ("gdbarch: verify_gdbarch: use_generic_dummy_frames invalid");

  if ((GDB_MULTI_ARCH >= 2)

  if ((GDB_MULTI_ARCH >= 2)

      && (gdbarch->call_dummy_location == 0))

      && (gdbarch->call_dummy_location == 0))

    internal_error ("gdbarch: verify_gdbarch: call_dummy_location invalid");

    internal_error ("gdbarch: verify_gdbarch: call_dummy_location invalid");

  if ((GDB_MULTI_ARCH >= 2)

  if ((GDB_MULTI_ARCH >= 2)

      && (gdbarch->call_dummy_location == AT_ENTRY_POINT && gdbarch->call_dummy_address == 0))

      && (gdbarch->call_dummy_location == AT_ENTRY_POINT && gdbarch->call_dummy_address == 0))

    internal_error ("gdbarch: verify_gdbarch: call_dummy_address invalid");

    internal_error ("gdbarch: verify_gdbarch: call_dummy_address invalid");

  if ((GDB_MULTI_ARCH >= 2)

  if ((GDB_MULTI_ARCH >= 2)

      && (gdbarch->call_dummy_start_offset == -1))

      && (gdbarch->call_dummy_start_offset == -1))

    internal_error ("gdbarch: verify_gdbarch: call_dummy_start_offset invalid");

    internal_error ("gdbarch: verify_gdbarch: call_dummy_start_offset invalid");

  if ((GDB_MULTI_ARCH >= 2)

  if ((GDB_MULTI_ARCH >= 2)

      && (gdbarch->call_dummy_breakpoint_offset == -1))

      && (gdbarch->call_dummy_breakpoint_offset == -1))

    internal_error ("gdbarch: verify_gdbarch: call_dummy_breakpoint_offset invalid");

    internal_error ("gdbarch: verify_gdbarch: call_dummy_breakpoint_offset invalid");

  if ((GDB_MULTI_ARCH >= 1)

  if ((GDB_MULTI_ARCH >= 1)

      && (gdbarch->call_dummy_breakpoint_offset_p == -1))

      && (gdbarch->call_dummy_breakpoint_offset_p == -1))

    internal_error ("gdbarch: verify_gdbarch: call_dummy_breakpoint_offset_p invalid");

    internal_error ("gdbarch: verify_gdbarch: call_dummy_breakpoint_offset_p invalid");

  if ((GDB_MULTI_ARCH >= 2)

  if ((GDB_MULTI_ARCH >= 2)

      && (gdbarch->call_dummy_length == -1))

      && (gdbarch->call_dummy_length == -1))

    internal_error ("gdbarch: verify_gdbarch: call_dummy_length invalid");

    internal_error ("gdbarch: verify_gdbarch: call_dummy_length invalid");

  if ((GDB_MULTI_ARCH >= 2)

  if ((GDB_MULTI_ARCH >= 2)

      && (gdbarch->pc_in_call_dummy == 0))

      && (gdbarch->pc_in_call_dummy == 0))

    internal_error ("gdbarch: verify_gdbarch: pc_in_call_dummy invalid");

    internal_error ("gdbarch: verify_gdbarch: pc_in_call_dummy invalid");

  if ((GDB_MULTI_ARCH >= 1)

  if ((GDB_MULTI_ARCH >= 1)

      && (gdbarch->call_dummy_p == -1))

      && (gdbarch->call_dummy_p == -1))

    internal_error ("gdbarch: verify_gdbarch: call_dummy_p invalid");

    internal_error ("gdbarch: verify_gdbarch: call_dummy_p invalid");

  /* Skip verify of call_dummy_words, invalid_p == 0 */

  /* Skip verify of call_dummy_words, invalid_p == 0 */

  /* Skip verify of sizeof_call_dummy_words, invalid_p == 0 */

  /* Skip verify of sizeof_call_dummy_words, invalid_p == 0 */

  if ((GDB_MULTI_ARCH >= 1)

  if ((GDB_MULTI_ARCH >= 1)

      && (gdbarch->call_dummy_stack_adjust_p == -1))

      && (gdbarch->call_dummy_stack_adjust_p == -1))

    internal_error ("gdbarch: verify_gdbarch: call_dummy_stack_adjust_p invalid");

    internal_error ("gdbarch: verify_gdbarch: call_dummy_stack_adjust_p invalid");

  if ((GDB_MULTI_ARCH >= 2)

  if ((GDB_MULTI_ARCH >= 2)

      && (gdbarch->call_dummy_stack_adjust_p && gdbarch->call_dummy_stack_adjust == 0))

      && (gdbarch->call_dummy_stack_adjust_p && gdbarch->call_dummy_stack_adjust == 0))

    internal_error ("gdbarch: verify_gdbarch: call_dummy_stack_adjust invalid");

    internal_error ("gdbarch: verify_gdbarch: call_dummy_stack_adjust invalid");

  if ((GDB_MULTI_ARCH >= 2)

  if ((GDB_MULTI_ARCH >= 2)

      && (gdbarch->fix_call_dummy == 0))

      && (gdbarch->fix_call_dummy == 0))

    internal_error ("gdbarch: verify_gdbarch: fix_call_dummy invalid");

    internal_error ("gdbarch: verify_gdbarch: fix_call_dummy invalid");

  /* Skip verify of coerce_float_to_double, invalid_p == 0 */

  /* Skip verify of coerce_float_to_double, invalid_p == 0 */

  if ((GDB_MULTI_ARCH >= 1)

  if ((GDB_MULTI_ARCH >= 1)

      && (gdbarch->get_saved_register == 0))

      && (gdbarch->get_saved_register == 0))

    internal_error ("gdbarch: verify_gdbarch: get_saved_register invalid");

    internal_error ("gdbarch: verify_gdbarch: get_saved_register invalid");

  /* Skip verify of register_convertible, invalid_p == 0 */

  /* Skip verify of register_convertible, invalid_p == 0 */

  /* Skip verify of register_convert_to_virtual, invalid_p == 0 */

  /* Skip verify of register_convert_to_virtual, invalid_p == 0 */

  /* Skip verify of register_convert_to_raw, invalid_p == 0 */

  /* Skip verify of register_convert_to_raw, invalid_p == 0 */

  if ((GDB_MULTI_ARCH >= 2)

  if ((GDB_MULTI_ARCH >= 2)

      && (gdbarch->extract_return_value == 0))

      && (gdbarch->extract_return_value == 0))

    internal_error ("gdbarch: verify_gdbarch: extract_return_value invalid");

    internal_error ("gdbarch: verify_gdbarch: extract_return_value invalid");

  if ((GDB_MULTI_ARCH >= 1)

  if ((GDB_MULTI_ARCH >= 1)

      && (gdbarch->push_arguments == 0))

      && (gdbarch->push_arguments == 0))

    internal_error ("gdbarch: verify_gdbarch: push_arguments invalid");

    internal_error ("gdbarch: verify_gdbarch: push_arguments invalid");

  if ((GDB_MULTI_ARCH >= 2)