CbC/CbC_gcc: gcc/read-md.c annotate

annotate gcc/read-md.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 /* MD reader for GCC.
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
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	20 /* This file is compiled twice: once for the generator programs
04ced10e8804 gcc 7 kono parents: 68 diff changeset	21 once for the compiler. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	22 #ifdef GENERATOR_FILE
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	23 #include "bconfig.h"
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	24 #else
04ced10e8804 gcc 7 kono parents: 68 diff changeset	25 #include "config.h"
04ced10e8804 gcc 7 kono parents: 68 diff changeset	26 #endif
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	27 #include "system.h"
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	28 #include "coretypes.h"
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	29 #ifdef GENERATOR_FILE
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	30 #include "errors.h"
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	31 #endif /* #ifdef GENERATOR_FILE */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	32 #include "statistics.h"
04ced10e8804 gcc 7 kono parents: 68 diff changeset	33 #include "vec.h"
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	34 #include "read-md.h"
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	35
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	36 #ifndef GENERATOR_FILE
04ced10e8804 gcc 7 kono parents: 68 diff changeset	37
04ced10e8804 gcc 7 kono parents: 68 diff changeset	38 /* Minimal reimplementation of errors.c for use by RTL frontend
04ced10e8804 gcc 7 kono parents: 68 diff changeset	39 within cc1. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	40
04ced10e8804 gcc 7 kono parents: 68 diff changeset	41 int have_error = 0;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	42
04ced10e8804 gcc 7 kono parents: 68 diff changeset	43 #endif /* #ifndef GENERATOR_FILE */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	44
04ced10e8804 gcc 7 kono parents: 68 diff changeset	45
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	46 /* This callback will be invoked whenever an md include directive is
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	47 processed. To be used for creation of the dependency file. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	48 void (include_callback) (const char );
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	49
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	50 /* Global singleton. */
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	51
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	52 md_reader *md_reader_ptr;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	53
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	54 /* Given an object that starts with a char * name field, return a hash
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	55 code for its name. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	56
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	57 hashval_t
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	58 leading_string_hash (const void *def)
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 return htab_hash_string ((const char const *) def);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	61 }
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 /* Given two objects that start with char * name fields, return true if
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	64 they have the same name. */
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 int
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	67 leading_string_eq_p (const void def1, const void def2)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	68 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	69 return strcmp ((const char const *) def1,
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	70 (const char const *) def2) == 0;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	71 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	72
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	73 /* Return a hash value for the pointer pointed to by DEF. */
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 static hashval_t
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	76 leading_ptr_hash (const void *def)
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 return htab_hash_pointer ((const void const *) def);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	79 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	80
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	81 /* Return true if DEF1 and DEF2 are pointers to the same pointer. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	82
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	83 static int
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	84 leading_ptr_eq_p (const void def1, const void def2)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	85 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	86 return (const void const ) def1 == (const void const ) def2;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	87 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	88
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	89 /* Associate PTR with the file position given by FILE_LOC. */
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	90
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	91 void
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	92 md_reader::set_md_ptr_loc (const void *ptr, file_location file_loc)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	93 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	94 struct ptr_loc *loc;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	95
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	96 loc = (struct ptr_loc *) obstack_alloc (&m_ptr_loc_obstack,
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	97 sizeof (struct ptr_loc));
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	98 loc->ptr = ptr;
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	99 loc->loc = file_loc;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	100 *htab_find_slot (m_ptr_locs, loc, INSERT) = loc;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	101 }
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 /* Return the position associated with pointer PTR. Return null if no
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	104 position was set. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	105
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	106 const md_reader::ptr_loc *
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	107 md_reader::get_md_ptr_loc (const void *ptr)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	108 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	109 return (const struct ptr_loc *) htab_find (m_ptr_locs, &ptr);
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
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	112 /* Associate NEW_PTR with the same file position as OLD_PTR. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	113
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	114 void
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	115 md_reader::copy_md_ptr_loc (const void new_ptr, const void old_ptr)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	116 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	117 const struct ptr_loc *loc = get_md_ptr_loc (old_ptr);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	118 if (loc != 0)
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	119 set_md_ptr_loc (new_ptr, loc->loc);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	120 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	121
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	122 /* If PTR is associated with a known file position, print a #line
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	123 directive for it to OUTF. */
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	124
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	125 void
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	126 md_reader::fprint_md_ptr_loc (FILE outf, const void ptr)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	127 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	128 const struct ptr_loc *loc = get_md_ptr_loc (ptr);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	129 if (loc != 0)
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	130 fprintf (outf, "#line %d \"%s\"\n", loc->loc.lineno, loc->loc.filename);
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	131 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	132
04ced10e8804 gcc 7 kono parents: 68 diff changeset	133 /* Special fprint_md_ptr_loc for writing to STDOUT. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	134 void
04ced10e8804 gcc 7 kono parents: 68 diff changeset	135 md_reader::print_md_ptr_loc (const void *ptr)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	136 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	137 fprint_md_ptr_loc (stdout, ptr);
68 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
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	140 /* Return a condition that satisfies both COND1 and COND2. Either string
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	141 may be null or empty. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	142
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	143 const char *
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	144 md_reader::join_c_conditions (const char cond1, const char cond2)
68 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 char *result;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	147 const void **entry;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	148
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	149 if (cond1 == 0 \|\| cond1[0] == 0)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	150 return cond2;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	151
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	152 if (cond2 == 0 \|\| cond2[0] == 0)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	153 return cond1;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	154
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	155 if (strcmp (cond1, cond2) == 0)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	156 return cond1;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	157
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	158 result = concat ("(", cond1, ") && (", cond2, ")", NULL);
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	159 obstack_ptr_grow (&m_joined_conditions_obstack, result);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	160 obstack_ptr_grow (&m_joined_conditions_obstack, cond1);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	161 obstack_ptr_grow (&m_joined_conditions_obstack, cond2);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	162 entry = XOBFINISH (&m_joined_conditions_obstack, const void **);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	163 *htab_find_slot (m_joined_conditions, entry, INSERT) = entry;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	164 return result;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	165 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	166
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	167 /* Print condition COND to OUTF, wrapped in brackets. If COND was created
04ced10e8804 gcc 7 kono parents: 68 diff changeset	168 by join_c_conditions, recursively invoke this function for the original
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	169 conditions and join the result with "&&". Otherwise print a #line
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	170 directive for COND if its original file position is known. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	171
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	172 void
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	173 md_reader::fprint_c_condition (FILE outf, const char cond)
68 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 const char halves = (const char ) htab_find (m_joined_conditions, &cond);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	176 if (halves != 0)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	177 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	178 fprintf (outf, "(");
04ced10e8804 gcc 7 kono parents: 68 diff changeset	179 fprint_c_condition (outf, halves[1]);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	180 fprintf (outf, " && ");
04ced10e8804 gcc 7 kono parents: 68 diff changeset	181 fprint_c_condition (outf, halves[2]);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	182 fprintf (outf, ")");
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	183 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	184 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	185 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	186 fputc ('\n', outf);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	187 fprint_md_ptr_loc (outf, cond);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	188 fprintf (outf, "(%s)", cond);
68 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
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	192 /* Special fprint_c_condition for writing to STDOUT. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	193
04ced10e8804 gcc 7 kono parents: 68 diff changeset	194 void
04ced10e8804 gcc 7 kono parents: 68 diff changeset	195 md_reader::print_c_condition (const char *cond)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	196 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	197 fprint_c_condition (stdout, cond);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	198 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	199
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	200 /* A vfprintf-like function for reporting an error against line LINENO
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	201 of the current MD file. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	202
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	203 static void ATTRIBUTE_PRINTF(2,0)
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	204 message_at_1 (file_location loc, const char *msg, va_list ap)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	205 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	206 fprintf (stderr, "%s:%d:%d: ", loc.filename, loc.lineno, loc.colno);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	207 vfprintf (stderr, msg, ap);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	208 fputc ('\n', stderr);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	209 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	210
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	211 /* A printf-like function for reporting a message against location LOC. */
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	212
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	213 void
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	214 message_at (file_location loc, const char *msg, ...)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	215 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	216 va_list ap;
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 va_start (ap, msg);
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	219 message_at_1 (loc, msg, ap);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	220 va_end (ap);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	221 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	222
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	223 /* Like message_at, but treat the condition as an error. */
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	224
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	225 void
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	226 error_at (file_location loc, const char *msg, ...)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	227 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	228 va_list ap;
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 va_start (ap, msg);
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	231 message_at_1 (loc, msg, ap);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	232 va_end (ap);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	233 have_error = 1;
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 /* Like message_at, but treat the condition as a fatal error. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	237
04ced10e8804 gcc 7 kono parents: 68 diff changeset	238 void
04ced10e8804 gcc 7 kono parents: 68 diff changeset	239 fatal_at (file_location loc, const char *msg, ...)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	240 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	241 va_list ap;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	242
04ced10e8804 gcc 7 kono parents: 68 diff changeset	243 va_start (ap, msg);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	244 message_at_1 (loc, msg, ap);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	245 va_end (ap);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	246 exit (1);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	247 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	248
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	249 /* A printf-like function for reporting an error against the current
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	250 position in the MD file. */
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 void
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	253 fatal_with_file_and_line (const char *msg, ...)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	254 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	255 char context[64];
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	256 size_t i;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	257 int c;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	258 va_list ap;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	259
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	260 va_start (ap, msg);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	261
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	262 fprintf (stderr, "%s:%d:%d: error: ", md_reader_ptr->get_filename (),
04ced10e8804 gcc 7 kono parents: 68 diff changeset	263 md_reader_ptr->get_lineno (),
04ced10e8804 gcc 7 kono parents: 68 diff changeset	264 md_reader_ptr->get_colno ());
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	265 vfprintf (stderr, msg, ap);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	266 putc ('\n', stderr);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	267
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	268 /* Gather some following context. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	269 for (i = 0; i < sizeof (context)-1; ++i)
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 c = read_char ();
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	272 if (c == EOF)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	273 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	274 if (c == '\r' \|\| c == '\n')
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 unread_char (c);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	277 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	278 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	279 context[i] = c;
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 context[i] = '\0';
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	282
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	283 fprintf (stderr, "%s:%d:%d: note: following context is `%s'\n",
04ced10e8804 gcc 7 kono parents: 68 diff changeset	284 md_reader_ptr->get_filename (),
04ced10e8804 gcc 7 kono parents: 68 diff changeset	285 md_reader_ptr->get_lineno (),
04ced10e8804 gcc 7 kono parents: 68 diff changeset	286 md_reader_ptr->get_colno (), context);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	287
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	288 va_end (ap);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	289 exit (1);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	290 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	291
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	292 /* Report that we found character ACTUAL when we expected to find
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	293 character EXPECTED. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	294
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	295 void
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	296 fatal_expected_char (int expected, int actual)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	297 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	298 if (actual == EOF)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	299 fatal_with_file_and_line ("expected character `%c', found EOF",
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	300 expected);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	301 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	302 fatal_with_file_and_line ("expected character `%c', found `%c'",
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	303 expected, actual);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	304 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	305
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	306 /* Read chars from the MD file until a non-whitespace char and return that.
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	307 Comments, both Lisp style and C style, are treated as whitespace. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	308
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	309 int
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	310 read_skip_spaces (void)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	311 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	312 int c;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	313
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	314 while (1)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	315 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	316 c = read_char ();
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	317 switch (c)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	318 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	319 case ' ': case '\t': case '\f': case '\r': case '\n':
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	320 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	321
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	322 case ';':
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	323 do
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	324 c = read_char ();
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	325 while (c != '\n' && c != EOF);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	326 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	327
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	328 case '/':
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	329 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	330 int prevc;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	331 c = read_char ();
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	332 if (c != '*')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	333 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	334 unread_char (c);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	335 fatal_with_file_and_line ("stray '/' in file");
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	336 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	337
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	338 prevc = 0;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	339 while ((c = read_char ()) && c != EOF)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	340 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	341 if (prevc == '*' && c == '/')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	342 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	343 prevc = c;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	344 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	345 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	346 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	347
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	348 default:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	349 return c;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	350 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	351 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	352 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	353
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	354 /* Consume the next character, issuing a fatal error if it is not
04ced10e8804 gcc 7 kono parents: 68 diff changeset	355 EXPECTED. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	356
04ced10e8804 gcc 7 kono parents: 68 diff changeset	357 void
04ced10e8804 gcc 7 kono parents: 68 diff changeset	358 md_reader::require_char (char expected)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	359 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	360 int ch = read_char ();
04ced10e8804 gcc 7 kono parents: 68 diff changeset	361 if (ch != expected)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	362 fatal_expected_char (expected, ch);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	363 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	364
04ced10e8804 gcc 7 kono parents: 68 diff changeset	365 /* Consume any whitespace, then consume the next non-whitespace
04ced10e8804 gcc 7 kono parents: 68 diff changeset	366 character, issuing a fatal error if it is not EXPECTED. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	367
04ced10e8804 gcc 7 kono parents: 68 diff changeset	368 void
04ced10e8804 gcc 7 kono parents: 68 diff changeset	369 md_reader::require_char_ws (char expected)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	370 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	371 int ch = read_skip_spaces ();
04ced10e8804 gcc 7 kono parents: 68 diff changeset	372 if (ch != expected)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	373 fatal_expected_char (expected, ch);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	374 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	375
04ced10e8804 gcc 7 kono parents: 68 diff changeset	376 /* Consume any whitespace, then consume the next word (as per read_name),
04ced10e8804 gcc 7 kono parents: 68 diff changeset	377 issuing a fatal error if it is not EXPECTED. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	378
04ced10e8804 gcc 7 kono parents: 68 diff changeset	379 void
04ced10e8804 gcc 7 kono parents: 68 diff changeset	380 md_reader::require_word_ws (const char *expected)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	381 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	382 struct md_name name;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	383 read_name (&name);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	384 if (strcmp (name.string, expected))
04ced10e8804 gcc 7 kono parents: 68 diff changeset	385 fatal_with_file_and_line ("missing '%s'", expected);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	386 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	387
04ced10e8804 gcc 7 kono parents: 68 diff changeset	388 /* Read the next character from the file. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	389
04ced10e8804 gcc 7 kono parents: 68 diff changeset	390 int
04ced10e8804 gcc 7 kono parents: 68 diff changeset	391 md_reader::read_char (void)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	392 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	393 int ch;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	394
04ced10e8804 gcc 7 kono parents: 68 diff changeset	395 ch = getc (m_read_md_file);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	396 if (ch == '\n')
04ced10e8804 gcc 7 kono parents: 68 diff changeset	397 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	398 m_read_md_lineno++;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	399 m_last_line_colno = m_read_md_colno;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	400 m_read_md_colno = 0;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	401 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	402 else
04ced10e8804 gcc 7 kono parents: 68 diff changeset	403 m_read_md_colno++;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	404
04ced10e8804 gcc 7 kono parents: 68 diff changeset	405 /* If we're filtering lines, treat everything before the range of
04ced10e8804 gcc 7 kono parents: 68 diff changeset	406 interest as a space, and as EOF for everything after. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	407 if (m_first_line && m_last_line)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	408 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	409 if (m_read_md_lineno < m_first_line)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	410 return ' ';
04ced10e8804 gcc 7 kono parents: 68 diff changeset	411 if (m_read_md_lineno > m_last_line)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	412 return EOF;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	413 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	414
04ced10e8804 gcc 7 kono parents: 68 diff changeset	415 return ch;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	416 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	417
04ced10e8804 gcc 7 kono parents: 68 diff changeset	418 /* Put back CH, which was the last character read from the file. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	419
04ced10e8804 gcc 7 kono parents: 68 diff changeset	420 void
04ced10e8804 gcc 7 kono parents: 68 diff changeset	421 md_reader::unread_char (int ch)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	422 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	423 if (ch == '\n')
04ced10e8804 gcc 7 kono parents: 68 diff changeset	424 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	425 m_read_md_lineno--;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	426 m_read_md_colno = m_last_line_colno;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	427 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	428 else
04ced10e8804 gcc 7 kono parents: 68 diff changeset	429 m_read_md_colno--;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	430 ungetc (ch, m_read_md_file);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	431 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	432
04ced10e8804 gcc 7 kono parents: 68 diff changeset	433 /* Peek at the next character from the file without consuming it. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	434
04ced10e8804 gcc 7 kono parents: 68 diff changeset	435 int
04ced10e8804 gcc 7 kono parents: 68 diff changeset	436 md_reader::peek_char (void)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	437 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	438 int ch = read_char ();
04ced10e8804 gcc 7 kono parents: 68 diff changeset	439 unread_char (ch);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	440 return ch;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	441 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	442
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	443 /* Read an rtx code name into NAME. It is terminated by any of the
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	444 punctuation chars of rtx printed syntax. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	445
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	446 bool
04ced10e8804 gcc 7 kono parents: 68 diff changeset	447 md_reader::read_name_1 (struct md_name name, file_location out_loc)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	448 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	449 int c;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	450 size_t i;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	451 int angle_bracket_depth;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	452
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	453 c = read_skip_spaces ();
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	454
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	455 *out_loc = get_current_location ();
04ced10e8804 gcc 7 kono parents: 68 diff changeset	456
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	457 i = 0;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	458 angle_bracket_depth = 0;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	459 while (1)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	460 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	461 if (c == '<')
04ced10e8804 gcc 7 kono parents: 68 diff changeset	462 angle_bracket_depth++;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	463
04ced10e8804 gcc 7 kono parents: 68 diff changeset	464 if ((c == '>') && (angle_bracket_depth > 0))
04ced10e8804 gcc 7 kono parents: 68 diff changeset	465 angle_bracket_depth--;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	466
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	467 if (c == ' ' \|\| c == '\n' \|\| c == '\t' \|\| c == '\f' \|\| c == '\r'
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	468 \|\| c == EOF)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	469 break;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	470 if (angle_bracket_depth == 0)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	471 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	472 if (c == ':' \|\| c == ')' \|\| c == ']'
04ced10e8804 gcc 7 kono parents: 68 diff changeset	473 \|\| c == '"' \|\| c == '/' \|\| c == '(' \|\| c == '[')
04ced10e8804 gcc 7 kono parents: 68 diff changeset	474 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	475 unread_char (c);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	476 break;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	477 }
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	478 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	479
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	480 if (i == sizeof (name->buffer) - 1)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	481 fatal_with_file_and_line ("name too long");
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	482 name->buffer[i++] = c;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	483
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	484 c = read_char ();
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	485 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	486
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	487 if (i == 0)
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	488 return false;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	489
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	490 name->buffer[i] = 0;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	491 name->string = name->buffer;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	492
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	493 if (m_md_constants)
68 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 /* Do constant expansion. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	496 struct md_constant *def;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	497
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	498 do
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	499 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	500 struct md_constant tmp_def;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	501
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	502 tmp_def.name = name->string;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	503 def = (struct md_constant *) htab_find (m_md_constants, &tmp_def);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	504 if (def)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	505 name->string = def->value;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	506 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	507 while (def);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	508 }
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	509
04ced10e8804 gcc 7 kono parents: 68 diff changeset	510 return true;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	511 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	512
04ced10e8804 gcc 7 kono parents: 68 diff changeset	513 /* Read an rtx code name into NAME. It is terminated by any of the
04ced10e8804 gcc 7 kono parents: 68 diff changeset	514 punctuation chars of rtx printed syntax. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	515
04ced10e8804 gcc 7 kono parents: 68 diff changeset	516 file_location
04ced10e8804 gcc 7 kono parents: 68 diff changeset	517 md_reader::read_name (struct md_name *name)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	518 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	519 file_location loc;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	520 if (!read_name_1 (name, &loc))
04ced10e8804 gcc 7 kono parents: 68 diff changeset	521 fatal_with_file_and_line ("missing name or number");
04ced10e8804 gcc 7 kono parents: 68 diff changeset	522 return loc;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	523 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	524
04ced10e8804 gcc 7 kono parents: 68 diff changeset	525 file_location
04ced10e8804 gcc 7 kono parents: 68 diff changeset	526 md_reader::read_name_or_nil (struct md_name *name)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	527 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	528 file_location loc;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	529 if (!read_name_1 (name, &loc))
04ced10e8804 gcc 7 kono parents: 68 diff changeset	530 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	531 file_location loc = get_current_location ();
04ced10e8804 gcc 7 kono parents: 68 diff changeset	532 read_skip_construct (0, loc);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	533 /* Skip the ')'. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	534 read_char ();
04ced10e8804 gcc 7 kono parents: 68 diff changeset	535 name->buffer[0] = 0;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	536 name->string = name->buffer;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	537 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	538 return loc;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	539 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	540
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	541 /* Subroutine of the string readers. Handles backslash escapes.
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	542 Caller has read the backslash, but not placed it into the obstack. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	543
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	544 void
04ced10e8804 gcc 7 kono parents: 68 diff changeset	545 md_reader::read_escape ()
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	546 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	547 int c = read_char ();
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	548
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	549 switch (c)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	550 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	551 /* Backslash-newline is replaced by nothing, as in C. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	552 case '\n':
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	553 return;
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 /* \" \' \\ are replaced by the second character. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	556 case '\\':
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	557 case '"':
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	558 case '\'':
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	559 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	560
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	561 /* Standard C string escapes:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	562 \a \b \f \n \r \t \v
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	563 \[0-7] \x
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	564 all are passed through to the output string unmolested.
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	565 In normal use these wind up in a string constant processed
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	566 by the C compiler, which will translate them appropriately.
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	567 We do not bother checking that \[0-7] are followed by up to
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	568 two octal digits, or that \x is followed by N hex digits.
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	569 \? \u \U are left out because they are not in traditional C. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	570 case 'a': case 'b': case 'f': case 'n': case 'r': case 't': case 'v':
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	571 case '0': case '1': case '2': case '3': case '4': case '5': case '6':
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	572 case '7': case 'x':
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	573 obstack_1grow (&m_string_obstack, '\\');
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	574 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	575
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	576 /* \; makes stuff for a C string constant containing
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	577 newline and tab. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	578 case ';':
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	579 obstack_grow (&m_string_obstack, "\\n\\t", 4);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	580 return;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	581
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	582 /* pass anything else through, but issue a warning. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	583 default:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	584 fprintf (stderr, "%s:%d: warning: unrecognized escape \\%c\n",
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	585 get_filename (), get_lineno (),
04ced10e8804 gcc 7 kono parents: 68 diff changeset	586 c);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	587 obstack_1grow (&m_string_obstack, '\\');
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	588 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	589 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	590
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	591 obstack_1grow (&m_string_obstack, c);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	592 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	593
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	594 /* Read a double-quoted string onto the obstack. Caller has scanned
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	595 the leading quote. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	596
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	597 char *
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	598 md_reader::read_quoted_string ()
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	599 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	600 int c;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	601
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	602 while (1)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	603 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	604 c = read_char (); /* Read the string */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	605 if (c == '\\')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	606 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	607 read_escape ();
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	608 continue;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	609 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	610 else if (c == '"' \|\| c == EOF)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	611 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	612
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	613 obstack_1grow (&m_string_obstack, c);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	614 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	615
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	616 obstack_1grow (&m_string_obstack, 0);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	617 return XOBFINISH (&m_string_obstack, char *);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	618 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	619
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	620 /* Read a braced string (a la Tcl) onto the string obstack. Caller
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	621 has scanned the leading brace. Note that unlike quoted strings,
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	622 the outermost braces _are_ included in the string constant. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	623
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	624 char *
04ced10e8804 gcc 7 kono parents: 68 diff changeset	625 md_reader::read_braced_string ()
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	626 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	627 int c;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	628 int brace_depth = 1; /* caller-processed */
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	629 unsigned long starting_read_md_lineno = get_lineno ();
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	630
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	631 obstack_1grow (&m_string_obstack, '{');
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	632 while (brace_depth)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	633 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	634 c = read_char (); /* Read the string */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	635
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	636 if (c == '{')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	637 brace_depth++;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	638 else if (c == '}')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	639 brace_depth--;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	640 else if (c == '\\')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	641 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	642 read_escape ();
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	643 continue;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	644 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	645 else if (c == EOF)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	646 fatal_with_file_and_line
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	647 ("missing closing } for opening brace on line %lu",
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	648 starting_read_md_lineno);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	649
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	650 obstack_1grow (&m_string_obstack, c);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	651 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	652
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	653 obstack_1grow (&m_string_obstack, 0);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	654 return XOBFINISH (&m_string_obstack, char *);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	655 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	656
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	657 /* Read some kind of string constant. This is the high-level routine
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	658 used by read_rtx. It handles surrounding parentheses, leading star,
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	659 and dispatch to the appropriate string constant reader. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	660
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	661 char *
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	662 md_reader::read_string (int star_if_braced)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	663 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	664 char *stringbuf;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	665 int saw_paren = 0;
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	666 int c;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	667
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	668 c = read_skip_spaces ();
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	669 if (c == '(')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	670 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	671 saw_paren = 1;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	672 c = read_skip_spaces ();
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	673 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	674
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	675 file_location loc = get_current_location ();
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	676 if (c == '"')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	677 stringbuf = read_quoted_string ();
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	678 else if (c == '{')
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 if (star_if_braced)
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	681 obstack_1grow (&m_string_obstack, '*');
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	682 stringbuf = read_braced_string ();
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	683 }
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	684 else if (saw_paren && c == 'n')
04ced10e8804 gcc 7 kono parents: 68 diff changeset	685 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	686 /* Handle (nil) by returning NULL. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	687 require_char ('i');
04ced10e8804 gcc 7 kono parents: 68 diff changeset	688 require_char ('l');
04ced10e8804 gcc 7 kono parents: 68 diff changeset	689 require_char_ws (')');
04ced10e8804 gcc 7 kono parents: 68 diff changeset	690 return NULL;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	691 }
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	692 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	693 fatal_with_file_and_line ("expected `\"' or `{', found `%c'", c);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	694
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	695 if (saw_paren)
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	696 require_char_ws (')');
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	697
145 1830386684a0 gcc-9.2.0 anatofuz parents: 131 diff changeset	698 set_md_ptr_loc (stringbuf, loc);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	699 return stringbuf;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	700 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	701
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	702 /* Skip the rest of a construct that started at line LINENO and that
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	703 is currently nested by DEPTH levels of parentheses. */
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 void
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	706 md_reader::read_skip_construct (int depth, file_location loc)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	707 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	708 struct md_name name;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	709 int c;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	710
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	711 do
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	712 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	713 c = read_skip_spaces ();
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	714 if (c == EOF)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	715 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	716 error_at (loc, "unterminated construct");
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	717 exit (1);
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 switch (c)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	720 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	721 case '(':
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	722 depth++;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	723 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	724
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	725 case ')':
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	726 depth--;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	727 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	728
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	729 case ':':
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	730 case '[':
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	731 case ']':
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	732 case '/':
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	733 break;
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 case '\"':
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	736 case '{':
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	737 unread_char (c);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	738 read_string (false);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	739 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	740
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	741 default:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	742 unread_char (c);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	743 read_name (&name);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	744 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	745 }
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 while (depth > 0);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	748 unread_char (c);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	749 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	750
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	751 /* Given a string, return the number of comma-separated elements in it.
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	752 Return 0 for the null string. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	753
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	754 int
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	755 n_comma_elts (const char *s)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	756 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	757 int n;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	758
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	759 if (*s == '\0')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	760 return 0;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	761
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	762 for (n = 1; *s; s++)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	763 if (*s == ',')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	764 n++;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	765
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	766 return n;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	767 }
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 /* Given a pointer to a (char *), return a pointer to the beginning of the
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	770 next comma-separated element in the string. Advance the pointer given
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	771 to the end of that element. Return NULL if at end of string. Caller
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	772 is responsible for copying the string if necessary. White space between
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	773 a comma and an element is ignored. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	774
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	775 const char *
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	776 scan_comma_elt (const char **pstr)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	777 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	778 const char *start;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	779 const char p = pstr;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	780
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	781 if (*p == ',')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	782 p++;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	783 while (ISSPACE (*p))
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	784 p++;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	785
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	786 if (*p == '\0')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	787 return NULL;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	788
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	789 start = p;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	790
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	791 while (p != ',' && p != '\0')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	792 p++;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	793
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	794 *pstr = p;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	795 return start;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	796 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	797
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	798 /* Convert STRING to uppercase. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	799
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	800 void
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	801 upcase_string (char *string)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	802 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	803 int i;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	804
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	805 for (i = 0; string[i]; i++)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	806 string[i] = TOUPPER (string[i]);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	807 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	808
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	809 /* Add a NAME = VALUE definition to md_constants-style hash table DEFS,
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	810 where both NAME and VALUE are malloc()ed strings. PARENT_ENUM is the
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	811 enum to which NAME belongs, or null if NAME is a stand-alone constant. */
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 static struct md_constant *
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	814 add_constant (htab_t defs, char name, char value,
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	815 struct enum_type *parent_enum)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	816 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	817 struct md_constant *def, tmp_def;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	818 void **entry_ptr;
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 tmp_def.name = name;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	821 entry_ptr = htab_find_slot (defs, &tmp_def, INSERT);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	822 if (*entry_ptr)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	823 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	824 def = (struct md_constant ) entry_ptr;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	825 if (strcmp (def->value, value) != 0)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	826 fatal_with_file_and_line ("redefinition of `%s', was `%s', now `%s'",
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	827 def->name, def->value, value);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	828 else if (parent_enum \|\| def->parent_enum)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	829 fatal_with_file_and_line ("redefinition of `%s'", def->name);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	830 free (name);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	831 free (value);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	832 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	833 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	834 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	835 def = XNEW (struct md_constant);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	836 def->name = name;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	837 def->value = value;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	838 def->parent_enum = parent_enum;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	839 *entry_ptr = def;
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 return def;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	842 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	843
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	844 /* Process a define_constants directive, starting with the optional space
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	845 after the "define_constants". */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	846
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	847 void
04ced10e8804 gcc 7 kono parents: 68 diff changeset	848 md_reader::handle_constants ()
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	849 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	850 int c;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	851 htab_t defs;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	852
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	853 require_char_ws ('[');
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	854
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	855 /* Disable constant expansion during definition processing. */
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	856 defs = m_md_constants;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	857 m_md_constants = 0;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	858 while ( (c = read_skip_spaces ()) != ']')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	859 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	860 struct md_name name, value;
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 if (c != '(')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	863 fatal_expected_char ('(', c);
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 read_name (&name);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	866 read_name (&value);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	867 add_constant (defs, xstrdup (name.string), xstrdup (value.string), 0);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	868
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	869 require_char_ws (')');
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	870 }
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	871 m_md_constants = defs;
68 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 /* For every constant definition, call CALLBACK with two arguments:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	875 a pointer a pointer to the constant definition and INFO.
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	876 Stop when CALLBACK returns zero. */
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 void
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	879 md_reader::traverse_md_constants (htab_trav callback, void *info)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	880 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	881 htab_traverse (get_md_constants (), callback, info);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	882 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	883
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	884 /* Return a malloc()ed decimal string that represents number NUMBER. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	885
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	886 static char *
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	887 md_decimal_string (int number)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	888 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	889 /* A safe overestimate. +1 for sign, +1 for null terminator. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	890 char buffer[sizeof (int) * CHAR_BIT + 1 + 1];
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	891
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	892 sprintf (buffer, "%d", number);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	893 return xstrdup (buffer);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	894 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	895
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	896 /* Process a define_enum or define_c_enum directive, starting with
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	897 the optional space after the "define_enum". LINENO is the line
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	898 number on which the directive started and MD_P is true if the
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	899 directive is a define_enum rather than a define_c_enum. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	900
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	901 void
04ced10e8804 gcc 7 kono parents: 68 diff changeset	902 md_reader::handle_enum (file_location loc, bool md_p)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	903 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	904 char enum_name, value_name;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	905 struct md_name name;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	906 struct enum_type *def;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	907 struct enum_value *ev;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	908 void **slot;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	909 int c;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	910
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	911 enum_name = read_string (false);
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	912 slot = htab_find_slot (m_enum_types, &enum_name, INSERT);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	913 if (*slot)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	914 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	915 def = (struct enum_type ) slot;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	916 if (def->md_p != md_p)
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	917 error_at (loc, "redefining `%s' as a different type of enum",
04ced10e8804 gcc 7 kono parents: 68 diff changeset	918 enum_name);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	919 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	920 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	921 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	922 def = XNEW (struct enum_type);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	923 def->name = enum_name;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	924 def->md_p = md_p;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	925 def->values = 0;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	926 def->tail_ptr = &def->values;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	927 def->num_values = 0;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	928 *slot = def;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	929 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	930
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	931 require_char_ws ('[');
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	932
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	933 while ((c = read_skip_spaces ()) != ']')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	934 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	935 if (c == EOF)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	936 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	937 error_at (loc, "unterminated construct");
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	938 exit (1);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	939 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	940 unread_char (c);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	941 read_name (&name);
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 ev = XNEW (struct enum_value);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	944 ev->next = 0;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	945 if (md_p)
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 value_name = concat (def->name, "_", name.string, NULL);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	948 upcase_string (value_name);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	949 ev->name = xstrdup (name.string);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	950 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	951 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	952 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	953 value_name = xstrdup (name.string);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	954 ev->name = value_name;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	955 }
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	956 ev->def = add_constant (get_md_constants (), value_name,
04ced10e8804 gcc 7 kono parents: 68 diff changeset	957 md_decimal_string (def->num_values), def);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	958
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	959 *def->tail_ptr = ev;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	960 def->tail_ptr = &ev->next;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	961 def->num_values++;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	962 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	963 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	964
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	965 /* Try to find the definition of the given enum. Return null on failure. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	966
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	967 struct enum_type *
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	968 md_reader::lookup_enum_type (const char *name)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	969 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	970 return (struct enum_type *) htab_find (m_enum_types, &name);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	971 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	972
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	973 /* For every enum definition, call CALLBACK with two arguments:
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	974 a pointer to the constant definition and INFO. Stop when CALLBACK
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	975 returns zero. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	976
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	977 void
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	978 md_reader::traverse_enum_types (htab_trav callback, void *info)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	979 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	980 htab_traverse (m_enum_types, callback, info);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	981 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	982
04ced10e8804 gcc 7 kono parents: 68 diff changeset	983
04ced10e8804 gcc 7 kono parents: 68 diff changeset	984 /* Constructor for md_reader. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	985
04ced10e8804 gcc 7 kono parents: 68 diff changeset	986 md_reader::md_reader (bool compact)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	987 : m_compact (compact),
04ced10e8804 gcc 7 kono parents: 68 diff changeset	988 m_toplevel_fname (NULL),
04ced10e8804 gcc 7 kono parents: 68 diff changeset	989 m_base_dir (NULL),
04ced10e8804 gcc 7 kono parents: 68 diff changeset	990 m_read_md_file (NULL),
04ced10e8804 gcc 7 kono parents: 68 diff changeset	991 m_read_md_filename (NULL),
04ced10e8804 gcc 7 kono parents: 68 diff changeset	992 m_read_md_lineno (0),
04ced10e8804 gcc 7 kono parents: 68 diff changeset	993 m_read_md_colno (0),
04ced10e8804 gcc 7 kono parents: 68 diff changeset	994 m_first_dir_md_include (NULL),
04ced10e8804 gcc 7 kono parents: 68 diff changeset	995 m_last_dir_md_include_ptr (&m_first_dir_md_include),
04ced10e8804 gcc 7 kono parents: 68 diff changeset	996 m_first_line (0),
131 84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	997 m_last_line (0),
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	998 m_first_overload (NULL),
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	999 m_next_overload_ptr (&m_first_overload),
84e7813d76e9 gcc-8.2 mir3636 parents: 111 diff changeset	1000 m_overloads_htab (NULL)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1001 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1002 /* Set the global singleton pointer. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1003 md_reader_ptr = this;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1004
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1005 obstack_init (&m_string_obstack);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1006
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1007 m_ptr_locs = htab_create (161, leading_ptr_hash, leading_ptr_eq_p, 0);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1008 obstack_init (&m_ptr_loc_obstack);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1009
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1010 m_joined_conditions = htab_create (161, leading_ptr_hash, leading_ptr_eq_p, 0);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1011 obstack_init (&m_joined_conditions_obstack);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1012
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1013 m_md_constants = htab_create (31, leading_string_hash,
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1014 leading_string_eq_p, (htab_del) 0);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1015
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1016 m_enum_types = htab_create (31, leading_string_hash,
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1017 leading_string_eq_p, (htab_del) 0);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1018
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1019 /* Unlock the stdio streams. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1020 unlock_std_streams ();
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1021 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1022
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1023 /* md_reader's destructor. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1024
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1025 md_reader::~md_reader ()
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1026 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1027 free (m_base_dir);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1028
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1029 htab_delete (m_enum_types);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1030
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1031 htab_delete (m_md_constants);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1032
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1033 obstack_free (&m_joined_conditions_obstack, NULL);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1034 htab_delete (m_joined_conditions);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1035
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1036 obstack_free (&m_ptr_loc_obstack, NULL);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1037 htab_delete (m_ptr_locs);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1038
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1039 obstack_free (&m_string_obstack, NULL);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1040
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1041 /* Clear the global singleton pointer. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1042 md_reader_ptr = NULL;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1043 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1044
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1045 /* Process an "include" directive, starting with the optional space
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1046 after the "include". Read in the file and use HANDLE_DIRECTIVE
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1047 to process each unknown directive. LINENO is the line number on
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1048 which the "include" occurred. */
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1049
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1050 void
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1051 md_reader::handle_include (file_location loc)
68 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 const char *filename;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1054 const char *old_filename;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1055 int old_lineno, old_colno;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1056 char *pathname;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1057 FILE input_file, old_file;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1058
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1059 filename = read_string (false);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1060 input_file = NULL;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1061
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1062 /* If the specified file name is absolute, skip the include stack. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1063 if (!IS_ABSOLUTE_PATH (filename))
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1064 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1065 struct file_name_list *stackp;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1066
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1067 /* Search the directory path, trying to open the file. */
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1068 for (stackp = m_first_dir_md_include; stackp; stackp = stackp->next)
68 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 static const char sep[2] = { DIR_SEPARATOR, '\0' };
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 pathname = concat (stackp->fname, sep, filename, NULL);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1073 input_file = fopen (pathname, "r");
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1074 if (input_file != NULL)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1075 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1076 free (pathname);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1077 }
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
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1080 /* If we haven't managed to open the file yet, try combining the
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1081 filename with BASE_DIR. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1082 if (input_file == NULL)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1083 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1084 if (m_base_dir)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1085 pathname = concat (m_base_dir, filename, NULL);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1086 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1087 pathname = xstrdup (filename);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1088 input_file = fopen (pathname, "r");
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1089 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1090
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1091 if (input_file == NULL)
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 free (pathname);
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1094 error_at (loc, "include file `%s' not found", filename);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1095 return;
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
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1098 /* Save the old cursor. Note that the LINENO argument to this
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1099 function is the beginning of the include statement, while
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1100 read_md_lineno has already been advanced. */
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1101 old_file = m_read_md_file;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1102 old_filename = m_read_md_filename;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1103 old_lineno = m_read_md_lineno;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1104 old_colno = m_read_md_colno;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1105
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1106 if (include_callback)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1107 include_callback (pathname);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1108
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1109 m_read_md_file = input_file;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1110 m_read_md_filename = pathname;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1111
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1112 handle_file ();
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1113
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1114 /* Restore the old cursor. */
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1115 m_read_md_file = old_file;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1116 m_read_md_filename = old_filename;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1117 m_read_md_lineno = old_lineno;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1118 m_read_md_colno = old_colno;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1119
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1120 /* Do not free the pathname. It is attached to the various rtx
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1121 queue elements. */
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
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1124 /* Process the current file, assuming that read_md_file and
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1125 read_md_filename are valid. Use HANDLE_DIRECTIVE to handle
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1126 unknown directives. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1127
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1128 void
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1129 md_reader::handle_file ()
68 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 struct md_name directive;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1132 int c;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1133
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1134 m_read_md_lineno = 1;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1135 m_read_md_colno = 0;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1136 while ((c = read_skip_spaces ()) != EOF)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1137 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1138 file_location loc = get_current_location ();
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1139 if (c != '(')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1140 fatal_expected_char ('(', c);
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 read_name (&directive);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1143 if (strcmp (directive.string, "define_constants") == 0)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1144 handle_constants ();
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1145 else if (strcmp (directive.string, "define_enum") == 0)
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1146 handle_enum (loc, true);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1147 else if (strcmp (directive.string, "define_c_enum") == 0)
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1148 handle_enum (loc, false);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1149 else if (strcmp (directive.string, "include") == 0)
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1150 handle_include (loc);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1151 else
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1152 handle_unknown_directive (loc, directive.string);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1153
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1154 require_char_ws (')');
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1155 }
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1156 fclose (m_read_md_file);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1157 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1158
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1159 /* Like handle_file, but for top-level files. Set up m_toplevel_fname
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1160 and m_base_dir accordingly. */
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1161
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1162 void
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1163 md_reader::handle_toplevel_file ()
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1164 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1165 const char *base;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1166
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1167 m_toplevel_fname = m_read_md_filename;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1168 base = lbasename (m_toplevel_fname);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1169 if (base == m_toplevel_fname)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1170 m_base_dir = NULL;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1171 else
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1172 m_base_dir = xstrndup (m_toplevel_fname, base - m_toplevel_fname);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1173
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1174 handle_file ();
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1175 }
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1176
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1177 file_location
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1178 md_reader::get_current_location () const
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1179 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1180 return file_location (m_read_md_filename, m_read_md_lineno, m_read_md_colno);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1181 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1182
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1183 /* Parse a -I option with argument ARG. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1184
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1185 void
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1186 md_reader::add_include_path (const char *arg)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1187 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1188 struct file_name_list *dirtmp;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1189
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1190 dirtmp = XNEW (struct file_name_list);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1191 dirtmp->next = 0;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1192 dirtmp->fname = arg;
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1193 *m_last_dir_md_include_ptr = dirtmp;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1194 m_last_dir_md_include_ptr = &dirtmp->next;
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1195 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1196
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1197 #ifdef GENERATOR_FILE
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1198
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1199 /* The main routine for reading .md files. Try to process all the .md
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1200 files specified on the command line and return true if no error occurred.
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1201
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1202 ARGC and ARGV are the arguments to main.
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1203
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1204 PARSE_OPT, if nonnull, is passed all unknown command-line arguments.
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1205 It should return true if it recognizes the argument or false if a
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1206 generic error should be reported. */
68 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 bool
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1209 md_reader::read_md_files (int argc, const char **argv,
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1210 bool (parse_opt) (const char ))
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1211 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1212 int i;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1213 bool no_more_options;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1214 bool already_read_stdin;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1215 int num_files;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1216
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1217 /* First we loop over all the options. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1218 for (i = 1; i < argc; i++)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1219 if (argv[i][0] == '-')
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 /* An argument consisting of exactly one dash is a request to
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1222 read stdin. This will be handled in the second loop. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1223 if (argv[i][1] == '\0')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1224 continue;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1225
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1226 /* An argument consisting of just two dashes causes option
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1227 parsing to cease. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1228 if (argv[i][1] == '-' && argv[i][2] == '\0')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1229 break;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1230
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1231 if (argv[i][1] == 'I')
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 if (argv[i][2] != '\0')
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1234 add_include_path (argv[i] + 2);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1235 else if (++i < argc)
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1236 add_include_path (argv[i]);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1237 else
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1238 fatal ("directory name missing after -I option");
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1239 continue;
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
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1242 /* The program may have provided a callback so it can
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1243 accept its own options. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1244 if (parse_opt && parse_opt (argv[i]))
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1245 continue;
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 fatal ("invalid option `%s'", argv[i]);
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1248 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1249
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1250 /* Now loop over all input files. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1251 num_files = 0;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1252 no_more_options = false;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1253 already_read_stdin = false;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1254 for (i = 1; i < argc; i++)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1255 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1256 if (argv[i][0] == '-')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1257 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1258 if (argv[i][1] == '\0')
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1259 {
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1260 /* Read stdin. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1261 if (already_read_stdin)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1262 fatal ("cannot read standard input twice");
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1263
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1264 m_read_md_file = stdin;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1265 m_read_md_filename = "<stdin>";
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1266 handle_toplevel_file ();
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1267 already_read_stdin = true;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1268 continue;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1269 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1270 else if (argv[i][1] == '-' && argv[i][2] == '\0')
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 /* No further arguments are to be treated as options. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1273 no_more_options = true;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1274 continue;
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 else if (!no_more_options)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1277 continue;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1278 }
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1279
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1280 /* If we get here we are looking at a non-option argument, i.e.
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1281 a file to be processed. */
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1282 m_read_md_filename = argv[i];
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1283 m_read_md_file = fopen (m_read_md_filename, "r");
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1284 if (m_read_md_file == 0)
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1285 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1286 perror (m_read_md_filename);
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1287 return false;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1288 }
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1289 handle_toplevel_file ();
68 561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1290 num_files++;
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
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1293 /* If we get to this point without having seen any files to process,
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1294 read the standard input now. */
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1295 if (num_files == 0 && !already_read_stdin)
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1296 {
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1297 m_read_md_file = stdin;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1298 m_read_md_filename = "<stdin>";
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1299 handle_toplevel_file ();
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
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1302 return !have_error;
561a7518be6b update gcc-4.6 Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1303 }
111 04ced10e8804 gcc 7 kono parents: 68 diff changeset	1304
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1305 #endif /* #ifdef GENERATOR_FILE */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1306
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1307 /* Read FILENAME. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1308
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1309 bool
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1310 md_reader::read_file (const char *filename)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1311 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1312 m_read_md_filename = filename;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1313 m_read_md_file = fopen (m_read_md_filename, "r");
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1314 if (m_read_md_file == 0)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1315 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1316 perror (m_read_md_filename);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1317 return false;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1318 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1319 handle_toplevel_file ();
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1320 return !have_error;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1321 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1322
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1323 /* Read FILENAME, filtering to just the given lines. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1324
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1325 bool
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1326 md_reader::read_file_fragment (const char *filename,
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1327 int first_line,
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1328 int last_line)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1329 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1330 m_read_md_filename = filename;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1331 m_read_md_file = fopen (m_read_md_filename, "r");
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1332 if (m_read_md_file == 0)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1333 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1334 perror (m_read_md_filename);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1335 return false;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1336 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1337 m_first_line = first_line;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1338 m_last_line = last_line;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1339 handle_toplevel_file ();
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1340 return !have_error;
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1341 }
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1342
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1343 /* class noop_reader : public md_reader */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1344
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1345 /* A dummy implementation which skips unknown directives. */
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1346 void
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1347 noop_reader::handle_unknown_directive (file_location loc, const char *)
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1348 {
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1349 read_skip_construct (1, loc);
04ced10e8804 gcc 7 kono parents: 68 diff changeset	1350 }

Mercurial > hg > CbC > CbC_gcc

annotate gcc/read-md.c @ 158:494b0b89df80 default tip