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

* fix test for targets with FPC_COMP_IS_INT64 defined

Browse Source
This commit is contained in:
florian 2021-08-27 22:31:11 +02:00 committed by Michaël Van Canneyt
parent c2eb68330c
commit 5d9968366b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-json/tests/testcomps.pas
View File

@ -659,7 +659,11 @@ end;
constructor TCompComponent.Create(AOwner: TComponent);
begin
inherited;
{$if defined(FPC_COMP_IS_INT64)}
F:=Round(4.56);
{$else defined(FPC_COMP_IS_INT64)}
F:=4.56;
{$endif defined(FPC_COMP_IS_INT64)}
end;
{ TCurrencyComponent }