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

* fix test for targets with FPC_COMP_IS_INT64 defined

Browse Source 
(cherry picked from commit e80560e59c)
This commit is contained in:
florian 2021-08-27 22:31:11 +02:00
parent 5894c13c63
commit 0a4d6df7b9
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 }