paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 20:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

Use %skiptarget=$nothread for tests using thread capabilities

Browse Source 
git-svn-id: trunk@34105 -
This commit is contained in:
pierre 2016-07-13 15:21:23 +00:00
parent 2b3ef31505
commit 1e58b6d944
14 changed files with 18 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/webtbs/tw10815.pp
View File

@ -1,4 +1,4 @@
{ %skiptarget=go32v2 } {%skiptarget=$nothread }
program MaxThread; program MaxThread;

2
tests/webtbs/tw11006.pp
View File

@ -1,3 +1,5 @@
{%skiptarget=$nothread }
{$mode objfpc} {$mode objfpc}
uses uses

2
tests/webtbs/tw12942.pp
View File

@ -1,4 +1,4 @@
{ %skiptarget=go32v2 } {%skiptarget=$nothread }
{$mode objfpc} {$mode objfpc}
{$s+} {$s+}

1
tests/webtbs/tw16326.pp
View File

@ -1,3 +1,4 @@
{%skiptarget=$nothread }
{$mode objfpc} {$mode objfpc}
{$H+} {$H+}

3
tests/webtbs/tw16884.pp
View File

@ -1,3 +1,4 @@
{%skiptarget=$nothread }
{$mode objfpc} {$mode objfpc}
uses uses
@ -13,7 +14,7 @@ type
public public
constructor CreateRace(const ForceFail: Boolean); constructor CreateRace(const ForceFail: Boolean);
procedure Execute; override; procedure Execute; override;
end; end;
constructor TThreadChild.CreateRace(const ForceFail: Boolean); constructor TThreadChild.CreateRace(const ForceFail: Boolean);
begin begin

3
tests/webtbs/tw17560.pp
View File

@ -1,3 +1,4 @@
{%skiptarget=$nothread }
{ %OPT=-gh } { %OPT=-gh }
// Creating a suspended TThread and then destroying it should not cause memory leaks. // Creating a suspended TThread and then destroying it should not cause memory leaks.
// Also, Execute() method should not be called. // Also, Execute() method should not be called.
@ -18,7 +19,7 @@ type
var var
t: TThread; t: TThread;
Flag: Boolean; Flag: Boolean;
procedure TMyThread.Execute; procedure TMyThread.Execute;
begin begin
flag := True; flag := True;

1
tests/webtbs/tw2794.pp
View File

@ -1,3 +1,4 @@
{%skiptarget=$nothread }
{ Source provided for Free Pascal Bug Report 2794 } { Source provided for Free Pascal Bug Report 2794 }
{ Submitted by "Johannes Berg" on 2003-11-17 } { Submitted by "Johannes Berg" on 2003-11-17 }
{ e-mail: bugs@johannes.sipsolutions.de } { e-mail: bugs@johannes.sipsolutions.de }

1
tests/webtbs/tw3467.pp
View File

@ -1,3 +1,4 @@
{%skiptarget=$nothread }
{ Source provided for Free Pascal Bug Report 3467 } { Source provided for Free Pascal Bug Report 3467 }
{ Submitted by "Micha Nelissen" on 2004-12-24 } { Submitted by "Micha Nelissen" on 2004-12-24 }
{ e-mail: micha@neli.hopto.org } { e-mail: micha@neli.hopto.org }

2
tests/webtbs/tw3695.pp
View File

@ -1,4 +1,4 @@
{%skiptarget=go32v2} {%skiptarget=$nothread }
{ Source provided for Free Pascal Bug Report 3695 } { Source provided for Free Pascal Bug Report 3695 }
{ Submitted by "Pedro Lopez-Cabanillas" on 2005-02-25 } { Submitted by "Pedro Lopez-Cabanillas" on 2005-02-25 }
{ e-mail: plcl@telefonica.net } { e-mail: plcl@telefonica.net }

1
tests/webtbs/tw3751.pp
View File

@ -1,3 +1,4 @@
{%skiptarget=$nothread }
{ Source provided for Free Pascal Bug Report 3751 } { Source provided for Free Pascal Bug Report 3751 }
{ Submitted by "Nicola Lugato" on 2005-03-05 } { Submitted by "Nicola Lugato" on 2005-03-05 }
{ e-mail: msx_80@hotmail.com } { e-mail: msx_80@hotmail.com }

2
tests/webtbs/tw3814.pp
View File

@ -1,4 +1,4 @@
{%skiptarget=go32v2} {%skiptarget=$nothread }
{ Source provided for Free Pascal Bug Report 3695 } { Source provided for Free Pascal Bug Report 3695 }
{ Submitted by "Pedro Lopez-Cabanillas" on 2005-02-25 } { Submitted by "Pedro Lopez-Cabanillas" on 2005-02-25 }
{ e-mail: plcl@telefonica.net } { e-mail: plcl@telefonica.net }

3
tests/webtbs/tw4201.pp
View File

@ -1,3 +1,4 @@
{%skiptarget=$nothread }
{ Source provided for Free Pascal Bug Report 4201 } { Source provided for Free Pascal Bug Report 4201 }
{ Submitted by "Gergely Nagy" on 2005-07-19 } { Submitted by "Gergely Nagy" on 2005-07-19 }
{ e-mail: gergely.nagy@softreal.hu } { e-mail: gergely.nagy@softreal.hu }
@ -72,6 +73,6 @@ begin
t:= TBuggedThread.Create; t:= TBuggedThread.Create;
t.Execute; t.Execute;
t.Free(); t.Free();
end. end.

1
tests/webtbs/tw6767.pp
View File

@ -1,3 +1,4 @@
{%skiptarget=$nothread }
{ %OPT=-gl -gh } { %OPT=-gl -gh }
program t3; program t3;

1
tests/webtbs/tw9073.pp
View File

@ -1,3 +1,4 @@
{%skiptarget=$nothread }
{ %opt=-CN } { %opt=-CN }
{ the -CN is to generated null pointer load checks for AIX, { the -CN is to generated null pointer load checks for AIX,