* also run invoke tests if internal function call manager is available (which we prefer to the ffi one)

git-svn-id: trunk@39896 -

packages/rtl-objpas/tests/testrunner.rtlobjpas.pp

@@ -6,9 +6,13 @@ program testrunner.rtlobjpas;
 {$mode objfpc}{$H+}
 { Invoke needs a function call manager }
 {.$define useffi}
+{$if defined(CPUX64) and defined(WINDOWS)}
+{$define testinvoke}
+{$else}
 {$ifdef useffi}
 {$define testinvoke}
 {$endif}
+{$endif}
 
 uses
 {$ifdef useffi}