t_id
1281
t_adddate
2004/04/12
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/06/02 01:59:00 19 | 2024/06/02 03:03:00 41 | |
| i386 | 12 | 24.0 | 2024/06/02 02:01:00 27 | 2024/06/02 03:03:00 41 | |
| x86_64 | 35 | 70.0 | 2024/06/02 01:59:00 19 | 2024/06/02 02:31:00 34 | |
| aarch64 | 3 | 6.0 | 2024/06/02 02:03:00 34 | 2024/06/02 02:19:00 41 | |
| linux | 48 | 96.0 | 2024/06/02 01:59:00 19 | 2024/06/02 02:31:00 34 | |
| win32 | 1 | 2.0 | 2024/06/02 02:04:00 35 | 2024/06/02 02:04:00 35 | |
| solaris | 1 | 2.0 | 2024/06/02 03:03:00 41 | 2024/06/02 03:03:00 41 | |
| 3.3.1 | 27 | 54.0 | 2024/06/02 01:59:00 19 | 2024/06/02 03:03:00 41 | |
| 3.2.3 | 23 | 46.0 | 2024/06/02 02:00:00 35 | 2024/06/02 02:31:00 34 |
{ Source provided for Free Pascal Bug Report 3041 }
{ Submitted by "C Western" on 2004-04-06 }
{ e-mail: mftq75@dsl.pipex.com }
program bug2;
{$mode objfpc}{$H+}
uses
Classes;
type
TMyCollectionItem = class(TCollectionItem)
public
procedure Assign(Source: TPersistent); override;
end;
procedure TMyCollectionItem.Assign(Source: TPersistent);
begin
end;
var
A, B: TCollection;
C: TMyCollectionItem;
begin
A := TCollection.Create(TMyCollectionItem);
B := TCollection.Create(TMyCollectionItem);
C := TMyCollectionItem.Create(A);
Writeln(A.Count);
B.Assign(A);
Writeln(B.Count);
if B.Count<>A.Count then
begin
writeln('Error!');
halt(1);
end;
end.