 FUNCTION [INLINE] fdp$ptr_variable (variable_pointer: fdt$variable_pointer;
        p_form_module: ^fdt$form_module): ^fdt$form_variable_definition;

    IF NOT variable_pointer.variable_exists THEN
      fdp$ptr_variable := NIL;
    ELSE
      fdp$ptr_variable := #PTR (variable_pointer.p_form_variable_definition,
            p_form_module^);
    IFEND;
  FUNCEND fdp$ptr_variable;

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