OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [java/] [lang.c] - Diff between revs 816 and 826

Only display areas with differences | Details | Blame | View Log

Rev 816 Rev 826
/* Java(TM) language-specific utility routines.
/* Java(TM) language-specific utility routines.
   Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
   Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
   2005, 2006, 2007, 2008 Free Software Foundation, Inc.
   2005, 2006, 2007, 2008 Free Software Foundation, Inc.
 
 
This file is part of GCC.
This file is part of GCC.
 
 
GCC is free software; you can redistribute it and/or modify
GCC 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 3, or (at your option)
the Free Software Foundation; either version 3, or (at your option)
any later version.
any later version.
 
 
GCC is distributed in the hope that it will be useful,
GCC 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 GCC; see the file COPYING3.  If not see
along with GCC; see the file COPYING3.  If not see
<http://www.gnu.org/licenses/>.
<http://www.gnu.org/licenses/>.
 
 
Java and all Java-based marks are trademarks or registered trademarks
Java and all Java-based marks are trademarks or registered trademarks
of Sun Microsystems, Inc. in the United States and other countries.
of Sun Microsystems, Inc. in the United States and other countries.
The Free Software Foundation is independent of Sun Microsystems, Inc.  */
The Free Software Foundation is independent of Sun Microsystems, Inc.  */
 
 
/* Hacked by Per Bothner <bothner@cygnus.com> February 1996. */
/* Hacked by Per Bothner <bothner@cygnus.com> February 1996. */
 
 
#include "config.h"
#include "config.h"
#include "system.h"
#include "system.h"
#include "coretypes.h"
#include "coretypes.h"
#include "tm.h"
#include "tm.h"
#include "tree.h"
#include "tree.h"
#include "input.h"
#include "input.h"
#include "rtl.h"
#include "rtl.h"
#include "expr.h"
#include "expr.h"
#include "java-tree.h"
#include "java-tree.h"
#include "jcf.h"
#include "jcf.h"
#include "toplev.h"
#include "toplev.h"
#include "langhooks.h"
#include "langhooks.h"
#include "langhooks-def.h"
#include "langhooks-def.h"
#include "flags.h"
#include "flags.h"
#include "ggc.h"
#include "ggc.h"
#include "diagnostic.h"
#include "diagnostic.h"
#include "tree-inline.h"
#include "tree-inline.h"
#include "splay-tree.h"
#include "splay-tree.h"
#include "tree-dump.h"
#include "tree-dump.h"
#include "opts.h"
#include "opts.h"
#include "options.h"
#include "options.h"
#include "except.h"
#include "except.h"
 
 
static bool java_init (void);
static bool java_init (void);
static void java_finish (void);
static void java_finish (void);
static unsigned int java_init_options (unsigned int, const char **);
static unsigned int java_init_options (unsigned int, const char **);
static bool java_post_options (const char **);
static bool java_post_options (const char **);
 
 
static int java_handle_option (size_t scode, const char *arg, int value);
static int java_handle_option (size_t scode, const char *arg, int value);
static void put_decl_string (const char *, int);
static void put_decl_string (const char *, int);
static void put_decl_node (tree, int);
static void put_decl_node (tree, int);
static void java_print_error_function (diagnostic_context *, const char *,
static void java_print_error_function (diagnostic_context *, const char *,
                                       diagnostic_info *);
                                       diagnostic_info *);
static int merge_init_test_initialization (void * *, void *);
static int merge_init_test_initialization (void * *, void *);
static int inline_init_test_initialization (void * *, void *);
static int inline_init_test_initialization (void * *, void *);
static bool java_dump_tree (void *, tree);
static bool java_dump_tree (void *, tree);
static void dump_compound_expr (dump_info_p, tree);
static void dump_compound_expr (dump_info_p, tree);
static bool java_decl_ok_for_sibcall (const_tree);
static bool java_decl_ok_for_sibcall (const_tree);
 
 
static enum classify_record java_classify_record (tree type);
static enum classify_record java_classify_record (tree type);
 
 
static tree java_eh_personality (void);
static tree java_eh_personality (void);
 
 
#ifndef TARGET_OBJECT_SUFFIX
#ifndef TARGET_OBJECT_SUFFIX
# define TARGET_OBJECT_SUFFIX ".o"
# define TARGET_OBJECT_SUFFIX ".o"
#endif
#endif
 
 
/* Table of machine-independent attributes.  */
/* Table of machine-independent attributes.  */
const struct attribute_spec java_attribute_table[] =
const struct attribute_spec java_attribute_table[] =
{
{
 { "nonnull",                0, -1, false, true, true,
 { "nonnull",                0, -1, false, true, true,
                              NULL },
                              NULL },
  { NULL,                     0, 0, false, false, false, NULL }
  { NULL,                     0, 0, false, false, false, NULL }
};
};
 
 
/* Used to avoid printing error messages with bogus function
/* Used to avoid printing error messages with bogus function
   prototypes.  Starts out false.  */
   prototypes.  Starts out false.  */
static bool inhibit_error_function_printing;
static bool inhibit_error_function_printing;
 
 
const char *resource_name;
const char *resource_name;
 
 
/* When nonzero, -Wall was turned on.  */
/* When nonzero, -Wall was turned on.  */
int flag_wall = 0;
int flag_wall = 0;
 
 
/* When nonzero, report use of deprecated classes, methods, or fields.  */
/* When nonzero, report use of deprecated classes, methods, or fields.  */
int flag_deprecated = 1;
int flag_deprecated = 1;
 
 
/* When zero, don't optimize static class initialization. This flag shouldn't
/* When zero, don't optimize static class initialization. This flag shouldn't
   be tested alone, use STATIC_CLASS_INITIALIZATION_OPTIMIZATION_P instead.  */
   be tested alone, use STATIC_CLASS_INITIALIZATION_OPTIMIZATION_P instead.  */
/* FIXME: Make this work with gimplify.  */
/* FIXME: Make this work with gimplify.  */
/* int flag_optimize_sci = 0;  */
/* int flag_optimize_sci = 0;  */
 
 
/* Don't attempt to verify invocations.  */
/* Don't attempt to verify invocations.  */
int flag_verify_invocations = 0;
int flag_verify_invocations = 0;
 
 
/* When nonzero, print extra version information.  */
/* When nonzero, print extra version information.  */
static int v_flag = 0;
static int v_flag = 0;
 
 
JCF *current_jcf;
JCF *current_jcf;
 
 
/* Variable controlling how dependency tracking is enabled in
/* Variable controlling how dependency tracking is enabled in
   java_init.  */
   java_init.  */
static int dependency_tracking = 0;
static int dependency_tracking = 0;
 
 
/* Flag values for DEPENDENCY_TRACKING.  */
/* Flag values for DEPENDENCY_TRACKING.  */
#define DEPEND_SET_FILE 1
#define DEPEND_SET_FILE 1
#define DEPEND_ENABLE   2
#define DEPEND_ENABLE   2
#define DEPEND_TARGET_SET 4
#define DEPEND_TARGET_SET 4
#define DEPEND_FILE_ALREADY_SET 8
#define DEPEND_FILE_ALREADY_SET 8
 
 
struct GTY(()) language_function {
struct GTY(()) language_function {
  int unused;
  int unused;
};
};
 
 
#undef LANG_HOOKS_NAME
#undef LANG_HOOKS_NAME
#define LANG_HOOKS_NAME "GNU Java"
#define LANG_HOOKS_NAME "GNU Java"
#undef LANG_HOOKS_INIT
#undef LANG_HOOKS_INIT
#define LANG_HOOKS_INIT java_init
#define LANG_HOOKS_INIT java_init
#undef LANG_HOOKS_FINISH
#undef LANG_HOOKS_FINISH
#define LANG_HOOKS_FINISH java_finish
#define LANG_HOOKS_FINISH java_finish
#undef LANG_HOOKS_INIT_OPTIONS
#undef LANG_HOOKS_INIT_OPTIONS
#define LANG_HOOKS_INIT_OPTIONS java_init_options
#define LANG_HOOKS_INIT_OPTIONS java_init_options
#undef LANG_HOOKS_HANDLE_OPTION
#undef LANG_HOOKS_HANDLE_OPTION
#define LANG_HOOKS_HANDLE_OPTION java_handle_option
#define LANG_HOOKS_HANDLE_OPTION java_handle_option
#undef LANG_HOOKS_POST_OPTIONS
#undef LANG_HOOKS_POST_OPTIONS
#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_DUP_LANG_SPECIFIC_DECL
#undef LANG_HOOKS_DUP_LANG_SPECIFIC_DECL
#define LANG_HOOKS_DUP_LANG_SPECIFIC_DECL java_dup_lang_specific_decl
#define LANG_HOOKS_DUP_LANG_SPECIFIC_DECL java_dup_lang_specific_decl
#undef LANG_HOOKS_DECL_PRINTABLE_NAME
#undef LANG_HOOKS_DECL_PRINTABLE_NAME
#define LANG_HOOKS_DECL_PRINTABLE_NAME lang_printable_name
#define LANG_HOOKS_DECL_PRINTABLE_NAME lang_printable_name
#undef LANG_HOOKS_PRINT_ERROR_FUNCTION
#undef LANG_HOOKS_PRINT_ERROR_FUNCTION
#define LANG_HOOKS_PRINT_ERROR_FUNCTION java_print_error_function
#define LANG_HOOKS_PRINT_ERROR_FUNCTION java_print_error_function
 
 
#undef LANG_HOOKS_TYPE_FOR_MODE
#undef LANG_HOOKS_TYPE_FOR_MODE
#define LANG_HOOKS_TYPE_FOR_MODE java_type_for_mode
#define LANG_HOOKS_TYPE_FOR_MODE java_type_for_mode
#undef LANG_HOOKS_TYPE_FOR_SIZE
#undef LANG_HOOKS_TYPE_FOR_SIZE
#define LANG_HOOKS_TYPE_FOR_SIZE java_type_for_size
#define LANG_HOOKS_TYPE_FOR_SIZE java_type_for_size
#undef LANG_HOOKS_CLASSIFY_RECORD
#undef LANG_HOOKS_CLASSIFY_RECORD
#define LANG_HOOKS_CLASSIFY_RECORD java_classify_record
#define LANG_HOOKS_CLASSIFY_RECORD java_classify_record
 
 
#undef LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN
#undef LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN
#define LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN java_dump_tree
#define LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN java_dump_tree
 
 
#undef LANG_HOOKS_GIMPLIFY_EXPR
#undef LANG_HOOKS_GIMPLIFY_EXPR
#define LANG_HOOKS_GIMPLIFY_EXPR java_gimplify_expr
#define LANG_HOOKS_GIMPLIFY_EXPR java_gimplify_expr
 
 
#undef LANG_HOOKS_DECL_OK_FOR_SIBCALL
#undef LANG_HOOKS_DECL_OK_FOR_SIBCALL
#define LANG_HOOKS_DECL_OK_FOR_SIBCALL java_decl_ok_for_sibcall
#define LANG_HOOKS_DECL_OK_FOR_SIBCALL java_decl_ok_for_sibcall
 
 
#undef LANG_HOOKS_SET_DECL_ASSEMBLER_NAME
#undef LANG_HOOKS_SET_DECL_ASSEMBLER_NAME
#define LANG_HOOKS_SET_DECL_ASSEMBLER_NAME java_mangle_decl
#define LANG_HOOKS_SET_DECL_ASSEMBLER_NAME java_mangle_decl
 
 
#undef LANG_HOOKS_ATTRIBUTE_TABLE
#undef LANG_HOOKS_ATTRIBUTE_TABLE
#define LANG_HOOKS_ATTRIBUTE_TABLE java_attribute_table
#define LANG_HOOKS_ATTRIBUTE_TABLE java_attribute_table
 
 
#undef LANG_HOOKS_EH_PERSONALITY
#undef LANG_HOOKS_EH_PERSONALITY
#define LANG_HOOKS_EH_PERSONALITY java_eh_personality
#define LANG_HOOKS_EH_PERSONALITY java_eh_personality
 
 
#undef LANG_HOOKS_EH_USE_CXA_END_CLEANUP
#undef LANG_HOOKS_EH_USE_CXA_END_CLEANUP
#define LANG_HOOKS_EH_USE_CXA_END_CLEANUP  true
#define LANG_HOOKS_EH_USE_CXA_END_CLEANUP  true
 
 
/* Each front end provides its own.  */
/* Each front end provides its own.  */
struct lang_hooks lang_hooks = LANG_HOOKS_INITIALIZER;
struct lang_hooks lang_hooks = LANG_HOOKS_INITIALIZER;
 
 
/*
/*
 * process java-specific compiler command-line options
 * process java-specific compiler command-line options
 * return 0, but do not complain if the option is not recognized.
 * return 0, but do not complain if the option is not recognized.
 */
 */
static int
static int
java_handle_option (size_t scode, const char *arg, int value)
java_handle_option (size_t scode, const char *arg, int value)
{
{
  enum opt_code code = (enum opt_code) scode;
  enum opt_code code = (enum opt_code) scode;
 
 
  switch (code)
  switch (code)
    {
    {
    case OPT_I:
    case OPT_I:
      jcf_path_include_arg (arg);
      jcf_path_include_arg (arg);
      break;
      break;
 
 
    case OPT_M:
    case OPT_M:
      jcf_dependency_init (1);
      jcf_dependency_init (1);
      dependency_tracking |= DEPEND_ENABLE;
      dependency_tracking |= DEPEND_ENABLE;
      break;
      break;
 
 
    case OPT_MD_:
    case OPT_MD_:
      jcf_dependency_init (1);
      jcf_dependency_init (1);
      dependency_tracking |= DEPEND_SET_FILE | DEPEND_ENABLE;
      dependency_tracking |= DEPEND_SET_FILE | DEPEND_ENABLE;
      break;
      break;
 
 
    case OPT_MF:
    case OPT_MF:
      jcf_dependency_set_dep_file (arg);
      jcf_dependency_set_dep_file (arg);
      dependency_tracking |= DEPEND_FILE_ALREADY_SET;
      dependency_tracking |= DEPEND_FILE_ALREADY_SET;
      break;
      break;
 
 
    case OPT_MM:
    case OPT_MM:
      jcf_dependency_init (0);
      jcf_dependency_init (0);
      dependency_tracking |= DEPEND_ENABLE;
      dependency_tracking |= DEPEND_ENABLE;
      break;
      break;
 
 
    case OPT_MMD_:
    case OPT_MMD_:
      jcf_dependency_init (0);
      jcf_dependency_init (0);
      dependency_tracking |= DEPEND_SET_FILE | DEPEND_ENABLE;
      dependency_tracking |= DEPEND_SET_FILE | DEPEND_ENABLE;
      break;
      break;
 
 
    case OPT_MP:
    case OPT_MP:
      jcf_dependency_print_dummies ();
      jcf_dependency_print_dummies ();
      break;
      break;
 
 
    case OPT_MT:
    case OPT_MT:
      jcf_dependency_set_target (arg);
      jcf_dependency_set_target (arg);
      dependency_tracking |= DEPEND_TARGET_SET;
      dependency_tracking |= DEPEND_TARGET_SET;
      break;
      break;
 
 
    case OPT_Wall:
    case OPT_Wall:
      flag_wall = value;
      flag_wall = value;
      /* When -Wall given, enable -Wunused.  We do this because the C
      /* When -Wall given, enable -Wunused.  We do this because the C
         compiler does it, and people expect it.  */
         compiler does it, and people expect it.  */
      warn_unused = value;
      warn_unused = value;
      break;
      break;
 
 
    case OPT_fenable_assertions_:
    case OPT_fenable_assertions_:
      add_enable_assert (arg, value);
      add_enable_assert (arg, value);
      break;
      break;
 
 
    case OPT_fenable_assertions:
    case OPT_fenable_assertions:
      add_enable_assert ("", value);
      add_enable_assert ("", value);
      break;
      break;
 
 
    case OPT_fdisable_assertions_:
    case OPT_fdisable_assertions_:
      add_enable_assert (arg, !value);
      add_enable_assert (arg, !value);
      break;
      break;
 
 
    case OPT_fdisable_assertions:
    case OPT_fdisable_assertions:
      add_enable_assert ("", !value);
      add_enable_assert ("", !value);
      break;
      break;
 
 
    case OPT_fassume_compiled_:
    case OPT_fassume_compiled_:
      add_assume_compiled (arg, !value);
      add_assume_compiled (arg, !value);
      break;
      break;
 
 
    case OPT_fassume_compiled:
    case OPT_fassume_compiled:
      add_assume_compiled ("", !value);
      add_assume_compiled ("", !value);
      break;
      break;
 
 
    case OPT_fbootclasspath_:
    case OPT_fbootclasspath_:
      jcf_path_bootclasspath_arg (arg);
      jcf_path_bootclasspath_arg (arg);
      break;
      break;
 
 
    case OPT_faux_classpath:
    case OPT_faux_classpath:
    case OPT_fclasspath_:
    case OPT_fclasspath_:
    case OPT_fCLASSPATH_:
    case OPT_fCLASSPATH_:
      jcf_path_classpath_arg (arg);
      jcf_path_classpath_arg (arg);
      break;
      break;
 
 
    case OPT_fcompile_resource_:
    case OPT_fcompile_resource_:
      resource_name = arg;
      resource_name = arg;
      break;
      break;
 
 
    case OPT_fdump_:
    case OPT_fdump_:
      if (!dump_switch_p (arg))
      if (!dump_switch_p (arg))
        return 0;
        return 0;
      break;
      break;
 
 
    case OPT_fencoding_:
    case OPT_fencoding_:
      /* Nothing.  */
      /* Nothing.  */
      break;
      break;
 
 
    case OPT_fextdirs_:
    case OPT_fextdirs_:
      jcf_path_extdirs_arg (arg);
      jcf_path_extdirs_arg (arg);
      break;
      break;
 
 
    case OPT_foutput_class_dir_:
    case OPT_foutput_class_dir_:
      /* FIXME: remove; this is handled by ecj1 now.  */
      /* FIXME: remove; this is handled by ecj1 now.  */
      break;
      break;
 
 
    case OPT_version:
    case OPT_version:
      v_flag = 1;
      v_flag = 1;
      break;
      break;
 
 
    case OPT_fsource_filename_:
    case OPT_fsource_filename_:
      java_read_sourcefilenames (arg);
      java_read_sourcefilenames (arg);
      break;
      break;
 
 
    default:
    default:
      if (cl_options[code].flags & CL_Java)
      if (cl_options[code].flags & CL_Java)
        break;
        break;
      gcc_unreachable ();
      gcc_unreachable ();
    }
    }
 
 
  return 1;
  return 1;
}
}
 
 
/* Global open file.  */
/* Global open file.  */
FILE *finput;
FILE *finput;
 
 
static bool
static bool
java_init (void)
java_init (void)
{
{
  /* FIXME: Indirect dispatch isn't yet compatible with static class
  /* FIXME: Indirect dispatch isn't yet compatible with static class
     init optimization.  */
     init optimization.  */
  if (flag_indirect_dispatch)
  if (flag_indirect_dispatch)
    always_initialize_class_p = true;
    always_initialize_class_p = true;
 
 
  if (!flag_indirect_dispatch)
  if (!flag_indirect_dispatch)
    flag_indirect_classes = false;
    flag_indirect_classes = false;
 
 
  jcf_path_seal (v_flag);
  jcf_path_seal (v_flag);
 
 
  java_init_decl_processing ();
  java_init_decl_processing ();
 
 
  using_eh_for_cleanups ();
  using_eh_for_cleanups ();
 
 
  return true;
  return true;
}
}
 
 
static void
static void
java_finish (void)
java_finish (void)
{
{
  jcf_dependency_write ();
  jcf_dependency_write ();
}
}
 
 
/* Buffer used by lang_printable_name. */
/* Buffer used by lang_printable_name. */
static char *decl_buf = NULL;
static char *decl_buf = NULL;
 
 
/* Allocated size of decl_buf. */
/* Allocated size of decl_buf. */
static int decl_buflen = 0;
static int decl_buflen = 0;
 
 
/* Length of used part of decl_buf;  position for next character. */
/* Length of used part of decl_buf;  position for next character. */
static int decl_bufpos = 0;
static int decl_bufpos = 0;
 
 
/* Append the string STR to decl_buf.
/* Append the string STR to decl_buf.
   It length is given by LEN;  -1 means the string is nul-terminated. */
   It length is given by LEN;  -1 means the string is nul-terminated. */
 
 
static void
static void
put_decl_string (const char *str, int len)
put_decl_string (const char *str, int len)
{
{
  if (len < 0)
  if (len < 0)
    len = strlen (str);
    len = strlen (str);
  if (decl_bufpos + len >= decl_buflen)
  if (decl_bufpos + len >= decl_buflen)
    {
    {
      if (decl_buf == NULL)
      if (decl_buf == NULL)
        {
        {
          decl_buflen = len + 100;
          decl_buflen = len + 100;
          decl_buf = XNEWVEC (char, decl_buflen);
          decl_buf = XNEWVEC (char, decl_buflen);
        }
        }
      else
      else
        {
        {
          decl_buflen *= 2;
          decl_buflen *= 2;
          decl_buf = XRESIZEVAR (char, decl_buf, decl_buflen);
          decl_buf = XRESIZEVAR (char, decl_buf, decl_buflen);
        }
        }
    }
    }
  strcpy (decl_buf + decl_bufpos, str);
  strcpy (decl_buf + decl_bufpos, str);
  decl_bufpos += len;
  decl_bufpos += len;
}
}
 
 
/* Append to decl_buf a printable name for NODE.
/* Append to decl_buf a printable name for NODE.
   Depending on VERBOSITY, more information about NODE
   Depending on VERBOSITY, more information about NODE
   is printed. Read the comments of decl_printable_name in
   is printed. Read the comments of decl_printable_name in
   langhooks.h for more.  */
   langhooks.h for more.  */
 
 
static void
static void
put_decl_node (tree node, int verbosity)
put_decl_node (tree node, int verbosity)
{
{
  int was_pointer = 0;
  int was_pointer = 0;
  if (TREE_CODE (node) == POINTER_TYPE)
  if (TREE_CODE (node) == POINTER_TYPE)
    {
    {
      node = TREE_TYPE (node);
      node = TREE_TYPE (node);
      was_pointer = 1;
      was_pointer = 1;
    }
    }
  if (DECL_P (node) && DECL_NAME (node) != NULL_TREE)
  if (DECL_P (node) && DECL_NAME (node) != NULL_TREE)
    {
    {
      if (TREE_CODE (node) == FUNCTION_DECL)
      if (TREE_CODE (node) == FUNCTION_DECL)
        {
        {
          if (verbosity == 0 && DECL_NAME (node))
          if (verbosity == 0 && DECL_NAME (node))
          /* We have been instructed to just print the bare name
          /* We have been instructed to just print the bare name
             of the function.  */
             of the function.  */
            {
            {
              put_decl_node (DECL_NAME (node), 0);
              put_decl_node (DECL_NAME (node), 0);
              return;
              return;
            }
            }
 
 
          /* We want to print the type the DECL belongs to. We don't do
          /* We want to print the type the DECL belongs to. We don't do
             that when we handle constructors. */
             that when we handle constructors. */
          if (! DECL_CONSTRUCTOR_P (node)
          if (! DECL_CONSTRUCTOR_P (node)
              && ! DECL_ARTIFICIAL (node) && DECL_CONTEXT (node)
              && ! DECL_ARTIFICIAL (node) && DECL_CONTEXT (node)
              /* We want to print qualified DECL names only
              /* We want to print qualified DECL names only
                 if verbosity is higher than 1.  */
                 if verbosity is higher than 1.  */
              && verbosity >= 1)
              && verbosity >= 1)
            {
            {
              put_decl_node (TYPE_NAME (DECL_CONTEXT (node)),
              put_decl_node (TYPE_NAME (DECL_CONTEXT (node)),
                               verbosity);
                               verbosity);
              put_decl_string (".", 1);
              put_decl_string (".", 1);
            }
            }
          if (! DECL_CONSTRUCTOR_P (node))
          if (! DECL_CONSTRUCTOR_P (node))
            put_decl_node (DECL_NAME (node), verbosity);
            put_decl_node (DECL_NAME (node), verbosity);
          if (TREE_TYPE (node) != NULL_TREE
          if (TREE_TYPE (node) != NULL_TREE
              /* We want to print function parameters only if verbosity
              /* We want to print function parameters only if verbosity
                 is higher than 2.  */
                 is higher than 2.  */
              && verbosity >= 2)
              && verbosity >= 2)
            {
            {
              int i = 0;
              int i = 0;
              tree args = TYPE_ARG_TYPES (TREE_TYPE (node));
              tree args = TYPE_ARG_TYPES (TREE_TYPE (node));
              if (TREE_CODE (TREE_TYPE (node)) == METHOD_TYPE)
              if (TREE_CODE (TREE_TYPE (node)) == METHOD_TYPE)
                args = TREE_CHAIN (args);
                args = TREE_CHAIN (args);
              put_decl_string ("(", 1);
              put_decl_string ("(", 1);
              for ( ; args != end_params_node;  args = TREE_CHAIN (args), i++)
              for ( ; args != end_params_node;  args = TREE_CHAIN (args), i++)
                {
                {
                  if (i > 0)
                  if (i > 0)
                    put_decl_string (",", 1);
                    put_decl_string (",", 1);
                  put_decl_node (TREE_VALUE (args), verbosity);
                  put_decl_node (TREE_VALUE (args), verbosity);
                }
                }
              put_decl_string (")", 1);
              put_decl_string (")", 1);
            }
            }
        }
        }
      else
      else
        put_decl_node (DECL_NAME (node), verbosity);
        put_decl_node (DECL_NAME (node), verbosity);
    }
    }
  else if (TYPE_P (node) && TYPE_NAME (node) != NULL_TREE)
  else if (TYPE_P (node) && TYPE_NAME (node) != NULL_TREE)
    {
    {
      if (TREE_CODE (node) == RECORD_TYPE && TYPE_ARRAY_P (node)
      if (TREE_CODE (node) == RECORD_TYPE && TYPE_ARRAY_P (node)
          /* Print detailed array information only if verbosity is higher
          /* Print detailed array information only if verbosity is higher
            than 2.  */
            than 2.  */
          && verbosity >= 2)
          && verbosity >= 2)
        {
        {
          put_decl_node (TYPE_ARRAY_ELEMENT (node), verbosity);
          put_decl_node (TYPE_ARRAY_ELEMENT (node), verbosity);
          put_decl_string("[]", 2);
          put_decl_string("[]", 2);
        }
        }
      else if (node == promoted_byte_type_node)
      else if (node == promoted_byte_type_node)
        put_decl_string ("byte", 4);
        put_decl_string ("byte", 4);
      else if (node == promoted_short_type_node)
      else if (node == promoted_short_type_node)
        put_decl_string ("short", 5);
        put_decl_string ("short", 5);
      else if (node == promoted_char_type_node)
      else if (node == promoted_char_type_node)
        put_decl_string ("char", 4);
        put_decl_string ("char", 4);
      else if (node == promoted_boolean_type_node)
      else if (node == promoted_boolean_type_node)
        put_decl_string ("boolean", 7);
        put_decl_string ("boolean", 7);
      else if (node == void_type_node && was_pointer)
      else if (node == void_type_node && was_pointer)
        put_decl_string ("null", 4);
        put_decl_string ("null", 4);
      else
      else
        put_decl_node (TYPE_NAME (node), verbosity);
        put_decl_node (TYPE_NAME (node), verbosity);
    }
    }
  else if (TREE_CODE (node) == IDENTIFIER_NODE)
  else if (TREE_CODE (node) == IDENTIFIER_NODE)
    put_decl_string (IDENTIFIER_POINTER (node), IDENTIFIER_LENGTH (node));
    put_decl_string (IDENTIFIER_POINTER (node), IDENTIFIER_LENGTH (node));
  else
  else
    put_decl_string ("<unknown>", -1);
    put_decl_string ("<unknown>", -1);
}
}
 
 
/* Return a user-friendly name for DECL.
/* Return a user-friendly name for DECL.
   The resulting string is only valid until the next call.
   The resulting string is only valid until the next call.
   The value of the hook decl_printable_name is this function,
   The value of the hook decl_printable_name is this function,
   which is also called directly by java_print_error_function. */
   which is also called directly by java_print_error_function. */
 
 
const char *
const char *
lang_printable_name (tree decl, int v)
lang_printable_name (tree decl, int v)
{
{
  decl_bufpos = 0;
  decl_bufpos = 0;
  put_decl_node (decl, v);
  put_decl_node (decl, v);
  put_decl_string ("", 1);
  put_decl_string ("", 1);
  return decl_buf;
  return decl_buf;
}
}
 
 
/* Print on stderr the current class and method context.  This function
/* Print on stderr the current class and method context.  This function
   is the value of the hook print_error_function. */
   is the value of the hook print_error_function. */
 
 
static GTY(()) tree last_error_function_context;
static GTY(()) tree last_error_function_context;
static GTY(()) tree last_error_function;
static GTY(()) tree last_error_function;
static void
static void
java_print_error_function (diagnostic_context *context ATTRIBUTE_UNUSED,
java_print_error_function (diagnostic_context *context ATTRIBUTE_UNUSED,
                           const char *file,
                           const char *file,
                           diagnostic_info *diagnostic ATTRIBUTE_UNUSED)
                           diagnostic_info *diagnostic ATTRIBUTE_UNUSED)
{
{
  /* Don't print error messages with bogus function prototypes.  */
  /* Don't print error messages with bogus function prototypes.  */
  if (inhibit_error_function_printing)
  if (inhibit_error_function_printing)
    return;
    return;
 
 
  if (current_function_decl != NULL
  if (current_function_decl != NULL
      && DECL_CONTEXT (current_function_decl) != last_error_function_context)
      && DECL_CONTEXT (current_function_decl) != last_error_function_context)
    {
    {
      if (file)
      if (file)
        fprintf (stderr, "%s: ", file);
        fprintf (stderr, "%s: ", file);
 
 
      last_error_function_context = DECL_CONTEXT (current_function_decl);
      last_error_function_context = DECL_CONTEXT (current_function_decl);
      fprintf (stderr, "In class '%s':\n",
      fprintf (stderr, "In class '%s':\n",
               lang_printable_name (last_error_function_context, 0));
               lang_printable_name (last_error_function_context, 0));
    }
    }
  if (last_error_function != current_function_decl)
  if (last_error_function != current_function_decl)
    {
    {
      if (file)
      if (file)
        fprintf (stderr, "%s: ", file);
        fprintf (stderr, "%s: ", file);
 
 
      if (current_function_decl == NULL)
      if (current_function_decl == NULL)
        fprintf (stderr, "At top level:\n");
        fprintf (stderr, "At top level:\n");
      else
      else
        {
        {
          const char *name = lang_printable_name (current_function_decl, 2);
          const char *name = lang_printable_name (current_function_decl, 2);
          fprintf (stderr, "In %s '%s':\n",
          fprintf (stderr, "In %s '%s':\n",
                   (DECL_CONSTRUCTOR_P (current_function_decl) ? "constructor"
                   (DECL_CONSTRUCTOR_P (current_function_decl) ? "constructor"
                    : "method"),
                    : "method"),
                   name);
                   name);
        }
        }
 
 
      last_error_function = current_function_decl;
      last_error_function = current_function_decl;
    }
    }
 
 
}
}
 
 
/* Called to install the PRINT_ERROR_FUNCTION hook differently
/* Called to install the PRINT_ERROR_FUNCTION hook differently
   according to LEVEL. LEVEL is 1 during early parsing, when function
   according to LEVEL. LEVEL is 1 during early parsing, when function
   prototypes aren't fully resolved. java_print_error_function is set
   prototypes aren't fully resolved. java_print_error_function is set
   so it doesn't print incomplete function prototypes. When LEVEL is
   so it doesn't print incomplete function prototypes. When LEVEL is
   2, function prototypes are fully resolved and can be printed when
   2, function prototypes are fully resolved and can be printed when
   reporting errors.  */
   reporting errors.  */
 
 
void
void
lang_init_source (int level)
lang_init_source (int level)
{
{
  inhibit_error_function_printing = (level == 1);
  inhibit_error_function_printing = (level == 1);
}
}
 
 
static unsigned int
static unsigned int
java_init_options (unsigned int argc ATTRIBUTE_UNUSED,
java_init_options (unsigned int argc ATTRIBUTE_UNUSED,
                   const char **argv ATTRIBUTE_UNUSED)
                   const char **argv ATTRIBUTE_UNUSED)
{
{
  flag_bounds_check = 1;
  flag_bounds_check = 1;
  flag_exceptions = 1;
  flag_exceptions = 1;
  flag_non_call_exceptions = 1;
  flag_non_call_exceptions = 1;
 
 
  /* In Java floating point operations never trap.  */
  /* In Java floating point operations never trap.  */
  flag_trapping_math = 0;
  flag_trapping_math = 0;
 
 
  /* In Java arithmetic overflow always wraps around.  */
  /* In Java arithmetic overflow always wraps around.  */
  flag_wrapv = 1;
  flag_wrapv = 1;
 
 
  /* Java requires left-to-right evaluation of subexpressions.  */
  /* Java requires left-to-right evaluation of subexpressions.  */
  flag_evaluation_order = 1;
  flag_evaluation_order = 1;
 
 
  jcf_path_init ();
  jcf_path_init ();
 
 
  return CL_Java;
  return CL_Java;
}
}
 
 
/* Post-switch processing.  */
/* Post-switch processing.  */
static bool
static bool
java_post_options (const char **pfilename)
java_post_options (const char **pfilename)
{
{
  const char *filename = *pfilename;
  const char *filename = *pfilename;
 
 
  /* Excess precision other than "fast" requires front-end
  /* Excess precision other than "fast" requires front-end
     support.  */
     support.  */
  if (flag_excess_precision_cmdline == EXCESS_PRECISION_STANDARD
  if (flag_excess_precision_cmdline == EXCESS_PRECISION_STANDARD
      && TARGET_FLT_EVAL_METHOD_NON_DEFAULT)
      && TARGET_FLT_EVAL_METHOD_NON_DEFAULT)
    sorry ("-fexcess-precision=standard for Java");
    sorry ("-fexcess-precision=standard for Java");
  flag_excess_precision_cmdline = EXCESS_PRECISION_FAST;
  flag_excess_precision_cmdline = EXCESS_PRECISION_FAST;
 
 
  /* An absolute requirement: if we're not using indirect dispatch, we
  /* An absolute requirement: if we're not using indirect dispatch, we
     must always verify everything.  */
     must always verify everything.  */
  if (! flag_indirect_dispatch)
  if (! flag_indirect_dispatch)
    flag_verify_invocations = true;
    flag_verify_invocations = true;
 
 
  if (flag_reduced_reflection)
  if (flag_reduced_reflection)
    {
    {
      if (flag_indirect_dispatch)
      if (flag_indirect_dispatch)
        error ("-findirect-dispatch is incompatible "
        error ("-findirect-dispatch is incompatible "
               "with -freduced-reflection");
               "with -freduced-reflection");
      if (flag_jni)
      if (flag_jni)
        error ("-fjni is incompatible with -freduced-reflection");
        error ("-fjni is incompatible with -freduced-reflection");
    }
    }
 
 
  /* Open input file.  */
  /* Open input file.  */
 
 
  if (filename == 0 || !strcmp (filename, "-"))
  if (filename == 0 || !strcmp (filename, "-"))
    {
    {
      finput = stdin;
      finput = stdin;
      filename = "stdin";
      filename = "stdin";
 
 
      if (dependency_tracking)
      if (dependency_tracking)
        error ("can't do dependency tracking with input from stdin");
        error ("can't do dependency tracking with input from stdin");
    }
    }
  else
  else
    {
    {
      if (dependency_tracking)
      if (dependency_tracking)
        {
        {
          const char *dot;
          const char *dot;
 
 
          /* If the target is set and the output filename is set, then
          /* If the target is set and the output filename is set, then
             there's no processing to do here.  Otherwise we must
             there's no processing to do here.  Otherwise we must
             compute one or the other.  */
             compute one or the other.  */
          if (! ((dependency_tracking & DEPEND_TARGET_SET)
          if (! ((dependency_tracking & DEPEND_TARGET_SET)
                 && (dependency_tracking & DEPEND_FILE_ALREADY_SET)))
                 && (dependency_tracking & DEPEND_FILE_ALREADY_SET)))
            {
            {
              dot = strrchr (filename, '.');
              dot = strrchr (filename, '.');
              if (dot == NULL)
              if (dot == NULL)
                error ("couldn't determine target name for dependency tracking");
                error ("couldn't determine target name for dependency tracking");
              else
              else
                {
                {
                  char *buf = XNEWVEC (char, dot - filename +
                  char *buf = XNEWVEC (char, dot - filename +
                                       3 + sizeof (TARGET_OBJECT_SUFFIX));
                                       3 + sizeof (TARGET_OBJECT_SUFFIX));
                  strncpy (buf, filename, dot - filename);
                  strncpy (buf, filename, dot - filename);
 
 
                  /* If emitting class files, we might have multiple
                  /* If emitting class files, we might have multiple
                     targets.  The class generation code takes care of
                     targets.  The class generation code takes care of
                     registering them.  Otherwise we compute the
                     registering them.  Otherwise we compute the
                     target name here.  */
                     target name here.  */
                  if ((dependency_tracking & DEPEND_TARGET_SET))
                  if ((dependency_tracking & DEPEND_TARGET_SET))
                    ; /* Nothing.  */
                    ; /* Nothing.  */
                  else
                  else
                    {
                    {
                      strcpy (buf + (dot - filename), TARGET_OBJECT_SUFFIX);
                      strcpy (buf + (dot - filename), TARGET_OBJECT_SUFFIX);
                      jcf_dependency_set_target (buf);
                      jcf_dependency_set_target (buf);
                    }
                    }
 
 
                  if ((dependency_tracking & DEPEND_FILE_ALREADY_SET))
                  if ((dependency_tracking & DEPEND_FILE_ALREADY_SET))
                    ; /* Nothing.  */
                    ; /* Nothing.  */
                  else if ((dependency_tracking & DEPEND_SET_FILE))
                  else if ((dependency_tracking & DEPEND_SET_FILE))
                    {
                    {
                      strcpy (buf + (dot - filename), ".d");
                      strcpy (buf + (dot - filename), ".d");
                      jcf_dependency_set_dep_file (buf);
                      jcf_dependency_set_dep_file (buf);
                    }
                    }
                  else
                  else
                    jcf_dependency_set_dep_file ("-");
                    jcf_dependency_set_dep_file ("-");
 
 
                  free (buf);
                  free (buf);
                }
                }
            }
            }
        }
        }
    }
    }
  linemap_add (line_table, LC_ENTER, false, filename, 0);
  linemap_add (line_table, LC_ENTER, false, filename, 0);
  linemap_add (line_table, LC_RENAME, false, "<built-in>", 0);
  linemap_add (line_table, LC_RENAME, false, "<built-in>", 0);
 
 
  /* Initialize the compiler back end.  */
  /* Initialize the compiler back end.  */
  return false;
  return false;
}
}
 
 
/* Return either DECL or its known constant value (if it has one).  */
/* Return either DECL or its known constant value (if it has one).  */
 
 
tree
tree
decl_constant_value (tree decl)
decl_constant_value (tree decl)
{
{
  if (/* Don't change a variable array bound or initial value to a constant
  if (/* Don't change a variable array bound or initial value to a constant
         in a place where a variable is invalid.  */
         in a place where a variable is invalid.  */
      current_function_decl != 0
      current_function_decl != 0
      && ! TREE_THIS_VOLATILE (decl)
      && ! TREE_THIS_VOLATILE (decl)
      && TREE_READONLY (decl)
      && TREE_READONLY (decl)
      && DECL_INITIAL (decl) != 0
      && DECL_INITIAL (decl) != 0
      && TREE_CODE (DECL_INITIAL (decl)) != ERROR_MARK
      && TREE_CODE (DECL_INITIAL (decl)) != ERROR_MARK
      /* This is invalid if initial value is not constant.
      /* This is invalid if initial value is not constant.
         If it has either a function call, a memory reference,
         If it has either a function call, a memory reference,
         or a variable, then re-evaluating it could give different results.  */
         or a variable, then re-evaluating it could give different results.  */
      && TREE_CONSTANT (DECL_INITIAL (decl))
      && TREE_CONSTANT (DECL_INITIAL (decl))
      /* Check for cases where this is sub-optimal, even though valid.  */
      /* Check for cases where this is sub-optimal, even though valid.  */
      && TREE_CODE (DECL_INITIAL (decl)) != CONSTRUCTOR)
      && TREE_CODE (DECL_INITIAL (decl)) != CONSTRUCTOR)
    return DECL_INITIAL (decl);
    return DECL_INITIAL (decl);
  return decl;
  return decl;
}
}
 
 
/* Every call to a static constructor has an associated boolean
/* Every call to a static constructor has an associated boolean
   variable which is in the outermost scope of the calling method.
   variable which is in the outermost scope of the calling method.
   This variable is used to avoid multiple calls to the static
   This variable is used to avoid multiple calls to the static
   constructor for each class.
   constructor for each class.
 
 
   It looks something like this:
   It looks something like this:
 
 
   foo ()
   foo ()
   {
   {
      boolean dummy = OtherClass.is_initialized;
      boolean dummy = OtherClass.is_initialized;
 
 
     ...
     ...
 
 
     if (! dummy)
     if (! dummy)
       OtherClass.initialize();
       OtherClass.initialize();
 
 
     ... use OtherClass.data ...
     ... use OtherClass.data ...
   }
   }
 
 
   Each of these boolean variables has an entry in the
   Each of these boolean variables has an entry in the
   DECL_FUNCTION_INIT_TEST_TABLE of a method.  When inlining a method
   DECL_FUNCTION_INIT_TEST_TABLE of a method.  When inlining a method
   we must merge the DECL_FUNCTION_INIT_TEST_TABLE from the function
   we must merge the DECL_FUNCTION_INIT_TEST_TABLE from the function
   being inlined and create the boolean variables in the outermost
   being inlined and create the boolean variables in the outermost
   scope of the method being inlined into.  */
   scope of the method being inlined into.  */
 
 
/* Create a mapping from a boolean variable in a method being inlined
/* Create a mapping from a boolean variable in a method being inlined
   to one in the scope of the method being inlined into.  */
   to one in the scope of the method being inlined into.  */
 
 
static int
static int
merge_init_test_initialization (void **entry, void *x)
merge_init_test_initialization (void **entry, void *x)
{
{
  struct treetreehash_entry *ite = (struct treetreehash_entry *) *entry;
  struct treetreehash_entry *ite = (struct treetreehash_entry *) *entry;
  splay_tree decl_map = (splay_tree)x;
  splay_tree decl_map = (splay_tree)x;
  splay_tree_node n;
  splay_tree_node n;
  tree *init_test_decl;
  tree *init_test_decl;
 
 
  /* See if we have remapped this declaration.  If we haven't there's
  /* See if we have remapped this declaration.  If we haven't there's
     a bug in the inliner.  */
     a bug in the inliner.  */
  n = splay_tree_lookup (decl_map, (splay_tree_key) ite->value);
  n = splay_tree_lookup (decl_map, (splay_tree_key) ite->value);
  gcc_assert (n);
  gcc_assert (n);
 
 
  /* Create a new entry for the class and its remapped boolean
  /* Create a new entry for the class and its remapped boolean
     variable.  If we already have a mapping for this class we've
     variable.  If we already have a mapping for this class we've
     already initialized it, so don't overwrite the value.  */
     already initialized it, so don't overwrite the value.  */
  init_test_decl = java_treetreehash_new
  init_test_decl = java_treetreehash_new
    (DECL_FUNCTION_INIT_TEST_TABLE (current_function_decl), ite->key);
    (DECL_FUNCTION_INIT_TEST_TABLE (current_function_decl), ite->key);
  if (!*init_test_decl)
  if (!*init_test_decl)
    *init_test_decl = (tree)n->value;
    *init_test_decl = (tree)n->value;
 
 
  /* This fixes a weird case.
  /* This fixes a weird case.
 
 
  The front end assumes that once we have called a method that
  The front end assumes that once we have called a method that
  initializes some class, we can assume the class is initialized.  It
  initializes some class, we can assume the class is initialized.  It
  does this by setting the DECL_INITIAL of the init_test_decl for that
  does this by setting the DECL_INITIAL of the init_test_decl for that
  class, and no initializations are emitted for that class.
  class, and no initializations are emitted for that class.
 
 
  However, what if the method that is supposed to do the initialization
  However, what if the method that is supposed to do the initialization
  is itself inlined in the caller?  When expanding the called method
  is itself inlined in the caller?  When expanding the called method
  we'll assume that the class initialization has already been done,
  we'll assume that the class initialization has already been done,
  because the DECL_INITIAL of the init_test_decl is set.
  because the DECL_INITIAL of the init_test_decl is set.
 
 
  To fix this we remove the DECL_INITIAL (in the caller scope) of all
  To fix this we remove the DECL_INITIAL (in the caller scope) of all
  the init_test_decls corresponding to classes initialized by the
  the init_test_decls corresponding to classes initialized by the
  inlined method.  This makes the caller no longer assume that the
  inlined method.  This makes the caller no longer assume that the
  method being inlined does any class initializations.  */
  method being inlined does any class initializations.  */
  DECL_INITIAL (*init_test_decl) = NULL;
  DECL_INITIAL (*init_test_decl) = NULL;
 
 
  return true;
  return true;
}
}
 
 
/* Merge the DECL_FUNCTION_INIT_TEST_TABLE from the function we're
/* Merge the DECL_FUNCTION_INIT_TEST_TABLE from the function we're
   inlining.  */
   inlining.  */
 
 
void
void
java_inlining_merge_static_initializers (tree fn, void *decl_map)
java_inlining_merge_static_initializers (tree fn, void *decl_map)
{
{
  htab_traverse
  htab_traverse
    (DECL_FUNCTION_INIT_TEST_TABLE (fn),
    (DECL_FUNCTION_INIT_TEST_TABLE (fn),
     merge_init_test_initialization, decl_map);
     merge_init_test_initialization, decl_map);
}
}
 
 
/* Lookup a DECL_FUNCTION_INIT_TEST_TABLE entry in the method we're
/* Lookup a DECL_FUNCTION_INIT_TEST_TABLE entry in the method we're
   inlining into.  If we already have a corresponding entry in that
   inlining into.  If we already have a corresponding entry in that
   class we don't need to create another one, so we create a mapping
   class we don't need to create another one, so we create a mapping
   from the variable in the inlined class to the corresponding
   from the variable in the inlined class to the corresponding
   pre-existing one.  */
   pre-existing one.  */
 
 
static int
static int
inline_init_test_initialization (void **entry, void *x)
inline_init_test_initialization (void **entry, void *x)
{
{
  struct treetreehash_entry *ite = (struct treetreehash_entry *) *entry;
  struct treetreehash_entry *ite = (struct treetreehash_entry *) *entry;
  splay_tree decl_map = (splay_tree)x;
  splay_tree decl_map = (splay_tree)x;
 
 
  tree h = java_treetreehash_find
  tree h = java_treetreehash_find
    (DECL_FUNCTION_INIT_TEST_TABLE (current_function_decl), ite->key);
    (DECL_FUNCTION_INIT_TEST_TABLE (current_function_decl), ite->key);
  if (! h)
  if (! h)
    return true;
    return true;
  splay_tree_insert (decl_map,
  splay_tree_insert (decl_map,
                     (splay_tree_key) ite->value,
                     (splay_tree_key) ite->value,
                     (splay_tree_value) h);
                     (splay_tree_value) h);
  return true;
  return true;
}
}
 
 
/* Look up the boolean variables in the DECL_FUNCTION_INIT_TEST_TABLE
/* Look up the boolean variables in the DECL_FUNCTION_INIT_TEST_TABLE
   of a method being inlined.  For each hone, if we already have a
   of a method being inlined.  For each hone, if we already have a
   variable associated with the same class in the method being inlined
   variable associated with the same class in the method being inlined
   into, create a new mapping for it.  */
   into, create a new mapping for it.  */
 
 
void
void
java_inlining_map_static_initializers (tree fn, void *decl_map)
java_inlining_map_static_initializers (tree fn, void *decl_map)
{
{
  htab_traverse
  htab_traverse
    (DECL_FUNCTION_INIT_TEST_TABLE (fn),
    (DECL_FUNCTION_INIT_TEST_TABLE (fn),
     inline_init_test_initialization, decl_map);
     inline_init_test_initialization, decl_map);
}
}
 
 
/* Avoid voluminous output for deep recursion of compound exprs.  */
/* Avoid voluminous output for deep recursion of compound exprs.  */
 
 
static void
static void
dump_compound_expr (dump_info_p di, tree t)
dump_compound_expr (dump_info_p di, tree t)
{
{
  int i;
  int i;
 
 
  for (i=0; i<2; i++)
  for (i=0; i<2; i++)
    {
    {
      switch (TREE_CODE (TREE_OPERAND (t, i)))
      switch (TREE_CODE (TREE_OPERAND (t, i)))
        {
        {
        case COMPOUND_EXPR:
        case COMPOUND_EXPR:
          dump_compound_expr (di, TREE_OPERAND (t, i));
          dump_compound_expr (di, TREE_OPERAND (t, i));
          break;
          break;
 
 
        default:
        default:
          dump_child ("expr", TREE_OPERAND (t, i));
          dump_child ("expr", TREE_OPERAND (t, i));
        }
        }
    }
    }
}
}
 
 
static bool
static bool
java_dump_tree (void *dump_info, tree t)
java_dump_tree (void *dump_info, tree t)
{
{
  enum tree_code code;
  enum tree_code code;
  dump_info_p di = (dump_info_p) dump_info;
  dump_info_p di = (dump_info_p) dump_info;
 
 
  /* Figure out what kind of node this is.  */
  /* Figure out what kind of node this is.  */
  code = TREE_CODE (t);
  code = TREE_CODE (t);
 
 
  switch (code)
  switch (code)
    {
    {
    case FUNCTION_DECL:
    case FUNCTION_DECL:
      dump_child ("args", DECL_ARGUMENTS (t));
      dump_child ("args", DECL_ARGUMENTS (t));
      if (DECL_EXTERNAL (t))
      if (DECL_EXTERNAL (t))
        dump_string (di, "undefined");
        dump_string (di, "undefined");
      if (TREE_PUBLIC (t))
      if (TREE_PUBLIC (t))
        dump_string (di, "extern");
        dump_string (di, "extern");
      else
      else
        dump_string (di, "static");
        dump_string (di, "static");
      if (DECL_LANG_SPECIFIC (t) && !dump_flag (di, TDF_SLIM, t))
      if (DECL_LANG_SPECIFIC (t) && !dump_flag (di, TDF_SLIM, t))
        dump_child ("inline body", DECL_SAVED_TREE (t));
        dump_child ("inline body", DECL_SAVED_TREE (t));
      return true;
      return true;
 
 
    case RETURN_EXPR:
    case RETURN_EXPR:
      dump_child ("expr", TREE_OPERAND (t, 0));
      dump_child ("expr", TREE_OPERAND (t, 0));
      return true;
      return true;
 
 
    case GOTO_EXPR:
    case GOTO_EXPR:
      dump_child ("goto", TREE_OPERAND (t, 0));
      dump_child ("goto", TREE_OPERAND (t, 0));
      return true;
      return true;
 
 
    case LABEL_EXPR:
    case LABEL_EXPR:
      dump_child ("label", TREE_OPERAND (t, 0));
      dump_child ("label", TREE_OPERAND (t, 0));
      return true;
      return true;
 
 
    case BLOCK:
    case BLOCK:
      if (BLOCK_EXPR_BODY (t))
      if (BLOCK_EXPR_BODY (t))
        {
        {
          tree local = BLOCK_VARS (t);
          tree local = BLOCK_VARS (t);
          while (local)
          while (local)
            {
            {
              tree next = TREE_CHAIN (local);
              tree next = TREE_CHAIN (local);
              dump_child ("var", local);
              dump_child ("var", local);
              local = next;
              local = next;
            }
            }
 
 
          {
          {
            tree block = BLOCK_EXPR_BODY (t);
            tree block = BLOCK_EXPR_BODY (t);
            dump_child ("body", block);
            dump_child ("body", block);
            block = TREE_CHAIN (block);
            block = TREE_CHAIN (block);
          }
          }
        }
        }
      return true;
      return true;
 
 
    case COMPOUND_EXPR:
    case COMPOUND_EXPR:
      if (!dump_flag (di, TDF_SLIM, t))
      if (!dump_flag (di, TDF_SLIM, t))
        return false;
        return false;
      dump_compound_expr (di, t);
      dump_compound_expr (di, t);
      return true;
      return true;
 
 
    default:
    default:
      break;
      break;
    }
    }
  return false;
  return false;
}
}
 
 
/* Java calls can't, in general, be sibcalls because we need an
/* Java calls can't, in general, be sibcalls because we need an
   accurate stack trace in order to guarantee correct operation of
   accurate stack trace in order to guarantee correct operation of
   methods such as Class.forName(String) and
   methods such as Class.forName(String) and
   SecurityManager.getClassContext().  */
   SecurityManager.getClassContext().  */
 
 
static bool
static bool
java_decl_ok_for_sibcall (const_tree decl)
java_decl_ok_for_sibcall (const_tree decl)
{
{
  return (decl != NULL && DECL_CONTEXT (decl) == output_class
  return (decl != NULL && DECL_CONTEXT (decl) == output_class
          && !DECL_UNINLINABLE (decl));
          && !DECL_UNINLINABLE (decl));
}
}
 
 
static enum classify_record
static enum classify_record
java_classify_record (tree type)
java_classify_record (tree type)
{
{
  if (! CLASS_P (type))
  if (! CLASS_P (type))
    return RECORD_IS_STRUCT;
    return RECORD_IS_STRUCT;
 
 
  /* ??? GDB does not support DW_TAG_interface_type as of December,
  /* ??? GDB does not support DW_TAG_interface_type as of December,
     2007.  Re-enable this at a later time.  */
     2007.  Re-enable this at a later time.  */
  if (0 && CLASS_INTERFACE (TYPE_NAME (type)))
  if (0 && CLASS_INTERFACE (TYPE_NAME (type)))
    return RECORD_IS_INTERFACE;
    return RECORD_IS_INTERFACE;
 
 
  return RECORD_IS_CLASS;
  return RECORD_IS_CLASS;
}
}
 
 
static GTY(()) tree java_eh_personality_decl;
static GTY(()) tree java_eh_personality_decl;
 
 
static tree
static tree
java_eh_personality (void)
java_eh_personality (void)
{
{
  if (!java_eh_personality_decl)
  if (!java_eh_personality_decl)
    java_eh_personality_decl
    java_eh_personality_decl
      = build_personality_function (USING_SJLJ_EXCEPTIONS
      = build_personality_function (USING_SJLJ_EXCEPTIONS
                                    ? "__gcj_personality_sj0"
                                    ? "__gcj_personality_sj0"
                                    : "__gcj_personality_v0");
                                    : "__gcj_personality_v0");
 
 
  return java_eh_personality_decl;
  return java_eh_personality_decl;
}
}
 
 
#include "gt-java-lang.h"
#include "gt-java-lang.h"
 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.