t_id
477
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525944145 | 948272 | True | False | Successfully run |
Record count: 1
{ 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.