obtained gcc-4.6.4.tar.bz2 from upstream website;upstream

verified gcc-4.6.4.tar.bz2.sig;
imported gcc-4.6.4 source tree from verified upstream tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.

1 files changed, 187 insertions, 0 deletions

diff --git a/gcc/java/jvgenmain.c b/gcc/java/jvgenmain.c
new file mode 100644
index 000000000..128c8ec59
--- /dev/null
+++ b/gcc/java/jvgenmain.c
@@ -0,0 +1,187 @@
+/* Program to generate "main" a Java(TM) class containing a main method.
+   Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
+   2007, 2008, 2010 Free Software Foundation, Inc.
+
+This file is part of GCC.
+
+GCC is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 3, or (at your option)
+any later version.
+
+GCC is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with GCC; see the file COPYING3.  If not see
+<http://www.gnu.org/licenses/>. 
+
+Java and all Java-based marks are trademarks or registered trademarks
+of Sun Microsystems, Inc. in the United States and other countries.
+The Free Software Foundation is independent of Sun Microsystems, Inc.  */
+
+/* Written by Per Bothner <bothner@cygnus.com> */
+
+#include "config.h"
+#include "system.h"
+#include "coretypes.h"
+#include "obstack.h"
+#include "jcf.h"
+#include "tree.h"
+#include "java-tree.h"
+#include "intl.h"
+#include "tm.h"         /* FIXME: For gcc_obstack_init from defaults.h.  */
+
+static char * do_mangle_classname (const char *string);
+
+struct obstack  name_obstack;
+struct obstack *mangle_obstack = &name_obstack;
+
+static void usage (const char *) ATTRIBUTE_NORETURN;
+
+static void
+usage (const char *name)
+{
+  fprintf (stderr, _("Usage: %s [OPTIONS]... CLASSNAMEmain [OUTFILE]\n"),
+	   name);
+  exit (1);
+}
+
+int
+main (int argc, char **argv)
+{
+  char *classname, *p;
+  FILE *stream;
+  const char *mangled_classname;
+  int i, last_arg;
+  int indirect = 0;
+  char *prog_name = argv[0];
+
+  /* Unlock the stdio streams.  */
+  unlock_std_streams ();
+
+  gcc_init_libintl ();
+
+  if (argc > 1 && ! strcmp (argv[1], "-findirect-dispatch"))
+    {
+      indirect = 1;
+      ++argv;
+      --argc;
+    }
+
+  if (argc < 2)
+    usage (prog_name);
+
+  for (i = 1; i < argc; ++i)
+    {
+      if (! strncmp (argv[i], "-D", 2))
+	{
+	  /* Handled later.  Check "-D XXX=YYY".  */
+	  if (argv[i][2] == '\0')
+	    i++;
+	}
+      else
+	break;
+    }
+
+  if (i < argc - 2 || i == argc)
+    usage (prog_name);
+  last_arg = i;
+
+  classname = argv[i];
+
+  /* gcj always appends `main' to classname.  We need to strip this here.  */
+  p = strrchr (classname, 'm');
+  if (p == NULL || p == classname || strcmp (p, "main") != 0)
+    usage (prog_name);
+  else
+    *p = '\0';
+
+  gcc_obstack_init (mangle_obstack);
+  mangled_classname = do_mangle_classname (classname);
+
+  if (i < argc - 1 && strcmp (argv[i + 1], "-") != 0)
+    {
+      const char *outfile = argv[i + 1];
+      stream = fopen (outfile, "w");
+      if (stream == NULL)
+	{
+	  fprintf (stderr, _("%s: Cannot open output file: %s\n"),
+		   prog_name, outfile);
+	  exit (1);
+	}
+    }
+  else
+    stream = stdout;
+
+  /* At this point every element of ARGV from 1 to LAST_ARG is a `-D'
+     option.  Process them appropriately.  */
+  fprintf (stream, "extern const char **_Jv_Compiler_Properties;\n");
+  fprintf (stream, "static const char *props[] =\n{\n");
+  for (i = 1; i < last_arg; ++i)
+    {
+      const char *p;
+
+      if (strcmp (argv[i], "-D") == 0)
+	continue;
+
+      fprintf (stream, "  \"");
+      for (p = argv[i]; *p; ++p)
+	{
+	  if (! ISPRINT (*p))
+	    fprintf (stream, "\\%o", *p);
+	  else if (*p == '\\' || *p == '"')
+	    fprintf (stream, "\\%c", *p);
+	  else
+	    putc (*p, stream);
+	}
+      fprintf (stream, "\",\n");
+    }
+  fprintf (stream, "  0\n};\n\n");
+
+  fprintf (stream, "int main (int argc, const char **argv)\n");
+  fprintf (stream, "{\n");
+  fprintf (stream, "   _Jv_Compiler_Properties = props;\n");
+  if (indirect)
+    fprintf (stream, "   JvRunMainName (\"%s\", argc, argv);\n", classname);
+  else
+    {
+      fprintf (stream, "   extern char %s;\n", mangled_classname);
+      fprintf (stream, "   JvRunMain (&%s, argc, argv);\n", mangled_classname);
+    }
+  fprintf (stream, "}\n");
+  if (stream != stdout && fclose (stream) != 0)
+    {
+      fprintf (stderr, _("%s: Failed to close output file %s\n"),
+	       prog_name, argv[2]);
+      exit (1);
+    }
+  return 0;
+}
+
+
+static char *
+do_mangle_classname (const char *string)
+{
+  const char *ptr;
+  int count = 0;
+
+  obstack_grow (&name_obstack, "_ZN", 3);
+
+  for (ptr = string; *ptr; ptr++ )
+    {
+      if (*ptr == '.')
+	{
+	  append_gpp_mangled_name (ptr - count, count);
+	  count = 0;
+	}
+      else
+	count++;
+    }
+  append_gpp_mangled_name (&ptr [-count], count);
+  obstack_grow (mangle_obstack, "6class$E", strlen ("6class$E"));
+  obstack_1grow (mangle_obstack, '\0');
+  return XOBFINISH (mangle_obstack, char *);
+}