diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-01-03 15:38:00 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-01-03 15:38:00 +0000 |
| commit | ccf752cc331381b0a5882041a051081a4adf15a0 (patch) | |
| tree | a880071829d5f8e8710dd1390481cba4d860b9fd /gcc/ada/exp_ch7.ads | |
| parent | 726ace2b071657807c0e35a969d6bbbb1ea21533 (diff) | |
| download | gcc-ccf752cc331381b0a5882041a051081a4adf15a0.tar.gz | |
* exp_ch7.ads (Make_Final_Call): Rewrite comment (was incorrectly
copied from Make_Init_Call).
* exp_strm.adb (Build_Mutable_Record_Read_Procedure): Do component
reads and assignments on a temporary variable declared with appropriate
discriminants.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@92838 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch7.ads')
| -rw-r--r-- | gcc/ada/exp_ch7.ads | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/gcc/ada/exp_ch7.ads b/gcc/ada/exp_ch7.ads index e541758e05a..75d2507c7d0 100644 --- a/gcc/ada/exp_ch7.ads +++ b/gcc/ada/exp_ch7.ads @@ -95,7 +95,7 @@ package Exp_Ch7 is -- initialized. Typ is the expected type of Ref, which is a controlled -- type (Is_Controlled) or a type with controlled components -- (Has_Controlled). With_Attach is an integer expression representing - -- the level of attachment, see Attach_To_Final_Lists' NB_Link param + -- the level of attachment, see Attach_To_Final_List's Nb_Link param -- documentation in s-finimp.ads. -- -- This function will generate the appropriate calls to make @@ -114,7 +114,7 @@ package Exp_Ch7 is -- adjusted. Typ is the expected type of Ref, which is a controlled -- type (Is_Controlled) or a type with controlled components -- (Has_Controlled). With_Attach is an integer expression representing - -- the level of attachment, see Attach_To_Final_Lists' NB_Link param + -- the level of attachment, see Attach_To_Final_List's Nb_Link param -- documentation in s-finimp.ads. -- -- This function will generate the appropriate calls to make @@ -133,10 +133,9 @@ package Exp_Ch7 is -- to have been previously analyzed) that references the object to -- be Finalized. Typ is the expected type of Ref, which is a -- controlled type (Is_Controlled) or a type with controlled - -- components (Has_Controlled). With_Attach is an integer - -- expression representing the level of attachment, see - -- Attach_To_Final_Lists' NB_Link param documentation in - -- s-finimp.ads. + -- components (Has_Controlled). With_Detach is a boolean expression + -- indicating whether to detach the controlled object from whatever + -- finalization list it is currently attached to. -- -- This function will generate the appropriate calls to make -- sure that the objects referenced by Ref are finalized. The generated |