From e511555d6416dc420f4e87180c4551a61e08aa86 Mon Sep 17 00:00:00 2001
From: paul <paul@idefix.freepascal.org>
Date: Fri, 6 Nov 2009 17:42:55 +0000
Subject: [PATCH] compiler: fix position information of the for-in loop (needs
 for correct debug info)

git-svn-id: trunk@14087 -
---
 compiler/nflw.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/compiler/nflw.pas b/compiler/nflw.pas
index dc770f965a..fd6a94dc79 100644
--- a/compiler/nflw.pas
+++ b/compiler/nflw.pas
@@ -566,7 +566,10 @@ function create_for_in_loop(hloopvar, hloopbody, expr: tnode): tnode;
 var
   pd, movenext: tprocdef;
   current: tpropertysym;
+  storefilepos: tfileposinfo;
 begin
+  storefilepos:=current_filepos;
+  current_filepos:=hloopvar.fileinfo;
   if expr.nodetype=typen then
   begin
     if (expr.resultdef.typ=enumdef) and tenumdef(expr.resultdef).has_jumps then
@@ -628,6 +631,7 @@ begin
       end;
     end;
   end;
+  current_filepos:=storefilepos;
 end;
 
 {****************************************************************************