diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-20 13:00:35 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-20 13:00:35 +0000 |
commit | e075b3c2c2e2c17df72e9ab2009f2b8abcf20fd2 (patch) | |
tree | 019cee44659d3c265e46c52c94860d11932c8268 /gcc/ada/exp_ch9.ads | |
parent | 93ca8030e91199ffe5141459c47c314bea0771de (diff) | |
download | gcc-e075b3c2c2e2c17df72e9ab2009f2b8abcf20fd2.tar.gz |
Minor reformatting.
Update comments.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135653 138bc75d-0d04-0410-961f-82ee72b054a4
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 2628e150ca1..0e9715dde0d 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; |