
  PROCEDURE [INLINE] pfp$allocate_object_list
    (    object_count: pft$object_count;
         p_catalog_heap: pft$p_catalog_heap;
     VAR p_object_list: pft$p_object_list;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??
    status.normal := TRUE;
    ALLOCATE p_object_list: [1 .. object_count + pfc$object_expansion_count] IN p_catalog_heap^;
    IF p_object_list = NIL THEN
      osp$set_status_condition (pfe$catalog_full, status);
    IFEND;

  PROCEND pfp$allocate_object_list;

*copyc pft$object_count
*copyc pft$p_catalog_heap
*copyc pft$p_object_list
*copyc osp$set_status_condition
?? POP ??
