diff options
author | Ben Cheng <bccheng@google.com> | 2014-03-25 22:37:19 -0700 |
---|---|---|
committer | Ben Cheng <bccheng@google.com> | 2014-03-25 22:37:19 -0700 |
commit | 1bc5aee63eb72b341f506ad058502cd0361f0d10 (patch) | |
tree | c607e8252f3405424ff15bc2d00aa38dadbb2518 /gcc-4.9/gcc/opth-gen.awk | |
parent | 283a0bf58fcf333c58a2a92c3ebbc41fb9eb1fdb (diff) | |
download | toolchain_gcc-1bc5aee63eb72b341f506ad058502cd0361f0d10.tar.gz toolchain_gcc-1bc5aee63eb72b341f506ad058502cd0361f0d10.tar.bz2 toolchain_gcc-1bc5aee63eb72b341f506ad058502cd0361f0d10.zip |
Initial checkin of GCC 4.9.0 from trunk (r208799).
Change-Id: I48a3c08bb98542aa215912a75f03c0890e497dba
Diffstat (limited to 'gcc-4.9/gcc/opth-gen.awk')
-rw-r--r-- | gcc-4.9/gcc/opth-gen.awk | 479 |
1 files changed, 479 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/opth-gen.awk b/gcc-4.9/gcc/opth-gen.awk new file mode 100644 index 000000000..45aee342e --- /dev/null +++ b/gcc-4.9/gcc/opth-gen.awk @@ -0,0 +1,479 @@ +# Copyright (C) 2003-2014 Free Software Foundation, Inc. +# Contributed by Kelley Cook, June 2004. +# Original code from Neil Booth, May 2003. +# +# This program is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by the +# Free Software Foundation; either version 3, or (at your option) any +# later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; see the file COPYING3. If not see +# <http://www.gnu.org/licenses/>. + +# This Awk script reads in the option records generated from +# opt-gather.awk, combines the flags of duplicate options and generates a +# C header file. +# +# This program uses functions from opt-functions.awk and code from +# opt-read.awk. +# Usage: awk -f opt-functions.awk -f opt-read.awk -f opth-gen.awk \ +# < inputfile > options.h + +# Dump out an enumeration into a .h file. +# Combine the flags of duplicate options. +END { +print "/* This file is auto-generated by opth-gen.awk. */" +print "" +print "#ifndef OPTIONS_H" +print "#define OPTIONS_H" +print "" +print "#include \"flag-types.h\"" +print "" + +if (n_extra_h_includes > 0) { + for (i = 0; i < n_extra_h_includes; i++) { + print "#include " quote extra_h_includes[i] quote + } + print "" +} + +print "#if !defined(IN_LIBGCC2) && !defined(IN_TARGET_LIBS) && !defined(IN_RTS)" +print "#ifndef GENERATOR_FILE" +print "#if !defined(IN_LIBGCC2) && !defined(IN_TARGET_LIBS)" +print "struct GTY(()) gcc_options" +print "#else" +print "struct gcc_options" +print "#endif" +print "{" +print "#endif" + +for (i = 0; i < n_extra_vars; i++) { + var = extra_vars[i] + sub(" *=.*", "", var) + orig_var = var + name = var + type = var + type_after = var + sub("^.*[ *]", "", name) + sub("\\[.*\\]$", "", name) + sub("\\[.*\\]$", "", type) + sub(" *" name "$", "", type) + sub("^.*" name, "", type_after) + var_seen[name] = 1 + print "#ifdef GENERATOR_FILE" + print "extern " orig_var ";" + print "#else" + print " " type " x_" name type_after ";" + print "#define " name " global_options.x_" name + print "#endif" +} + +for (i = 0; i < n_opts; i++) { + if (flag_set_p("Save", flags[i])) + have_save = 1; + + name = var_name(flags[i]); + if (name == "") + continue; + + if (name in var_seen) + continue; + + var_seen[name] = 1; + print "#ifdef GENERATOR_FILE" + print "extern " var_type(flags[i]) name ";" + print "#else" + print " " var_type(flags[i]) "x_" name ";" + print "#define " name " global_options.x_" name + print "#endif" +} +for (i = 0; i < n_opts; i++) { + name = static_var(opts[i], flags[i]); + if (name != "") { + print "#ifndef GENERATOR_FILE" + print " " var_type(flags[i]) "x_" name ";" + print "#define x_" name " do_not_use" + print "#endif" + } +} +for (i = 0; i < n_opts; i++) { + if (flag_set_p("SetByCombined", flags[i])) { + print "#ifndef GENERATOR_FILE" + print " bool frontend_set_" var_name(flags[i]) ";" + print "#endif" + } +} +print "#ifndef GENERATOR_FILE" +print "};" +print "extern struct gcc_options global_options;" +print "extern const struct gcc_options global_options_init;" +print "extern struct gcc_options global_options_set;" +print "#define target_flags_explicit global_options_set.x_target_flags" +print "#endif" +print "#endif" +print "" + +# All of the optimization switches gathered together so they can be saved and restored. +# This will allow attribute((cold)) to turn on space optimization. + +# Change the type of normal switches from int to unsigned char to save space. +# Also, order the structure so that pointer fields occur first, then int +# fields, and then char fields to provide the best packing. + +print "#if !defined(IN_LIBGCC2) && !defined(IN_TARGET_LIBS) && !defined(IN_RTS)" +print "" +print "/* Structure to save/restore optimization and target specific options. */"; +print "struct GTY(()) cl_optimization"; +print "{"; + +n_opt_char = 2; +n_opt_short = 0; +n_opt_int = 0; +n_opt_enum = 1; +n_opt_other = 0; +var_opt_char[0] = "unsigned char x_optimize"; +var_opt_char[1] = "unsigned char x_optimize_size"; +var_opt_enum[0] = "enum fp_contract_mode x_flag_fp_contract_mode"; + +for (i = 0; i < n_opts; i++) { + if (flag_set_p("Optimization", flags[i])) { + name = var_name(flags[i]) + if(name == "") + continue; + + if(name in var_opt_seen) + continue; + + var_opt_seen[name]++; + otype = var_type_struct(flags[i]); + if (otype ~ "^((un)?signed +)?int *$") + var_opt_int[n_opt_int++] = otype "x_" name; + + else if (otype ~ "^((un)?signed +)?short *$") + var_opt_short[n_opt_short++] = otype "x_" name; + + else if (otype ~ "^((un)?signed +)?char *$") + var_opt_char[n_opt_char++] = otype "x_" name; + + else if (otype ~ ("^enum +[_" alnum "]+ *$")) + var_opt_enum[n_opt_enum++] = otype "x_" name; + + else + var_opt_other[n_opt_other++] = otype "x_" name; + } +} + +for (i = 0; i < n_opt_other; i++) { + print " " var_opt_other[i] ";"; +} + +for (i = 0; i < n_opt_int; i++) { + print " " var_opt_int[i] ";"; +} + +for (i = 0; i < n_opt_enum; i++) { + print " " var_opt_enum[i] ";"; +} + +for (i = 0; i < n_opt_short; i++) { + print " " var_opt_short[i] ";"; +} + +for (i = 0; i < n_opt_char; i++) { + print " " var_opt_char[i] ";"; +} + +print "};"; +print ""; + +# Target and optimization save/restore/print functions. +print "/* Structure to save/restore selected target specific options. */"; +print "struct GTY(()) cl_target_option"; +print "{"; + +n_target_char = 0; +n_target_short = 0; +n_target_int = 0; +n_target_enum = 0; +n_target_other = 0; + +for (i = 0; i < n_target_save; i++) { + if (target_save_decl[i] ~ "^((un)?signed +)?int +[_" alnum "]+$") + var_target_int[n_target_int++] = target_save_decl[i]; + + else if (target_save_decl[i] ~ "^((un)?signed +)?short +[_" alnum "]+$") + var_target_short[n_target_short++] = target_save_decl[i]; + + else if (target_save_decl[i] ~ "^((un)?signed +)?char +[_ " alnum "]+$") + var_target_char[n_target_char++] = target_save_decl[i]; + + else if (target_save_decl[i] ~ ("^enum +[_" alnum "]+ +[_" alnum "]+$")) { + var_target_enum[n_target_enum++] = target_save_decl[i]; + } + else + var_target_other[n_target_other++] = target_save_decl[i]; +} + +if (have_save) { + for (i = 0; i < n_opts; i++) { + if (flag_set_p("Save", flags[i])) { + name = var_name(flags[i]) + if(name == "") + name = "target_flags"; + + if(name in var_save_seen) + continue; + + var_save_seen[name]++; + otype = var_type_struct(flags[i]) + if (otype ~ "^((un)?signed +)?int *$") + var_target_int[n_target_int++] = otype "x_" name; + + else if (otype ~ "^((un)?signed +)?short *$") + var_target_short[n_target_short++] = otype "x_" name; + + else if (otype ~ "^((un)?signed +)?char *$") + var_target_char[n_target_char++] = otype "x_" name; + + else if (otype ~ ("^enum +[_" alnum "]+ +[_" alnum "]+")) + var_target_enum[n_target_enum++] = otype "x_" name; + + else + var_target_other[n_target_other++] = otype "x_" name; + } + } +} else { + var_target_int[n_target_int++] = "int x_target_flags"; +} + +for (i = 0; i < n_target_other; i++) { + print " " var_target_other[i] ";"; +} + +for (i = 0; i < n_target_enum; i++) { + print " " var_target_enum[i] ";"; +} + +for (i = 0; i < n_target_int; i++) { + print " " var_target_int[i] ";"; +} + +for (i = 0; i < n_target_short; i++) { + print " " var_target_short[i] ";"; +} + +for (i = 0; i < n_target_char; i++) { + print " " var_target_char[i] ";"; +} + +print "};"; +print ""; +print ""; +print "/* Save optimization variables into a structure. */" +print "extern void cl_optimization_save (struct cl_optimization *, struct gcc_options *);"; +print ""; +print "/* Restore optimization variables from a structure. */"; +print "extern void cl_optimization_restore (struct gcc_options *, struct cl_optimization *);"; +print ""; +print "/* Print optimization variables from a structure. */"; +print "extern void cl_optimization_print (FILE *, int, struct cl_optimization *);"; +print ""; +print "/* Save selected option variables into a structure. */" +print "extern void cl_target_option_save (struct cl_target_option *, struct gcc_options *);"; +print ""; +print "/* Restore selected option variables from a structure. */" +print "extern void cl_target_option_restore (struct gcc_options *, struct cl_target_option *);"; +print ""; +print "/* Print target option variables from a structure. */"; +print "extern void cl_target_option_print (FILE *, int, struct cl_target_option *);"; +print ""; +print "/* Anything that includes tm.h, does not necessarily need this. */" +print "#if !defined(GCC_TM_H)" +print "#include \"input.h\" /* for location_t */" +print "bool " +print "common_handle_option_auto (struct gcc_options *opts, " +print " struct gcc_options *opts_set, " +print " const struct cl_decoded_option *decoded, " +print " unsigned int lang_mask, int kind, " +print " location_t loc, " +print " const struct cl_option_handlers *handlers, " +print " diagnostic_context *dc); " +for (i = 0; i < n_langs; i++) { + lang_name = lang_sanitized_name(langs[i]); + print "bool " + print lang_name "_handle_option_auto (struct gcc_options *opts, " + print " struct gcc_options *opts_set, " + print " size_t scode, const char *arg, int value, " + print " unsigned int lang_mask, int kind, " + print " location_t loc, " + print " const struct cl_option_handlers *handlers, " + print " diagnostic_context *dc); " +} +print "#endif"; +print "#endif"; +print ""; + +for (i = 0; i < n_opts; i++) { + name = opt_args("Mask", flags[i]) + if (name == "") { + opt = opt_args("InverseMask", flags[i]) + if (opt ~ ",") + name = nth_arg(0, opt) + else + name = opt + } + if (name != "" && mask_bits[name] == 0) { + mask_bits[name] = 1 + vname = var_name(flags[i]) + mask = "MASK_" + mask_1 = "1" + if (vname != "") { + mask = "OPTION_MASK_" + if (host_wide_int[vname] == "yes") + mask_1 = "HOST_WIDE_INT_1" + } else + extra_mask_bits[name] = 1 + print "#define " mask name " (" mask_1 " << " masknum[vname]++ ")" + } +} +for (i = 0; i < n_extra_masks; i++) { + if (extra_mask_bits[extra_masks[i]] == 0) + print "#define MASK_" extra_masks[i] " (1 << " masknum[""]++ ")" +} + +for (var in masknum) { + if (var != "" && host_wide_int[var] == "yes") { + print" #if defined(HOST_BITS_PER_WIDE_INT) && " masknum[var] " >= HOST_BITS_PER_WIDE_INT" + print "#error too many masks for " var + print "#endif" + } + else if (masknum[var] > 31) { + if (var == "") + print "#error too many target masks" + else + print "#error too many masks for " var + } +} +print "" + +for (i = 0; i < n_opts; i++) { + name = opt_args("Mask", flags[i]) + if (name == "") { + opt = opt_args("InverseMask", flags[i]) + if (opt ~ ",") + name = nth_arg(0, opt) + else + name = opt + } + if (name != "" && mask_macros[name] == 0) { + mask_macros[name] = 1 + vname = var_name(flags[i]) + mask = "OPTION_MASK_" + if (vname == "") { + vname = "target_flags" + mask = "MASK_" + extra_mask_macros[name] = 1 + } + print "#define TARGET_" name \ + " ((" vname " & " mask name ") != 0)" + print "#define TARGET_" name "_P(" vname ")" \ + " ((" vname " & " mask name ") != 0)" + } +} +for (i = 0; i < n_extra_masks; i++) { + if (extra_mask_macros[extra_masks[i]] == 0) + print "#define TARGET_" extra_masks[i] \ + " ((target_flags & MASK_" extra_masks[i] ") != 0)" +} +print "" + +for (i = 0; i < n_opts; i++) { + opt = opt_args("InverseMask", flags[i]) + if (opt ~ ",") { + vname = var_name(flags[i]) + mask = "OPTION_MASK_" + if (vname == "") { + vname = "target_flags" + mask = "MASK_" + } + print "#define TARGET_" nth_arg(1, opt) \ + " ((" vname " & " mask nth_arg(0, opt) ") == 0)" + } +} +print "" + +for (i = 0; i < n_langs; i++) { + macros[i] = "CL_" lang_sanitized_name(langs[i]) + s = substr(" ", length (macros[i])) + print "#define " macros[i] s " (1U << " i ")" + } +print "#define CL_LANG_ALL ((1U << " n_langs ") - 1)" + +print "" +print "enum opt_code" +print "{" + +for (i = 0; i < n_opts; i++) + back_chain[i] = "N_OPTS"; + +enum_value = 0 +for (i = 0; i < n_opts; i++) { + # Combine the flags of identical switches. Switches + # appear many times if they are handled by many front + # ends, for example. + while( i + 1 != n_opts && opts[i] == opts[i + 1] ) { + flags[i + 1] = flags[i] " " flags[i + 1]; + i++; + } + + len = length (opts[i]); + enum = opt_enum(opts[i]) + enum_string = enum " = " enum_value "," + + # Aliases do not get enumeration names. + if ((flag_set_p("Alias.*", flags[i]) \ + && !flag_set_p("SeparateAlias", flags[i])) \ + || flag_set_p("Ignore", flags[i])) { + enum_string = "/* " enum_string " */" + } + + # If this switch takes joined arguments, back-chain all + # subsequent switches to it for which it is a prefix. If + # a later switch S is a longer prefix of a switch T, T + # will be back-chained to S in a later iteration of this + # for() loop, which is what we want. + if (flag_set_p("Joined.*", flags[i])) { + for (j = i + 1; j < n_opts; j++) { + if (substr (opts[j], 1, len) != opts[i]) + break; + back_chain[j] = enum; + } + } + + s = substr(" ", + length (enum_string)) + + if (help[i] == "") + hlp = "0" + else + hlp = "N_(\"" help[i] "\")"; + + print " " enum_string s "/* -" opts[i] " */" + enum_value++ +} + +print " N_OPTS," +print " OPT_SPECIAL_unknown," +print " OPT_SPECIAL_ignore," +print " OPT_SPECIAL_program_name," +print " OPT_SPECIAL_input_file" +print "};" +print "" +print "#endif /* OPTIONS_H */" +} |