Weiter: A.4 Unchecked_Conversion Hinauf: A.3 Das Paket Zurück: A.3.1 Das Paket

A.3.2 Das Paket System.Storage_Pools

$$
with Ada.Finalization;$$
with System.Storage_Elements;$$
$$
package System.Storage_Pools is$$
pragma Preelaborate(System.Storage_Pools);$$
$$
type Root_Storage_Pool is$$
abstract new Ada.Finalization.Limited_Controlled with private;$$
$$
procedure Allocate($$
Pool : in out Root_Storage_Pool;$$
Storage_Address : out Address;$$
Size_In_Storage_Elements : in Storage_Elements.Storage_Count;$$
Alignment : in Storage_Elements.Storage_Count) is abstract;$$
$$
procedure Deallocate($$
Pool : in out Root_Storage_Pool;$$
Storage_Address : in Address;$$
Size_In_Storage_Elements : in Storage_Elements.Storage_Count;$$
Alignment : in Storage_Elements.Storage_Count) is abstract;$$
$$
function Storage_Size(Pool : Root_Storage_Pool)$$
return Storage_Elements.Storage_Count is abstract;$$
$$
private$$
$...$ -notspecifiedbythelanguage$$
end System.Storage_Pools;$$