paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 12:26:02 +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
parent 98574a88a3
commit e80560e59c
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); constructor TCompComponent.Create(AOwner: TComponent);
begin begin
inherited; inherited;
{$if defined(FPC_COMP_IS_INT64)}
F:=Round(4.56);
{$else defined(FPC_COMP_IS_INT64)}
F:=4.56; F:=4.56;
{$endif defined(FPC_COMP_IS_INT64)}
end; end;
{ TCurrencyComponent } { TCurrencyComponent }