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

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13856 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 5 insertions, 2 deletions

diff --git a/packages/fcl-xml/src/xmlwrite.pp b/packages/fcl-xml/src/xmlwrite.pp
index 9ff777ce23..b08723c147 100644
--- a/packages/fcl-xml/src/xmlwrite.pp
+++ b/packages/fcl-xml/src/xmlwrite.pp
@@ -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;