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

* Fixed parser bug: SetDocumentElement failed if the XML document contains

Browse Source 
only a single element at the top hierarchy level
* Changed the error message if there is text after the end of the main
  XML element
This commit is contained in:
sg 1999-12-22 13:39:55 +00:00
parent 4f1cb4700e
commit e7d2789348
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fcl/xml/xmlread.pp
View File

@ -188,10 +188,13 @@ begin
ExpectElement(doc); ExpectElement(doc);
ParseMisc(doc); ParseMisc(doc);
doc.SetDocumentElement(LastNodeBeforeDoc.NextSibling as TDOMElement); if Assigned(LastNodeBeforeDoc) then
doc.SetDocumentElement(LastNodeBeforeDoc.NextSibling as TDOMElement)
else
doc.SetDocumentElement(doc.FirstChild as TDOMElement);
if buf[0] <> #0 then if buf[0] <> #0 then
RaiseExc('Data after end of document element'); RaiseExc('Text after end of document element found');
{ {
if buf[0] <> #0 then begin if buf[0] <> #0 then begin
@ -982,7 +985,13 @@ end.
{ {
$Log$ $Log$
Revision 1.9 1999-12-05 22:02:11 sg Revision 1.10 1999-12-22 13:39:55 sg
* Fixed parser bug: SetDocumentElement failed if the XML document contains
only a single element at the top hierarchy level
* Changed the error message if there is text after the end of the main
XML element
Revision 1.9 1999/12/05 22:02:11 sg
* The reader now sets the DocumentElement for a DOM document * The reader now sets the DocumentElement for a DOM document
* The XML parser raises an exception if there is additional data after * The XML parser raises an exception if there is additional data after
the end of the XML document element the end of the XML document element