paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 18:24:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: branches/i8086@23755 -
This commit is contained in:
nickysn 2013-03-09 18:35:24 +00:00
parent c467035a1c
commit f5d8f0599f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/compiler.pas
View File

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