diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-05-28 03:02:13 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-05-28 03:02:13 (GMT) |
| commit | 6be516b44a873f6ced4a54f374e2eb4be624a6ce (patch) | |
| tree | 3b7b8cfca0bef90c815c93d85ac285800be6a935 /generic/tclCompCmds.c | |
| parent | c6139c195316122d0e72fde74fcaac9b1f7f9dc5 (diff) | |
| parent | 978c979608e7c2abc738ff8e3ac4f472dd893316 (diff) | |
| download | tcl-6be516b44a873f6ced4a54f374e2eb4be624a6ce.zip tcl-6be516b44a873f6ced4a54f374e2eb4be624a6ce.tar.gz tcl-6be516b44a873f6ced4a54f374e2eb4be624a6ce.tar.bz2 | |
Merge trunk
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index bad58f6..6d3eabd 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -2397,8 +2397,7 @@ DisassembleDictUpdateInfo( Tcl_ListObjAppendElement(NULL, variables, Tcl_NewWideIntObj(duiPtr->varIndices[i])); } - Tcl_DictObjPut(NULL, dictObj, Tcl_NewStringObj("variables", -1), - variables); + TclDictPut(NULL, dictObj, "variables", variables); } /* @@ -3136,14 +3135,13 @@ DisassembleForeachInfo( Tcl_ListObjAppendElement(NULL, objPtr, Tcl_NewWideIntObj(infoPtr->firstValueTemp + i)); } - Tcl_DictObjPut(NULL, dictObj, Tcl_NewStringObj("data", -1), objPtr); + TclDictPut(NULL, dictObj, "data", objPtr); /* * Loop counter. */ - Tcl_DictObjPut(NULL, dictObj, Tcl_NewStringObj("loop", -1), - Tcl_NewWideIntObj(infoPtr->loopCtTemp)); + TclDictPut(NULL, dictObj, "loop", Tcl_NewWideIntObj(infoPtr->loopCtTemp)); /* * Assignment targets. @@ -3159,7 +3157,7 @@ DisassembleForeachInfo( } Tcl_ListObjAppendElement(NULL, objPtr, innerPtr); } - Tcl_DictObjPut(NULL, dictObj, Tcl_NewStringObj("assign", -1), objPtr); + TclDictPut(NULL, dictObj, "assign", objPtr); } static void @@ -3178,8 +3176,8 @@ DisassembleNewForeachInfo( * Jump offset. */ - Tcl_DictObjPut(NULL, dictObj, Tcl_NewStringObj("jumpOffset", -1), - Tcl_NewWideIntObj(infoPtr->loopCtTemp)); + TclDictPut(NULL, dictObj, "jumpOffset", + Tcl_NewWideIntObj(infoPtr->loopCtTemp)); /* * Assignment targets. @@ -3195,7 +3193,7 @@ DisassembleNewForeachInfo( } Tcl_ListObjAppendElement(NULL, objPtr, innerPtr); } - Tcl_DictObjPut(NULL, dictObj, Tcl_NewStringObj("assign", -1), objPtr); + TclDictPut(NULL, dictObj, "assign", objPtr); } /* |