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

--- Merging r49478 into '.':

Browse Source 
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 -
This commit is contained in:
marco 2021-07-15 15:36:48 +00:00
parent cce08d837b
commit 135467a029
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/streams.inc
View File

@ -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;