?? RIGHT := 110 ??
MODULE ocm$transient_segment_handlers;

*copyc mmp$create_scratch_segment

?? NEWTITLE := '[XDCL] ocp$create_transient_segment' ??
?? EJECT ??

  PROCEDURE [XDCL] ocp$create_transient_segment
    (    kind: amt$pointer_kind;
     VAR segment: amt$segment_pointer;
     VAR status: ost$status);


{ This segment gets returned at task exit.

    mmp$create_scratch_segment (kind, mmc$as_random, segment, status);

  PROCEND ocp$create_transient_segment;
?? OLDTITLE ??
MODEND ocm$transient_segment_handlers
