paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 08:49:25 +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} {$ifdef WATCOM}
emu387, emu387,
{$endif WATCOM} {$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 } { system code page stuff for unix }
unixcp, unixcp,
{$endif} {$endif}
@ -177,7 +177,7 @@ procedure InitCompiler(const cmd:TCmdStr);
begin begin
if CompilerInited then if CompilerInited then
DoneCompiler; 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 } { Set default code page for ansistrings on unix-like systems }
DefaultSystemCodePage:=GetSystemCodePage; DefaultSystemCodePage:=GetSystemCodePage;
{$endif} {$endif}