diff options
| -rw-r--r-- | generic/tclLink.c | 2 | ||||
| -rw-r--r-- | tests/cmdMZ.test | 2 | ||||
| -rw-r--r-- | tests/ioCmd.test | 2 |
3 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclLink.c b/generic/tclLink.c index 3bcfb72..030e471 100644 --- a/generic/tclLink.c +++ b/generic/tclLink.c @@ -392,8 +392,6 @@ Tcl_LinkArray( if (code != TCL_OK) { Tcl_DecrRefCount(linkPtr->varName); LinkFree(linkPtr); - } else { - Tcl_SetObjResult(interp, Tcl_NewIntObj((int) linkPtr->addr)); } return code; } diff --git a/tests/cmdMZ.test b/tests/cmdMZ.test index 1ad45e7..2c2d51c 100644 --- a/tests/cmdMZ.test +++ b/tests/cmdMZ.test @@ -316,7 +316,7 @@ test cmdMZ-4.13 {Tcl_SplitObjCmd: basic split commands} { # The tests for Tcl_SubstObjCmd are in subst.test # The tests for Tcl_SwitchObjCmd are in switch.test -# todo: rewrite this if monotonic clock is provided resp. command "after" +# todo: rewrite this if monotonic clock is provided resp. command "after" # gets microsecond accuracy (RFE [fdfbd5e10] gets merged): proc _nrt_sleep {msec} { set usec [expr {$msec * 1000}] diff --git a/tests/ioCmd.test b/tests/ioCmd.test index b15be21..a967139 100644 --- a/tests/ioCmd.test +++ b/tests/ioCmd.test @@ -2050,7 +2050,7 @@ test iocmd-31.8 {chan postevent after close throws error} -match glob -setup { } -returnCodes error -result {can not find reflected channel named "rc*"} test iocmd-31.9 { chan postevent - + call to current coroutine see 67a5eabbd3d1 |