From 3ad7552fc4903e6fe1b2b97d30f8b651964b6bcc Mon Sep 17 00:00:00 2001
From: sergei <gorelkin@nanoreflex.ru>
Date: Tue, 30 Aug 2011 07:40:50 +0000
Subject: [PATCH] * TXMLConfig.ResetKey: Don't access memory beyond allocated
 array length, resolves #20098.

git-svn-id: trunk@18913 -
---
 packages/fcl-xml/src/xmlconf.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-xml/src/xmlconf.pp b/packages/fcl-xml/src/xmlconf.pp
index da163ea631..9486a00e03 100644
--- a/packages/fcl-xml/src/xmlconf.pp
+++ b/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;