t_id
703
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1021974366 | 1027255 | True | False | Successfully run |
Record count: 1
program TestVm2; procedure Test; var P: Pointer; begin P:=nil; ReAllocMem(P, 8); ReAllocMem(P, 0); if P<>nil then begin Writeln('ReAllocMem wtih zero size does not set pointer to nil'); Writeln('Bug 813 is not yet fixed'); Halt(1); end; end; var MemBefore : longint; begin writeln(MemAvail); MemBefore:=MemAvail; Test; writeln(MemAvail); if MemBefore<>MemAvail then begin Writeln('ReAllocMem creates emory leaks'); Writeln('Bug 812 is not yet fixed'); end; end.