 FUNCTION [INLINE] fdp$ptr_objects (p_form_status: ^fdt$form_status): ^array [1
  .. * ] OF fdt$form_object_definition;

    IF p_form_status^.p_form_definition^.form_object_definitions.total_number =
          0 THEN
      fdp$ptr_objects := NIL;
    ELSE
      fdp$ptr_objects := #PTR (p_form_status^.p_form_definition^.
            form_object_definitions.p_form_object_definitions, p_form_status^.
            p_form_module^);
    IFEND;
  FUNCEND fdp$ptr_objects;

?? PUSH (LISTEXT := ON) ??
*copyc fdp$ptr_objects
*copyc fdt$form_status
*copyc fdt$form_object_definition
*copyc fdt$object_definition_key
?? POP ??
