t_id
1270
t_adddate
2004/03/04
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
| Result type | Cat. | Count | Percentage | First date | Last Date |
| Successfully run | 50 | 100.0 | 2024/05/21 01:22:00 34 | 2024/05/21 03:21:00 19 | |
| i386 | 10 | 20.0 | 2024/05/21 01:22:00 34 | 2024/05/21 03:02:00 25 | |
| x86_64 | 35 | 70.0 | 2024/05/21 01:33:00 15 | 2024/05/21 03:21:00 19 | |
| aarch64 | 5 | 10.0 | 2024/05/21 01:42:00 32 | 2024/05/21 03:08:00 37 | |
| linux | 44 | 88.0 | 2024/05/21 01:22:00 34 | 2024/05/21 03:20:00 18 | |
| win32 | 1 | 2.0 | 2024/05/21 03:02:00 25 | 2024/05/21 03:02:00 25 | |
| solaris | 5 | 10.0 | 2024/05/21 03:08:00 30 | 2024/05/21 03:21:00 19 | |
| 3.3.1 | 32 | 64.0 | 2024/05/21 01:33:00 15 | 2024/05/21 03:21:00 19 | |
| 3.2.3 | 18 | 36.0 | 2024/05/21 01:22:00 34 | 2024/05/21 03:19:00 27 |
{ Source provided for Free Pascal Bug Report 2794 }
{ Submitted by "Johannes Berg" on 2003-11-17 }
{ e-mail: bugs@johannes.sipsolutions.de }
program test;
{$ifdef fpc}
{$THREADING ON}
{$MODE OBJFPC}
{$endif}
uses
{$ifdef fpc}CThreads,{$endif}
Classes;
type
TMyThread = class(TThread)
procedure Execute;override;
end;
threadvar
x: ansistring;
procedure TMyThread.Execute;
begin
x := 'asdf';
x := x + x;
writeln(x);
end;
begin
TMyThread.Create(false).Free;
end.