瀏覽代碼

* fixes bootstrapping with upcoming 2.6.x

git-svn-id: trunk@19547 -
florian 13 年之前
父節點
當前提交
72425b49c9
共有 1 個文件被更改,包括 4 次插入4 次删除
  1. 4 4
      rtl/inc/text.inc

+ 4 - 4
rtl/inc/text.inc

@@ -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;