 PROCEDURE [INLINE] fdp$rel_table_objects (p_table_objects: ^array [1 .. * ] OF
    fdt$table_object;
        p_form_module: ^fdt$form_module;
    VAR table_objects: fdt$table_objects);

    IF p_table_objects = NIL THEN
      table_objects.total_number := 0;
      table_objects.active_number := 0;
    ELSE
      table_objects.p_table_objects := #REL (p_table_objects, p_form_module^);
      table_objects.total_number := UPPERBOUND (p_table_objects^);
    IFEND;
  PROCEND fdp$rel_table_objects;

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