+ Merged revision 3860: Fixed nodefault storage specifier and case where stored is explicitly true

git-svn-id: branches/fixes_2_0@3861 -

compiler/pdecvar.pas

@@ -526,7 +526,10 @@ implementation
                       exclude(p.propoptions,ppo_stored);
                     end;
                   _TRUE:
+                    begin
+                    p.default:=longint($80000000);
                     consume(_TRUE);
+                    end;
                 end;
               end;
            end;
@@ -580,7 +583,7 @@ implementation
            end
          else if try_to_consume(_NODEFAULT) then
            begin
-              p.default:=0;
+              p.default:=longint($80000000);
            end;
          { remove temporary procvardefs }
          symtablestack:=symtablestack.next;