X-Git-Url: https://deadsoftware.ru/gitweb?p=cpc.git;a=blobdiff_plain;f=src%2Fposix%2Fgeneric%2FHost%2FMod%2FLang.cp;h=00a7935d943d72e04a795f1e86d35f537638d2cb;hp=836888e49fbb91da14fc49d14638785bd4aab361;hb=3b754cef19e4fc5b4a2577c06214782cb0161dd2;hpb=76d1e8d98f1d80d24fa52a15e6b2c6fb0a5f44d0

diff --git a/src/posix/generic/Host/Mod/Lang.cp b/src/posix/generic/Host/Mod/Lang.cp
index 836888e..00a7935 100644
--- a/src/posix/generic/Host/Mod/Lang.cp
+++ b/src/posix/generic/Host/Mod/Lang.cp
@@ -153,15 +153,12 @@ MODULE HostLang;
     encoding := enc$
   END Init;
 
-  PROCEDURE Fin;
-    VAR res: iconv.int;
-  BEGIN
-    res := iconv.iconv_close(sc2c); sc2c := invalid;
-    res := iconv.iconv_close(c2sc); c2sc := invalid
-  END Fin;
+  (**
+    Do not close iconv descriptors!
+    It can lead to quiet traps on program termination and bugs like
+    not removed temp files.
+  **)
 
 BEGIN
   Init
-CLOSE
-  Fin
 END HostLang.