Sfoglia il codice sorgente

+ add define to use ffi function call manager for tests

git-svn-id: trunk@39895 -
svenbarth 6 anni fa
parent
commit
509383aeb3
1 ha cambiato i file con 7 aggiunte e 1 eliminazioni
  1. 7 1
      packages/rtl-objpas/tests/testrunner.rtlobjpas.pp

+ 7 - 1
packages/rtl-objpas/tests/testrunner.rtlobjpas.pp

@@ -5,9 +5,15 @@ program testrunner.rtlobjpas;
 
 {$mode objfpc}{$H+}
 { Invoke needs a function call manager }
-{.$define testinvoke}
+{.$define useffi}
+{$ifdef useffi}
+{$define testinvoke}
+{$endif}
 
 uses
+{$ifdef useffi}
+  ffi.manager,
+{$endif}
   consoletestrunner,
 {$ifdef testinvoke}
   tests.rtti.invoke,