mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-12-05 09:44:10 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Ada] Mark Deallocator as Favor_Top_Level

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

gcc/ada/

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

From-SVN: r279435
This commit is contained in:
Arnaud Charlet 2019-12-16 10:34:56 +00:00 committed by Pierre-Marie de Rodat
parent 019c74bb73
commit c1c3784bd9
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -1,3 +1,7 @@
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,

1
gcc/ada/libgnarl/s-tataat.ads
View File

@ -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;