@@ -508,7 +508,7 @@ Type TForStmt Extends TLoopStmt
expr=expr.Semant()
- ' for functions and index access, use a new local variable
+ ' for anything other than a const value, use a new local variable
If Not TConstExpr(TBinaryCompareExpr(expr).rhs) Then
Local tmp:TLocalDecl=New TLocalDecl.Create( "", TBinaryCompareExpr(expr).rhs.exprType,TBinaryCompareExpr(expr).rhs,, True )
tmp.Semant()