  TYPE
    oct$entry_point_sorted_list = ^array [1 .. * ] of
          ^oct$entry_point_address_list;


  TYPE
    oct$entry_point_address_list = record
      name: pmt$program_name,
      link: ^oct$entry_point_address_list,

      case defined: boolean of
      = TRUE =
        section_ordinal: llt$section_ordinal,
        offset: llt$section_offset,

      = FALSE =
        component: ^oct$separated_module_header,
        old_binding_offset: llt$section_offset,

      casend,
    recend;

*copyc llt$section_address
*copyc oct$separated_module_header
*copyc pmt$program_name
