 PROCEDURE [INLINE] fdp$rel_variable (p_form_variable_definition:
      ^fdt$form_variable_definition;
        p_form_module: ^fdt$form_module;
    VAR variable_pointer: fdt$variable_pointer);

    IF p_form_variable_definition = NIL THEN
      variable_pointer.variable_exists := FALSE;
    ELSE
      variable_pointer.p_form_variable_definition := #REL
            (p_form_variable_definition, p_form_module^);
    IFEND;
  PROCEND fdp$rel_variable;

?? PUSH (LISTEXT := ON) ??
*copyc fdt$form_variable_definition
*copyc fdt$form_module
*copyc fdt$variable_pointer
?? POP ??
