gcc/optc-save-gen.awk

   1 #  Copyright (C) 2003-2018 Free Software Foundation, Inc.
   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 file.
  22 #
  23
  24 # This program uses functions from opt-functions.awk and code from
  25 # opt-read.awk.
  26 #
  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
  29
  30 # Dump that array of options into a C file.
  31 END {
  32 print "/* This file is auto-generated by optc-save-gen.awk.  */"
  33 print ""
  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
  39 print ""
  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 "vec.h" quote
  45 print "#include " quote "input.h" quote
  46 print "#include " quote "alias.h" quote
  47 print "#include " quote "symtab.h" quote
  48 print "#include " quote "inchash.h" quote
  49 print "#include " quote "tree.h" quote
  50 print "#include " quote "fold-const.h" quote
  51 print "#include " quote "tree-ssa-alias.h" quote
  52 print "#include " quote "is-a.h" quote
  53 print "#include " quote "predict.h" quote
  54 print "#include " quote "function.h" quote
  55 print "#include " quote "basic-block.h" quote
  56 print "#include " quote "gimple-expr.h" quote
  57 print "#include " quote "gimple.h" quote
  58 print "#include " quote "data-streamer.h" quote
  59 print "#include " quote "ipa-ref.h" quote
  60 print "#include " quote "cgraph.h" quote
  61 print ""
  62
  63 if (n_extra_c_includes > 0) {
  64         for (i = 0; i < n_extra_c_includes; i++) {
  65                 print "#include " quote extra_c_includes[i] quote
  66         }
  67         print ""
  68 }
  69
  70 have_save = 0;
  71 if (n_extra_target_vars)
  72         have_save = 1
  73
  74 for (i = 0; i < n_opts; i++) {
  75         if (flag_set_p("Save", flags[i]))
  76                 have_save = 1;
  77 }
  78
  79 print "/* Save optimization variables into a structure.  */"
  80 print "void";
  81 print "cl_optimization_save (struct cl_optimization *ptr, struct gcc_options *opts)";
  82 print "{";
  83
  84 n_opt_char = 3;
  85 n_opt_short = 0;
  86 n_opt_int = 0;
  87 n_opt_enum = 0;
  88 n_opt_string = 0;
  89 n_opt_other = 0;
  90 var_opt_char[0] = "optimize";
  91 var_opt_char[1] = "optimize_size";
  92 var_opt_char[2] = "optimize_debug";
  93 var_opt_range["optimize"] = "0, 255";
  94 var_opt_range["optimize_size"] = "0, 1";
  95 var_opt_range["optimize_debug"] = "0, 1";
  96
  97 # Sort by size to mimic how the structure is laid out to be friendlier to the
  98 # cache.
  99
 100 for (i = 0; i < n_opts; i++) {
 101         if (flag_set_p("(Optimization|PerFunction)", flags[i])) {
 102                 name = var_name(flags[i])
 103                 if(name == "")
 104                         continue;
 105
 106                 if(name in var_opt_seen)
 107                         continue;
 108
 109                 var_opt_seen[name]++;
 110                 otype = var_type_struct(flags[i]);
 111                 if (otype ~ "^((un)?signed +)?int *$")
 112                         var_opt_int[n_opt_int++] = name;
 113
 114                 else if (otype ~ "^((un)?signed +)?short *$")
 115                         var_opt_short[n_opt_short++] = name;
 116
 117                 else if (otype ~ ("^enum +[_" alnum "]+ *"))
 118                         var_opt_enum[n_opt_enum++] = name;
 119
 120                 else if (otype ~ "^((un)?signed +)?char *$") {
 121                         var_opt_char[n_opt_char++] = name;
 122                         if (otype ~ "^unsigned +char *$")
 123                                 var_opt_range[name] = "0, 255"
 124                         else if (otype ~ "^signed +char *$")
 125                                 var_opt_range[name] = "-128, 127"
 126                 }
 127                 else if (otype ~ "^const char \\**$")
 128                         var_opt_string[n_opt_string++] = name;
 129                 else
 130                         var_opt_other[n_opt_other++] = name;
 131         }
 132 }
 133
 134 for (i = 0; i < n_opt_char; i++) {
 135         name = var_opt_char[i];
 136         if (var_opt_range[name] != "")
 137                 print "  gcc_assert (IN_RANGE (opts->x_" name ", " var_opt_range[name] "));";
 138 }
 139
 140 print "";
 141 for (i = 0; i < n_opt_other; i++) {
 142         print "  ptr->x_" var_opt_other[i] " = opts->x_" var_opt_other[i] ";";
 143 }
 144
 145 for (i = 0; i < n_opt_int; i++) {
 146         print "  ptr->x_" var_opt_int[i] " = opts->x_" var_opt_int[i] ";";
 147 }
 148
 149 for (i = 0; i < n_opt_enum; i++) {
 150         print "  ptr->x_" var_opt_enum[i] " = opts->x_" var_opt_enum[i] ";";
 151 }
 152
 153 for (i = 0; i < n_opt_short; i++) {
 154         print "  ptr->x_" var_opt_short[i] " = opts->x_" var_opt_short[i] ";";
 155 }
 156
 157 for (i = 0; i < n_opt_char; i++) {
 158         print "  ptr->x_" var_opt_char[i] " = opts->x_" var_opt_char[i] ";";
 159 }
 160
 161 for (i = 0; i < n_opt_string; i++) {
 162         print "  ptr->x_" var_opt_string[i] " = opts->x_" var_opt_string[i] ";";
 163 }
 164
 165 print "}";
 166
 167 print "";
 168 print "/* Restore optimization options from a structure.  */";
 169 print "void";
 170 print "cl_optimization_restore (struct gcc_options *opts, struct cl_optimization *ptr)";
 171 print "{";
 172
 173 for (i = 0; i < n_opt_other; i++) {
 174         print "  opts->x_" var_opt_other[i] " = ptr->x_" var_opt_other[i] ";";
 175 }
 176
 177 for (i = 0; i < n_opt_int; i++) {
 178         print "  opts->x_" var_opt_int[i] " = ptr->x_" var_opt_int[i] ";";
 179 }
 180
 181 for (i = 0; i < n_opt_enum; i++) {
 182         print "  opts->x_" var_opt_enum[i] " = ptr->x_" var_opt_enum[i] ";";
 183 }
 184
 185 for (i = 0; i < n_opt_short; i++) {
 186         print "  opts->x_" var_opt_short[i] " = ptr->x_" var_opt_short[i] ";";
 187 }
 188
 189 for (i = 0; i < n_opt_char; i++) {
 190         print "  opts->x_" var_opt_char[i] " = ptr->x_" var_opt_char[i] ";";
 191 }
 192
 193 for (i = 0; i < n_opt_string; i++) {
 194         print "  opts->x_" var_opt_string[i] " = ptr->x_" var_opt_string[i] ";";
 195 }
 196
 197 print "  targetm.override_options_after_change ();";
 198 print "}";
 199
 200 print "";
 201 print "/* Print optimization options from a structure.  */";
 202 print "void";
 203 print "cl_optimization_print (FILE *file,";
 204 print "                       int indent_to,";
 205 print "                       struct cl_optimization *ptr)";
 206 print "{";
 207
 208 print "  fputs (\"\\n\", file);";
 209 for (i = 0; i < n_opt_other; i++) {
 210         print "  if (ptr->x_" var_opt_other[i] ")";
 211         print "    fprintf (file, \"%*s%s (%#lx)\\n\",";
 212         print "             indent_to, \"\",";
 213         print "             \"" var_opt_other[i] "\",";
 214         print "             (unsigned long)ptr->x_" var_opt_other[i] ");";
 215         print "";
 216 }
 217
 218 for (i = 0; i < n_opt_int; i++) {
 219         print "  if (ptr->x_" var_opt_int[i] ")";
 220         print "    fprintf (file, \"%*s%s (%#x)\\n\",";
 221         print "             indent_to, \"\",";
 222         print "             \"" var_opt_int[i] "\",";
 223         print "             ptr->x_" var_opt_int[i] ");";
 224         print "";
 225 }
 226
 227 for (i = 0; i < n_opt_enum; i++) {
 228         print "  fprintf (file, \"%*s%s (%#x)\\n\",";
 229         print "           indent_to, \"\",";
 230         print "           \"" var_opt_enum[i] "\",";
 231         print "           (int) ptr->x_" var_opt_enum[i] ");";
 232         print "";
 233 }
 234
 235 for (i = 0; i < n_opt_short; i++) {
 236         print "  if (ptr->x_" var_opt_short[i] ")";
 237         print "    fprintf (file, \"%*s%s (%#x)\\n\",";
 238         print "             indent_to, \"\",";
 239         print "             \"" var_opt_short[i] "\",";
 240         print "             ptr->x_" var_opt_short[i] ");";
 241         print "";
 242 }
 243
 244 for (i = 0; i < n_opt_char; i++) {
 245         print "  if (ptr->x_" var_opt_char[i] ")";
 246         print "    fprintf (file, \"%*s%s (%#x)\\n\",";
 247         print "             indent_to, \"\",";
 248         print "             \"" var_opt_char[i] "\",";
 249         print "             ptr->x_" var_opt_char[i] ");";
 250         print "";
 251 }
 252
 253 for (i = 0; i < n_opt_string; i++) {
 254         print "  if (ptr->x_" var_opt_char[i] ")";
 255         print "    fprintf (file, \"%*s%s (%s)\\n\",";
 256         print "             indent_to, \"\",";
 257         print "             \"" var_opt_string[i] "\",";
 258         print "             ptr->x_" var_opt_string[i] ");";
 259         print "";
 260 }
 261
 262 print "}";
 263
 264 print "";
 265 print "/* Print different optimization variables from structures provided as arguments.  */";
 266 print "void";
 267 print "cl_optimization_print_diff (FILE *file,";
 268 print "                            int indent_to,";
 269 print "                            struct cl_optimization *ptr1,";
 270 print "                            struct cl_optimization *ptr2)";
 271 print "{";
 272
 273 print "  fputs (\"\\n\", file);";
 274 for (i = 0; i < n_opt_other; i++) {
 275         print "  if (ptr1->x_" var_opt_other[i] " != ptr2->x_" var_opt_other[i] ")";
 276         print "    fprintf (file, \"%*s%s (%#lx/%#lx)\\n\",";
 277         print "             indent_to, \"\",";
 278         print "             \"" var_opt_other[i] "\",";
 279         print "             (unsigned long)ptr1->x_" var_opt_other[i] ",";
 280         print "             (unsigned long)ptr2->x_" var_opt_other[i] ");";
 281         print "";
 282 }
 283
 284 for (i = 0; i < n_opt_int; i++) {
 285         print "  if (ptr1->x_" var_opt_int[i] " != ptr2->x_" var_opt_int[i] ")";
 286         print "    fprintf (file, \"%*s%s (%#x/%#x)\\n\",";
 287         print "             indent_to, \"\",";
 288         print "             \"" var_opt_int[i] "\",";
 289         print "             ptr1->x_" var_opt_int[i] ",";
 290         print "             ptr2->x_" var_opt_int[i] ");";
 291         print "";
 292 }
 293
 294 for (i = 0; i < n_opt_enum; i++) {
 295         print "  if (ptr1->x_" var_opt_enum[i] " != ptr2->x_" var_opt_enum[i] ")";
 296         print "  fprintf (file, \"%*s%s (%#x/%#x)\\n\",";
 297         print "           indent_to, \"\",";
 298         print "           \"" var_opt_enum[i] "\",";
 299         print "           (int) ptr1->x_" var_opt_enum[i] ",";
 300         print "           (int) ptr2->x_" var_opt_enum[i] ");";
 301         print "";
 302 }
 303
 304 for (i = 0; i < n_opt_short; i++) {
 305         print "  if (ptr1->x_" var_opt_short[i] " != ptr2->x_" var_opt_short[i] ")";
 306         print "    fprintf (file, \"%*s%s (%#x/%#x)\\n\",";
 307         print "             indent_to, \"\",";
 308         print "             \"" var_opt_short[i] "\",";
 309         print "             ptr1->x_" var_opt_short[i] ",";
 310         print "             ptr2->x_" var_opt_short[i] ");";
 311         print "";
 312 }
 313
 314 for (i = 0; i < n_opt_char; i++) {
 315         print "  if (ptr1->x_" var_opt_char[i] " != ptr2->x_" var_opt_char[i] ")";
 316         print "    fprintf (file, \"%*s%s (%#x/%#x)\\n\",";
 317         print "             indent_to, \"\",";
 318         print "             \"" var_opt_char[i] "\",";
 319         print "             ptr1->x_" var_opt_char[i] ",";
 320         print "             ptr2->x_" var_opt_char[i] ");";
 321         print "";
 322 }
 323
 324 for (i = 0; i < n_opt_string; i++) {
 325         name = var_opt_string[i]
 326         print "  if (ptr1->x_" name " != ptr2->x_" name "";
 327         print "      || (!ptr1->x_" name" || !ptr2->x_" name
 328         print "          || strcmp (ptr1->x_" name", ptr2->x_" name ")))";
 329         print "    fprintf (file, \"%*s%s (%s/%s)\\n\",";
 330         print "             indent_to, \"\",";
 331         print "             \"" name "\",";
 332         print "             ptr1->x_" name ",";
 333         print "             ptr2->x_" name ");";
 334         print "";
 335 }
 336
 337 print "}";
 338
 339
 340 print "";
 341 print "/* Save selected option variables into a structure.  */"
 342 print "void";
 343 print "cl_target_option_save (struct cl_target_option *ptr, struct gcc_options *opts)";
 344 print "{";
 345
 346 n_target_char = 0;
 347 n_target_short = 0;
 348 n_target_int = 0;
 349 n_target_enum = 0;
 350 n_target_other = 0;
 351
 352 if (have_save) {
 353         for (i = 0; i < n_opts; i++) {
 354                 if (flag_set_p("Save", flags[i])) {
 355                         name = var_name(flags[i])
 356                         if(name == "")
 357                                 name = "target_flags";
 358
 359                         if(name in var_save_seen)
 360                                 continue;
 361
 362                         var_save_seen[name]++;
 363                         otype = var_type_struct(flags[i])
 364                         if (otype ~ "^((un)?signed +)?int *$")
 365                                 var_target_int[n_target_int++] = name;
 366
 367                         else if (otype ~ "^((un)?signed +)?short *$")
 368                                 var_target_short[n_target_short++] = name;
 369
 370                         else if (otype ~ ("^enum +[_" alnum "]+ *$"))
 371                                 var_target_enum[n_target_enum++] = name;
 372
 373                         else if (otype ~ "^((un)?signed +)?char *$") {
 374                                 var_target_char[n_target_char++] = name;
 375                                 if (otype ~ "^unsigned +char *$")
 376                                         var_target_range[name] = "0, 255"
 377                                 else if (otype ~ "^signed +char *$")
 378                                         var_target_range[name] = "-128, 127"
 379                                 if (otype == var_type(flags[i]))
 380                                         var_target_range[name] = ""
 381                         }
 382                         else
 383                                 var_target_other[n_target_other++] = name;
 384                 }
 385         }
 386 } else {
 387         var_target_int[n_target_int++] = "target_flags";
 388 }
 389
 390 have_assert = 0;
 391 for (i = 0; i < n_target_char; i++) {
 392         name = var_target_char[i];
 393         if (var_target_range[name] != "") {
 394                 have_assert = 1;
 395                 print "  gcc_assert (IN_RANGE (opts->x_" name ", " var_target_range[name] "));";
 396         }
 397 }
 398
 399 if (have_assert)
 400         print "";
 401
 402 print "  if (targetm.target_option.save)";
 403 print "    targetm.target_option.save (ptr, opts);";
 404 print "";
 405
 406 for (i = 0; i < n_extra_target_vars; i++) {
 407         print "  ptr->x_" extra_target_vars[i] " = opts->x_" extra_target_vars[i] ";";
 408 }
 409
 410 for (i = 0; i < n_target_other; i++) {
 411         print "  ptr->x_" var_target_other[i] " = opts->x_" var_target_other[i] ";";
 412 }
 413
 414 for (i = 0; i < n_target_enum; i++) {
 415         print "  ptr->x_" var_target_enum[i] " = opts->x_" var_target_enum[i] ";";
 416 }
 417
 418 for (i = 0; i < n_target_int; i++) {
 419         print "  ptr->x_" var_target_int[i] " = opts->x_" var_target_int[i] ";";
 420 }
 421
 422 for (i = 0; i < n_target_short; i++) {
 423         print "  ptr->x_" var_target_short[i] " = opts->x_" var_target_short[i] ";";
 424 }
 425
 426 for (i = 0; i < n_target_char; i++) {
 427         print "  ptr->x_" var_target_char[i] " = opts->x_" var_target_char[i] ";";
 428 }
 429
 430 print "}";
 431
 432 print "";
 433 print "/* Restore selected current options from a structure.  */";
 434 print "void";
 435 print "cl_target_option_restore (struct gcc_options *opts, struct cl_target_option *ptr)";
 436 print "{";
 437
 438 for (i = 0; i < n_extra_target_vars; i++) {
 439         print "  opts->x_" extra_target_vars[i] " = ptr->x_" extra_target_vars[i] ";";
 440 }
 441
 442 for (i = 0; i < n_target_other; i++) {
 443         print "  opts->x_" var_target_other[i] " = ptr->x_" var_target_other[i] ";";
 444 }
 445
 446 for (i = 0; i < n_target_enum; i++) {
 447         print "  opts->x_" var_target_enum[i] " = ptr->x_" var_target_enum[i] ";";
 448 }
 449
 450 for (i = 0; i < n_target_int; i++) {
 451         print "  opts->x_" var_target_int[i] " = ptr->x_" var_target_int[i] ";";
 452 }
 453
 454 for (i = 0; i < n_target_short; i++) {
 455         print "  opts->x_" var_target_short[i] " = ptr->x_" var_target_short[i] ";";
 456 }
 457
 458 for (i = 0; i < n_target_char; i++) {
 459         print "  opts->x_" var_target_char[i] " = ptr->x_" var_target_char[i] ";";
 460 }
 461
 462 # This must occur after the normal variables in case the code depends on those
 463 # variables.
 464 print "";
 465 print "  if (targetm.target_option.restore)";
 466 print "    targetm.target_option.restore (opts, ptr);";
 467
 468 print "}";
 469
 470 print "";
 471 print "/* Print optimization options from a structure.  */";
 472 print "void";
 473 print "cl_target_option_print (FILE *file,";
 474 print "                        int indent,";
 475 print "                        struct cl_target_option *ptr)";
 476 print "{";
 477
 478 print "  fputs (\"\\n\", file);";
 479 for (i = 0; i < n_target_other; i++) {
 480         print "  if (ptr->x_" var_target_other[i] ")";
 481         if (host_wide_int[var_target_other[i]] == "yes")
 482                 print "    fprintf (file, \"%*s%s (%#\" HOST_WIDE_INT_PRINT \"x)\\n\",";
 483         else
 484                 print "    fprintf (file, \"%*s%s (%#x)\\n\",";
 485         print "             indent, \"\",";
 486         print "             \"" var_target_other[i] "\",";
 487         if (host_wide_int[var_target_other[i]] == "yes")
 488                 print "             ptr->x_" var_target_other[i] ");";
 489         else
 490                 print "             (unsigned long)ptr->x_" var_target_other[i] ");";
 491         print "";
 492 }
 493
 494 for (i = 0; i < n_target_enum; i++) {
 495         print "  if (ptr->x_" var_target_enum[i] ")";
 496         print "    fprintf (file, \"%*s%s (%#x)\\n\",";
 497         print "             indent, \"\",";
 498         print "             \"" var_target_enum[i] "\",";
 499         print "             ptr->x_" var_target_enum[i] ");";
 500         print "";
 501 }
 502
 503 for (i = 0; i < n_target_int; i++) {
 504         print "  if (ptr->x_" var_target_int[i] ")";
 505         print "    fprintf (file, \"%*s%s (%#x)\\n\",";
 506         print "             indent, \"\",";
 507         print "             \"" var_target_int[i] "\",";
 508         print "             ptr->x_" var_target_int[i] ");";
 509         print "";
 510 }
 511
 512 for (i = 0; i < n_target_short; i++) {
 513         print "  if (ptr->x_" var_target_short[i] ")";
 514         print "    fprintf (file, \"%*s%s (%#x)\\n\",";
 515         print "             indent, \"\",";
 516         print "             \"" var_target_short[i] "\",";
 517         print "             ptr->x_" var_target_short[i] ");";
 518         print "";
 519 }
 520
 521 for (i = 0; i < n_target_char; i++) {
 522         print "  if (ptr->x_" var_target_char[i] ")";
 523         print "    fprintf (file, \"%*s%s (%#x)\\n\",";
 524         print "             indent, \"\",";
 525         print "             \"" var_target_char[i] "\",";
 526         print "             ptr->x_" var_target_char[i] ");";
 527         print "";
 528 }
 529
 530 print "";
 531 print "  if (targetm.target_option.print)";
 532 print "    targetm.target_option.print (file, indent, ptr);";
 533 print "}";
 534
 535 print "";
 536 print "/* Print different target option variables from structures provided as arguments.  */";
 537 print "void";
 538 print "cl_target_option_print_diff (FILE *file,";
 539 print "                             int indent ATTRIBUTE_UNUSED,";
 540 print "                             struct cl_target_option *ptr1 ATTRIBUTE_UNUSED,";
 541 print "                             struct cl_target_option *ptr2 ATTRIBUTE_UNUSED)";
 542 print "{";
 543
 544 print "  fputs (\"\\n\", file);";
 545 for (i = 0; i < n_target_other; i++) {
 546         print "  if (ptr1->x_" var_target_other[i] " != ptr2->x_" var_target_other[i] ")";
 547         if (host_wide_int[var_target_other[i]] == "yes")
 548                 print "    fprintf (file, \"%*s%s (%#\" HOST_WIDE_INT_PRINT \"x/%#\" HOST_WIDE_INT_PRINT \"x)\\n\",";
 549         else
 550                 print "    fprintf (file, \"%*s%s (%#x/%#x)\\n\",";
 551         print "             indent, \"\",";
 552         print "             \"" var_target_other[i] "\",";
 553         if (host_wide_int[var_target_other[i]] == "yes") {
 554                 print "             ptr1->x_" var_target_other[i] ",";
 555                 print "             ptr2->x_" var_target_other[i] ");";
 556         }
 557         else {
 558                 print "             (unsigned long)ptr1->x_" var_target_other[i] ",";
 559                 print "             (unsigned long)ptr2->x_" var_target_other[i] ");";
 560         }
 561         print "";
 562 }
 563
 564 for (i = 0; i < n_target_enum; i++) {
 565         print "  if (ptr1->x_" var_target_enum[i] " != ptr2->x_" var_target_enum[i] ")";
 566         print "    fprintf (file, \"%*s%s (%#x/%#x)\\n\",";
 567         print "             indent, \"\",";
 568         print "             \"" var_target_enum[i] "\",";
 569         print "             ptr1->x_" var_target_enum[i] ",";
 570         print "             ptr2->x_" var_target_enum[i] ");";
 571         print "";
 572 }
 573
 574 for (i = 0; i < n_target_int; i++) {
 575         print "  if (ptr1->x_" var_target_int[i] " != ptr2->x_" var_target_int[i] ")";
 576         print "    fprintf (file, \"%*s%s (%#x/%#x)\\n\",";
 577         print "             indent, \"\",";
 578         print "             \"" var_target_int[i] "\",";
 579         print "             ptr1->x_" var_target_int[i] ",";
 580         print "             ptr2->x_" var_target_int[i] ");";
 581         print "";
 582 }
 583
 584 for (i = 0; i < n_target_short; i++) {
 585         print "  if (ptr1->x_" var_target_short[i] " != ptr2->x_" var_target_short[i] ")";
 586         print "    fprintf (file, \"%*s%s (%#x/%#x)\\n\",";
 587         print "             indent, \"\",";
 588         print "             \"" var_target_short[i] "\",";
 589         print "             ptr1->x_" var_target_short[i] ",";
 590         print "             ptr2->x_" var_target_short[i] ");";
 591         print "";
 592 }
 593
 594 for (i = 0; i < n_target_char; i++) {
 595         print "  if (ptr1->x_" var_target_char[i] " != ptr2->x_" var_target_char[i] ")";
 596         print "    fprintf (file, \"%*s%s (%#x/%#x)\\n\",";
 597         print "             indent, \"\",";
 598         print "             \"" var_target_char[i] "\",";
 599         print "             ptr1->x_" var_target_char[i] ",";
 600         print "             ptr2->x_" var_target_char[i] ");";
 601         print "";
 602 }
 603
 604 print "}";
 605
 606 print "";
 607 print "/* Compare two target options  */";
 608 print "bool";
 609 print "cl_target_option_eq (struct cl_target_option const *ptr1 ATTRIBUTE_UNUSED,";
 610 print "                     struct cl_target_option const *ptr2 ATTRIBUTE_UNUSED)";
 611 print "{";
 612 n_target_val = 0;
 613 n_target_str = 0;
 614 n_target_array = 0;
 615
 616 for (i = 0; i < n_target_save; i++) {
 617         var = target_save_decl[i];
 618         sub (" *=.*", "", var);
 619         name = var;
 620         type = var;
 621         sub("^.*[ *]", "", name)
 622         sub(" *" name "$", "", type)
 623         if (target_save_decl[i] ~ "^const char \\*+[_" alnum "]+$")
 624                 var_target_str[n_target_str++] = name;
 625         else {
 626                 if (target_save_decl[i] ~ " .*\\[.+\\]+$") {
 627                         size = name;
 628                         sub("[^\\[]+\\[", "", size);
 629                         sub("\\]$", "", size);
 630                         sub("\\[.+", "", name)
 631                         sub(" [^ ]+$", "", type)
 632                         var_target_array[n_target_array] = name
 633                         var_target_array_type[n_target_array] = type
 634                         var_target_array_size[n_target_array++] = size
 635                 }
 636                 else {
 637                         var_target_val_type[n_target_val] = type;
 638                         var_target_val[n_target_val++] = name;
 639                 }
 640         }
 641 }
 642 if (have_save) {
 643         for (i = 0; i < n_opts; i++) {
 644                 if (flag_set_p("Save", flags[i])) {
 645                         name = var_name(flags[i])
 646                         if(name == "")
 647                                 name = "target_flags";
 648
 649                         if(name in var_list_seen)
 650                                 continue;
 651
 652                         var_list_seen[name]++;
 653                         otype = var_type_struct(flags[i])
 654                         if (otype ~ "^const char \\**$")
 655                                 var_target_str[n_target_str++] = "x_" name;
 656                         else {
 657                                 var_target_val_type[n_target_val] = otype;
 658                                 var_target_val[n_target_val++] = "x_" name;
 659                         }
 660                 }
 661         }
 662 } else {
 663         var_target_val_type[n_target_val] = "int";
 664         var_target_val[n_target_val++] = "x_target_flags";
 665 }
 666
 667 for (i = 0; i < n_target_str; i++) {
 668         name = var_target_str[i]
 669         print "  if (ptr1->" name" != ptr2->" name;
 670         print "      && (!ptr1->" name" || !ptr2->" name
 671         print "          || strcmp (ptr1->" name", ptr2->" name ")))";
 672         print "    return false;";
 673 }
 674 for (i = 0; i < n_target_array; i++) {
 675         name = var_target_array[i]
 676         size = var_target_array_size[i]
 677         type = var_target_array_type[i]
 678         print "  if (ptr1->" name" != ptr2->" name "";
 679         print "      || memcmp (ptr1->" name ", ptr2->" name ", " size " * sizeof(" type ")))"
 680         print "    return false;";
 681 }
 682 for (i = 0; i < n_target_val; i++) {
 683         name = var_target_val[i]
 684         print "  if (ptr1->" name" != ptr2->" name ")";
 685         print "    return false;";
 686 }
 687
 688 print "  return true;";
 689
 690 print "}";
 691
 692 print "";
 693 print "/* Hash target options  */";
 694 print "hashval_t";
 695 print "cl_target_option_hash (struct cl_target_option const *ptr ATTRIBUTE_UNUSED)";
 696 print "{";
 697 print "  inchash::hash hstate;";
 698 for (i = 0; i < n_target_str; i++) {
 699         name = var_target_str[i]
 700         print "  if (ptr->" name")";
 701         print "    hstate.add (ptr->" name", strlen (ptr->" name"));";
 702         print "  else";
 703         print "    hstate.add_int (0);";
 704 }
 705 for (i = 0; i < n_target_array; i++) {
 706         name= var_target_array[i]
 707         size = var_target_array_size[i]
 708         type = var_target_array_type[i]
 709         print "  hstate.add_int (" size ");";
 710         print "  hstate.add (ptr->" name ", sizeof (" type ") * " size ");";
 711 }
 712 for (i = 0; i < n_target_val; i++) {
 713         name = var_target_val[i]
 714         print "  hstate.add_hwi (ptr->" name");";
 715 }
 716 print "  return hstate.end ();";
 717 print "}";
 718
 719 print "";
 720 print "/* Stream out target options  */";
 721 print "void";
 722 print "cl_target_option_stream_out (struct output_block *ob ATTRIBUTE_UNUSED,";
 723 print "                             struct bitpack_d *bp ATTRIBUTE_UNUSED,";
 724 print "                             struct cl_target_option *ptr ATTRIBUTE_UNUSED)";
 725 print "{";
 726 for (i = 0; i < n_target_str; i++) {
 727         name = var_target_str[i]
 728         print "  bp_pack_string (ob, bp, ptr->" name", true);";
 729 }
 730 for (i = 0; i < n_target_array; i++) {
 731         name = var_target_array[i]
 732         size = var_target_array_size[i]
 733         print "  for (unsigned i = 0; i < " size "; i++)"
 734         print "    bp_pack_value (bp, ptr->" name "[i], 64);";
 735 }
 736 for (i = 0; i < n_target_val; i++) {
 737         name = var_target_val[i]
 738         print "  bp_pack_value (bp, ptr->" name", 64);";
 739 }
 740 print "}";
 741
 742 print "";
 743 print "/* Stream in target options  */";
 744 print "void";
 745 print "cl_target_option_stream_in (struct data_in *data_in ATTRIBUTE_UNUSED,";
 746 print "                            struct bitpack_d *bp ATTRIBUTE_UNUSED,";
 747 print "                            struct cl_target_option *ptr ATTRIBUTE_UNUSED)";
 748 print "{";
 749 for (i = 0; i < n_target_str; i++) {
 750         name = var_target_str[i]
 751         print "  ptr->" name" = bp_unpack_string (data_in, bp);";
 752         print "  if (ptr->" name")";
 753         print "    ptr->" name" = xstrdup (ptr->" name");";
 754 }
 755 for (i = 0; i < n_target_array; i++) {
 756         name = var_target_array[i]
 757         size = var_target_array_size[i]
 758         print "  for (int i = " size " - 1; i >= 0; i--)"
 759         print "    ptr->" name "[i] = (" var_target_array_type[i] ") bp_unpack_value (bp, 64);";
 760 }
 761 for (i = 0; i < n_target_val; i++) {
 762         name = var_target_val[i]
 763         print "  ptr->" name" = (" var_target_val_type[i] ") bp_unpack_value (bp, 64);";
 764 }
 765
 766 print "}";
 767
 768 n_opt_val = 3;
 769 var_opt_val[0] = "x_optimize"
 770 var_opt_val_type[0] = "char "
 771 var_opt_val[1] = "x_optimize_size"
 772 var_opt_val[2] = "x_optimize_debug"
 773 var_opt_val_type[1] = "char "
 774 var_opt_val_type[2] = "char "
 775 for (i = 0; i < n_opts; i++) {
 776         if (flag_set_p("(Optimization|PerFunction)", flags[i])) {
 777                 name = var_name(flags[i])
 778                 if(name == "")
 779                         continue;
 780
 781                 if(name in var_opt_list_seen)
 782                         continue;
 783
 784                 var_opt_list_seen[name]++;
 785
 786                 otype = var_type_struct(flags[i])
 787                 var_opt_val_type[n_opt_val] = otype;
 788                 var_opt_val[n_opt_val++] = "x_" name;
 789                 var_opt_hash[n_opt_val] = flag_set_p("Optimization", flags[i]);
 790         }
 791 }
 792 print "";
 793 print "/* Hash optimization options  */";
 794 print "hashval_t";
 795 print "cl_optimization_hash (struct cl_optimization const *ptr ATTRIBUTE_UNUSED)";
 796 print "{";
 797 print "  inchash::hash hstate;";
 798 for (i = 0; i < n_opt_val; i++) {
 799         if (!var_opt_hash[i])
 800                 continue;
 801         name = var_opt_val[i]
 802         otype = var_opt_val_type[i];
 803         if (otype ~ "^const char \\**$")
 804         {
 805                 print "  if (ptr->" name")";
 806                 print "    hstate.add (ptr->" name", strlen (ptr->" name"));";
 807                 print "  else";
 808                 print "    hstate.add_int (0);";
 809         }
 810         else
 811                 print "  hstate.add_hwi (ptr->" name");";
 812 }
 813 print "  return hstate.end ();";
 814 print "}";
 815
 816 print "";
 817 print "/* Compare two optimization options  */";
 818 print "bool";
 819 print "cl_optimization_option_eq (cl_optimization const *ptr1,";
 820 print "                           cl_optimization const *ptr2)";
 821 print "{";
 822 for (i = 0; i < n_opt_val; i++) {
 823         if (!var_opt_hash[i])
 824                 continue;
 825         name = var_opt_val[i]
 826         otype = var_opt_val_type[i];
 827         if (otype ~ "^const char \\**$")
 828         {
 829                 print "  if (ptr1->" name" != ptr2->" name;
 830                 print "      && (!ptr1->" name" || !ptr2->" name
 831                 print "          || strcmp (ptr1->" name", ptr2->" name ")))";
 832                 print "    return false;";
 833         }
 834         else
 835         {
 836                 print "  if (ptr1->" name" != ptr2->" name ")";
 837                 print "    return false;";
 838         }
 839 }
 840 print "  return true;";
 841 print "}";
 842
 843 print "";
 844 print "/* Stream out optimization options  */";
 845 print "void";
 846 print "cl_optimization_stream_out (struct output_block *ob,";
 847 print "                            struct bitpack_d *bp,";
 848 print "                            struct cl_optimization *ptr)";
 849 print "{";
 850 for (i = 0; i < n_opt_val; i++) {
 851         name = var_opt_val[i]
 852         otype = var_opt_val_type[i];
 853         if (otype ~ "^const char \\**$")
 854                 print "  bp_pack_string (ob, bp, ptr->" name", true);";
 855         else
 856                 print "  bp_pack_value (bp, ptr->" name", 64);";
 857 }
 858 print "}";
 859
 860 print "";
 861 print "/* Stream in optimization options  */";
 862 print "void";
 863 print "cl_optimization_stream_in (struct data_in *data_in ATTRIBUTE_UNUSED,";
 864 print "                           struct bitpack_d *bp ATTRIBUTE_UNUSED,";
 865 print "                           struct cl_optimization *ptr ATTRIBUTE_UNUSED)";
 866 print "{";
 867 for (i = 0; i < n_opt_val; i++) {
 868         name = var_opt_val[i]
 869         otype = var_opt_val_type[i];
 870         if (otype ~ "^const char \\**$")
 871         {
 872               print "  ptr->" name" = bp_unpack_string (data_in, bp);";
 873               print "  if (ptr->" name")";
 874               print "    ptr->" name" = xstrdup (ptr->" name");";
 875         }
 876         else
 877               print "  ptr->" name" = (" var_opt_val_type[i] ") bp_unpack_value (bp, 64);";
 878 }
 879 print "}";
 880 }