Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* enable Invoke() tests for i386

git-svn-id: trunk@41537 -
svenbarth 6 years ago
parent
d7bb4bd411
commit
42d126e713
1 changed files with 2 additions and 0 deletions
Split View Show Diff Stats
  1. 2 0
      packages/rtl-objpas/tests/testrunner.rtlobjpas.pp

+ 2 - 0
packages/rtl-objpas/tests/testrunner.rtlobjpas.pp
View File 

@@ -8,6 +8,8 @@ program testrunner.rtlobjpas;
 
 {.$define useffi}
 
 {$if defined(CPUX64) and defined(WINDOWS)}
 
 {$define testinvoke}
 
+{$elseif defined(CPUI386)}
 
+{$define testinvoke}
 
 {$else}
 
 {$ifdef useffi}
 
 {$define testinvoke}