GNATCOLL.Refcount
provides a procedure to run some code when the reference-counted element is released.
How do I implement this procedure?
I’m clearly missing something because Release
is not visible as GNATCOLL.Refcount.Release
and this doesn’t work
type Context_Contents is new GNATCOLL.Refcount.Refcounted with record
Address : System.Address;
end record;
procedure Release is new GNATCOLL.Refcount.Release
(Self => Context_Contents);
and gives me
usb.ads:29:47: error: "Release" not declared in "Refcount"