CbC/CbC_gcc: gcc/c-family/c-lex.c annotate

annotate gcc/c-family/c-lex.c @ 158:494b0b89df80 default tip

...

author	Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date	Mon, 25 May 2020 18:13:55 +0900
parents	1830386684a0
children

rev	line source
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1 /* Mainly the interface between cpplib and the C front ends.
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	2 Copyright (C) 1987-2020 Free Software Foundation, Inc.
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	3
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	4 This file is part of GCC.
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	5
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	6 GCC is free software; you can redistribute it and/or modify it under
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	7 the terms of the GNU General Public License as published by the Free
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	8 Software Foundation; either version 3, or (at your option) any later
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	9 version.
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	10
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	14 for more details.
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	15
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	16 You should have received a copy of the GNU General Public License
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	17 along with GCC; see the file COPYING3. If not see
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	18 <http://www.gnu.org/licenses/>. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	19
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	20 #include "config.h"
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	21 #include "system.h"
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	22 #include "coretypes.h"
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	23 #include "target.h"
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	24 #include "c-common.h"
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	25 #include "timevar.h"
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	26 #include "stringpool.h"
04ced10e8804 gcc 7 kono parents: 68 diff changeset	27 #include "stor-layout.h"
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	28 #include "c-pragma.h"
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	29 #include "debug.h"
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	30 #include "file-prefix-map.h" /* remap_macro_filename() */
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	31
04ced10e8804 gcc 7 kono parents: 68 diff changeset	32 #include "attribs.h"
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	33
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	34 /* We may keep statistics about how long which files took to compile. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	35 static int header_time, body_time;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	36 static splay_tree file_info_tree;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	37
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	38 int pending_lang_change; /* If we need to switch languages - C++ only */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	39 int c_header_level; /* depth in C headers - C++ only */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	40
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	41 static tree interpret_integer (const cpp_token *, unsigned int,
04ced10e8804 gcc 7 kono parents: 68 diff changeset	42 enum overflow_type *);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	43 static tree interpret_float (const cpp_token , unsigned int, const char ,
04ced10e8804 gcc 7 kono parents: 68 diff changeset	44 enum overflow_type *);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	45 static tree interpret_fixed (const cpp_token *, unsigned int);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	46 static enum integer_type_kind narrowest_unsigned_type
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	47 (const widest_int &, unsigned int);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	48 static enum integer_type_kind narrowest_signed_type
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	49 (const widest_int &, unsigned int);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	50 static enum cpp_ttype lex_string (const cpp_token , tree , bool, bool);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	51 static tree lex_charconst (const cpp_token *);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	52 static void update_header_times (const char *);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	53 static int dump_one_header (splay_tree_node, void *);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	54 static void cb_line_change (cpp_reader , const cpp_token , int);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	55 static void cb_ident (cpp_reader , unsigned int, const cpp_string );
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	56 static void cb_def_pragma (cpp_reader *, unsigned int);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	57 static void cb_define (cpp_reader , unsigned int, cpp_hashnode );
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	58 static void cb_undef (cpp_reader , unsigned int, cpp_hashnode );
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	59
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	60 void
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	61 init_c_lex (void)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	62 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	63 struct cpp_callbacks *cb;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	64 struct c_fileinfo *toplevel;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	65
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	66 /* The get_fileinfo data structure must be initialized before
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	67 cpp_read_main_file is called. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	68 toplevel = get_fileinfo ("<top level>");
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	69 if (flag_detailed_statistics)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	70 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	71 header_time = 0;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	72 body_time = get_run_time ();
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	73 toplevel->time = body_time;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	74 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	75
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	76 cb = cpp_get_callbacks (parse_in);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	77
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	78 cb->line_change = cb_line_change;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	79 cb->ident = cb_ident;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	80 cb->def_pragma = cb_def_pragma;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	81 cb->valid_pch = c_common_valid_pch;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	82 cb->read_pch = c_common_read_pch;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	83 cb->has_attribute = c_common_has_attribute;
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	84 cb->has_builtin = c_common_has_builtin;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	85 cb->get_source_date_epoch = cb_get_source_date_epoch;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	86 cb->get_suggestion = cb_get_suggestion;
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	87 cb->remap_filename = remap_macro_filename;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	88
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	89 /* Set the debug callbacks if we can use them. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	90 if ((debug_info_level == DINFO_LEVEL_VERBOSE
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	91 && (write_symbols == DWARF2_DEBUG
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	92 \|\| write_symbols == VMS_AND_DWARF2_DEBUG))
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	93 \|\| flag_dump_go_spec != NULL)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	94 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	95 cb->define = cb_define;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	96 cb->undef = cb_undef;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	97 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	98 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	99
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	100 struct c_fileinfo *
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	101 get_fileinfo (const char *name)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	102 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	103 splay_tree_node n;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	104 struct c_fileinfo *fi;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	105
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	106 if (!file_info_tree)
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	107 file_info_tree = splay_tree_new (splay_tree_compare_strings,
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	108 0,
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	109 splay_tree_delete_pointers);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	110
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	111 n = splay_tree_lookup (file_info_tree, (splay_tree_key) name);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	112 if (n)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	113 return (struct c_fileinfo *) n->value;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	114
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	115 fi = XNEW (struct c_fileinfo);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	116 fi->time = 0;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	117 fi->interface_only = 0;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	118 fi->interface_unknown = 1;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	119 splay_tree_insert (file_info_tree, (splay_tree_key) name,
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	120 (splay_tree_value) fi);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	121 return fi;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	122 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	123
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	124 static void
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	125 update_header_times (const char *name)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	126 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	127 /* Changing files again. This means currently collected time
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	128 is charged against header time, and body time starts back at 0. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	129 if (flag_detailed_statistics)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	130 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	131 int this_time = get_run_time ();
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	132 struct c_fileinfo *file = get_fileinfo (name);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	133 header_time += this_time - body_time;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	134 file->time += this_time - body_time;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	135 body_time = this_time;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	136 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	137 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	138
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	139 static int
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	140 dump_one_header (splay_tree_node n, void * ARG_UNUSED (dummy))
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	141 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	142 print_time ((const char *) n->key,
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	143 ((struct c_fileinfo *) n->value)->time);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	144 return 0;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	145 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	146
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	147 void
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	148 dump_time_statistics (void)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	149 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	150 struct c_fileinfo *file = get_fileinfo (LOCATION_FILE (input_location));
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	151 int this_time = get_run_time ();
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	152 file->time += this_time - body_time;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	153
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	154 fprintf (stderr, "\n******\n");
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	155 print_time ("header files (total)", header_time);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	156 print_time ("main file (total)", this_time - body_time);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	157 fprintf (stderr, "ratio = %g : 1\n",
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	158 (double) header_time / (double) (this_time - body_time));
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	159 fprintf (stderr, "\n******\n");
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	160
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	161 splay_tree_foreach (file_info_tree, dump_one_header, 0);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	162 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	163
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	164 static void
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	165 cb_ident (cpp_reader * ARG_UNUSED (pfile),
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	166 unsigned int ARG_UNUSED (line),
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	167 const cpp_string * ARG_UNUSED (str))
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	168 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	169 if (!flag_no_ident)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	170 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	171 /* Convert escapes in the string. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	172 cpp_string cstr = { 0, 0 };
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	173 if (cpp_interpret_string (pfile, str, 1, &cstr, CPP_STRING))
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	174 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	175 targetm.asm_out.output_ident ((const char *) cstr.text);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	176 free (CONST_CAST (unsigned char *, cstr.text));
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	177 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	178 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	179 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	180
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	181 /* Called at the start of every non-empty line. TOKEN is the first
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	182 lexed token on the line. Used for diagnostic line numbers. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	183 static void
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	184 cb_line_change (cpp_reader * ARG_UNUSED (pfile), const cpp_token *token,
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	185 int parsing_args)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	186 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	187 if (token->type != CPP_EOF && !parsing_args)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	188 input_location = token->src_loc;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	189 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	190
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	191 void
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	192 fe_file_change (const line_map_ordinary *new_map)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	193 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	194 if (new_map == NULL)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	195 return;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	196
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	197 if (new_map->reason == LC_ENTER)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	198 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	199 /* Don't stack the main buffer on the input stack;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	200 we already did in compile_file. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	201 if (!MAIN_FILE_P (new_map))
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	202 {
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	203 location_t included_at = linemap_included_from (new_map);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	204 int line = 0;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	205 if (included_at > BUILTINS_LOCATION)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	206 line = SOURCE_LINE (new_map - 1, included_at);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	207
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	208 input_location = new_map->start_location;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	209 (*debug_hooks->start_source_file) (line, LINEMAP_FILE (new_map));
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	210 #ifdef SYSTEM_IMPLICIT_EXTERN_C
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	211 if (c_header_level)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	212 ++c_header_level;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	213 else if (LINEMAP_SYSP (new_map) == 2)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	214 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	215 c_header_level = 1;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	216 ++pending_lang_change;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	217 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	218 #endif
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	219 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	220 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	221 else if (new_map->reason == LC_LEAVE)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	222 {
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	223 #ifdef SYSTEM_IMPLICIT_EXTERN_C
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	224 if (c_header_level && --c_header_level == 0)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	225 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	226 if (LINEMAP_SYSP (new_map) == 2)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	227 warning (0, "badly nested C headers from preprocessor");
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	228 --pending_lang_change;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	229 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	230 #endif
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	231 input_location = new_map->start_location;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	232
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	233 (*debug_hooks->end_source_file) (LINEMAP_LINE (new_map));
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	234 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	235
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	236 update_header_times (LINEMAP_FILE (new_map));
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	237 input_location = new_map->start_location;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	238 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	239
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	240 static void
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	241 cb_def_pragma (cpp_reader *pfile, location_t loc)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	242 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	243 /* Issue a warning message if we have been asked to do so. Ignore
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	244 unknown pragmas in system headers unless an explicit
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	245 -Wunknown-pragmas has been given. */
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	246 if (warn_unknown_pragmas > in_system_header_at (input_location))
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	247 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	248 const unsigned char space, name;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	249 const cpp_token *s;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	250 location_t fe_loc = loc;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	251
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	252 space = name = (const unsigned char *) "";
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	253 s = cpp_get_token (pfile);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	254 if (s->type != CPP_EOF)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	255 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	256 space = cpp_token_as_text (pfile, s);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	257 s = cpp_get_token (pfile);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	258 if (s->type == CPP_NAME)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	259 name = cpp_token_as_text (pfile, s);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	260 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	261
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	262 warning_at (fe_loc, OPT_Wunknown_pragmas, "ignoring %<#pragma %s %s%>",
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	263 space, name);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	264 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	265 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	266
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	267 /* #define callback for DWARF and DWARF2 debug info. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	268 static void
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	269 cb_define (cpp_reader pfile, location_t loc, cpp_hashnode node)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	270 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	271 const struct line_map *map = linemap_lookup (line_table, loc);
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	272 (*debug_hooks->define) (SOURCE_LINE (linemap_check_ordinary (map), loc),
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	273 (const char *) cpp_macro_definition (pfile, node));
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	274 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	275
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	276 /* #undef callback for DWARF and DWARF2 debug info. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	277 static void
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	278 cb_undef (cpp_reader * ARG_UNUSED (pfile), location_t loc,
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	279 cpp_hashnode *node)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	280 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	281 const struct line_map *map = linemap_lookup (line_table, loc);
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	282 (*debug_hooks->undef) (SOURCE_LINE (linemap_check_ordinary (map), loc),
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	283 (const char *) NODE_NAME (node));
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	284 }
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	285
04ced10e8804 gcc 7 kono parents: 68 diff changeset	286 /* Wrapper around cpp_get_token to skip CPP_PADDING tokens
04ced10e8804 gcc 7 kono parents: 68 diff changeset	287 and not consume CPP_EOF. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	288 static const cpp_token *
04ced10e8804 gcc 7 kono parents: 68 diff changeset	289 get_token_no_padding (cpp_reader *pfile)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	290 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	291 for (;;)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	292 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	293 const cpp_token *ret = cpp_peek_token (pfile, 0);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	294 if (ret->type == CPP_EOF)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	295 return ret;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	296 ret = cpp_get_token (pfile);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	297 if (ret->type != CPP_PADDING)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	298 return ret;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	299 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	300 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	301
04ced10e8804 gcc 7 kono parents: 68 diff changeset	302 /* Callback for has_attribute. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	303 int
04ced10e8804 gcc 7 kono parents: 68 diff changeset	304 c_common_has_attribute (cpp_reader *pfile)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	305 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	306 int result = 0;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	307 tree attr_name = NULL_TREE;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	308 const cpp_token *token;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	309
04ced10e8804 gcc 7 kono parents: 68 diff changeset	310 token = get_token_no_padding (pfile);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	311 if (token->type != CPP_OPEN_PAREN)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	312 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	313 cpp_error (pfile, CPP_DL_ERROR,
04ced10e8804 gcc 7 kono parents: 68 diff changeset	314 "missing '(' after \"__has_attribute\"");
04ced10e8804 gcc 7 kono parents: 68 diff changeset	315 return 0;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	316 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	317 token = get_token_no_padding (pfile);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	318 if (token->type == CPP_NAME)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	319 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	320 attr_name = get_identifier ((const char *)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	321 cpp_token_as_text (pfile, token));
04ced10e8804 gcc 7 kono parents: 68 diff changeset	322 attr_name = canonicalize_attr_name (attr_name);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	323 if (c_dialect_cxx ())
04ced10e8804 gcc 7 kono parents: 68 diff changeset	324 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	325 int idx = 0;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	326 const cpp_token *nxt_token;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	327 do
04ced10e8804 gcc 7 kono parents: 68 diff changeset	328 nxt_token = cpp_peek_token (pfile, idx++);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	329 while (nxt_token->type == CPP_PADDING);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	330 if (nxt_token->type == CPP_SCOPE)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	331 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	332 get_token_no_padding (pfile); // Eat scope.
04ced10e8804 gcc 7 kono parents: 68 diff changeset	333 nxt_token = get_token_no_padding (pfile);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	334 if (nxt_token->type == CPP_NAME)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	335 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	336 tree attr_ns = attr_name;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	337 tree attr_id
04ced10e8804 gcc 7 kono parents: 68 diff changeset	338 = get_identifier ((const char *)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	339 cpp_token_as_text (pfile, nxt_token));
04ced10e8804 gcc 7 kono parents: 68 diff changeset	340 attr_name = build_tree_list (attr_ns, attr_id);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	341 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	342 else
04ced10e8804 gcc 7 kono parents: 68 diff changeset	343 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	344 cpp_error (pfile, CPP_DL_ERROR,
04ced10e8804 gcc 7 kono parents: 68 diff changeset	345 "attribute identifier required after scope");
04ced10e8804 gcc 7 kono parents: 68 diff changeset	346 attr_name = NULL_TREE;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	347 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	348 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	349 else
04ced10e8804 gcc 7 kono parents: 68 diff changeset	350 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	351 /* Some standard attributes need special handling. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	352 if (is_attribute_p ("noreturn", attr_name))
04ced10e8804 gcc 7 kono parents: 68 diff changeset	353 result = 200809;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	354 else if (is_attribute_p ("deprecated", attr_name))
04ced10e8804 gcc 7 kono parents: 68 diff changeset	355 result = 201309;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	356 else if (is_attribute_p ("maybe_unused", attr_name)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	357 \|\| is_attribute_p ("fallthrough", attr_name))
04ced10e8804 gcc 7 kono parents: 68 diff changeset	358 result = 201603;
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	359 else if (is_attribute_p ("no_unique_address", attr_name)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	360 \|\| is_attribute_p ("likely", attr_name)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	361 \|\| is_attribute_p ("unlikely", attr_name))
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	362 result = 201803;
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	363 else if (is_attribute_p ("nodiscard", attr_name))
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	364 result = 201907;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	365 if (result)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	366 attr_name = NULL_TREE;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	367 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	368 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	369 if (attr_name)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	370 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	371 init_attributes ();
04ced10e8804 gcc 7 kono parents: 68 diff changeset	372 const struct attribute_spec *attr = lookup_attribute_spec (attr_name);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	373 if (attr)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	374 result = 1;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	375 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	376 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	377 else
04ced10e8804 gcc 7 kono parents: 68 diff changeset	378 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	379 cpp_error (pfile, CPP_DL_ERROR,
04ced10e8804 gcc 7 kono parents: 68 diff changeset	380 "macro \"__has_attribute\" requires an identifier");
04ced10e8804 gcc 7 kono parents: 68 diff changeset	381 return 0;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	382 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	383
04ced10e8804 gcc 7 kono parents: 68 diff changeset	384 if (get_token_no_padding (pfile)->type != CPP_CLOSE_PAREN)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	385 cpp_error (pfile, CPP_DL_ERROR,
04ced10e8804 gcc 7 kono parents: 68 diff changeset	386 "missing ')' after \"__has_attribute\"");
04ced10e8804 gcc 7 kono parents: 68 diff changeset	387
04ced10e8804 gcc 7 kono parents: 68 diff changeset	388 return result;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	389 }
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	390
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	391 /* Callback for has_builtin. */
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	392
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	393 int
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	394 c_common_has_builtin (cpp_reader *pfile)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	395 {
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	396 const cpp_token *token = get_token_no_padding (pfile);
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	397 if (token->type != CPP_OPEN_PAREN)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	398 {
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	399 cpp_error (pfile, CPP_DL_ERROR,
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	400 "missing '(' after \"__has_builtin\"");
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	401 return 0;
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	402 }
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	403
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	404 const char *name = "";
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	405 token = get_token_no_padding (pfile);
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	406 if (token->type == CPP_NAME)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	407 {
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	408 name = (const char *) cpp_token_as_text (pfile, token);
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	409 token = get_token_no_padding (pfile);
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	410 if (token->type != CPP_CLOSE_PAREN)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	411 {
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	412 cpp_error (pfile, CPP_DL_ERROR,
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	413 "expected ')' after \"%s\"", name);
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	414 name = "";
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	415 }
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	416 }
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	417 else
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	418 {
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	419 cpp_error (pfile, CPP_DL_ERROR,
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	420 "macro \"__has_builtin\" requires an identifier");
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	421 if (token->type == CPP_CLOSE_PAREN)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	422 return 0;
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	423 }
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	424
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	425 /* Consume tokens up to the closing parenthesis, including any nested
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	426 pairs of parentheses, to avoid confusing redundant errors. */
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	427 for (unsigned nparen = 1; ; token = get_token_no_padding (pfile))
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	428 {
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	429 if (token->type == CPP_OPEN_PAREN)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	430 ++nparen;
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	431 else if (token->type == CPP_CLOSE_PAREN)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	432 --nparen;
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	433 else if (token->type == CPP_EOF)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	434 break;
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	435 if (!nparen)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	436 break;
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	437 }
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	438
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	439 return names_builtin_p (name);
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	440 }
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	441
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	442
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	443 /* Read a token and return its type. Fill *VALUE with its value, if
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	444 applicable. Fill *CPP_FLAGS with the token's flags, if it is
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	445 non-NULL. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	446
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	447 enum cpp_ttype
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	448 c_lex_with_flags (tree value, location_t loc, unsigned char *cpp_flags,
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	449 int lex_flags)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	450 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	451 const cpp_token *tok;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	452 enum cpp_ttype type;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	453 unsigned char add_flags = 0;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	454 enum overflow_type overflow = OT_NONE;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	455
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	456 timevar_push (TV_CPP);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	457 retry:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	458 tok = cpp_get_token_with_location (parse_in, loc);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	459 type = tok->type;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	460
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	461 retry_after_at:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	462 switch (type)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	463 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	464 case CPP_PADDING:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	465 goto retry;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	466
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	467 case CPP_NAME:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	468 *value = HT_IDENT_TO_GCC_IDENT (HT_NODE (tok->val.node.node));
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	469 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	470
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	471 case CPP_NUMBER:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	472 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	473 const char *suffix = NULL;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	474 unsigned int flags = cpp_classify_number (parse_in, tok, &suffix, *loc);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	475
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	476 switch (flags & CPP_N_CATEGORY)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	477 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	478 case CPP_N_INVALID:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	479 /* cpplib has issued an error. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	480 *value = error_mark_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	481 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	482
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	483 case CPP_N_INTEGER:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	484 /* C++ uses '0' to mark virtual functions as pure.
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	485 Set PURE_ZERO to pass this information to the C++ parser. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	486 if (tok->val.str.len == 1 && *tok->val.str.text == '0')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	487 add_flags = PURE_ZERO;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	488 *value = interpret_integer (tok, flags, &overflow);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	489 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	490
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	491 case CPP_N_FLOATING:
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	492 *value = interpret_float (tok, flags, suffix, &overflow);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	493 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	494
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	495 default:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	496 gcc_unreachable ();
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	497 }
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	498
04ced10e8804 gcc 7 kono parents: 68 diff changeset	499 if (flags & CPP_N_USERDEF)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	500 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	501 char *str;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	502 tree literal;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	503 tree suffix_id = get_identifier (suffix);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	504 int len = tok->val.str.len - strlen (suffix);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	505 /* If this is going to be used as a C string to pass to a
04ced10e8804 gcc 7 kono parents: 68 diff changeset	506 raw literal operator, we need to add a trailing NUL. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	507 tree num_string = build_string (len + 1,
04ced10e8804 gcc 7 kono parents: 68 diff changeset	508 (const char *) tok->val.str.text);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	509 TREE_TYPE (num_string) = char_array_type_node;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	510 num_string = fix_string_type (num_string);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	511 str = CONST_CAST (char *, TREE_STRING_POINTER (num_string));
04ced10e8804 gcc 7 kono parents: 68 diff changeset	512 str[len] = '\0';
04ced10e8804 gcc 7 kono parents: 68 diff changeset	513 literal = build_userdef_literal (suffix_id, *value, overflow,
04ced10e8804 gcc 7 kono parents: 68 diff changeset	514 num_string);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	515 *value = literal;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	516 }
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	517 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	518 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	519
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	520 case CPP_ATSIGN:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	521 /* An @ may give the next token special significance in Objective-C. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	522 if (c_dialect_objc ())
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	523 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	524 location_t atloc = *loc;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	525 location_t newloc;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	526
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	527 retry_at:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	528 tok = cpp_get_token_with_location (parse_in, &newloc);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	529 type = tok->type;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	530 switch (type)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	531 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	532 case CPP_PADDING:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	533 goto retry_at;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	534
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	535 case CPP_STRING:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	536 case CPP_WSTRING:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	537 case CPP_STRING16:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	538 case CPP_STRING32:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	539 case CPP_UTF8STRING:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	540 type = lex_string (tok, value, true, true);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	541 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	542
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	543 case CPP_NAME:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	544 *value = HT_IDENT_TO_GCC_IDENT (HT_NODE (tok->val.node.node));
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	545 if (OBJC_IS_AT_KEYWORD (C_RID_CODE (*value))
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	546 \|\| OBJC_IS_CXX_KEYWORD (C_RID_CODE (*value)))
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	547 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	548 type = CPP_AT_NAME;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	549 /* Note the complication: if we found an OBJC_CXX
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	550 keyword, for example, 'class', we will be
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	551 returning a token of type CPP_AT_NAME and rid
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	552 code RID_CLASS (not RID_AT_CLASS). The language
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	553 parser needs to convert that to RID_AT_CLASS.
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	554 */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	555 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	556 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	557 /* FALLTHROUGH */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	558
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	559 default:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	560 /* ... or not. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	561 error_at (atloc, "stray %<@%> in program");
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	562 *loc = newloc;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	563 goto retry_after_at;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	564 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	565 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	566 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	567
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	568 /* FALLTHROUGH */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	569 case CPP_HASH:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	570 case CPP_PASTE:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	571 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	572 unsigned char name[8];
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	573
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	574 *cpp_spell_token (parse_in, tok, name, true) = 0;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	575
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	576 error_at (*loc, "stray %qs in program", name);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	577 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	578
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	579 goto retry;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	580
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	581 case CPP_OTHER:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	582 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	583 cppchar_t c = tok->val.str.text[0];
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	584
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	585 if (c == '"' \|\| c == '\'')
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	586 error_at (*loc, "missing terminating %c character", (int) c);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	587 else if (ISGRAPH (c))
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	588 error_at (*loc, "stray %qc in program", (int) c);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	589 else
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	590 error_at (*loc, "stray %<\\%o%> in program", (int) c);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	591 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	592 goto retry;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	593
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	594 case CPP_CHAR_USERDEF:
04ced10e8804 gcc 7 kono parents: 68 diff changeset	595 case CPP_WCHAR_USERDEF:
04ced10e8804 gcc 7 kono parents: 68 diff changeset	596 case CPP_CHAR16_USERDEF:
04ced10e8804 gcc 7 kono parents: 68 diff changeset	597 case CPP_CHAR32_USERDEF:
04ced10e8804 gcc 7 kono parents: 68 diff changeset	598 case CPP_UTF8CHAR_USERDEF:
04ced10e8804 gcc 7 kono parents: 68 diff changeset	599 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	600 tree literal;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	601 cpp_token temp_tok = *tok;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	602 const char *suffix = cpp_get_userdef_suffix (tok);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	603 temp_tok.val.str.len -= strlen (suffix);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	604 temp_tok.type = cpp_userdef_char_remove_type (type);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	605 literal = build_userdef_literal (get_identifier (suffix),
04ced10e8804 gcc 7 kono parents: 68 diff changeset	606 lex_charconst (&temp_tok),
04ced10e8804 gcc 7 kono parents: 68 diff changeset	607 OT_NONE, NULL_TREE);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	608 *value = literal;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	609 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	610 break;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	611
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	612 case CPP_CHAR:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	613 case CPP_WCHAR:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	614 case CPP_CHAR16:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	615 case CPP_CHAR32:
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	616 case CPP_UTF8CHAR:
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	617 *value = lex_charconst (tok);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	618 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	619
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	620 case CPP_STRING_USERDEF:
04ced10e8804 gcc 7 kono parents: 68 diff changeset	621 case CPP_WSTRING_USERDEF:
04ced10e8804 gcc 7 kono parents: 68 diff changeset	622 case CPP_STRING16_USERDEF:
04ced10e8804 gcc 7 kono parents: 68 diff changeset	623 case CPP_STRING32_USERDEF:
04ced10e8804 gcc 7 kono parents: 68 diff changeset	624 case CPP_UTF8STRING_USERDEF:
04ced10e8804 gcc 7 kono parents: 68 diff changeset	625 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	626 tree literal, string;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	627 const char *suffix = cpp_get_userdef_suffix (tok);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	628 string = build_string (tok->val.str.len - strlen (suffix),
04ced10e8804 gcc 7 kono parents: 68 diff changeset	629 (const char *) tok->val.str.text);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	630 literal = build_userdef_literal (get_identifier (suffix),
04ced10e8804 gcc 7 kono parents: 68 diff changeset	631 string, OT_NONE, NULL_TREE);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	632 *value = literal;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	633 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	634 break;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	635
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	636 case CPP_STRING:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	637 case CPP_WSTRING:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	638 case CPP_STRING16:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	639 case CPP_STRING32:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	640 case CPP_UTF8STRING:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	641 if ((lex_flags & C_LEX_STRING_NO_JOIN) == 0)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	642 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	643 type = lex_string (tok, value, false,
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	644 (lex_flags & C_LEX_STRING_NO_TRANSLATE) == 0);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	645 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	646 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	647 value = build_string (tok->val.str.len, (const char ) tok->val.str.text);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	648 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	649
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	650 case CPP_PRAGMA:
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	651 *value = build_int_cst (integer_type_node, tok->val.pragma);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	652 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	653
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	654 /* These tokens should not be visible outside cpplib. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	655 case CPP_HEADER_NAME:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	656 case CPP_MACRO_ARG:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	657 gcc_unreachable ();
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	658
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	659 /* CPP_COMMENT will appear when compiling with -C. Ignore, except
04ced10e8804 gcc 7 kono parents: 68 diff changeset	660 when it is a FALLTHROUGH comment, in that case set
04ced10e8804 gcc 7 kono parents: 68 diff changeset	661 PREV_FALLTHROUGH flag on the next non-comment token. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	662 case CPP_COMMENT:
04ced10e8804 gcc 7 kono parents: 68 diff changeset	663 if (tok->flags & PREV_FALLTHROUGH)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	664 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	665 do
04ced10e8804 gcc 7 kono parents: 68 diff changeset	666 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	667 tok = cpp_get_token_with_location (parse_in, loc);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	668 type = tok->type;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	669 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	670 while (type == CPP_PADDING \|\| type == CPP_COMMENT);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	671 add_flags \|= PREV_FALLTHROUGH;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	672 goto retry_after_at;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	673 }
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	674 goto retry;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	675
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	676 default:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	677 *value = NULL_TREE;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	678 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	679 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	680
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	681 if (cpp_flags)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	682 *cpp_flags = tok->flags \| add_flags;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	683
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	684 timevar_pop (TV_CPP);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	685
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	686 return type;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	687 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	688
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	689 /* Returns the narrowest C-visible unsigned type, starting with the
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	690 minimum specified by FLAGS, that can fit HIGH:LOW, or itk_none if
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	691 there isn't one. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	692
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	693 static enum integer_type_kind
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	694 narrowest_unsigned_type (const widest_int &val, unsigned int flags)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	695 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	696 int itk;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	697
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	698 if ((flags & CPP_N_WIDTH) == CPP_N_SMALL)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	699 itk = itk_unsigned_int;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	700 else if ((flags & CPP_N_WIDTH) == CPP_N_MEDIUM)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	701 itk = itk_unsigned_long;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	702 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	703 itk = itk_unsigned_long_long;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	704
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	705 for (; itk < itk_none; itk += 2 /* skip unsigned types */)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	706 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	707 tree upper;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	708
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	709 if (integer_types[itk] == NULL_TREE)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	710 continue;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	711 upper = TYPE_MAX_VALUE (integer_types[itk]);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	712
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	713 if (wi::geu_p (wi::to_widest (upper), val))
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	714 return (enum integer_type_kind) itk;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	715 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	716
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	717 return itk_none;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	718 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	719
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	720 /* Ditto, but narrowest signed type. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	721 static enum integer_type_kind
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	722 narrowest_signed_type (const widest_int &val, unsigned int flags)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	723 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	724 int itk;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	725
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	726 if ((flags & CPP_N_WIDTH) == CPP_N_SMALL)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	727 itk = itk_int;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	728 else if ((flags & CPP_N_WIDTH) == CPP_N_MEDIUM)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	729 itk = itk_long;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	730 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	731 itk = itk_long_long;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	732
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	733 for (; itk < itk_none; itk += 2 /* skip signed types */)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	734 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	735 tree upper;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	736
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	737 if (integer_types[itk] == NULL_TREE)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	738 continue;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	739 upper = TYPE_MAX_VALUE (integer_types[itk]);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	740
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	741 if (wi::geu_p (wi::to_widest (upper), val))
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	742 return (enum integer_type_kind) itk;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	743 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	744
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	745 return itk_none;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	746 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	747
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	748 /* Interpret TOKEN, an integer with FLAGS as classified by cpplib. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	749 static tree
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	750 interpret_integer (const cpp_token *token, unsigned int flags,
04ced10e8804 gcc 7 kono parents: 68 diff changeset	751 enum overflow_type *overflow)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	752 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	753 tree value, type;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	754 enum integer_type_kind itk;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	755 cpp_num integer;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	756 HOST_WIDE_INT ival[3];
04ced10e8804 gcc 7 kono parents: 68 diff changeset	757
04ced10e8804 gcc 7 kono parents: 68 diff changeset	758 *overflow = OT_NONE;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	759
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	760 integer = cpp_interpret_integer (parse_in, token, flags);
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	761 if (integer.overflow)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	762 *overflow = OT_OVERFLOW;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	763
04ced10e8804 gcc 7 kono parents: 68 diff changeset	764 ival[0] = integer.low;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	765 ival[1] = integer.high;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	766 ival[2] = 0;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	767 widest_int wval = widest_int::from_array (ival, 3);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	768
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	769 /* The type of a constant with a U suffix is straightforward. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	770 if (flags & CPP_N_UNSIGNED)
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	771 itk = narrowest_unsigned_type (wval, flags);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	772 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	773 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	774 /* The type of a potentially-signed integer constant varies
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	775 depending on the base it's in, the standard in use, and the
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	776 length suffixes. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	777 enum integer_type_kind itk_u
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	778 = narrowest_unsigned_type (wval, flags);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	779 enum integer_type_kind itk_s
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	780 = narrowest_signed_type (wval, flags);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	781
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	782 /* In both C89 and C99, octal and hex constants may be signed or
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	783 unsigned, whichever fits tighter. We do not warn about this
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	784 choice differing from the traditional choice, as the constant
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	785 is probably a bit pattern and either way will work. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	786 if ((flags & CPP_N_RADIX) != CPP_N_DECIMAL)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	787 itk = MIN (itk_u, itk_s);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	788 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	789 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	790 /* In C99, decimal constants are always signed.
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	791 In C89, decimal constants that don't fit in long have
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	792 undefined behavior; we try to make them unsigned long.
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	793 In GCC's extended C89, that last is true of decimal
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	794 constants that don't fit in long long, too. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	795
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	796 itk = itk_s;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	797 if (itk_s > itk_u && itk_s > itk_long)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	798 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	799 if (!flag_isoc99)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	800 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	801 if (itk_u < itk_unsigned_long)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	802 itk_u = itk_unsigned_long;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	803 itk = itk_u;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	804 warning (0, "this decimal constant is unsigned only in ISO C90");
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	805 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	806 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	807 warning (OPT_Wtraditional,
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	808 "this decimal constant would be unsigned in ISO C90");
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	809 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	810 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	811 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	812
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	813 if (itk == itk_none)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	814 /* cpplib has already issued a warning for overflow. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	815 type = ((flags & CPP_N_UNSIGNED)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	816 ? widest_unsigned_literal_type_node
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	817 : widest_integer_literal_type_node);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	818 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	819 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	820 type = integer_types[itk];
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	821 if (itk > itk_unsigned_long
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	822 && (flags & CPP_N_WIDTH) != CPP_N_LARGE)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	823 emit_diagnostic
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	824 ((c_dialect_cxx () ? cxx_dialect == cxx98 : !flag_isoc99)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	825 ? DK_PEDWARN : DK_WARNING,
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	826 input_location, OPT_Wlong_long,
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	827 (flags & CPP_N_UNSIGNED)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	828 ? "integer constant is too large for %<unsigned long%> type"
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	829 : "integer constant is too large for %<long%> type");
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	830 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	831
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	832 value = wide_int_to_tree (type, wval);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	833
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	834 /* Convert imaginary to a complex type. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	835 if (flags & CPP_N_IMAGINARY)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	836 value = build_complex (NULL_TREE, build_int_cst (type, 0), value);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	837
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	838 return value;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	839 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	840
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	841 /* Interpret TOKEN, a floating point number with FLAGS as classified
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	842 by cpplib. For C++11 SUFFIX may contain a user-defined literal suffix. */
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	843 static tree
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	844 interpret_float (const cpp_token *token, unsigned int flags,
04ced10e8804 gcc 7 kono parents: 68 diff changeset	845 const char suffix, enum overflow_type overflow)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	846 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	847 tree type;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	848 tree const_type;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	849 tree value;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	850 REAL_VALUE_TYPE real;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	851 REAL_VALUE_TYPE real_trunc;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	852 char *copy;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	853 size_t copylen;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	854
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	855 *overflow = OT_NONE;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	856
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	857 /* Default (no suffix) depends on whether the FLOAT_CONST_DECIMAL64
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	858 pragma has been used and is either double or _Decimal64. Types
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	859 that are not allowed with decimal float default to double. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	860 if (flags & CPP_N_DEFAULT)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	861 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	862 flags ^= CPP_N_DEFAULT;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	863 flags \|= CPP_N_MEDIUM;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	864
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	865 if (((flags & CPP_N_HEX) == 0) && ((flags & CPP_N_IMAGINARY) == 0))
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	866 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	867 warning (OPT_Wunsuffixed_float_constants,
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	868 "unsuffixed floating constant");
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	869 if (float_const_decimal64_p ())
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	870 flags \|= CPP_N_DFLOAT;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	871 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	872 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	873
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	874 /* Decode _Fract and _Accum. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	875 if (flags & CPP_N_FRACT \|\| flags & CPP_N_ACCUM)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	876 return interpret_fixed (token, flags);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	877
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	878 /* Decode type based on width and properties. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	879 if (flags & CPP_N_DFLOAT)
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	880 if (!targetm.decimal_float_supported_p ())
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	881 {
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	882 error ("decimal floating-point not supported for this target");
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	883 return error_mark_node;
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	884 }
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	885 else if ((flags & CPP_N_WIDTH) == CPP_N_LARGE)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	886 type = dfloat128_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	887 else if ((flags & CPP_N_WIDTH) == CPP_N_SMALL)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	888 type = dfloat32_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	889 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	890 type = dfloat64_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	891 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	892 if (flags & CPP_N_WIDTH_MD)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	893 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	894 char suffix;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	895 machine_mode mode;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	896
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	897 if ((flags & CPP_N_WIDTH_MD) == CPP_N_MD_W)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	898 suffix = 'w';
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	899 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	900 suffix = 'q';
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	901
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	902 mode = targetm.c.mode_for_suffix (suffix);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	903 if (mode == VOIDmode)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	904 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	905 error ("unsupported non-standard suffix on floating constant");
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	906
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	907 return error_mark_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	908 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	909 else
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	910 pedwarn (input_location, OPT_Wpedantic, "non-standard suffix on floating constant");
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	911
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	912 type = c_common_type_for_mode (mode, 0);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	913 gcc_assert (type);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	914 }
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	915 else if ((flags & (CPP_N_FLOATN \| CPP_N_FLOATNX)) != 0)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	916 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	917 unsigned int n = (flags & CPP_N_WIDTH_FLOATN_NX) >> CPP_FLOATN_SHIFT;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	918 bool extended = (flags & CPP_N_FLOATNX) != 0;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	919 type = NULL_TREE;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	920 for (int i = 0; i < NUM_FLOATN_NX_TYPES; i++)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	921 if (floatn_nx_types[i].n == (int) n
04ced10e8804 gcc 7 kono parents: 68 diff changeset	922 && floatn_nx_types[i].extended == extended)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	923 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	924 type = FLOATN_NX_TYPE_NODE (i);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	925 break;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	926 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	927 if (type == NULL_TREE)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	928 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	929 error ("unsupported non-standard suffix on floating constant");
04ced10e8804 gcc 7 kono parents: 68 diff changeset	930 return error_mark_node;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	931 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	932 else
04ced10e8804 gcc 7 kono parents: 68 diff changeset	933 pedwarn (input_location, OPT_Wpedantic, "non-standard suffix on floating constant");
04ced10e8804 gcc 7 kono parents: 68 diff changeset	934 }
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	935 else if ((flags & CPP_N_WIDTH) == CPP_N_LARGE)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	936 type = long_double_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	937 else if ((flags & CPP_N_WIDTH) == CPP_N_SMALL
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	938 \|\| flag_single_precision_constant)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	939 type = float_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	940 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	941 type = double_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	942
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	943 const_type = excess_precision_type (type);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	944 if (!const_type)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	945 const_type = type;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	946
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	947 /* Copy the constant to a nul-terminated buffer. If the constant
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	948 has any suffixes, cut them off; REAL_VALUE_ATOF/ REAL_VALUE_HTOF
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	949 can't handle them. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	950 copylen = token->val.str.len;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	951 if (flags & CPP_N_USERDEF)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	952 copylen -= strlen (suffix);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	953 else if (flags & CPP_N_DFLOAT)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	954 copylen -= 2;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	955 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	956 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	957 if ((flags & CPP_N_WIDTH) != CPP_N_MEDIUM)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	958 /* Must be an F or L or machine defined suffix. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	959 copylen--;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	960 if (flags & CPP_N_IMAGINARY)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	961 /* I or J suffix. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	962 copylen--;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	963 if (flags & CPP_N_FLOATNX)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	964 copylen--;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	965 if (flags & (CPP_N_FLOATN \| CPP_N_FLOATNX))
04ced10e8804 gcc 7 kono parents: 68 diff changeset	966 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	967 unsigned int n = (flags & CPP_N_WIDTH_FLOATN_NX) >> CPP_FLOATN_SHIFT;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	968 while (n > 0)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	969 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	970 copylen--;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	971 n /= 10;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	972 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	973 }
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	974 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	975
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	976 copy = (char *) alloca (copylen + 1);
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	977 if (cxx_dialect > cxx11)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	978 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	979 size_t maxlen = 0;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	980 for (size_t i = 0; i < copylen; ++i)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	981 if (token->val.str.text[i] != '\'')
04ced10e8804 gcc 7 kono parents: 68 diff changeset	982 copy[maxlen++] = token->val.str.text[i];
04ced10e8804 gcc 7 kono parents: 68 diff changeset	983 copy[maxlen] = '\0';
04ced10e8804 gcc 7 kono parents: 68 diff changeset	984 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	985 else
04ced10e8804 gcc 7 kono parents: 68 diff changeset	986 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	987 memcpy (copy, token->val.str.text, copylen);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	988 copy[copylen] = '\0';
04ced10e8804 gcc 7 kono parents: 68 diff changeset	989 }
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	990
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	991 real_from_string3 (&real, copy, TYPE_MODE (const_type));
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	992 if (const_type != type)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	993 /* Diagnosing if the result of converting the value with excess
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	994 precision to the semantic type would overflow (with associated
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	995 double rounding) is more appropriate than diagnosing if the
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	996 result of converting the string directly to the semantic type
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	997 would overflow. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	998 real_convert (&real_trunc, TYPE_MODE (type), &real);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	999
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1000 /* Both C and C++ require a diagnostic for a floating constant
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1001 outside the range of representable values of its type. Since we
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1002 have __builtin_inf* to produce an infinity, this is now a
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1003 mandatory pedwarn if the target does not support infinities. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1004 if (REAL_VALUE_ISINF (real)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1005 \|\| (const_type != type && REAL_VALUE_ISINF (real_trunc)))
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1006 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1007 *overflow = OT_OVERFLOW;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1008 if (!(flags & CPP_N_USERDEF))
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1009 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1010 if (!MODE_HAS_INFINITIES (TYPE_MODE (type)))
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1011 pedwarn (input_location, 0,
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1012 "floating constant exceeds range of %qT", type);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1013 else
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1014 warning (OPT_Woverflow,
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1015 "floating constant exceeds range of %qT", type);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1016 }
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1017 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1018 /* We also give a warning if the value underflows. */
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1019 else if (real_equal (&real, &dconst0)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1020 \|\| (const_type != type
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1021 && real_equal (&real_trunc, &dconst0)))
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1022 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1023 REAL_VALUE_TYPE realvoidmode;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1024 int oflow = real_from_string (&realvoidmode, copy);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1025 *overflow = (oflow == 0 ? OT_NONE
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1026 : (oflow < 0 ? OT_UNDERFLOW : OT_OVERFLOW));
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1027 if (!(flags & CPP_N_USERDEF))
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1028 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1029 if (oflow < 0 \|\| !real_equal (&realvoidmode, &dconst0))
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1030 warning (OPT_Woverflow, "floating constant truncated to zero");
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1031 }
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1032 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1033
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1034 /* Create a node with determined type and value. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1035 value = build_real (const_type, real);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1036 if (flags & CPP_N_IMAGINARY)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1037 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1038 value = build_complex (NULL_TREE,
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1039 fold_convert (const_type,
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1040 integer_zero_node), value);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1041 if (type != const_type)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1042 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1043 const_type = TREE_TYPE (value);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1044 type = build_complex_type (type);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1045 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1046 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1047
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1048 if (type != const_type)
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1049 value = build1_loc (token->src_loc, EXCESS_PRECISION_EXPR, type, value);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1050
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1051 return value;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1052 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1053
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1054 /* Interpret TOKEN, a fixed-point number with FLAGS as classified
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1055 by cpplib. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1056
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1057 static tree
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1058 interpret_fixed (const cpp_token *token, unsigned int flags)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1059 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1060 tree type;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1061 tree value;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1062 FIXED_VALUE_TYPE fixed;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1063 char *copy;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1064 size_t copylen;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1065
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1066 copylen = token->val.str.len;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1067
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1068 if (flags & CPP_N_FRACT) /* _Fract. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1069 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1070 if (flags & CPP_N_UNSIGNED) /* Unsigned _Fract. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1071 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1072 if ((flags & CPP_N_WIDTH) == CPP_N_LARGE)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1073 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1074 type = unsigned_long_long_fract_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1075 copylen -= 4;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1076 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1077 else if ((flags & CPP_N_WIDTH) == CPP_N_MEDIUM)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1078 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1079 type = unsigned_long_fract_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1080 copylen -= 3;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1081 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1082 else if ((flags & CPP_N_WIDTH) == CPP_N_SMALL)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1083 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1084 type = unsigned_short_fract_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1085 copylen -= 3;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1086 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1087 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1088 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1089 type = unsigned_fract_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1090 copylen -= 2;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1091 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1092 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1093 else /* Signed _Fract. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1094 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1095 if ((flags & CPP_N_WIDTH) == CPP_N_LARGE)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1096 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1097 type = long_long_fract_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1098 copylen -= 3;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1099 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1100 else if ((flags & CPP_N_WIDTH) == CPP_N_MEDIUM)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1101 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1102 type = long_fract_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1103 copylen -= 2;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1104 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1105 else if ((flags & CPP_N_WIDTH) == CPP_N_SMALL)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1106 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1107 type = short_fract_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1108 copylen -= 2;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1109 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1110 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1111 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1112 type = fract_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1113 copylen --;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1114 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1115 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1116 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1117 else /* _Accum. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1118 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1119 if (flags & CPP_N_UNSIGNED) /* Unsigned _Accum. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1120 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1121 if ((flags & CPP_N_WIDTH) == CPP_N_LARGE)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1122 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1123 type = unsigned_long_long_accum_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1124 copylen -= 4;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1125 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1126 else if ((flags & CPP_N_WIDTH) == CPP_N_MEDIUM)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1127 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1128 type = unsigned_long_accum_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1129 copylen -= 3;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1130 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1131 else if ((flags & CPP_N_WIDTH) == CPP_N_SMALL)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1132 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1133 type = unsigned_short_accum_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1134 copylen -= 3;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1135 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1136 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1137 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1138 type = unsigned_accum_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1139 copylen -= 2;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1140 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1141 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1142 else /* Signed _Accum. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1143 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1144 if ((flags & CPP_N_WIDTH) == CPP_N_LARGE)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1145 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1146 type = long_long_accum_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1147 copylen -= 3;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1148 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1149 else if ((flags & CPP_N_WIDTH) == CPP_N_MEDIUM)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1150 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1151 type = long_accum_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1152 copylen -= 2;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1153 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1154 else if ((flags & CPP_N_WIDTH) == CPP_N_SMALL)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1155 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1156 type = short_accum_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1157 copylen -= 2;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1158 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1159 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1160 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1161 type = accum_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1162 copylen --;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1163 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1164 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1165 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1166
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1167 copy = (char *) alloca (copylen + 1);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1168 memcpy (copy, token->val.str.text, copylen);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1169 copy[copylen] = '\0';
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1170
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1171 fixed_from_string (&fixed, copy, SCALAR_TYPE_MODE (type));
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1172
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1173 /* Create a node with determined type and value. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1174 value = build_fixed (type, fixed);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1175
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1176 return value;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1177 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1178
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1179 /* Convert a series of STRING, WSTRING, STRING16, STRING32 and/or
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1180 UTF8STRING tokens into a tree, performing string constant
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1181 concatenation. TOK is the first of these. VALP is the location to
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1182 write the string into. OBJC_STRING indicates whether an '@' token
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1183 preceded the incoming token (in that case, the strings can either
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1184 be ObjC strings, preceded by a single '@', or normal strings, not
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1185 preceded by '@'. The result will be a CPP_OBJC_STRING). Returns
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1186 the CPP token type of the result (CPP_STRING, CPP_WSTRING,
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1187 CPP_STRING32, CPP_STRING16, CPP_UTF8STRING, or CPP_OBJC_STRING).
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1188
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1189 This is unfortunately more work than it should be. If any of the
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1190 strings in the series has an L prefix, the result is a wide string
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1191 (6.4.5p4). Whether or not the result is a wide string affects the
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1192 meaning of octal and hexadecimal escapes (6.4.4.4p6,9). But escape
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1193 sequences do not continue across the boundary between two strings in
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1194 a series (6.4.5p7), so we must not lose the boundaries. Therefore
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1195 cpp_interpret_string takes a vector of cpp_string structures, which
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1196 we must arrange to provide. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1197
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1198 static enum cpp_ttype
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1199 lex_string (const cpp_token tok, tree valp, bool objc_string, bool translate)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1200 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1201 tree value;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1202 size_t concats = 0;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1203 struct obstack str_ob;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1204 struct obstack loc_ob;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1205 cpp_string istr;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1206 enum cpp_ttype type = tok->type;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1207
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1208 /* Try to avoid the overhead of creating and destroying an obstack
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1209 for the common case of just one string. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1210 cpp_string str = tok->val.str;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1211 location_t init_loc = tok->src_loc;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1212 cpp_string *strs = &str;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1213 location_t *locs = NULL;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1214
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1215 /* objc_at_sign_was_seen is only used when doing Objective-C string
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1216 concatenation. It is 'true' if we have seen an '@' before the
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1217 current string, and 'false' if not. We must see exactly one or
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1218 zero '@' before each string. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1219 bool objc_at_sign_was_seen = false;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1220
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1221 retry:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1222 tok = cpp_get_token (parse_in);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1223 switch (tok->type)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1224 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1225 case CPP_PADDING:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1226 goto retry;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1227 case CPP_ATSIGN:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1228 if (objc_string)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1229 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1230 if (objc_at_sign_was_seen)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1231 error ("repeated %<@%> before Objective-C string");
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1232
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1233 objc_at_sign_was_seen = true;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1234 goto retry;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1235 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1236 /* FALLTHROUGH */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1237
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1238 default:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1239 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1240
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1241 case CPP_WSTRING:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1242 case CPP_STRING16:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1243 case CPP_STRING32:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1244 case CPP_UTF8STRING:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1245 if (type != tok->type)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1246 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1247 if (type == CPP_STRING)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1248 type = tok->type;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1249 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1250 error ("unsupported non-standard concatenation of string literals");
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1251 }
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1252 /* FALLTHROUGH */
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1253
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1254 case CPP_STRING:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1255 if (!concats)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1256 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1257 gcc_obstack_init (&str_ob);
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1258 gcc_obstack_init (&loc_ob);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1259 obstack_grow (&str_ob, &str, sizeof (cpp_string));
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1260 obstack_grow (&loc_ob, &init_loc, sizeof (location_t));
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1261 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1262
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1263 concats++;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1264 obstack_grow (&str_ob, &tok->val.str, sizeof (cpp_string));
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1265 obstack_grow (&loc_ob, &tok->src_loc, sizeof (location_t));
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1266
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1267 if (objc_string)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1268 objc_at_sign_was_seen = false;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1269 goto retry;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1270 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1271
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1272 /* It is an error if we saw a '@' with no following string. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1273 if (objc_at_sign_was_seen)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1274 error ("stray %<@%> in program");
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1275
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1276 /* We have read one more token than we want. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1277 _cpp_backup_tokens (parse_in, 1);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1278 if (concats)
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1279 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1280 strs = XOBFINISH (&str_ob, cpp_string *);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1281 locs = XOBFINISH (&loc_ob, location_t *);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1282 }
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1283
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1284 if (concats && !objc_string && !in_system_header_at (input_location))
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1285 warning (OPT_Wtraditional,
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1286 "traditional C rejects string constant concatenation");
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1287
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1288 if ((translate
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1289 ? cpp_interpret_string : cpp_interpret_string_notranslate)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1290 (parse_in, strs, concats + 1, &istr, type))
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1291 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1292 value = build_string (istr.len, (const char *) istr.text);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1293 free (CONST_CAST (unsigned char *, istr.text));
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1294 if (concats)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1295 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1296 gcc_assert (locs);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1297 gcc_assert (g_string_concat_db);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1298 g_string_concat_db->record_string_concatenation (concats + 1, locs);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1299 }
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1300 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1301 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1302 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1303 /* Callers cannot generally handle error_mark_node in this context,
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1304 so return the empty string instead. cpp_interpret_string has
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1305 issued an error. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1306 switch (type)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1307 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1308 default:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1309 case CPP_STRING:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1310 case CPP_UTF8STRING:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1311 value = build_string (1, "");
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1312 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1313 case CPP_STRING16:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1314 value = build_string (TYPE_PRECISION (char16_type_node)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1315 / TYPE_PRECISION (char_type_node),
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1316 "\0"); /* char16_t is 16 bits */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1317 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1318 case CPP_STRING32:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1319 value = build_string (TYPE_PRECISION (char32_type_node)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1320 / TYPE_PRECISION (char_type_node),
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1321 "\0\0\0"); /* char32_t is 32 bits */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1322 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1323 case CPP_WSTRING:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1324 value = build_string (TYPE_PRECISION (wchar_type_node)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1325 / TYPE_PRECISION (char_type_node),
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1326 "\0\0\0"); /* widest supported wchar_t
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1327 is 32 bits */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1328 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1329 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1330 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1331
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1332 switch (type)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1333 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1334 default:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1335 case CPP_STRING:
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1336 TREE_TYPE (value) = char_array_type_node;
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1337 break;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1338 case CPP_UTF8STRING:
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1339 if (flag_char8_t)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1340 TREE_TYPE (value) = char8_array_type_node;
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1341 else
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1342 TREE_TYPE (value) = char_array_type_node;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1343 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1344 case CPP_STRING16:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1345 TREE_TYPE (value) = char16_array_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1346 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1347 case CPP_STRING32:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1348 TREE_TYPE (value) = char32_array_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1349 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1350 case CPP_WSTRING:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1351 TREE_TYPE (value) = wchar_array_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1352 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1353 *valp = fix_string_type (value);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1354
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1355 if (concats)
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1356 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1357 obstack_free (&str_ob, 0);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1358 obstack_free (&loc_ob, 0);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1359 }
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1360
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1361 return objc_string ? CPP_OBJC_STRING : type;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1362 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1363
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1364 /* Converts a (possibly wide) character constant token into a tree. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1365 static tree
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1366 lex_charconst (const cpp_token *token)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1367 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1368 cppchar_t result;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1369 tree type, value;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1370 unsigned int chars_seen;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1371 int unsignedp = 0;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1372
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1373 result = cpp_interpret_charconst (parse_in, token,
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1374 &chars_seen, &unsignedp);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1375
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1376 if (token->type == CPP_WCHAR)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1377 type = wchar_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1378 else if (token->type == CPP_CHAR32)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1379 type = char32_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1380 else if (token->type == CPP_CHAR16)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1381 type = char16_type_node;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1382 else if (token->type == CPP_UTF8CHAR)
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1383 {
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1384 if (!c_dialect_cxx ())
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1385 type = unsigned_char_type_node;
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1386 else if (flag_char8_t)
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1387 type = char8_type_node;
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1388 else
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1389 type = char_type_node;
1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	1390 }
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1391 /* In C, a character constant has type 'int'.
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1392 In C++ 'char', but multi-char charconsts have type 'int'. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1393 else if (!c_dialect_cxx () \|\| chars_seen > 1)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1394 type = integer_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1395 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1396 type = char_type_node;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1397
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1398 /* Cast to cppchar_signed_t to get correct sign-extension of RESULT
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1399 before possibly widening to HOST_WIDE_INT for build_int_cst. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1400 if (unsignedp \|\| (cppchar_signed_t) result >= 0)
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1401 value = build_int_cst (type, result);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1402 else
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1403 value = build_int_cst (type, (cppchar_signed_t) result);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1404
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1405 return value;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1406 }
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1407
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1408 /* Helper function for c_parser_peek_conflict_marker
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1409 and cp_lexer_peek_conflict_marker.
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1410 Given a possible conflict marker token of kind TOK1_KIND
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1411 consisting of a pair of characters, get the token kind for the
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1412 standalone final character. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1413
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1414 enum cpp_ttype
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1415 conflict_marker_get_final_tok_kind (enum cpp_ttype tok1_kind)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1416 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1417 switch (tok1_kind)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1418 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1419 default: gcc_unreachable ();
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1420 case CPP_LSHIFT:
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1421 /* "<<" and '<' */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1422 return CPP_LESS;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1423
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1424 case CPP_EQ_EQ:
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1425 /* "==" and '=' */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1426 return CPP_EQ;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1427
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1428 case CPP_RSHIFT:
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1429 /* ">>" and '>' */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1430 return CPP_GREATER;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1431 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1432 }

Mercurial > hg > CbC > CbC_gcc

annotate gcc/c-family/c-lex.c @ 158:494b0b89df80 default tip