trans.c (Pragma_to_gnu): Push a diagnostics state for pragma Warnings (Off) before...

	* gcc-interface/trans.c (Pragma_to_gnu) <Pragma_Warnings>: Push a
	diagnostics state for pragma Warnings (Off) before turning off all
	the warnings and only pop it for pragma Warnings (On).

From-SVN: r279519

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index aa37e62..bfc838f 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2019-12-18  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gcc-interface/trans.c (Pragma_to_gnu) <Pragma_Warnings>: Push a
+       diagnostics state for pragma Warnings (Off) before turning off all
+       the warnings and only pop it for pragma Warnings (On).
+
 2019-12-18  Justin Squirek  <squirek@adacore.com>
 
        * sem_ch6.adb (Analyze_Function_Return): Modify handling of

diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index e6914cc..5f87bc3 100644 (file)
--- a/gcc/ada/gcc-interface/trans.c
+++ b/gcc/ada/gcc-interface/trans.c
@@ -1975,7 +1975,21 @@ Pragma_to_gnu (Node_Id gnat_node)
                gnat_expr = Expression (Next (gnat_temp));
              }
            else
-             gnat_expr = Empty;
+             {
+               gnat_expr = Empty;
+
+               /* For pragma Warnings (Off), we save the current state...  */
+               if (kind == DK_IGNORED)
+                 diagnostic_push_diagnostics (global_dc, location);
+
+               /* ...so that, for pragma Warnings (On), we do not enable all
+                  the warnings but just restore the previous state.  */
+               else
+                 {
+                   diagnostic_pop_diagnostics (global_dc, location);
+                   break;
+                 }
+             }
 
            imply = false;
          }

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 3020a95..a0b25ef 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2019-12-18  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gnat.dg/warn32.adb: New test.
+
 2019-12-17  Martin Sebor  <msebor@redhat.com>
 
        PR c++/61339

diff --git a/gcc/testsuite/gnat.dg/warn32.adb b/gcc/testsuite/gnat.dg/warn32.adb
new file mode 100644 (file)
index 0000000..e3ffefb
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/warn32.adb
@@ -0,0 +1,19 @@
+--  { dg-do compile }
+--  { dg-options "-O -gnatn -Winline -cargs --param max-inline-insns-single=50 -margs" }
+
+with Ada.Containers.Vectors;
+with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
+with Ada.Text_IO;
+
+procedure Warn32 is
+  type Selected_Block_T is record
+    Contents  : Unbounded_String;
+    File_Name : Unbounded_String;
+  end record;
+
+  pragma Warnings (Off, "-Winline");
+  package Selected_Block_List is
+    new Ada.Containers.Vectors (Natural, Selected_Block_T);
+begin
+  Ada.Text_Io.Put_Line ("Hello World!");
+end;