 FUNCTION [INLINE] fdp$ptr_valid_strings (valid_strings: fdt$valid_strings;
        p_form_module: ^fdt$form_module): ^array [1 .. * ] OF
      fdt$valid_string_definition;

    IF valid_strings.total_number = 0 THEN
      fdp$ptr_valid_strings := NIL;
    ELSE
      fdp$ptr_valid_strings := #PTR (valid_strings.p_valid_strings,
            p_form_module^);
    IFEND;
  FUNCEND fdp$ptr_valid_strings;

?? PUSH (LISTEXT := ON) ??
*copyc fdt$valid_strings
*copyc fdt$form_module
*copyc fdt$valid_string_definition
?? POP ??
