t_id
1550
t_adddate
2005/04/06
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 23:36:00 42 | 2024/05/18 01:27:00 35 | |
i386 | 31 | 62.0 | 2024/05/18 00:07:00 24 | 2024/05/18 01:27:00 35 | |
sparc | 2 | 4.0 | 2024/05/17 23:36:00 42 | 2024/05/17 23:52:00 41 | |
x86_64 | 13 | 26.0 | 2024/05/18 00:05:00 29 | 2024/05/18 01:24:00 26 | |
powerpc64 | 2 | 4.0 | 2024/05/18 01:09:00 101 | 2024/05/18 01:11:00 108 | |
aarch64 | 2 | 4.0 | 2024/05/18 00:11:00 33 | 2024/05/18 00:52:00 35 | |
linux | 35 | 70.0 | 2024/05/18 00:07:00 24 | 2024/05/18 01:27:00 35 | |
win32 | 1 | 2.0 | 2024/05/18 00:21:00 24 | 2024/05/18 00:21:00 24 | |
solaris | 14 | 28.0 | 2024/05/17 23:36:00 42 | 2024/05/18 00:34:00 30 | |
3.3.1 | 17 | 34.0 | 2024/05/17 23:36:00 42 | 2024/05/18 01:26:00 43 | |
3.2.3 | 33 | 66.0 | 2024/05/17 23:52:00 41 | 2024/05/18 01:27:00 35 |
{ Source provided for Free Pascal Bug Report 3778 } { Submitted by "David Fuchs" on 2005-03-13 } { e-mail: drfuchs@yahoo.com } {$mode objfpc} type a_class=class procedure a_method; function a_virtual_method:a_class; virtual; end; a_container=class a_field:a_class; end; var already_called: boolean; glob: a_class; container_array: array[0..255] of a_container; error : boolean; function a_function:byte; begin if already_called then begin writeln('This can not possibly happen!'); error:=true; end; a_function:=255; already_called:=true; end; function a_class.a_virtual_method:a_class; begin a_virtual_method:=self; end; procedure a_class.a_method; begin {this statement somehow compiles into TWO calls to a_function!} glob:=container_array[a_function].a_field.a_virtual_method; end; begin already_called:=false; glob:=a_class.create; container_array[255]:=a_container.create; container_array[255].a_field:=glob; glob.a_method; if error then halt(1); end.