From: Tony Cook <tony@develop-help.com>
Date: Mon, 13 Aug 2012 08:18:17 +0000 (+1000)
Subject: more i_fatal
X-Git-Tag: v0.92_01~15
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/bfe32b39f770e0cfe421aded90588847ee2a920f

more i_fatal
---

diff --git a/iolayer.c b/iolayer.c
index 28b5bdc6..18a78058 100644
--- a/iolayer.c
+++ b/iolayer.c
@@ -369,7 +369,8 @@ io_slurp(io_glue *ig, unsigned char **c) {
   io_type inn = ig->type;
   
   if ( inn != BUFCHAIN ) {
-    i_fatal(0, "io_slurp: called on a source that is not from a bufchain\n");
+    dIMCTXio(ig);
+    im_fatal(aIMCTX, 0, "io_slurp: called on a source that is not from a bufchain\n");
   }
 
   ieb = ig->exdata;
@@ -381,8 +382,10 @@ io_slurp(io_glue *ig, unsigned char **c) {
   
   rc = bufchain_read(ig, cc, ieb->length);
 
-  if (rc != ieb->length)
-    i_fatal(1, "io_slurp: bufchain_read returned an incomplete read: rc = %d, request was %d\n", rc, ieb->length);
+  if (rc != ieb->length) {
+    dIMCTXio(ig);
+    im_fatal(aIMCTX,1, "io_slurp: bufchain_read returned an incomplete read: rc = %d, request was %d\n", rc, ieb->length);
+  }
 
   return rc;
 }
@@ -1886,7 +1889,7 @@ bufchain_seek(io_glue *ig, off_t offset, int whence) {
       ssize_t rc, wl = i_min(wrlen, BBSIZ);
       im_log((aIMCTX, 1, "bufchain_seek: wrlen = %d, wl = %ld\n", wrlen, (long)wl));
       rc = bufchain_write( ig, TB, wl );
-      if (rc != wl) i_fatal(0, "bufchain_seek: Unable to extend file\n");
+      if (rc != wl) im_fatal(aIMCTX, 0, "bufchain_seek: Unable to extend file\n");
       wrlen -= rc;
     }
   }