X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/0860f098b5a13f4e8bedb2d2da9d2df94717b4a5..7711f3fc00259e55f630cfe6104eff3083dc9d77:/uip/mhoutsbr.c

diff --git a/uip/mhoutsbr.c b/uip/mhoutsbr.c
index b672de77..0c0a2975 100644
--- a/uip/mhoutsbr.c
+++ b/uip/mhoutsbr.c
@@ -317,7 +317,9 @@ write8Bit (CT ct, FILE *out)
     c = '\n';
     while ((inbytes = fread (buffer, 1, sizeof buffer, ce->ce_fp)) > 0) {
         c = buffer[inbytes - 1];
-        fwrite (buffer, 1, inbytes, out);
+        if (fwrite (buffer, 1, inbytes, out) < inbytes) {
+            advise ("write8Bit", "fwrite");
+        }
     }
     if (c != '\n')
 	putc ('\n', out);
@@ -405,6 +407,7 @@ three_print:
     	putc ('\n', out);
 
     (*ct->c_ceclosefnx) (ct);
+    free (bufp);
     return OK;
 }