
  TYPE
    clt$variable_access_info = record
      access_mode: clt$data_access_mode,
      class: clt$internal_variable_class,
      parameter_passed: boolean,
      assignment_counter: integer,
      descriptor: ^clt$variable_descriptor,
      original_parameter_descriptor: ^clt$variable_descriptor,
      qualifiers: ^clt$value_qualifiers,
    recend;

*copyc clt$data_access_mode
*copyc clt$internal_variable_class
*copyc clt$value_qualifiers
*copyc clt$variable_descriptor
