t_id
1290
t_adddate
2004/05/19
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949668594 | 1015615 | False | False | Failed to run |
Record count: 1
[HEAP] Size: 96 Kb, Used: 304 bytes An unhandled exception occurred at $00000000: Exception: foo blah $00000000 Program ./tw3004.wasm exited with error 217 whereas only error 0 was expected
{ Source provided for Free Pascal Bug Report 3004 } { Submitted by "Michalis Kamburelis" on 2004-03-04 } { e-mail: michalis@camelot.homedns.org } {$mode OBJFPC} {$H+} { $mode DELPHI} uses SysUtils; procedure P; var s:string; begin s:='blah'; raise Exception.Create('foo ' +s); end; procedure p1; var i : sizeint; begin i:=memavail; try P; except end; if i<>memavail then begin writeln('Memleak'); halt(1); end; end; begin p1; end.