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

* Use the unixcp unit to set a default code page for ansistrings on unix-like systems.

Browse Source 
git-svn-id: trunk@23671 -
This commit is contained in:
yury 2013-02-28 18:24:29 +00:00
parent 2b2a68446d
commit ee0a338127
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/compiler.pas
View File

@ -31,8 +31,12 @@ uses
emu387,
{$endif GO32V2}
{$ifdef WATCOM}
emu387,
emu387,
{$endif WATCOM}
{$ifdef unix}
{ system code page stuff for unix }
unixcp,
{$endif}
{$IFNDEF USE_FAKE_SYSUTILS}
sysutils,math,
{$ELSE}
@ -173,6 +177,10 @@ procedure InitCompiler(const cmd:TCmdStr);
begin
if CompilerInited then
DoneCompiler;
{$ifdef unix}
{ Set default code page for ansistrings on unix-like systems }
DefaultSystemCodePage:=GetSystemCodePage;
{$endif}
{ inits which need to be done before the arguments are parsed }
InitSystems;
{ fileutils depends on source_info so it must be after systems }