
  PROCEDURE [INLINE] dfp$release_server_descriptor
    (    fde_p: gft$file_desc_entry_p);

    VAR
      server_descriptor_p: dft$server_descriptor_p;

    dfp$get_served_file_desc_p (fde_p, server_descriptor_p);
    IF server_descriptor_p <> NIL THEN
      FREE server_descriptor_p IN osv$mainframe_wired_heap^;
      fde_p^.served_file_descriptor_p := 0;
    IFEND;

  PROCEND dfp$release_server_descriptor;

?? PUSH (LISTEXT := ON) ??
*copyc gft$file_descriptor_entry
*copyc dfp$get_served_file_desc_p
*copyc osv$mainframe_wired_heap
?? POP ??
