Cleanups vis-a-vis g77-0.5.24:

Mon Jul 13 18:02:29 1998  Craig Burley  <burley@gnu.org>
	Cleanups vis-a-vis g77-0.5.24:
	* g77spec.c (lang_specific_driver): Tabify source.
	* top.c (ffe_decode_option): Use fixed macro to set
	internal-checking flag.
	* top.h (ffe_set_is_do_internal_checks): Fix macro.

From-SVN: r21182

diff --git a/gcc/f/g77spec.c b/gcc/f/g77spec.c
index fa967d05560a7393064e39aca2dbe501387f08f3..c3850e42e3dd519c2d21598e352ad00bb5e5c0f0 100644 (file)
--- a/gcc/f/g77spec.c
+++ b/gcc/f/g77spec.c
@@ -511,8 +511,8 @@ Report bugs to <egcs-bugs@cygnus.org>.\n");
            {
              if (saw_library == 1)
                saw_library = 2;        /* -l<library> -lm. */
-            else
-              append_arg (FORTRAN_LIBRARY);
+             else
+               append_arg (FORTRAN_LIBRARY);
            }
          else if (strcmp (argv[i], FORTRAN_LIBRARY) == 0)
            saw_library = 1;    /* -l<library>. */

diff --git a/gcc/f/top.c b/gcc/f/top.c
index 0b23ab18fe53b05c2842c409ba2e47eaec1d414b..17e4139bb7de681ef908d8579f7a40a4e2cb1f63 100644 (file)
--- a/gcc/f/top.c
+++ b/gcc/f/top.c
@@ -173,7 +173,7 @@ ffe_decode_option (argc, argv)
       if (strcmp (&opt[2], "version") == 0)
        {
          ffe_set_is_version (TRUE);
-         ffe_is_do_internal_checks_ = TRUE;
+         ffe_set_is_do_internal_checks (TRUE);
        }
       else if (strcmp (&opt[2], "null-version") == 0)
        ffe_set_is_null_version (TRUE);

diff --git a/gcc/f/top.h b/gcc/f/top.h
index 20994bd3392b7c357a120cab3a9aa887a88e4249..bae6787537d9970fb6d2bac453c9de5430ce823f 100644 (file)
--- a/gcc/f/top.h
+++ b/gcc/f/top.h
@@ -224,7 +224,7 @@ void ffe_terminate_4 (void);
 #define ffe_set_is_automatic(f) (ffe_is_automatic_ = (f))
 #define ffe_set_is_backslash(f) (ffe_is_backslash_ = (f))
 #define ffe_set_is_debug_kludge(f) (ffe_is_debug_kludge_ = (f))
-#define ffe_set_is_do_internal_checks(f) (ffe_set_is_do_internal_checks_ = (f))
+#define ffe_set_is_do_internal_checks(f) (ffe_is_do_internal_checks_ = (f))
 #define ffe_set_is_dollar_ok(f) (ffe_is_dollar_ok_ = (f))
 #define ffe_set_is_emulate_complex(f) (ffe_is_emulate_complex_ = (f))
 #define ffe_set_is_f2c(f) (ffe_is_f2c_ = (f))