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

git-svn-id: trunk@46456 -

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;
 

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);

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

tests/tbs/tb0433.pp

@@ -4,6 +4,7 @@
 type
   codepointer = pointer;
 {$endif fpc}
+{$F+}
 
 function times2(x : longint) : longint;
 

tests/test/cg/taddr2.pp

@@ -16,6 +16,7 @@ program taddr;
 {$ifdef fpc}
   {$mode tp}
 {$endif}
+{$F+}
 
    procedure testprocvar;
      begin

tests/test/tprocvar2.pp

@@ -1,7 +1,7 @@
-{$F+}
 {$ifdef fpc}
 {$mode tp}
 {$endif fpc}
+{$F+}
 
 type
   tproc = procedure;

tests/webtbs/tw2059.pp

@@ -1,4 +1,5 @@
 {$mode tp}
+{$F+}
 type ProcType    = procedure(s:string);
      GetProcType = function(s:string;var Proc:ProcType):boolean;
 

tests/webtbs/tw2268.pp

@@ -2,6 +2,7 @@
 { Submitted by "marco" on  2002-12-19 }
 { e-mail: [email protected] }
 {$ifdef fpc}{$mode TP}{$endif}
+{$F+}
 
 function P1:longint; begin end;
 function P2:longint; begin end;