paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 19:49:46 +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

6
rtl/inc/text.inc
View File

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