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

exp_ch6.adb: Minor reformatting 

2008-08-22  Robert Dewar  <dewar@adacore.com>

	* exp_ch6.adb: Minor reformatting

From-SVN: r139459
This commit is contained in:
Robert Dewar 2008-08-22 15:25:29 +02:00 committed by Arnaud Charlet
parent b572daf1c8
commit 8fb68c5664
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/ada/exp_ch6.adb
View File

@ -5591,9 +5591,14 @@ package body Exp_Ch6 is
end if;
end Make_Build_In_Place_Call_In_Object_Declaration;
--------------------------
-- Needs_BIP_Final_List --
--------------------------
function Needs_BIP_Final_List (E : Entity_Id) return Boolean is
pragma Assert (Is_Build_In_Place_Function (E));
Result_Subt : constant Entity_Id := Underlying_Type (Etype (E));
begin
-- We need the BIP_Final_List if the result type needs finalization. We
-- also need it for tagged types, even if not class-wide, because some
@ -5602,7 +5607,7 @@ package body Exp_Ch6 is
-- pragma Restrictions (No_Finalization), we never need this parameter.
return (Needs_Finalization (Result_Subt)
or else Is_Tagged_Type (Underlying_Type (Result_Subt)))
or else Is_Tagged_Type (Underlying_Type (Result_Subt)))
and then not Restriction_Active (No_Finalization);
end Needs_BIP_Final_List;