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, 4 insertions, 4 deletions

diff --git a/gcc/f/bad.c b/gcc/f/bad.c
index ec250eb7bd9..a2a4832164e 100644
--- a/gcc/f/bad.c
+++ b/gcc/f/bad.c
@@ -37,10 +37,10 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 /* Include files. */
 
 #include "proj.h"
-#include <ctype.h>
 #include "bad.h"
 #include "flags.j"
 #include "com.h"
+#include "toplev.j"
 #include "where.h"
 
 /* Externals defined here. */
@@ -457,7 +457,7 @@ ffebad_finish ()
   if (ffebad_places_ == 0)
     {
       /* Didn't output "warning:" string, capitalize it for message.  */
-      if ((s[0] != '\0') && isalpha (s[0]) && islower (s[0]))
+      if ((s[0] != '\0') && ISALPHA (s[0]) && ISLOWER (s[0]))
 	{
 	  char c;
 
@@ -486,7 +486,7 @@ ffebad_finish ()
       if (c == '%')
 	{
 	  c = ffebad_message_[++i];
-	  if (isalpha (c) && isupper (c))
+	  if (ISALPHA (c) && ISUPPER (c))
 	    {
 	      index = c - 'A';
 
@@ -504,7 +504,7 @@ ffebad_finish ()
 		    bufi = ffebad_bufputs_ (buf, bufi, s);
 		}
 	    }
-	  else if (isdigit (c))
+	  else if (ISDIGIT (c))
 	    {
 	      index = c - '0';