?? RIGHT := 110 ??
MODULE ocm$process_rel_records;
*copyc osd$default_pragmats
*copyc ost$status
*copyc oct$code_section_directory
*copyc oct$section_directory
*copyc llt$object_text_descriptor
*copyc llt$relocation
?? PUSH (LISTEXT := ON) ??
*copyc ocp$new_offset
*copyc ocp$normalize_binding_sec_value
?? POP ??

*copyc och$process_rel_records
  PROCEDURE [XDCL] ocp$process_rel_records (section_directory: ^oct$section_directory;
        relocation: ^llt$relocation;
        number_of_rel_items: 0 .. llc$max_rel_items;
        code_section_directory: oct$code_directory_item;
        module_code_sections: ^oct$module_code_sections;
    VAR status: ost$status);

    VAR
      i: 0 .. llc$max_rel_items;

    FOR i := 1 TO number_of_rel_items DO
      ocp$normalize_binding_sec_value (code_section_directory, module_code_sections, relocation^ [i],
            section_directory, status);
      IF NOT status.normal THEN
        RETURN;
      IFEND;

      relocation^ [i].offset := ocp$new_offset (relocation^ [i].offset, section_directory^ [relocation^ [i].
            section_ordinal].section_offset_change_vector);
      relocation^ [i].section_ordinal := section_directory^ [relocation^ [i].section_ordinal].
            new_section_number;
    FOREND;
  PROCEND ocp$process_rel_records;
MODEND ocm$process_rel_records;

