gcc/opts-global.c

   1 /* Command line option handling.  Code involving global state that
   2    should not be shared with the driver.
   3    Copyright (C) 2002-2013 Free Software Foundation, Inc.
   4
   5 This file is part of GCC.
   6
   7 GCC is free software; you can redistribute it and/or modify it under
   8 the terms of the GNU General Public License as published by the Free
   9 Software Foundation; either version 3, or (at your option) any later
  10 version.
  11
  12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
  13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  15 for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with GCC; see the file COPYING3.  If not see
  19 <http://www.gnu.org/licenses/>.  */
  20
  21 #include "config.h"
  22 #include "system.h"
  23 #include "coretypes.h"
  24 #include "diagnostic.h"
  25 #include "opts.h"
  26 #include "flags.h"
  27 #include "ggc.h"
  28 #include "tree.h" /* Required by langhooks.h.  */
  29 #include "gimple.h"
  30 #include "langhooks.h"
  31 #include "tm.h" /* Required by rtl.h.  */
  32 #include "rtl.h"
  33 #include "dbgcnt.h"
  34 #include "debug.h"
  35 #include "lto-streamer.h"
  36 #include "output.h"
  37 #include "plugin.h"
  38 #include "toplev.h"
  39 #include "tree-pass.h"
  40 #include "context.h"
  41
  42 typedef const char *const_char_p; /* For DEF_VEC_P.  */
  43
  44 static vec<const_char_p> ignored_options;
  45
  46 /* Input file names.  */
  47 const char **in_fnames;
  48 unsigned num_in_fnames;
  49
  50 /* Return a malloced slash-separated list of languages in MASK.  */
  51
  52 static char *
  53 write_langs (unsigned int mask)
  54 {
  55   unsigned int n = 0, len = 0;
  56   const char *lang_name;
  57   char *result;
  58
  59   for (n = 0; (lang_name = lang_names[n]) != 0; n++)
  60     if (mask & (1U << n))
  61       len += strlen (lang_name) + 1;
  62
  63   result = XNEWVEC (char, len);
  64   len = 0;
  65   for (n = 0; (lang_name = lang_names[n]) != 0; n++)
  66     if (mask & (1U << n))
  67       {
  68         if (len)
  69           result[len++] = '/';
  70         strcpy (result + len, lang_name);
  71         len += strlen (lang_name);
  72       }
  73
  74   result[len] = 0;
  75
  76   return result;
  77 }
  78
  79 /* Complain that switch DECODED does not apply to this front end (mask
  80    LANG_MASK).  */
  81
  82 static void
  83 complain_wrong_lang (const struct cl_decoded_option *decoded,
  84                      unsigned int lang_mask)
  85 {
  86   const struct cl_option *option = &cl_options[decoded->opt_index];
  87   const char *text = decoded->orig_option_with_args_text;
  88   char *ok_langs = NULL, *bad_lang = NULL;
  89   unsigned int opt_flags = option->flags;
  90
  91   if (!lang_hooks.complain_wrong_lang_p (option))
  92     return;
  93
  94   opt_flags &= ((1U << cl_lang_count) - 1) | CL_DRIVER;
  95   if (opt_flags != CL_DRIVER)
  96     ok_langs = write_langs (opt_flags);
  97   if (lang_mask != CL_DRIVER)
  98     bad_lang = write_langs (lang_mask);
  99
 100   if (opt_flags == CL_DRIVER)
 101     error ("command line option %qs is valid for the driver but not for %s",
 102            text, bad_lang);
 103   else if (lang_mask == CL_DRIVER)
 104     gcc_unreachable ();
 105   else
 106     /* Eventually this should become a hard error IMO.  */
 107     warning (0, "command line option %qs is valid for %s but not for %s",
 108              text, ok_langs, bad_lang);
 109
 110   free (ok_langs);
 111   free (bad_lang);
 112 }
 113
 114 /* Buffer the unknown option described by the string OPT.  Currently,
 115    we only complain about unknown -Wno-* options if they may have
 116    prevented a diagnostic. Otherwise, we just ignore them.  Note that
 117    if we do complain, it is only as a warning, not an error; passing
 118    the compiler an unrecognised -Wno-* option should never change
 119    whether the compilation succeeds or fails.  */
 120
 121 static void
 122 postpone_unknown_option_warning (const char *opt)
 123 {
 124   ignored_options.safe_push (opt);
 125 }
 126
 127 /* Produce a warning for each option previously buffered.  */
 128
 129 void
 130 print_ignored_options (void)
 131 {
 132   while (!ignored_options.is_empty ())
 133     {
 134       const char *opt;
 135
 136       opt = ignored_options.pop ();
 137       warning_at (UNKNOWN_LOCATION, 0,
 138                   "unrecognized command line option \"%s\"", opt);
 139     }
 140 }
 141
 142 /* Handle an unknown option DECODED, returning true if an error should
 143    be given.  */
 144
 145 static bool
 146 unknown_option_callback (const struct cl_decoded_option *decoded)
 147 {
 148   const char *opt = decoded->arg;
 149
 150   if (opt[1] == 'W' && opt[2] == 'n' && opt[3] == 'o' && opt[4] == '-'
 151       && !(decoded->errors & CL_ERR_NEGATIVE))
 152     {
 153       /* We don't generate warnings for unknown -Wno-* options unless
 154          we issue diagnostics.  */
 155       postpone_unknown_option_warning (opt);
 156       return false;
 157     }
 158   else
 159     return true;
 160 }
 161
 162 /* Handle a front-end option; arguments and return value as for
 163    handle_option.  */
 164
 165 static bool
 166 lang_handle_option (struct gcc_options *opts,
 167                     struct gcc_options *opts_set,
 168                     const struct cl_decoded_option *decoded,
 169                     unsigned int lang_mask ATTRIBUTE_UNUSED, int kind,
 170                     location_t loc,
 171                     const struct cl_option_handlers *handlers,
 172                     diagnostic_context *dc)
 173 {
 174   gcc_assert (opts == &global_options);
 175   gcc_assert (opts_set == &global_options_set);
 176   gcc_assert (dc == global_dc);
 177   gcc_assert (decoded->canonical_option_num_elements <= 2);
 178   return lang_hooks.handle_option (decoded->opt_index, decoded->arg,
 179                                    decoded->value, kind, loc, handlers);
 180 }
 181
 182 /* Handle FILENAME from the command line.  */
 183
 184 static void
 185 add_input_filename (const char *filename)
 186 {
 187   num_in_fnames++;
 188   in_fnames = XRESIZEVEC (const char *, in_fnames, num_in_fnames);
 189   in_fnames[num_in_fnames - 1] = filename;
 190 }
 191
 192 /* Handle the vector of command line options (located at LOC), storing
 193    the results of processing DECODED_OPTIONS and DECODED_OPTIONS_COUNT
 194    in OPTS and OPTS_SET and using DC for diagnostic state.  LANG_MASK
 195    contains has a single bit set representing the current language.
 196    HANDLERS describes what functions to call for the options.  */
 197
 198 static void
 199 read_cmdline_options (struct gcc_options *opts, struct gcc_options *opts_set,
 200                       struct cl_decoded_option *decoded_options,
 201                       unsigned int decoded_options_count,
 202                       location_t loc,
 203                       unsigned int lang_mask,
 204                       const struct cl_option_handlers *handlers,
 205                       diagnostic_context *dc)
 206 {
 207   unsigned int i;
 208
 209   for (i = 1; i < decoded_options_count; i++)
 210     {
 211       if (decoded_options[i].opt_index == OPT_SPECIAL_input_file)
 212         {
 213           /* Input files should only ever appear on the main command
 214              line.  */
 215           gcc_assert (opts == &global_options);
 216           gcc_assert (opts_set == &global_options_set);
 217
 218           if (opts->x_main_input_filename == NULL)
 219             {
 220               opts->x_main_input_filename = decoded_options[i].arg;
 221               opts->x_main_input_baselength
 222                 = base_of_path (opts->x_main_input_filename,
 223                                 &opts->x_main_input_basename);
 224             }
 225           add_input_filename (decoded_options[i].arg);
 226           continue;
 227         }
 228
 229       read_cmdline_option (opts, opts_set,
 230                            decoded_options + i, loc, lang_mask, handlers,
 231                            dc);
 232     }
 233 }
 234
 235 /* Handle -ftree-vectorizer-verbose=ARG by remapping it to -fopt-info.
 236    It remaps the old verbosity values as following:
 237
 238    REPORT_NONE ==> No dump is output
 239    REPORT_VECTORIZED_LOCATIONS ==> "-optimized"
 240    REPORT_UNVECTORIZED_LOCATIONS ==> "-missed"
 241
 242    Any higher verbosity levels get mapped to "-all" flags.  */
 243
 244 static void
 245 dump_remap_tree_vectorizer_verbose (const char *arg)
 246 {
 247   int value = atoi (arg);
 248   const char *remapped_opt_info = NULL;
 249
 250   switch (value)
 251     {
 252     case 0:
 253       break;
 254     case 1:
 255       remapped_opt_info = "optimized";
 256       break;
 257     case 2:
 258       remapped_opt_info = "missed";
 259       break;
 260     default:
 261       remapped_opt_info = "all";
 262       break;
 263     }
 264
 265   if (remapped_opt_info)
 266     opt_info_switch_p (remapped_opt_info);
 267 }
 268
 269 /* Language mask determined at initialization.  */
 270 static unsigned int initial_lang_mask;
 271
 272 /* Initialize global options-related settings at start-up.  */
 273
 274 void
 275 init_options_once (void)
 276 {
 277   /* Perform language-specific options initialization.  */
 278   initial_lang_mask = lang_hooks.option_lang_mask ();
 279
 280   lang_hooks.initialize_diagnostics (global_dc);
 281 }
 282
 283 /* Decode command-line options to an array, like
 284    decode_cmdline_options_to_array and with the same arguments but
 285    using the default lang_mask.  */
 286
 287 void
 288 decode_cmdline_options_to_array_default_mask (unsigned int argc,
 289                                               const char **argv,
 290                                               struct cl_decoded_option **decoded_options,
 291                                               unsigned int *decoded_options_count)
 292 {
 293   decode_cmdline_options_to_array (argc, argv,
 294                                    initial_lang_mask | CL_COMMON | CL_TARGET,
 295                                    decoded_options, decoded_options_count);
 296 }
 297
 298 /* Set *HANDLERS to the default set of option handlers for use in the
 299    compilers proper (not the driver).  */
 300 void
 301 set_default_handlers (struct cl_option_handlers *handlers)
 302 {
 303   handlers->unknown_option_callback = unknown_option_callback;
 304   handlers->wrong_lang_callback = complain_wrong_lang;
 305   handlers->num_handlers = 3;
 306   handlers->handlers[0].handler = lang_handle_option;
 307   handlers->handlers[0].mask = initial_lang_mask;
 308   handlers->handlers[1].handler = common_handle_option;
 309   handlers->handlers[1].mask = CL_COMMON;
 310   handlers->handlers[2].handler = target_handle_option;
 311   handlers->handlers[2].mask = CL_TARGET;
 312 }
 313
 314 /* Parse command line options and set default flag values.  Do minimal
 315    options processing.  The decoded options are in *DECODED_OPTIONS
 316    and *DECODED_OPTIONS_COUNT; settings go in OPTS, OPTS_SET and DC;
 317    the options are located at LOC.  */
 318 void
 319 decode_options (struct gcc_options *opts, struct gcc_options *opts_set,
 320                 struct cl_decoded_option *decoded_options,
 321                 unsigned int decoded_options_count,
 322                 location_t loc, diagnostic_context *dc)
 323 {
 324   struct cl_option_handlers handlers;
 325
 326   unsigned int lang_mask;
 327
 328   lang_mask = initial_lang_mask;
 329
 330   set_default_handlers (&handlers);
 331
 332   default_options_optimization (opts, opts_set,
 333                                 decoded_options, decoded_options_count,
 334                                 loc, lang_mask, &handlers, dc);
 335
 336   read_cmdline_options (opts, opts_set,
 337                         decoded_options, decoded_options_count,
 338                         loc, lang_mask,
 339                         &handlers, dc);
 340
 341   finish_options (opts, opts_set, loc);
 342 }
 343
 344 /* Process common options that have been deferred until after the
 345    handlers have been called for all options.  */
 346
 347 void
 348 handle_common_deferred_options (void)
 349 {
 350   unsigned int i;
 351   cl_deferred_option *opt;
 352   vec<cl_deferred_option> v;
 353
 354   if (common_deferred_options)
 355     v = *((vec<cl_deferred_option> *) common_deferred_options);
 356   else
 357     v = vNULL;
 358
 359   if (flag_dump_all_passed)
 360     enable_rtl_dump_file ();
 361
 362   if (flag_opt_info)
 363     opt_info_switch_p (NULL);
 364
 365   FOR_EACH_VEC_ELT (v, i, opt)
 366     {
 367       switch (opt->opt_index)
 368         {
 369         case OPT_fcall_used_:
 370           fix_register (opt->arg, 0, 1);
 371           break;
 372
 373         case OPT_fcall_saved_:
 374           fix_register (opt->arg, 0, 0);
 375           break;
 376
 377         case OPT_fdbg_cnt_:
 378           dbg_cnt_process_opt (opt->arg);
 379           break;
 380
 381         case OPT_fdbg_cnt_list:
 382           dbg_cnt_list_all_counters ();
 383           break;
 384
 385         case OPT_fdebug_prefix_map_:
 386           add_debug_prefix_map (opt->arg);
 387           break;
 388
 389         case OPT_fdump_:
 390           if (!g->get_dumps ()->dump_switch_p (opt->arg))
 391             error ("unrecognized command line option %<-fdump-%s%>", opt->arg);
 392           break;
 393
 394         case OPT_fopt_info_:
 395           if (!opt_info_switch_p (opt->arg))
 396             error ("unrecognized command line option %<-fopt-info-%s%>",
 397                    opt->arg);
 398           break;
 399
 400         case OPT_fenable_:
 401         case OPT_fdisable_:
 402           if (opt->opt_index == OPT_fenable_)
 403             enable_pass (opt->arg);
 404           else
 405             disable_pass (opt->arg);
 406           break;
 407
 408         case OPT_ffixed_:
 409           /* Deferred.  */
 410           fix_register (opt->arg, 1, 1);
 411           break;
 412
 413         case OPT_fplugin_:
 414 #ifdef ENABLE_PLUGIN
 415           add_new_plugin (opt->arg);
 416 #else
 417           error ("plugin support is disabled; configure with --enable-plugin");
 418 #endif
 419           break;
 420
 421         case OPT_fplugin_arg_:
 422 #ifdef ENABLE_PLUGIN
 423           parse_plugin_arg_opt (opt->arg);
 424 #else
 425           error ("plugin support is disabled; configure with --enable-plugin");
 426 #endif
 427           break;
 428
 429         case OPT_frandom_seed:
 430           /* The real switch is -fno-random-seed.  */
 431           if (!opt->value)
 432             set_random_seed (NULL);
 433           break;
 434
 435         case OPT_frandom_seed_:
 436           set_random_seed (opt->arg);
 437           break;
 438
 439         case OPT_fstack_limit:
 440           /* The real switch is -fno-stack-limit.  */
 441           if (!opt->value)
 442             stack_limit_rtx = NULL_RTX;
 443           break;
 444
 445         case OPT_fstack_limit_register_:
 446           {
 447             int reg = decode_reg_name (opt->arg);
 448             if (reg < 0)
 449               error ("unrecognized register name %qs", opt->arg);
 450             else
 451               stack_limit_rtx = gen_rtx_REG (Pmode, reg);
 452           }
 453           break;
 454
 455         case OPT_fstack_limit_symbol_:
 456           stack_limit_rtx = gen_rtx_SYMBOL_REF (Pmode, ggc_strdup (opt->arg));
 457           break;
 458
 459         case OPT_ftree_vectorizer_verbose_:
 460           dump_remap_tree_vectorizer_verbose (opt->arg);
 461           break;
 462
 463         default:
 464           gcc_unreachable ();
 465         }
 466     }
 467 }