
  PROCEDURE [INLINE] gfp$get_fde_p_from_image
    (    sfid: gft$system_file_identifier;
         image_segment_number: ost$segment;
     VAR fde_p: gft$file_desc_entry_p);

?? PUSH (LISTEXT := ON) ??
    VAR
      offset: integer;


{ WARNING: This procedure does NOT check file_hash!
{ Locking the FDE is not necessary, because recovery occurs on a system which
{ has only one active task.

    IF sfid.residence <> gfc$tr_system THEN
      fde_p := NIL;
    ELSE
      offset := gfc$fde_table_base + gfc$fde_size * sfid.file_entry_index;
      fde_p := #address (1, image_segment_number, offset);
    IFEND;

  PROCEND gfp$get_fde_p_from_image;

*copyc gfc$constants
*copyc gft$file_desc_entry_p
*copyc gft$system_file_identifier
*copyc osd$virtual_address
?? POP ??
