type My_Pointer is access My_Object;
for My_Pointer'Storage_Pool use My_Pool;