diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-17 09:32:51 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-17 09:32:51 (GMT) |
| commit | af999a3a2c4770f8654059f5c5b50d766cc88c7f (patch) | |
| tree | 8fa92f3743b92c9006d32550b37bca0226730f9f /generic/tclLink.c | |
| parent | bd2e73ff510f8fd5d9291cc8eff89544cdce2583 (diff) | |
| download | tcl-af999a3a2c4770f8654059f5c5b50d766cc88c7f.zip tcl-af999a3a2c4770f8654059f5c5b50d766cc88c7f.tar.gz tcl-af999a3a2c4770f8654059f5c5b50d766cc88c7f.tar.bz2 | |
Rename macro's TclListObjGetElements -> TclListObjGetElementsM and TclListObjLength -> TclListObjLengthM (prevent conflict with TIP #616)
Diffstat (limited to 'generic/tclLink.c')
| -rw-r--r-- | generic/tclLink.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclLink.c b/generic/tclLink.c index ee77654..384fcf3 100644 --- a/generic/tclLink.c +++ b/generic/tclLink.c @@ -947,7 +947,7 @@ LinkTraceProc( */ if (linkPtr->flags & LINK_ALLOC_LAST) { - if (TclListObjGetElements(NULL, (valueObj), &objc, &objv) == TCL_ERROR + if (TclListObjGetElementsM(NULL, (valueObj), &objc, &objv) == TCL_ERROR || objc != linkPtr->numElems) { return (char *) "wrong dimension"; } |