* The reader now sets the DocumentElement for a DOM document

* The XML parser raises an exception if there is additional data after
  the end of the XML document element

fcl/xml/xmlread.pp

@@ -188,6 +188,11 @@ begin
   ExpectElement(doc);
   ParseMisc(doc);
 
+  doc.SetDocumentElement(LastNodeBeforeDoc.NextSibling as TDOMElement);
+
+  if buf[0] <> #0 then
+    RaiseExc('Data after end of document element');
+
   {
   if buf[0] <> #0 then begin
     WriteLn('=== Unparsed: ===');
@@ -977,7 +982,12 @@ end.
 
 {
   $Log$
-  Revision 1.8  1999-08-10 15:39:59  michael
+  Revision 1.9  1999-12-05 22:02:11  sg
+  * The reader now sets the DocumentElement for a DOM document
+  * The XML parser raises an exception if there is additional data after
+    the end of the XML document element
+
+  Revision 1.8  1999/08/10 15:39:59  michael
   * restored previous setting
 
   Revision 1.6  1999/07/27 13:01:59  peter