
  FUNCTION [INLINE] mmf$include_pages_in_dump
    (    segment_number: ost$segment;
         fde_p: gft$locked_file_desc_entry_p;
         sdt_p: ^mmt$segment_descriptor): boolean;

?? PUSH (LISTEXT := ON) ??
    IF (sdt_p^.ste.wp <> osc$non_writable) AND
          ((segment_number < mmc$first_loader_predefined_seg) OR
          (fde_p^.stack_for_ring <> 0) OR (fde_p^.flags.
          global_template_file) OR (sdt_p^.ste.r1 <= 2)) THEN
      mmf$include_pages_in_dump := TRUE;
    ELSE
      mmf$include_pages_in_dump := FALSE;
    IFEND;

  FUNCEND mmf$include_pages_in_dump;

*copyc gft$locked_file_desc_entry_p
*copyc mmc$first_transient_segment
*copyc mmt$segment_descriptor_table
*copyc mmt$segment_descriptor_table_ex
*copyc osd$virtual_address
?? POP ??
