瀏覽代碼

Addendum to 23746: use FPC_FULLVERSION instead of FPC_VERSION/FPC_RELEASE

git-svn-id: trunk@23747 -
svenbarth 12 年之前
父節點
當前提交
364a874623
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      compiler/compiler.pas

+ 2 - 2
compiler/compiler.pas

@@ -33,7 +33,7 @@ uses
 {$ifdef WATCOM}
 {$ifdef WATCOM}
   emu387,
   emu387,
 {$endif WATCOM}
 {$endif WATCOM}
-{$if defined(unix) and ((FPC_VERSION>2) or (FPC_RELEASE>6))}
+{$if defined(unix) and (FPC_FULLVERSION>20700)}
   { system code page stuff for unix }
   { system code page stuff for unix }
   unixcp,
   unixcp,
 {$endif}
 {$endif}
@@ -177,7 +177,7 @@ procedure InitCompiler(const cmd:TCmdStr);
 begin
 begin
   if CompilerInited then
   if CompilerInited then
    DoneCompiler;
    DoneCompiler;
-{$if defined(unix) and ((FPC_VERSION>2) or (FPC_RELEASE>6))}
+{$if defined(unix) and (FPC_FULLVERSION>20700)}
   { Set default code page for ansistrings on unix-like systems }
   { Set default code page for ansistrings on unix-like systems }
   DefaultSystemCodePage:=GetSystemCodePage;
   DefaultSystemCodePage:=GetSystemCodePage;
 {$endif}
 {$endif}