 FUNCTION fdp$ptr_table_objects (table_objects: fdt$table_objects;
        p_form_module: ^fdt$form_module): ^array [1 .. * ] OF fdt$table_object;

    IF table_objects.total_number = 0 THEN
      fdp$ptr_table_objects := NIL;
    ELSE
      fdp$ptr_table_objects := #PTR (table_objects.p_table_objects,
            p_form_module^);
    IFEND;
  FUNCEND fdp$ptr_table_objects;

?? PUSH (LISTEXT := ON) ??
*copyc fdt$table_objects
*copyc fdt$form_module
*copyc fdt$record_position
*copyc fdt$table_object
*copyc fdc$maximum_record_length
?? POP ??
