Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Removed unused local var.

git-svn-id: trunk@12057 -
yury 17 years ago
parent
c665711b4a
commit
b580cbc778
1 changed files with 0 additions and 1 deletions
Unified View Show Diff Stats
  1. 0 1
      compiler/optloop.pas

+ 0 - 1
compiler/optloop.pas
View File 

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