--- Merging r18913 into '.':

U    packages/fcl-xml/src/xmlconf.pp

# revisions: 18913
------------------------------------------------------------------------
r18913 | sergei | 2011-08-30 09:40:50 +0200 (Tue, 30 Aug 2011) | 1 line
Changed paths:
   M /trunk/packages/fcl-xml/src/xmlconf.pp

* TXMLConfig.ResetKey: Don't access memory beyond allocated array length, resolves #20098.
------------------------------------------------------------------------

git-svn-id: branches/fixes_2_6@19263 -

packages/fcl-xml/src/xmlconf.pp

@@ -431,7 +431,7 @@ procedure TXMLConfig.ResetKey;
 var
   I: Integer;
 begin
-  for I := Length(FPathStack) downto 0 do
+  for I := Length(FPathStack)-1 downto 0 do
     FPathStack[I] := '';
   FElement := nil;    
   FPathDirty := False;