diff options
50 files changed, 92 insertions, 162 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 8cecbe3551a..6fee481ee69 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,38 @@ +2009-04-17 Robert Dewar <dewar@adacore.com> + + * g-moreex.adb: Add comments. + + * s-auxdec.ads: Add ??? comment for uncommented pragma Warnings (Off) + + * s-auxdec-vms_64.ads: Add ??? comment for uncommented pragma + Warnings (Off) + + * prepcomp.adb: Add ??? comment + + * a-tasatt.adb: Minor reformatting + + * g-trasym-vms-alpha.adb: Add ??? comment + + * g-trasym-vms-ia64.adb: Add ??? comment + + * xoscons.adb: Minor reformatting + + * s-tassta.adb: Minor reformatting + + * s-scaval.adb: Add ??? comment + + * stand.ads: Minor code clean up (remove junk with of Namet) + + * s-strcom.adb, s-strcom.ads, s-string.adb, s-string.ads, s-sopco3.adb, + s-sopco3.ads, s-strops.adb, s-strops.ads, s-sopco5.adb, s-sopco5.ads, + s-wchcnv.adb, s-wchcnv.ads, s-ststop.adb, s-ststop.ads, s-soflin.adb, + s-soflin.ads, s-traceb.adb, s-traceb.ads, s-traent.adb, s-traent.ads, + s-secsta.adb, s-secsta.ads, s-utf_32.adb, s-utf_32.ads, s-wchcon.adb, + s-wchjis.adb, s-wchcon.ads, s-wchjis.ads, s-sopco4.adb, s-sopco4.ads, + s-stache.adb, s-stache.ads, s-stoele.adb, s-stoele.ads, s-stalib.adb, + s-stalib.ads, s-os_lib.ads, s-purexc.ads: Remove no longer needed + Warnings off pragmas. + 2009-04-17 Pascal Obry <obry@adacore.com> * initialize.c: Fix test for reallocating the arguments array. diff --git a/gcc/ada/a-tasatt.adb b/gcc/ada/a-tasatt.adb index b1a6b2da52d..69c4b9bdf71 100644 --- a/gcc/ada/a-tasatt.adb +++ b/gcc/ada/a-tasatt.adb @@ -276,8 +276,7 @@ package body Ada.Task_Attributes is -- For reference to directly addressed task attributes pragma Warnings (On); - -- End of warnings off region for directly addressed - -- attribute conversion functions. + -- End warnings off region for directly addressed attribute conversions function To_Access_Address is new Ada.Unchecked_Conversion (Access_Node, Access_Address); @@ -307,8 +306,6 @@ package body Ada.Task_Attributes is (Local_Deallocator, Deallocator); -- To defeat accessibility check - pragma Warnings (On); - ------------------------ -- Storage Management -- ------------------------ diff --git a/gcc/ada/g-moreex.adb b/gcc/ada/g-moreex.adb index e86d378f1dc..ab3a3065524 100644 --- a/gcc/ada/g-moreex.adb +++ b/gcc/ada/g-moreex.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2000-2006, AdaCore -- +-- Copyright (C) 2000-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- -- @@ -47,32 +47,17 @@ package body GNAT.Most_Recent_Exception is use type Ada.Exceptions.Exception_Occurrence_Access; begin - pragma Warnings (Off); - if EOA = null then - return Ada.Exceptions.Null_Occurrence; - else - return EOA.all; - end if; - pragma Warnings (On); - - -- ???Note that both of the above return statements violate the Ada - -- 2005 rule forbidding copying of limited objects (see RM-7.5(2.8/2)). - -- When compiled with -gnatg, the compiler gives a warning instead of - -- an error, so we can turn it off. - -- To fix this, remove the pragmas Warnings above, and use the following - -- code. We can't do that yet, because AI-318 is not yet implemented. - -- - -- return Result : Ada.Exceptions.Exception_Occurrence do - -- if EOA = null then - -- Ada.Exceptions.Save_Occurrence - -- (Target => Result, - -- Source => Ada.Exceptions.Null_Occurrence); - -- else - -- Ada.Exceptions.Save_Occurrence - -- (Target => Result, - -- Source => EOA.all); - -- end if; - -- end return; + return Result : Ada.Exceptions.Exception_Occurrence do + if EOA = null then + Ada.Exceptions.Save_Occurrence + (Target => Result, + Source => Ada.Exceptions.Null_Occurrence); + else + Ada.Exceptions.Save_Occurrence + (Target => Result, + Source => EOA.all); + end if; + end return; end Occurrence; ----------------------- diff --git a/gcc/ada/g-trasym-vms-alpha.adb b/gcc/ada/g-trasym-vms-alpha.adb index b503441d34e..adfa8f83d4e 100644 --- a/gcc/ada/g-trasym-vms-alpha.adb +++ b/gcc/ada/g-trasym-vms-alpha.adb @@ -40,7 +40,7 @@ with System.Traceback_Entries; package body GNAT.Traceback.Symbolic is - pragma Warnings (Off); + pragma Warnings (Off); -- Needs comment ??? pragma Linker_Options ("--for-linker=sys$library:trace.exe"); use Interfaces.C; diff --git a/gcc/ada/g-trasym-vms-ia64.adb b/gcc/ada/g-trasym-vms-ia64.adb index 7e219540916..28dab4729bd 100644 --- a/gcc/ada/g-trasym-vms-ia64.adb +++ b/gcc/ada/g-trasym-vms-ia64.adb @@ -39,7 +39,7 @@ with System.Traceback_Entries; package body GNAT.Traceback.Symbolic is - pragma Warnings (Off); + pragma Warnings (Off); -- ??? needs comment pragma Linker_Options ("--for-linker=sys$library:trace.exe"); use System; diff --git a/gcc/ada/prepcomp.adb b/gcc/ada/prepcomp.adb index 108fe47d1a9..63d64e7c8ff 100644 --- a/gcc/ada/prepcomp.adb +++ b/gcc/ada/prepcomp.adb @@ -45,8 +45,11 @@ package body Prepcomp is Source_Index_Of_Preproc_Data_File : Source_File_Index := No_Source_File; - -- The following variable should be a constant, but this is not - -- possible. Warnings are Off because it is never assigned a value. + -- The following variable should be a constant, but this is not possible + -- because its type GNAT.Dynamic_Tables.Instance has a component P of + -- unitialized private type GNAT.Dynamic_Tables.Table_Private and there are + -- no exported values for this private type. + -- Warnings are Off because it is never assigned a value. pragma Warnings (Off); No_Mapping : Prep.Symbol_Table.Instance; diff --git a/gcc/ada/s-auxdec-vms_64.ads b/gcc/ada/s-auxdec-vms_64.ads index 6015a9fd421..e9d87627f5f 100644 --- a/gcc/ada/s-auxdec-vms_64.ads +++ b/gcc/ada/s-auxdec-vms_64.ads @@ -115,6 +115,7 @@ package System.Aux_DEC is -- Floating point type declarations for VAX floating point data types pragma Warnings (Off); + -- ??? needs comment type F_Float is digits 6; pragma Float_Representation (VAX_Float, F_Float); diff --git a/gcc/ada/s-auxdec.ads b/gcc/ada/s-auxdec.ads index 6104be8c110..a709956b60b 100644 --- a/gcc/ada/s-auxdec.ads +++ b/gcc/ada/s-auxdec.ads @@ -105,6 +105,7 @@ package System.Aux_DEC is -- Floating point type declarations for VAX floating point data types pragma Warnings (Off); + -- ??? needs comment type F_Float is digits 6; pragma Float_Representation (VAX_Float, F_Float); diff --git a/gcc/ada/s-os_lib.ads b/gcc/ada/s-os_lib.ads index 5430ff00c7e..2abce23732e 100755 --- a/gcc/ada/s-os_lib.ads +++ b/gcc/ada/s-os_lib.ads @@ -48,9 +48,7 @@ -- 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 Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); with System; with System.Strings; diff --git a/gcc/ada/s-purexc.ads b/gcc/ada/s-purexc.ads index 400c730f952..a327f48bf0a 100644 --- a/gcc/ada/s-purexc.ads +++ b/gcc/ada/s-purexc.ads @@ -33,9 +33,7 @@ -- 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 Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); package System.Pure_Exceptions is pragma Pure; diff --git a/gcc/ada/s-scaval.adb b/gcc/ada/s-scaval.adb index e222cc52f60..415763c3e6b 100644 --- a/gcc/ada/s-scaval.adb +++ b/gcc/ada/s-scaval.adb @@ -71,7 +71,7 @@ package body System.Scalar_Values is -- On other targets the type is 8 bytes, and type Byte8 is used for -- values that are then converted to ByteLF. - pragma Warnings (Off); + pragma Warnings (Off); -- why ??? function To_ByteLF is new Ada.Unchecked_Conversion (Byte8, ByteLF); pragma Warnings (On); diff --git a/gcc/ada/s-secsta.adb b/gcc/ada/s-secsta.adb index 9f265fddb55..16e9fa0c9fb 100644 --- a/gcc/ada/s-secsta.adb +++ b/gcc/ada/s-secsta.adb @@ -29,9 +29,7 @@ -- -- ------------------------------------------------------------------------------ -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); with System.Soft_Links; with System.Parameters; diff --git a/gcc/ada/s-secsta.ads b/gcc/ada/s-secsta.ads index 3143dbd0857..bfbab33e37f 100644 --- a/gcc/ada/s-secsta.ads +++ b/gcc/ada/s-secsta.ads @@ -29,9 +29,7 @@ -- -- ------------------------------------------------------------------------------ -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); with System.Storage_Elements; diff --git a/gcc/ada/s-soflin.adb b/gcc/ada/s-soflin.adb index 5d144411bd8..4ae51f39f7f 100644 --- a/gcc/ada/s-soflin.adb +++ b/gcc/ada/s-soflin.adb @@ -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 an @@ -309,7 +307,7 @@ package body System.Soft_Links is ------------------------- procedure Task_Termination_NT (Excep : EO) is - pragma Warnings (Off, Excep); + pragma Unreferenced (Excep); begin null; end Task_Termination_NT; diff --git a/gcc/ada/s-soflin.ads b/gcc/ada/s-soflin.ads index 2c947c9af70..6c868cd6ced 100644 --- a/gcc/ada/s-soflin.ads +++ b/gcc/ada/s-soflin.ads @@ -37,11 +37,6 @@ -- initialized to non-tasking versions, and then if the tasking support is -- initialized, they are set to the real tasking versions. -pragma Warnings (Off); --- When compiling this package with older compilers, there are many warnings, --- so we suppress them throughout most of this file. Pragmas Compiler_Unit, --- Preelaborate_05, and Favor_Top_Level are not supported by older compilers. - pragma Compiler_Unit; with Ada.Exceptions; @@ -130,7 +125,6 @@ package System.Soft_Links is Len : Natural) return String; pragma Favor_Top_Level (Traceback_Decorator_Wrapper_Call); - pragma Warnings (On); -- Declarations for the no tasking versions of the required routines @@ -312,35 +306,35 @@ package System.Soft_Links is ------------------------ -- Here we define a single type that encapsulates the various task - -- specific data. This type is used to store the necessary data into - -- the Task_Control_Block or into a global variable in the non tasking - -- case. + -- specific data. This type is used to store the necessary data into the + -- Task_Control_Block or into a global variable in the non tasking case. type TSD is record Pri_Stack_Info : aliased Stack_Checking.Stack_Info; - -- Information on stack (Base/Limit/Size) that is used - -- by System.Stack_Checking. If this TSD does not belong to - -- the environment task, the Size field must be initialized - -- to the tasks requested stack size before the task can do - -- its first stack check. + -- Information on stack (Base/Limit/Size) used by System.Stack_Checking. + -- If this TSD does not belong to the environment task, the Size field + -- must be initialized to the tasks requested stack size before the task + -- can do its first stack check. pragma Warnings (Off); + -- Needed because we are giving a non-static default to an object in + -- a preelaborated unit, which is formally not permitted, but OK here. + Jmpbuf_Address : System.Address := System.Null_Address; - -- Address of jump buffer used to store the address of the - -- current longjmp/setjmp buffer for exception management. - -- These buffers are threaded into a stack, and the address - -- here is the top of the stack. A null address means that - -- no exception handler is currently active. + -- Address of jump buffer used to store the address of the current + -- longjmp/setjmp buffer for exception management. These buffers are + -- threaded into a stack, and the address here is the top of the stack. + -- A null address means that no exception handler is currently active. Sec_Stack_Addr : System.Address := System.Null_Address; pragma Warnings (On); -- Address of currently allocated secondary stack Current_Excep : aliased EO; - -- Exception occurrence that contains the information for the - -- current exception. Note that any exception in the same task - -- destroys this information, so the data in this variable must - -- be copied out before another exception can occur. + -- Exception occurrence that contains the information for the current + -- exception. Note that any exception in the same task destroys this + -- information, so the data in this variable must be copied out before + -- another exception can occur. -- -- Also act as a list of the active exceptions in the case of the GCC -- exception mechanism, organized as a stack with the most recent first. diff --git a/gcc/ada/s-sopco3.adb b/gcc/ada/s-sopco3.adb index 7fef7e25e84..5e7b6bbcc91 100644 --- a/gcc/ada/s-sopco3.adb +++ b/gcc/ada/s-sopco3.adb @@ -33,9 +33,7 @@ -- which now generates concatenation inline. It is retained only because -- it may be used during bootstrapping using old versions of the compiler. -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); package body System.String_Ops_Concat_3 is diff --git a/gcc/ada/s-sopco3.ads b/gcc/ada/s-sopco3.ads index d00942ea4d0..68b1066c60a 100644 --- a/gcc/ada/s-sopco3.ads +++ b/gcc/ada/s-sopco3.ads @@ -35,9 +35,7 @@ -- which now generates concatenation inline. It is retained only because -- it may be used during bootstrapping using old versions of the compiler. -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); package System.String_Ops_Concat_3 is pragma Pure; diff --git a/gcc/ada/s-sopco4.adb b/gcc/ada/s-sopco4.adb index a31d29f4a28..4bfbcc31ccd 100644 --- a/gcc/ada/s-sopco4.adb +++ b/gcc/ada/s-sopco4.adb @@ -33,9 +33,7 @@ -- which now generates concatenation inline. It is retained only because -- it may be used during bootstrapping using old versions of the compiler. -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); package body System.String_Ops_Concat_4 is diff --git a/gcc/ada/s-sopco4.ads b/gcc/ada/s-sopco4.ads index eca94b43276..e198bbae81c 100644 --- a/gcc/ada/s-sopco4.ads +++ b/gcc/ada/s-sopco4.ads @@ -35,9 +35,7 @@ -- which now generates concatenation inline. It is retained only because -- it may be used during bootstrapping using old versions of the compiler. -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); package System.String_Ops_Concat_4 is pragma Pure; diff --git a/gcc/ada/s-sopco5.adb b/gcc/ada/s-sopco5.adb index c31dc135ad7..8467028c6ba 100644 --- a/gcc/ada/s-sopco5.adb +++ b/gcc/ada/s-sopco5.adb @@ -33,9 +33,7 @@ -- which now generates concatenation inline. It is retained only because -- it may be used during bootstrapping using old versions of the compiler. -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); package body System.String_Ops_Concat_5 is diff --git a/gcc/ada/s-sopco5.ads b/gcc/ada/s-sopco5.ads index 7d66a60c93c..3491bb9ad96 100644 --- a/gcc/ada/s-sopco5.ads +++ b/gcc/ada/s-sopco5.ads @@ -35,9 +35,7 @@ -- which now generates concatenation inline. It is retained only because -- it may be used during bootstrapping using old versions of the compiler. -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); package System.String_Ops_Concat_5 is pragma Pure; diff --git a/gcc/ada/s-stache.adb b/gcc/ada/s-stache.adb index a3d6598d895..ffad2054481 100644 --- a/gcc/ada/s-stache.adb +++ b/gcc/ada/s-stache.adb @@ -29,9 +29,7 @@ -- -- ------------------------------------------------------------------------------ -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); -- As noted in the spec, this dummy body is present because otherwise we -- have bootstrapping path problems (there used to be a real body). diff --git a/gcc/ada/s-stache.ads b/gcc/ada/s-stache.ads index d2270e034cf..878b8a5270c 100644 --- a/gcc/ada/s-stache.ads +++ b/gcc/ada/s-stache.ads @@ -35,9 +35,7 @@ -- This package defines basic types and objects. Operations related to -- stack checking can be found in package System.Stack_Checking.Operations. -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); with System.Storage_Elements; diff --git a/gcc/ada/s-stalib.adb b/gcc/ada/s-stalib.adb index 8730b46aac2..ffea8d008cd 100644 --- a/gcc/ada/s-stalib.adb +++ b/gcc/ada/s-stalib.adb @@ -29,9 +29,7 @@ -- -- ------------------------------------------------------------------------------ -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); -- 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 @@ -43,7 +41,8 @@ pragma Polling (Off); -- elaboration circularities with Ada.Exceptions if polling is on. pragma Warnings (Off); --- Kill warnings from unused withs +-- Kill warnings from unused withs. These unused with's are here to make +-- sure the relevant units are loaded and properly elaborated. with System.Soft_Links; -- Referenced directly from generated code using external symbols so it diff --git a/gcc/ada/s-stalib.ads b/gcc/ada/s-stalib.ads index be0f0ad69f4..fb58642d01e 100644 --- a/gcc/ada/s-stalib.ads +++ b/gcc/ada/s-stalib.ads @@ -44,9 +44,7 @@ -- package and the packages it references are included in all Ada programs, -- together with the included data. -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-stoele.adb b/gcc/ada/s-stoele.adb index 4f9a05f7b41..0bab843c138 100644 --- a/gcc/ada/s-stoele.adb +++ b/gcc/ada/s-stoele.adb @@ -29,9 +29,7 @@ -- -- ------------------------------------------------------------------------------ -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); with Ada.Unchecked_Conversion; diff --git a/gcc/ada/s-stoele.ads b/gcc/ada/s-stoele.ads index 275728b78a7..af60beb5518 100644 --- a/gcc/ada/s-stoele.ads +++ b/gcc/ada/s-stoele.ads @@ -37,9 +37,7 @@ -- extra declarations that can be introduced into System using Extend_System. -- It is a good idea to avoid use clauses for this package! -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); package System.Storage_Elements is pragma Pure; @@ -66,12 +64,8 @@ package System.Storage_Elements is type Storage_Element is mod 2 ** Storage_Unit; for Storage_Element'Size use Storage_Unit; - pragma Warnings (Off); pragma Universal_Aliasing (Storage_Element); - pragma Warnings (On); - -- This type is used by the expansion to implement aggregate copy. - -- We turn off warnings for this pragma to deal with being compiled - -- with an earlier GNAT version that does not recognize this pragma. + -- This type is used by the expander to implement aggregate copy type Storage_Array is array (Storage_Offset range <>) of aliased Storage_Element; diff --git a/gcc/ada/s-strcom.adb b/gcc/ada/s-strcom.adb index acd1ac4e0ea..37ccc61380a 100644 --- a/gcc/ada/s-strcom.adb +++ b/gcc/ada/s-strcom.adb @@ -29,9 +29,7 @@ -- -- ------------------------------------------------------------------------------ -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); with Ada.Unchecked_Conversion; diff --git a/gcc/ada/s-strcom.ads b/gcc/ada/s-strcom.ads index 644667e9991..6d1a303c560 100644 --- a/gcc/ada/s-strcom.ads +++ b/gcc/ada/s-strcom.ads @@ -31,9 +31,7 @@ -- This package contains functions for runtime comparisons on strings -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); package System.String_Compare is diff --git a/gcc/ada/s-string.adb b/gcc/ada/s-string.adb index 24c4e31c42e..e1799eb4545 100755 --- a/gcc/ada/s-string.adb +++ b/gcc/ada/s-string.adb @@ -29,9 +29,7 @@ -- -- ------------------------------------------------------------------------------ -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); package body System.Strings is diff --git a/gcc/ada/s-string.ads b/gcc/ada/s-string.ads index 5273eb4e4bf..79ec1127298 100755 --- a/gcc/ada/s-string.ads +++ b/gcc/ada/s-string.ads @@ -35,9 +35,7 @@ -- be used by other predefined packages. User access to this package is via -- a renaming of this package in GNAT.String (file g-string.ads). -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); with Ada.Unchecked_Deallocation; diff --git a/gcc/ada/s-strops.adb b/gcc/ada/s-strops.adb index 4e1a999b46a..44a6a76bf15 100644 --- a/gcc/ada/s-strops.adb +++ b/gcc/ada/s-strops.adb @@ -33,9 +33,7 @@ -- which now generates concatenation inline. It is retained only because -- it may be used during bootstrapping using old versions of the compiler. -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); package body System.String_Ops is diff --git a/gcc/ada/s-strops.ads b/gcc/ada/s-strops.ads index 5f59fde37c5..54ac74578a6 100644 --- a/gcc/ada/s-strops.ads +++ b/gcc/ada/s-strops.ads @@ -36,9 +36,7 @@ -- which now generates concatenation inline. It is retained only because -- it may be used during bootstrapping using old versions of the compiler. -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); package System.String_Ops is pragma Pure; diff --git a/gcc/ada/s-ststop.adb b/gcc/ada/s-ststop.adb index cff6179a7f3..25f3bcd23c7 100644 --- a/gcc/ada/s-ststop.adb +++ b/gcc/ada/s-ststop.adb @@ -29,9 +29,7 @@ -- -- ------------------------------------------------------------------------------ -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); with Ada.Streams; use Ada.Streams; with Ada.Streams.Stream_IO; use Ada.Streams.Stream_IO; diff --git a/gcc/ada/s-ststop.ads b/gcc/ada/s-ststop.ads index 0b932f94087..db7059069b7 100644 --- a/gcc/ada/s-ststop.ads +++ b/gcc/ada/s-ststop.ads @@ -46,9 +46,7 @@ -- or -- String_Output_Blk_IO (Some_Stream, Some_String); -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); with Ada.Streams; diff --git a/gcc/ada/s-tassta.adb b/gcc/ada/s-tassta.adb index 0dd9ac3316f..84281cf827f 100644 --- a/gcc/ada/s-tassta.adb +++ b/gcc/ada/s-tassta.adb @@ -938,7 +938,7 @@ package body System.Tasking.Stages is Initialization.Undefer_Abort (Self_ID); end Move_Activation_Chain; - -- Compiler interface only. Do not call from within the RTS. + -- Compiler interface only. Do not call from within the RTS -------------------- -- Set_Entry_Name -- diff --git a/gcc/ada/s-traceb.adb b/gcc/ada/s-traceb.adb index 420030c6dbb..d4de95d7e05 100644 --- a/gcc/ada/s-traceb.adb +++ b/gcc/ada/s-traceb.adb @@ -34,9 +34,7 @@ -- Note: this unit must be compiled using -fno-optimize-sibling-calls. -- See comment below in body of Call_Chain for details on the reason. -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); package body System.Traceback is diff --git a/gcc/ada/s-traceb.ads b/gcc/ada/s-traceb.ads index 79a5f970053..0119b700a44 100644 --- a/gcc/ada/s-traceb.ads +++ b/gcc/ada/s-traceb.ads @@ -29,14 +29,11 @@ -- -- ------------------------------------------------------------------------------ --- This package provides a method for generating a traceback of the --- current execution location. The traceback shows the locations of --- calls in the call chain, up to either the top or a designated --- number of levels. +-- This package provides a method for generating a traceback of the current +-- execution location. The traceback shows the locations of calls in the call +-- chain, up to either the top or a designated number of levels. -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); pragma Polling (Off); -- We must turn polling off for this unit, because otherwise we get @@ -61,12 +58,11 @@ package System.Traceback is -- Traceback is the address of an array of addresses where the -- result will be stored. -- - -- Max_Len is the length of the Traceback array. If the call chain - -- is longer than this, then additional entries are discarded, and - -- the traceback is missing some of the highest level entries. + -- Max_Len is the length of the Traceback array. If the call chain is + -- longer than this, then additional entries are discarded, and the + -- traceback is missing some of the highest level entries. -- - -- Len is the returned actual number of addresses stored - -- in the Traceback array. + -- Len is the returned number of addresses stored in the Traceback array -- -- Exclude_Min/Exclude_Max, if non null, provide a range of addresses -- to ignore from the computation of the traceback. @@ -77,9 +73,9 @@ package System.Traceback is -- this procedure, 2 means 1 + exclude the frame for this procedure's -- caller, ... -- - -- On return, the Traceback array is filled in, and Len indicates - -- the number of stored entries. The first entry is the most recent - -- call, and the last entry is the highest level call. + -- On return, the Traceback array is filled in, and Len indicates the + -- number of stored entries. The first entry is the most recent call, + -- and the last entry is the highest level call. function C_Call_Chain (Traceback : System.Address; diff --git a/gcc/ada/s-traent.adb b/gcc/ada/s-traent.adb index 80af8be9964..343d30c8906 100644 --- a/gcc/ada/s-traent.adb +++ b/gcc/ada/s-traent.adb @@ -29,9 +29,7 @@ -- -- ------------------------------------------------------------------------------ -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); package body System.Traceback_Entries is diff --git a/gcc/ada/s-traent.ads b/gcc/ada/s-traent.ads index b353de128f9..cf24e0db52a 100644 --- a/gcc/ada/s-traent.ads +++ b/gcc/ada/s-traent.ads @@ -38,9 +38,7 @@ -- version of the package, an entry is a mere code location representing the -- address of a call instruction part of the call-chain. -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); package System.Traceback_Entries is pragma Preelaborate; diff --git a/gcc/ada/s-utf_32.adb b/gcc/ada/s-utf_32.adb index 712eb2c63b7..263f13efd9b 100755 --- a/gcc/ada/s-utf_32.adb +++ b/gcc/ada/s-utf_32.adb @@ -29,9 +29,7 @@ -- -- ------------------------------------------------------------------------------ -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); pragma Style_Checks (Off); -- Allow long lines in this unit diff --git a/gcc/ada/s-utf_32.ads b/gcc/ada/s-utf_32.ads index 5217e8bf3ac..41ed6d7927c 100755 --- a/gcc/ada/s-utf_32.ads +++ b/gcc/ada/s-utf_32.ads @@ -41,9 +41,7 @@ -- the same services. The reason this package is in System is so that it can -- with'ed by other packages in the Ada and System hierarchies. -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); package System.UTF_32 is diff --git a/gcc/ada/s-wchcnv.adb b/gcc/ada/s-wchcnv.adb index 05526094548..bb806f08aa5 100644 --- a/gcc/ada/s-wchcnv.adb +++ b/gcc/ada/s-wchcnv.adb @@ -29,9 +29,7 @@ -- -- ------------------------------------------------------------------------------ -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); with Interfaces; use Interfaces; with System.WCh_Con; use System.WCh_Con; diff --git a/gcc/ada/s-wchcnv.ads b/gcc/ada/s-wchcnv.ads index 6b7abe56103..887e2198cb7 100644 --- a/gcc/ada/s-wchcnv.ads +++ b/gcc/ada/s-wchcnv.ads @@ -43,9 +43,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); with System.WCh_Con; diff --git a/gcc/ada/s-wchcon.adb b/gcc/ada/s-wchcon.adb index 57fb73d3efa..45585d9f744 100755 --- a/gcc/ada/s-wchcon.adb +++ b/gcc/ada/s-wchcon.adb @@ -29,9 +29,7 @@ -- -- ------------------------------------------------------------------------------ -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); package body System.WCh_Con is diff --git a/gcc/ada/s-wchcon.ads b/gcc/ada/s-wchcon.ads index 68d9a122095..1a370698c08 100644 --- a/gcc/ada/s-wchcon.ads +++ b/gcc/ada/s-wchcon.ads @@ -36,9 +36,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.WCh_Con is pragma Pure; diff --git a/gcc/ada/s-wchjis.adb b/gcc/ada/s-wchjis.adb index c4604af0e2b..a005ec68d9b 100644 --- a/gcc/ada/s-wchjis.adb +++ b/gcc/ada/s-wchjis.adb @@ -29,9 +29,7 @@ -- -- ------------------------------------------------------------------------------ -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); package body System.WCh_JIS is diff --git a/gcc/ada/s-wchjis.ads b/gcc/ada/s-wchjis.ads index f66cdcb18a8..b91839704c2 100644 --- a/gcc/ada/s-wchjis.ads +++ b/gcc/ada/s-wchjis.ads @@ -32,9 +32,7 @@ -- This package contains routines used for converting between internal -- JIS codes and the two external forms we support (EUC and Shift-JIS) -pragma Warnings (Off); pragma Compiler_Unit; -pragma Warnings (On); package System.WCh_JIS is pragma Pure; diff --git a/gcc/ada/stand.ads b/gcc/ada/stand.ads index 29d80a15296..f2fadccad8e 100644 --- a/gcc/ada/stand.ads +++ b/gcc/ada/stand.ads @@ -35,13 +35,6 @@ with Types; use Types; --- Do we really need the with of Namet? - -pragma Warnings (Off); -with Namet; use Namet; -pragma Elaborate_All (Namet); -pragma Warnings (On); - package Stand is type Standard_Entity_Type is ( diff --git a/gcc/ada/xoscons.adb b/gcc/ada/xoscons.adb index efce54a1f11..4f5e4a291c7 100644 --- a/gcc/ada/xoscons.adb +++ b/gcc/ada/xoscons.adb @@ -23,14 +23,14 @@ -- -- ------------------------------------------------------------------------------ --- This program generates the spec of System.OS_Constants (s-oscons.ads). +-- This program generates the spec of System.OS_Constants (s-oscons.ads) -- It works in conjunction with a C template file which must be pre-processed -- and compiled using the cross compiler. Two input files are used: -- - the preprocessed C file: s-oscons-tmplt.i -- - the generated assembly file: s-oscons-tmplt.s --- The contents of s-oscons.ads is written on standard output. +-- The contents of s-oscons.ads is written on standard output with Ada.Characters.Handling; use Ada.Characters.Handling; with Ada.Exceptions; use Ada.Exceptions; |