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

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

Browse Source 
git-svn-id: trunk@18913 -
This commit is contained in:
sergei 2011-08-30 07:40:50 +00:00
parent 4b24a58871
commit 3ad7552fc4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-xml/src/xmlconf.pp
View File

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