Mon Jun 15 22:21:57 1998 Craig Burley <burley@gnu.org>

	Cutover to system.h:
	* Make-lang.in:
	* Makefile.in:
	* ansify.c:
	* bad.c:
	* bld.c:
	* com.c:
	* com.h:
	* expr.c:
	* fini.c:
	* g77spec.c:
	* implic.c:
	* intdoc.c:
	* intrin.c:
	* lex.c:
	* lex.h:
	* parse.c:
	* proj.c:
	* proj.h:
	* src.c:
	* src.h:
	* stb.c:
	* ste.c:
	* target.c:
	* top.c:
	* system.j: New file.
	Use toplev.h where appropriate:
	* Make-lang.in:
	* Makefile.in:
	* bad.c:
	* bld.c:
	* com.c:
	* lex.c:
	* ste.c:
	* top.c:
	* toplev.j: New file.
	Conditionalize all dumping/reporting routines so they don't
	get built for gcc/egcs:
	* bld.c:
	* bld.h:
	* com.c:
	* equiv.c:
	* equiv.h:
	* sta.c:
	* stt.c:
	* stt.h:
	* symbol.c:
	* symbol.h:
	Use hconfig.h instead of config.h where appropriate:
	* Makefile.in (proj-h.o): Compile with -DUSE_HCONFIG.
	* fini.c: Define USE_HCONFIG before including proj.h.
	* Makefile.in (deps-kinda): Redirect stderr to stdout,
	to eliminate diagnostics vis-a-vis g77spec.c.
	* Makefile.in: Regenerate dependencies via deps-kinda.
	* lex.c (ffelex_file_fixed, ffelex_file_free): Eliminate
	apparently spurious warnings about uninitialized variables
	`c', `column', and so on.


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

1 files changed, 14 insertions, 15 deletions

diff --git a/gcc/f/stb.c b/gcc/f/stb.c
index 20ddf8f3757..dc4bda4d98a 100644
--- a/gcc/f/stb.c
+++ b/gcc/f/stb.c
@@ -88,7 +88,6 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 /* Include files. */
 
 #include "proj.h"
-#include <ctype.h>
 #include "stb.h"
 #include "bad.h"
 #include "expr.h"
@@ -1916,7 +1915,7 @@ ffestb_do (ffelexToken t)
 	  goto bad_1;		/* :::::::::::::::::::: */
 
 	case FFELEX_typeOPEN_PAREN:	/* Must be "DO" label "WHILE". */
-	  if (!isdigit (*p))
+	  if (! ISDIGIT (*p))
 	    goto bad_i;		/* :::::::::::::::::::: */
 	  ffesta_tokens[1] = ffelex_token_number_from_names (ffesta_tokens[0],
 							     i);
@@ -1939,7 +1938,7 @@ ffestb_do (ffelexToken t)
 	      ffesta_tokens[1] = NULL;
 	      return (ffelexHandler) ffestb_do2_;
 	    }
-	  if (!isdigit (*p))
+	  if (! ISDIGIT (*p))
 	    goto bad_i;		/* :::::::::::::::::::: */
 	  ffesta_tokens[1] = ffelex_token_number_from_names (ffesta_tokens[0],
 							     i);
@@ -1950,7 +1949,7 @@ ffestb_do (ffelexToken t)
 	  return (ffelexHandler) ffestb_do2_;
 
 	case FFELEX_typeEQUALS:
-	  if (isdigit (*p))
+	  if (ISDIGIT (*p))
 	    {
 	      ffesta_tokens[1]
 		= ffelex_token_number_from_names (ffesta_tokens[0], i);
@@ -1972,7 +1971,7 @@ ffestb_do (ffelexToken t)
 	case FFELEX_typeEOS:
 	case FFELEX_typeSEMICOLON:
 	  ffesta_confirmed ();
-	  if (isdigit (*p))
+	  if (ISDIGIT (*p))
 	    {
 	      ffesta_tokens[1]
 		= ffelex_token_number_from_names (ffesta_tokens[0], i);
@@ -3369,7 +3368,7 @@ ffestb_goto (ffelexToken t)
       if (ffelex_token_length (ffesta_tokens[0]) != FFESTR_firstlGOTO)
 	{
 	  p = ffelex_token_text (ffesta_tokens[0]) + (i = FFESTR_firstlGOTO);
-	  if (isdigit (*p))
+	  if (ISDIGIT (*p))
 	    {
 	      nt = ffelex_token_number_from_names (ffesta_tokens[0], i);
 	      p += ffelex_token_length (nt);
@@ -6691,7 +6690,7 @@ ffestb_R838 (ffelexToken t)
 	case FFELEX_typePERCENT:
 	case FFELEX_typeOPEN_PAREN:
 	  p = ffelex_token_text (ffesta_tokens[0]) + (i = FFESTR_firstlASSIGN);
-	  if (!isdigit (*p))
+	  if (! ISDIGIT (*p))
 	    goto bad_i;		/* :::::::::::::::::::: */
 	  ffesta_tokens[1]
 	    = ffelex_token_number_from_names (ffesta_tokens[0], i);
@@ -9688,7 +9687,7 @@ ffestb_R10014_ (ffelexToken t)
       p = ffelex_token_text (t) + i;
       if (*p == '\0')
 	return (ffelexHandler) ffestb_R10015_;
-      if (!isdigit (*p))
+      if (! ISDIGIT (*p))
 	{
 	  if (ffestb_local_.format.current == FFESTP_formattypeH)
 	    p = strpbrk (p, "0123456789");
@@ -9766,7 +9765,7 @@ ffestb_R10014_ (ffelexToken t)
       p = ffelex_token_text (t) + i;
       if (*p == '\0')
 	return (ffelexHandler) ffestb_R10015_;
-      if (!isdigit (*p))
+      if (! ISDIGIT (*p))
 	{
 	  ffestb_local_.format.current = FFESTP_formattypeNone;
 	  p = strpbrk (p, "0123456789");
@@ -10046,7 +10045,7 @@ ffestb_R10015_ (ffelexToken t)
       p = ffelex_token_text (t) + i;
       if (*p == '\0')
 	return (ffelexHandler) ffestb_R10015_;
-      if (!isdigit (*p))
+      if (! ISDIGIT (*p))
 	{
 	  ffestb_local_.format.current = FFESTP_formattypeNone;
 	  p = strpbrk (p, "0123456789");
@@ -10220,7 +10219,7 @@ ffestb_R10018_ (ffelexToken t)
       if (*++p == '\0')
 	return (ffelexHandler) ffestb_R10019_;	/* Go get NUMBER. */
       i = 1;
-      if (!isdigit (*p))
+      if (! ISDIGIT (*p))
 	{
 	  ffesta_ffebad_1p (FFEBAD_FORMAT_TEXT_IN_NUMBER, t, 1, NULL);
 	  return (ffelexHandler) ffestb_R10018_;
@@ -11903,7 +11902,7 @@ ffestb_R12026_ (ffelexToken t)
 	    default:
 	      for (p = ffelex_token_text (ffesta_tokens[2]); *p != '\0'; ++p)
 		{
-		  if (!isalpha (*p))
+		  if (! ISALPHA (*p))
 		    {
 		      ffelex_token_kill (ffesta_tokens[1]);
 		      ffelex_token_kill (ffesta_tokens[2]);
@@ -12010,7 +12009,7 @@ ffestb_S3P4 (ffelexToken t)
 		    ffeexpr_rhs (ffesta_output_pool, FFEEXPR_contextINCLUDE,
 				 (ffeexprCallback) ffestb_S3P41_)))
 	  (t);
-      if (!isdigit (*p))
+      if (! ISDIGIT (*p))
 	goto bad_i;		/* :::::::::::::::::::: */
       nt = ffelex_token_number_from_names (ffesta_tokens[0], i);
       p += ffelex_token_length (nt);
@@ -12443,7 +12442,7 @@ ffestb_V025 (ffelexToken t)
 	  break;
 	}
       p = ffelex_token_text (ffesta_tokens[0]) + (i = FFESTR_firstlDEFINEFILE);
-      if (isdigit (*p))
+      if (ISDIGIT (*p))
 	nt = ffelex_token_number_from_names (ffesta_tokens[0], i);
       else if (ffesrc_is_name_init (*p))
 	nt = ffelex_token_name_from_names (ffesta_tokens[0], i, 0);
@@ -17980,7 +17979,7 @@ ffestb_V020 (ffelexToken t)
 	  break;
 	}
       p = ffelex_token_text (ffesta_tokens[0]) + (i = FFESTR_firstlTYPE);
-      if (isdigit (*p))
+      if (ISDIGIT (*p))
 	ffesta_confirmed ();	/* Else might be '90 TYPE statement. */
       for (ix = 0; ix < FFESTP_typeix; ++ix)
 	ffestp_file.type.type_spec[ix].kw_or_val_present = FALSE;