paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 09:30:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

xmlwrite.pp: c14n compliance: write whitespace after PI name only if its data is not empty

Browse Source 
git-svn-id: trunk@13856 -
This commit is contained in:
sergei 2009-10-13 21:50:07 +00:00
parent 43d3bacc78
commit ea85a7ec11
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -516,8 +516,11 @@ begin
if not FInsideTextNode then wrtIndent;
wrtStr('<?');
wrtStr(TDOMProcessingInstruction(node).Target);
wrtChr(' ');
wrtStr(TDOMProcessingInstruction(node).Data);
if TDOMProcessingInstruction(node).Data <> '' then
begin
wrtChr(' ');
wrtStr(TDOMProcessingInstruction(node).Data);
end;
wrtStr('?>');
end;