diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-01 16:47:41 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-01 16:47:41 (GMT) |
| commit | 08ba0e902fe194be25319468633409bc90daaf87 (patch) | |
| tree | d3f54a404553b69d367d2bcf2e71c6deab5dbe7e /generic/tclExecute.c | |
| parent | aafa72469da7da2db317ded2198ef6cfa52b50fa (diff) | |
| download | tcl-08ba0e902fe194be25319468633409bc90daaf87.zip tcl-08ba0e902fe194be25319468633409bc90daaf87.tar.gz tcl-08ba0e902fe194be25319468633409bc90daaf87.tar.bz2 | |
Added compilation of [dict create] and [dict merge].
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index c6be2f3..bbee81d 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5915,6 +5915,17 @@ TEBCresume( Tcl_DictSearch *searchPtr; DictUpdateInfo *duiPtr; + case INST_DICT_VERIFY: + dictPtr = OBJ_AT_TOS; + TRACE(("=> ")); + if (Tcl_DictObjSize(interp, dictPtr, &done) != TCL_OK) { + TRACE_APPEND(("ERROR verifying dictionary nature of \"%s\": %s\n", + O2S(OBJ_AT_DEPTH(opnd)), O2S(Tcl_GetObjResult(interp)))); + goto gotError; + } + TRACE_APPEND(("OK\n")); + NEXT_INST_F(1, 1, 0); + case INST_DICT_GET: case INST_DICT_EXISTS: { register Tcl_Interp *interp2 = interp; @@ -5933,8 +5944,8 @@ TEBCresume( goto dictNotExists; } TRACE_WITH_OBJ(( - "%u => ERROR tracing dictionary path into \"%s\": ", - opnd, O2S(OBJ_AT_DEPTH(opnd))), + "ERROR tracing dictionary path into \"%s\": ", + O2S(OBJ_AT_DEPTH(opnd))), Tcl_GetObjResult(interp)); goto gotError; } |