test fixes for win64

Author: andrey.gruzdev

PythonForDelphi/Components/Sources/Core/UnitTests/MethodCallBackTest.pas

@@ -110,6 +110,8 @@ procedure TMethodCallbackTest.Teardown;
 end;
 
 procedure TMethodCallbackTest.TestBug01;
+const
+   AllocCount = {$IFDEF CPUX64}51{$ELSE}90{$ENDIF};
 var
   i: integer;
   ptr, ptr1, ptr2: Pointer;
@@ -142,7 +144,7 @@ procedure TMethodCallbackTest.TestBug01;
 
   CheckEquals(0, CodeMemPageCount);
 
-  for i:=1 to 90 do
+  for i:=1 to AllocCount do
     ptr:=GetCallBack(fTestObj, @TTestObj.ThreeArgCdeclProcedure, 5, ctCdecl);
 
   // there should still be 1 page allocated
@@ -242,6 +244,8 @@ procedure TMethodCallbackTest.TestFourArgStdFunction;
 end;
 
 procedure TMethodCallbackTest.TestMemoryMgmt;
+const
+   AllocCount = {$IFDEF CPUX64}101{$ELSE}110{$ENDIF};
 var
   i: integer;
   ptr, ptr1, ptr2: Pointer;
@@ -253,7 +257,7 @@ procedure TMethodCallbackTest.TestMemoryMgmt;
 
   CheckEquals(0, CodeMemPageCount);
 
-  for i:=1 to 110 do
+  for i:=1 to AllocCount do
     ptr:=GetCallBack(fTestObj, @TTestObj.ThreeArgCdeclProcedure, 3, ctCdecl);
 
   // there should still be 1 page allocated