
  TYPE
    oct$sorted_xdcl_list = ^array [1 .. * ] of ^oct$external_declaration_list;

  TYPE
    oct$external_declaration_list = record
      name: pmt$program_name,
      old_name: pmt$program_name,
      attributes: llt$entry_point_attributes,
      deferred: boolean,
      link: ^oct$external_declaration_list,
    recend;

*copyc llt$entry_point_attributes
*copyc pmt$program_name

