From 4731ebeb504a821ab81dafc3d7a962774470684d Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 13 Mar 2016 18:19:55 +0000
Subject: [PATCH] * reset initcode after adding it to the statements list, so
 further iterations of loop optimization create a new one

git-svn-id: trunk@33245 -
---
 compiler/optloop.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/optloop.pas b/compiler/optloop.pas
index fea2b42ca9..5a4e665ade 100644
--- a/compiler/optloop.pas
+++ b/compiler/optloop.pas
@@ -490,6 +490,7 @@ unit optloop;
 
             result:=internalstatements(newcodestatements);
             addstatement(newcodestatements,initcode);
+            initcode:=nil;
             addstatement(newcodestatements,node);
             addstatement(newcodestatements,deletecode);
           end;