t_id
773
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
477621837 | 940446 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 1152 } { Submitted by "Dirk Verwiebe" on 2000-09-30 } { e-mail: dirk@verwiebe.de } {$mode objfpc} program exception; uses sysutils,crt; var saveexit : pointer; finally_called : boolean; procedure my_exit; begin exitproc:=saveexit; if not finally_called then begin Writeln('Problem with exception handling if crt unit is used'); RunError(1); end else begin Writeln('Exception handling works'); exitcode:=0; end; end; var p : pointer; BEGIN saveexit:=exitproc; exitproc:=@my_exit; finally_called:=false; try p:=$ffffffff; longint(p^):=0; finally finally_called:=true; writeln('Error !!!'); end; END.