t_id
1513
t_adddate
2005/03/06
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=49 Percentage= 98.00
Skipped=1 Percentage= 2.00
| Result type | Cat. | Count | Percentage | First date | Last Date |
| Successfully run | 49 | 98.0 | 2024/05/18 01:10:00 32 | 2024/05/18 01:56:00 24 | |
| i386 | 28 | 57.1 | 2024/05/18 01:10:00 32 | 2024/05/18 01:55:00 26 | |
| x86_64 | 18 | 36.7 | 2024/05/18 01:28:00 26 | 2024/05/18 01:56:00 24 | |
| aarch64 | 3 | 6.1 | 2024/05/18 01:29:00 34 | 2024/05/18 01:46:00 37 | |
| linux | 49 | 100.0 | 2024/05/18 01:10:00 32 | 2024/05/18 01:56:00 24 | |
| 3.3.1 | 30 | 61.2 | 2024/05/18 01:26:00 31 | 2024/05/18 01:56:00 24 | |
| 3.2.3 | 19 | 38.8 | 2024/05/18 01:10:00 32 | 2024/05/18 01:55:00 26 | |
| Skipping test because for other target | 1 | 2.0 | 2024/05/18 01:45:00 54 | 2024/05/18 01:45:00 54 | |
| i386 | 1 | 100.0 | 2024/05/18 01:45:00 54 | 2024/05/18 01:45:00 54 | |
| go32v2 | 1 | 100.0 | 2024/05/18 01:45:00 54 | 2024/05/18 01:45:00 54 | |
| 3.2.3 | 1 | 100.0 | 2024/05/18 01:45:00 54 | 2024/05/18 01:45:00 54 |
{ Source provided for Free Pascal Bug Report 3751 }
{ Submitted by "Nicola Lugato" on 2005-03-05 }
{ e-mail: msx_80@hotmail.com }
{$mode delphi}
program turn;
uses cthreads, classes, sysutils;
type
Tmy = class(TThread)
constructor Create(suspended:boolean);
Procedure Execute;override;
end;
constructor TMy.Create(suspended:boolean);
begin
FreeOnTerminate:=true;
inherited Create(suspended);
end;
Procedure TMy.Execute;
begin
writeln('Just print and exit!');
end;
var m:TMy;
begin
m:=Tmy.create(true);
m.resume;
sleep(1000);
end.