paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 23:31:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@46456 -
This commit is contained in:
yury 2020-08-16 10:48:10 +00:00
parent 721e89fafd
commit 2ab7cceeaa
8 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/tbs/tb0184.pp
View File

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

1
tests/tbs/tb0218.pp
View File

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

1
tests/tbs/tb0251.pp
View File

@ -2,6 +2,7 @@
{ @procvar in tp mode bugss OK 0.99.13 (PFV) }
{$ifdef fpc}{$mode tp}{$endif}
{$F+}
function ReturnString: string;
begin

1
tests/tbs/tb0433.pp
View File

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

1
tests/test/cg/taddr2.pp
View File

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

2
tests/test/tprocvar2.pp
View File

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

1
tests/webtbs/tw2059.pp
View File

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

1
tests/webtbs/tw2268.pp
View File

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