From 60de075ebe8dc5c4c3fd1f1389d6c11a529e4a91 Mon Sep 17 00:00:00 2001
From: paul <paul@idefix.freepascal.org>
Date: Mon, 31 Oct 2011 07:07:24 +0000
Subject: [PATCH] rtl: initialize CodePage field of ReadStr/WriteStr Text
 variables

git-svn-id: trunk@19567 -
---
 rtl/inc/text.inc | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/rtl/inc/text.inc b/rtl/inc/text.inc
index 14828e3190..501436b81d 100644
--- a/rtl/inc/text.inc
+++ b/rtl/inc/text.inc
@@ -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;