  TYPE
    oct$segment_rel_information = record
      old_offset: ost$segment_length,
      new_offset: ost$segment_length,
      text: ^array [1 .. * ] of 0 .. 0ff(16),
    recend;

  TYPE
    oct$segment_relocation_info = array [0 .. * ] of
          oct$segment_rel_information;

*copyc osd$virtual_address
