 PROCEDURE [INLINE] fdp$rel_valid_reals (p_valid_real_ranges: ^array [1 .. * ]
  OF fdt$valid_real_range;
        p_form_module: ^fdt$form_module;
    VAR valid_real_ranges: fdt$valid_real_ranges);

    IF p_valid_real_ranges = NIL THEN
      valid_real_ranges.total_number := 0;
      valid_real_ranges.active_number := 0;
    ELSE
      valid_real_ranges.p_valid_real_ranges := #REL (p_valid_real_ranges,
            p_form_module^);
      valid_real_ranges.total_number := UPPERBOUND (p_valid_real_ranges^);
    IFEND;
  PROCEND fdp$rel_valid_reals;

?? PUSH (LISTEXT := ON) ??
*copyc fdt$valid_real_range
*copyc fdt$form_module
*copyc fdt$valid_real_ranges
?? POP ??
