diff options
Diffstat (limited to 'gcc/ada')
61 files changed, 45 insertions, 151 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 6fee481ee69..732023b09c2 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 229645ac8f9..cf04fd46f3e 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 725bcb8bcb5..14aea1dd326 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 f1ddc009f5a..04a2187c8ce 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 ed53ca0c111..cf4a9c02a80 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 7e355b041b5..27138b463f4 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 6016f755bcc..d01404e6eb0 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 cb54558a6c7..60f307bba8a 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 bf60cafd9ef..11b89691968 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 5f7a27ccb75..a158d09f618 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 c1b4b8e481b..a39d4dbbca4 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 2e4c7c786fb..b1278a64811 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 0a29c589a21..786213bf1ff 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 841eef8ddfe..cd66efee788 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 b0eba286a02..0f9b39a6242 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 5fe43af4654..cb03192fce2 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 3e7ede843f2..febe0b43589 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 90ab66d978f..773a253b064 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 1d956a6059a..7bfee8f2c6d 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 0363f5e27eb..c847f5e5724 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 715e2b2e1db..2c957584da4 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 1b53feae08e..2d3f5894681 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 178166cdf1f..030ec17192e 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 525fdad49e1..433e276c600 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 b4733c2aa09..450e0476504 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 7866126db84..aa0d4e0f740 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 807024e7631..8517db7c092 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 1a091628c2e..84b92f6e6bc 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 c1e811561fa..1764575737c 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 2ea839772f4..b0fa85956af 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 eee12fca519..daa4ec7c9f8 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 66005a2a5c0..41c7d978ecb 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 0a9d2c5158a..455c5be3e76 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 c49f5077a51..a6d530c81e6 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 3aa9e0aa64e..e463255a5bb 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 227b700738b..445b2137866 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 0caeb09ee8d..a0bd3838fe1 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 6376e677a7a..f78f932f1f0 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 38741d51943..c014a47a9eb 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 e5927604203..31d5da1888b 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 764fd986f04..3814f5721ab 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 173edbf4fd7..0d93b243010 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 34fcd9dd67f..a575801271c 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 23172ec5309..31b1263df81 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 4061268cf67..1687adc50c1 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 ec410c35f5a..b450c8cd387 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 67cf1426ea0..3d04b4b1494 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 2bec61a6910..10232978260 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 ddf1dfa65d1..5f2228ceb1a 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 ab530f9c2a0..c9fe6980b10 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 9dbb7f98420..7eea674617a 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 e036288bc4b..bc416abd730 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 c5ee51946c5..37ef4a7e65d 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 7cc432b2328..a76883d6f4d 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 6019a0d0692..99c6acfa97e 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 7d9261c926e..24afb3a3ad2 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 8347ca432e5..fba5bb133cf 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 4ba5fd1581c..74ff217c693 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 3c199a3f893..3fb1cda9bcb 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 aa510093100..4af600205ad 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 d1f1d7b8218..163cfbf9230 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; |