
  PROCEDURE [INLINE] pfp$allocate_cycle_list
    (    cycle_count: pft$cycle_count;
         p_catalog_heap: pft$p_catalog_heap;
     VAR p_cycle_list: pft$p_cycle_list;
     VAR status: ost$status);

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

  PROCEND pfp$allocate_cycle_list;

*copyc pfc$cycle_expansion_count
*copyc pft$cycle_count
*copyc pft$p_catalog_heap
*copyc pft$p_cycle_list
*copyc osp$set_status_condition
?? POP ??
