From c97b607e60b5aefc326d2095f76d171d03d269b0 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Sun, 7 Oct 2018 12:26:09 +0000
Subject: [PATCH] * 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 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/packages/rtl-objpas/tests/testrunner.rtlobjpas.pp b/packages/rtl-objpas/tests/testrunner.rtlobjpas.pp
index 6a4bc54a1a..c807f8be99 100644
--- a/packages/rtl-objpas/tests/testrunner.rtlobjpas.pp
+++ b/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}