Explorar o código

* compilation fixed

git-svn-id: trunk@12061 -
florian %!s(int64=17) %!d(string=hai) anos
pai
achega
5e448b47a5
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compiler/optloop.pas

+ 1 - 1
compiler/optloop.pas

@@ -393,7 +393,7 @@ unit optloop;
 
     function OptimizeInductionVariablesSingleForLoop(node : tnode) : tnode;
       var
-        loopcode,
+        loopcode : tblocknode;
         loopcodestatements,
         newcodestatements : tstatementnode;
         fornode : tfornode;