diff options
| author | Robert Dewar <dewar@adacore.com> | 2011-08-30 13:31:38 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-30 15:31:38 +0200 |
| commit | 996c8821a235a2313d3574d0815044847f7b5c14 (patch) | |
| tree | 2f3990f111f9ff03c198e8c4705bb7595db190bc /gcc/ada/sem_util.ads | |
| parent | 8ed6164c72a03658c50da50f2ead9ed18d41b727 (diff) | |
| download | gcc-996c8821a235a2313d3574d0815044847f7b5c14.zip gcc-996c8821a235a2313d3574d0815044847f7b5c14.tar.gz gcc-996c8821a235a2313d3574d0815044847f7b5c14.tar.bz2 | |
exp_ch5.adb, [...]: Minor reformatting
2011-08-30 Robert Dewar <dewar@adacore.com>
* exp_ch5.adb, sem_ch3.adb, sem_ch5.adb, einfo.adb, checks.adb,
sem_util.adb, sem_util.ads, sem_res.adb, s-stposu.adb, sem_attr.adb,
exp_ch4.adb, exp_ch6.adb, s-bbthre.adb, lib-xref-alfa.adb,
sem_ch8.adb, sem_disp.adb, exp_ch3.adb: Minor reformatting
2011-08-30 Robert Dewar <dewar@adacore.com>
* gnat_rm.texi: Add section on C.6(16) implementation advice for pragma
volatile.
From-SVN: r178303
Diffstat (limited to 'gcc/ada/sem_util.ads')
| -rw-r--r-- | gcc/ada/sem_util.ads | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index 2b7a932..97d8e80 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -293,13 +293,12 @@ package Sem_Util is -- from a library package which is not within any subprogram. function Deepest_Type_Access_Level (Typ : Entity_Id) return Uint; - -- Same as Type_Access_Level, except that if the - -- type is the type of an Ada 2012 stand-alone object of an - -- anonymous access type, then return the static accesssibility level - -- of the object. In that case, the dynamic accessibility level - -- of the object may take on values in a range. The low bound of - -- of that range is returned by Type_Access_Level; this - -- function yields the high bound of that range. + -- Same as Type_Access_Level, except that if the type is the type of an Ada + -- 2012 stand-alone object of an anonymous access type, then return the + -- static accesssibility level of the object. In that case, the dynamic + -- accessibility level of the object may take on values in a range. The low + -- bound of of that range is returned by Type_Access_Level; this function + -- yields the high bound of that range. function Defining_Entity (N : Node_Id) return Entity_Id; -- Given a declaration N, returns the associated defining entity. If the @@ -342,10 +341,10 @@ package Sem_Util is -- name, a defining program unit name or an identifier. function Dynamic_Accessibility_Level (Expr : Node_Id) return Node_Id; - -- Expr should be an expression of an access type. - -- Builds an integer literal except in cases involving anonymous - -- access types where accessibility levels are tracked at runtime - -- (access parameters and Ada 2012 stand-alone objects). + -- Expr should be an expression of an access type. Builds an integer + -- literal except in cases involving anonymous access types where + -- accessibility levels are tracked at runtime (access parameters and Ada + -- 2012 stand-alone objects). function Effective_Extra_Accessibility (Id : Entity_Id) return Entity_Id; -- Same as Einfo.Extra_Accessibility except thtat object renames |