ada: Fix extra formal mismatch

This fixes the criterion that determines whether to add finalization
collection extra formals to BIP functions.

gcc/ada/ChangeLog:

	* exp_ch6.adb (Needs_BIP_Collection): Fix condition.

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index 09156d987022c7bad9fd4c1c623c63fb67dafc3d..6a322be004ffd9c773eb4b1a670d9e7ab2ce9053 100644 (file)
--- a/gcc/ada/exp_ch6.adb
+++ b/gcc/ada/exp_ch6.adb
@@ -9932,8 +9932,7 @@ package body Exp_Ch6 is
 
       return not Restriction_Active (No_Finalization)
         and then (Needs_Finalization (Typ) or else Is_Tagged_Type (Typ))
-        and then not Has_Relaxed_Finalization (Typ)
-        and then not Has_Foreign_Convention (Typ);
+        and then not Has_Relaxed_Finalization (Typ);
    end Needs_BIP_Collection;
 
    --------------------------