OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update comments.

Browse Source 
From-SVN: r164188
This commit is contained in:
Arnaud Charlet 2010-09-10 17:12:04 +02:00
parent c768e988ec
commit e5536c0938
1 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
gcc/ada/sem_ch6.adb
View File

@ -5652,19 +5652,18 @@ package body Sem_Ch6 is
E, BIP_Formal_Suffix (BIP_Alloc_Form));
end if;
-- In the case of functions whose result type has controlled
-- parts, we have an extra formal of type
-- System.Finalization_Implementation.Finalizable_Ptr_Ptr. That
-- is, we are passing a pointer to a finalization list (which is
-- itself a pointer). This extra formal is then passed along to
-- Move_Final_List in case of successful completion of a return
-- statement. We cannot pass an 'in out' parameter, because we
-- need to update the finalization list during an abort-deferred
-- region, rather than using copy-back after the function
-- returns. This is true even if we are able to get away with
-- having 'in out' parameters, which are normally illegal for
-- functions. This formal is also needed when the function has
-- a tagged result.
-- For functions whose result type has controlled parts, we have
-- an extra formal of type System.Finalization_Implementation.
-- Finalizable_Ptr_Ptr. That is, we are passing a pointer to a
-- finalization list (which is itself a pointer). This extra
-- formal is then passed along to Move_Final_List in case of
-- successful completion of a return statement. We cannot pass an
-- 'in out' parameter, because we need to update the finalization
-- list during an abort-deferred region, rather than using
-- copy-back after the function returns. This is true even if we
-- are able to get away with having 'in out' parameters, which are
-- normally illegal for functions. This formal is also needed when
-- the function has a tagged result.
if Needs_BIP_Final_List (E) then
Discard :=