--- Merging r49478 into '.':

U    rtl/objpas/classes/streams.inc
--- Recording mergeinfo for merge of r49478 into '.':
 U   .

# revisions: 49478
r49478 | marco | 2021-06-05 17:42:34 +0200 (Sat, 05 Jun 2021) | 2 lines
Changed paths:
   M /trunk/rtl/objpas/classes/streams.inc

 * fix from Sebastian Hellwig for writeunicodestring bytes number, mantis   0038963

git-svn-id: branches/fixes_3_2@49610 -

rtl/objpas/classes/streams.inc

@@ -927,7 +927,7 @@ Var
 begin
   B:=FEncoding.GetBytes(AString);
   if Length(B)>0 then
-    WriteBuffer(B[0],Length(Bytes));
+    WriteBuffer(B[0],Length(B));
 end;
 
 function TStringStream.ReadAnsiString(Count: Longint): AnsiString;