From 3f3c89a94712629db5dd879be46ee097e61b4944 Mon Sep 17 00:00:00 2001 From: dgp Date: Sun, 11 Mar 2018 12:13:11 +0000 Subject: Screen out empty list value so that assertions are true. --- generic/tclExecute.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 839f6f4..ef64ac1 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5239,6 +5239,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. */ /* -- cgit v0.12 From a0374a6e61102ea76e2df357b648e1530508a973 Mon Sep 17 00:00:00 2001 From: dgp Date: Sun, 11 Mar 2018 12:14:05 +0000 Subject: plug memleak of constructed package requirement. --- generic/tclPkg.c | 1 - 1 file changed, 1 deletion(-) diff --git a/generic/tclPkg.c b/generic/tclPkg.c index e956a40..d4080c2 100644 --- a/generic/tclPkg.c +++ b/generic/tclPkg.c @@ -1125,7 +1125,6 @@ TclNRPackageObjCmd( */ ov = Tcl_NewStringObj(version, -1); - Tcl_IncrRefCount(ov); Tcl_AppendStringsToObj(ov, "-", version, NULL); version = NULL; argv3 = TclGetString(objv[3]); -- cgit v0.12