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.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146262 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 10 insertions, 14 deletions

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;