paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 05:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Addendum to 23746: use FPC_FULLVERSION instead of FPC_VERSION/FPC_RELEASE

Browse Source 
git-svn-id: trunk@23747 -
This commit is contained in:
svenbarth 2013-03-09 15:45:24 +00:00
parent b298483bb8
commit 364a874623
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}
{$if defined(unix) and ((FPC_VERSION>2) or (FPC_RELEASE>6))}
{$if defined(unix) and (FPC_FULLVERSION>20700)}
{ system code page stuff for unix }
unixcp,
{$endif}
@ -177,7 +177,7 @@ procedure InitCompiler(const cmd:TCmdStr);
begin
if CompilerInited then
DoneCompiler;
{$if defined(unix) and ((FPC_VERSION>2) or (FPC_RELEASE>6))}
{$if defined(unix) and (FPC_FULLVERSION>20700)}
{ Set default code page for ansistrings on unix-like systems }
DefaultSystemCodePage:=GetSystemCodePage;
{$endif}