  TYPE
    oct$module_map = array [1 .. *] of oct$module_map_item,

    oct$module_map_item = record
      name: pmt$program_name,
      case kind: llt$library_module_kind of
      =llc$load_module=
        section_definitions: ^llt$object_text_descriptor,
        bound_module: boolean,
        section_maps: ^llt$section_maps,
        component_info: ^llt$component_information,
        greatest_section_ordinal: llt$section_ordinal,
        change_list: ^oct$change_list,
      =llc$ppu_object_module, llc$program_description, llc$command_procedure,
            llc$function_procedure, llc$message_module, llc$panel_module =
        ,
      casend,
    recend,

    oct$change_list = array [0 .. *] of llt$section_ordinal;

*copyc pmt$program_name
*copyc llt$module_dictionary
*copyc llt$object_text_descriptor
*copyc llt$section_address
