
  PROCEDURE [INLINE] mmp$fetch_pfti_array_size
    (VAR pfti_size: integer);

?? PUSH (LISTEXT := ON) ??
    pfti_size :=  mmv$pfti_array_p^.last_pfti_index - mmv$pfti_array_p^.pfti_first;

  PROCEND mmp$fetch_pfti_array_size;
?? POP ??
