blob: c9b70aaf00ed893bdccf6e210ac80aebfbe724da [file] [log] [blame]
with Ada.Finalization;
package asynch is
type t_ctrl is new Ada.Finalization.Controlled with record
stuff : Natural := 0;
end record;
function null_ctrl return t_ctrl;
end asynch;