 FUNCTION [INLINE] fdp$ptr_comments (comment_definitions:
    fdt$comment_definitions;
        p_form_module: ^fdt$form_module): ^array [1 .. * ] OF
      fdt$comment_definition;

    IF comment_definitions.total_number = 0 THEN
      fdp$ptr_comments := NIL;
    ELSE
      fdp$ptr_comments := #PTR (comment_definitions.p_comment_definitions,
            p_form_module^);
    IFEND;
  FUNCEND fdp$ptr_comments;

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