paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 16:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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