Ver Fonte

* initialise/finalise critical section

git-svn-id: trunk@7455 -
Jonas Maebe há 18 anos atrás
pai
commit
399ab249d6
1 ficheiros alterados com 2 adições e 0 exclusões
  1. 2 0
      rtl/unix/cwstring.pp

+ 2 - 0
rtl/unix/cwstring.pp

@@ -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.