diff options
author | Arnaud Charlet <charlet@adacore.com> | 2008-05-20 13:00:35 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-20 15:00:35 +0200 |
commit | 6357e162e858166f0671d29efd283d312e9081f4 (patch) | |
tree | 019cee44659d3c265e46c52c94860d11932c8268 /gcc/ada/exp_ch9.ads | |
parent | 1b686dc45ca0b09fb611414857ffb2d284e45bf6 (diff) | |
download | gcc-6357e162e858166f0671d29efd283d312e9081f4.zip gcc-6357e162e858166f0671d29efd283d312e9081f4.tar.gz gcc-6357e162e858166f0671d29efd283d312e9081f4.tar.bz2 |
Minor reformatting.
Update comments.
From-SVN: r135653
Diffstat (limited to 'gcc/ada/exp_ch9.ads')
-rw-r--r-- | gcc/ada/exp_ch9.ads | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/gcc/ada/exp_ch9.ads b/gcc/ada/exp_ch9.ads index 2628e15..0e9715d 100644 --- a/gcc/ada/exp_ch9.ads +++ b/gcc/ada/exp_ch9.ads @@ -158,17 +158,15 @@ package Exp_Ch9 is function Convert_Concurrent (N : Node_Id; - Typ : Entity_Id) - return Node_Id; - -- N is an expression of type Typ. If the type is not a concurrent - -- type then it is returned unchanged. If it is a task or protected - -- reference, Convert_Concurrent creates an unchecked conversion node - -- from this expression to the corresponding concurrent record type - -- value. We need this in any situation where the concurrent type is - -- used, because the actual concurrent object is an object of the - -- corresponding concurrent type, and manipulations on the concurrent - -- object actually manipulate the corresponding object of the record - -- type. + Typ : Entity_Id) return Node_Id; + -- N is an expression of type Typ. If the type is not a concurrent type + -- then it is returned unchanged. If it is a task or protected reference, + -- Convert_Concurrent creates an unchecked conversion node from this + -- expression to the corresponding concurrent record type value. We need + -- this in any situation where the concurrent type is used, because the + -- actual concurrent object is an object of the corresponding concurrent + -- type, and manipulations on the concurrent object actually manipulate the + -- corresponding object of the record type. function Entry_Index_Expression (Sloc : Source_Ptr; |