
  PROCEDURE [INLINE] gfp$get_sfid_from_fde_p
    (    fde_p: gft$locked_file_desc_entry_p;
     VAR sfid: gft$system_file_identifier);

?? PUSH (LISTEXT := ON) ??
    VAR
      segnum: ost$segment,
      xsfid: gft$system_file_identifier;

    xsfid.file_hash := fde_p^.file_hash;
    xsfid.file_entry_index := ((#OFFSET (fde_p)) - gfc$fde_table_base) DIV gfc$fde_size;
    segnum := #SEGMENT (fde_p);
    IF segnum = 1 THEN
      xsfid.residence := gfc$tr_system;
    ELSE
      xsfid.residence := gfc$tr_job;
    IFEND;

    sfid := xsfid;

  PROCEND gfp$get_sfid_from_fde_p;

*copyc osd$virtual_address
?? POP ??
