Cutover to system.h:

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.

From-SVN: r20520

1 files changed, 3 insertions, 3 deletions

diff --git a/gcc/f/fini.c b/gcc/f/fini.c
index 491eeb4..44c749f 100644
--- a/gcc/f/fini.c
+++ b/gcc/f/fini.c
@@ -19,8 +19,8 @@ along with GNU Fortran; see the file COPYING.  If not, write to
 the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 02111-1307, USA.  */
 
+#define USE_HCONFIG
 #include "proj.h"
-#include <ctype.h>
 #include "malloc.h"
 
 #define MAXNAMELEN 100
@@ -306,7 +306,7 @@ main (int argc, char **argv)
 	}
       else if (cc != EOF)
 	{
-	  while (((cc = getc (in)) != EOF) && (!isalnum (cc)))
+	  while (((cc = getc (in)) != EOF) && (! ISALNUM (cc)))
 	    ;
 	  ungetc (cc, in);
 	  break;
@@ -377,7 +377,7 @@ main (int argc, char **argv)
       for (i = 0; i < newname->namelen; ++i)
 	{
 	  cc = buf[i];
-	  if (isascii (cc) && isalpha (cc))
+	  if (ISALPHA (cc))
 	    {
 	      newname->name_uc[i] = toupper (cc);
 	      newname->name_lc[i] = tolower (cc);