* fixed web bugs 4574 and 4575

  + added combined test for these bugs

git-svn-id: trunk@2119 -

.gitattributes

@@ -6655,6 +6655,7 @@ tests/webtbs/tw4537.pp svneol=native#text/plain
 tests/webtbs/tw4540.pp -text svneol=unset#text/plain
 tests/webtbs/tw4557.pp svneol=native#text/plain
 tests/webtbs/tw4566.pp -text svneol=unset#text/plain
+tests/webtbs/tw4574.pp svneol=native#text/plain
 tests/webtbs/tw4599.pp svneol=native#text/plain
 tests/webtbs/tw4613.pp -text svneol=unset#text/plain
 tests/webtbs/tw4616.pp svneol=native#text/plain

compiler/pdecvar.pas

@@ -653,7 +653,8 @@ implementation
           if symtablestack.symtabletype=localsymtable then
             begin
               consume(_EQUAL);
-              tcsym:=ttypedconstsym.createtype('default'+vs.realname,tt,false);
+              tcsym:=ttypedconstsym.createtype('$default'+vs.realname,tt,false);
+              include(tcsym.symoptions,sp_internal);
               vs.defaultconstsym:=tcsym;
               symtablestack.insert(tcsym);
               readtypedconst(tt,tcsym,false);

tests/webtbs/tw4574.pp

@@ -0,0 +1,13 @@
+{ %OPT=-vh -Seh }
+
+procedure t;
+var
+  i: integer = 5;
+  defaulti: integer;
+begin
+  writeln(i);
+end;
+
+begin
+  t;
+end.