paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-07 06:30:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

TWriter: fix default value handling for Int64/QWord values. Issue #37525

Browse Source 
git-svn-id: trunk@46337 -
This commit is contained in:
ondrej 2020-08-09 06:13:06 +00:00
parent 4b84de6a72
commit 67acb289d7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/classes/writer.inc
View File

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