瀏覽代碼

rtl: correct ifdef for a code which assigns a codepage to textrec to use FPC_HAS_CPSTRING

git-svn-id: trunk@19548 -
paul 13 年之前
父節點
當前提交
5c00cdf40d
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      rtl/inc/text.inc

+ 2 - 2
rtl/inc/text.inc

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