diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 12:34:32 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 12:34:32 +0200 |
| commit | 1d10f669bca9221d5e89d413f5a479bd191bdfc0 (patch) | |
| tree | 20049d71bee87808eccf7c9bbef6485f4049694c /gcc/ada/sem_util.ads | |
| parent | 86187d0fe0984bc90f70b3742ef09b06e0bbb673 (diff) | |
| download | gcc-1d10f669bca9221d5e89d413f5a479bd191bdfc0.zip gcc-1d10f669bca9221d5e89d413f5a479bd191bdfc0.tar.gz gcc-1d10f669bca9221d5e89d413f5a479bd191bdfc0.tar.bz2 | |
[multiple changes]
2011-08-29 Tristan Gingold <gingold@adacore.com>
* exp_sel.ads (Build_Abort_BLock_Handler): New function spec.
Adjust comment.
* exp_sel.adb (Build_Abort_Block): Use Build_Abort_Block_Handler.
(Build_Abort_Block_Handler): New function to build an Abort_Signal
exception handler.
* exp_ch9.adb (Expand_N_Asynchronous_Select): Call
Build_Abort_Block_Handler to build the exception handler. Do not
undefer aborts for the Abort_Signal exception handler if back-end
exception mechanism.
* exp_ch11.adb (Expand_Exception_Handlers): Do not undefer aborts if
back_end exceptions for all others and abort_signal.
* s-except.ads (ZCX_By_Default): New constant.
* a-except-2005.adb (Raise_Exception): Do not defer abort if ZCX.
(Raise_Exception_Always): Ditto.
(Raise_From_Signal_Handler): Ditto.
(Raise_With_Location_And_Msg): Ditto.
(Raise_With_Msg): Ditto.
(Reraise): Ditto.
(Reraise_Occurence): Ditto.
(Reraise_Occurrence_Always): Ditto.
* s-tasren.adb (Exceptional_Complete_Rendezvous): Defer aborts if ZCX.
* s-tpobop.adb: (Exceptional_Complete_Body): Undefer abort if ZCX.
* s-interr-hwint.adb (Interrupt_Manager): Defer abort if ZCX.
2011-08-29 Thomas Quinot <quinot@adacore.com>
* sem_util.ads (Get_Enum_Lit_From_Pos): Clarify documentation.
From-SVN: r178194
Diffstat (limited to 'gcc/ada/sem_util.ads')
| -rw-r--r-- | gcc/ada/sem_util.ads | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index ef2d355..1d0d23e 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -507,11 +507,11 @@ package Sem_Util is (T : Entity_Id; Pos : Uint; Loc : Source_Ptr) return Node_Id; - -- This function obtains the E_Enumeration_Literal entity for the specified - -- value from the enumeration type or subtype T and returns an identifier - -- node referencing this value. The second argument is the Pos value, which - -- is assumed to be in range. The third argument supplies a source location - -- for constructed nodes returned by this function. + -- This function returns an identifier denoting the E_Enumeration_Literal + -- entity for the specified value from the enumeration type or subtype T. + -- The second argument is the Pos value, which is assumed to be in range. + -- The third argument supplies a source location for constructed nodes + -- returned by this function. procedure Get_Library_Unit_Name_String (Decl_Node : Node_Id); -- Retrieve the fully expanded name of the library unit declared by @@ -1297,7 +1297,7 @@ package Sem_Util is procedure Set_Current_Entity (E : Entity_Id); pragma Inline (Set_Current_Entity); -- Establish the entity E as the currently visible definition of its - -- associated name (i.e. the Node_Id associated with its name) + -- associated name (i.e. the Node_Id associated with its name). procedure Set_Debug_Info_Needed (T : Entity_Id); -- Sets the Debug_Info_Needed flag on entity T , and also on any entities |