diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2024-05-26 10:04:31 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2024-05-26 10:04:31 (GMT) |
| commit | 1c8e57af313b8a648e803d05a8563cb16c1beec7 (patch) | |
| tree | 24247fd5b7f78a183bfb1e4786c926d93d5378a7 /generic/tclCmdMZ.c | |
| parent | a5d90257c2e0558387e24753ee7bfb86cbf4f353 (diff) | |
| parent | 872c04a64adaa412f6b8684bb024d000d11a1650 (diff) | |
| download | tcl-1c8e57af313b8a648e803d05a8563cb16c1beec7.zip tcl-1c8e57af313b8a648e803d05a8563cb16c1beec7.tar.gz tcl-1c8e57af313b8a648e803d05a8563cb16c1beec7.tar.bz2 | |
More C functions for working with dicts [656fe3c816]
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 41782b0..a6e9ffd 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -5115,12 +5115,10 @@ TryPostBody( */ if (code == TCL_ERROR) { - Tcl_Obj *errorCodeName, *errcode, **bits1, **bits2; + Tcl_Obj *errcode, **bits1, **bits2; int len1, len2, j; - TclNewLiteralStringObj(errorCodeName, "-errorcode"); - Tcl_DictObjGet(NULL, options, errorCodeName, &errcode); - Tcl_DecrRefCount(errorCodeName); + TclDictGet(NULL, options, "-errorcode", &errcode); TclListObjGetElements(NULL, info[2], &len1, &bits1); if (TclListObjGetElements(NULL, errcode, &len2, &bits2) != TCL_OK) { |