|
@@ -33,9 +33,9 @@ uses
|
|
|
{$ifdef WATCOM}
|
|
{$ifdef WATCOM}
|
|
|
emu387,
|
|
emu387,
|
|
|
{$endif WATCOM}
|
|
{$endif WATCOM}
|
|
|
-{$ifdef unix}
|
|
|
|
|
|
|
+{$if defined(unix) and (FPC_FULLVERSION>20700)}
|
|
|
{ system code page stuff for unix }
|
|
{ system code page stuff for unix }
|
|
|
-// unixcp,
|
|
|
|
|
|
|
+ unixcp,
|
|
|
{$endif}
|
|
{$endif}
|
|
|
{$IFNDEF USE_FAKE_SYSUTILS}
|
|
{$IFNDEF USE_FAKE_SYSUTILS}
|
|
|
sysutils,math,
|
|
sysutils,math,
|
|
@@ -177,9 +177,9 @@ procedure InitCompiler(const cmd:TCmdStr);
|
|
|
begin
|
|
begin
|
|
|
if CompilerInited then
|
|
if CompilerInited then
|
|
|
DoneCompiler;
|
|
DoneCompiler;
|
|
|
-{$ifdef unix}
|
|
|
|
|
|
|
+{$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}
|
|
|
{ inits which need to be done before the arguments are parsed }
|
|
{ inits which need to be done before the arguments are parsed }
|
|
|
InitSystems;
|
|
InitSystems;
|
nickysn