浏览代码

applied fix from trunk for building with fpc 2.6.x on unix

git-svn-id: branches/i8086@23755 -
nickysn 12 年之前
父节点
当前提交
f5d8f0599f
共有 1 个文件被更改,包括 4 次插入4 次删除
  1. 4 4
      compiler/compiler.pas

+ 4 - 4
compiler/compiler.pas

@@ -33,9 +33,9 @@ uses
 {$ifdef WATCOM}
   emu387,
 {$endif WATCOM}
-{$ifdef unix}
+{$if defined(unix) and (FPC_FULLVERSION>20700)}
   { system code page stuff for unix }
-//  unixcp,
+  unixcp,
 {$endif}
 {$IFNDEF USE_FAKE_SYSUTILS}
   sysutils,math,
@@ -177,9 +177,9 @@ procedure InitCompiler(const cmd:TCmdStr);
 begin
   if CompilerInited then
    DoneCompiler;
-{$ifdef unix}
+{$if defined(unix) and (FPC_FULLVERSION>20700)}
   { Set default code page for ansistrings on unix-like systems }
-//  DefaultSystemCodePage:=GetSystemCodePage;
+  DefaultSystemCodePage:=GetSystemCodePage;
 {$endif}
 { inits which need to be done before the arguments are parsed }
   InitSystems;