11 lines
190 B
Ada
11 lines
190 B
Ada
|
with System.Storage_Pools;
|
||
|
|
|
||
|
|
package H2 is
|
||
|
|
|
||
|
|
subtype Character is Standard.Wide_Character;
|
||
|
|
|
||
|
|
type Storage_Pool_Pointer is
|
||
|
|
access all System.Storage_Pools.Root_Storage_Pool'Class;
|
||
|
|
|
||
|
|
end H2;
|