diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-03-11 12:22:00 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-03-11 12:22:00 (GMT) |
| commit | e7be4a19a0cdf781b241095a0aba272ff7b35ffd (patch) | |
| tree | d6a80f00392c4a686bb682506d3297ede22a8e02 | |
| parent | 6b5d0e5d8da204f9ab8165fafe0b497927a7fa24 (diff) | |
| parent | a0374a6e61102ea76e2df357b648e1530508a973 (diff) | |
| download | tcl-e7be4a19a0cdf781b241095a0aba272ff7b35ffd.zip tcl-e7be4a19a0cdf781b241095a0aba272ff7b35ffd.tar.gz tcl-e7be4a19a0cdf781b241095a0aba272ff7b35ffd.tar.bz2 | |
merge 8.6
| -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]); |