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

* Fixed memory leak. Patch by Inoussa OUEDRAOGO

Browse Source 
git-svn-id: trunk@9602 -
This commit is contained in:
michael 2007-12-31 10:02:53 +00:00
parent 323cd9e0fe
commit 621492c968
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-json/src/jsonparser.pp
View File

@ -41,6 +41,7 @@ Type
function Parse: TJSONData;
Constructor Create(Source : TStream); overload;
Constructor Create(Source : TJSONStringType); overload;
destructor Destroy();override;
end;
EJSONScanner = Class(Exception);
@ -245,5 +246,11 @@ begin
FScanner:=TJSONScanner.Create(Source);
end;
destructor TJSONParser.Destroy();
begin
FreeAndNil(FScanner);
inherited Destroy();
end;
end.