paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 05:09:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* correctly compare tkFloat values

Browse Source 
git-svn-id: trunk@40661 -
This commit is contained in:
svenbarth 2018-12-26 22:59:21 +00:00
parent 8d235b5f26
commit bd328025fd
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/rtl-objpas/tests/tests.rtti.invoke.pas
View File

@ -138,6 +138,21 @@ begin
Result := aValue1.AsOrdinal = aValue2.AsOrdinal; Result := aValue1.AsOrdinal = aValue2.AsOrdinal;
tkQWord: tkQWord:
Result := aValue1.AsUInt64 = aValue2.AsUInt64; Result := aValue1.AsUInt64 = aValue2.AsUInt64;
tkFloat:
if td1^.FloatType <> td2^.FloatType then
Result := False
else begin
case td1^.FloatType of
ftSingle,
ftDouble,
ftExtended:
Result := aValue1.AsExtended = aValue2.AsExtended;
ftComp:
Result := aValue1.AsInt64 = aValue2.AsInt64;
ftCurr:
Result := aValue1.AsCurrency = aValue2.AsCurrency;
end;
end;
tkSString, tkSString,
tkUString, tkUString,
tkAString, tkAString,