
  PROCEDURE [INLINE] pfp$build_fmd_locator
    (    p_physical_fmd: {input} pft$p_physical_fmd;
         p_catalog_file: {input^} pft$p_catalog_file;
     VAR fmd_locator: pft$fmd_locator);

?? PUSH (LISTEXT := ON) ??

    VAR
      p_cell: ^cell;

    IF p_physical_fmd = NIL THEN
      fmd_locator.fmd_size := 0;
    ELSE
      fmd_locator.fmd_size := #SIZE (p_physical_fmd^.fmd);
      p_cell := #LOC (p_physical_fmd^);
      fmd_locator.relative_cell_pointer := #REL (p_cell, p_catalog_file^);
    IFEND;

  PROCEND pfp$build_fmd_locator;

*copyc pft$fmd_locator
*copyc pft$p_catalog_file
*copyc pft$p_physical_fmd
?? POP ??
