 PROCEDURE [INLINE] fdp$rel_valid_integers (p_valid_integer_ranges: ^array [1 ..
  * ] OF fdt$valid_integer_range;
        p_form_module: ^fdt$form_module;
    VAR valid_integer_ranges: fdt$valid_integer_ranges);

    IF p_valid_integer_ranges = NIL THEN
      valid_integer_ranges.total_number := 0;
      valid_integer_ranges.active_number := 0;
    ELSE
      valid_integer_ranges.p_valid_integer_ranges := #REL
            (p_valid_integer_ranges, p_form_module^);
      valid_integer_ranges.total_number := UPPERBOUND
            (p_valid_integer_ranges^);
    IFEND;
  PROCEND fdp$rel_valid_integers;

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