diff options
| author | Alexandre Oliva <oliva@adacore.com> | 2018-10-01 00:27:45 +0000 |
|---|---|---|
| committer | Alexandre Oliva <aoliva@gcc.gnu.org> | 2018-10-01 00:27:45 +0000 |
| commit | cb8c960e440d6a342fc8a388eee4be1ce81ae8ce (patch) | |
| tree | ec5ca9f294429f60c252776f2bf84f0c17b28d3a /gcc | |
| parent | f89d27f2c38cba7183fb8fbacbf7790a65187f47 (diff) | |
| download | gcc-cb8c960e440d6a342fc8a388eee4be1ce81ae8ce.zip gcc-cb8c960e440d6a342fc8a388eee4be1ce81ae8ce.tar.gz gcc-cb8c960e440d6a342fc8a388eee4be1ce81ae8ce.tar.bz2 | |
[Ada] use -gnatd_A to disable .ali on -fcompare-debug recompile
for gcc/ada/ChangeLog
* gcc-interface/lang-specs.h (default_compilers): When given
fcompare-debug-second, adjust auxbase like cc1, and pass
gnatd_A.
* gcc-interface/misc.c (flag_compare_debug): Remove variable.
(gnat_post_options): Do not set it.
* lib-writ.adb (flag_compare_debug): Remove import.
(Write_ALI): Do not test it.
From-SVN: r264732
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 10 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/lang-specs.h | 3 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/misc.c | 4 | ||||
| -rw-r--r-- | gcc/ada/lib-writ.adb | 8 |
4 files changed, 13 insertions, 12 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index c18c4c8..d63cc5a 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,13 @@ +2018-09-30 Alexandre Oliva <oliva@adacore.com> + + * gcc-interface/lang-specs.h (default_compilers): When given + fcompare-debug-second, adjust auxbase like cc1, and pass + gnatd_A. + * gcc-interface/misc.c (flag_compare_debug): Remove variable. + (gnat_post_options): Do not set it. + * lib-writ.adb (flag_compare_debug): Remove import. + (Write_ALI): Do not test it. + 2018-09-28 Eric Botcazou <ebotcazou@adacore.com> Pierre-Marie de Rodat <derodat@adacore.com> diff --git a/gcc/ada/gcc-interface/lang-specs.h b/gcc/ada/gcc-interface/lang-specs.h index eece809..c7bf32c 100644 --- a/gcc/ada/gcc-interface/lang-specs.h +++ b/gcc/ada/gcc-interface/lang-specs.h @@ -35,7 +35,8 @@ gnat1 %{I*} %{k8:-gnatk8} %{Wall:-gnatwa} %{w:-gnatws} %{!Q:-quiet}\ %{nostdinc*} %{nostdlib*}\ -dumpbase %{.adb:%b.adb}%{.ads:%b.ads}%{!.adb:%{!.ads:%b.ada}}\ - %{c|S:%{o*:-auxbase-strip %*}%{!o*:-auxbase %b}}%{!c:%{!S:-auxbase %b}} \ + %{fcompare-debug-second:%:compare-debug-auxbase-opt(%b) -gnatd_A} \ + %{!fcompare-debug-second:%{c|S:%{o*:-auxbase-strip %*}%{!o*:-auxbase %b}}%{!c:%{!S:-auxbase %b}}} \ %{O*} %{W*} %{w} %{p} %{pg:-p} %{d*} \ %{coverage:-fprofile-arcs -ftest-coverage} " #if defined(TARGET_VXWORKS_RTP) diff --git a/gcc/ada/gcc-interface/misc.c b/gcc/ada/gcc-interface/misc.c index 16a9d2c..98ec277 100644 --- a/gcc/ada/gcc-interface/misc.c +++ b/gcc/ada/gcc-interface/misc.c @@ -77,9 +77,6 @@ int optimize; #undef optimize_size int optimize_size; -#undef flag_compare_debug -int flag_compare_debug; - #undef flag_short_enums int flag_short_enums; @@ -284,7 +281,6 @@ gnat_post_options (const char **pfilename ATTRIBUTE_UNUSED) gnat_encodings = global_options.x_gnat_encodings; optimize = global_options.x_optimize; optimize_size = global_options.x_optimize_size; - flag_compare_debug = global_options.x_flag_compare_debug; flag_stack_check = global_options.x_flag_stack_check; flag_short_enums = global_options.x_flag_short_enums; diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb index f035b45..ce35c9e 100644 --- a/gcc/ada/lib-writ.adb +++ b/gcc/ada/lib-writ.adb @@ -226,10 +226,6 @@ package body Lib.Writ is Num_Sdep : Nat := 0; -- Number of active entries in Sdep_Table - flag_compare_debug : Int; - pragma Import (C, flag_compare_debug); - -- Import from toplev.c - ----------------------- -- Local Subprograms -- ----------------------- @@ -1079,9 +1075,7 @@ package body Lib.Writ is -- We never write an ALI file if the original operating mode was -- syntax-only (-gnats switch used in compiler invocation line) - if Original_Operating_Mode = Check_Syntax - or flag_compare_debug /= 0 - then + if Original_Operating_Mode = Check_Syntax then return; end if; |