[Ada] Mark Deallocator as Favor_Top_Level

2019-12-16  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* libgnarl/s-tataat.ads (Deallocator): Mark as Favor_Top_Level.

From-SVN: r279435

gcc/ada/ChangeLog

 2019-12-16  Arnaud Charlet  <charlet@adacore.com>
 
+	* libgnarl/s-tataat.ads (Deallocator): Mark as Favor_Top_Level.
+
+2019-12-16  Arnaud Charlet  <charlet@adacore.com>
+
 	* libgnat/s-aotase.adb, libgnat/s-aotase.ads,
 	libgnat/s-atoope.ads, libgnat/s-atopar.adb,
 	libgnat/s-atopar.ads, libgnat/s-atopex.adb,

gcc/ada/libgnarl/s-tataat.ads

@@ -36,6 +36,7 @@ with Ada.Unchecked_Conversion;
 package System.Tasking.Task_Attributes is
 
    type Deallocator is access procedure (Ptr : Atomic_Address);
+   pragma Favor_Top_Level (Deallocator);
 
    type Attribute_Record is record
       Free : Deallocator;