
  TYPE
    lgt$critical_log_control_desc = record
      lock: ost$signature_lock,
      log_cycle: lgt$log_cycle,
      log_data: ^SEQ ( * ),
      trailing_log_entry_header_p: ^lgt$log_entry_header,
      maximum_size: lgt$log_size,
      preallocation_size: lgt$log_preallocation_size,
      critical_log: boolean,
      lost_message_count: integer,
      log_full: boolean,
    recend;

*copyc lgt$log_cycle
*copyc lgt$log_entry_header
*copyc lgt$log_preallocation_size
*copyc lgt$log_size
*copyc ost$signature_lock
