2 lines
78 B
Ada
2 lines
78 B
Ada
type My_Pointer is access My_Object;
|
|
for My_Pointer'Storage_Pool use My_Pool;
|
type My_Pointer is access My_Object;
|
|
for My_Pointer'Storage_Pool use My_Pool;
|