* tp procvar support for ifn,whilerepeatn

git-svn-id: trunk@707 -

compiler/nflw.pas

@@ -227,7 +227,7 @@ implementation
       globtype,systems,
       cutils,verbose,globals,
       symconst,paramgr,defcmp,defutil,htypechk,pass_1,
-      ncal,nadd,ncon,nmem,nld,ncnv,nbas,cgobj,
+      ncal,nadd,ncon,nmem,nld,ncnv,nbas,cgobj,nutils,
     {$ifdef state_tracking}
       nstate,
     {$endif}
@@ -364,6 +364,10 @@ implementation
          resulttype:=voidtype;
 
          resulttypepass(left);
+
+         { tp procvar support }
+         maybe_call_procvar(left,true);
+
          {A not node can be removed.}
          if left.nodetype=notn then
            begin
@@ -545,6 +549,10 @@ implementation
          resulttype:=voidtype;
 
          resulttypepass(left);
+
+         { tp procvar support }
+         maybe_call_procvar(left,true);
+
          { if path }
          if assigned(right) then
            resulttypepass(right);