Message ID | 201205061243.52987.ebotcazou@adacore.com |
---|---|
State | New |
Headers | show |
Index: gcc-interface/misc.c =================================================================== --- gcc-interface/misc.c (revision 187074) +++ gcc-interface/misc.c (working copy) @@ -235,6 +235,10 @@ gnat_post_options (const char **pfilenam /* No psABI change warnings for Ada. */ warn_psabi = 0; + /* No caret by default for Ada. */ + if (!global_options_set.x_flag_diagnostics_show_caret) + global_dc->show_caret = false; + optimize = global_options.x_optimize; optimize_size = global_options.x_optimize_size; flag_compare_debug = global_options.x_flag_compare_debug;