mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 00:59:08 +02:00
* fix memory leak of tcustomattr13
git-svn-id: trunk@43298 -
This commit is contained in:
parent
03d003d0ba
commit
6f74dd4207
@ -190,6 +190,7 @@ begin
|
|||||||
strm.SetSize(ae.ArgLen);
|
strm.SetSize(ae.ArgLen);
|
||||||
Move(ae.ArgData^, strm.Memory^, ae.ArgLen);
|
Move(ae.ArgData^, strm.Memory^, ae.ArgLen);
|
||||||
CheckProcs[i](strm);
|
CheckProcs[i](strm);
|
||||||
|
strm.Free;
|
||||||
end;
|
end;
|
||||||
Writeln('ok');
|
Writeln('ok');
|
||||||
end.
|
end.
|
||||||
|
Loading…
Reference in New Issue
Block a user