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

* Fix memory leak (patch by Marcos Douglas, ID )

Browse Source 
git-svn-id: trunk@21149 -
This commit is contained in:
michael 2012-04-30 20:06:41 +00:00
parent 71a4778ba6
commit 1515e397bb
1 changed files with 2 additions and 0 deletions

2
packages/fcl-db/src/json/fpjsondataset.pp
View File

@ -372,6 +372,7 @@ begin
else
FCurrentList:=Nil;
FreeAndNil(FDefaultList);
FreeAndNil(FFieldMapper);
FCurrentList:=Nil;
end;
@ -819,6 +820,7 @@ end;
procedure TBaseJSONDataSet.InternalOpen;
begin
FreeAndNil(FFieldMapper);
FFieldMapper:=CreateFieldMapper;
IF (FRows=Nil) then // opening from fielddefs ?
begin