Merge r46337 from trunk

Revision: 46337
Author: ondrej
Date: 2020-08-09 08:13:06
Message:
TWriter: fix default value handling for Int64/QWord values. Issue #37525

git-svn-id: branches/fixes_3_2@46339 -

rtl/objpas/classes/writer.inc

@@ -1171,8 +1171,8 @@ begin
         if HasAncestor then
           DefInt64Value := GetInt64Prop(Ancestor, PropInfo)
         else
-          DefInt64Value := 0;
-        if Int64Value <> DefInt64Value then
+          DefInt64Value := PPropInfo(PropInfo)^.Default;
+        if (Int64Value <> DefInt64Value) or (DefInt64Value=longint($80000000)) then
         begin
           Driver.BeginProperty(FPropPath + PPropInfo(PropInfo)^.Name);
           WriteInteger(Int64Value);