paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-28 13:44:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

compiler: fix error message positions for the for-in loop errors

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

8
compiler/nflw.pas
View File

@ -577,7 +577,7 @@ begin
result:=cerrornode.create; result:=cerrornode.create;
hloopvar.free; hloopvar.free;
hloopbody.free; hloopbody.free;
Message1(parser_e_for_in_loop_cannot_be_used_for_the_type,expr.resultdef.typename); MessagePos1(expr.fileinfo,parser_e_for_in_loop_cannot_be_used_for_the_type,expr.resultdef.typename);
end end
else else
result:=create_type_for_in_loop(hloopvar, hloopbody, expr); result:=create_type_for_in_loop(hloopvar, hloopbody, expr);
@ -599,7 +599,7 @@ begin
result:=cerrornode.create; result:=cerrornode.create;
hloopvar.free; hloopvar.free;
hloopbody.free; hloopbody.free;
Message1(sym_e_no_enumerator_move,pd.returndef.GetTypeName); MessagePos1(expr.fileinfo,sym_e_no_enumerator_move,pd.returndef.GetTypeName);
end end
else else
begin begin
@ -609,7 +609,7 @@ begin
result:=cerrornode.create; result:=cerrornode.create;
hloopvar.free; hloopvar.free;
hloopbody.free; hloopbody.free;
Message1(sym_e_no_enumerator_current,pd.returndef.GetTypeName); MessagePos1(expr.fileinfo,sym_e_no_enumerator_current,pd.returndef.GetTypeName);
end end
else else
result:=create_enumerator_for_in_loop(hloopvar, hloopbody, expr, pd, movenext, current); result:=create_enumerator_for_in_loop(hloopvar, hloopbody, expr, pd, movenext, current);
@ -626,7 +626,7 @@ begin
result:=cerrornode.create; result:=cerrornode.create;
hloopvar.free; hloopvar.free;
hloopbody.free; hloopbody.free;
Message1(sym_e_no_enumerator,expr.resultdef.GetTypeName); MessagePos1(expr.fileinfo,sym_e_no_enumerator,expr.resultdef.GetTypeName);
end; end;
end; end;
end; end;