|
This bug demo program
compiled with fpc 2.0.1 stable under linux uses megabytes of memory. Concatenating a
string and a variant causes the problem. Thank you, Franz Schober program
heapstate; uses
Classes,sysutils; procedure
DumpHeapState; var
HS:THeapStatus; o:string; begin HS:=GetHeapStatus; o:=Format('HEAP
STATE TA/TF %d/%d TC/TU %d/%d UU %d OH %d',[hs.TotalAllocated,hs.TotalFree,hs.TotalCommitted,hs.TotalUncommitted,hs.Unused,hs.Overhead]); writeln(o); end; var i:integer; s,s2:string; v:variant; begin for i:=1 to
2000000000 do begin v:='10'; s:=' leak
'+v; if i mod
100000=0 then begin DumpHeapState; end; end; readln; end. |
_______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel
