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

* fixed two places where after r1913 valid_for_assign() didn't immediately

Browse Source 
exit anymore if an error was detected

git-svn-id: trunk@18098 -
This commit is contained in:
Jonas Maebe 2011-08-04 22:44:00 +00:00
parent 981e79ff37
commit 0d4d1a2ac8
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/htypechk.pas
View File

@ -1322,8 +1322,7 @@ implementation
(vo_is_loop_counter in tsubscriptnode(hp).vs.varoptions) then (vo_is_loop_counter in tsubscriptnode(hp).vs.varoptions) then
begin begin
if report_errors then if report_errors then
CGMessage1(parser_e_illegal_assignment_to_count_var,tsubscriptnode(hp).vs.realname) CGMessage1(parser_e_illegal_assignment_to_count_var,tsubscriptnode(hp).vs.realname);
else
exit; exit;
end; end;
{ implicit pointer object types result in dereferencing } { implicit pointer object types result in dereferencing }
@ -1475,10 +1474,11 @@ implementation
if not(Valid_Const in opts) and if not(Valid_Const in opts) and
not gotderef and not gotderef and
(vo_is_loop_counter in tabstractvarsym(tloadnode(hp).symtableentry).varoptions) then (vo_is_loop_counter in tabstractvarsym(tloadnode(hp).symtableentry).varoptions) then
begin
if report_errors then if report_errors then
CGMessage1(parser_e_illegal_assignment_to_count_var,tloadnode(hp).symtableentry.realname) CGMessage1(parser_e_illegal_assignment_to_count_var,tloadnode(hp).symtableentry.realname);
else
exit; exit;
end;
{ read-only variable? } { read-only variable? }
if (tabstractvarsym(tloadnode(hp).symtableentry).varspez in [vs_const,vs_constref]) then if (tabstractvarsym(tloadnode(hp).symtableentry).varspez in [vs_const,vs_constref]) then
begin begin