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

* Fix for stream_write from Sebastian Guenther

Browse Source
This commit is contained in:
michael 1999-07-22 15:06:35 +00:00
parent 35f636dea1
commit 519af9bdcc
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fcl/xml/xmlwrite.pp
View File

@ -90,12 +90,13 @@ end;
procedure Stream_Write(s: String); procedure Stream_Write(s: String);
begin begin
stream.WriteAnsiString(s); stream.Write(s[1], Length(s));
end; end;
procedure Stream_WriteLn(s: String); procedure Stream_WriteLn(s: String);
begin begin
stream.WriteAnsiString(s + #10); stream.Write(s[1], Length(s));
stream.WriteByte(10);
end; end;
@ -261,7 +262,10 @@ end.
{ {
$Log$ $Log$
Revision 1.2 1999-07-09 21:05:53 michael Revision 1.3 1999-07-22 15:06:35 michael
* Fix for stream_write from Sebastian Guenther
Revision 1.2 1999/07/09 21:05:53 michael
+ fixes from Guenther Sebastian + fixes from Guenther Sebastian
Revision 1.1 1999/07/09 08:35:09 michael Revision 1.1 1999/07/09 08:35:09 michael