From 92a438d13c876561ee189d9eb274f2dd8151ac91 Mon Sep 17 00:00:00 2001 From: "Kaveh R. Ghazi" Date: Thu, 16 Sep 1999 22:20:44 +0000 Subject: system.h (CTYPE_CONV, [...]): New macros. * system.h (CTYPE_CONV, TOUPPER, TOLOWER): New macros. Use CTYPE_CONV in all ctype macros. * cccp.c (initialize_char_syntax): Use uppercase ctype macro from system.h. * cexp.y (initialize_random_junk): Likewise. * c4x.c (c4x_interrupt_function_p, c4x_handle_pragma): Likewise. * i370.c (handle_pragma): Likewise. * i370.h (ASM_OUTPUT_LABELREF, ASM_OUTPUT_ASCII): Likewise. * v850.c (override_options): Likewise. * doprint.c (_doprnt): Likewise. * fixinc/fixincl.c (main, quoted_file_exists, extract_quoted_files): Likewise. * fixinc/server.c (load_data): Likewise. * fold-const.c (real_hex_to_f): Likewise. * genattr.c (write_upcase, gen_attr): Likewise. * genattrtab.c (convert_const_symbol_ref, evaluate_eq_attr, write_upcase): Likewise. * genemit.c (print_code): Likewise. * genopinit.c (gen_insn): Likewise. * genpeep.c (print_code): Likewise. * genrecog.c (print_code): Likewise. * optabs.c (init_libfuncs): Likewise. ch: * lex.c (maybe_downcase, getlc, handle_generic_pragma, check_newline): Likewise. f: * bad.c (ffebad_finish): Likewise. * fini.c (main): Likewise. * intrin.c (ffeintrin_init_0): Likewise. * lex.c (ffelex_hash_): Likewise. * src.c (ffesrc_init_1): Likewise. From-SVN: r29463 --- gcc/f/lex.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'gcc/f/lex.c') diff --git a/gcc/f/lex.c b/gcc/f/lex.c index 3136d40..b6198b2 100644 --- a/gcc/f/lex.c +++ b/gcc/f/lex.c @@ -1126,8 +1126,9 @@ ffelex_hash_ (FILE *finput) static char buffer [128]; char * buff = buffer; - /* Read the pragma name into a buffer. */ - while (isspace (c = getc (finput))) + /* Read the pragma name into a buffer. + ISSPACE() may evaluate its argument more than once! */ + while (((c = getc (finput)), ISSPACE(c))) continue; do @@ -1135,7 +1136,7 @@ ffelex_hash_ (FILE *finput) * buff ++ = c; c = getc (finput); } - while (c != EOF && ! isspace (c) && c != '\n' + while (c != EOF && ! ISSPACE (c) && c != '\n' && buff < buffer + 128); pragma_ungetc (c); -- cgit v1.1