t_id
477
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949660031 | 1015615 | False | False | Failed to run |
Record count: 1
An unhandled exception occurred at $00000000: Exception: zz $00000000 ##WASI-EXITCODE: 217 -> 125##>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
{ 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.