* Added the $F+ switch (forced far calls) for some TP mode tests.

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@46456 3ad0048d-3df7-0310-abae-a5850022a9f2

4 files changed, 4 insertions, 0 deletions

diff --git a/tests/tbs/tb0184.pp b/tests/tbs/tb0184.pp
index 1bdee473be..7ffa199abb 100644
--- a/tests/tbs/tb0184.pp
+++ b/tests/tbs/tb0184.pp
@@ -2,6 +2,7 @@
 { in tp mode can't use the procvar in writeln          OK 0.99.11 (PFV) }
 
 {$ifdef fpc}{$mode tp}{$endif}
+{$F+}
 
 type tmpproc=function:longint;
 
diff --git a/tests/tbs/tb0218.pp b/tests/tbs/tb0218.pp
index 4ef475c9fa..1ab6b87eac 100644
--- a/tests/tbs/tb0218.pp
+++ b/tests/tbs/tb0218.pp
@@ -2,6 +2,7 @@
 { problem with procvars in tp mode                     OK 0.99.11 (PM) }
 
 {$mode tp}
+{$F+}
 
 type proc = procedure(a : longint);
 procedure test(b : longint);
diff --git a/tests/tbs/tb0251.pp b/tests/tbs/tb0251.pp
index 1d4ffb782c..d13f0f5391 100644
--- a/tests/tbs/tb0251.pp
+++ b/tests/tbs/tb0251.pp
@@ -2,6 +2,7 @@
 { @procvar in tp mode bugss                             OK 0.99.13 (PFV) }
 
 {$ifdef fpc}{$mode tp}{$endif}
+{$F+}
 
 function ReturnString: string;
 begin
diff --git a/tests/tbs/tb0433.pp b/tests/tbs/tb0433.pp
index 32a939837d..9f1be83c86 100644
--- a/tests/tbs/tb0433.pp
+++ b/tests/tbs/tb0433.pp
@@ -4,6 +4,7 @@
 type
   codepointer = pointer;
 {$endif fpc}
+{$F+}
 
 function times2(x : longint) : longint;