
  TYPE
    dft$read_write_lock = record
      reject_count: ALIGNED [0 MOD 8] integer,
      reader_count: ALIGNED [0 MOD 8] integer,
      writer_count: ALIGNED [0 MOD 8] integer,
      write_lock: ost$signature_lock,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc ost$signature_lock
?? POP ??
