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

* correctly check for the Extended value of a Currency and Comp value

Browse Source 
git-svn-id: trunk@40765 -
This commit is contained in:
svenbarth 2019-01-04 15:03:27 +00:00
parent fa4502387b
commit 56eaa913b5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl-objpas/tests/tests.rtti.pas
View File

@ -604,7 +604,7 @@ begin
CheckEquals(v.IsClass, False); CheckEquals(v.IsClass, False);
CheckEquals(v.IsObject, False); CheckEquals(v.IsObject, False);
CheckEquals(v.IsOrdinal, False); CheckEquals(v.IsOrdinal, False);
Check(v.AsExtended=fcu); Check(v.AsExtended=Extended(fcu));
Check(v.AsCurrency=fcu); Check(v.AsCurrency=fcu);
Check(v.GetReferenceToRawData <> @fcu); Check(v.GetReferenceToRawData <> @fcu);
@ -643,7 +643,7 @@ begin
CheckEquals(v.IsClass, False); CheckEquals(v.IsClass, False);
CheckEquals(v.IsObject, False); CheckEquals(v.IsObject, False);
CheckEquals(v.IsOrdinal, False); CheckEquals(v.IsOrdinal, False);
Check(v.AsExtended=fco); Check(v.AsExtended=Extended(fco));
Check(v.GetReferenceToRawData <> @fco); Check(v.GetReferenceToRawData <> @fco);
try try