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_char
[2] =
"optimize_debug";
95 var_opt_range
["optimize"] =
"0, 255";
96 var_opt_range
["optimize_size"] =
"0, 1";
97 var_opt_range
["optimize_debug"] =
"0, 1";
98 var_opt_enum
[0] =
"flag_fp_contract_mode";
100 # Sort by size to mimic how the structure is laid out to be friendlier to the
103 for (i =
0; i
< n_opts
; i
++) {
104 if (flag_set_p
("Optimization", flags
[i
])) {
105 name = var_name
(flags
[i
])
109 if(name in var_opt_seen
)
112 var_opt_seen
[name
]++;
113 otype = var_type_struct
(flags
[i
]);
114 if (otype ~
"^((un)?signed +)?int *$")
115 var_opt_int
[n_opt_int
++] = name
;
117 else if (otype ~
"^((un)?signed +)?short *$")
118 var_opt_short
[n_opt_short
++] = name
;
120 else if (otype ~
("^enum +[_" alnum
"]+ *"))
121 var_opt_enum
[n_opt_enum
++] = name
;
123 else if (otype ~
"^((un)?signed +)?char *$") {
124 var_opt_char
[n_opt_char
++] = name
;
125 if (otype ~
"^unsigned +char *$")
126 var_opt_range
[name
] =
"0, 255"
127 else if (otype ~
"^signed +char *$")
128 var_opt_range
[name
] =
"-128, 127"
131 var_opt_other
[n_opt_other
++] = name
;
135 for (i =
0; i
< n_opt_char
; i
++) {
136 name = var_opt_char
[i
];
137 if (var_opt_range
[name
] != "")
138 print " gcc_assert (IN_RANGE (opts->x_" name
", " var_opt_range
[name
] "));";
142 for (i =
0; i
< n_opt_other
; i
++) {
143 print " ptr->x_" var_opt_other
[i
] " = opts->x_" var_opt_other
[i
] ";";
146 for (i =
0; i
< n_opt_int
; i
++) {
147 print " ptr->x_" var_opt_int
[i
] " = opts->x_" var_opt_int
[i
] ";";
150 for (i =
0; i
< n_opt_enum
; i
++) {
151 print " ptr->x_" var_opt_enum
[i
] " = opts->x_" var_opt_enum
[i
] ";";
154 for (i =
0; i
< n_opt_short
; i
++) {
155 print " ptr->x_" var_opt_short
[i
] " = opts->x_" var_opt_short
[i
] ";";
158 for (i =
0; i
< n_opt_char
; i
++) {
159 print " ptr->x_" var_opt_char
[i
] " = opts->x_" var_opt_char
[i
] ";";
165 print "/* Restore optimization options from a structure. */";
167 print "cl_optimization_restore (struct gcc_options *opts, struct cl_optimization *ptr)";
170 for (i =
0; i
< n_opt_other
; i
++) {
171 print " opts->x_" var_opt_other
[i
] " = ptr->x_" var_opt_other
[i
] ";";
174 for (i =
0; i
< n_opt_int
; i
++) {
175 print " opts->x_" var_opt_int
[i
] " = ptr->x_" var_opt_int
[i
] ";";
178 for (i =
0; i
< n_opt_enum
; i
++) {
179 print " opts->x_" var_opt_enum
[i
] " = ptr->x_" var_opt_enum
[i
] ";";
182 for (i =
0; i
< n_opt_short
; i
++) {
183 print " opts->x_" var_opt_short
[i
] " = ptr->x_" var_opt_short
[i
] ";";
186 for (i =
0; i
< n_opt_char
; i
++) {
187 print " opts->x_" var_opt_char
[i
] " = ptr->x_" var_opt_char
[i
] ";";
190 print " targetm.override_options_after_change ();";
194 print "/* Print optimization options from a structure. */";
196 print "cl_optimization_print (FILE *file,";
197 print " int indent_to,";
198 print " struct cl_optimization *ptr)";
201 print " fputs (\"\\n\", file);";
202 for (i =
0; i
< n_opt_other
; i
++) {
203 print " if (ptr->x_" var_opt_other
[i
] ")";
204 print " fprintf (file, \"%*s%s (%#lx)\\n\",";
205 print " indent_to, \"\",";
206 print " \"" var_opt_other
[i
] "\",";
207 print " (unsigned long)ptr->x_" var_opt_other
[i
] ");";
211 for (i =
0; i
< n_opt_int
; i
++) {
212 print " if (ptr->x_" var_opt_int
[i
] ")";
213 print " fprintf (file, \"%*s%s (%#x)\\n\",";
214 print " indent_to, \"\",";
215 print " \"" var_opt_int
[i
] "\",";
216 print " ptr->x_" var_opt_int
[i
] ");";
220 for (i =
0; i
< n_opt_enum
; i
++) {
221 print " fprintf (file, \"%*s%s (%#x)\\n\",";
222 print " indent_to, \"\",";
223 print " \"" var_opt_enum
[i
] "\",";
224 print " (int) ptr->x_" var_opt_enum
[i
] ");";
228 for (i =
0; i
< n_opt_short
; i
++) {
229 print " if (ptr->x_" var_opt_short
[i
] ")";
230 print " fprintf (file, \"%*s%s (%#x)\\n\",";
231 print " indent_to, \"\",";
232 print " \"" var_opt_short
[i
] "\",";
233 print " ptr->x_" var_opt_short
[i
] ");";
237 for (i =
0; i
< n_opt_char
; i
++) {
238 print " if (ptr->x_" var_opt_char
[i
] ")";
239 print " fprintf (file, \"%*s%s (%#x)\\n\",";
240 print " indent_to, \"\",";
241 print " \"" var_opt_char
[i
] "\",";
242 print " ptr->x_" var_opt_char
[i
] ");";
249 print "/* Print different optimization variables from structures provided as arguments. */";
251 print "cl_optimization_print_diff (FILE *file,";
252 print " int indent_to,";
253 print " struct cl_optimization *ptr1,";
254 print " struct cl_optimization *ptr2)";
257 print " fputs (\"\\n\", file);";
258 for (i =
0; i
< n_opt_other
; i
++) {
259 print " if (ptr1->x_" var_opt_other
[i
] " != ptr2->x_" var_opt_other
[i
] ")";
260 print " fprintf (file, \"%*s%s (%#lx/%#lx)\\n\",";
261 print " indent_to, \"\",";
262 print " \"" var_opt_other
[i
] "\",";
263 print " (unsigned long)ptr1->x_" var_opt_other
[i
] ",";
264 print " (unsigned long)ptr2->x_" var_opt_other
[i
] ");";
268 for (i =
0; i
< n_opt_int
; i
++) {
269 print " if (ptr1->x_" var_opt_int
[i
] " != ptr2->x_" var_opt_int
[i
] ")";
270 print " fprintf (file, \"%*s%s (%#x/%#x)\\n\",";
271 print " indent_to, \"\",";
272 print " \"" var_opt_int
[i
] "\",";
273 print " ptr1->x_" var_opt_int
[i
] ",";
274 print " ptr2->x_" var_opt_int
[i
] ");";
278 for (i =
0; i
< n_opt_enum
; i
++) {
279 print " if (ptr1->x_" var_opt_enum
[i
] " != ptr2->x_" var_opt_enum
[i
] ")";
280 print " fprintf (file, \"%*s%s (%#x/%#x)\\n\",";
281 print " indent_to, \"\",";
282 print " \"" var_opt_enum
[i
] "\",";
283 print " (int) ptr1->x_" var_opt_enum
[i
] ",";
284 print " (int) ptr2->x_" var_opt_enum
[i
] ");";
288 for (i =
0; i
< n_opt_short
; i
++) {
289 print " if (ptr1->x_" var_opt_short
[i
] " != ptr2->x_" var_opt_short
[i
] ")";
290 print " fprintf (file, \"%*s%s (%#x/%#x)\\n\",";
291 print " indent_to, \"\",";
292 print " \"" var_opt_short
[i
] "\",";
293 print " ptr1->x_" var_opt_short
[i
] ",";
294 print " ptr2->x_" var_opt_short
[i
] ");";
298 for (i =
0; i
< n_opt_char
; i
++) {
299 print " if (ptr1->x_" var_opt_char
[i
] " != ptr2->x_" var_opt_char
[i
] ")";
300 print " fprintf (file, \"%*s%s (%#x/%#x)\\n\",";
301 print " indent_to, \"\",";
302 print " \"" var_opt_char
[i
] "\",";
303 print " ptr1->x_" var_opt_char
[i
] ",";
304 print " ptr2->x_" var_opt_char
[i
] ");";
312 print "/* Save selected option variables into a structure. */"
314 print "cl_target_option_save (struct cl_target_option *ptr, struct gcc_options *opts)";
324 for (i =
0; i
< n_opts
; i
++) {
325 if (flag_set_p
("Save", flags
[i
])) {
326 name = var_name
(flags
[i
])
328 name =
"target_flags";
330 if(name in var_save_seen
)
333 var_save_seen
[name
]++;
334 otype = var_type_struct
(flags
[i
])
335 if (otype ~
"^((un)?signed +)?int *$")
336 var_target_int
[n_target_int
++] = name
;
338 else if (otype ~
"^((un)?signed +)?short *$")
339 var_target_short
[n_target_short
++] = name
;
341 else if (otype ~
("^enum +[_" alnum
"]+ *$"))
342 var_target_enum
[n_target_enum
++] = name
;
344 else if (otype ~
"^((un)?signed +)?char *$") {
345 var_target_char
[n_target_char
++] = name
;
346 if (otype ~
"^unsigned +char *$")
347 var_target_range
[name
] =
"0, 255"
348 else if (otype ~
"^signed +char *$")
349 var_target_range
[name
] =
"-128, 127"
350 if (otype == var_type
(flags
[i
]))
351 var_target_range
[name
] =
""
354 var_target_other
[n_target_other
++] = name
;
358 var_target_int
[n_target_int
++] =
"target_flags";
362 for (i =
0; i
< n_target_char
; i
++) {
363 name = var_target_char
[i
];
364 if (var_target_range
[name
] != "") {
366 print " gcc_assert (IN_RANGE (opts->x_" name
", " var_target_range
[name
] "));";
373 print " if (targetm.target_option.save)";
374 print " targetm.target_option.save (ptr, opts);";
377 for (i =
0; i
< n_extra_target_vars
; i
++) {
378 print " ptr->x_" extra_target_vars
[i
] " = opts->x_" extra_target_vars
[i
] ";";
381 for (i =
0; i
< n_target_other
; i
++) {
382 print " ptr->x_" var_target_other
[i
] " = opts->x_" var_target_other
[i
] ";";
385 for (i =
0; i
< n_target_enum
; i
++) {
386 print " ptr->x_" var_target_enum
[i
] " = opts->x_" var_target_enum
[i
] ";";
389 for (i =
0; i
< n_target_int
; i
++) {
390 print " ptr->x_" var_target_int
[i
] " = opts->x_" var_target_int
[i
] ";";
393 for (i =
0; i
< n_target_short
; i
++) {
394 print " ptr->x_" var_target_short
[i
] " = opts->x_" var_target_short
[i
] ";";
397 for (i =
0; i
< n_target_char
; i
++) {
398 print " ptr->x_" var_target_char
[i
] " = opts->x_" var_target_char
[i
] ";";
404 print "/* Restore selected current options from a structure. */";
406 print "cl_target_option_restore (struct gcc_options *opts, struct cl_target_option *ptr)";
409 for (i =
0; i
< n_extra_target_vars
; i
++) {
410 print " opts->x_" extra_target_vars
[i
] " = ptr->x_" extra_target_vars
[i
] ";";
413 for (i =
0; i
< n_target_other
; i
++) {
414 print " opts->x_" var_target_other
[i
] " = ptr->x_" var_target_other
[i
] ";";
417 for (i =
0; i
< n_target_enum
; i
++) {
418 print " opts->x_" var_target_enum
[i
] " = ptr->x_" var_target_enum
[i
] ";";
421 for (i =
0; i
< n_target_int
; i
++) {
422 print " opts->x_" var_target_int
[i
] " = ptr->x_" var_target_int
[i
] ";";
425 for (i =
0; i
< n_target_short
; i
++) {
426 print " opts->x_" var_target_short
[i
] " = ptr->x_" var_target_short
[i
] ";";
429 for (i =
0; i
< n_target_char
; i
++) {
430 print " opts->x_" var_target_char
[i
] " = ptr->x_" var_target_char
[i
] ";";
433 # This must occur after the normal variables in case the code depends on those
436 print " if (targetm.target_option.restore)";
437 print " targetm.target_option.restore (opts, ptr);";
442 print "/* Print optimization options from a structure. */";
444 print "cl_target_option_print (FILE *file,";
445 print " int indent,";
446 print " struct cl_target_option *ptr)";
449 print " fputs (\"\\n\", file);";
450 for (i =
0; i
< n_target_other
; i
++) {
451 print " if (ptr->x_" var_target_other
[i
] ")";
452 if (host_wide_int
[var_target_other
[i
]] ==
"yes")
453 print " fprintf (file, \"%*s%s (%#\" HOST_WIDE_INT_PRINT \"x)\\n\",";
455 print " fprintf (file, \"%*s%s (%#x)\\n\",";
456 print " indent, \"\",";
457 print " \"" var_target_other
[i
] "\",";
458 if (host_wide_int
[var_target_other
[i
]] ==
"yes")
459 print " ptr->x_" var_target_other
[i
] ");";
461 print " (unsigned long)ptr->x_" var_target_other
[i
] ");";
465 for (i =
0; i
< n_target_enum
; i
++) {
466 print " if (ptr->x_" var_target_enum
[i
] ")";
467 print " fprintf (file, \"%*s%s (%#x)\\n\",";
468 print " indent, \"\",";
469 print " \"" var_target_enum
[i
] "\",";
470 print " ptr->x_" var_target_enum
[i
] ");";
474 for (i =
0; i
< n_target_int
; i
++) {
475 print " if (ptr->x_" var_target_int
[i
] ")";
476 print " fprintf (file, \"%*s%s (%#x)\\n\",";
477 print " indent, \"\",";
478 print " \"" var_target_int
[i
] "\",";
479 print " ptr->x_" var_target_int
[i
] ");";
483 for (i =
0; i
< n_target_short
; i
++) {
484 print " if (ptr->x_" var_target_short
[i
] ")";
485 print " fprintf (file, \"%*s%s (%#x)\\n\",";
486 print " indent, \"\",";
487 print " \"" var_target_short
[i
] "\",";
488 print " ptr->x_" var_target_short
[i
] ");";
492 for (i =
0; i
< n_target_char
; i
++) {
493 print " if (ptr->x_" var_target_char
[i
] ")";
494 print " fprintf (file, \"%*s%s (%#x)\\n\",";
495 print " indent, \"\",";
496 print " \"" var_target_char
[i
] "\",";
497 print " ptr->x_" var_target_char
[i
] ");";
502 print " if (targetm.target_option.print)";
503 print " targetm.target_option.print (file, indent, ptr);";
507 print "/* Print different target option variables from structures provided as arguments. */";
509 print "cl_target_option_print_diff (FILE *file,";
510 print " int indent ATTRIBUTE_UNUSED,";
511 print " struct cl_target_option *ptr1 ATTRIBUTE_UNUSED,";
512 print " struct cl_target_option *ptr2 ATTRIBUTE_UNUSED)";
515 print " fputs (\"\\n\", file);";
516 for (i =
0; i
< n_target_other
; i
++) {
517 print " if (ptr1->x_" var_target_other
[i
] " != ptr2->x_" var_target_other
[i
] ")";
518 if (host_wide_int
[var_target_other
[i
]] ==
"yes")
519 print " fprintf (file, \"%*s%s (%#\" HOST_WIDE_INT_PRINT \"x/%#\" HOST_WIDE_INT_PRINT \"x)\\n\",";
521 print " fprintf (file, \"%*s%s (%#x/%#x)\\n\",";
522 print " indent, \"\",";
523 print " \"" var_target_other
[i
] "\",";
524 if (host_wide_int
[var_target_other
[i
]] ==
"yes") {
525 print " ptr1->x_" var_target_other
[i
] ",";
526 print " ptr2->x_" var_target_other
[i
] ");";
529 print " (unsigned long)ptr1->x_" var_target_other
[i
] ",";
530 print " (unsigned long)ptr2->x_" var_target_other
[i
] ");";
535 for (i =
0; i
< n_target_enum
; i
++) {
536 print " if (ptr1->x_" var_target_enum
[i
] " != ptr2->x_" var_target_enum
[i
] ")";
537 print " fprintf (file, \"%*s%s (%#x/%#x)\\n\",";
538 print " indent, \"\",";
539 print " \"" var_target_enum
[i
] "\",";
540 print " ptr1->x_" var_target_enum
[i
] ",";
541 print " ptr2->x_" var_target_enum
[i
] ");";
545 for (i =
0; i
< n_target_int
; i
++) {
546 print " if (ptr1->x_" var_target_int
[i
] " != ptr2->x_" var_target_int
[i
] ")";
547 print " fprintf (file, \"%*s%s (%#x/%#x)\\n\",";
548 print " indent, \"\",";
549 print " \"" var_target_int
[i
] "\",";
550 print " ptr1->x_" var_target_int
[i
] ",";
551 print " ptr2->x_" var_target_int
[i
] ");";
555 for (i =
0; i
< n_target_short
; i
++) {
556 print " if (ptr1->x_" var_target_short
[i
] " != ptr2->x_" var_target_short
[i
] ")";
557 print " fprintf (file, \"%*s%s (%#x/%#x)\\n\",";
558 print " indent, \"\",";
559 print " \"" var_target_short
[i
] "\",";
560 print " ptr1->x_" var_target_short
[i
] ",";
561 print " ptr2->x_" var_target_short
[i
] ");";
565 for (i =
0; i
< n_target_char
; i
++) {
566 print " if (ptr1->x_" var_target_char
[i
] " != ptr2->x_" var_target_char
[i
] ")";
567 print " fprintf (file, \"%*s%s (%#x/%#x)\\n\",";
568 print " indent, \"\",";
569 print " \"" var_target_char
[i
] "\",";
570 print " ptr1->x_" var_target_char
[i
] ",";
571 print " ptr2->x_" var_target_char
[i
] ");";
578 print "/* Compare two target options */";
580 print "cl_target_option_eq (struct cl_target_option const *ptr1 ATTRIBUTE_UNUSED,";
581 print " struct cl_target_option const *ptr2 ATTRIBUTE_UNUSED)";
587 for (i =
0; i
< n_target_save
; i
++) {
588 var = target_save_decl
[i
];
589 sub (" *=.*", "", var
);
592 sub("^.*[ *]", "", name
)
593 sub(" *" name
"$", "", type
)
594 if (target_save_decl
[i
] ~
"^const char \\*+[_" alnum
"]+$")
595 var_target_str
[n_target_str
++] = name
;
597 if (target_save_decl
[i
] ~
" .*\\[.+\\]+$") {
599 sub("[^\\[]+\\[", "", size
);
600 sub("\\]$", "", size
);
601 sub("\\[.+", "", name
)
602 sub(" [^ ]+$", "", type
)
603 var_target_array
[n_target_array
] = name
604 var_target_array_type
[n_target_array
] = type
605 var_target_array_size
[n_target_array
++] = size
608 var_target_val_type
[n_target_val
] = type
;
609 var_target_val
[n_target_val
++] = name
;
614 for (i =
0; i
< n_opts
; i
++) {
615 if (flag_set_p
("Save", flags
[i
])) {
616 name = var_name
(flags
[i
])
618 name =
"target_flags";
620 if(name in var_list_seen
)
623 var_list_seen
[name
]++;
624 otype = var_type_struct
(flags
[i
])
625 if (otype ~
"^const char \\**$")
626 var_target_str
[n_target_str
++] =
"x_" name
;
628 var_target_val_type
[n_target_val
] = otype
;
629 var_target_val
[n_target_val
++] =
"x_" name
;
634 var_target_val_type
[n_target_val
] =
"int";
635 var_target_val
[n_target_val
++] =
"x_target_flags";
638 for (i =
0; i
< n_target_str
; i
++) {
639 name = var_target_str
[i
]
640 print " if (ptr1->" name
" != ptr2->" name
;
641 print " && (!ptr1->" name
" || !ptr2->" name
642 print " || strcmp (ptr1->" name
", ptr2->" name
")))";
643 print " return false;";
645 for (i =
0; i
< n_target_array
; i
++) {
646 name = var_target_array
[i
]
647 size = var_target_array_size
[i
]
648 type = var_target_array_type
[i
]
649 print " if (ptr1->" name
" != ptr2->" name
"";
650 print " || memcmp (ptr1->" name
", ptr2->" name
", " size
" * sizeof(" type
")))"
651 print " return false;";
653 for (i =
0; i
< n_target_val
; i
++) {
654 name = var_target_val
[i
]
655 print " if (ptr1->" name
" != ptr2->" name
")";
656 print " return false;";
659 print " return true;";
664 print "/* Hash target options */";
666 print "cl_target_option_hash (struct cl_target_option const *ptr ATTRIBUTE_UNUSED)";
668 print " inchash::hash hstate;";
669 for (i =
0; i
< n_target_str
; i
++) {
670 name = var_target_str
[i
]
671 print " if (ptr->" name
")";
672 print " hstate.add (ptr->" name
", strlen (ptr->" name
"));";
674 print " hstate.add_int (0);";
676 for (i =
0; i
< n_target_array
; i
++) {
677 name= var_target_array
[i
]
678 size = var_target_array_size
[i
]
679 type = var_target_array_type
[i
]
680 print " hstate.add_int (" size
");";
681 print " hstate.add (ptr->" name
", sizeof (" type
") * " size
");";
683 for (i =
0; i
< n_target_val
; i
++) {
684 name = var_target_val
[i
]
685 print " hstate.add_wide_int (ptr->" name
");";
687 print " return hstate.end ();";
691 print "/* Stream out target options */";
693 print "cl_target_option_stream_out (struct output_block *ob ATTRIBUTE_UNUSED,";
694 print " struct bitpack_d *bp ATTRIBUTE_UNUSED,";
695 print " struct cl_target_option *ptr ATTRIBUTE_UNUSED)";
697 for (i =
0; i
< n_target_str
; i
++) {
698 name = var_target_str
[i
]
699 print " bp_pack_string (ob, bp, ptr->" name
", true);";
701 for (i =
0; i
< n_target_array
; i
++) {
702 name = var_target_array
[i
]
703 size = var_target_array_size
[i
]
704 print " for (unsigned i = 0; i < " size
"; i++)"
705 print " bp_pack_value (bp, ptr->" name
"[i], 64);";
707 for (i =
0; i
< n_target_val
; i
++) {
708 name = var_target_val
[i
]
709 print " bp_pack_value (bp, ptr->" name
", 64);";
714 print "/* Stream in target options */";
716 print "cl_target_option_stream_in (struct data_in *data_in ATTRIBUTE_UNUSED,";
717 print " struct bitpack_d *bp ATTRIBUTE_UNUSED,";
718 print " struct cl_target_option *ptr ATTRIBUTE_UNUSED)";
720 for (i =
0; i
< n_target_str
; i
++) {
721 name = var_target_str
[i
]
722 print " ptr->" name
" = bp_unpack_string (data_in, bp);";
723 print " if (ptr->" name
")";
724 print " ptr->" name
" = xstrdup (ptr->" name
");";
726 for (i =
0; i
< n_target_array
; i
++) {
727 name = var_target_array
[i
]
728 size = var_target_array_size
[i
]
729 print " for (int i = " size
" - 1; i >= 0; i--)"
730 print " ptr->" name
"[i] = (" var_target_array_type
[i
] ") bp_unpack_value (bp, 64);";
732 for (i =
0; i
< n_target_val
; i
++) {
733 name = var_target_val
[i
]
734 print " ptr->" name
" = (" var_target_val_type
[i
] ") bp_unpack_value (bp, 64);";
740 var_opt_val
[0] =
"x_optimize"
741 var_opt_val_type
[0] =
"char "
742 var_opt_val
[1] =
"x_optimize_size"
743 var_opt_val
[2] =
"x_optimize_debug"
744 var_opt_val_type
[1] =
"char "
745 var_opt_val_type
[2] =
"char "
746 for (i =
0; i
< n_opts
; i
++) {
747 if (flag_set_p
("Optimization", flags
[i
])) {
748 name = var_name
(flags
[i
])
752 if(name in var_opt_list_seen
)
755 var_opt_list_seen
[name
]++;
757 otype = var_type_struct
(flags
[i
])
758 var_opt_val_type
[n_opt_val
] = otype
;
759 var_opt_val
[n_opt_val
++] =
"x_" name
;
763 print "/* Hash optimization options */";
765 print "cl_optimization_hash (struct cl_optimization const *ptr ATTRIBUTE_UNUSED)";
767 print " inchash::hash hstate;";
768 for (i =
0; i
< n_opt_val
; i
++) {
769 name = var_opt_val
[i
]
770 print " hstate.add_wide_int (ptr->" name
");";
772 print " return hstate.end ();";
776 print "/* Stream out optimization options */";
778 print "cl_optimization_stream_out (struct bitpack_d *bp,";
779 print " struct cl_optimization *ptr)";
781 for (i =
0; i
< n_opt_val
; i
++) {
782 name = var_opt_val
[i
]
783 print " bp_pack_value (bp, ptr->" name
", 64);";
788 print "/* Stream in optimization options */";
790 print "cl_optimization_stream_in (struct bitpack_d *bp,";
791 print " struct cl_optimization *ptr)";
793 for (i =
0; i
< n_opt_val
; i
++) {
794 name = var_opt_val
[i
]
795 print " ptr->" name
" = (" var_opt_val_type
[i
] ") bp_unpack_value (bp, 64);";