From 734e72dde61bef5ab77f5f18c2a9e6b979098fba Mon Sep 17 00:00:00 2001 From: Bob Duff Date: Wed, 30 Jul 2014 14:22:38 +0000 Subject: a-except-2005.adb, [...]: Remove obsolete comments. 2014-07-30 Bob Duff * a-except-2005.adb, a-except.adb: Remove obsolete comments. * s-traceb.ads: Updagte comments. From-SVN: r213281 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/a-except-2005.adb | 12 +----------- gcc/ada/a-except.adb | 12 +----------- gcc/ada/s-traceb.ads | 9 ++++----- 4 files changed, 11 insertions(+), 27 deletions(-) (limited to 'gcc') 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 + + * a-except-2005.adb, a-except.adb: Remove obsolete comments. + * s-traceb.ads: Updagte comments. + 2014-07-30 Robert Dewar * 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. -- cgit v1.1