Attachment #10857: infrastructure patch - defective for bug #26004

   Value is true if successful.  */

   Value is true if successful.  */

bool

bool

{

{

  tree x = exp;

  tree x = exp;

  while (1)

  while (1)

    }

    }

}

}

/* Thorough checking of the arrayness of TYPE.  */

/* Thorough checking of the arrayness of TYPE.  */

int

int

#define LANG_HOOKS_POST_OPTIONS java_post_options

#define LANG_HOOKS_POST_OPTIONS java_post_options

#undef LANG_HOOKS_PARSE_FILE

#undef LANG_HOOKS_PARSE_FILE

#define LANG_HOOKS_PARSE_FILE java_parse_file

#define LANG_HOOKS_PARSE_FILE java_parse_file

#undef LANG_HOOKS_MARK_ADDRESSABLE

#undef LANG_HOOKS_MARK_ADDRESSABLE

#define LANG_HOOKS_MARK_ADDRESSABLE java_mark_addressable

#define LANG_HOOKS_MARK_ADDRESSABLE java_mark_addressable

#undef LANG_HOOKS_DUP_LANG_SPECIFIC_DECL

#undef LANG_HOOKS_DUP_LANG_SPECIFIC_DECL

struct eh_range;

struct eh_range;

extern void java_parse_file (int);

extern void java_parse_file (int);

extern bool java_mark_addressable (tree);

extern bool java_mark_addressable (tree);

extern tree java_type_for_mode (enum machine_mode, int);

extern tree java_type_for_mode (enum machine_mode, int);

extern tree java_type_for_size (unsigned int, int);

extern tree java_type_for_size (unsigned int, int);

/* Mark EXP saying that we need to be able to take the

/* Mark EXP saying that we need to be able to take the

   address of it; it should not be allocated in a register.

   address of it; it should not be allocated in a register.

   Value is true if successful.

   Value is true if successful.

   C++: we do not allow `current_class_ptr' to be addressable.  */

   C++: we do not allow `current_class_ptr' to be addressable.  */

{

{

  tree x = exp;

  tree x = exp;

      case PARM_DECL:

      case PARM_DECL:

	if (x == current_class_ptr)

	if (x == current_class_ptr)

	  {

	  {

	  }

	  }

	/* Fall through.  */

	/* Fall through.  */

	  {

	  {

	    if (TREE_CODE (x) == VAR_DECL && DECL_HARD_REGISTER (x))

	    if (TREE_CODE (x) == VAR_DECL && DECL_HARD_REGISTER (x))

	      {

	      {

		return false;

		return false;

	      }

	      }

	      warning

	      warning

	  }

	  }

	TREE_ADDRESSABLE (x) = 1;

	TREE_ADDRESSABLE (x) = 1;

	return true;

	return true;

	return true;

	return true;

    }

    }

}

}

/* Build and return a conditional expression IFEXP ? OP1 : OP2.  */

/* Build and return a conditional expression IFEXP ? OP1 : OP2.  */

#define LANG_HOOKS_DUP_LANG_SPECIFIC_DECL cxx_dup_lang_specific_decl

#define LANG_HOOKS_DUP_LANG_SPECIFIC_DECL cxx_dup_lang_specific_decl

#undef LANG_HOOKS_SET_DECL_ASSEMBLER_NAME

#undef LANG_HOOKS_SET_DECL_ASSEMBLER_NAME

#define LANG_HOOKS_SET_DECL_ASSEMBLER_NAME mangle_decl

#define LANG_HOOKS_SET_DECL_ASSEMBLER_NAME mangle_decl

#undef LANG_HOOKS_MARK_ADDRESSABLE

#undef LANG_HOOKS_MARK_ADDRESSABLE

#define LANG_HOOKS_MARK_ADDRESSABLE cxx_mark_addressable

#define LANG_HOOKS_MARK_ADDRESSABLE cxx_mark_addressable

#undef LANG_HOOKS_PRINT_STATISTICS

#undef LANG_HOOKS_PRINT_STATISTICS

extern void cxx_init_decl_processing		(void);

extern void cxx_init_decl_processing		(void);

enum cp_tree_node_structure_enum cp_tree_node_structure

enum cp_tree_node_structure_enum cp_tree_node_structure

						(union lang_tree_node *);

						(union lang_tree_node *);

extern bool cxx_mark_addressable		(tree);

extern bool cxx_mark_addressable		(tree);

extern void cxx_push_function_context		(struct function *);

extern void cxx_push_function_context		(struct function *);

extern void cxx_pop_function_context		(struct function *);

extern void cxx_pop_function_context		(struct function *);

#define LANG_HOOKS_EXPAND_EXPR c_expand_expr

#define LANG_HOOKS_EXPAND_EXPR c_expand_expr

#undef LANG_HOOKS_EXPAND_DECL

#undef LANG_HOOKS_EXPAND_DECL

#define LANG_HOOKS_EXPAND_DECL c_expand_decl

#define LANG_HOOKS_EXPAND_DECL c_expand_decl

#undef LANG_HOOKS_MARK_ADDRESSABLE

#undef LANG_HOOKS_MARK_ADDRESSABLE

#define LANG_HOOKS_MARK_ADDRESSABLE c_mark_addressable

#define LANG_HOOKS_MARK_ADDRESSABLE c_mark_addressable

#undef LANG_HOOKS_PARSE_FILE

#undef LANG_HOOKS_PARSE_FILE

extern tree require_complete_type (tree);

extern tree require_complete_type (tree);

extern int same_translation_unit_p (tree, tree);

extern int same_translation_unit_p (tree, tree);

extern int comptypes (tree, tree);

extern int comptypes (tree, tree);

extern bool c_mark_addressable (tree);

extern bool c_mark_addressable (tree);

extern void c_incomplete_type_error (tree, tree);

extern void c_incomplete_type_error (tree, tree);

extern tree c_type_promotes_to (tree);

extern tree c_type_promotes_to (tree);

#define LANG_HOOKS_GET_ALIAS_SET	gnat_get_alias_set

#define LANG_HOOKS_GET_ALIAS_SET	gnat_get_alias_set

#undef  LANG_HOOKS_EXPAND_EXPR

#undef  LANG_HOOKS_EXPAND_EXPR

#define LANG_HOOKS_EXPAND_EXPR		gnat_expand_expr

#define LANG_HOOKS_EXPAND_EXPR		gnat_expand_expr

#undef  LANG_HOOKS_MARK_ADDRESSABLE

#undef  LANG_HOOKS_MARK_ADDRESSABLE

#define LANG_HOOKS_MARK_ADDRESSABLE	gnat_mark_addressable

#define LANG_HOOKS_MARK_ADDRESSABLE	gnat_mark_addressable

#undef  LANG_HOOKS_PRINT_DECL

#undef  LANG_HOOKS_PRINT_DECL

   should not be allocated in a register.  Returns true if successful.  */

   should not be allocated in a register.  Returns true if successful.  */

bool

bool

{

{

  while (1)

  while (1)

    switch (TREE_CODE (expr_node))

    switch (TREE_CODE (expr_node))

	return true;

	return true;

    }

    }

}

}

extern tree fill_vms_descriptor (tree expr, Entity_Id gnat_formal);

extern tree fill_vms_descriptor (tree expr, Entity_Id gnat_formal);

/* Indicate that we need to make the address of EXPR_NODE and it therefore

/* Indicate that we need to make the address of EXPR_NODE and it therefore

   should not be allocated in a register.  Return true if successful.  */

   should not be allocated in a register.  Return true if successful.  */

extern bool gnat_mark_addressable (tree expr_node);

extern bool gnat_mark_addressable (tree expr_node);

static bool gfc_init (void);

static bool gfc_init (void);

static void gfc_finish (void);

static void gfc_finish (void);

static void gfc_print_identifier (FILE *, tree, int);

static void gfc_print_identifier (FILE *, tree, int);

static bool gfc_mark_addressable (tree);

static bool gfc_mark_addressable (tree);

void do_function_end (void);

void do_function_end (void);

int global_bindings_p (void);

int global_bindings_p (void);

#undef LANG_HOOKS_POST_OPTIONS

#undef LANG_HOOKS_POST_OPTIONS

#undef LANG_HOOKS_PRINT_IDENTIFIER

#undef LANG_HOOKS_PRINT_IDENTIFIER

#undef LANG_HOOKS_PARSE_FILE

#undef LANG_HOOKS_PARSE_FILE

#undef LANG_HOOKS_MARK_ADDRESSABLE

#undef LANG_HOOKS_MARK_ADDRESSABLE

#undef LANG_HOOKS_TYPE_FOR_MODE

#undef LANG_HOOKS_TYPE_FOR_MODE

#undef LANG_HOOKS_TYPE_FOR_SIZE

#undef LANG_HOOKS_TYPE_FOR_SIZE

#define LANG_HOOKS_POST_OPTIONS		gfc_post_options

#define LANG_HOOKS_POST_OPTIONS		gfc_post_options

#define LANG_HOOKS_PRINT_IDENTIFIER     gfc_print_identifier

#define LANG_HOOKS_PRINT_IDENTIFIER     gfc_print_identifier

#define LANG_HOOKS_PARSE_FILE           gfc_be_parse_file

#define LANG_HOOKS_PARSE_FILE           gfc_be_parse_file

#define LANG_HOOKS_MARK_ADDRESSABLE        gfc_mark_addressable

#define LANG_HOOKS_MARK_ADDRESSABLE        gfc_mark_addressable

#define LANG_HOOKS_TYPE_FOR_MODE           gfc_type_for_mode

#define LANG_HOOKS_TYPE_FOR_MODE           gfc_type_for_mode

#define LANG_HOOKS_TYPE_FOR_SIZE           gfc_type_for_size

#define LANG_HOOKS_TYPE_FOR_SIZE           gfc_type_for_size

   the TARGET attribute, but we implement it here for a

   the TARGET attribute, but we implement it here for a

   likely future Cray pointer extension.

   likely future Cray pointer extension.

   Value is 1 if successful.  */

   Value is 1 if successful.  */

/* TODO: Check/fix mark_addressable.  */

/* TODO: Check/fix mark_addressable.  */

{

{

  register tree x = exp;

  register tree x = exp;

  while (1)

  while (1)

	  {

	  {

	    if (TREE_PUBLIC (x))

	    if (TREE_PUBLIC (x))

	      {

	      {

		return false;

		return false;

	      }

	      }

	  }

	  }

	else if (DECL_REGISTER (x) && !TREE_ADDRESSABLE (x))

	else if (DECL_REGISTER (x) && !TREE_ADDRESSABLE (x))

	  {

	  {

	    if (TREE_PUBLIC (x))

	    if (TREE_PUBLIC (x))

	      {

	      {

		error ("address of global register variable %qs requested",

		error ("address of global register variable %qs requested",

		       IDENTIFIER_POINTER (DECL_NAME (x)));

		       IDENTIFIER_POINTER (DECL_NAME (x)));

		return true;

		return true;

	      }

	      }

#endif

#endif

	  }

	  }

	/* drops in */

	/* drops in */

      }

      }

}

}

/* press the big red button - garbage (ggc) collection is on */

/* press the big red button - garbage (ggc) collection is on */

int ggc_p = 1;

int ggc_p = 1;

     compilation.  Default hook is does nothing.  */

     compilation.  Default hook is does nothing.  */

  void (*finish_incomplete_decl) (tree);

  void (*finish_incomplete_decl) (tree);

  /* Mark EXP saying that we need to be able to take the address of

  /* Mark EXP saying that we need to be able to take the address of

     it; it should not be allocated in a register.  Return true if

     it; it should not be allocated in a register.  Return true if

     successful.  */

     successful.  */

/* Mark EXP saying that we need to be able to take the

/* Mark EXP saying that we need to be able to take the

   address of it; it should not be allocated in a register.

   address of it; it should not be allocated in a register.

{

{

  tree x = exp;

  tree x = exp;

      case COMPONENT_REF:

      case COMPONENT_REF:

	if (DECL_C_BIT_FIELD (TREE_OPERAND (x, 1)))

	if (DECL_C_BIT_FIELD (TREE_OPERAND (x, 1)))

	  {

	  {

	    return false;

	    return false;

	  }

	  }

	  {

	  {

	    if (TREE_PUBLIC (x) || TREE_STATIC (x) || DECL_EXTERNAL (x))

	    if (TREE_PUBLIC (x) || TREE_STATIC (x) || DECL_EXTERNAL (x))

	      {

	      {

		return false;

		return false;

	      }

	      }

	  }

	  }

	else if (C_DECL_REGISTER (x))

	else if (C_DECL_REGISTER (x))

	  {

	  {

	    if (TREE_PUBLIC (x) || TREE_STATIC (x) || DECL_EXTERNAL (x))

	    if (TREE_PUBLIC (x) || TREE_STATIC (x) || DECL_EXTERNAL (x))

	      error ("address of register variable %qD requested", x);

	      error ("address of register variable %qD requested", x);

	    return false;

	    return false;

	  }

	  }

	return true;

	return true;

    }

    }

}

}

/* Build and return a conditional expression IFEXP ? OP1 : OP2.  */

/* Build and return a conditional expression IFEXP ? OP1 : OP2.  */

  char junk; /* dummy field to ensure struct is not empty */

  char junk; /* dummy field to ensure struct is not empty */

};

};

static bool tree_mark_addressable (tree exp);

static bool tree_mark_addressable (tree exp);

static tree tree_lang_type_for_size (unsigned precision, int unsignedp);

static tree tree_lang_type_for_size (unsigned precision, int unsignedp);

static tree tree_lang_type_for_mode (enum machine_mode mode, int unsignedp);

static tree tree_lang_type_for_mode (enum machine_mode mode, int unsignedp);

   end).  These are not really very language-dependent, i.e.

   end).  These are not really very language-dependent, i.e.

   treelang, C, Mercury, etc. can all use almost the same definitions.  */

   treelang, C, Mercury, etc. can all use almost the same definitions.  */

#undef LANG_HOOKS_MARK_ADDRESSABLE

#undef LANG_HOOKS_MARK_ADDRESSABLE

#define LANG_HOOKS_MARK_ADDRESSABLE tree_mark_addressable

#define LANG_HOOKS_MARK_ADDRESSABLE tree_mark_addressable

#undef LANG_HOOKS_SIGNED_TYPE

#undef LANG_HOOKS_SIGNED_TYPE

/* Mark EXP saying that we need to be able to take the

/* Mark EXP saying that we need to be able to take the

   address of it; it should not be allocated in a register.

   address of it; it should not be allocated in a register.

   Value is 1 if successful.  

   Value is 1 if successful.  

   This implementation was copied from c-decl.c. */

   This implementation was copied from c-decl.c. */

static bool

static bool

{

{

  register tree x = exp;

  register tree x = exp;

  while (1)

  while (1)

	  {

	  {

	    if (TREE_PUBLIC (x))

	    if (TREE_PUBLIC (x))

	      {

	      {

		return 0;

		return 0;

	      }

	      }

	  }

	  }

	else if (DECL_REGISTER (x) && !TREE_ADDRESSABLE (x))

	else if (DECL_REGISTER (x) && !TREE_ADDRESSABLE (x))

	  {

	  {

	    if (TREE_PUBLIC (x))

	    if (TREE_PUBLIC (x))

	      {

	      {

		return 0;

		return 0;

	      }

	      }

	  }

	  }

	/* drops in */

	/* drops in */

    }

    }

}

}

/* Return an integer type with the number of bits of precision given by  

/* Return an integer type with the number of bits of precision given by  

   PRECISION.  UNSIGNEDP is nonzero if the type is unsigned; otherwise

   PRECISION.  UNSIGNEDP is nonzero if the type is unsigned; otherwise

   it is a signed type.  */

   it is a signed type.  */

  LANG_HOOKS_EXPAND_DECL, \

  LANG_HOOKS_EXPAND_DECL, \

  LANG_HOOKS_SAFE_FROM_P, \

  LANG_HOOKS_SAFE_FROM_P, \

  LANG_HOOKS_FINISH_INCOMPLETE_DECL, \

  LANG_HOOKS_FINISH_INCOMPLETE_DECL, \

  LANG_HOOKS_MARK_ADDRESSABLE, \

  LANG_HOOKS_MARK_ADDRESSABLE, \

  LANG_HOOKS_STATICP, \

  LANG_HOOKS_STATICP, \

  LANG_HOOKS_DUP_LANG_SPECIFIC_DECL, \

  LANG_HOOKS_DUP_LANG_SPECIFIC_DECL, \