1package body Opt46_Pkg is 2 3 function Last (T : Instance) return Table_Index_Type is 4 begin 5 return Table_Index_Type (T.P.Last_Val); 6 end Last; 7 8end Opt46_Pkg; 9