blob: 40039c7cae7e90fa2c8df4e17f1bc7b85c8b6b36 [file] [log] [blame]
with Unchecked_Deallocation;
package body Taft_Type4_Pkg is
type Obj_T is null record;
procedure Unchecked_Free is new Unchecked_Deallocation (Obj_T, T);
procedure Proc (L : in out T) is
begin
Unchecked_Free (L);
end;
end Taft_Type4_Pkg;