diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-12 10:21:55 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-12 10:21:55 (GMT) |
| commit | 454b7f29d0703cf980ef403b12c5185f92e0c92e (patch) | |
| tree | be5d15b6ce8fb5fbc3c1198cfcb05bb923cfd0ea /generic/tclIOCmd.c | |
| parent | 1f46b14efb4cff5cd99eecd20058ec3d98b283a5 (diff) | |
| download | tcl-454b7f29d0703cf980ef403b12c5185f92e0c92e.zip tcl-454b7f29d0703cf980ef403b12c5185f92e0c92e.tar.gz tcl-454b7f29d0703cf980ef403b12c5185f92e0c92e.tar.bz2 | |
allow novem to use installed Tcl8 .tm packages, such as tcltest and msgcat
remove some dead code (already planned to be removed in Tcl9)
Diffstat (limited to 'generic/tclIOCmd.c')
| -rw-r--r-- | generic/tclIOCmd.c | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c index 2b3e805..f738b1a 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.c @@ -416,25 +416,11 @@ Tcl_ReadObjCmd( if (i < objc) { if ((TclGetIntFromObj(interp, objv[i], &toRead) != TCL_OK) || (toRead < 0)) { -#if TCL_MAJOR_VERSION < 9 - /* - * The code below provides backwards compatibility with an old - * form of the command that is no longer recommended or - * documented. See also [Bug #3151675]. Will be removed in Tcl 9, - * maybe even earlier. - */ - - if (strcmp(TclGetString(objv[i]), "nonewline") != 0) { -#endif Tcl_SetObjResult(interp, Tcl_ObjPrintf( "expected non-negative integer but got \"%s\"", TclGetString(objv[i]))); Tcl_SetErrorCode(interp, "TCL", "VALUE", "NUMBER", NULL); return TCL_ERROR; -#if TCL_MAJOR_VERSION < 9 - } - newline = 1; -#endif } } |