diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2024-05-25 11:31:34 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2024-05-25 11:31:34 (GMT) |
| commit | 52e0863e247b040ad4634a2d76fb635864cc03f7 (patch) | |
| tree | 85bd4b4de6b75b87ec304abeaf5c555a46c78a3e /generic/tclCompCmds.c | |
| parent | dfbb9a77ad9a9998eaed2cc0b70254f3ae7bfe65 (diff) | |
| download | tcl-52e0863e247b040ad4634a2d76fb635864cc03f7.zip tcl-52e0863e247b040ad4634a2d76fb635864cc03f7.tar.gz tcl-52e0863e247b040ad4634a2d76fb635864cc03f7.tar.bz2 | |
Use the new operations
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index bafcb13..a422072 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -2293,8 +2293,7 @@ DisassembleDictUpdateInfo( Tcl_ListObjAppendElement(NULL, variables, Tcl_NewIntObj(duiPtr->varIndices[i])); } - Tcl_DictObjPut(NULL, dictObj, Tcl_NewStringObj("variables", -1), - variables); + TclDictPut(NULL, dictObj, "variables", variables); } /* @@ -3035,14 +3034,13 @@ DisassembleForeachInfo( Tcl_ListObjAppendElement(NULL, objPtr, Tcl_NewIntObj(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_NewIntObj(infoPtr->loopCtTemp)); + TclDictPut(NULL, dictObj, "loop", Tcl_NewIntObj(infoPtr->loopCtTemp)); /* * Assignment targets. @@ -3058,7 +3056,7 @@ DisassembleForeachInfo( } Tcl_ListObjAppendElement(NULL, objPtr, innerPtr); } - Tcl_DictObjPut(NULL, dictObj, Tcl_NewStringObj("assign", -1), objPtr); + TclDictPut(NULL, dictObj, "assign", objPtr); } static void @@ -3077,8 +3075,7 @@ DisassembleNewForeachInfo( * Jump offset. */ - Tcl_DictObjPut(NULL, dictObj, Tcl_NewStringObj("jumpOffset", -1), - Tcl_NewIntObj(infoPtr->loopCtTemp)); + TclDictPut(NULL, dictObj, "jumpOffset", Tcl_NewIntObj(infoPtr->loopCtTemp)); /* * Assignment targets. @@ -3094,7 +3091,7 @@ DisassembleNewForeachInfo( } Tcl_ListObjAppendElement(NULL, objPtr, innerPtr); } - Tcl_DictObjPut(NULL, dictObj, Tcl_NewStringObj("assign", -1), objPtr); + TclDictPut(NULL, dictObj, "assign", objPtr); } /* |