paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 03:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use heapsize-memavail to check memleak

Browse Source
This commit is contained in:
peter 2004-07-06 19:54:12 +00:00
parent 60b53cb1c1
commit bfcccab25b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/webtbs/tw3004.pp
View File

@ -18,12 +18,12 @@ procedure p1;
var
i : sizeint;
begin
i:=memavail;
i:=heapsize-memavail;
try
P;
except
end;
if i<>memavail then
if i<>heapsize-memavail then
begin
writeln('Memleak');
halt(1);