summaryrefslogtreecommitdiff
path: root/gcc/f/src.h
diff options
context:
space:
mode:
authorfx <fx@138bc75d-0d04-0410-961f-82ee72b054a4>1998-06-16 02:23:44 +0000
committerfx <fx@138bc75d-0d04-0410-961f-82ee72b054a4>1998-06-16 02:23:44 +0000
commit502325edbf50cf753ccd3defe38cfad8f4465d7e (patch)
treec5d64b68c6b98dba2288a4954b8f7a54c140001e /gcc/f/src.h
parent80158a86ecfc35826bb2298fd46fd18cdaaad616 (diff)
downloadgcc-502325edbf50cf753ccd3defe38cfad8f4465d7e.tar.gz
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
Diffstat (limited to 'gcc/f/src.h')
-rw-r--r--gcc/f/src.h4
1 files changed, 2 insertions, 2 deletions
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