diff options
61 files changed, 45 insertions, 151 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 6fee481..732023b 100644 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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..99c6acfa 100644 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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; |