contrib/gcc-4.4/gcc/c-parser.c
/* The interface the pragma parsers have to the lexer.  */
The interface the pragma parsers have to the lexer.
The interface the pragma parsers have to the lexer .
enum cpp_ttype
pragma_lex (tree *value)
{
  c_token *tok = c_parser_peek_token (the_parser);
  enum cpp_ttype ret = tok->type;
  *value = tok->value;
  if (ret == CPP_PRAGMA_EOL || ret == CPP_EOF)
    ret = CPP_EOF;
  else
    {
      if (ret == CPP_KEYWORD)
	ret = CPP_NAME;
      c_parser_consume_token (the_parser);
    }
  return ret;
}
enum cpp_ttype pragma_lex ( tree * value ) { c_token * tok = c_parser_peek_token ( the_parser ) ; enum cpp_ttype ret = tok -> type ; * value = tok -> value ; if ( ret == CPP_PRAGMA_EOL || ret == CPP_EOF ) ret = CPP_EOF ; else { if ( ret == CPP_KEYWORD ) ret = CPP_NAME ; c_parser_consume_token ( the_parser ) ; } return ret ; }
The interface the pragma parsers have to the lexer.
The interface the pragma parsers have to the lexer .