paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 11:52:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* provide possibility of reusing the routine from system WideStringManager for retrieval of current codepage on non-Windows and non-Unix

Browse Source 
git-svn-id: trunk@29623 -
This commit is contained in:
Tomas Hajny 2015-02-04 01:39:54 +00:00
parent 329f788f58
commit 09e6069024
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/objpas/fpwidestring.pp
View File

@ -785,18 +785,26 @@ begin
DefaultUnicodeCodePage:=CP_UTF16;
{$ifdef MSWINDOWS}
DefaultSystemCodePage:=GetACP();
{$endif MSWINDOWS}
{$ifdef UNIX}
{$ELSE MSWINDOWS}
{$ifdef UNIX}
DefaultSystemCodePage:=GetSystemCodepage;
if (DefaultSystemCodePage = CP_NONE) then
DefaultSystemCodePage:=CP_UTF8;
{$ifdef FPCRTL_FILESYSTEM_UTF8}
{$ifdef FPCRTL_FILESYSTEM_UTF8}
DefaultFileSystemCodePage:=CP_UTF8;
{$else}
{$else}
DefaultFileSystemCodePage:=DefaultSystemCodepage;
{$endif}
{$endif}
DefaultRTLFileSystemCodePage:=DefaultFileSystemCodePage;
{$endif UNIX}
{$ELSE UNIX}
if Assigned (WideStringManager.GetStandardCodePageProc) then
DefaultSystemCodePage := WideStringManager.GetStandardCodePageProc (scpAnsi)
else
DefaultSystemCodePage := CP_NONE;
DefaultFileSystemCodePage := DefaultSystemCodePage;
DefaultRTLFileSystemCodePage := DefaultSystemCodePage;
{$endif UNIX}
{$endif MSWINDOWS}
end;