summaryrefslogtreecommitdiffstats
path: root/generic/tclIO.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2024-02-21 23:14:16 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2024-02-21 23:14:16 (GMT)
commitff85c5650b6bb193f31108662dbb788c279ba3ed (patch)
tree48b506c7a8a00c7ea48e2930c7702d1a460a509b /generic/tclIO.c
parent8aac121b066754f94d9a7eab0b7aa778009790af (diff)
downloadtcl-ff85c5650b6bb193f31108662dbb788c279ba3ed.zip
tcl-ff85c5650b6bb193f31108662dbb788c279ba3ed.tar.gz
tcl-ff85c5650b6bb193f31108662dbb788c279ba3ed.tar.bz2
Remove some dead code
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r--generic/tclIO.c15
1 files changed, 3 insertions, 12 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index 852bb9b..c44329e 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -1609,18 +1609,9 @@ Tcl_CreateChannel(
char *tmp;
ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
- /*
- * With the change of the Tcl_ChannelType structure to use a version in
- * 8.3.2+, we have to make sure that our assumption that the structure
- * remains a binary compatible size is true.
- *
- * If this assertion fails on some system, then it can be removed only if
- * the user recompiles code with older channel drivers in the new system
- * as well.
- */
-
- assert(sizeof(Tcl_ChannelTypeVersion) == sizeof(Tcl_DriverBlockModeProc *));
- assert(typePtr->typeName != NULL);
+ if (typePtr->typeName == NULL) {
+ Tcl_Panic("channel does not have a type name");
+ }
if (Tcl_ChannelVersion(typePtr) != TCL_CHANNEL_VERSION_5) {
Tcl_Panic("channel type %s must be version TCL_CHANNEL_VERSION_5", typePtr->typeName);
}