Mercurial > hg > CbC > CbC_gcc
annotate gcc/opth-gen.awk @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
rev | line source |
---|---|
111 | 1 # Copyright (C) 2003-2017 Free Software Foundation, Inc. |
0 | 2 # Contributed by Kelley Cook, June 2004. |
3 # Original code from Neil Booth, May 2003. | |
4 # | |
5 # This program is free software; you can redistribute it and/or modify it | |
6 # under the terms of the GNU General Public License as published by the | |
7 # Free Software Foundation; either version 3, or (at your option) any | |
8 # later version. | |
9 # | |
10 # This program is distributed in the hope that it will be useful, | |
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
13 # GNU General Public License for more details. | |
14 # | |
15 # You should have received a copy of the GNU General Public License | |
16 # along with this program; see the file COPYING3. If not see | |
17 # <http://www.gnu.org/licenses/>. | |
18 | |
19 # This Awk script reads in the option records generated from | |
20 # opt-gather.awk, combines the flags of duplicate options and generates a | |
21 # C header file. | |
22 # | |
111 | 23 # This program uses functions from opt-functions.awk and code from |
24 # opt-read.awk. | |
25 # Usage: awk -f opt-functions.awk -f opt-read.awk -f opth-gen.awk \ | |
26 # < inputfile > options.h | |
0 | 27 |
28 # Dump out an enumeration into a .h file. | |
29 # Combine the flags of duplicate options. | |
30 END { | |
31 print "/* This file is auto-generated by opth-gen.awk. */" | |
32 print "" | |
33 print "#ifndef OPTIONS_H" | |
34 print "#define OPTIONS_H" | |
35 print "" | |
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
|
36 print "#include \"flag-types.h\"" |
0 | 37 print "" |
38 | |
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
|
39 if (n_extra_h_includes > 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
|
40 for (i = 0; i < n_extra_h_includes; 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
|
41 print "#include " quote extra_h_includes[i] quote |
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
|
42 } |
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
|
43 print "" |
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
|
44 } |
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
|
45 |
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
|
46 print "#if !defined(IN_LIBGCC2) && !defined(IN_TARGET_LIBS) && !defined(IN_RTS)" |
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
|
47 print "#ifndef GENERATOR_FILE" |
111 | 48 print "#if !defined(IN_LIBGCC2) && !defined(IN_TARGET_LIBS)" |
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
|
49 print "struct GTY(()) gcc_options" |
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
|
50 print "#else" |
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
|
51 print "struct gcc_options" |
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
|
52 print "#endif" |
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
|
53 print "{" |
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
|
54 print "#endif" |
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
|
55 |
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
|
56 for (i = 0; i < n_extra_vars; 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
|
57 var = extra_vars[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
|
58 sub(" *=.*", "", var) |
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
|
59 orig_var = var |
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
|
60 name = var |
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
|
61 type = var |
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
|
62 type_after = var |
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
|
63 sub("^.*[ *]", "", name) |
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
|
64 sub("\\[.*\\]$", "", name) |
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
|
65 sub("\\[.*\\]$", "", type) |
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
|
66 sub(" *" name "$", "", type) |
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
|
67 sub("^.*" name, "", type_after) |
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
|
68 var_seen[name] = 1 |
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
|
69 print "#ifdef GENERATOR_FILE" |
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
|
70 print "extern " orig_var ";" |
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
|
71 print "#else" |
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
|
72 print " " type " x_" name type_after ";" |
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
|
73 print "#define " name " global_options.x_" name |
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
|
74 print "#endif" |
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
|
75 } |
0 | 76 |
77 for (i = 0; i < n_opts; i++) { | |
78 if (flag_set_p("Save", flags[i])) | |
79 have_save = 1; | |
80 | |
81 name = var_name(flags[i]); | |
82 if (name == "") | |
83 continue; | |
84 | |
85 if (name in var_seen) | |
86 continue; | |
87 | |
88 var_seen[name] = 1; | |
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
|
89 print "#ifdef GENERATOR_FILE" |
0 | 90 print "extern " var_type(flags[i]) name ";" |
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
|
91 print "#else" |
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
|
92 print " " var_type(flags[i]) "x_" name ";" |
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
|
93 print "#define " name " global_options.x_" name |
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
|
94 print "#endif" |
0 | 95 } |
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
|
96 for (i = 0; i < n_opts; 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
|
97 name = static_var(opts[i], flags[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
|
98 if (name != "") { |
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
|
99 print "#ifndef GENERATOR_FILE" |
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
|
100 print " " var_type(flags[i]) "x_" name ";" |
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
|
101 print "#define x_" name " do_not_use" |
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
|
102 print "#endif" |
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
|
103 } |
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
|
104 } |
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
|
105 for (i = 0; i < n_opts; 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
|
106 if (flag_set_p("SetByCombined", flags[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
|
107 print "#ifndef GENERATOR_FILE" |
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
|
108 print " bool frontend_set_" var_name(flags[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
|
109 print "#endif" |
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
|
110 } |
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
|
111 } |
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
|
112 print "#ifndef GENERATOR_FILE" |
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
|
113 print "};" |
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
|
114 print "extern struct gcc_options global_options;" |
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
|
115 print "extern const struct gcc_options global_options_init;" |
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
|
116 print "extern struct gcc_options global_options_set;" |
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
|
117 print "#define target_flags_explicit global_options_set.x_target_flags" |
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
|
118 print "#endif" |
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
|
119 print "#endif" |
0 | 120 print "" |
121 | |
122 # All of the optimization switches gathered together so they can be saved and restored. | |
123 # This will allow attribute((cold)) to turn on space optimization. | |
124 | |
125 # Change the type of normal switches from int to unsigned char to save space. | |
126 # Also, order the structure so that pointer fields occur first, then int | |
127 # fields, and then char fields to provide the best packing. | |
128 | |
111 | 129 print "#if !defined(IN_LIBGCC2) && !defined(IN_TARGET_LIBS) && !defined(IN_RTS)" |
0 | 130 print "" |
131 print "/* Structure to save/restore optimization and target specific options. */"; | |
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
132 print "struct GTY(()) cl_optimization"; |
0 | 133 print "{"; |
134 | |
111 | 135 n_opt_char = 3; |
0 | 136 n_opt_short = 0; |
137 n_opt_int = 0; | |
111 | 138 n_opt_enum = 0; |
0 | 139 n_opt_other = 0; |
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
|
140 var_opt_char[0] = "unsigned char x_optimize"; |
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
|
141 var_opt_char[1] = "unsigned char x_optimize_size"; |
111 | 142 var_opt_char[2] = "unsigned char x_optimize_debug"; |
0 | 143 |
144 for (i = 0; i < n_opts; i++) { | |
111 | 145 if (flag_set_p("(Optimization|PerFunction)", flags[i])) { |
0 | 146 name = var_name(flags[i]) |
147 if(name == "") | |
148 continue; | |
149 | |
150 if(name in var_opt_seen) | |
151 continue; | |
152 | |
153 var_opt_seen[name]++; | |
154 otype = var_type_struct(flags[i]); | |
155 if (otype ~ "^((un)?signed +)?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
|
156 var_opt_int[n_opt_int++] = otype "x_" name; |
0 | 157 |
158 else if (otype ~ "^((un)?signed +)?short *$") | |
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
|
159 var_opt_short[n_opt_short++] = otype "x_" name; |
0 | 160 |
161 else if (otype ~ "^((un)?signed +)?char *$") | |
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
|
162 var_opt_char[n_opt_char++] = otype "x_" name; |
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
|
163 |
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
|
164 else if (otype ~ ("^enum +[_" alnum "]+ *$")) |
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
|
165 var_opt_enum[n_opt_enum++] = otype "x_" name; |
0 | 166 |
167 else | |
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
|
168 var_opt_other[n_opt_other++] = otype "x_" name; |
0 | 169 } |
170 } | |
171 | |
172 for (i = 0; i < n_opt_other; i++) { | |
173 print " " var_opt_other[i] ";"; | |
174 } | |
175 | |
176 for (i = 0; i < n_opt_int; i++) { | |
177 print " " var_opt_int[i] ";"; | |
178 } | |
179 | |
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
|
180 for (i = 0; i < n_opt_enum; 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
|
181 print " " var_opt_enum[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
|
182 } |
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
|
183 |
0 | 184 for (i = 0; i < n_opt_short; i++) { |
185 print " " var_opt_short[i] ";"; | |
186 } | |
187 | |
188 for (i = 0; i < n_opt_char; i++) { | |
189 print " " var_opt_char[i] ";"; | |
190 } | |
191 | |
192 print "};"; | |
193 print ""; | |
194 | |
195 # Target and optimization save/restore/print functions. | |
196 print "/* Structure to save/restore selected target specific options. */"; | |
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
197 print "struct GTY(()) cl_target_option"; |
0 | 198 print "{"; |
199 | |
200 n_target_char = 0; | |
201 n_target_short = 0; | |
202 n_target_int = 0; | |
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
|
203 n_target_enum = 0; |
0 | 204 n_target_other = 0; |
205 | |
206 for (i = 0; i < n_target_save; i++) { | |
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
|
207 if (target_save_decl[i] ~ "^((un)?signed +)?int +[_" alnum "]+$") |
0 | 208 var_target_int[n_target_int++] = target_save_decl[i]; |
209 | |
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
|
210 else if (target_save_decl[i] ~ "^((un)?signed +)?short +[_" alnum "]+$") |
0 | 211 var_target_short[n_target_short++] = target_save_decl[i]; |
212 | |
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
|
213 else if (target_save_decl[i] ~ "^((un)?signed +)?char +[_ " alnum "]+$") |
0 | 214 var_target_char[n_target_char++] = target_save_decl[i]; |
215 | |
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
|
216 else if (target_save_decl[i] ~ ("^enum +[_" alnum "]+ +[_" alnum "]+$")) { |
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
|
217 var_target_enum[n_target_enum++] = target_save_decl[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
|
218 } |
0 | 219 else |
220 var_target_other[n_target_other++] = target_save_decl[i]; | |
221 } | |
222 | |
223 if (have_save) { | |
224 for (i = 0; i < n_opts; i++) { | |
225 if (flag_set_p("Save", flags[i])) { | |
226 name = var_name(flags[i]) | |
227 if(name == "") | |
228 name = "target_flags"; | |
229 | |
230 if(name in var_save_seen) | |
231 continue; | |
232 | |
233 var_save_seen[name]++; | |
234 otype = var_type_struct(flags[i]) | |
235 if (otype ~ "^((un)?signed +)?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
|
236 var_target_int[n_target_int++] = otype "x_" name; |
0 | 237 |
238 else if (otype ~ "^((un)?signed +)?short *$") | |
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
|
239 var_target_short[n_target_short++] = otype "x_" name; |
0 | 240 |
241 else if (otype ~ "^((un)?signed +)?char *$") | |
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
|
242 var_target_char[n_target_char++] = otype "x_" name; |
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
|
243 |
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
|
244 else if (otype ~ ("^enum +[_" alnum "]+ +[_" alnum "]+")) |
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
|
245 var_target_enum[n_target_enum++] = otype "x_" name; |
0 | 246 |
247 else | |
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
|
248 var_target_other[n_target_other++] = otype "x_" name; |
0 | 249 } |
250 } | |
251 } else { | |
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
|
252 var_target_int[n_target_int++] = "int x_target_flags"; |
0 | 253 } |
254 | |
255 for (i = 0; i < n_target_other; i++) { | |
256 print " " var_target_other[i] ";"; | |
257 } | |
258 | |
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
|
259 for (i = 0; i < n_target_enum; 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
|
260 print " " var_target_enum[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
|
261 } |
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
|
262 |
0 | 263 for (i = 0; i < n_target_int; i++) { |
264 print " " var_target_int[i] ";"; | |
265 } | |
266 | |
267 for (i = 0; i < n_target_short; i++) { | |
268 print " " var_target_short[i] ";"; | |
269 } | |
270 | |
271 for (i = 0; i < n_target_char; i++) { | |
272 print " " var_target_char[i] ";"; | |
273 } | |
274 | |
275 print "};"; | |
276 print ""; | |
277 print ""; | |
278 print "/* Save optimization variables into a structure. */" | |
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
|
279 print "extern void cl_optimization_save (struct cl_optimization *, struct gcc_options *);"; |
0 | 280 print ""; |
281 print "/* Restore optimization variables from a structure. */"; | |
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
|
282 print "extern void cl_optimization_restore (struct gcc_options *, struct cl_optimization *);"; |
0 | 283 print ""; |
284 print "/* Print optimization variables from a structure. */"; | |
285 print "extern void cl_optimization_print (FILE *, int, struct cl_optimization *);"; | |
286 print ""; | |
111 | 287 print "/* Print different optimization variables from structures provided as arguments. */"; |
288 print "extern void cl_optimization_print_diff (FILE *, int, cl_optimization *ptr1, cl_optimization *ptr2);"; | |
289 print ""; | |
0 | 290 print "/* Save selected option variables into a structure. */" |
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
|
291 print "extern void cl_target_option_save (struct cl_target_option *, struct gcc_options *);"; |
0 | 292 print ""; |
293 print "/* Restore selected option variables from a structure. */" | |
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
|
294 print "extern void cl_target_option_restore (struct gcc_options *, struct cl_target_option *);"; |
0 | 295 print ""; |
296 print "/* Print target option variables from a structure. */"; | |
297 print "extern void cl_target_option_print (FILE *, int, struct cl_target_option *);"; | |
111 | 298 print ""; |
299 print "/* Print different target option variables from structures provided as arguments. */"; | |
300 print "extern void cl_target_option_print_diff (FILE *, int, cl_target_option *ptr1, cl_target_option *ptr2);"; | |
301 print ""; | |
302 print "/* Compare two target option variables from a structure. */"; | |
303 print "extern bool cl_target_option_eq (const struct cl_target_option *, const struct cl_target_option *);"; | |
304 print ""; | |
305 print "/* Hash option variables from a structure. */"; | |
306 print "extern hashval_t cl_target_option_hash (const struct cl_target_option *);"; | |
307 print ""; | |
308 print "/* Hash optimization from a structure. */"; | |
309 print "extern hashval_t cl_optimization_hash (const struct cl_optimization *);"; | |
310 print ""; | |
311 print "/* Generator files may not have access to location_t, and don't need these. */" | |
312 print "#if defined(UNKNOWN_LOCATION)" | |
313 print "bool " | |
314 print "common_handle_option_auto (struct gcc_options *opts, " | |
315 print " struct gcc_options *opts_set, " | |
316 print " const struct cl_decoded_option *decoded, " | |
317 print " unsigned int lang_mask, int kind, " | |
318 print " location_t loc, " | |
319 print " const struct cl_option_handlers *handlers, " | |
320 print " diagnostic_context *dc); " | |
321 for (i = 0; i < n_langs; i++) { | |
322 lang_name = lang_sanitized_name(langs[i]); | |
323 print "bool " | |
324 print lang_name "_handle_option_auto (struct gcc_options *opts, " | |
325 print " struct gcc_options *opts_set, " | |
326 print " size_t scode, const char *arg, int value, " | |
327 print " unsigned int lang_mask, int kind, " | |
328 print " location_t loc, " | |
329 print " const struct cl_option_handlers *handlers, " | |
330 print " diagnostic_context *dc); " | |
331 } | |
332 print "void cpp_handle_option_auto (const struct gcc_options * opts, size_t scode," | |
333 print " struct cpp_options * cpp_opts);" | |
334 print "void init_global_opts_from_cpp(struct gcc_options * opts, " | |
335 print " const struct cpp_options * cpp_opts);" | |
336 print "#endif"; | |
0 | 337 print "#endif"; |
338 print ""; | |
339 | |
340 for (i = 0; i < n_opts; i++) { | |
341 name = opt_args("Mask", flags[i]) | |
111 | 342 if (name == "") { |
343 opt = opt_args("InverseMask", flags[i]) | |
344 if (opt ~ ",") | |
345 name = nth_arg(0, opt) | |
346 else | |
347 name = opt | |
0 | 348 } |
111 | 349 if (name != "" && mask_bits[name] == 0) { |
350 mask_bits[name] = 1 | |
351 vname = var_name(flags[i]) | |
352 mask = "MASK_" | |
353 mask_1 = "1U" | |
354 if (vname != "") { | |
355 mask = "OPTION_MASK_" | |
356 if (host_wide_int[vname] == "yes") | |
357 mask_1 = "HOST_WIDE_INT_1U" | |
358 } else | |
359 extra_mask_bits[name] = 1 | |
360 print "#define " mask name " (" mask_1 " << " masknum[vname]++ ")" | |
361 } | |
0 | 362 } |
363 for (i = 0; i < n_extra_masks; i++) { | |
111 | 364 if (extra_mask_bits[extra_masks[i]] == 0) |
365 print "#define MASK_" extra_masks[i] " (1U << " masknum[""]++ ")" | |
0 | 366 } |
367 | |
368 for (var in masknum) { | |
111 | 369 if (var != "" && host_wide_int[var] == "yes") { |
370 print "#if defined(HOST_BITS_PER_WIDE_INT) && " masknum[var] " > HOST_BITS_PER_WIDE_INT" | |
371 print "#error too many masks for " var | |
372 print "#endif" | |
373 } | |
374 else if (masknum[var] > 32) { | |
0 | 375 if (var == "") |
376 print "#error too many target masks" | |
377 else | |
378 print "#error too many masks for " var | |
379 } | |
380 } | |
381 print "" | |
382 | |
383 for (i = 0; i < n_opts; i++) { | |
384 name = opt_args("Mask", flags[i]) | |
111 | 385 if (name == "") { |
386 opt = opt_args("InverseMask", flags[i]) | |
387 if (opt ~ ",") | |
388 name = nth_arg(0, opt) | |
389 else | |
390 name = opt | |
0 | 391 } |
111 | 392 if (name != "" && mask_macros[name] == 0) { |
393 mask_macros[name] = 1 | |
394 vname = var_name(flags[i]) | |
395 mask = "OPTION_MASK_" | |
396 if (vname == "") { | |
397 vname = "target_flags" | |
398 mask = "MASK_" | |
399 extra_mask_macros[name] = 1 | |
400 } | |
401 print "#define TARGET_" name \ | |
0 | 402 " ((" vname " & " mask name ") != 0)" |
111 | 403 print "#define TARGET_" name "_P(" vname ")" \ |
404 " (((" vname ") & " mask name ") != 0)" | |
405 } | |
0 | 406 } |
407 for (i = 0; i < n_extra_masks; i++) { | |
111 | 408 if (extra_mask_macros[extra_masks[i]] == 0) |
409 print "#define TARGET_" extra_masks[i] \ | |
410 " ((target_flags & MASK_" extra_masks[i] ") != 0)" | |
0 | 411 } |
412 print "" | |
413 | |
414 for (i = 0; i < n_opts; i++) { | |
415 opt = opt_args("InverseMask", flags[i]) | |
416 if (opt ~ ",") { | |
417 vname = var_name(flags[i]) | |
418 mask = "OPTION_MASK_" | |
419 if (vname == "") { | |
420 vname = "target_flags" | |
421 mask = "MASK_" | |
422 } | |
111 | 423 print "#define TARGET_" nth_arg(1, opt) \ |
0 | 424 " ((" vname " & " mask nth_arg(0, opt) ") == 0)" |
425 } | |
426 } | |
427 print "" | |
428 | |
429 for (i = 0; i < n_langs; i++) { | |
111 | 430 macros[i] = "CL_" lang_sanitized_name(langs[i]) |
0 | 431 s = substr(" ", length (macros[i])) |
111 | 432 print "#define " macros[i] s " (1U << " i ")" |
0 | 433 } |
111 | 434 print "#define CL_LANG_ALL ((1U << " n_langs ") - 1)" |
0 | 435 |
436 print "" | |
437 print "enum opt_code" | |
438 print "{" | |
439 | |
440 for (i = 0; i < n_opts; i++) | |
441 back_chain[i] = "N_OPTS"; | |
442 | |
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
|
443 enum_value = 0 |
0 | 444 for (i = 0; i < n_opts; i++) { |
445 # Combine the flags of identical switches. Switches | |
446 # appear many times if they are handled by many front | |
447 # ends, for example. | |
448 while( i + 1 != n_opts && opts[i] == opts[i + 1] ) { | |
449 flags[i + 1] = flags[i] " " flags[i + 1]; | |
450 i++; | |
451 } | |
452 | |
453 len = length (opts[i]); | |
63
b7f97abdc517
update gcc from gcc-4.5.0 to gcc-4.6
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
454 enum = opt_enum(opts[i]) |
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
|
455 enum_string = enum " = " enum_value "," |
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
|
456 |
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
|
457 # Aliases do not get enumeration names. |
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
|
458 if ((flag_set_p("Alias.*", flags[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
|
459 && !flag_set_p("SeparateAlias", flags[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
|
460 || flag_set_p("Ignore", flags[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
|
461 enum_string = "/* " enum_string " */" |
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
|
462 } |
0 | 463 |
464 # If this switch takes joined arguments, back-chain all | |
465 # subsequent switches to it for which it is a prefix. If | |
466 # a later switch S is a longer prefix of a switch T, T | |
467 # will be back-chained to S in a later iteration of this | |
468 # for() loop, which is what we want. | |
469 if (flag_set_p("Joined.*", flags[i])) { | |
470 for (j = i + 1; j < n_opts; j++) { | |
471 if (substr (opts[j], 1, len) != opts[i]) | |
472 break; | |
473 back_chain[j] = enum; | |
474 } | |
475 } | |
476 | |
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
|
477 s = substr(" ", |
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
|
478 length (enum_string)) |
0 | 479 |
480 if (help[i] == "") | |
481 hlp = "0" | |
482 else | |
483 hlp = "N_(\"" help[i] "\")"; | |
484 | |
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
|
485 print " " enum_string s "/* -" opts[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
|
486 enum_value++ |
0 | 487 } |
488 | |
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
|
489 print " N_OPTS," |
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
|
490 print " OPT_SPECIAL_unknown," |
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
|
491 print " OPT_SPECIAL_ignore," |
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
|
492 print " OPT_SPECIAL_program_name," |
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
|
493 print " OPT_SPECIAL_input_file" |
0 | 494 print "};" |
495 print "" | |
111 | 496 print "#ifdef GCC_C_COMMON_C" |
497 print "/* Mapping from cpp message reasons to the options that enable them. */" | |
498 print "#include <cpplib.h>" | |
499 print "struct cpp_reason_option_codes_t" | |
500 print "{" | |
501 print " const int reason; /* cpplib message reason. */" | |
502 print " const int option_code; /* gcc option that controls this message. */" | |
503 print "};" | |
504 print "" | |
505 print "static const struct cpp_reason_option_codes_t cpp_reason_option_codes[] = {" | |
506 for (i = 0; i < n_opts; i++) { | |
507 # With identical flags, pick only the last one. The | |
508 # earlier loop ensured that it has all flags merged, | |
509 # and a nonempty help text if one of the texts was nonempty. | |
510 while( i + 1 != n_opts && opts[i] == opts[i + 1] ) { | |
511 i++; | |
512 } | |
513 cpp_reason = nth_arg(0, opt_args("CppReason", flags[i])); | |
514 if (cpp_reason != "") { | |
515 cpp_reason = cpp_reason ","; | |
516 printf(" {%-40s %s},\n", cpp_reason, opt_enum(opts[i])) | |
517 } | |
518 } | |
519 printf(" {%-40s 0},\n", "CPP_W_NONE,") | |
520 print "};" | |
521 print "#endif" | |
522 print "" | |
0 | 523 print "#endif /* OPTIONS_H */" |
524 } |