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

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

  FUNCEND pfp$object_contraction_count;

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