 PROCEDURE [INLINE] fdp$rel_comments (p_comment_definitions: ^array [1 .. * ] OF
    fdt$comment_definition;
        p_form_module: ^fdt$form_module;
    VAR comment_definitions: fdt$comment_definitions);

    IF p_comment_definitions = NIL THEN
      comment_definitions.total_number := 0;
      comment_definitions.active_number := 0;
    ELSE
      comment_definitions.p_comment_definitions := #REL (p_comment_definitions,
            p_form_module^);
      comment_definitions.total_number := UPPERBOUND (p_comment_definitions^);
    IFEND;
  PROCEND fdp$rel_comments;

?? PUSH (LISTEXT := ON) ??
*copyc fdt$comment_definition
*copyc fdt$form_module
*copyc fdt$comment_definitions
?? POP ??
