MODULE osm$heap_manager_helpers_223;
?? RIGHT := 110 ??

{ PURPOSE:
{   This module exists solely to test the new heap manager and to interface to
{   osp$generate_heap_map for the joob paged heap.

?? NEWTITLE := 'Global Declarations Referenced By This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc osd$virtual_address
*copyc ose$undefined_condition
*copyc ost$halfword
*copyc ost$heap
*copyc ost$status
?? POP ??
*copyc osp$generate_heap_map
*copyc osp$set_status_condition
*copyc osv$job_pageable_heap
?? OLDTITLE ??
?? NEWTITLE := '[xdcl, #gate] OSP$GENERATE_HEAP_MAP_R2', EJECT ??

  PROCEDURE [XDCL, #GATE] osp$generate_heap_map_r2
    (    heap_segment: ost$segment;
     VAR heap_map: ost$heap_map;
     VAR status: ost$status);

    VAR
      heap_p: ^HEAP ( * );

    status.normal := TRUE;
    heap_p := NIL;
    IF heap_segment = osc$segnum_job_pageable_heap THEN
      heap_p := osv$job_pageable_heap;
      osp$generate_heap_map (heap_p, heap_map);
    ELSE
      osp$set_status_condition (ose$undefined_condition, status);
      RETURN; {----->
    IFEND;

  PROCEND osp$generate_heap_map_r2;
?? OLDTITLE ??
MODEND osm$heap_manager_helpers_223;
