
  PROCEDURE [INLINE] pfp$allocate_permit_list
    (    permit_count: pft$permit_count;
         p_catalog_heap: pft$p_catalog_heap;
     VAR p_permit_list: pft$p_permit_list;
     VAR status: ost$status);

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

  PROCEND pfp$allocate_permit_list;

*copyc pfc$permit_expansion_count
*copyc ost$status
*copyc pft$p_catalog_heap
*copyc pft$p_permit_list
*copyc pft$permit_count
*copyc osp$set_status_condition
?? POP ??
