Mercurial > hg > CbC > CbC_gcc
annotate gcc/gengenrtl.c @ 131:84e7813d76e9
gcc-8.2
| author | mir3636 |
|---|---|
| date | Thu, 25 Oct 2018 07:37:49 +0900 |
| parents | 04ced10e8804 |
| children | 1830386684a0 |
| rev | line source |
|---|---|
| 0 | 1 /* Generate code to allocate RTL structures. |
| 131 | 2 Copyright (C) 1997-2018 Free Software Foundation, Inc. |
| 0 | 3 |
| 4 This file is part of GCC. | |
| 5 | |
| 6 GCC is free software; you can redistribute it and/or modify it under | |
| 7 the terms of the GNU General Public License as published by the Free | |
| 8 Software Foundation; either version 3, or (at your option) any later | |
| 9 version. | |
| 10 | |
| 11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY | |
| 12 WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 14 for more details. | |
| 15 | |
| 16 You should have received a copy of the GNU General Public License | |
| 17 along with GCC; see the file COPYING3. If not see | |
| 18 <http://www.gnu.org/licenses/>. */ | |
| 19 | |
| 20 | |
| 21 #include "bconfig.h" | |
| 22 #include "system.h" | |
| 23 | |
| 24 struct rtx_definition | |
| 25 { | |
| 26 const char *const enumname, *const name, *const format; | |
| 27 }; | |
| 28 | |
| 29 /* rtl.def needs CONST_DOUBLE_FORMAT, but we don't care what | |
| 30 CONST_DOUBLE_FORMAT is because we're not going to be generating | |
| 31 anything for CONST_DOUBLE anyway. */ | |
| 32 #define CONST_DOUBLE_FORMAT "" | |
| 33 | |
| 34 #define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS) { #ENUM, NAME, FORMAT }, | |
| 35 | |
| 36 static const struct rtx_definition defs[] = | |
| 37 { | |
| 38 #include "rtl.def" /* rtl expressions are documented here */ | |
| 39 }; | |
| 111 | 40 #define NUM_RTX_CODE ARRAY_SIZE (defs) |
| 0 | 41 |
| 42 static const char *formats[NUM_RTX_CODE]; | |
| 43 | |
| 44 /* Decode a format letter into a C type string. */ | |
| 45 | |
| 46 static const char * | |
| 47 type_from_format (int c) | |
| 48 { | |
| 49 switch (c) | |
| 50 { | |
| 51 case 'i': | |
| 52 return "int "; | |
| 53 | |
| 54 case 'w': | |
| 55 return "HOST_WIDE_INT "; | |
| 56 | |
| 131 | 57 case 'p': |
| 58 return "poly_uint16 "; | |
| 59 | |
| 0 | 60 case 's': |
| 61 return "const char *"; | |
| 62 | |
| 63 case 'e': case 'u': | |
| 64 return "rtx "; | |
| 65 | |
| 66 case 'E': | |
| 67 return "rtvec "; | |
| 68 case 't': | |
| 111 | 69 return "tree "; |
| 0 | 70 case 'B': |
| 111 | 71 return "basic_block "; |
| 0 | 72 default: |
| 73 gcc_unreachable (); | |
| 74 } | |
| 75 } | |
| 76 | |
| 77 /* Decode a format letter into the proper accessor function. */ | |
| 78 | |
| 79 static const char * | |
| 80 accessor_from_format (int c) | |
| 81 { | |
| 82 switch (c) | |
| 83 { | |
| 84 case 'i': | |
| 85 return "XINT"; | |
| 86 | |
| 87 case 'w': | |
| 88 return "XWINT"; | |
| 89 | |
| 90 case 's': | |
| 91 return "XSTR"; | |
| 92 | |
| 93 case 'e': case 'u': | |
| 94 return "XEXP"; | |
| 95 | |
| 96 case 'E': | |
| 97 return "XVEC"; | |
| 98 | |
| 99 case 't': | |
| 100 return "XTREE"; | |
| 101 | |
| 102 case 'B': | |
| 103 return "XBBDEF"; | |
| 104 | |
| 105 default: | |
| 106 gcc_unreachable (); | |
| 107 } | |
| 108 } | |
| 109 | |
| 110 /* Return nonzero if we should ignore FMT, an RTL format, when making | |
| 111 the list of formats we write routines to create. */ | |
| 112 | |
| 113 static int | |
| 114 special_format (const char *fmt) | |
| 115 { | |
| 116 return (strchr (fmt, '*') != 0 | |
| 117 || strchr (fmt, 'V') != 0 | |
| 118 || strchr (fmt, 'S') != 0 | |
| 111 | 119 || strchr (fmt, 'n') != 0 |
| 120 || strchr (fmt, 'r') != 0); | |
| 121 } | |
| 122 | |
| 123 /* Return true if CODE always has VOIDmode. */ | |
| 124 | |
| 125 static inline bool | |
| 126 always_void_p (int idx) | |
| 127 { | |
| 128 return strcmp (defs[idx].enumname, "SET") == 0; | |
| 0 | 129 } |
| 130 | |
| 131 /* Return nonzero if the RTL code given by index IDX is one that we should | |
| 132 generate a gen_rtx_raw_FOO macro for, not gen_rtx_FOO (because gen_rtx_FOO | |
| 133 is a wrapper in emit-rtl.c). */ | |
| 134 | |
| 135 static int | |
| 136 special_rtx (int idx) | |
| 137 { | |
| 111 | 138 return (strcmp (defs[idx].enumname, "EXPR_LIST") == 0 |
| 139 || strcmp (defs[idx].enumname, "INSN_LIST") == 0 | |
| 140 || strcmp (defs[idx].enumname, "INSN") == 0 | |
| 141 || strcmp (defs[idx].enumname, "CONST_INT") == 0 | |
| 0 | 142 || strcmp (defs[idx].enumname, "REG") == 0 |
| 143 || strcmp (defs[idx].enumname, "SUBREG") == 0 | |
| 144 || strcmp (defs[idx].enumname, "MEM") == 0 | |
| 111 | 145 || strcmp (defs[idx].enumname, "PC") == 0 |
| 146 || strcmp (defs[idx].enumname, "CC0") == 0 | |
| 147 || strcmp (defs[idx].enumname, "RETURN") == 0 | |
| 148 || strcmp (defs[idx].enumname, "SIMPLE_RETURN") == 0 | |
| 0 | 149 || strcmp (defs[idx].enumname, "CONST_VECTOR") == 0); |
| 150 } | |
| 151 | |
| 152 /* Return nonzero if the RTL code given by index IDX is one that we should | |
| 153 generate no macro for at all (because gen_rtx_FOO is never used or | |
| 154 cannot have the obvious interface). */ | |
| 155 | |
| 156 static int | |
| 157 excluded_rtx (int idx) | |
| 158 { | |
| 111 | 159 return (strcmp (defs[idx].enumname, "VAR_LOCATION") == 0 |
| 160 || strcmp (defs[idx].enumname, "CONST_DOUBLE") == 0 | |
| 161 || strcmp (defs[idx].enumname, "CONST_WIDE_INT") == 0 | |
| 131 | 162 || strcmp (defs[idx].enumname, "CONST_POLY_INT") == 0 |
| 111 | 163 || strcmp (defs[idx].enumname, "CONST_FIXED") == 0); |
| 0 | 164 } |
| 165 | |
| 166 /* Place a list of all format specifiers we use into the array FORMAT. */ | |
| 167 | |
| 168 static void | |
| 169 find_formats (void) | |
| 170 { | |
| 171 unsigned int i; | |
| 172 | |
| 173 for (i = 0; i < NUM_RTX_CODE; i++) | |
| 174 { | |
| 175 const char **f; | |
| 176 | |
| 177 if (special_format (defs[i].format)) | |
| 178 continue; | |
| 179 | |
| 180 for (f = formats; *f; f++) | |
| 181 if (! strcmp (*f, defs[i].format)) | |
| 182 break; | |
| 183 | |
| 184 if (*f == 0) | |
| 185 *f = defs[i].format; | |
| 186 } | |
| 187 } | |
| 188 | |
| 189 | |
| 190 /* Generate macros to generate RTL of code IDX using the functions we | |
| 191 write. */ | |
| 192 | |
| 193 static void | |
| 194 genmacro (int idx) | |
| 195 { | |
| 196 const char *p; | |
| 111 | 197 const char *sep = ""; |
| 0 | 198 int i; |
| 199 | |
| 200 /* We write a macro that defines gen_rtx_RTLCODE to be an equivalent to | |
| 201 gen_rtx_fmt_FORMAT where FORMAT is the RTX_FORMAT of RTLCODE. */ | |
| 202 | |
| 203 if (excluded_rtx (idx)) | |
| 204 /* Don't define a macro for this code. */ | |
| 205 return; | |
| 206 | |
| 111 | 207 bool has_mode_p = !always_void_p (idx); |
| 208 printf ("#define gen_rtx_%s%s(", | |
| 0 | 209 special_rtx (idx) ? "raw_" : "", defs[idx].enumname); |
| 111 | 210 if (has_mode_p) |
| 211 { | |
| 212 printf ("MODE"); | |
| 213 sep = ", "; | |
| 214 } | |
| 0 | 215 |
| 216 for (p = defs[idx].format, i = 0; *p != 0; p++) | |
| 217 if (*p != '0') | |
| 111 | 218 { |
| 219 printf ("%sARG%d", sep, i++); | |
| 220 sep = ", "; | |
| 221 } | |
| 0 | 222 |
| 111 | 223 printf (") \\\n gen_rtx_fmt_%s (%s, %s", |
| 224 defs[idx].format, defs[idx].enumname, | |
| 225 has_mode_p ? "(MODE)" : "VOIDmode"); | |
| 0 | 226 |
| 227 for (p = defs[idx].format, i = 0; *p != 0; p++) | |
| 228 if (*p != '0') | |
| 229 printf (", (ARG%d)", i++); | |
| 230 | |
| 231 puts (")"); | |
| 232 } | |
| 233 | |
| 234 /* Generate the code for the function to generate RTL whose | |
| 235 format is FORMAT. */ | |
| 236 | |
| 237 static void | |
| 238 gendef (const char *format) | |
| 239 { | |
| 240 const char *p; | |
| 241 int i, j; | |
| 242 | |
| 243 /* Start by writing the definition of the function name and the types | |
| 244 of the arguments. */ | |
| 245 | |
| 111 | 246 printf ("static inline rtx\ngen_rtx_fmt_%s_stat (RTX_CODE code, machine_mode mode", format); |
| 0 | 247 for (p = format, i = 0; *p != 0; p++) |
| 248 if (*p != '0') | |
| 249 printf (",\n\t%sarg%d", type_from_format (*p), i++); | |
| 250 | |
| 251 puts (" MEM_STAT_DECL)"); | |
| 252 | |
| 253 /* Now write out the body of the function itself, which allocates | |
| 254 the memory and initializes it. */ | |
| 255 puts ("{"); | |
| 256 puts (" rtx rt;"); | |
| 111 | 257 puts (" rt = rtx_alloc (code PASS_MEM_STAT);\n"); |
| 0 | 258 |
| 111 | 259 puts (" PUT_MODE_RAW (rt, mode);"); |
| 0 | 260 |
| 261 for (p = format, i = j = 0; *p ; ++p, ++i) | |
| 131 | 262 if (*p == '0') |
| 263 printf (" X0EXP (rt, %d) = NULL_RTX;\n", i); | |
| 264 else if (*p == 'p') | |
| 265 printf (" SUBREG_BYTE (rt) = arg%d;\n", j++); | |
| 266 else | |
| 0 | 267 printf (" %s (rt, %d) = arg%d;\n", accessor_from_format (*p), i, j++); |
| 268 | |
| 269 puts ("\n return rt;\n}\n"); | |
|
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
270 printf ("#define gen_rtx_fmt_%s(c, m", format); |
|
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
271 for (p = format, i = 0; *p != 0; p++) |
|
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
272 if (*p != '0') |
|
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
273 printf (", p%i",i++); |
|
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
274 printf (")\\\n gen_rtx_fmt_%s_stat (c, m", format); |
|
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
275 for (p = format, i = 0; *p != 0; p++) |
|
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
276 if (*p != '0') |
|
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
277 printf (", p%i",i++); |
|
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
278 printf (" MEM_STAT_INFO)\n\n"); |
| 0 | 279 } |
| 280 | |
| 281 /* Generate the documentation header for files we write. */ | |
| 282 | |
| 283 static void | |
| 284 genlegend (void) | |
| 285 { | |
| 286 puts ("/* Generated automatically by gengenrtl from rtl.def. */\n"); | |
| 287 } | |
| 288 | |
| 289 /* Generate the text of the header file we make, genrtl.h. */ | |
| 290 | |
| 291 static void | |
| 292 genheader (void) | |
| 293 { | |
| 294 unsigned int i; | |
| 295 const char **fmt; | |
| 296 | |
| 297 puts ("#ifndef GCC_GENRTL_H"); | |
| 298 puts ("#define GCC_GENRTL_H\n"); | |
| 299 puts ("#include \"statistics.h\"\n"); | |
| 300 | |
| 301 for (fmt = formats; *fmt; ++fmt) | |
|
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
302 gendef (*fmt); |
| 0 | 303 |
| 304 putchar ('\n'); | |
| 305 | |
| 306 for (i = 0; i < NUM_RTX_CODE; i++) | |
| 307 if (! special_format (defs[i].format)) | |
| 308 genmacro (i); | |
| 309 | |
| 310 puts ("\n#endif /* GCC_GENRTL_H */"); | |
| 311 } | |
| 312 | |
|
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
313 /* This is the main program. */ |
| 0 | 314 |
| 315 int | |
|
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
316 main (void) |
| 0 | 317 { |
| 318 find_formats (); | |
| 319 genlegend (); | |
| 320 | |
|
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
63
diff
changeset
|
321 genheader (); |
| 0 | 322 |
| 323 if (ferror (stdout) || fflush (stdout) || fclose (stdout)) | |
| 324 return FATAL_EXIT_CODE; | |
| 325 | |
| 326 return SUCCESS_EXIT_CODE; | |
| 327 } |