Ada Reference Manual (Ada 2022)
13.11.5 Subpool Reclamation
A subpool may be explicitly deallocated using Unchecked_Deallocate_Subpool.
Static Semantics
The following language-defined library procedure exists:
with System.Storage_Pools.Subpools;
procedure Ada.Unchecked_Deallocate_Subpool
(Subpool : in out System.Storage_Pools.Subpools.Subpool_Handle)
with Global => in out all;
procedure Ada.Unchecked_Deallocate_Subpool
(Subpool : in out System.Storage_Pools.Subpools.Subpool_Handle)
with Global => in out all;
If Subpool is null, a call on Unchecked_Deallocate_Subpool has no effect. Otherwise, the subpool is finalized, and Subpool is set to null.
Finalization of a subpool has the following effects in the given order:
This paragraph was deleted.
1.
Any of the objects allocated from the subpool that still exist are finalized in an arbitrary order;
2.
All of the objects allocated from the subpool cease to exist;
3.
The following dispatching call is then made:
Deallocate_Subpool(Pool_of_Subpool(Subpool).all, Subpool);
4.
The subpool ceases to belong to any pool.
Finalization of a Root_Storage_Pool_With_Subpools object finalizes all subpools that belong to that pool that have not yet been finalized.
