  FUNCTION [INLINE] fsp$path_element
    (    p_evaluated_file_reference: ^fst$evaluated_file_reference;
         element_number: fst$number_of_path_elements):
     ^fst$path_element_string;

?? PUSH (LISTEXT := ON) ??

    VAR
      i: fst$number_of_path_elements,
      path_index: fst$path_index;

    path_index := 2;
    FOR i := 1 TO element_number - 1 DO
      path_index := path_index + $INTEGER (p_evaluated_file_reference^.
            path_structure (path_index - 1)) + 1;
    FOREND;
    fsp$path_element := ^p_evaluated_file_reference^.
          path_structure (path_index, $INTEGER (p_evaluated_file_reference^.
          path_structure (path_index - 1)));

  FUNCEND fsp$path_element;

*copyc fst$evaluated_file_reference
*copyc fst$number_of_path_elements
*copyc fst$path_element_size
*copyc fst$path_element_string
*copyc fst$path_index
?? POP ??

