paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes bootstrapping with upcoming 2.6.x

Browse Source 
git-svn-id: trunk@19547 -
This commit is contained in:
florian 2011-10-26 19:26:10 +00:00
parent 6a3fe72de9
commit 72425b49c9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/text.inc
View File

@ -1951,16 +1951,16 @@ begin
fmInput :
begin
TextRec(f).InOutFunc:=@FileReadFunc;
{$ifndef ver2_4}
{$if FPC_FULLVERSION>=20700}
TextRec(f).CodePage:=WideStringManager.GetStandardCodePageProc(scpConsoleInput);
{$endif ver2_4}
{$endif}
end;
fmOutput :
begin
TextRec(f).InOutFunc:=@FileWriteFunc;
{$ifndef ver2_4}
{$if FPC_FULLVERSION>=20700}
TextRec(f).CodePage:=WideStringManager.GetStandardCodePageProc(scpConsoleOutput);
{$endif ver2_4}
{$endif}
if Do_Isdevice(hdl) then
TextRec(f).FlushFunc:=@FileWriteFunc;
end;