Procházet zdrojové kódy

* fixes bootstrapping with upcoming 2.6.x

git-svn-id: trunk@19547 -
florian před 13 roky
rodič
revize
72425b49c9
1 změnil soubory, kde provedl 4 přidání a 4 odebrání
  1. 4 4
      rtl/inc/text.inc

+ 4 - 4
rtl/inc/text.inc

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