
  PROCEDURE [INLINE] mmp$delete_last_pfti_from_array;
?? PUSH (LISTEXT := ON) ??
    mmv$pfti_array_p^.pftis [mmv$pfti_array_p^.pfti_index] := 0;

  PROCEND mmp$delete_last_pfti_from_array;
?? POP ??
