 { The entry point dictionary is in alphbetical order. }

  TYPE
    llt$entry_point_dictionary = array [1 .. * ] of
      llt$entry_point_dictionary_item,

    llt$entry_point_dictionary_item = record
      name: pmt$program_name,
      kind: llt$entry_point_kind,
      case module_kind: llt$library_module_kind of
      = llc$load_module =
        module_header: REL (llt$object_library) ^llt$load_module_header,

        { The remaining variants are not used in library versions 1.1 and
        {following}

      = llc$program_description =
        program_header: REL (llt$object_library) ^llt$library_member_header,
      = llc$command_procedure =
        command_header: REL (llt$object_library) ^llt$library_member_header,
      casend,
    recend,

    llt$entry_point_kind = llc$entry_point .. llc$gate,

    llt$entry_point_index = 0 .. llc$max_entry_points_in_library;

  CONST
    llc$max_entry_points_in_library = 0ffffff(16);

*copyc llt$command_kind
*copyc llt$library_member_header
*copyc llt$library_module_kind
*copyc llt$load_module_header
*copyc pmt$program_name
