g77.info*: Rebuilt.

        * g77.info*: Rebuilt.

        * config-lang.in: Don't demand the backend patch.
        * com.c (lang_printable_name): Second argument is now an int.  Don't
        store into the value of the second argument.
        * top.c (ffe_decode_option): Temporarily disable setting
        of "Toon" loop options until we figure out how to address
        them.

Make g77 work with gcc3.

From-SVN: r14775

4 files changed, 38 insertions, 20 deletions

diff --git a/gcc/f/ChangeLog.gcc3 b/gcc/f/ChangeLog.gcc3
new file mode 100644
index 0000000..992e158
--- /dev/null
+++ b/gcc/f/ChangeLog.gcc3
@@ -0,0 +1,17 @@
+Tue Aug 12 10:23:02 1997  Jeffrey A Law  (law@cygnus.com)
+
+	* g77.info*: Rebuilt.
+
+	* config-lang.in: Don't demand the backend patch.
+	* com.c (lang_printable_name): Second argument is now an int.  Don't
+	store into the value of the second argument.
+	* top.c (ffe_decode_option): Temporarily disable setting
+	of "Toon" loop options until we figure out how to address
+	them.
+
+Mon Aug 11 23:18:35 1997  Jeffrey A Law  (law@cygnus.com)
+
+	* g77-0.5.21-19970811 Imported.
+	This file describes changes to the front end necessary to make
+	it work with gcc3.
+
diff --git a/gcc/f/com.c b/gcc/f/com.c
index 65a6ea9..344cd71 100644
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -506,7 +506,7 @@ static tree builtin_function (char *name, tree type,
 static int duplicate_decls (tree newdecl, tree olddecl);
 static void finish_decl (tree decl, tree init, bool is_top_level);
 static void finish_function (int nested);
-static char *lang_printable_name (tree decl, char **kind);
+static char *lang_printable_name (tree decl, int v);
 static tree lookup_name_current_level (tree name);
 static struct binding_level *make_binding_level (void);
 static void pop_f_function_context (void);
@@ -14148,9 +14148,8 @@ finish_function (int nested)
    nested function and all).  */
 
 static char *
-lang_printable_name (tree decl, char **kind)
+lang_printable_name (tree decl, int v)
 {
-  *kind = "program unit";
   return IDENTIFIER_POINTER (DECL_NAME (decl));
 }
 
diff --git a/gcc/f/config-lang.in b/gcc/f/config-lang.in
index 7462624..7a4f7ec 100644
--- a/gcc/f/config-lang.in
+++ b/gcc/f/config-lang.in
@@ -26,23 +26,23 @@
 # stagestuff	- files to add to $(STAGESTUFF)
 # diff_excludes	- files to ignore when building diffs between two versions.
 
-if grep DECL_STATIC_CONSTRUCTOR $srcdir/tree.h >/dev/null; then
-   if grep flag_move_all_movables $srcdir/toplev.c >/dev/null; then true
-   else
-      echo "You haven't applied the patches to the GCC 2.7.x distribution in"
-      echo "$srcdir as described in g77/README.g77 and gcc/f/gbe/README."
-      echo ""
-      exit 1
-   fi
-else
-   if grep put_pending_sizes $srcdir/stor-layout.c >/dev/null; then true
-   else
-      echo "You haven't applied the patches to the GCC 2.6.x distribution in"
-      echo "$srcdir as described in g77/README.g77 and gcc/f/gbe/README."
-      echo ""
-      exit 1
-   fi
-fi
+#if grep DECL_STATIC_CONSTRUCTOR $srcdir/tree.h >/dev/null; then
+#   if grep flag_move_all_movables $srcdir/toplev.c >/dev/null; then true
+#   else
+#      echo "You haven't applied the patches to the GCC 2.7.x distribution in"
+#      echo "$srcdir as described in g77/README.g77 and gcc/f/gbe/README."
+#      echo ""
+#      exit 1
+#   fi
+#else
+#   if grep put_pending_sizes $srcdir/stor-layout.c >/dev/null; then true
+#   else
+#      echo "You haven't applied the patches to the GCC 2.6.x distribution in"
+#      echo "$srcdir as described in g77/README.g77 and gcc/f/gbe/README."
+#      echo ""
+#      exit 1
+#   fi
+#fi
 
 language="f77"
 
diff --git a/gcc/f/top.c b/gcc/f/top.c
index 50d596e..786b01f 100644
--- a/gcc/f/top.c
+++ b/gcc/f/top.c
@@ -175,9 +175,11 @@ ffe_decode_option (char *opt)
 	{
 	  ffe_is_do_internal_checks_ = 0;
 #if BUILT_FOR_270	/* User must have applied patch (circa 2.7.2 and beyond). */
+#if 0
 	  flag_move_all_movables = 1;
 	  flag_reduce_all_givs = 1;
 	  flag_rerun_loop_opt = 1;
+#endif
 	  flag_argument_noalias = 2;
 #endif
 	}