  FUNCTION [INLINE] pfp$object_expansion_size
    (    p_object_list: ^pft$object_list): pft$object_count;

?? PUSH (LISTEXT := ON) ??
    IF p_object_list = NIL THEN
      pfp$object_expansion_size := 16;
    ELSEIF UPPERBOUND (p_object_list^) < 256 THEN
      pfp$object_expansion_size := 16;
    ELSEIF UPPERBOUND (p_object_list^) < 512 THEN
      pfp$object_expansion_size := 32;
    ELSE
      pfp$object_expansion_size := 64;
    IFEND;

  FUNCEND pfp$object_expansion_size;

*copyc pft$object_count
*copyc pft$object_list
?? POP ??
