paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 09:26:15 +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 var
i : sizeint; i : sizeint;
begin begin
i:=memavail; i:=heapsize-memavail;
try try
P; P;
except except
end; end;
if i<>memavail then if i<>heapsize-memavail then
begin begin
writeln('Memleak'); writeln('Memleak');
halt(1); halt(1);