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

* Patch from Graeme Geldenhuys to check for XMLDocument before typecasting it

Browse Source 
git-svn-id: trunk@16443 -
This commit is contained in:
michael 2010-11-26 12:44:23 +00:00
parent 3650944d9e
commit a8e4234aca
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-xml/src/xmlwrite.pp
View File

@ -681,6 +681,8 @@ begin
wrtStr('?>'); wrtStr('?>');
// TODO: now handled as a regular PI, remove this? // TODO: now handled as a regular PI, remove this?
if node is TXMLDocument then
begin
if Length(TXMLDocument(node).StylesheetType) > 0 then if Length(TXMLDocument(node).StylesheetType) > 0 then
begin begin
wrtStr(FLineBreak); wrtStr(FLineBreak);
@ -690,6 +692,7 @@ begin
wrtStr(TXMLDocument(node).StylesheetHRef); wrtStr(TXMLDocument(node).StylesheetHRef);
wrtStr('"?>'); wrtStr('"?>');
end; end;
end;
child := node.FirstChild; child := node.FirstChild;
while Assigned(Child) do while Assigned(Child) do