From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Sat, 15 Jun 2019 21:24:23 +0000 (+0300)
Subject: fixed file closing on program termination
X-Git-Tag: v0.2~19
X-Git-Url: https://deadsoftware.ru/gitweb?p=cpc.git;a=commitdiff_plain;h=3b754cef19e4fc5b4a2577c06214782cb0161dd2;hp=76d1e8d98f1d80d24fa52a15e6b2c6fb0a5f44d0

fixed file closing on program termination
---

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.