
  PROCEDURE [INLINE] mmp$conditional_purge_all_map (time: integer);

    VAR
      null_sva: 0 .. 0ffffffffffff(16);

    IF mmv$multiple_page_maps THEN
      IF time > mmv$time_map_last_purged THEN
        mmp$purge_all_map_proc;
      IFEND;
    ELSE
      null_sva := 0;
      #purge_buffer (osc$purge_all_page_seg_map, null_sva);
    IFEND;

  PROCEND;
?? PUSH (LISTEXT := ON) ??
*copyc mmv$time_map_last_purged
*copyc MMP$PURGE_ALL_MAP_PROC
*copyc OSC$PURGE_MAP_AND_CACHE
?? POP ??
