paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 10:39:33 +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}
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;