t_id
529
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/05/17 23:27:00 24 | 2024/05/18 00:31:00 29 | |
| i386 | 19 | 38.0 | 2024/05/17 23:27:00 24 | 2024/05/18 00:21:00 24 | |
| sparc | 19 | 38.0 | 2024/05/17 23:27:00 38 | 2024/05/17 23:55:00 41 | |
| x86_64 | 11 | 22.0 | 2024/05/18 00:05:00 29 | 2024/05/18 00:31:00 29 | |
| aarch64 | 1 | 2.0 | 2024/05/18 00:11:00 33 | 2024/05/18 00:11:00 33 | |
| linux | 8 | 16.0 | 2024/05/17 23:33:00 28 | 2024/05/18 00:20:00 23 | |
| win32 | 4 | 8.0 | 2024/05/17 23:27:00 24 | 2024/05/18 00:21:00 24 | |
| solaris | 38 | 76.0 | 2024/05/17 23:27:00 24 | 2024/05/18 00:31:00 29 | |
| 3.3.1 | 24 | 48.0 | 2024/05/17 23:27:00 24 | 2024/05/18 00:21:00 24 | |
| 3.2.3 | 26 | 52.0 | 2024/05/17 23:27:00 38 | 2024/05/18 00:31:00 29 |
{$R+}
type
ta = object
constructor init;
destructor done;
procedure p;virtual;
end;
pa = ^ta;
constructor ta.init;
begin
end;
destructor ta.done;
begin
end;
procedure ta.p;
begin
end;
type
plongint = ^longint;
var
p : pa;
data : array[0..4] of longint;
saveexit : pointer;
procedure testerror;
begin
exitproc:=saveexit;
if errorcode=210 then
begin
errorcode:=0;
writeln('Object valid VMT check works');
runerror(0);
end
else
halt(1);
end;
begin
saveexit:=exitproc;
exitproc:=@testerror;
fillchar(data,sizeof(data),12);
p:=new(pa,init);
p^.p;
{ the vmt pointer gets an invalid value: }
plongint(p)^:=longint(@data);
{ causes runerror }
p^.p;
halt(1);
end.