diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-16 14:03:00 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-16 14:03:00 +0000 |
| commit | 865bc7c67663a5cac6c0f94138bd726283b78397 (patch) | |
| tree | fcd24794771ee85269b3df27270adacde1114f64 /gcc/ada/exp_ch4.adb | |
| parent | 8edddf501d19cd29ff23d7ea731c66f3d3a1c8ff (diff) | |
| download | gcc-865bc7c67663a5cac6c0f94138bd726283b78397.tar.gz | |
2014-07-16 Robert Dewar <dewar@adacore.com>
* exp_util.adb, sem_attr.adb, exp_ch4.adb, a-cohase.ads,
a-coinho-shared.adb, a-coinho-shared.ads: Minor reformatting.
2014-07-16 Robert Dewar <dewar@adacore.com>
* gnat_ugn.texi: Add note that integrated
preprocessing cannot be applied to configuration pragma files.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@212648 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch4.adb')
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 1ef60a29b2c..4f60b312c7c 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -12558,7 +12558,7 @@ package body Exp_Ch4 is Temp_Id : Entity_Id; Temp_Ins : Node_Id; - Hook_Context : constant Node_Id := Find_Hook_Context (Rel_Node); + Hook_Context : constant Node_Id := Find_Hook_Context (Rel_Node); -- Node on which to insert the hook pointer (as an action): the -- innermost enclosing non-transient scope. @@ -12566,8 +12566,8 @@ package body Exp_Ch4 is -- Node after which to insert finalization actions Finalize_Always : Boolean; - -- If False, call to finalizer includes a test of whether the - -- hook pointer is null. + -- If False, call to finalizer includes a test of whether the hook + -- pointer is null. In_Cond_Expr : constant Boolean := Within_Case_Or_If_Expression (Rel_Node); @@ -12582,11 +12582,11 @@ package body Exp_Ch4 is if Is_Boolean_Type (Etype (Rel_Node)) then - -- In this case, the finalization context is chosen so that - -- we know at finalization point that the hook pointer is - -- never null, so no need for a test, we can call the finalizer - -- unconditionally, except in the case where the object is - -- created in a specific branch of a conditional expression. + -- In this case, the finalization context is chosen so that we know + -- at finalization point that the hook pointer is never null, so no + -- need for a test, we can call the finalizer unconditionally, except + -- in the case where the object is created in a specific branch of a + -- conditional expression. Finalize_Always := not (In_Cond_Expr |