[fpc-devel] patch for xmlreader

[Vincent Snijders]

Hi,

Attached patch fixed an error in the xmlreader.

If a text attribute contained a ", but not at the end of the string 
it could fail.

For example this (minimal) xml file:
<?xml version="1.0"?>
<CONFIG Value=""TEST"." />

TestProgram:
program testxmlcfg;
{$mode objfpc}{$H+}

uses
    Classes, SysUtils, xmlcfg;

var
   AFilename: string;

begin
   AFileName:= 'test.xml';
   try
     XMLConfig:=TXMLConfig.Create(AFilename);
   finally
     XMLConfig.Free;
   end;
end.

It crashed if run with heaptrc and gave error if run with valgrind, but 
not with the patch applied.

Regards,
Vincent.
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: xml.patch
URL: <http://lists.freepascal.org/pipermail/fpc-devel/attachments/20050502/5fd406dc/attachment.ksh>