diff options
Diffstat (limited to 'gcc/f/stb.c')
| -rw-r--r-- | gcc/f/stb.c | 29 |
1 files changed, 14 insertions, 15 deletions
diff --git a/gcc/f/stb.c b/gcc/f/stb.c index 20ddf8f..dc4bda4 100644 --- a/gcc/f/stb.c +++ b/gcc/f/stb.c @@ -88,7 +88,6 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA /* Include files. */ #include "proj.h" -#include <ctype.h> #include "stb.h" #include "bad.h" #include "expr.h" @@ -1916,7 +1915,7 @@ ffestb_do (ffelexToken t) goto bad_1; /* :::::::::::::::::::: */ case FFELEX_typeOPEN_PAREN: /* Must be "DO" label "WHILE". */ - if (!isdigit (*p)) + if (! ISDIGIT (*p)) goto bad_i; /* :::::::::::::::::::: */ ffesta_tokens[1] = ffelex_token_number_from_names (ffesta_tokens[0], i); @@ -1939,7 +1938,7 @@ ffestb_do (ffelexToken t) ffesta_tokens[1] = NULL; return (ffelexHandler) ffestb_do2_; } - if (!isdigit (*p)) + if (! ISDIGIT (*p)) goto bad_i; /* :::::::::::::::::::: */ ffesta_tokens[1] = ffelex_token_number_from_names (ffesta_tokens[0], i); @@ -1950,7 +1949,7 @@ ffestb_do (ffelexToken t) return (ffelexHandler) ffestb_do2_; case FFELEX_typeEQUALS: - if (isdigit (*p)) + if (ISDIGIT (*p)) { ffesta_tokens[1] = ffelex_token_number_from_names (ffesta_tokens[0], i); @@ -1972,7 +1971,7 @@ ffestb_do (ffelexToken t) case FFELEX_typeEOS: case FFELEX_typeSEMICOLON: ffesta_confirmed (); - if (isdigit (*p)) + if (ISDIGIT (*p)) { ffesta_tokens[1] = ffelex_token_number_from_names (ffesta_tokens[0], i); @@ -3369,7 +3368,7 @@ ffestb_goto (ffelexToken t) if (ffelex_token_length (ffesta_tokens[0]) != FFESTR_firstlGOTO) { p = ffelex_token_text (ffesta_tokens[0]) + (i = FFESTR_firstlGOTO); - if (isdigit (*p)) + if (ISDIGIT (*p)) { nt = ffelex_token_number_from_names (ffesta_tokens[0], i); p += ffelex_token_length (nt); @@ -6691,7 +6690,7 @@ ffestb_R838 (ffelexToken t) case FFELEX_typePERCENT: case FFELEX_typeOPEN_PAREN: p = ffelex_token_text (ffesta_tokens[0]) + (i = FFESTR_firstlASSIGN); - if (!isdigit (*p)) + if (! ISDIGIT (*p)) goto bad_i; /* :::::::::::::::::::: */ ffesta_tokens[1] = ffelex_token_number_from_names (ffesta_tokens[0], i); @@ -9688,7 +9687,7 @@ ffestb_R10014_ (ffelexToken t) p = ffelex_token_text (t) + i; if (*p == '\0') return (ffelexHandler) ffestb_R10015_; - if (!isdigit (*p)) + if (! ISDIGIT (*p)) { if (ffestb_local_.format.current == FFESTP_formattypeH) p = strpbrk (p, "0123456789"); @@ -9766,7 +9765,7 @@ ffestb_R10014_ (ffelexToken t) p = ffelex_token_text (t) + i; if (*p == '\0') return (ffelexHandler) ffestb_R10015_; - if (!isdigit (*p)) + if (! ISDIGIT (*p)) { ffestb_local_.format.current = FFESTP_formattypeNone; p = strpbrk (p, "0123456789"); @@ -10046,7 +10045,7 @@ ffestb_R10015_ (ffelexToken t) p = ffelex_token_text (t) + i; if (*p == '\0') return (ffelexHandler) ffestb_R10015_; - if (!isdigit (*p)) + if (! ISDIGIT (*p)) { ffestb_local_.format.current = FFESTP_formattypeNone; p = strpbrk (p, "0123456789"); @@ -10220,7 +10219,7 @@ ffestb_R10018_ (ffelexToken t) if (*++p == '\0') return (ffelexHandler) ffestb_R10019_; /* Go get NUMBER. */ i = 1; - if (!isdigit (*p)) + if (! ISDIGIT (*p)) { ffesta_ffebad_1p (FFEBAD_FORMAT_TEXT_IN_NUMBER, t, 1, NULL); return (ffelexHandler) ffestb_R10018_; @@ -11903,7 +11902,7 @@ ffestb_R12026_ (ffelexToken t) default: for (p = ffelex_token_text (ffesta_tokens[2]); *p != '\0'; ++p) { - if (!isalpha (*p)) + if (! ISALPHA (*p)) { ffelex_token_kill (ffesta_tokens[1]); ffelex_token_kill (ffesta_tokens[2]); @@ -12010,7 +12009,7 @@ ffestb_S3P4 (ffelexToken t) ffeexpr_rhs (ffesta_output_pool, FFEEXPR_contextINCLUDE, (ffeexprCallback) ffestb_S3P41_))) (t); - if (!isdigit (*p)) + if (! ISDIGIT (*p)) goto bad_i; /* :::::::::::::::::::: */ nt = ffelex_token_number_from_names (ffesta_tokens[0], i); p += ffelex_token_length (nt); @@ -12443,7 +12442,7 @@ ffestb_V025 (ffelexToken t) break; } p = ffelex_token_text (ffesta_tokens[0]) + (i = FFESTR_firstlDEFINEFILE); - if (isdigit (*p)) + if (ISDIGIT (*p)) nt = ffelex_token_number_from_names (ffesta_tokens[0], i); else if (ffesrc_is_name_init (*p)) nt = ffelex_token_name_from_names (ffesta_tokens[0], i, 0); @@ -17980,7 +17979,7 @@ ffestb_V020 (ffelexToken t) break; } p = ffelex_token_text (ffesta_tokens[0]) + (i = FFESTR_firstlTYPE); - if (isdigit (*p)) + if (ISDIGIT (*p)) ffesta_confirmed (); /* Else might be '90 TYPE statement. */ for (ix = 0; ix < FFESTP_typeix; ++ix) ffestp_file.type.type_spec[ix].kw_or_val_present = FALSE; |