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

* fix warnings which were caused by last changes to for node generation

Browse Source 
git-svn-id: trunk@34789 -
This commit is contained in:
florian 2016-11-05 23:05:44 +00:00
parent 0610187878
commit 5df9b994d1
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/nset.pas
View File

@ -947,6 +947,7 @@ implementation
printnodeinfo(t); printnodeinfo(t);
writeln(t); writeln(t);
printnode(t,left); printnode(t,left);
i:=0;
for i:=0 to blocks.count-1 do for i:=0 to blocks.count-1 do
begin begin
writeln(t,printnodeindention,'(caseblock blockid: ',i); writeln(t,printnodeindention,'(caseblock blockid: ',i);

1
compiler/wpobase.pas
View File

@ -507,6 +507,7 @@ implementation
cgmessage2(wpo_expected_section,tostr(flinenr),s); cgmessage2(wpo_expected_section,tostr(flinenr),s);
break; break;
end; end;
i:=2;
for i:=2 to length(s) do for i:=2 to length(s) do
if (s[i]<>' ') then if (s[i]<>' ') then
break; break;