diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-11-12 15:23:33 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-11-12 15:23:33 +0000 |
| commit | 9456798d72d0e81a2a553287f436dcb05cff175a (patch) | |
| tree | 1e80106d0c4f828b72deb6e782c20d788c0dd818 /gcc/ada/warnsw.adb | |
| parent | e89aee4174fe58eaba553027558144a0f423960c (diff) | |
| download | gcc-9456798d72d0e81a2a553287f436dcb05cff175a.tar.gz | |
[./]
2013-11-12 Basile Starynkevitch <basile@starynkevitch.net>
{{merge with trunk GCC 4.9 svn rev 204695; previous trunk merge
was 202773; very unstable...}}
[gcc/]
2013-11-11 Basile Starynkevitch <basile@starynkevitch.net>
{{merge with trunk GCC 4.9 svn rev 204695; very unstable}}
* melt-runtime.h (MELT_VERSION_STRING): Bump to "1.0.1+".
* melt-run.proto.h: Update copyright years.
include tree-cfg.h instead of tree-flow.h for GCC 4.9.
* melt-runtime.cc: Include tree-cfg.h not tree-flow.h for GCC 4.9.
(meltgc_walk_gimple_seq): Fatal error with GCC 4.9 since the
walk_use_def_chains function disappeared from GCC...
* melt/xtramelt-ana-gimple.melt (walk_gimple_seq)
(walk_gimple_seq_unique_tree): issue some #warning-s for GCC 4.9
because walk_use_def_chains function disappeared from GCC...
* melt/xtramelt-probe.melt (probe_docmd): Issue an error since
currently the MELT probe is not usable with GCC 4.9....
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@204705 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/warnsw.adb')
| -rw-r--r-- | gcc/ada/warnsw.adb | 25 |
1 files changed, 24 insertions, 1 deletions
diff --git a/gcc/ada/warnsw.adb b/gcc/ada/warnsw.adb index 36360f96d63..009b450784c 100644 --- a/gcc/ada/warnsw.adb +++ b/gcc/ada/warnsw.adb @@ -25,6 +25,7 @@ with Err_Vars; use Err_Vars; with Opt; use Opt; +with Output; use Output; package body Warnsw is @@ -50,6 +51,8 @@ package body Warnsw is W.Implementation_Unit_Warnings; Ineffective_Inline_Warnings := W.Ineffective_Inline_Warnings; + List_Body_Required_Info := + W.List_Body_Required_Info; List_Inherited_Aspects := W.List_Inherited_Aspects; Warning_Doc_Switch := @@ -144,6 +147,8 @@ package body Warnsw is Implementation_Unit_Warnings; W.Ineffective_Inline_Warnings := Ineffective_Inline_Warnings; + W.List_Body_Required_Info := + List_Body_Required_Info; W.List_Inherited_Aspects := List_Inherited_Aspects; W.Warning_Doc_Switch := @@ -256,6 +261,7 @@ package body Warnsw is Elab_Warnings := True; Implementation_Unit_Warnings := True; Ineffective_Inline_Warnings := True; + List_Body_Required_Info := True; List_Inherited_Aspects := True; Warning_Doc_Switch := True; Warn_On_Ada_2005_Compatibility := True; @@ -385,8 +391,18 @@ package body Warnsw is Warn_On_Non_Local_Exception := False; No_Warn_On_Non_Local_Exception := True; + when 'y' => + List_Body_Required_Info := True; + + when 'Y' => + List_Body_Required_Info := False; + when others => - return False; + if Ignore_Unrecognized_VWY_Switches then + Write_Line ("unrecognized switch -gnatw." & C & " ignored"); + else + return False; + end if; end case; return True; @@ -406,6 +422,7 @@ package body Warnsw is Elab_Warnings := False; Implementation_Unit_Warnings := False; Ineffective_Inline_Warnings := True; + List_Body_Required_Info := False; List_Inherited_Aspects := False; Warning_Doc_Switch := False; Warn_On_Ada_2005_Compatibility := True; @@ -487,6 +504,7 @@ package body Warnsw is Elab_Warnings := False; Implementation_Unit_Warnings := False; Ineffective_Inline_Warnings := False; + List_Body_Required_Info := False; List_Inherited_Aspects := False; Warning_Doc_Switch := False; Warn_On_Ada_2005_Compatibility := False; @@ -672,6 +690,11 @@ package body Warnsw is Warn_On_Unchecked_Conversion := False; when others => + if Ignore_Unrecognized_VWY_Switches then + Write_Line ("unrecognized switch -gnatw" & C & " ignored"); + else + return False; + end if; return False; end case; |