t_id
953
t_adddate
2003/10/03
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:36:00 47 | 2024/06/02 05:04:00 31 | |
i386 | 6 | 12.0 | 2024/06/02 01:36:00 47 | 2024/06/02 04:24:00 56 | |
m68k | 1 | 2.0 | 2024/06/02 03:55:00 53 | 2024/06/02 03:55:00 53 | |
sparc | 3 | 6.0 | 2024/06/02 03:07:00 41 | 2024/06/02 04:00:00 40 | |
powerpc | 1 | 2.0 | 2024/06/02 04:10:00 238 | 2024/06/02 04:10:00 238 | |
x86_64 | 29 | 58.0 | 2024/06/02 01:57:00 22 | 2024/06/02 05:04:00 31 | |
powerpc64 | 4 | 8.0 | 2024/06/02 04:15:00 53 | 2024/06/02 04:32:00 57 | |
mips | 1 | 2.0 | 2024/06/02 04:00:00 47 | 2024/06/02 04:00:00 47 | |
mipsel | 1 | 2.0 | 2024/06/02 04:06:00 185 | 2024/06/02 04:06:00 185 | |
aarch64 | 4 | 8.0 | 2024/06/02 01:46:00 39 | 2024/06/02 04:26:00 35 | |
linux | 39 | 78.0 | 2024/06/02 01:36:00 47 | 2024/06/02 04:32:00 57 | |
go32v2 | 2 | 4.0 | 2024/06/02 03:45:00 54 | 2024/06/02 04:24:00 56 | |
solaris | 9 | 18.0 | 2024/06/02 03:07:00 41 | 2024/06/02 05:04:00 31 | |
3.3.1 | 30 | 60.0 | 2024/06/02 01:46:00 39 | 2024/06/02 05:04:00 31 | |
3.2.3 | 20 | 40.0 | 2024/06/02 01:36:00 47 | 2024/06/02 04:32:00 57 |
{ Source provided for Free Pascal Bug Report 2421 } { Submitted by "N. Hug" on 2003-03-16 } { e-mail: hug__@t-online.de } PROGRAM Bug; {$ifdef fpc}{$MODE DELPHI}{$endif} TYPE TTestEvent =PROCEDURE OF OBJECT; TYPE TTest =CLASS FOnTest :TTestEvent; PROPERTY OnTest:TTestEvent READ FOnTest WRITE FOnTest; END; TYPE THost =CLASS PRIVATE FTest :TTest; PROCEDURE DoTest; PUBLIC CONSTRUCTOR Create; END; PROCEDURE THost.DoTest; BEGIN // Accessing instance data results in a crash. // It shows that SELF is not properly set. IF FTest = NIL THEN begin END; END; CONSTRUCTOR THost.Create; BEGIN INHERITED; FTest := TTest.Create; // Buggy code: FTest.OnTest := DoTest; // Non buggy alternatives: // FTest.OnTest := SELF.DoTest; // FTest.FOnTest := DoTest; // Now call it. FTest.OnTest; END; VAR M :THost; BEGIN M := THost.Create; M.Free; END.