Browse Source

compiler: for-in loop: fix temporary array range type

git-svn-id: trunk@14095 -
paul 15 years ago
parent
commit
e520a2b941
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/nflw.pas

+ 1 - 1
compiler/nflw.pas

@@ -330,7 +330,7 @@ begin
     if assigned(tmpdef) and (tmpdef.typ=arraydef) and (tarraydef(tmpdef).arrayoptions = []) then
     if assigned(tmpdef) and (tmpdef.typ=arraydef) and (tarraydef(tmpdef).arrayoptions = []) then
     begin
     begin
       elementcount:=elementcount*tarraydef(tmpdef).elecount;
       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;
       tarraydef(convertdef).elementdef:=tarraydef(tmpdef).elementdef;
       expression:=expr.getcopy;
       expression:=expr.getcopy;
       expression:=ctypeconvnode.create_internal(expression,convertdef);
       expression:=ctypeconvnode.create_internal(expression,convertdef);