* 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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@14775 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/f/ChangeLog.gcc3 b/gcc/f/ChangeLog.gcc3
new file mode 100644 (file)
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 (file)
--- 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 (file)
--- 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 (file)
--- 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
        }