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

5 files changed, 48 insertions, 14 deletions

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 5495bb9..990e3f3 100644
--- 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 fa967d0..c3850e4 100644
--- 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 b64ba3d..6150584 100644
--- a/gcc/f/news.texi
+++ b/gcc/f/news.texi
@@ -46,18 +46,9 @@ 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
 for @samp{EQUIVALENCE} and @samp{COMMON}
@@ -83,6 +74,41 @@ 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 0b23ab1..17e4139 100644
--- 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 20994bd..bae6787 100644
--- 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))