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

* Fixed default value for floats (mantis #9183)

Browse Source 
git-svn-id: trunk@11687 -
This commit is contained in:
michael 2008-09-01 16:54:05 +00:00
parent 64e6d68a64
commit 0ed810b6b0
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

@ -808,8 +808,8 @@ begin
if HasAncestor then
DefFloatValue := GetFloatProp(Ancestor, PropInfo)
else
DefFloatValue := 0;
if FloatValue <> DefFloatValue then
DefFloatValue := PPropInfo(PropInfo)^.Default;
if (FloatValue<>DefFloatValue) or (DefValue=longint($80000000)) then
begin
Driver.BeginProperty(FPropPath + PPropInfo(PropInfo)^.Name);
WriteFloat(FloatValue);