paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 23:30:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

Allow compilation of the compiler with 2.6.x again on Unix systems.

Browse Source 
compiler.pas:
	check for "FPC_VERSION>2 or FPC_RELEASE>6" before using unixcp

git-svn-id: trunk@23746 -
This commit is contained in:
svenbarth 2013-03-09 15:33:13 +00:00
parent 1244cdff70
commit b298483bb8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/compiler.pas
View File

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