From 5df9b994d1dda39d5a26c28b07403c212295371d Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 5 Nov 2016 23:05:44 +0000
Subject: [PATCH] * fix warnings which were caused by last changes to for node
 generation

git-svn-id: trunk@34789 -
---
 compiler/nset.pas    | 1 +
 compiler/wpobase.pas | 1 +
 2 files changed, 2 insertions(+)

diff --git a/compiler/nset.pas b/compiler/nset.pas
index 368aa7d17c..ff3c6feaac 100644
--- a/compiler/nset.pas
+++ b/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);
diff --git a/compiler/wpobase.pas b/compiler/wpobase.pas
index e0c1b88b97..9f659854f3 100644
--- a/compiler/wpobase.pas
+++ b/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;