git-svn-id: trunk@34105 -
@@ -1,4 +1,4 @@
-{ %skiptarget=go32v2 }
+{%skiptarget=$nothread }
program MaxThread;
@@ -1,3 +1,5 @@
+
{$mode objfpc}
uses
{$s+}
@@ -1,3 +1,4 @@
{$H+}
@@ -13,7 +14,7 @@ type
public
constructor CreateRace(const ForceFail: Boolean);
procedure Execute; override;
- end;
+ end;
constructor TThreadChild.CreateRace(const ForceFail: Boolean);
begin
{ %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;
flag := True;
{ Source provided for Free Pascal Bug Report 2794 }
{ Submitted by "Johannes Berg" on 2003-11-17 }
{ e-mail: [email protected] }
{ Source provided for Free Pascal Bug Report 3467 }
{ Submitted by "Micha Nelissen" on 2004-12-24 }
-{%skiptarget=go32v2}
{ Source provided for Free Pascal Bug Report 3695 }
{ Submitted by "Pedro Lopez-Cabanillas" on 2005-02-25 }
{ Source provided for Free Pascal Bug Report 3751 }
{ Submitted by "Nicola Lugato" on 2005-03-05 }
{ Source provided for Free Pascal Bug Report 4201 }
{ Submitted by "Gergely Nagy" on 2005-07-19 }
@@ -72,6 +73,6 @@ begin
t:= TBuggedThread.Create;
t.Execute;
t.Free();
end.
{ %OPT=-gl -gh }
program t3;
{ %opt=-CN }
{ the -CN is to generated null pointer load checks for AIX,