
  PROCEDURE [INLINE] dfp$get_served_file_desc_p
    (    fde_p: gft$file_desc_entry_p;
     VAR sfd_p: dft$server_descriptor_p);

?? PUSH (LISTEXT := ON) ??

    VAR
      local_fde_p: ^gft$file_descriptor_entry,
      pva: gft$trick_pointer;

    IF fde_p^.media <> gfc$fm_served_file THEN
      i#program_error;
    IFEND;
    local_fde_p := fde_p;
    pva.p := local_fde_p;
    pva.pva.offset := local_fde_p^.served_file_descriptor_p;
    sfd_p := pva.p;

  PROCEND dfp$get_served_file_desc_p;
*copyc dmt$server_descriptor
*copyc gft$file_desc_entry_p
*copyc gft$file_descriptor_entry
*copyc gft$trick_pointer
*copyc i#program_error
?? POP ??
