* fixed warnings about "uninitialized" initialized local variables

    based on test for web bug #7285 (which was already fixed)

git-svn-id: trunk@5523 -

.gitattributes

@@ -7731,6 +7731,7 @@ tests/webtbs/tw7195.pp svneol=native#text/plain
 tests/webtbs/tw7227.pp svneol=native#text/plain
 tests/webtbs/tw7276.pp svneol=native#text/plain
 tests/webtbs/tw7281.pp svneol=native#text/plain
+tests/webtbs/tw7285.pp svneol=native#text/plain
 tests/webtbs/tw7329.pp svneol=native#text/plain
 tests/webtbs/tw7372.pp svneol=native#text/plain
 tests/webtbs/tw7379.pp svneol=native#text/plain

compiler/pdecvar.pas

@@ -698,6 +698,7 @@ implementation
             else
               internalerror(200611051);
           end;
+          vs.varstate:=vs_initialised;
         end;
 
         procedure read_gpc_name(sc : TFPObjectList);

tests/webtbs/tw7285.pp

@@ -0,0 +1,20 @@
+{ %opt=-Sehw }
+
+type myclass=class(TObject)
+      procedure myproc(); 
+     end; 
+
+procedure myclass.myproc(); 
+var avalue:integer=100; 
+begin
+     writeln(avalue); 
+end; 
+
+
+var
+  c: myclass;
+begin
+  c := myclass.create;
+  c.myproc;
+  c.free;
+end.