Pārlūkot izejas kodu

* fix test for targets with FPC_COMP_IS_INT64 defined

(cherry picked from commit e80560e59c8abbdd5ec21c445fce25b3627aad3a)
florian 4 gadi atpakaļ
vecāks
revīzija
0a4d6df7b9
1 mainītis faili ar 4 papildinājumiem un 0 dzēšanām
  1. 4 0
      packages/fcl-json/tests/testcomps.pas

+ 4 - 0
packages/fcl-json/tests/testcomps.pas

@@ -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 }