2013-12-10 16:14:06 +00:00
|
|
|
with System.Storage_Pools;
|
|
|
|
|
|
|
|
|
|
package H2 is
|
|
|
|
|
|
2013-12-28 16:52:31 +00:00
|
|
|
--subtype Character is Standard.Wide_Character;
|
2013-12-10 16:14:06 +00:00
|
|
|
|
|
|
|
|
type Storage_Pool_Pointer is
|
|
|
|
|
access all System.Storage_Pools.Root_Storage_Pool'Class;
|
|
|
|
|
|
|
|
|
|
end H2;
|
