t_id
477
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/18 01:10:00 32 | 2024/05/18 01:59:00 0 | |
i386 | 27 | 54.0 | 2024/05/18 01:10:00 32 | 2024/05/18 01:58:00 0 | |
x86_64 | 20 | 40.0 | 2024/05/18 01:28:00 26 | 2024/05/18 01:59:00 0 | |
aarch64 | 3 | 6.0 | 2024/05/18 01:29:00 34 | 2024/05/18 01:46:00 37 | |
linux | 49 | 98.0 | 2024/05/18 01:10:00 32 | 2024/05/18 01:59:00 0 | |
go32v2 | 1 | 2.0 | 2024/05/18 01:45:00 54 | 2024/05/18 01:45:00 54 | |
3.3.1 | 29 | 58.0 | 2024/05/18 01:29:00 34 | 2024/05/18 01:59:00 0 | |
3.2.3 | 21 | 42.0 | 2024/05/18 01:10:00 32 | 2024/05/18 01:58:00 0 |
{ Old file: tbs0288.pp } { crash with virtual method in except part OK 0.99.13 (PFV) } {$mode objfpc} uses sysutils; const test_run : boolean = false; type zz=class(tobject) procedure test;virtual; procedure test1;virtual; end; procedure zz.test; begin writeln('ok'); test_run:=true; end; procedure zz.test1; begin try raise exception.create('zz'); except on e:exception do test; end; end; var z:zz; begin z:=zz.create; z.test1; z.destroy; if not test_run then begin Writeln('Problem with virtual method in except block'); Halt(1); end; end.