paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 07:49:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* initialise/finalise critical section

Browse Source 
git-svn-id: trunk@7455 -
This commit is contained in:
Jonas Maebe 2007-05-24 12:24:45 +00:00
parent 03fe8d622a
commit 399ab249d6
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/unix/cwstring.pp
View File

@ -371,11 +371,13 @@ end;
initialization
SetCWideStringManager;
initcriticalsection(iconv_lock);
{ init conversion tables }
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));
finalization
donecriticalsection(iconv_lock);
iconv_close(iconv_ansi2wide);
end.