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

* Fixed compilation with -CR

Browse Source 
git-svn-id: trunk@21298 -
This commit is contained in:
sergei 2012-05-15 08:45:38 +00:00
parent 0fd9228deb
commit c628942e15
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
packages/fcl-xml/src/xmlread.pp
View File

@ -92,7 +92,7 @@ uses
type
TDOMDocumentTypeEx = class(TDOMDocumentType);
TDOMTopNodeEx = class(TDOMNode_TopLevel);
TXMLDocumentEx = class(TXMLDocument);
TDOMEntityEx = class(TDOMEntity);
@ -290,11 +290,19 @@ begin
begin
if not reader.Read then
Exit;
if cursor is TDOMNode_TopLevel then
begin
if reader.XMLVersion <> xmlVersionUnknown then
TDOMTopNodeEx(cursor).FXMLVersion := reader.XMLVersion;
TDOMTopNodeEx(cursor).FXMLEncoding := reader.XMLEncoding;
case cursor.NodeType of
DOCUMENT_NODE:
begin
if reader.XMLVersion <> xmlVersionUnknown then
TXMLDocumentEx(cursor).FXMLVersion := reader.XMLVersion;
TXMLDocumentEx(cursor).FXMLEncoding := reader.XMLEncoding;
end;
ENTITY_NODE:
begin
if reader.XMLVersion <> xmlVersionUnknown then
TDOMEntityEx(cursor).FXMLVersion := reader.XMLVersion;
TDOMEntityEx(cursor).FXMLEncoding := reader.XMLEncoding;
end;
end;
end;