mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-12-20 17:44:53 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Ada] Remove Compiler_Unit[_Warning] pragmas

Browse Source 
gcc/ada/

	* doc/gnat_rm/implementation_defined_pragmas.rst (Compiler_Unit)
	(Compiler_Unit_Warning): Remove.
	* gnat-style.texi, gnat_rm.texi, gnat_ugn.texi: Regenerate.
	* libgnat/g-dynhta.ads: Add comment indicating this unit is
	built during stage1.
	* libgnat/g-dyntab.ads: Likewise.
	* libgnat/g-graphs.ads: Likewise.
	* libgnat/g-lists.ads: Likewise.
	* libgnat/g-sets.ads: Likewise.
	* libgnat/gnat.ads: Likewise.
	* libgnat/s-pehage.ads: Likewise.
	* libgnat/s-resfil.ads: Likewise.
	* libgnat/s-rident.ads: Likewise.
	* libgnat/s-utf_32.ads: Likewise.
	* errout.ads: Update comment.
	* opt.ads (Opt): Remove Compiler_Unit.
	* par-ch5.adb (All_Pragmas): Remove call to Check_Compiler_Unit.
	* sem_prag.adb (Analyze_Pragma): Likewise.
	* sem_ch4.adb (Non_Static_Choice_Error, Analyze_If_Expression)
	(Analyze_Set_Membership, Record_Interp): Likewise.
	* sem_ch11.adb (Analyze_Raise_Expression): Likewise.
	* sem_ch6.adb: Remove Restric package reference.
	(Analyze_Extended_Return_Statement): Remove call to
	Check_Compiler_Unit.
	* par-prag.adb (Process_Restrictions_Or_Restriction_Warnings):
	Remove handling of Pragma_Compiler_Unit[_Warning}.
	* restrict.adb (Check_Compiler_Unit): Remove both.
	* restrict.ads: Likewise.
	* snames.ads-tmpl (Pragma_Id): Remove
	Pragma_Compiler_Unit[_Warning].
	* libgnat/a-assert.ads: Remove pragma Compiler_Unit_Warning.
	* libgnat/a-chlat1.ads: Likewise.
	* libgnat/a-elchha.adb: Likewise.
	* libgnat/a-elchha.ads: Likewise.
	* libgnat/a-ioexce.ads: Likewise.
	* libgnat/a-strhas.ads: Likewise.
	* libgnat/g-byorma.adb: Likewise.
	* libgnat/g-byorma.ads: Likewise.
	* libgnat/g-dyntab.adb: Likewise.
	* libgnat/g-heasor.ads: Likewise.
	* libgnat/g-hesora.adb: Likewise.
	* libgnat/g-hesora.ads: Likewise.
	* libgnat/g-htable.adb: Likewise.
	* libgnat/g-htable.ads: Likewise.
	* libgnat/g-spchge.adb: Likewise.
	* libgnat/g-spchge.ads: Likewise.
	* libgnat/g-speche.adb: Likewise.
	* libgnat/g-speche.ads: Likewise.
	* libgnat/g-table.ads: Likewise.
	* libgnat/g-u3spch.adb: Likewise.
	* libgnat/g-u3spch.ads: Likewise.
	* libgnat/interfac.ads: Likewise.
	* libgnat/s-addope.adb: Likewise.
	* libgnat/s-addope.ads: Likewise.
	* libgnat/s-assert.adb: Likewise.
	* libgnat/s-assert.ads: Likewise.
	* libgnat/s-bitops.adb: Likewise.
	* libgnat/s-bitops.ads: Likewise.
	* libgnat/s-carun8.adb: Likewise.
	* libgnat/s-carun8.ads: Likewise.
	* libgnat/s-casuti.adb: Likewise.
	* libgnat/s-casuti.ads: Likewise.
	* libgnat/s-conca2.adb: Likewise.
	* libgnat/s-conca2.ads: Likewise.
	* libgnat/s-conca3.adb: Likewise.
	* libgnat/s-conca3.ads: Likewise.
	* libgnat/s-conca4.adb: Likewise.
	* libgnat/s-conca4.ads: Likewise.
	* libgnat/s-conca5.adb: Likewise.
	* libgnat/s-conca5.ads: Likewise.
	* libgnat/s-conca6.adb: Likewise.
	* libgnat/s-conca6.ads: Likewise.
	* libgnat/s-conca7.adb: Likewise.
	* libgnat/s-conca7.ads: Likewise.
	* libgnat/s-conca8.adb: Likewise.
	* libgnat/s-conca8.ads: Likewise.
	* libgnat/s-conca9.adb: Likewise.
	* libgnat/s-conca9.ads: Likewise.
	* libgnat/s-crc32.adb: Likewise.
	* libgnat/s-crc32.ads: Likewise.
	* libgnat/s-crtl.ads: Likewise.
	* libgnat/s-excdeb.adb: Likewise.
	* libgnat/s-excdeb.ads: Likewise.
	* libgnat/s-except.ads: Likewise.
	* libgnat/s-exctab.adb: Likewise.
	* libgnat/s-exctab.ads: Likewise.
	* libgnat/s-finmas.ads: Likewise.
	* libgnat/s-htable.adb: Likewise.
	* libgnat/s-htable.ads: Likewise.
	* libgnat/s-mastop.adb: Likewise.
	* libgnat/s-mastop.ads: Likewise.
	* libgnat/s-memory.adb: Likewise.
	* libgnat/s-memory.ads: Likewise.
	* libgnat/s-os_lib.ads: Likewise.
	* libgnat/s-parame.adb: Likewise.
	* libgnat/s-parame.ads: Likewise.
	* libgnat/s-parame__posix2008.ads: Likewise.
	* libgnat/s-purexc.ads: Likewise.
	* libgnat/s-resfil.adb: Likewise.
	* libgnat/s-restri.adb: Likewise.
	* libgnat/s-restri.ads: Likewise.
	* libgnat/s-secsta.adb: Likewise.
	* libgnat/s-secsta.ads: Likewise.
	* libgnat/s-soflin.adb: Likewise.
	* libgnat/s-soflin.ads: Likewise.
	* libgnat/s-sopco3.adb: Likewise.
	* libgnat/s-sopco3.ads: Likewise.
	* libgnat/s-sopco4.adb: Likewise.
	* libgnat/s-sopco4.ads: Likewise.
	* libgnat/s-sopco5.adb: Likewise.
	* libgnat/s-sopco5.ads: Likewise.
	* libgnat/s-spsufi.ads: Likewise.
	* libgnat/s-stache.adb: Likewise.
	* libgnat/s-stache.ads: Likewise.
	* libgnat/s-stalib.adb: Likewise.
	* libgnat/s-stalib.ads: Likewise.
	* libgnat/s-stoele.adb: Likewise.
	* libgnat/s-stoele.ads: Likewise.
	* libgnat/s-strcom.adb: Likewise.
	* libgnat/s-strcom.ads: Likewise.
	* libgnat/s-strhas.adb: Likewise.
	* libgnat/s-string.adb: Likewise.
	* libgnat/s-string.ads: Likewise.
	* libgnat/s-strops.adb: Likewise.
	* libgnat/s-strops.ads: Likewise.
	* libgnat/s-ststop.adb: Likewise.
	* libgnat/s-ststop.ads: Likewise.
	* libgnat/s-traceb.adb: Likewise.
	* libgnat/s-traceb.ads: Likewise.
	* libgnat/s-traent.adb: Likewise.
	* libgnat/s-traent.ads: Likewise.
	* libgnat/s-utf_32.adb: Likewise.
	* libgnat/s-unstyp.ads: Likewise.
	* libgnat/s-wchcnv.adb: Likewise.
	* libgnat/s-wchcnv.ads: Likewise.
	* libgnat/s-wchcon.adb: Likewise.
	* libgnat/s-wchcon.ads: Likewise.
	* libgnat/s-wchjis.adb: Likewise.
	* libgnat/s-wchjis.ads: Likewise.
This commit is contained in:
Marc Poulhiès 2021-11-17 09:05:40 +01:00 committed by Pierre-Marie de Rodat
parent 1fc93860a5
commit acdf2f079b
134 changed files with 844 additions and 1266 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
gcc/ada/doc/gnat_rm/implementation_defined_pragmas.rst
View File

@ -1003,39 +1003,6 @@ Compile_Time_Warning resulted in a fatal error. Now the compiler always emits
a warning. You can use :ref:`Compile_Time_Error` to force the generation of
an error.
Pragma Compiler_Unit
====================
Syntax:
.. code-block:: ada
pragma Compiler_Unit;
This pragma is obsolete. It is equivalent to Compiler_Unit_Warning. It is
retained so that old versions of the GNAT run-time that use this pragma can
be compiled with newer versions of the compiler.
Pragma Compiler_Unit_Warning
============================
Syntax:
.. code-block:: ada
pragma Compiler_Unit_Warning;
This pragma is intended only for internal use in the GNAT run-time library.
It indicates that the unit is used as part of the compiler build. The effect
is to generate warnings for the use of constructs (for example, conditional
expressions) that would cause trouble when bootstrapping using an older
version of GNAT. For the exact list of restrictions, see the compiler sources
and references to Check_Compiler_Unit.
Pragma Complete_Representation
==============================

3
gcc/ada/errout.ads
View File

@ -272,8 +272,7 @@ package Errout is
-- avoided. This is currently used by the Compile_Time_Warning pragma
-- to ensure the message for a with'ed unit is output, and for warnings
-- on ineffective back-end inlining, which is detected in units that
-- contain subprograms to be inlined in the main program. It is also
-- used by the Compiler_Unit_Warning pragma for similar reasons.
-- contain subprograms to be inlined in the main program.
-- Insertion character ? (Question: warning message -- OBSOLETE)
-- The character ? appearing anywhere in a message makes the message

6
gcc/ada/gnat-style.texi
View File

@ -3,7 +3,7 @@
@setfilename gnat-style.info
@documentencoding UTF-8
@ifinfo
@*Generated by Sphinx 4.3.0.@*
@*Generated by Sphinx 4.3.1.@*
@end ifinfo
@settitle GNAT Coding Style A Guide for GNAT Developers
@defindex ge
@ -21,11 +21,11 @@
@copying
@quotation
GNAT Coding Style: A Guide for GNAT Developers , Nov 30, 2021
GNAT Coding Style: A Guide for GNAT Developers , Jan 03, 2022
AdaCore
Copyright @copyright{} 2008-2021, Free Software Foundation
Copyright @copyright{} 2008-2022, Free Software Foundation
@end quotation
@end copying

1671
gcc/ada/gnat_rm.texi
View File

File diff suppressed because it is too large Load Diff

6
gcc/ada/gnat_ugn.texi
View File

@ -3,7 +3,7 @@
@setfilename gnat_ugn.info
@documentencoding UTF-8
@ifinfo
@*Generated by Sphinx 4.3.0.@*
@*Generated by Sphinx 4.3.1.@*
@end ifinfo
@settitle GNAT User's Guide for Native Platforms
@defindex ge
@ -21,7 +21,7 @@
@copying
@quotation
GNAT User's Guide for Native Platforms , Nov 30, 2021
GNAT User's Guide for Native Platforms , Jan 03, 2022
AdaCore
@ -29241,8 +29241,8 @@ to permit their use in free software.
@printindex ge
@anchor{cf}@w{ }
@anchor{gnat_ugn/gnat_utility_programs switches-related-to-project-files}@w{ }
@anchor{cf}@w{ }
@c %**end of body
@bye

2
gcc/ada/libgnat/a-assert.ads
View File

@ -39,8 +39,6 @@
pragma Assertion_Policy (Pre => Ignore);
pragma Compiler_Unit_Warning;
package Ada.Assertions with
SPARK_Mode, Pure
is

2
gcc/ada/libgnat/a-chlat1.ads
View File

@ -13,8 +13,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
package Ada.Characters.Latin_1 is
pragma Pure;

2
gcc/ada/libgnat/a-elchha.adb
View File

@ -31,8 +31,6 @@
-- Default version for most targets
pragma Compiler_Unit_Warning;
with System.Standard_Library; use System.Standard_Library;
with System.Soft_Links; use System;

2
gcc/ada/libgnat/a-elchha.ads
View File

@ -31,8 +31,6 @@
-- Last chance handler. Unhandled exceptions are passed to this routine
pragma Compiler_Unit_Warning;
procedure Ada.Exceptions.Last_Chance_Handler
(Except : Exception_Occurrence);
pragma Export (C,

2
gcc/ada/libgnat/a-ioexce.ads
View File

@ -13,8 +13,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
package Ada.IO_Exceptions is
pragma Pure;

2
gcc/ada/libgnat/a-strhas.ads
View File

@ -13,8 +13,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
with Ada.Containers;
function Ada.Strings.Hash (Key : String) return Containers.Hash_Type;

2
gcc/ada/libgnat/g-byorma.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
package body GNAT.Byte_Order_Mark is
--------------

2
gcc/ada/libgnat/g-byorma.ads
View File

@ -61,8 +61,6 @@
-- cases depend on the first character of the XML file being < so that the
-- encoding of this character can be recognized.
pragma Compiler_Unit_Warning;
package GNAT.Byte_Order_Mark is
type BOM_Kind is

3
gcc/ada/libgnat/g-dynhta.ads
View File

@ -46,7 +46,8 @@
-- GNAT.HTable to keep as much coherency as possible between these two
-- related units.
pragma Compiler_Unit_Warning;
-- Note: this unit is used during bootstrap, see ADA_GENERATED_FILES in
-- gcc-interface/Make-lang.in for details on the constraints.
package GNAT.Dynamic_HTables is

2
gcc/ada/libgnat/g-dyntab.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
with GNAT.Heap_Sort_G;
with Ada.Unchecked_Deallocation;

3
gcc/ada/libgnat/g-dyntab.ads
View File

@ -45,7 +45,8 @@
-- GNAT.Table
-- Table (the compiler unit)
pragma Compiler_Unit_Warning;
-- Note: this unit is used during bootstrap, see ADA_GENERATED_FILES in
-- gcc-interface/Make-lang.in for details on the constraints.
with Ada.Unchecked_Conversion;

3
gcc/ada/libgnat/g-graphs.ads
View File

@ -29,7 +29,8 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
-- Note: this unit is used during bootstrap, see ADA_GENERATED_FILES in
-- gcc-interface/Make-lang.in for details on the constraints.
with GNAT.Dynamic_HTables; use GNAT.Dynamic_HTables;
with GNAT.Lists; use GNAT.Lists;

2
gcc/ada/libgnat/g-heasor.ads
View File

@ -46,8 +46,6 @@
-- Note: GNAT.Heap_Sort replaces and obsoletes GNAT.Heap_Sort_A, which is
-- retained in the GNAT library for backwards compatibility.
pragma Compiler_Unit_Warning;
package GNAT.Heap_Sort is
pragma Pure;

2
gcc/ada/libgnat/g-hesora.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
package body GNAT.Heap_Sort_A is
----------

2
gcc/ada/libgnat/g-hesora.ads
View File

@ -40,8 +40,6 @@
-- worst case and is in place with no additional storage required. See
-- the body for exact details of the algorithm used.
pragma Compiler_Unit_Warning;
package GNAT.Heap_Sort_A is
pragma Preelaborate;

2
gcc/ada/libgnat/g-htable.adb
View File

@ -34,7 +34,5 @@
-- supply a dummy body, the old incorrect body is picked up during the
-- bootstrap process).
pragma Compiler_Unit_Warning;
package body GNAT.HTable is
end GNAT.HTable;

2
gcc/ada/libgnat/g-htable.ads
View File

@ -39,8 +39,6 @@
-- See file s-htable.ads for full documentation of the interface
pragma Compiler_Unit_Warning;
with System.HTable;
package GNAT.HTable is

3
gcc/ada/libgnat/g-lists.ads
View File

@ -29,7 +29,8 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
-- Note: this unit is used during bootstrap, see ADA_GENERATED_FILES in
-- gcc-interface/Make-lang.in for details on the constraints.
package GNAT.Lists is

3
gcc/ada/libgnat/g-sets.ads
View File

@ -29,7 +29,8 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
-- Note: this unit is used during bootstrap, see ADA_GENERATED_FILES in
-- gcc-interface/Make-lang.in for details on the constraints.
with GNAT.Dynamic_HTables; use GNAT.Dynamic_HTables;

2
gcc/ada/libgnat/g-spchge.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
package body GNAT.Spelling_Checker_Generic is
------------------------

2
gcc/ada/libgnat/g-spchge.ads
View File

@ -37,8 +37,6 @@
-- 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 Compiler_Unit_Warning;
package GNAT.Spelling_Checker_Generic is
pragma Pure;

2
gcc/ada/libgnat/g-speche.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
with GNAT.Spelling_Checker_Generic;
package body GNAT.Spelling_Checker is

2
gcc/ada/libgnat/g-speche.ads
View File

@ -34,8 +34,6 @@
-- This package provides a utility routine for checking for bad spellings
-- for the case of String arguments.
pragma Compiler_Unit_Warning;
package GNAT.Spelling_Checker is
pragma Pure;

2
gcc/ada/libgnat/g-table.ads
View File

@ -41,8 +41,6 @@
-- GNAT.Table
-- Table (the compiler unit)
pragma Compiler_Unit_Warning;
with GNAT.Dynamic_Tables;
generic

2
gcc/ada/libgnat/g-u3spch.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
with GNAT.Spelling_Checker_Generic;
package body GNAT.UTF_32_Spelling_Checker is

2
gcc/ada/libgnat/g-u3spch.ads
View File

@ -34,8 +34,6 @@
-- This package provides a utility routine for checking for bad spellings
-- for the case of System.WCh_Cnv.UTF_32_String arguments.
pragma Compiler_Unit_Warning;
with System.WCh_Cnv;
package GNAT.UTF_32_Spelling_Checker is

3
gcc/ada/libgnat/gnat.ads
View File

@ -31,6 +31,9 @@
-- This is the parent package for a library of useful units provided with GNAT
-- Note: this unit is used during bootstrap, see ADA_GENERATED_FILES in
-- gcc-interface/Make-lang.in for details on the constraints.
package GNAT is
pragma Pure;

2
gcc/ada/libgnat/interfac.ads
View File

@ -35,8 +35,6 @@
-- This is the compiler version of this unit
pragma Compiler_Unit_Warning;
package Interfaces is
pragma No_Elaboration_Code_All;
pragma Pure;

2
gcc/ada/libgnat/s-addope.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
with Ada.Unchecked_Conversion;
package body System.Address_Operations is

2
gcc/ada/libgnat/s-addope.ads
View File

@ -40,8 +40,6 @@
-- inappropriate use by applications programs). In addition, the logical
-- operations may not be available if type Address is a signed integer.
pragma Compiler_Unit_Warning;
package System.Address_Operations is
pragma Pure;

2
gcc/ada/libgnat/s-assert.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
with Ada.Exceptions;
with System.Exceptions_Debug;

2
gcc/ada/libgnat/s-assert.ads
View File

@ -36,8 +36,6 @@
-- 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 Compiler_Unit_Warning;
with Ada.Assertions;
package System.Assertions is

2
gcc/ada/libgnat/s-bitops.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
with System; use System;
with System.Unsigned_Types; use System.Unsigned_Types;

2
gcc/ada/libgnat/s-bitops.ads
View File

@ -31,8 +31,6 @@
-- Operations on packed bit strings
pragma Compiler_Unit_Warning;
with System;
package System.Bit_Ops is

2
gcc/ada/libgnat/s-carun8.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
with System.Address_Operations; use System.Address_Operations;
with Ada.Unchecked_Conversion;

2
gcc/ada/libgnat/s-carun8.ads
View File

@ -32,8 +32,6 @@
-- This package contains functions for runtime comparisons on arrays whose
-- elements are 8-bit discrete type values to be treated as unsigned.
pragma Compiler_Unit_Warning;
package System.Compare_Array_Unsigned_8 is
-- Note: although the functions in this package are in a sense Pure, the

2
gcc/ada/libgnat/s-casuti.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
package body System.Case_Util is
--------------

5
gcc/ada/libgnat/s-casuti.ads
View File

@ -34,11 +34,6 @@
-- This package provides simple casing functions that do not require the
-- overhead of the full casing tables found in Ada.Characters.Handling.
-- 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 Compiler_Unit_Warning;
package System.Case_Util is
pragma Pure;

2
gcc/ada/libgnat/s-conca2.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
package body System.Concat_2 is
pragma Suppress (All_Checks);

2
gcc/ada/libgnat/s-conca2.ads
View File

@ -32,8 +32,6 @@
-- 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 Compiler_Unit_Warning;
package System.Concat_2 is
procedure Str_Concat_2 (R : out String; S1, S2 : String);

2
gcc/ada/libgnat/s-conca3.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
with System.Concat_2;
package body System.Concat_3 is

2
gcc/ada/libgnat/s-conca3.ads
View File

@ -32,8 +32,6 @@
-- 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 Compiler_Unit_Warning;
package System.Concat_3 is
procedure Str_Concat_3 (R : out String; S1, S2, S3 : String);

2
gcc/ada/libgnat/s-conca4.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
with System.Concat_3;
package body System.Concat_4 is

2
gcc/ada/libgnat/s-conca4.ads
View File

@ -32,8 +32,6 @@
-- 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 Compiler_Unit_Warning;
package System.Concat_4 is
procedure Str_Concat_4 (R : out String; S1, S2, S3, S4 : String);

2
gcc/ada/libgnat/s-conca5.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
with System.Concat_4;
package body System.Concat_5 is

2
gcc/ada/libgnat/s-conca5.ads
View File

@ -32,8 +32,6 @@
-- 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 Compiler_Unit_Warning;
package System.Concat_5 is
procedure Str_Concat_5 (R : out String; S1, S2, S3, S4, S5 : String);

2
gcc/ada/libgnat/s-conca6.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
with System.Concat_5;
package body System.Concat_6 is

2
gcc/ada/libgnat/s-conca6.ads
View File

@ -32,8 +32,6 @@
-- 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 Compiler_Unit_Warning;
package System.Concat_6 is
procedure Str_Concat_6 (R : out String; S1, S2, S3, S4, S5, S6 : String);

2
gcc/ada/libgnat/s-conca7.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
with System.Concat_6;
package body System.Concat_7 is

2
gcc/ada/libgnat/s-conca7.ads
View File

@ -32,8 +32,6 @@
-- 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 Compiler_Unit_Warning;
package System.Concat_7 is
procedure Str_Concat_7

2
gcc/ada/libgnat/s-conca8.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
with System.Concat_7;
package body System.Concat_8 is

2
gcc/ada/libgnat/s-conca8.ads
View File

@ -32,8 +32,6 @@
-- 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 Compiler_Unit_Warning;
package System.Concat_8 is
procedure Str_Concat_8

2
gcc/ada/libgnat/s-conca9.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
with System.Concat_8;
package body System.Concat_9 is

2
gcc/ada/libgnat/s-conca9.ads
View File

@ -32,8 +32,6 @@
-- 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 Compiler_Unit_Warning;
package System.Concat_9 is
procedure Str_Concat_9

2
gcc/ada/libgnat/s-crc32.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
package body System.CRC32 is
Init : constant CRC32 := 16#FFFF_FFFF#; -- Initial value

2
gcc/ada/libgnat/s-crc32.ads
View File

@ -54,8 +54,6 @@
-- "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 Compiler_Unit_Warning;
with Interfaces;
package System.CRC32 is

2
gcc/ada/libgnat/s-crtl.ads
View File

@ -31,8 +31,6 @@
-- This package provides the low level interface to the C runtime library
pragma Compiler_Unit_Warning;
with System.Parameters;
package System.CRTL is

2
gcc/ada/libgnat/s-excdeb.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
package body System.Exceptions_Debug is
---------------------------

2
gcc/ada/libgnat/s-excdeb.ads
View File

@ -33,8 +33,6 @@
-- It should be compiled without optimization to let debuggers inspect
-- parameter values reliably from breakpoints on the routines.
pragma Compiler_Unit_Warning;
with System.Standard_Library;
package System.Exceptions_Debug is

2
gcc/ada/libgnat/s-except.ads
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
package System.Exceptions is
pragma Preelaborate;

2
gcc/ada/libgnat/s-exctab.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
with System.Soft_Links; use System.Soft_Links;
package body System.Exception_Table is

2
gcc/ada/libgnat/s-exctab.ads
View File

@ -33,8 +33,6 @@
-- registered exception names, for the implementation of the mapping
-- of names to exceptions (used for exception streams and attributes)
pragma Compiler_Unit_Warning;
with System.Standard_Library;
package System.Exception_Table is

2
gcc/ada/libgnat/s-finmas.ads
View File

@ -33,8 +33,6 @@ with Ada.Finalization;
with System.Storage_Elements;
with System.Storage_Pools;
pragma Compiler_Unit_Warning;
package System.Finalization_Masters is
pragma Preelaborate;

2
gcc/ada/libgnat/s-htable.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
with Ada.Unchecked_Deallocation;
with System.String_Hash;

2
gcc/ada/libgnat/s-htable.ads
View File

@ -37,8 +37,6 @@
-- The Static_HTable package provides a more complex interface that allows
-- complete control over allocation.
pragma Compiler_Unit_Warning;
package System.HTable is
pragma Preelaborate;

2
gcc/ada/libgnat/s-mastop.adb
View File

@ -33,8 +33,6 @@
-- This dummy version of System.Machine_State_Operations is used on targets
-- for which zero cost exception handling is not implemented.
pragma Compiler_Unit_Warning;
package body System.Machine_State_Operations is
-- Turn off warnings since many unused parameters

2
gcc/ada/libgnat/s-mastop.ads
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
with System.Storage_Elements;
package System.Machine_State_Operations is

2
gcc/ada/libgnat/s-memory.adb
View File

@ -38,8 +38,6 @@
-- of task on sjlj runtimes) cannot safely be handled while malloc is
-- executing.
pragma Compiler_Unit_Warning;
with System.CRTL;
with System.Parameters;
with System.Soft_Links;

2
gcc/ada/libgnat/s-memory.ads
View File

@ -40,8 +40,6 @@
-- 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 Compiler_Unit_Warning;
package System.Memory is
pragma Elaborate_Body;

2
gcc/ada/libgnat/s-os_lib.ads
View File

@ -48,8 +48,6 @@
-- be used by other predefined packages. User access to this package is via
-- a renaming of this package in GNAT.OS_Lib (file g-os_lib.ads).
pragma Compiler_Unit_Warning;
with System;
with System.Strings;

2
gcc/ada/libgnat/s-parame.adb
View File

@ -31,8 +31,6 @@
-- This is the default (used on all native platforms) version of this package
pragma Compiler_Unit_Warning;
package body System.Parameters is
-------------------------

2
gcc/ada/libgnat/s-parame.ads
View File

@ -46,8 +46,6 @@
-- Note: do not introduce any pragma Inline statements into this unit, since
-- otherwise the relinking and rebinding capability would be deactivated.
pragma Compiler_Unit_Warning;
package System.Parameters is
pragma Pure;

2
gcc/ada/libgnat/s-parame__posix2008.ads
View File

@ -46,8 +46,6 @@
-- Note: do not introduce any pragma Inline statements into this unit, since
-- otherwise the relinking and rebinding capability would be deactivated.
pragma Compiler_Unit_Warning;
package System.Parameters is
pragma Pure;

2
gcc/ada/libgnat/s-pehage.ads
View File

@ -64,8 +64,6 @@
-- < h (w2). These hashing functions are convenient for use with realtime
-- applications.
pragma Compiler_Unit_Warning;
package System.Perfect_Hash_Generators is
type Optimization is (Memory_Space, CPU_Time);

2
gcc/ada/libgnat/s-purexc.ads
View File

@ -33,8 +33,6 @@
-- an exception message. It can be used from Pure units. This unit is for
-- internal use only, it is not generally available to applications.
pragma Compiler_Unit_Warning;
package System.Pure_Exceptions is
pragma Pure;

2
gcc/ada/libgnat/s-resfil.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
with Ada.Unchecked_Deallocation;
with System.OS_Lib; use System.OS_Lib;

3
gcc/ada/libgnat/s-resfil.ads
View File

@ -35,7 +35,8 @@
-- Using a response file allow passing a set of arguments to an executable
-- longer than the maximum allowed by the system on the command line.
pragma Compiler_Unit_Warning;
-- Note: this unit is used during bootstrap, see ADA_GENERATED_FILES in
-- gcc-interface/Make-lang.in for details on the constraints.
with System.Strings;

2
gcc/ada/libgnat/s-restri.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
package body System.Restrictions is
use Rident;

2
gcc/ada/libgnat/s-restri.ads
View File

@ -38,8 +38,6 @@
-- with names discarded, so that we do not have image tables for the
-- large restriction enumeration types at run time.
pragma Compiler_Unit_Warning;
with System.Rident;
package System.Restrictions is

5
gcc/ada/libgnat/s-rident.ads
View File

@ -41,6 +41,9 @@
-- so we can do the instantiation under control of Discard_Names to remove
-- the tables.
-- Note: this unit is used during bootstrap, see ADA_GENERATED_FILES in
-- gcc-interface/Make-lang.in for details on the constraints.
---------------------------------------------------
-- Note On Compile/Run-Time Consistency Checking --
---------------------------------------------------
@ -69,8 +72,6 @@
-- restrictions are ignored, and the consistency checking for restrictions
-- might be incomplete, which is no big deal.
pragma Compiler_Unit_Warning;
generic
package System.Rident is
pragma Preelaborate;

2
gcc/ada/libgnat/s-secsta.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
with Ada.Unchecked_Conversion;
with Ada.Unchecked_Deallocation;

2
gcc/ada/libgnat/s-secsta.ads
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
with System.Parameters;
with System.Storage_Elements;

2
gcc/ada/libgnat/s-soflin.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
pragma Warnings (Off);
-- Disable warnings as System.Soft_Links.Initialize is not Preelaborate. It is
-- safe to with this unit as its elaboration routine will only be initializing

2
gcc/ada/libgnat/s-soflin.ads
View File

@ -37,8 +37,6 @@
-- initialized to non-tasking versions, and then if the tasking support is
-- initialized, they are set to the real tasking versions.
pragma Compiler_Unit_Warning;
with Ada.Exceptions;
with System.Parameters;
with System.Secondary_Stack;

2
gcc/ada/libgnat/s-sopco3.adb
View File

@ -33,8 +33,6 @@
-- which now generates concatenation inline. It is retained only because
-- it may be used during bootstrapping using old versions of the compiler.
pragma Compiler_Unit_Warning;
package body System.String_Ops_Concat_3 is
------------------

2
gcc/ada/libgnat/s-sopco3.ads
View File

@ -35,8 +35,6 @@
-- which now generates concatenation inline. It is retained only because
-- it may be used during bootstrapping using old versions of the compiler.
pragma Compiler_Unit_Warning;
package System.String_Ops_Concat_3 is
pragma Pure;

2
gcc/ada/libgnat/s-sopco4.adb
View File

@ -33,8 +33,6 @@
-- which now generates concatenation inline. It is retained only because
-- it may be used during bootstrapping using old versions of the compiler.
pragma Compiler_Unit_Warning;
package body System.String_Ops_Concat_4 is
------------------

2
gcc/ada/libgnat/s-sopco4.ads
View File

@ -35,8 +35,6 @@
-- which now generates concatenation inline. It is retained only because
-- it may be used during bootstrapping using old versions of the compiler.
pragma Compiler_Unit_Warning;
package System.String_Ops_Concat_4 is
pragma Pure;

2
gcc/ada/libgnat/s-sopco5.adb
View File

@ -33,8 +33,6 @@
-- which now generates concatenation inline. It is retained only because
-- it may be used during bootstrapping using old versions of the compiler.
pragma Compiler_Unit_Warning;
package body System.String_Ops_Concat_5 is
------------------

2
gcc/ada/libgnat/s-sopco5.ads
View File

@ -35,8 +35,6 @@
-- which now generates concatenation inline. It is retained only because
-- it may be used during bootstrapping using old versions of the compiler.
pragma Compiler_Unit_Warning;
package System.String_Ops_Concat_5 is
pragma Pure;

2
gcc/ada/libgnat/s-spsufi.ads
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
package System.Storage_Pools.Subpools.Finalization is
-- The pragma is needed because package System.Storage_Pools.Subpools which

2
gcc/ada/libgnat/s-stache.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
-- As noted in the spec, this dummy body is present because otherwise we
-- have bootstrapping path problems (there used to be a real body).

2
gcc/ada/libgnat/s-stache.ads
View File

@ -35,8 +35,6 @@
-- This package defines basic types and objects. Operations related to
-- stack checking can be found in package System.Stack_Checking.Operations.
pragma Compiler_Unit_Warning;
with System.Storage_Elements;
package System.Stack_Checking is

2
gcc/ada/libgnat/s-stalib.adb
View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Compiler_Unit_Warning;
-- The purpose of this body is simply to ensure that the two with'ed units
-- are properly included in the link. They are not with'ed from the spec
-- of System.Standard_Library, since this would cause order of elaboration

2
gcc/ada/libgnat/s-stalib.ads
View File

@ -44,8 +44,6 @@
-- package and the packages it references are included in all Ada programs,
-- together with the included data.
pragma Compiler_Unit_Warning;
with Ada.Unchecked_Conversion;
package System.Standard_Library is

Some files were not shown because too many files have changed in this diff Show More