paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-21 10:19:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

* correctly initialize DefaultFileSystemCodePage for WinCE

Browse Source 
git-svn-id: branches/cpstrrtl@24213 -
This commit is contained in:
Jonas Maebe 2013-04-09 11:35:32 +00:00
parent a3c936fe5f
commit 75c45bb55c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/wince/system.pp
View File

@ -1614,7 +1614,7 @@ procedure InitWinCEWidestrings;
widestringmanager.GetStandardCodePageProc:=@WinCEGetStandardCodePage; widestringmanager.GetStandardCodePageProc:=@WinCEGetStandardCodePage;
DefaultSystemCodePage:=GetACP; DefaultSystemCodePage:=GetACP;
DefaultFileSystemCodePage:=DefaultSystemCodePage; DefaultFileSystemCodePage:=WinCEGetStandardCodePage(scpFileSystemSingleByte);
DefaultRTLFileSystemCodePage:=DefaultFileSystemCodePage; DefaultRTLFileSystemCodePage:=DefaultFileSystemCodePage;
DefaultUnicodeCodePage:=CP_UTF16; DefaultUnicodeCodePage:=CP_UTF16;
end; end;