fixed file closing on program termination

[cpc.git] / src / posix / generic / Host / Mod / Lang.cp

diff --git a/src/posix/generic/Host/Mod/Lang.cp b/src/posix/generic/Host/Mod/Lang.cp
index 836888e49fbb91da14fc49d14638785bd4aab361..00a7935d943d72e04a795f1e86d35f537638d2cb 100644 (file)
--- 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;
 
     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
 
 BEGIN
   Init

-CLOSE
-  Fin

 END HostLang.
 END HostLang.