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

* xpath memleak patch from #10573

Browse Source 
git-svn-id: trunk@9666 -
This commit is contained in:
marco 2008-01-07 10:27:40 +00:00
parent 2ce992b4ae
commit 523eee3920
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/fcl-xml/src/xpath.pp
View File

@ -239,6 +239,7 @@ type
FIsAbsolutePath: Boolean;
public
constructor Create(AIsAbsolutePath: Boolean);
destructor destroy;override;
function Evaluate(AContext: TXPathContext;
AEnvironment: TXPathEnvironment): TXPathVariable; override;
end;
@ -439,6 +440,7 @@ type
{ CompleteExpresion specifies wether the parser should check for gargabe
after the recognised part. True => Throw exception if there is garbage }
constructor Create(AScanner: TXPathScanner; CompleteExpression: Boolean);
destructor destroy;override;
function Evaluate(AContextNode: TDOMNode): TXPathVariable;
function Evaluate(AContextNode: TDOMNode;
AEnvironment: TXPathEnvironment): TXPathVariable;
@ -893,7 +895,7 @@ begin
for i := 0 to Predicates.Count - 1 do
TXPathExprNode(Predicates[i]).Free;
Predicates.Free;
inherited Free;
inherited destroy;
end;
constructor TXPathLocationPathNode.Create(AIsAbsolutePath: Boolean);
@ -1163,6 +1165,15 @@ begin
Result := TXPathNodeSetVariable.Create(ResultNodeSet);
end;
destructor TXPathLocationPathNode.destroy;
var tmp:TStep;
begin
while FFirstStep<>nil do begin
tmp:=FFirstStep.NextStep;
FFirstStep.free;
FFirstStep:=tmp;
end;
end;
{ Exceptions }
@ -2483,6 +2494,11 @@ begin
end;
end;
destructor TXPathExpression.destroy;
begin
FRootNode.free;
end;
function TXPathExpression.Evaluate(AContextNode: TDOMNode;
AEnvironment: TXPathEnvironment): TXPathVariable;
var