paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 13:09:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

compiler: fix position information of the for-in loop (needs for correct debug info)

Browse Source 
git-svn-id: trunk@14087 -
This commit is contained in:
paul 2009-11-06 17:42:55 +00:00
parent f339276179
commit e511555d64
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/nflw.pas
View File

@ -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;
{****************************************************************************