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

* Fixed known memory leaks

Browse Source 
git-svn-id: trunk@26820 -
This commit is contained in:
michael 2014-02-21 12:57:32 +00:00
parent 7d61aa0404
commit 1785a12670
1 changed files with 16 additions and 7 deletions

23
packages/fcl-js/src/jstree.pp
View File

@ -76,7 +76,7 @@ Type
Property Value : TJSValue Read FValue Write FValue;
end;
{ TJSStringLiteral }
(* { TJSStringLiteral }
TJSStringLiteral = Class(TJSElement)
private
@ -84,7 +84,7 @@ Type
Public
Property Value : TJSString Read FValue Write FValue;
end;
*)
{ TJSRegularExpressionLiteral }
TJSRegularExpressionLiteral = Class(TJSElement)
@ -103,14 +103,15 @@ Type
end;
{ TJSPrimaryExpressionIdent }
TJSPrimaryExpression = Class(TJSElement);
TJSPrimaryExpressionIdent = Class(TJSElement)
TJSPrimaryExpressionIdent = Class(TJSPrimaryExpression)
private
FString: TJSString;
FName: TJSString;
Public
Property AString : TJSString Read FString Write FString;
Property Name : TJSString Read FName Write FName;
end;
TJSPrimaryExpressionThis = Class(TJSElement);
TJSPrimaryExpressionThis = Class(TJSPrimaryExpression);
{ TJSArrayLiteralElement }
@ -878,9 +879,16 @@ begin
end;
destructor TJSSourceElements.Destroy;
Var
i : integer;
begin
FreeAndNil(FStatements);
FreeAndNil(FFunctions);
// Vars are owned by their statements, and those have been freed
For I:=0 to FVars.Count-1 do
FVars.Nodes[i].Node:=nil;
FreeAndNil(FVars);
inherited Destroy;
end;
@ -914,7 +922,7 @@ end;
destructor TJSElementNode.Destroy;
begin
//FreeAndNil(FNode);
FreeAndNil(FNode);
inherited Destroy;
end;
@ -933,6 +941,7 @@ end;
destructor TJSFuncDef.Destroy;
begin
FreeAndNil(FBody);
FreeAndNil(FParams);
inherited Destroy;
end;