aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/a-except-2005.ads
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-07-27 14:01:00 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-07-27 14:01:00 +0000
commitb5bdcf5dc18f5b6858fe609b7e4f31b8a1c8fe0b (patch)
tree53b02a8e5ca17e38ee9748b1580d30ede2c142c5 /gcc/ada/a-except-2005.ads
parentad003cee6ccc8d6997268df5c332f17c530470cf (diff)
2009-07-27 Sergey Rybin <rybin@adacore.com>
* gnat_ugn.texi: gnatcheck Unconstrained_Array_Returns rule: Add to the rule definition the paragraph that explains that generic functions and functions from generic packages are not checked. 2009-07-27 Gary Dismukes <dismukes@adacore.com> * sem_ch6.adb (New_Overloaded_Entity): Add test for an expanded null procedure when determining whether to set the Overridden_Operation field of a subprogram overriding an inherited subprogram. 2009-07-27 Robert Dewar <dewar@adacore.com> * a-except.adb, a-except-2005.ads: Minor reformatting git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@150120 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-except-2005.ads')
-rw-r--r--gcc/ada/a-except-2005.ads27
1 files changed, 15 insertions, 12 deletions
diff --git a/gcc/ada/a-except-2005.ads b/gcc/ada/a-except-2005.ads
index 5c00cf5b576..033244dcd92 100644
--- a/gcc/ada/a-except-2005.ads
+++ b/gcc/ada/a-except-2005.ads
@@ -115,7 +115,9 @@ package Ada.Exceptions is
-- 0xyyyyyyyy 0xyyyyyyyy ...
--
-- The lines are separated by a ASCII.LF character
- -- The nnnn is the partition Id given as decimal digits.
+ --
+ -- The nnnn is the partition Id given as decimal digits
+ --
-- The 0x... line represents traceback program counter locations,
-- in order with the first one being the exception location.
@@ -184,13 +186,13 @@ private
pragma Export
(Ada, Current_Target_Exception,
"__gnat_current_target_exception");
- -- This routine should return the current raised exception on targets
- -- which have built-in exception handling such as the Java Virtual
- -- Machine. For other targets this routine is simply ignored. Currently,
- -- only JGNAT uses this. See 4jexcept.ads for details. The pragma Export
- -- allows this routine to be accessed elsewhere in the run-time, even
- -- though it is in the private part of this package (it is not allowed
- -- to be in the visible part, since this is set by the reference manual).
+ -- This routine should return the current raised exception on targets which
+ -- have built-in exception handling such as the Java Virtual Machine. For
+ -- other targets this routine is simply ignored. Currently, only JGNAT
+ -- uses this. See 4jexcept.ads for details. The pragma Export allows this
+ -- routine to be accessed elsewhere in the run-time, even though it is in
+ -- the private part of this package (it is not allowed to be in the visible
+ -- part, since this is set by the reference manual).
function Exception_Name_Simple (X : Exception_Occurrence) return String;
-- Like Exception_Name, but returns the simple non-qualified name of the
@@ -230,8 +232,8 @@ private
procedure Raise_From_Controlled_Operation
(X : Ada.Exceptions.Exception_Occurrence);
pragma No_Return (Raise_From_Controlled_Operation);
- -- Raise Program_Error, providing information about X (an exception
- -- raised during a controlled operation) in the exception message.
+ -- Raise Program_Error, providing information about X (an exception raised
+ -- during a controlled operation) in the exception message.
procedure Reraise_Occurrence_Always (X : Exception_Occurrence);
pragma No_Return (Reraise_Occurrence_Always);
@@ -244,8 +246,8 @@ private
pragma No_Return (Reraise_Occurrence_No_Defer);
-- Exactly like Reraise_Occurrence, except that abort is not deferred
-- before the call and the parameter X is known not to be the null
- -- occurrence. This is used in generated code when it is known that
- -- abort is already deferred.
+ -- occurrence. This is used in generated code when it is known that abort
+ -- is already deferred.
-----------------------
-- Polling Interface --
@@ -287,6 +289,7 @@ private
type Exception_Occurrence is record
Id : Exception_Id;
-- Exception_Identity for this exception occurrence
+ --
-- WARNING System.System.Finalization_Implementation.Finalize_List
-- relies on the fact that this field is always first in the exception
-- occurrence