Use %skiptarget=$nothread for tests using thread capabilities

git-svn-id: trunk@34105 -
2025-04-22 07:09:29 +02:00 · 2016-07-13 15:21:23 +00:00 · 2016-07-13 15:21:23 +00:00 · 1e58b6d944
commit 1e58b6d944
parent 2b3ef31505
14 changed files with 18 additions and 7 deletions
--- a/tests/webtbs/tw10815.pp
+++ b/tests/webtbs/tw10815.pp
@ -1,4 +1,4 @@
-{ %skiptarget=go32v2 }
+{%skiptarget=$nothread }

 program MaxThread;

--- a/tests/webtbs/tw11006.pp
+++ b/tests/webtbs/tw11006.pp
@ -1,3 +1,5 @@
+{%skiptarget=$nothread }
+
 {$mode objfpc}

 uses
--- a/tests/webtbs/tw12942.pp
+++ b/tests/webtbs/tw12942.pp
@ -1,4 +1,4 @@
-{ %skiptarget=go32v2 }
+{%skiptarget=$nothread }

 {$mode objfpc}
 {$s+}
--- a/tests/webtbs/tw16326.pp
+++ b/tests/webtbs/tw16326.pp
@ -1,3 +1,4 @@
+{%skiptarget=$nothread }
 {$mode objfpc}
 {$H+}

--- a/tests/webtbs/tw16884.pp
+++ b/tests/webtbs/tw16884.pp
@ -1,3 +1,4 @@
+{%skiptarget=$nothread }
 {$mode objfpc}

 uses
@ -13,7 +14,7 @@ type
  public
    constructor CreateRace(const ForceFail: Boolean);
    procedure Execute; override;
-  end; 
+  end;

 constructor TThreadChild.CreateRace(const ForceFail: Boolean);
 begin
--- a/tests/webtbs/tw17560.pp
+++ b/tests/webtbs/tw17560.pp
@ -1,3 +1,4 @@
+{%skiptarget=$nothread }
 { %OPT=-gh }
 // Creating a suspended TThread and then destroying it should not cause memory leaks.
 // Also, Execute() method should not be called.
@ -18,7 +19,7 @@ type
 var
  t: TThread;
  Flag: Boolean;
-  
+
 procedure TMyThread.Execute;
 begin
  flag := True;
--- a/tests/webtbs/tw2794.pp
+++ b/tests/webtbs/tw2794.pp
@ -1,3 +1,4 @@
+{%skiptarget=$nothread }
 { Source provided for Free Pascal Bug Report 2794 }
 { Submitted by "Johannes Berg" on  2003-11-17 }
 { e-mail: bugs@johannes.sipsolutions.de }
--- a/tests/webtbs/tw3467.pp
+++ b/tests/webtbs/tw3467.pp
@ -1,3 +1,4 @@
+{%skiptarget=$nothread }
 { Source provided for Free Pascal Bug Report 3467 }
 { Submitted by "Micha Nelissen" on  2004-12-24 }
 { e-mail: micha@neli.hopto.org }
--- a/tests/webtbs/tw3695.pp
+++ b/tests/webtbs/tw3695.pp
@ -1,4 +1,4 @@
-{%skiptarget=go32v2}
+{%skiptarget=$nothread }
 { Source provided for Free Pascal Bug Report 3695 }
 { Submitted by "Pedro Lopez-Cabanillas" on  2005-02-25 }
 { e-mail: plcl@telefonica.net }
--- a/tests/webtbs/tw3751.pp
+++ b/tests/webtbs/tw3751.pp
@ -1,3 +1,4 @@
+{%skiptarget=$nothread }
 { Source provided for Free Pascal Bug Report 3751 }
 { Submitted by "Nicola Lugato" on  2005-03-05 }
 { e-mail: msx_80@hotmail.com }
--- a/tests/webtbs/tw3814.pp
+++ b/tests/webtbs/tw3814.pp
@ -1,4 +1,4 @@
-{%skiptarget=go32v2}
+{%skiptarget=$nothread }
 { Source provided for Free Pascal Bug Report 3695 }
 { Submitted by "Pedro Lopez-Cabanillas" on  2005-02-25 }
 { e-mail: plcl@telefonica.net }
--- a/tests/webtbs/tw4201.pp
+++ b/tests/webtbs/tw4201.pp
@ -1,3 +1,4 @@
+{%skiptarget=$nothread }
 { Source provided for Free Pascal Bug Report 4201 }
 { Submitted by "Gergely Nagy" on  2005-07-19 }
 { e-mail: gergely.nagy@softreal.hu }
@ -72,6 +73,6 @@ begin
  t:= TBuggedThread.Create;

  t.Execute;
-  
+
  t.Free();
 end.
--- a/tests/webtbs/tw6767.pp
+++ b/tests/webtbs/tw6767.pp
@ -1,3 +1,4 @@
+{%skiptarget=$nothread }
 { %OPT=-gl -gh }
 program t3;

--- a/tests/webtbs/tw9073.pp
+++ b/tests/webtbs/tw9073.pp
@ -1,3 +1,4 @@
+{%skiptarget=$nothread }
 { %opt=-CN }

 { the -CN is to generated null pointer load checks for AIX,