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: r21177

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 5495bb96da82488d679e3f6d40e5b08661e72e61..990e3f3745fce545398462bb725abf183562d1c6 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,11 @@
+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.
+
 Mon Jul 13 17:33:44 1998  Craig Burley  <burley@gnu.org>
 
        Cleanups vis-a-vis system.h cutover and g77-0.5.24:

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/news.texi b/gcc/f/news.texi
index b64ba3d3d1fc420485d7c2e70363191deaa1091e..61505847e1bbcd8da2327f2d8e943666ef269aa7 100644 (file)
--- a/gcc/f/news.texi
+++ b/gcc/f/news.texi
@@ -46,17 +46,8 @@ Miscellany
 This order is not strict---for example, some items
 involve a combination of these elements.
 
-@heading In 0.5.24:
+@heading In @code{egcs} 1.1:
 @itemize @bullet
-@item
-The @code{g77} driver now ensures that @samp{-lg2c}
-is specified in the link phase prior to any
-occurrence of @samp{-lm}.
-This prevents accidentally linking to a routine
-in the SunOS4 @samp{-lm} library
-when the generated code wants to link to the one
-in @code{libf2c} (@code{libg2c}).
-
 @item
 @code{g77} no longer produces incorrect code
 and initial values
@@ -82,6 +73,41 @@ Previously, @code{g77} treated these expressions
 as denoting special ``pointer'' arguments
 for the purposes of filewide analysis.
 
+@item
+The @code{g77} driver now ensures that @samp{-lg2c}
+is specified in the link phase prior to any
+occurrence of @samp{-lm}.
+This prevents accidentally linking to a routine
+in the SunOS4 @samp{-lm} library
+when the generated code wants to link to the one
+in @code{libf2c} (@code{libg2c}).
+
+@item
+@code{g77} emits more debugging information when
+@samp{-g} is used.
+
+This new information allows, for example,
+@kbd{which __g77_length_a} to be used in @code{gdb}
+to determine the type of the phantom length argument
+supplied with @samp{CHARACTER} variables.
+
+This information pertains to internally-generated
+type, variable, and other information,
+not to the longstanding deficiencies vis-a-vis
+@samp{COMMON} and @samp{EQUIVALENCE}.
+
+@item
+The F90 @samp{DATE_AND_TIME} intrinsic now is
+supported.
+
+@item
+The F90 @samp{SYSTEM_CLOCK} intrinsic allows
+the optional arguments (except for the @samp{Count}
+argument) to be omitted.
+
+@item
+Upgrade to @code{libf2c} as of 1998-06-18.
+
 @item
 Improve documentation and indexing.
 @end itemize

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))