 TYPE
    cmt$control_protocol = record
        kind: cmt$control_protocol_kind,
        function_size: cmt$function_size,
      recend;

*copyc cmt$control_protocol_kind
*copyc cmt$function_size
