From 8a0f2c19a4874ee97f6e20d202d2b34a69a38e06 Mon Sep 17 00:00:00 2001
From: bch <brad.harder@gmail.com>
Date: Tue, 20 Jan 2015 23:40:23 +0000
Subject: assert() on missing definitions for Tcl_ChannelCreate() required
 struct Tcl_ChannelType{} fields.

---
 generic/tclIO.c | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/generic/tclIO.c b/generic/tclIO.c
index a9091af..596ba3f 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -1548,6 +1548,15 @@ Tcl_CreateChannel(
      */
 
     assert(sizeof(Tcl_ChannelTypeVersion) == sizeof(Tcl_DriverBlockModeProc *));
+    assert(NULL!=typePtr->closeProc);
+    assert(NULL!=typePtr->inputProc);
+    assert(NULL!=typePtr->outputProc);
+    assert(NULL!=typePtr->watchProc);
+    assert(NULL!=typePtr->truncateProc);
+    assert(NULL!=typePtr->getHandleProc);
+    if (NULL!=typePtr->wideSeekProc) {
+      assert(NULL!=typePtr->seekProc && "Must define seekProc if defining wideSeekProc");
+    }
 
     /*
      * JH: We could subsequently memset these to 0 to avoid the numerous
-- 
cgit v0.12