From e520a2b941e565458ecd96a35ed1bbbfbfd592f7 Mon Sep 17 00:00:00 2001
From: paul <paul@idefix.freepascal.org>
Date: Sat, 7 Nov 2009 10:56:54 +0000
Subject: [PATCH] compiler: for-in loop: fix temporary array range type

git-svn-id: trunk@14095 -
---
 compiler/nflw.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/nflw.pas b/compiler/nflw.pas
index e4741efce4..5f8599d482 100644
--- a/compiler/nflw.pas
+++ b/compiler/nflw.pas
@@ -330,7 +330,7 @@ begin
     if assigned(tmpdef) and (tmpdef.typ=arraydef) and (tarraydef(tmpdef).arrayoptions = []) then
     begin
       elementcount:=elementcount*tarraydef(tmpdef).elecount;
-      convertdef:=tarraydef.create(0,elementcount-1,tarraydef(tmpdef).elementdef);
+      convertdef:=tarraydef.create(0,elementcount-1,s32inttype);
       tarraydef(convertdef).elementdef:=tarraydef(tmpdef).elementdef;
       expression:=expr.getcopy;
       expression:=ctypeconvnode.create_internal(expression,convertdef);