3 procedure Varsize_Temp (Nbytes : Natural) is
5 type Message_T (Length : Natural) is record
8 when others => Id : Natural;
12 type Local_Message_T is new Message_T (Nbytes);
14 function One_message return Local_Message_T is
23 procedure Process (X : Local_Message_T) is begin null; end;
26 Process (One_Message);