FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

s-conca5.adb, [...]: Remove unneeded pragma Warnings

Browse source 
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

From-SVN: r146263
This commit is contained in:
Robert Dewar 2009-04-17 13:15:47 +00:00 • committed by Arnaud Charlet
parent 74e63df17e
commit 8c64de1e7d
61 changed files with 45 additions and 151 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
gcc/ada/ChangeLog
View file

@ -1,3 +1,19 @@
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.

2
gcc/ada/a-except.adb
View file

@ -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

6
gcc/ada/a-except.ads
View file

@ -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;

18
gcc/ada/exp_dist.adb
View file

@ -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

3
gcc/ada/exp_imgv.adb
View file

@ -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;

2
gcc/ada/g-byorma.adb
View file

@ -31,6 +31,8 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit;
package body GNAT.Byte_Order_Mark is
--------------

4
gcc/ada/g-byorma.ads
View file

@ -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

2
gcc/ada/g-hesora.adb
View file

@ -31,9 +31,7 @@
-- --
------------------------------------------------------------------------------
pragma Warnings (Off);
pragma Compiler_Unit;
pragma Warnings (On);
package body GNAT.Heap_Sort_A is

4
gcc/ada/g-hesora.ads
View file

@ -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;

2
gcc/ada/g-htable.ads
View file

@ -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;

12
gcc/ada/g-sercom.adb
View file

@ -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;

4
gcc/ada/g-spchge.adb
View file

@ -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

4
gcc/ada/g-spchge.ads
View file

@ -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;

4
gcc/ada/g-speche.adb
View file

@ -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;

4
gcc/ada/g-speche.ads
View file

@ -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;

5
gcc/ada/g-stsifd-sockets.adb
View file

@ -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;

4
gcc/ada/g-u3spch.adb
View file

@ -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;

4
gcc/ada/g-u3spch.ads
View file

@ -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;

6
gcc/ada/i-cstrin.ads
View file

@ -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;

2
gcc/ada/osint.adb
View file

@ -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);

2
gcc/ada/s-addope.adb
View file

@ -29,9 +29,7 @@
-- --
------------------------------------------------------------------------------
pragma Warnings (Off);
pragma Compiler_Unit;
pragma Warnings (On);
with Ada.Unchecked_Conversion;

2
gcc/ada/s-addope.ads
View file

@ -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;

2
gcc/ada/s-assert.adb
View file

@ -29,9 +29,7 @@
-- --
------------------------------------------------------------------------------
pragma Warnings (Off);
pragma Compiler_Unit;
pragma Warnings (On);
with Ada.Exceptions;
with System.Exceptions;

2
gcc/ada/s-assert.ads
View file

@ -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

2
gcc/ada/s-carun8.adb
View file

@ -29,9 +29,7 @@
-- --
------------------------------------------------------------------------------
pragma Warnings (Off);
pragma Compiler_Unit;
pragma Warnings (On);
with System.Address_Operations; use System.Address_Operations;

2
gcc/ada/s-carun8.ads
View file

@ -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

4
gcc/ada/s-casuti.adb
View file

@ -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

2
gcc/ada/s-casuti.ads
View file

@ -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;

2
gcc/ada/s-conca2.adb
View file

@ -29,9 +29,7 @@
-- --
------------------------------------------------------------------------------
pragma Warnings (Off);
pragma Compiler_Unit;
pragma Warnings (On);
package body System.Concat_2 is

2
gcc/ada/s-conca2.ads
View file

@ -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

2
gcc/ada/s-conca3.adb
View file

@ -29,9 +29,7 @@
-- --
------------------------------------------------------------------------------
pragma Warnings (Off);
pragma Compiler_Unit;
pragma Warnings (On);
package body System.Concat_3 is

2
gcc/ada/s-conca3.ads
View file

@ -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

2
gcc/ada/s-conca4.adb
View file

@ -29,9 +29,7 @@
-- --
------------------------------------------------------------------------------
pragma Warnings (Off);
pragma Compiler_Unit;
pragma Warnings (On);
package body System.Concat_4 is

2
gcc/ada/s-conca4.ads
View file

@ -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

2
gcc/ada/s-conca5.adb
View file

@ -29,9 +29,7 @@
-- --
------------------------------------------------------------------------------
pragma Warnings (Off);
pragma Compiler_Unit;
pragma Warnings (On);
package body System.Concat_5 is

2
gcc/ada/s-conca5.ads
View file

@ -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

2
gcc/ada/s-conca6.adb
View file

@ -29,9 +29,7 @@
-- --
------------------------------------------------------------------------------
pragma Warnings (Off);
pragma Compiler_Unit;
pragma Warnings (On);
package body System.Concat_6 is

2
gcc/ada/s-conca6.ads
View file

@ -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

2
gcc/ada/s-conca7.adb
View file

@ -29,9 +29,7 @@
-- --
------------------------------------------------------------------------------
pragma Warnings (Off);
pragma Compiler_Unit;
pragma Warnings (On);
package body System.Concat_7 is

2
gcc/ada/s-conca7.ads
View file

@ -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

2
gcc/ada/s-conca8.adb
View file

@ -29,9 +29,7 @@
-- --
------------------------------------------------------------------------------
pragma Warnings (Off);
pragma Compiler_Unit;
pragma Warnings (On);
package body System.Concat_8 is

2
gcc/ada/s-conca8.ads
View file

@ -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

2
gcc/ada/s-conca9.adb
View file

@ -29,9 +29,7 @@
-- --
------------------------------------------------------------------------------
pragma Warnings (Off);
pragma Compiler_Unit;
pragma Warnings (On);
package body System.Concat_9 is

2
gcc/ada/s-conca9.ads
View file

@ -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

2
gcc/ada/s-crc32.adb
View file

@ -29,9 +29,7 @@
-- --
------------------------------------------------------------------------------
pragma Warnings (Off);
pragma Compiler_Unit;
pragma Warnings (On);
package body System.CRC32 is

2
gcc/ada/s-crc32.ads
View file

@ -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;

2
gcc/ada/s-except.adb
View file

@ -29,9 +29,7 @@
-- --
------------------------------------------------------------------------------
pragma Warnings (Off);
pragma Compiler_Unit;
pragma Warnings (On);
package body System.Exceptions is

4
gcc/ada/s-except.ads
View file

@ -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;

2
gcc/ada/s-exctab.adb
View file

@ -29,9 +29,7 @@
-- --
------------------------------------------------------------------------------
pragma Warnings (Off);
pragma Compiler_Unit;
pragma Warnings (On);
with System.HTable;
with System.Soft_Links; use System.Soft_Links;

2
gcc/ada/s-exctab.ads
View file

@ -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;

4
gcc/ada/s-htable.adb
View file

@ -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;

2
gcc/ada/s-htable.ads
View file

@ -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;

2
gcc/ada/s-imenne.adb
View file

@ -29,9 +29,7 @@
-- --
------------------------------------------------------------------------------
pragma Warnings (Off);
pragma Compiler_Unit;
pragma Warnings (On);
with Ada.Unchecked_Conversion;

2
gcc/ada/s-imenne.ads
View file

@ -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;

2
gcc/ada/s-imgenu.adb
View file

@ -29,9 +29,7 @@
-- --
------------------------------------------------------------------------------
pragma Warnings (Off);
pragma Compiler_Unit;
pragma Warnings (On);
with Ada.Unchecked_Conversion;

2
gcc/ada/s-imgenu.ads
View file

@ -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;

2
gcc/ada/s-mastop.adb
View file

@ -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

2
gcc/ada/s-mastop.ads
View file

@ -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

2
gcc/ada/s-memory.adb
View file

@ -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;

2
gcc/ada/s-memory.ads
View file

@ -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;

2
gcc/ada/s-os_lib.adb
View file

@ -31,9 +31,7 @@
-- --
------------------------------------------------------------------------------
pragma Warnings (Off);
pragma Compiler_Unit;
pragma Warnings (On);
with System.Case_Util;
with System.CRTL;