paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 02:29:19 +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 : fmInput :
begin begin
TextRec(f).InOutFunc:=@FileReadFunc; TextRec(f).InOutFunc:=@FileReadFunc;
{$ifndef ver2_4} {$if FPC_FULLVERSION>=20700}
TextRec(f).CodePage:=WideStringManager.GetStandardCodePageProc(scpConsoleInput); TextRec(f).CodePage:=WideStringManager.GetStandardCodePageProc(scpConsoleInput);
{$endif ver2_4} {$endif}
end; end;
fmOutput : fmOutput :
begin begin
TextRec(f).InOutFunc:=@FileWriteFunc; TextRec(f).InOutFunc:=@FileWriteFunc;
{$ifndef ver2_4} {$if FPC_FULLVERSION>=20700}
TextRec(f).CodePage:=WideStringManager.GetStandardCodePageProc(scpConsoleOutput); TextRec(f).CodePage:=WideStringManager.GetStandardCodePageProc(scpConsoleOutput);
{$endif ver2_4} {$endif}
if Do_Isdevice(hdl) then if Do_Isdevice(hdl) then
TextRec(f).FlushFunc:=@FileWriteFunc; TextRec(f).FlushFunc:=@FileWriteFunc;
end; end;