a-except-2005.adb, [...]: Remove obsolete comments.

2014-07-30  Bob Duff  <duff@adacore.com>

	* a-except-2005.adb, a-except.adb: Remove obsolete comments.
	* s-traceb.ads: Updagte comments.

From-SVN: r213281

4 files changed, 11 insertions, 27 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index ee7d601..a5453b2 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2014-07-30  Bob Duff  <duff@adacore.com>
+
+	* a-except-2005.adb, a-except.adb: Remove obsolete comments.
+	* s-traceb.ads: Updagte comments.
+
 2014-07-30  Robert Dewar  <dewar@adacore.com>
 
 	* checks.adb, a-cihase.adb, a-cihase.ads, a-chtgop.adb, a-chtgop.ads,
diff --git a/gcc/ada/a-except-2005.adb b/gcc/ada/a-except-2005.adb
index 85adb7c..db97068 100644
--- a/gcc/ada/a-except-2005.adb
+++ b/gcc/ada/a-except-2005.adb
@@ -159,8 +159,7 @@ package body Ada.Exceptions is
       --  The lines are separated by a ASCII.LF character.
       --  The nnnn is the partition Id given as decimal digits.
       --  The 0x... line represents traceback program counter locations, in
-      --  execution order with the first one being the exception location. It
-      --  is present only
+      --  execution order with the first one being the exception location.
       --
       --  The Exception_Name and Message lines are omitted in the abort
       --  signal case, since this is not really an exception.
@@ -168,15 +167,6 @@ package body Ada.Exceptions is
       --  Note: If the format of the generated string is changed, please note
       --  that an equivalent modification to the routine String_To_EO must be
       --  made to preserve proper functioning of the stream attributes.
-      --
-      --  What is automatically output when exception tracing is on is the
-      --  usual exception information with the call chain backtrace possibly
-      --  tailored by a backtrace decorator. Modifying Exception_Information
-      --  itself is not a good idea because the decorated output is completely
-      --  out of control and would break all our code related to the streaming
-      --  of exceptions. We then provide an alternative function to compute
-      --  the possibly tailored output, which is equivalent if no decorator is
-      --  currently set:
 
       function Exception_Information (X : Exception_Occurrence) return String;
       --  This is the implementation of Ada.Exceptions.Exception_Information,
diff --git a/gcc/ada/a-except.adb b/gcc/ada/a-except.adb
index e759008..a436d6f 100644
--- a/gcc/ada/a-except.adb
+++ b/gcc/ada/a-except.adb
@@ -137,8 +137,7 @@ package body Ada.Exceptions is
       --  The lines are separated by a ASCII.LF character.
       --  The nnnn is the partition Id given as decimal digits.
       --  The 0x... line represents traceback program counter locations, in
-      --  execution order with the first one being the exception location. It
-      --  is present only
+      --  execution order with the first one being the exception location.
       --
       --  The Exception_Name and Message lines are omitted in the abort
       --  signal case, since this is not really an exception.
@@ -146,15 +145,6 @@ package body Ada.Exceptions is
       --  Note: If the format of the generated string is changed, please note
       --  that an equivalent modification to the routine String_To_EO must be
       --  made to preserve proper functioning of the stream attributes.
-      --
-      --  What is automatically output when exception tracing is on is the
-      --  usual exception information with the call chain backtrace possibly
-      --  tailored by a backtrace decorator. Modifying Exception_Information
-      --  itself is not a good idea because the decorated output is completely
-      --  out of control and would break all our code related to the streaming
-      --  of exceptions. We then provide an alternative function to compute
-      --  the possibly tailored output, which is equivalent if no decorator is
-      --  currently set:
 
       function Exception_Information (X : Exception_Occurrence) return String;
       --  This is the implementation of Ada.Exceptions.Exception_Information,
diff --git a/gcc/ada/s-traceb.ads b/gcc/ada/s-traceb.ads
index b149268..67affcd 100644
--- a/gcc/ada/s-traceb.ads
+++ b/gcc/ada/s-traceb.ads
@@ -54,17 +54,16 @@ package System.Traceback is
       Exclude_Min : System.Address := System.Null_Address;
       Exclude_Max : System.Address := System.Null_Address;
       Skip_Frames : Natural := 1);
-   --  Store up to Max_Len code locations in Traceback, corresponding to
-   --  the current call chain.
+   --  Store up to Max_Len code locations in Traceback, corresponding to the
+   --  current call chain.
    --
-   --    Traceback is the address of an array of addresses where the
-   --    result will be stored.
+   --    Traceback is 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.
    --
-   --    Len is the returned number of addresses stored in the Traceback array
+   --    Len is the number of addresses returned in the Traceback array
    --
    --    Exclude_Min/Exclude_Max, if non null, provide a range of addresses
    --    to ignore from the computation of the traceback.