From: Craig Burley <burley@gnu.org>
Date: Wed, 15 Jul 1998 07:13:43 +0000 (-0400)
Subject: Cleanups vis-a-vis g77-0.5.24:
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4801aa8f37faf0709b84557a53f290565d10c657;p=gcc.git

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 5495bb96da8..990e3f3745f 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 fa967d05560..c3850e42e3d 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 b64ba3d3d1f..61505847e1b 100644
--- 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 0b23ab18fe5..17e4139bb7d 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 20994bd3392..bae6787537d 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))