2009-04-17 Robert Dewar <dewar@adacore.com>

	* s-conca5.adb, g-sercom.adb, s-conca5.ads, s-conca7.adb, exp_imgv.adb,
	s-conca7.ads, s-crc32.adb, s-crc32.ads, s-conca9.adb, s-conca9.ads,
	s-addope.adb, i-cstrin.ads, s-addope.ads, s-carun8.adb, s-carun8.ads,
	g-htable.ads, g-hesora.adb, g-hesora.ads, s-htable.adb, s-htable.ads,
	s-conca2.adb, s-conca2.ads, a-except.adb, s-conca4.adb, a-except.ads,
	s-conca4.ads, s-except.adb, s-except.ads, s-conca6.adb, s-conca6.ads,
	g-spchge.adb, g-spchge.ads, g-u3spch.adb, g-u3spch.ads, s-conca8.adb,
	s-conca8.ads, g-byorma.adb, g-byorma.ads, s-memory.adb, s-memory.ads,
	g-speche.adb, g-speche.ads, g-stsifd-sockets.adb, exp_dist.adb,
	s-imgenu.adb, s-imgenu.ads, s-mastop.adb, s-mastop.ads, s-exctab.adb,
	s-exctab.ads, s-imenne.adb, s-imenne.ads, s-casuti.adb, osint.adb,
	s-assert.adb, s-casuti.ads, s-assert.ads, s-os_lib.adb, s-conca3.adb,
	s-conca3.ads: Remove unneeded pragma Warnings

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146263 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 6fee481..732023b 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,5 +1,21 @@
 2009-04-17  Robert Dewar  <dewar@adacore.com>
 
+       * s-conca5.adb, g-sercom.adb, s-conca5.ads, s-conca7.adb, exp_imgv.adb,
+       s-conca7.ads, s-crc32.adb, s-crc32.ads, s-conca9.adb, s-conca9.ads,
+       s-addope.adb, i-cstrin.ads, s-addope.ads, s-carun8.adb, s-carun8.ads,
+       g-htable.ads, g-hesora.adb, g-hesora.ads, s-htable.adb, s-htable.ads,
+       s-conca2.adb, s-conca2.ads, a-except.adb, s-conca4.adb, a-except.ads,
+       s-conca4.ads, s-except.adb, s-except.ads, s-conca6.adb, s-conca6.ads,
+       g-spchge.adb, g-spchge.ads, g-u3spch.adb, g-u3spch.ads, s-conca8.adb,
+       s-conca8.ads, g-byorma.adb, g-byorma.ads, s-memory.adb, s-memory.ads,
+       g-speche.adb, g-speche.ads, g-stsifd-sockets.adb, exp_dist.adb,
+       s-imgenu.adb, s-imgenu.ads, s-mastop.adb, s-mastop.ads, s-exctab.adb,
+       s-exctab.ads, s-imenne.adb, s-imenne.ads, s-casuti.adb, osint.adb,
+       s-assert.adb, s-casuti.ads, s-assert.ads, s-os_lib.adb, s-conca3.adb,
+       s-conca3.ads: Remove unneeded pragma Warnings
+
+2009-04-17  Robert Dewar  <dewar@adacore.com>
+
        * g-moreex.adb: Add comments.
 
        * s-auxdec.ads: Add ??? comment for uncommented pragma Warnings (Off)

diff --git a/gcc/ada/a-except.adb b/gcc/ada/a-except.adb
index 229645a..cf04fd4 100644 (file)
--- a/gcc/ada/a-except.adb
+++ b/gcc/ada/a-except.adb
@@ -40,9 +40,7 @@
 --  2005 functionality is required. In particular, it is used for building
 --  run times on all targets.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 pragma Style_Checks (All_Checks);
 --  No subprogram ordering check, due to logical grouping

diff --git a/gcc/ada/a-except.ads b/gcc/ada/a-except.ads
index 725bcb8..14aea1d 100644 (file)
--- a/gcc/ada/a-except.ads
+++ b/gcc/ada/a-except.ads
@@ -44,14 +44,12 @@
 --  2005 functionality is required. In particular, it is used for building
 --  run times on all targets.
 
+pragma Compiler_Unit;
+
 pragma Polling (Off);
 --  We must turn polling off for this unit, because otherwise we get
 --  elaboration circularities with ourself.
 
-pragma Warnings (Off);
-pragma Compiler_Unit;
-pragma Warnings (On);
-
 with System;
 with System.Parameters;
 with System.Standard_Library;

diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb
index f1ddc00..04a2187 100644 (file)
--- a/gcc/ada/exp_dist.adb
+++ b/gcc/ada/exp_dist.adb
@@ -3645,9 +3645,7 @@ package body Exp_Dist is
         (Vis_Decl : Node_Id;
          RAS_Type : Entity_Id)
       is
-         pragma Warnings (Off);
          pragma Unreferenced (RAS_Type);
-         pragma Warnings (On);
       begin
          Add_RAS_Access_TSS (Vis_Decl);
       end Add_RAST_Features;
@@ -4111,10 +4109,8 @@ package body Exp_Dist is
          --  List of statements for extra formal parameters. It will appear
          --  after the regular statements for writing out parameters.
 
-         pragma Warnings (Off);
          pragma Unreferenced (RACW_Type);
          --  Used only for the PolyORB case
-         pragma Warnings (On);
 
       begin
          --  The general form of a calling stub for a given subprogram is:
@@ -5601,9 +5597,7 @@ package body Exp_Dist is
          RPC_Receiver_Decl : Node_Id;
          Body_Decls        : List_Id)
       is
-         pragma Warnings (Off);
          pragma Unreferenced (RPC_Receiver_Decl);
-         pragma Warnings (On);
 
       begin
          Add_RACW_From_Any
@@ -5730,9 +5724,8 @@ package body Exp_Dist is
          Stub_Type_Access : Entity_Id;
          Body_Decls       : List_Id)
       is
-         pragma Warnings (Off);
          pragma Unreferenced (Stub_Type, Stub_Type_Access);
-         pragma Warnings (On);
+
          Loc : constant Source_Ptr := Sloc (RACW_Type);
 
          Proc_Decl : Node_Id;
@@ -6047,9 +6040,7 @@ package body Exp_Dist is
          Stub_Type_Access : Entity_Id;
          Body_Decls       : List_Id)
       is
-         pragma Warnings (Off);
          pragma Unreferenced (Stub_Type, Stub_Type_Access);
-         pragma Warnings (On);
 
          Loc : constant Source_Ptr := Sloc (RACW_Type);
 
@@ -7629,9 +7620,8 @@ package body Exp_Dist is
          RPC_Receiver_Decl : out Node_Id)
       is
          Loc : constant Source_Ptr := Sloc (Stub_Type);
-         pragma Warnings (Off);
+
          pragma Unreferenced (RACW_Type);
-         pragma Warnings (On);
 
       begin
          Stub_Type_Decl :=
@@ -9894,9 +9884,7 @@ package body Exp_Dist is
                      Counter : Entity_Id;
                      Datum   : Node_Id)
                   is
-                     pragma Warnings (Off);
                      pragma Unreferenced (Counter);
-                     pragma Warnings (On);
 
                      Element_Any : Node_Id;
 
@@ -10387,9 +10375,7 @@ package body Exp_Dist is
                Rec     : Entity_Id;
                Field   : Node_Id)
             is
-               pragma Warnings (Off);
                pragma Unreferenced (Any, Counter, Rec);
-               pragma Warnings (On);
 
             begin
                if Nkind (Field) = N_Defining_Identifier then

diff --git a/gcc/ada/exp_imgv.adb b/gcc/ada/exp_imgv.adb
index ed53ca0..cf4a9c0 100644 (file)
--- a/gcc/ada/exp_imgv.adb
+++ b/gcc/ada/exp_imgv.adb
@@ -1158,9 +1158,8 @@ package body Exp_Imgv is
             --  as is done with other ZFP violations.
 
             declare
-               pragma Warnings (Off); -- since Discard is unreferenced
                Discard : constant Entity_Id := RTE (RE_Null);
-               pragma Warnings (On);
+               pragma Unreferenced (Discard);
             begin
                return;
             end;

diff --git a/gcc/ada/g-byorma.adb b/gcc/ada/g-byorma.adb
index 7e355b0..27138b4 100755 (executable)
--- a/gcc/ada/g-byorma.adb
+++ b/gcc/ada/g-byorma.adb
@@ -31,6 +31,8 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
+pragma Compiler_Unit;
+
 package body GNAT.Byte_Order_Mark is
 
    --------------

diff --git a/gcc/ada/g-byorma.ads b/gcc/ada/g-byorma.ads
index 6016f75..d01404e 100755 (executable)
--- a/gcc/ada/g-byorma.ads
+++ b/gcc/ada/g-byorma.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                     Copyright (C) 2006-2007, AdaCore                     --
+--                     Copyright (C) 2006-2008, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -63,9 +63,7 @@
 --     cases depend on the first character of the XML file being < so that the
 --     encoding of this character can be recognized.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package GNAT.Byte_Order_Mark is
 

diff --git a/gcc/ada/g-hesora.adb b/gcc/ada/g-hesora.adb
index cb54558..60f307b 100644 (file)
--- a/gcc/ada/g-hesora.adb
+++ b/gcc/ada/g-hesora.adb
@@ -31,9 +31,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package body GNAT.Heap_Sort_A is
 

diff --git a/gcc/ada/g-hesora.ads b/gcc/ada/g-hesora.ads
index bf60caf..11b8969 100644 (file)
--- a/gcc/ada/g-hesora.ads
+++ b/gcc/ada/g-hesora.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                     Copyright (C) 1995-2007, AdaCore                     --
+--                     Copyright (C) 1995-2008, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -42,9 +42,7 @@
 --  worst case and is in place with no additional storage required. See
 --  the body for exact details of the algorithm used.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package GNAT.Heap_Sort_A is
    pragma Preelaborate;

diff --git a/gcc/ada/g-htable.ads b/gcc/ada/g-htable.ads
index 5f7a27c..a158d09 100644 (file)
--- a/gcc/ada/g-htable.ads
+++ b/gcc/ada/g-htable.ads
@@ -43,9 +43,7 @@
 --  this facility is accessed from run time routines, but clients should
 --  always access the version supplied via GNAT.HTable.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 with System.HTable;
 

diff --git a/gcc/ada/g-sercom.adb b/gcc/ada/g-sercom.adb
index c1b4b8e..a39d4db 100644 (file)
--- a/gcc/ada/g-sercom.adb
+++ b/gcc/ada/g-sercom.adb
@@ -67,7 +67,8 @@ package body GNAT.Serial_Communications is
 
    procedure Open
      (Port : out Serial_Port;
-      Name : Port_Name) is
+      Name : Port_Name)
+   is
    begin
       Unimplemented;
    end Open;
@@ -83,7 +84,8 @@ package body GNAT.Serial_Communications is
       Stop_Bits : Stop_Bits_Number := One;
       Parity    : Parity_Check     := None;
       Block     : Boolean          := True;
-      Timeout   : Duration         := 10.0) is
+      Timeout   : Duration         := 10.0)
+   is
    begin
       Unimplemented;
    end Set;
@@ -95,7 +97,8 @@ package body GNAT.Serial_Communications is
    overriding procedure Read
      (Port   : in out Serial_Port;
       Buffer : out Stream_Element_Array;
-      Last   : out Stream_Element_Offset) is
+      Last   : out Stream_Element_Offset)
+   is
    begin
       Unimplemented;
    end Read;
@@ -106,7 +109,8 @@ package body GNAT.Serial_Communications is
 
    overriding procedure Write
      (Port   : in out Serial_Port;
-      Buffer : Stream_Element_Array) is
+      Buffer : Stream_Element_Array)
+   is
    begin
       Unimplemented;
    end Write;

diff --git a/gcc/ada/g-spchge.adb b/gcc/ada/g-spchge.adb
index 2e4c7c7..b1278a6 100755 (executable)
--- a/gcc/ada/g-spchge.adb
+++ b/gcc/ada/g-spchge.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                     Copyright (C) 1998-2007, AdaCore                     --
+--                     Copyright (C) 1998-2008, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -31,9 +31,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package body GNAT.Spelling_Checker_Generic is
 

diff --git a/gcc/ada/g-spchge.ads b/gcc/ada/g-spchge.ads
index 0a29c58..786213b 100755 (executable)
--- a/gcc/ada/g-spchge.ads
+++ b/gcc/ada/g-spchge.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                     Copyright (C) 1998-2007, AdaCore                     --
+--                     Copyright (C) 1998-2008, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -39,9 +39,7 @@
 --  codes for ASCII characters in the range 16#20#..16#7F# have their normal
 --  expected encoding values (e.g. the Pos value 16#31# must be digit 1).
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package GNAT.Spelling_Checker_Generic is
    pragma Pure;

diff --git a/gcc/ada/g-speche.adb b/gcc/ada/g-speche.adb
index 841eef8..cd66efe 100644 (file)
--- a/gcc/ada/g-speche.adb
+++ b/gcc/ada/g-speche.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                     Copyright (C) 1998-2007, AdaCore                     --
+--                     Copyright (C) 1998-2008, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -31,9 +31,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 with GNAT.Spelling_Checker_Generic;
 

diff --git a/gcc/ada/g-speche.ads b/gcc/ada/g-speche.ads
index b0eba28..0f9b39a 100644 (file)
--- a/gcc/ada/g-speche.ads
+++ b/gcc/ada/g-speche.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                     Copyright (C) 1998-2007, AdaCore                     --
+--                     Copyright (C) 1998-2008, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -36,9 +36,7 @@
 --  This package provides a utility routine for checking for bad spellings
 --  for the case of String arguments.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package GNAT.Spelling_Checker is
    pragma Pure;

diff --git a/gcc/ada/g-stsifd-sockets.adb b/gcc/ada/g-stsifd-sockets.adb
index 5fe43af..cb03192 100644 (file)
--- a/gcc/ada/g-stsifd-sockets.adb
+++ b/gcc/ada/g-stsifd-sockets.adb
@@ -67,7 +67,8 @@ package body Signalling_Fds is
       --  Address of listening socket
 
       Res : C.int;
-      --  Return status of system calls
+      pragma Warnings (Off, Res);
+      --  Return status of system calls (usually ignored, hence warnings off)
 
    begin
       Fds.all := (Read_End | Write_End => Failure);
@@ -153,9 +154,7 @@ package body Signalling_Fds is
          pragma Assert (Res = Failure
                           and then
                         Socket_Errno = SOSC.EADDRINUSE);
-         pragma Warnings (Off); -- useless assignment to "Res"
          Res := C_Close (W_Sock);
-         pragma Warnings (On);
          W_Sock := Failure;
          Res := C_Close (R_Sock);
          R_Sock := Failure;

diff --git a/gcc/ada/g-u3spch.adb b/gcc/ada/g-u3spch.adb
index 3e7ede8..febe0b4 100755 (executable)
--- a/gcc/ada/g-u3spch.adb
+++ b/gcc/ada/g-u3spch.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                     Copyright (C) 1998-2007, AdaCore                     --
+--                     Copyright (C) 1998-2008, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -31,9 +31,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 with GNAT.Spelling_Checker_Generic;
 

diff --git a/gcc/ada/g-u3spch.ads b/gcc/ada/g-u3spch.ads
index 90ab66d..773a253 100755 (executable)
--- a/gcc/ada/g-u3spch.ads
+++ b/gcc/ada/g-u3spch.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                     Copyright (C) 1998-2007, AdaCore                     --
+--                     Copyright (C) 1998-2008, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -36,9 +36,7 @@
 --  This package provides a utility routine for checking for bad spellings
 --  for the case of System.WCh_Cnv.UTF_32_String arguments.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 with System.WCh_Cnv;
 

diff --git a/gcc/ada/i-cstrin.ads b/gcc/ada/i-cstrin.ads
index 1d956a6..7bfee8f 100644 (file)
--- a/gcc/ada/i-cstrin.ads
+++ b/gcc/ada/i-cstrin.ads
@@ -38,14 +38,10 @@ package Interfaces.C.Strings is
 
    type char_array_access is access all char_array;
 
-   pragma Warnings (Off);
    pragma No_Strict_Aliasing (char_array_access);
-   pragma Warnings (On);
    --  Since this type is used for external interfacing, with the pointer
    --  coming from who knows where, it seems a good idea to turn off any
-   --  strict aliasing assumptions for this type. We turn off warnings for
-   --  this pragma to deal with being compiled with an earlier GNAT version
-   --  that does not recognize this pragma.
+   --  strict aliasing assumptions for this type.
 
    type chars_ptr is private;
 

diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb
index 0363f5e..c847f5e 100644 (file)
--- a/gcc/ada/osint.adb
+++ b/gcc/ada/osint.adb
@@ -300,7 +300,7 @@ package body Osint is
 
          Status : Boolean;
          pragma Warnings (Off, Status);
-         --  For the call to Close
+         --  For the call to Close where status is ignored
 
       begin
          File_FD := Open_Read (Buffer'Address, Binary);

diff --git a/gcc/ada/s-addope.adb b/gcc/ada/s-addope.adb
index 715e2b2..2c95758 100644 (file)
--- a/gcc/ada/s-addope.adb
+++ b/gcc/ada/s-addope.adb
@@ -29,9 +29,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 with Ada.Unchecked_Conversion;
 

diff --git a/gcc/ada/s-addope.ads b/gcc/ada/s-addope.ads
index 1b53fea..2d3f589 100644 (file)
--- a/gcc/ada/s-addope.ads
+++ b/gcc/ada/s-addope.ads
@@ -40,9 +40,7 @@
 --  inappropriate use by applications programs). In addition, the logical
 --  operations may not be available if type Address is a signed integer.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package System.Address_Operations is
    pragma Pure;

diff --git a/gcc/ada/s-assert.adb b/gcc/ada/s-assert.adb
index 178166c..030ec17 100644 (file)
--- a/gcc/ada/s-assert.adb
+++ b/gcc/ada/s-assert.adb
@@ -29,9 +29,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 with Ada.Exceptions;
 with System.Exceptions;

diff --git a/gcc/ada/s-assert.ads b/gcc/ada/s-assert.ads
index 525fdad..433e276 100644 (file)
--- a/gcc/ada/s-assert.ads
+++ b/gcc/ada/s-assert.ads
@@ -34,9 +34,7 @@
 --  This unit may be used directly from an application program by providing
 --  an appropriate WITH, and the interface can be expected to remain stable.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package System.Assertions is
 

diff --git a/gcc/ada/s-carun8.adb b/gcc/ada/s-carun8.adb
index b4733c2..450e047 100644 (file)
--- a/gcc/ada/s-carun8.adb
+++ b/gcc/ada/s-carun8.adb
@@ -29,9 +29,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 with System.Address_Operations; use System.Address_Operations;
 

diff --git a/gcc/ada/s-carun8.ads b/gcc/ada/s-carun8.ads
index 7866126..aa0d4e0 100644 (file)
--- a/gcc/ada/s-carun8.ads
+++ b/gcc/ada/s-carun8.ads
@@ -32,9 +32,7 @@
 --  This package contains functions for runtime comparisons on arrays whose
 --  elements are 8-bit discrete type values to be treated as unsigned.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package System.Compare_Array_Unsigned_8 is
 

diff --git a/gcc/ada/s-casuti.adb b/gcc/ada/s-casuti.adb
index 807024e..8517db7 100644 (file)
--- a/gcc/ada/s-casuti.adb
+++ b/gcc/ada/s-casuti.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                     Copyright (C) 1995-2007, AdaCore                     --
+--                     Copyright (C) 1995-2008, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -31,9 +31,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package body System.Case_Util is
 

diff --git a/gcc/ada/s-casuti.ads b/gcc/ada/s-casuti.ads
index 1a09162..84b92f6 100644 (file)
--- a/gcc/ada/s-casuti.ads
+++ b/gcc/ada/s-casuti.ads
@@ -37,9 +37,7 @@
 --  Note that all the routines in this package are available to the user
 --  via GNAT.Case_Util, which imports all the entities from this package.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package System.Case_Util is
    pragma Pure;

diff --git a/gcc/ada/s-conca2.adb b/gcc/ada/s-conca2.adb
index c1e8115..1764575 100644 (file)
--- a/gcc/ada/s-conca2.adb
+++ b/gcc/ada/s-conca2.adb
@@ -29,9 +29,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package body System.Concat_2 is
 

diff --git a/gcc/ada/s-conca2.ads b/gcc/ada/s-conca2.ads
index 2ea8397..b0fa859 100644 (file)
--- a/gcc/ada/s-conca2.ads
+++ b/gcc/ada/s-conca2.ads
@@ -32,9 +32,7 @@
 --  This package contains a procedure for runtime concatenation of two string
 --  operands. It is used when we want to save space in the generated code.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package System.Concat_2 is
 

diff --git a/gcc/ada/s-conca3.adb b/gcc/ada/s-conca3.adb
index eee12fc..daa4ec7 100644 (file)
--- a/gcc/ada/s-conca3.adb
+++ b/gcc/ada/s-conca3.adb
@@ -29,9 +29,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package body System.Concat_3 is
 

diff --git a/gcc/ada/s-conca3.ads b/gcc/ada/s-conca3.ads
index 66005a2..41c7d97 100644 (file)
--- a/gcc/ada/s-conca3.ads
+++ b/gcc/ada/s-conca3.ads
@@ -32,9 +32,7 @@
 --  This package contains a procedure for runtime concatenation of three string
 --  operands. It is used when we want to save space in the generated code.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package System.Concat_3 is
 

diff --git a/gcc/ada/s-conca4.adb b/gcc/ada/s-conca4.adb
index 0a9d2c5..455c5be 100644 (file)
--- a/gcc/ada/s-conca4.adb
+++ b/gcc/ada/s-conca4.adb
@@ -29,9 +29,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package body System.Concat_4 is
 

diff --git a/gcc/ada/s-conca4.ads b/gcc/ada/s-conca4.ads
index c49f507..a6d530c 100644 (file)
--- a/gcc/ada/s-conca4.ads
+++ b/gcc/ada/s-conca4.ads
@@ -32,9 +32,7 @@
 --  This package contains a procedure for runtime concatenation of four string
 --  operands. It is used when we want to save space in the generated code.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package System.Concat_4 is
 

diff --git a/gcc/ada/s-conca5.adb b/gcc/ada/s-conca5.adb
index 3aa9e0a..e463255 100644 (file)
--- a/gcc/ada/s-conca5.adb
+++ b/gcc/ada/s-conca5.adb
@@ -29,9 +29,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package body System.Concat_5 is
 

diff --git a/gcc/ada/s-conca5.ads b/gcc/ada/s-conca5.ads
index 227b700..445b213 100644 (file)
--- a/gcc/ada/s-conca5.ads
+++ b/gcc/ada/s-conca5.ads
@@ -32,9 +32,7 @@
 --  This package contains a procedure for runtime concatenation of five string
 --  operands. It is used when we want to save space in the generated code.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package System.Concat_5 is
 

diff --git a/gcc/ada/s-conca6.adb b/gcc/ada/s-conca6.adb
index 0caeb09..a0bd383 100644 (file)
--- a/gcc/ada/s-conca6.adb
+++ b/gcc/ada/s-conca6.adb
@@ -29,9 +29,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package body System.Concat_6 is
 

diff --git a/gcc/ada/s-conca6.ads b/gcc/ada/s-conca6.ads
index 6376e67..f78f932 100644 (file)
--- a/gcc/ada/s-conca6.ads
+++ b/gcc/ada/s-conca6.ads
@@ -32,9 +32,7 @@
 --  This package contains a procedure for runtime concatenation of six string
 --  operands. It is used when we want to save space in the generated code.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package System.Concat_6 is
 

diff --git a/gcc/ada/s-conca7.adb b/gcc/ada/s-conca7.adb
index 38741d5..c014a47 100644 (file)
--- a/gcc/ada/s-conca7.adb
+++ b/gcc/ada/s-conca7.adb
@@ -29,9 +29,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package body System.Concat_7 is
 

diff --git a/gcc/ada/s-conca7.ads b/gcc/ada/s-conca7.ads
index e592760..31d5da1 100644 (file)
--- a/gcc/ada/s-conca7.ads
+++ b/gcc/ada/s-conca7.ads
@@ -32,9 +32,7 @@
 --  This package contains a procedure for runtime concatenation of seven string
 --  operands. It is used when we want to save space in the generated code.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package System.Concat_7 is
 

diff --git a/gcc/ada/s-conca8.adb b/gcc/ada/s-conca8.adb
index 764fd98..3814f57 100644 (file)
--- a/gcc/ada/s-conca8.adb
+++ b/gcc/ada/s-conca8.adb
@@ -29,9 +29,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package body System.Concat_8 is
 

diff --git a/gcc/ada/s-conca8.ads b/gcc/ada/s-conca8.ads
index 173edbf..0d93b24 100644 (file)
--- a/gcc/ada/s-conca8.ads
+++ b/gcc/ada/s-conca8.ads
@@ -32,9 +32,7 @@
 --  This package contains a procedure for runtime concatenation of eight string
 --  operands. It is used when we want to save space in the generated code.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package System.Concat_8 is
 

diff --git a/gcc/ada/s-conca9.adb b/gcc/ada/s-conca9.adb
index 34fcd9d..a575801 100644 (file)
--- a/gcc/ada/s-conca9.adb
+++ b/gcc/ada/s-conca9.adb
@@ -29,9 +29,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package body System.Concat_9 is
 

diff --git a/gcc/ada/s-conca9.ads b/gcc/ada/s-conca9.ads
index 23172ec..31b1263 100644 (file)
--- a/gcc/ada/s-conca9.ads
+++ b/gcc/ada/s-conca9.ads
@@ -32,9 +32,7 @@
 --  This package contains a procedure for runtime concatenation of eight string
 --  operands. It is used when we want to save space in the generated code.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package System.Concat_9 is
 

diff --git a/gcc/ada/s-crc32.adb b/gcc/ada/s-crc32.adb
index 4061268..1687adc 100644 (file)
--- a/gcc/ada/s-crc32.adb
+++ b/gcc/ada/s-crc32.adb
@@ -29,9 +29,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package body System.CRC32 is
 

diff --git a/gcc/ada/s-crc32.ads b/gcc/ada/s-crc32.ads
index ec410c3..b450c8c 100644 (file)
--- a/gcc/ada/s-crc32.ads
+++ b/gcc/ada/s-crc32.ads
@@ -54,9 +54,7 @@
 --  "Computation of Cyclic Redundancy Checks via Table Look-Up", Communications
 --  of the ACM, Vol. 31 No. 8, pp.1008-1013 Aug. 1988. Sarwate, D.V.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 with Interfaces;
 

diff --git a/gcc/ada/s-except.adb b/gcc/ada/s-except.adb
index 67cf142..3d04b4b 100755 (executable)
--- a/gcc/ada/s-except.adb
+++ b/gcc/ada/s-except.adb
@@ -29,9 +29,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package body System.Exceptions is
 

diff --git a/gcc/ada/s-except.ads b/gcc/ada/s-except.ads
index 2bec61a..1023297 100644 (file)
--- a/gcc/ada/s-except.ads
+++ b/gcc/ada/s-except.ads
@@ -33,17 +33,13 @@
 --  It should be compiled without optimization to let debuggers inspect
 --  parameter values reliably from breakpoints on the routines.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 with System.Standard_Library;
 
 package System.Exceptions is
 
-   pragma Warnings (Off);
    pragma Preelaborate_05;
-   pragma Warnings (On);
    --  To let Ada.Exceptions "with" us and let us "with" Standard_Library
 
    package SSL renames System.Standard_Library;

diff --git a/gcc/ada/s-exctab.adb b/gcc/ada/s-exctab.adb
index ddf1dfa..5f2228c 100644 (file)
--- a/gcc/ada/s-exctab.adb
+++ b/gcc/ada/s-exctab.adb
@@ -29,9 +29,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 with System.HTable;
 with System.Soft_Links;   use System.Soft_Links;

diff --git a/gcc/ada/s-exctab.ads b/gcc/ada/s-exctab.ads
index ab530f9..c9fe698 100644 (file)
--- a/gcc/ada/s-exctab.ads
+++ b/gcc/ada/s-exctab.ads
@@ -33,9 +33,7 @@
 --  registered exception names, for the implementation of the mapping
 --  of names to exceptions (used for exception streams and attributes)
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 with System.Standard_Library;
 

diff --git a/gcc/ada/s-htable.adb b/gcc/ada/s-htable.adb
index 9dbb7f9..7eea674 100644 (file)
--- a/gcc/ada/s-htable.adb
+++ b/gcc/ada/s-htable.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                    Copyright (C) 1995-2007, AdaCore                      --
+--                    Copyright (C) 1995-2008, AdaCore                      --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -31,9 +31,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 with Ada.Unchecked_Deallocation;
 

diff --git a/gcc/ada/s-htable.ads b/gcc/ada/s-htable.ads
index e036288..bc416ab 100644 (file)
--- a/gcc/ada/s-htable.ads
+++ b/gcc/ada/s-htable.ads
@@ -39,9 +39,7 @@
 --  The Static_HTable package provides a more complex interface that allows
 --  complete control over allocation.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package System.HTable is
    pragma Preelaborate;

diff --git a/gcc/ada/s-imenne.adb b/gcc/ada/s-imenne.adb
index c5ee519..37ef4a7 100644 (file)
--- a/gcc/ada/s-imenne.adb
+++ b/gcc/ada/s-imenne.adb
@@ -29,9 +29,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 with Ada.Unchecked_Conversion;
 

diff --git a/gcc/ada/s-imenne.ads b/gcc/ada/s-imenne.ads
index 7cc432b..a76883d 100644 (file)
--- a/gcc/ada/s-imenne.ads
+++ b/gcc/ada/s-imenne.ads
@@ -40,9 +40,7 @@
 --  for bootstrapping with older versions of the compiler which expect to find
 --  functions in this package.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package System.Img_Enum_New is
    pragma Pure;

diff --git a/gcc/ada/s-imgenu.adb b/gcc/ada/s-imgenu.adb
index 6019a0d..99c6acf 100644 (file)
--- a/gcc/ada/s-imgenu.adb
+++ b/gcc/ada/s-imgenu.adb
@@ -29,9 +29,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 with Ada.Unchecked_Conversion;
 

diff --git a/gcc/ada/s-imgenu.ads b/gcc/ada/s-imgenu.ads
index 7d9261c..24afb3a 100644 (file)
--- a/gcc/ada/s-imgenu.ads
+++ b/gcc/ada/s-imgenu.ads
@@ -41,9 +41,7 @@
 --  these functions. The new compiler will search for procedures in the new
 --  version of the unit.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package System.Img_Enum is
    pragma Pure;

diff --git a/gcc/ada/s-mastop.adb b/gcc/ada/s-mastop.adb
index 8347ca4..fba5bb1 100644 (file)
--- a/gcc/ada/s-mastop.adb
+++ b/gcc/ada/s-mastop.adb
@@ -33,9 +33,7 @@
 --  This dummy version of System.Machine_State_Operations is used
 --  on targets for which zero cost exception handling is not implemented.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package body System.Machine_State_Operations is
 

diff --git a/gcc/ada/s-mastop.ads b/gcc/ada/s-mastop.ads
index 4ba5fd1..74ff217 100644 (file)
--- a/gcc/ada/s-mastop.ads
+++ b/gcc/ada/s-mastop.ads
@@ -29,9 +29,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 pragma Polling (Off);
 --  We must turn polling off for this unit, because otherwise we get

diff --git a/gcc/ada/s-memory.adb b/gcc/ada/s-memory.adb
index 3c199a3..3fb1cda 100644 (file)
--- a/gcc/ada/s-memory.adb
+++ b/gcc/ada/s-memory.adb
@@ -41,9 +41,7 @@
 --  you can remove the calls to Abort_Defer.all and Abort_Undefer.all from
 --  this unit.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 with Ada.Exceptions;
 with System.Soft_Links;

diff --git a/gcc/ada/s-memory.ads b/gcc/ada/s-memory.ads
index aa51009..4af6002 100644 (file)
--- a/gcc/ada/s-memory.ads
+++ b/gcc/ada/s-memory.ads
@@ -40,9 +40,7 @@
 --  This unit may be used directly from an application program by providing
 --  an appropriate WITH, and the interface can be expected to remain stable.
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 package System.Memory is
    pragma Elaborate_Body;

diff --git a/gcc/ada/s-os_lib.adb b/gcc/ada/s-os_lib.adb
index d1f1d7b..163cfbf 100755 (executable)
--- a/gcc/ada/s-os_lib.adb
+++ b/gcc/ada/s-os_lib.adb
@@ -31,9 +31,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 with System.Case_Util;
 with System.CRTL;