
  PROCEDURE [INLINE] pfp$build_object_list_locator
    (    sorted_object_count: pft$object_count;
         free_sorted_object_count: pft$object_count;
         p_object_list: {input} pft$p_object_list;
         p_catalog_file: {input} pft$p_catalog_file;
     VAR object_list_locator: pft$object_list_locator);

?? PUSH (LISTEXT := ON) ??

    VAR
      p_cell: ^cell;

    IF p_object_list = NIL THEN
      object_list_locator.object_count := 0;
      object_list_locator.sorted_object_count := 0;
      object_list_locator.free_sorted_object_count := 0;
    ELSE
      object_list_locator.object_count := UPPERBOUND (p_object_list^);
      object_list_locator.sorted_object_count := sorted_object_count;
      object_list_locator.free_sorted_object_count := free_sorted_object_count;
      p_cell := #LOC (p_object_list^);
      object_list_locator.relative_cell_pointer :=
            #REL (p_cell, p_catalog_file^);
    IFEND;

  PROCEND pfp$build_object_list_locator;

*copyc pft$object_count
*copyc pft$object_list_locator
*copyc pft$p_catalog_file
*copyc pft$p_object_list
?? POP ??
