
  PROCEDURE [INLINE] pfp$allocate_log_list
    (    log_count: pft$log_count;
         p_catalog_heap: pft$p_catalog_heap;
     VAR p_log_list: pft$p_log_list;
     VAR status: ost$status);

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

  PROCEND pfp$allocate_log_list;

*copyc pfc$log_expansion_count
*copyc ost$status
*copyc pft$log_count
*copyc pft$p_catalog_heap
*copyc pft$p_log_list
*copyc osp$set_status_condition
?? POP ??
