gcc/c-family/c-lex.c

453   const cpp_token *tok;
460   tok = cpp_get_token_with_location (parse_in, loc);
461   type = tok->type;
470       *value = HT_IDENT_TO_GCC_IDENT (HT_NODE (tok->val.node.node));
476 	unsigned int flags = cpp_classify_number (parse_in, tok, &suffix, *loc);
488 	    if (tok->val.str.len == 1 && *tok->val.str.text == '0')
490 	    *value = interpret_integer (tok, flags, &overflow);
494 	    *value = interpret_float (tok, flags, suffix, &overflow);
506 	    int len = tok->val.str.len - strlen (suffix);
510 					    (const char *) tok->val.str.text);
530 	  tok = cpp_get_token_with_location (parse_in, &newloc);
531 	  type = tok->type;
542 	      type = lex_string (tok, value, true, true);
546 	      *value = HT_IDENT_TO_GCC_IDENT (HT_NODE (tok->val.node.node));
580 	*cpp_spell_token (parse_in, tok, name, true) = 0;
589 	cppchar_t c = tok->val.str.text[0];
607 	cpp_token temp_tok = *tok;
608 	const char *suffix = cpp_get_userdef_suffix (tok);
623       *value = lex_charconst (tok);
633 	const char *suffix = cpp_get_userdef_suffix (tok);
634 	string = build_string (tok->val.str.len - strlen (suffix),
635 			       (const char *) tok->val.str.text);
649 	  type = lex_string (tok, value, false,
653       *value = build_string (tok->val.str.len, (const char *) tok->val.str.text);
657       *value = build_int_cst (integer_type_node, tok->val.pragma);
669       if (tok->flags & PREV_FALLTHROUGH)
673 	      tok = cpp_get_token_with_location (parse_in, loc);
674 	      type = tok->type;
688     *cpp_flags = tok->flags | add_flags;
1205 lex_string (const cpp_token *tok, tree *valp, bool objc_string, bool translate)
1212   enum cpp_ttype type = tok->type;
1216   cpp_string str = tok->val.str;
1217   location_t init_loc = tok->src_loc;
1228   tok = cpp_get_token (parse_in);
1229   switch (tok->type)
1251       if (type != tok->type)
1254 	    type = tok->type;
1270       obstack_grow (&str_ob, &tok->val.str, sizeof (cpp_string));
1271       obstack_grow (&loc_ob, &tok->src_loc, sizeof (location_t));