diff options
author | Robert Dewar <dewar@adacore.com> | 2014-01-29 15:34:14 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-01-29 16:34:14 +0100 |
commit | d0e6940256a41b142fc109acebeb3dd6284a700c (patch) | |
tree | ea409045cd6ddfb89320db52464b5594f1d1b738 /gcc/ada/sem_ch7.ads | |
parent | 5627964c4ae9de7ac15ed4a4e833a2a27e534e2b (diff) | |
download | gcc-d0e6940256a41b142fc109acebeb3dd6284a700c.zip gcc-d0e6940256a41b142fc109acebeb3dd6284a700c.tar.gz gcc-d0e6940256a41b142fc109acebeb3dd6284a700c.tar.bz2 |
exp_ch9.adb, [...]: Minor reformatting and code clean up.
2014-01-29 Robert Dewar <dewar@adacore.com>
* exp_ch9.adb, sem_ch7.ads, s-regexp.adb, sem_ch13.adb: Minor
reformatting and code clean up.
* gnat_ugn.texi: Add documentation section on Atomic Variables
and Optimization.
From-SVN: r207253
Diffstat (limited to 'gcc/ada/sem_ch7.ads')
-rw-r--r-- | gcc/ada/sem_ch7.ads | 27 |
1 files changed, 13 insertions, 14 deletions
diff --git a/gcc/ada/sem_ch7.ads b/gcc/ada/sem_ch7.ads index 2ee0c9e..b74e466 100644 --- a/gcc/ada/sem_ch7.ads +++ b/gcc/ada/sem_ch7.ads @@ -35,13 +35,13 @@ package Sem_Ch7 is procedure Analyze_Package_Body_Contract (Body_Id : Entity_Id); -- Analyze all delayed aspects chained on the contract of package body -- Body_Id as if they appeared at the end of a declarative region. The - -- aspects in consideration are: + -- aspects that are considered are: -- Refined_State procedure Analyze_Package_Contract (Pack_Id : Entity_Id); -- Analyze all delayed aspects chained on the contract of package Pack_Id - -- as if they appeared at the end of a declarative region. The aspects in - -- consideration are: + -- as if they appeared at the end of a declarative region. The aspects + -- that are considered are: -- Initial_Condition -- Initializes -- Part_Of @@ -59,7 +59,7 @@ package Sem_Ch7 is -- On entrance to a package body, make declarations in package spec -- immediately visible. - + -- -- When compiling the body of a package, both routines are called in -- succession. When compiling the body of a child package, the call -- to Install_Private_Declaration is immediate for private children, @@ -86,17 +86,16 @@ package Sem_Ch7 is -- calling stubs. procedure New_Private_Type (N : Node_Id; Id : Entity_Id; Def : Node_Id); - -- Common processing for private type declarations and for formal - -- private type declarations. For private types, N and Def are the type - -- declaration node; for formal private types, Def is the formal type - -- definition. + -- Common processing for private type declarations and for formal private + -- type declarations. For private types, N and Def are the type declaration + -- node; for formal private types, Def is the formal type definition. procedure Uninstall_Declarations (P : Entity_Id); - -- At the end of a package declaration or body, declarations in the - -- visible part are no longer immediately visible, and declarations in - -- the private part are not visible at all. For inner packages, place - -- visible entities at the end of their homonym chains. For compilation - -- units, make all entities invisible. In both cases, exchange private - -- and visible declarations to restore order of elaboration. + -- At the end of a package declaration or body, declarations in the visible + -- part are no longer immediately visible, and declarations in the private + -- part are not visible at all. For inner packages, place visible entities + -- at the end of their homonym chains. For compilation units, make + -- all entities invisible. In both cases, exchange private and visible + -- declarations to restore order of elaboration. end Sem_Ch7; |