SHARE
TWEET

Untitled

a guest Jun 19th, 2017 45 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.    function Init (To : access Abstract_Track_Number'Class) return Track_Number_Rt is
  2.       Track_Number : Track_Number_Rt;
  3.    begin
  4.       Track_Number.Value := Track_Number_Pt (To);
  5.       return Track_Number;
  6.    end Init;
RAW Paste Data
Pastebin PRO Summer Special!
Get 40% OFF on Pastebin PRO accounts!
Top