
  TYPE
    mmt$segment_attrib_descriptor = record
      validating_ring_number: ost$valid_ring,
      file_limits_to_enforce: sft$file_space_limit_kind,
      pointer_kind: mmt$segment_pointer_kind,
      sfid: gft$system_file_identifier,
      user_attributes: ^array [ * ] of mmt$attribute_descriptor,
    recend;

*copyc gft$system_file_identifier
*copyc mmt$attribute_keyword
*copyc osd$virtual_address
*copyc sft$file_space_limit_kind
