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

git-svn-id: trunk@34789 -

compiler/nset.pas

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

compiler/wpobase.pas

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