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

git-svn-id: trunk@13856 -

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;