1 # Copyright (C) 2003-2015 Free Software Foundation, Inc.
2 # Contributed by Kelley Cook, June 2004.
3 # Original code from Neil Booth, May 2003.
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
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.
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/>.
19 # This Awk script reads in the option records generated from
20 # opt-gather.awk, combines the flags of duplicate options and generates a
24 # This program uses functions from opt-functions.awk and code from
27 # Usage: awk -f opt-functions.awk -f opt-read.awk -f optc-save-gen.awk \
28 # [-v header_name=header.h] < inputfile > options-save.c
30 # Dump that array of options into a C file.
32 print "/* This file is auto-generated by optc-save-gen.awk. */"
34 n_headers =
split(header_name
, headers
, " ")
35 for (i =
1; i
<= n_headers
; i
++)
36 print "#include " quote headers
[i
] quote
37 print "#include " quote
"opts.h" quote
38 print "#include " quote
"intl.h" quote
40 print "#include " quote
"flags.h" quote
41 print "#include " quote
"target.h" quote
42 print "#include " quote
"inchash.h" quote
43 print "#include " quote
"hash-set.h" quote
44 print "#include " quote
"machmode.h" quote
45 print "#include " quote
"vec.h" quote
46 print "#include " quote
"double-int.h" quote
47 print "#include " quote
"input.h" quote
48 print "#include " quote
"alias.h" quote
49 print "#include " quote
"symtab.h" quote
50 print "#include " quote
"wide-int.h" quote
51 print "#include " quote
"inchash.h" quote
52 print "#include " quote
"tree.h" quote
53 print "#include " quote
"fold-const.h" quote
54 print "#include " quote
"tree-ssa-alias.h" quote
55 print "#include " quote
"is-a.h" quote
56 print "#include " quote
"predict.h" quote
57 print "#include " quote
"function.h" quote
58 print "#include " quote
"basic-block.h" quote
59 print "#include " quote
"gimple-expr.h" quote
60 print "#include " quote
"gimple.h" quote
61 print "#include " quote
"data-streamer.h" quote
62 print "#include " quote
"ipa-ref.h" quote
63 print "#include " quote
"cgraph.h" quote
66 if (n_extra_c_includes
> 0) {
67 for (i =
0; i
< n_extra_c_includes
; i
++) {
68 print "#include " quote extra_c_includes
[i
] quote
74 if (n_extra_target_vars
)
77 for (i =
0; i
< n_opts
; i
++) {
78 if (flag_set_p
("Save", flags
[i
]))
82 print "/* Save optimization variables into a structure. */"
84 print "cl_optimization_save (struct cl_optimization *ptr, struct gcc_options *opts)";
92 var_opt_char
[0] =
"optimize";
93 var_opt_char
[1] =
"optimize_size";
94 var_opt_range
["optimize"] =
"0, 255";
95 var_opt_range
["optimize_size"] =
"0, 255";
96 var_opt_enum
[0] =
"flag_fp_contract_mode";
98 # Sort by size to mimic how the structure is laid out to be friendlier to the
101 for (i =
0; i
< n_opts
; i
++) {
102 if (flag_set_p
("Optimization", flags
[i
])) {
103 name = var_name
(flags
[i
])
107 if(name in var_opt_seen
)
110 var_opt_seen
[name
]++;
111 otype = var_type_struct
(flags
[i
]);
112 if (otype ~
"^((un)?signed +)?int *$")
113 var_opt_int
[n_opt_int
++] = name
;
115 else if (otype ~
"^((un)?signed +)?short *$")
116 var_opt_short
[n_opt_short
++] = name
;
118 else if (otype ~
("^enum +[_" alnum
"]+ *"))
119 var_opt_enum
[n_opt_enum
++] = name
;
121 else if (otype ~
"^((un)?signed +)?char *$") {
122 var_opt_char
[n_opt_char
++] = name
;
123 if (otype ~
"^unsigned +char *$")
124 var_opt_range
[name
] =
"0, 255"
125 else if (otype ~
"^signed +char *$")
126 var_opt_range
[name
] =
"-128, 127"
129 var_opt_other
[n_opt_other
++] = name
;
133 for (i =
0; i
< n_opt_char
; i
++) {
134 name = var_opt_char
[i
];
135 if (var_opt_range
[name
] != "")
136 print " gcc_assert (IN_RANGE (opts->x_" name
", " var_opt_range
[name
] "));";
140 for (i =
0; i
< n_opt_other
; i
++) {
141 print " ptr->x_" var_opt_other
[i
] " = opts->x_" var_opt_other
[i
] ";";
144 for (i =
0; i
< n_opt_int
; i
++) {
145 print " ptr->x_" var_opt_int
[i
] " = opts->x_" var_opt_int
[i
] ";";
148 for (i =
0; i
< n_opt_enum
; i
++) {
149 print " ptr->x_" var_opt_enum
[i
] " = opts->x_" var_opt_enum
[i
] ";";
152 for (i =
0; i
< n_opt_short
; i
++) {
153 print " ptr->x_" var_opt_short
[i
] " = opts->x_" var_opt_short
[i
] ";";
156 for (i =
0; i
< n_opt_char
; i
++) {
157 print " ptr->x_" var_opt_char
[i
] " = opts->x_" var_opt_char
[i
] ";";
163 print "/* Restore optimization options from a structure. */";
165 print "cl_optimization_restore (struct gcc_options *opts, struct cl_optimization *ptr)";
168 for (i =
0; i
< n_opt_other
; i
++) {
169 print " opts->x_" var_opt_other
[i
] " = ptr->x_" var_opt_other
[i
] ";";
172 for (i =
0; i
< n_opt_int
; i
++) {
173 print " opts->x_" var_opt_int
[i
] " = ptr->x_" var_opt_int
[i
] ";";
176 for (i =
0; i
< n_opt_enum
; i
++) {
177 print " opts->x_" var_opt_enum
[i
] " = ptr->x_" var_opt_enum
[i
] ";";
180 for (i =
0; i
< n_opt_short
; i
++) {
181 print " opts->x_" var_opt_short
[i
] " = ptr->x_" var_opt_short
[i
] ";";
184 for (i =
0; i
< n_opt_char
; i
++) {
185 print " opts->x_" var_opt_char
[i
] " = ptr->x_" var_opt_char
[i
] ";";
188 print " targetm.override_options_after_change ();";
192 print "/* Print optimization options from a structure. */";
194 print "cl_optimization_print (FILE *file,";
195 print " int indent_to,";
196 print " struct cl_optimization *ptr)";
199 print " fputs (\"\\n\", file);";
200 for (i =
0; i
< n_opt_other
; i
++) {
201 print " if (ptr->x_" var_opt_other
[i
] ")";
202 print " fprintf (file, \"%*s%s (%#lx)\\n\",";
203 print " indent_to, \"\",";
204 print " \"" var_opt_other
[i
] "\",";
205 print " (unsigned long)ptr->x_" var_opt_other
[i
] ");";
209 for (i =
0; i
< n_opt_int
; i
++) {
210 print " if (ptr->x_" var_opt_int
[i
] ")";
211 print " fprintf (file, \"%*s%s (%#x)\\n\",";
212 print " indent_to, \"\",";
213 print " \"" var_opt_int
[i
] "\",";
214 print " ptr->x_" var_opt_int
[i
] ");";
218 for (i =
0; i
< n_opt_enum
; i
++) {
219 print " fprintf (file, \"%*s%s (%#x)\\n\",";
220 print " indent_to, \"\",";
221 print " \"" var_opt_enum
[i
] "\",";
222 print " (int) ptr->x_" var_opt_enum
[i
] ");";
226 for (i =
0; i
< n_opt_short
; i
++) {
227 print " if (ptr->x_" var_opt_short
[i
] ")";
228 print " fprintf (file, \"%*s%s (%#x)\\n\",";
229 print " indent_to, \"\",";
230 print " \"" var_opt_short
[i
] "\",";
231 print " ptr->x_" var_opt_short
[i
] ");";
235 for (i =
0; i
< n_opt_char
; i
++) {
236 print " if (ptr->x_" var_opt_char
[i
] ")";
237 print " fprintf (file, \"%*s%s (%#x)\\n\",";
238 print " indent_to, \"\",";
239 print " \"" var_opt_char
[i
] "\",";
240 print " ptr->x_" var_opt_char
[i
] ");";
247 print "/* Save selected option variables into a structure. */"
249 print "cl_target_option_save (struct cl_target_option *ptr, struct gcc_options *opts)";
259 for (i =
0; i
< n_opts
; i
++) {
260 if (flag_set_p
("Save", flags
[i
])) {
261 name = var_name
(flags
[i
])
263 name =
"target_flags";
265 if(name in var_save_seen
)
268 var_save_seen
[name
]++;
269 otype = var_type_struct
(flags
[i
])
270 if (otype ~
"^((un)?signed +)?int *$")
271 var_target_int
[n_target_int
++] = name
;
273 else if (otype ~
"^((un)?signed +)?short *$")
274 var_target_short
[n_target_short
++] = name
;
276 else if (otype ~
("^enum +[_" alnum
"]+ *$"))
277 var_target_enum
[n_target_enum
++] = name
;
279 else if (otype ~
"^((un)?signed +)?char *$") {
280 var_target_char
[n_target_char
++] = name
;
281 if (otype ~
"^unsigned +char *$")
282 var_target_range
[name
] =
"0, 255"
283 else if (otype ~
"^signed +char *$")
284 var_target_range
[name
] =
"-128, 127"
285 if (otype == var_type
(flags
[i
]))
286 var_target_range
[name
] =
""
289 var_target_other
[n_target_other
++] = name
;
293 var_target_int
[n_target_int
++] =
"target_flags";
297 for (i =
0; i
< n_target_char
; i
++) {
298 name = var_target_char
[i
];
299 if (var_target_range
[name
] != "") {
301 print " gcc_assert (IN_RANGE (opts->x_" name
", " var_target_range
[name
] "));";
308 print " if (targetm.target_option.save)";
309 print " targetm.target_option.save (ptr, opts);";
312 for (i =
0; i
< n_extra_target_vars
; i
++) {
313 print " ptr->x_" extra_target_vars
[i
] " = opts->x_" extra_target_vars
[i
] ";";
316 for (i =
0; i
< n_target_other
; i
++) {
317 print " ptr->x_" var_target_other
[i
] " = opts->x_" var_target_other
[i
] ";";
320 for (i =
0; i
< n_target_enum
; i
++) {
321 print " ptr->x_" var_target_enum
[i
] " = opts->x_" var_target_enum
[i
] ";";
324 for (i =
0; i
< n_target_int
; i
++) {
325 print " ptr->x_" var_target_int
[i
] " = opts->x_" var_target_int
[i
] ";";
328 for (i =
0; i
< n_target_short
; i
++) {
329 print " ptr->x_" var_target_short
[i
] " = opts->x_" var_target_short
[i
] ";";
332 for (i =
0; i
< n_target_char
; i
++) {
333 print " ptr->x_" var_target_char
[i
] " = opts->x_" var_target_char
[i
] ";";
339 print "/* Restore selected current options from a structure. */";
341 print "cl_target_option_restore (struct gcc_options *opts, struct cl_target_option *ptr)";
344 for (i =
0; i
< n_extra_target_vars
; i
++) {
345 print " opts->x_" extra_target_vars
[i
] " = ptr->x_" extra_target_vars
[i
] ";";
348 for (i =
0; i
< n_target_other
; i
++) {
349 print " opts->x_" var_target_other
[i
] " = ptr->x_" var_target_other
[i
] ";";
352 for (i =
0; i
< n_target_enum
; i
++) {
353 print " opts->x_" var_target_enum
[i
] " = ptr->x_" var_target_enum
[i
] ";";
356 for (i =
0; i
< n_target_int
; i
++) {
357 print " opts->x_" var_target_int
[i
] " = ptr->x_" var_target_int
[i
] ";";
360 for (i =
0; i
< n_target_short
; i
++) {
361 print " opts->x_" var_target_short
[i
] " = ptr->x_" var_target_short
[i
] ";";
364 for (i =
0; i
< n_target_char
; i
++) {
365 print " opts->x_" var_target_char
[i
] " = ptr->x_" var_target_char
[i
] ";";
368 # This must occur after the normal variables in case the code depends on those
371 print " if (targetm.target_option.restore)";
372 print " targetm.target_option.restore (opts, ptr);";
377 print "/* Print optimization options from a structure. */";
379 print "cl_target_option_print (FILE *file,";
380 print " int indent,";
381 print " struct cl_target_option *ptr)";
384 print " fputs (\"\\n\", file);";
385 for (i =
0; i
< n_target_other
; i
++) {
386 print " if (ptr->x_" var_target_other
[i
] ")";
387 if (host_wide_int
[var_target_other
[i
]] ==
"yes")
388 print " fprintf (file, \"%*s%s (%#\" HOST_WIDE_INT_PRINT \"x)\\n\",";
390 print " fprintf (file, \"%*s%s (%#x)\\n\",";
391 print " indent, \"\",";
392 print " \"" var_target_other
[i
] "\",";
393 if (host_wide_int
[var_target_other
[i
]] ==
"yes")
394 print " ptr->x_" var_target_other
[i
] ");";
396 print " (unsigned long)ptr->x_" var_target_other
[i
] ");";
400 for (i =
0; i
< n_target_enum
; i
++) {
401 print " if (ptr->x_" var_target_enum
[i
] ")";
402 print " fprintf (file, \"%*s%s (%#x)\\n\",";
403 print " indent, \"\",";
404 print " \"" var_target_enum
[i
] "\",";
405 print " ptr->x_" var_target_enum
[i
] ");";
409 for (i =
0; i
< n_target_int
; i
++) {
410 print " if (ptr->x_" var_target_int
[i
] ")";
411 print " fprintf (file, \"%*s%s (%#x)\\n\",";
412 print " indent, \"\",";
413 print " \"" var_target_int
[i
] "\",";
414 print " ptr->x_" var_target_int
[i
] ");";
418 for (i =
0; i
< n_target_short
; i
++) {
419 print " if (ptr->x_" var_target_short
[i
] ")";
420 print " fprintf (file, \"%*s%s (%#x)\\n\",";
421 print " indent, \"\",";
422 print " \"" var_target_short
[i
] "\",";
423 print " ptr->x_" var_target_short
[i
] ");";
427 for (i =
0; i
< n_target_char
; i
++) {
428 print " if (ptr->x_" var_target_char
[i
] ")";
429 print " fprintf (file, \"%*s%s (%#x)\\n\",";
430 print " indent, \"\",";
431 print " \"" var_target_char
[i
] "\",";
432 print " ptr->x_" var_target_char
[i
] ");";
437 print " if (targetm.target_option.print)";
438 print " targetm.target_option.print (file, indent, ptr);";
443 print "/* Compare two target options */";
445 print "cl_target_option_eq (struct cl_target_option const *ptr1 ATTRIBUTE_UNUSED,";
446 print " struct cl_target_option const *ptr2 ATTRIBUTE_UNUSED)";
451 for (i =
0; i
< n_target_save
; i
++) {
452 var = target_save_decl
[i
];
453 sub (" *=.*", "", var
);
456 sub("^.*[ *]", "", name
)
457 sub(" *" name
"$", "", type
)
458 if (target_save_decl
[i
] ~
"^const char \\*+[_" alnum
"]+$")
459 var_target_str
[n_target_str
++] = name
;
461 var_target_val_type
[n_target_val
] = type
;
462 var_target_val
[n_target_val
++] = name
;
466 for (i =
0; i
< n_opts
; i
++) {
467 if (flag_set_p
("Save", flags
[i
])) {
468 name = var_name
(flags
[i
])
470 name =
"target_flags";
472 if(name in var_list_seen
)
475 var_list_seen
[name
]++;
476 otype = var_type_struct
(flags
[i
])
477 if (otype ~
"^const char \\**$")
478 var_target_str
[n_target_str
++] =
"x_" name
;
480 var_target_val_type
[n_target_val
] = otype
;
481 var_target_val
[n_target_val
++] =
"x_" name
;
486 var_target_val_type
[n_target_val
] =
"int";
487 var_target_val
[n_target_val
++] =
"x_target_flags";
490 for (i =
0; i
< n_target_str
; i
++) {
491 name = var_target_str
[i
]
492 print " if (ptr1->" name
" != ptr2->" name
;
493 print " && (!ptr1->" name
" || !ptr2->" name
494 print " || strcmp (ptr1->" name
", ptr2->" name
")))";
495 print " return false;";
497 for (i =
0; i
< n_target_val
; i
++) {
498 name = var_target_val
[i
]
499 print " if (ptr1->" name
" != ptr2->" name
")";
500 print " return false;";
503 print " return true;";
508 print "/* Hash target options */";
510 print "cl_target_option_hash (struct cl_target_option const *ptr ATTRIBUTE_UNUSED)";
512 print " inchash::hash hstate;";
513 for (i =
0; i
< n_target_str
; i
++) {
514 name = var_target_str
[i
]
515 print " if (ptr->" name
")";
516 print " hstate.add (ptr->" name
", strlen (ptr->" name
"));";
518 print " hstate.add_int (0);";
520 for (i =
0; i
< n_target_val
; i
++) {
521 name = var_target_val
[i
]
522 print " hstate.add_wide_int (ptr->" name
");";
524 print " return hstate.end ();";
528 print "/* Stream out target options */";
530 print "cl_target_option_stream_out (struct output_block *ob ATTRIBUTE_UNUSED,";
531 print " struct bitpack_d *bp ATTRIBUTE_UNUSED,";
532 print " struct cl_target_option *ptr ATTRIBUTE_UNUSED)";
534 for (i =
0; i
< n_target_str
; i
++) {
535 name = var_target_str
[i
]
536 print " bp_pack_string (ob, bp, ptr->" name
", true);";
538 for (i =
0; i
< n_target_val
; i
++) {
539 name = var_target_val
[i
]
540 print " bp_pack_value (bp, ptr->" name
", 64);";
545 print "/* Stream in target options */";
547 print "cl_target_option_stream_in (struct data_in *data_in ATTRIBUTE_UNUSED,";
548 print " struct bitpack_d *bp ATTRIBUTE_UNUSED,";
549 print " struct cl_target_option *ptr ATTRIBUTE_UNUSED)";
551 for (i =
0; i
< n_target_str
; i
++) {
552 name = var_target_str
[i
]
553 print " ptr->" name
" = bp_unpack_string (data_in, bp);";
554 print " if (ptr->" name
")";
555 print " ptr->" name
" = xstrdup (ptr->" name
");";
557 for (i =
0; i
< n_target_val
; i
++) {
558 name = var_target_val
[i
]
559 print " ptr->" name
" = (" var_target_val_type
[i
] ") bp_unpack_value (bp, 64);";
565 var_opt_val
[0] =
"x_optimize"
566 var_opt_val_type
[0] =
"char "
567 var_opt_val
[1] =
"x_optimize_size"
568 var_opt_val_type
[1] =
"char "
569 for (i =
0; i
< n_opts
; i
++) {
570 if (flag_set_p
("Optimization", flags
[i
])) {
571 name = var_name
(flags
[i
])
575 if(name in var_opt_list_seen
)
578 var_opt_list_seen
[name
]++;
580 otype = var_type_struct
(flags
[i
])
581 var_opt_val_type
[n_opt_val
] = otype
;
582 var_opt_val
[n_opt_val
++] =
"x_" name
;
586 print "/* Hash optimization options */";
588 print "cl_optimization_hash (struct cl_optimization const *ptr ATTRIBUTE_UNUSED)";
590 print " inchash::hash hstate;";
591 for (i =
0; i
< n_opt_val
; i
++) {
592 name = var_opt_val
[i
]
593 print " hstate.add_wide_int (ptr->" name
");";
595 print " return hstate.end ();";
599 print "/* Stream out optimization options */";
601 print "cl_optimization_stream_out (struct bitpack_d *bp,";
602 print " struct cl_optimization *ptr)";
604 for (i =
0; i
< n_opt_val
; i
++) {
605 name = var_opt_val
[i
]
606 print " bp_pack_value (bp, ptr->" name
", 64);";
611 print "/* Stream in optimization options */";
613 print "cl_optimization_stream_in (struct bitpack_d *bp,";
614 print " struct cl_optimization *ptr)";
616 for (i =
0; i
< n_opt_val
; i
++) {
617 name = var_opt_val
[i
]
618 print " ptr->" name
" = (" var_opt_val_type
[i
] ") bp_unpack_value (bp, 64);";