Merged revisions 12114 via svnmerge from

svn+ssh://svn.freepascal.org/FPC/svn/fpc/trunk

........
  r12114 | michael | 2008-11-15 23:13:59 +0100 (Sat, 15 Nov 2008) | 1 line
  
  * Fixed lost default value in case of a property override
........

git-svn-id: branches/fixes_2_2@12195 -

compiler/pdecvar.pas

@@ -280,6 +280,7 @@ implementation
            end;
          { Generate propertysym and insert in symtablestack }
          p:=tpropertysym.create(orgpattern);
+         p.default:=longint($80000000);
          symtablestack.top.insert(p);
          consume(_ID);
          { property parameters ? }
@@ -620,12 +621,13 @@ implementation
          else if try_to_consume(_NODEFAULT) then
            begin
               p.default:=longint($80000000);
-           end
-         else if allow_default_property(p) then
+           end;
+(*
+         else {if allow_default_property(p) then
            begin
               p.default:=longint($80000000);
            end;
-  
+*)
          { Parse possible "implements" keyword }
          if try_to_consume(_IMPLEMENTS) then
            begin