
  FUNCTION [INLINE] pup$physical_path_length (logical_path_length: integer): integer;
?? PUSH (LISTEXT := ON) ??
    IF logical_path_length <= 0 THEN
      pup$physical_path_length := 1;
    ELSE
      pup$physical_path_length := logical_path_length;
    IFEND;
  FUNCEND pup$physical_path_length;
?? POP ??
