 FUNCTION [INLINE] fdp$ptr_valid_integers (valid_integer_ranges:
    fdt$valid_integer_ranges;
        p_form_module: ^fdt$form_module): ^array [1 .. * ] OF
      fdt$valid_integer_range;

    IF valid_integer_ranges.total_number = 0 THEN
      fdp$ptr_valid_integers := NIL;
    ELSE
      fdp$ptr_valid_integers := #PTR (valid_integer_ranges.
            p_valid_integer_ranges, p_form_module^);
    IFEND;
  FUNCEND fdp$ptr_valid_integers;

?? PUSH (LISTEXT := ON) ??
*copyc fdt$valid_integer_ranges
*copyc fdt$valid_integer_range
*copyc fdt$form_module
?? POP ??
