 FUNCTION [INLINE] fdp$ptr_valid_reals (valid_real_ranges:
    fdt$valid_real_ranges;
        p_form_module: ^fdt$form_module): ^array [1 .. * ] OF
      fdt$valid_real_range;

    IF valid_real_ranges.total_number = 0 THEN
      fdp$ptr_valid_reals := NIL;
    ELSE
      fdp$ptr_valid_reals := #PTR (valid_real_ranges.p_valid_real_ranges,
            p_form_module^);
    IFEND;
  FUNCEND fdp$ptr_valid_reals;

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