index 836888e49fbb91da14fc49d14638785bd4aab361..00a7935d943d72e04a795f1e86d35f537638d2cb 100644 (file)
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.