paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 18:31:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

* force utf-8 for darwin

Browse Source 
git-svn-id: trunk@7644 -
This commit is contained in:
Jonas Maebe 2007-06-13 12:59:39 +00:00
parent 4d9c3244fe
commit 8523bdc831
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/unix/cwstring.pp
View File

@ -373,10 +373,17 @@ initialization
SetCWideStringManager;
initcriticalsection(iconv_lock);
{ init conversion tables }
{$ifndef darwin}
iconv_wide2ansi:=iconv_open(nl_langinfo(CODESET),unicode_encoding);
iconv_ansi2wide:=iconv_open(unicode_encoding,nl_langinfo(CODESET));
iconv_ucs42ansi:=iconv_open(nl_langinfo(CODESET),'UCS4');
iconv_ansi2ucs4:=iconv_open('UCS4',nl_langinfo(CODESET));
{$else darwin}
iconv_wide2ansi:=iconv_open('UTF-8',unicode_encoding);
iconv_ansi2wide:=iconv_open(unicode_encoding,'UTF-8');
iconv_ucs42ansi:=iconv_open('UTF-8','UCS4');
iconv_ansi2ucs4:=iconv_open('UCS4','UTF-8');
{$endif darwin}
finalization
donecriticalsection(iconv_lock);
iconv_close(iconv_ansi2wide);