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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index ee7d601b3936f814cde6166d35ae4cd40c1c9e33..a5453b2b46af70daf9df2cb09478b504cee2d41c 100644 (file)
--- 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 85adb7c4a1e6713e5ed8780fa07d685716475f14..db97068e9c9f2ac18e7246db02d4e8ed20abf16d 100644 (file)
--- 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 e75900851804c921214c13ac8648277e60e23010..a436d6fb7258f9d6f0942932608644bb6bee70fa 100644 (file)
--- 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 b14926817bde8bd72b2ada34687aa7bce436a473..67affcd0147415013e791447bfbc02502457444e 100644 (file)
--- 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.