diff options
author | fx <fx@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-06-16 02:23:44 +0000 |
---|---|---|
committer | fx <fx@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-06-16 02:23:44 +0000 |
commit | 502325edbf50cf753ccd3defe38cfad8f4465d7e (patch) | |
tree | c5d64b68c6b98dba2288a4954b8f7a54c140001e /gcc/f/src.h | |
parent | 80158a86ecfc35826bb2298fd46fd18cdaaad616 (diff) | |
download | gcc-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.h | 4 |
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 |