diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-21 23:14:16 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-21 23:14:16 (GMT) |
commit | ff85c5650b6bb193f31108662dbb788c279ba3ed (patch) | |
tree | 48b506c7a8a00c7ea48e2930c7702d1a460a509b /generic/tclIO.c | |
parent | 8aac121b066754f94d9a7eab0b7aa778009790af (diff) | |
download | tcl-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.c | 15 |
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); } |