t_id
1402
t_adddate
2004/11/28
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/17 22:33:00 21 | 2024/05/18 00:20:00 0 | |
| i386 | 24 | 48.0 | 2024/05/17 22:33:00 21 | 2024/05/18 00:20:00 0 | |
| sparc | 20 | 40.0 | 2024/05/17 23:24:00 38 | 2024/05/17 23:55:00 41 | |
| x86_64 | 6 | 12.0 | 2024/05/18 00:05:00 29 | 2024/05/18 00:19:00 0 | |
| linux | 7 | 14.0 | 2024/05/17 23:33:00 28 | 2024/05/18 00:20:00 0 | |
| win32 | 5 | 10.0 | 2024/05/17 22:33:00 21 | 2024/05/17 23:54:00 25 | |
| solaris | 38 | 76.0 | 2024/05/17 23:23:00 25 | 2024/05/18 00:19:00 0 | |
| 3.3.1 | 29 | 58.0 | 2024/05/17 22:33:00 21 | 2024/05/17 23:59:00 30 | |
| 3.2.3 | 21 | 42.0 | 2024/05/17 23:24:00 38 | 2024/05/18 00:20:00 0 |
{ Source provided for Free Pascal Bug Report 3101 }
{ Submitted by "Martin Schreiber" on 2004-05-15 }
{ e-mail: }
program test;
{ $mode delphi}{$H+}
uses
Classes;
type
ttestobj = class
public
constructor create;
destructor destroy; override;
procedure afterconstruction; override;
procedure beforedestruction; override;
end;
var
testobj: ttestobj;
procedure ttestobj.afterconstruction;
begin
writeln('afterconstruction');
end;
procedure ttestobj.beforedestruction;
begin
writeln('beforedestruction');
end;
constructor ttestobj.create;
begin
writeln('create');
end;
destructor ttestobj.destroy;
begin
writeln('destroy');
inherited;
end;
begin
testobj:= ttestobj(ttestobj.newinstance);
writeln(longint(testobj));
writeln(longint(testobj.create));
testobj.free;
//expected: create,afterconstruction,beforedestruction,destroy
//actual: create,beforedestruction,destroy
//kylix shows the expected behavior
end.