
  PROCEDURE [INLINE] ocp$convert_information_element (old_info_element_header:
      ^llt$info_element_header;
    VAR new_info_element_header: llt$info_element_header);

?? PUSH (LISTEXT := ON) ??

    VAR
      info_element_hdr: ^llt$info_element_hdr,
      info_element_header_1_0: ^llt$info_element_header_1_0;


    new_info_element_header.version := llc$info_element_version;

    IF (old_info_element_header^.version = llc$info_element_version_1_0) THEN
      info_element_header_1_0 := #LOC (old_info_element_header^);
      new_info_element_header.relocation_ptr := info_element_header_1_0^.relocation_ptr;
      new_info_element_header.number_of_rel_items := info_element_header_1_0^.number_of_rel_items;
      new_info_element_header.component_ptr := info_element_header_1_0^.component_ptr;
      new_info_element_header.number_of_components := info_element_header_1_0^.number_of_components;
      new_info_element_header.binding_template_ptr := info_element_header_1_0^.binding_template_ptr;
      new_info_element_header.number_of_template_items := info_element_header_1_0^.number_of_template_items;
      new_info_element_header.section_maps := info_element_header_1_0^.section_maps;
      new_info_element_header.number_of_section_maps := info_element_header_1_0^.number_of_section_maps;

    ELSE { Original version }
      info_element_hdr := #LOC (old_info_element_header^);
      new_info_element_header.relocation_ptr := info_element_hdr^.relocation_ptr;
      new_info_element_header.number_of_rel_items := info_element_hdr^.number_of_rel_items;
      new_info_element_header.component_ptr := info_element_hdr^.component_ptr;
      new_info_element_header.number_of_components := info_element_hdr^.number_of_components;
      new_info_element_header.binding_template_ptr := info_element_hdr^.binding_template_ptr;
      new_info_element_header.number_of_template_items := info_element_hdr^.number_of_template_items;
      new_info_element_header.number_of_section_maps := 0;
    IFEND;


  PROCEND ocp$convert_information_element;

*copyc llt$information_element
?? POP ??

