X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/mLib/blobdiff_plain/b5ea4de3ac1c61ef84c21f4e3ceff2181d23e456..0680be67c7d22d9b58fd8c309bb24f537cf717b5:/pkbuf.c

diff --git a/pkbuf.c b/pkbuf.c
index 31830e0..629f531 100644
--- a/pkbuf.c
+++ b/pkbuf.c
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: pkbuf.c,v 1.2 2000/07/16 12:29:16 mdw Exp $
+ * $Id: pkbuf.c,v 1.4 2001/02/03 16:23:33 mdw Exp $
  *
  * Simple packet buffering
  *
@@ -30,6 +30,13 @@
 /*----- Revision history --------------------------------------------------* 
  *
  * $Log: pkbuf.c,v $
+ * Revision 1.4  2001/02/03 16:23:33  mdw
+ * Bug fix: handle a disable during a close-induced flush without dumping
+ * core.
+ *
+ * Revision 1.3  2000/07/16 18:55:45  mdw
+ * Remove some stray debugging code.
+ *
  * Revision 1.2  2000/07/16 12:29:16  mdw
  * Change to arena `realloc' interface, to fix a design bug.
  *
@@ -78,6 +85,11 @@ void pkbuf_flush(pkbuf *pk, octet *p, size_t len)
   size_t l;
   size_t keep;
 
+  if (pk->f & PKBUF_CLOSE) {
+    pk->func(0, 0, pk, 0, pk->p);
+    return;
+  }
+
   /* --- Initialize variables as necessary --- */
 
   if (!p) {
@@ -129,10 +141,10 @@ void pkbuf_flush(pkbuf *pk, octet *p, size_t len)
 void pkbuf_close(pkbuf *pk)
 {
   if (pk->buf) {
-    fprintf(stderr, "*** destroying buffer, closing down\n");
     x_free(pk->a, pk->buf);
     pk->buf = 0;
   }
+  pk->f |= PKBUF_CLOSE;
   if (pk->f & PKBUF_ENABLE)
     pk->func(0, 0, pk, 0, pk->p);
 }