diff options
| author | Robert Dewar <dewar@adacore.com> | 2010-10-22 10:04:20 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-22 12:04:20 +0200 |
| commit | 00c7151cdf1d73504a4154bf3e630008dd1bc7d3 (patch) | |
| tree | b6bc93213e84a172cc2f10ff4b4229bc8f9f3daa /gcc/ada/sinfo.ads | |
| parent | c0f136cd17132ceeb25dadb4c97f474d37924cbd (diff) | |
| download | gcc-00c7151cdf1d73504a4154bf3e630008dd1bc7d3.zip gcc-00c7151cdf1d73504a4154bf3e630008dd1bc7d3.tar.gz gcc-00c7151cdf1d73504a4154bf3e630008dd1bc7d3.tar.bz2 | |
exp_ch5.adb, [...]: Minor reformatting.
2010-10-22 Robert Dewar <dewar@adacore.com>
* exp_ch5.adb, par-ch4.adb, par-ch5.adb, sem_ch5.adb, sinfo.ads: Minor
reformatting.
From-SVN: r165814
Diffstat (limited to 'gcc/ada/sinfo.ads')
| -rw-r--r-- | gcc/ada/sinfo.ads | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads index 3608ad8..186b789 100644 --- a/gcc/ada/sinfo.ads +++ b/gcc/ada/sinfo.ads @@ -1544,10 +1544,6 @@ package Sinfo is -- is used for properly setting out of range values for use by pragmas -- Initialize_Scalars and Normalize_Scalars. - -- Of_Present (Flag16) - -- Present in N_Iterator_Specification nodes, to mark the Ada 2012 iterator - -- form over arrays and containers. - -- Original_Discriminant (Node2-Sem) -- Present in identifiers. Used in references to discriminants that -- appear in generic units. Because the names of the discriminants may be @@ -4220,6 +4216,8 @@ package Sinfo is -- Of_Present (Flag16) -- Subtype_Indication (Node5) + -- Note: The Of_Present flag distinguishes the two forms + -------------------------- -- 5.6 Block Statement -- -------------------------- @@ -11758,6 +11756,7 @@ package Sinfo is pragma Inline (Inherited_Discriminant); pragma Inline (Instance_Spec); pragma Inline (Intval); + pragma Inline (Iterator_Specification); pragma Inline (Is_Accessibility_Actual); pragma Inline (Is_Asynchronous_Call_Block); pragma Inline (Is_Component_Left_Opnd); @@ -11821,6 +11820,7 @@ package Sinfo is pragma Inline (Null_Exclusion_In_Return_Present); pragma Inline (Null_Record_Present); pragma Inline (Object_Definition); + pragma Inline (Of_Present); pragma Inline (Original_Discriminant); pragma Inline (Original_Entity); pragma Inline (Others_Discrete_Choices); @@ -12072,6 +12072,7 @@ package Sinfo is pragma Inline (Set_Inherited_Discriminant); pragma Inline (Set_Instance_Spec); pragma Inline (Set_Intval); + pragma Inline (Set_Iterator_Specification); pragma Inline (Set_Is_Accessibility_Actual); pragma Inline (Set_Is_Asynchronous_Call_Block); pragma Inline (Set_Is_Component_Left_Opnd); @@ -12136,6 +12137,7 @@ package Sinfo is pragma Inline (Set_Null_Exclusion_In_Return_Present); pragma Inline (Set_Null_Record_Present); pragma Inline (Set_Object_Definition); + pragma Inline (Set_Of_Present); pragma Inline (Set_Original_Discriminant); pragma Inline (Set_Original_Entity); pragma Inline (Set_Others_Discrete_Choices); |