From e10c55d73c3e59efc82bfdaadb6064bd014ca368 Mon Sep 17 00:00:00 2001 From: peter Date: Mon, 17 Sep 2007 19:40:36 +0000 Subject: [PATCH] * invalid typecast git-svn-id: trunk@8526 - --- compiler/optunrol.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/optunrol.pas b/compiler/optunrol.pas index 15d9677b56..9931630839 100644 --- a/compiler/optunrol.pas +++ b/compiler/optunrol.pas @@ -106,7 +106,7 @@ unit optunrol; for i:=1 to unrolls do begin { create and insert copy of the statement block } - addstatement(unrollstatement,tfornode(tfornode(node).t2).getcopy); + addstatement(unrollstatement,tfornode(node).t2.getcopy); { set and insert entry label? } if (counts mod unrolls<>0) and