paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 21:58:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl: initialize CodePage field of ReadStr/WriteStr Text variables

Browse Source 
git-svn-id: trunk@19567 -
This commit is contained in:
paul 2011-10-31 07:07:24 +00:00
parent 435b72bcb1
commit 60de075ebe
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/text.inc
View File

@ -1768,6 +1768,9 @@ begin
t.mode:=fmOutput; t.mode:=fmOutput;
t.OpenFunc:=nil; t.OpenFunc:=nil;
t.CloseFunc:=nil; t.CloseFunc:=nil;
{$ifdef FPC_HAS_CPSTRING}
t.CodePage:=DefaultSystemCodePage;
{$endif}
end; end;
@ -1865,6 +1868,9 @@ begin
t.mode:=fmInput; t.mode:=fmInput;
t.OpenFunc:=nil; t.OpenFunc:=nil;
t.CloseFunc:=nil; t.CloseFunc:=nil;
{$ifdef FPC_HAS_CPSTRING}
t.CodePage:=DefaultSystemCodePage;
{$endif}
PSizeInt(@t.userdata[BytesReadIndex])^:=0; PSizeInt(@t.userdata[BytesReadIndex])^:=0;
end; end;