From 135467a029d2b2cdf6fb8bec3f024db4f10d6c1e Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Thu, 15 Jul 2021 15:36:48 +0000
Subject: [PATCH] --- 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 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/classes/streams.inc b/rtl/objpas/classes/streams.inc
index 35269ec054..cc99159efd 100644
--- a/rtl/objpas/classes/streams.inc
+++ b/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;