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

* Merging revisions 43511 from trunk:

Browse Source 
------------------------------------------------------------------------
    r43511 | michael | 2019-11-17 23:27:28 +0100 (Sun, 17 Nov 2019) | 1 line
    
    * Fix bug ID #36147
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43512 -
This commit is contained in:
michael 2019-11-17 22:28:21 +00:00
parent 319b575012
commit d27126b64c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-base/src/streamio.pp
View File

@ -130,6 +130,7 @@ begin
end; end;
with TTextRec(F) do with TTextRec(F) do
begin begin
OpenFunc:=@StreamOpen; OpenFunc:=@StreamOpen;
CloseFunc:=@StreamClose; CloseFunc:=@StreamClose;
Case DefaultTextLineBreakStyle Of Case DefaultTextLineBreakStyle Of
@ -143,6 +144,7 @@ begin
BufPtr:=@Buffer; BufPtr:=@Buffer;
Name[0]:=#0; Name[0]:=#0;
end; end;
SetTextCodePage(F,CP_ACP);
end; end;