diff options
| -rw-r--r-- | generic/tclExecute.c | 6 | ||||
| -rw-r--r-- | generic/tclPkg.c | 1 |
2 files changed, 6 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index d42ba73..1042a5f 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -4960,6 +4960,12 @@ TEBCresume( } #endif + /* Every range of an empty list is an empty list */ + if (objc == 0) { + TRACE_APPEND(("\n")); + NEXT_INST_F(9, 0, 0); + } + /* Decode index value operands. */ /* diff --git a/generic/tclPkg.c b/generic/tclPkg.c index 1e54aa7..223ef93 100644 --- a/generic/tclPkg.c +++ b/generic/tclPkg.c @@ -1248,7 +1248,6 @@ TclNRPackageObjCmd( */ ov = Tcl_NewStringObj(version, -1); - Tcl_IncrRefCount(ov); Tcl_AppendStringsToObj(ov, "-", version, NULL); version = NULL; argv3 = TclGetString(objv[3]); |