From 502325edbf50cf753ccd3defe38cfad8f4465d7e Mon Sep 17 00:00:00 2001 From: fx Date: Tue, 16 Jun 1998 02:23:44 +0000 Subject: Mon Jun 15 22:21:57 1998 Craig Burley 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 --- gcc/f/src.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/f/src.h') diff --git a/gcc/f/src.h b/gcc/f/src.h index 20a1993bbf7..0216a7cef0b 100644 --- a/gcc/f/src.h +++ b/gcc/f/src.h @@ -87,9 +87,9 @@ extern bool ffesrc_ok_match_noninit_lower_; characters for which ffelex_is_firstnamechar returns TRUE. */ #define ffesrc_is_name_init(c) \ - ((isalpha ((c))) || (!(1 || ffe_is_90 ()) && ((c) == '_'))) + ((ISALPHA ((c))) || (! (1 || ffe_is_90 ()) && ((c) == '_'))) #define ffesrc_is_name_noninit(c) \ - ((isalnum ((c))) || (!(1 || ffe_is_90 ()) && ((c) == '_'))) + ((ISALNUM ((c))) || (! (1 || ffe_is_90 ()) && ((c) == '_'))) /* Test if source-translated character matches given alphabetic character (passed in both uppercase and lowercase, to allow for custom speedup -- cgit v1.2.1