diff options
author | dgp <dgp@users.sourceforge.net> | 2023-09-06 20:35:27 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2023-09-06 20:35:27 (GMT) |
commit | 3f3dfa54cb349fb5d39961cd23c82d600247e9e7 (patch) | |
tree | a39d1803fadea4511e07f0995c0ed1ad7d0e0d95 /generic/tclDictObj.c | |
parent | 4b135ba7bf313f34c5718a14263a24b80ee103c8 (diff) | |
parent | bec1da2042481302d3230238bdf8e1d17ecae317 (diff) | |
download | tcl-3f3dfa54cb349fb5d39961cd23c82d600247e9e7.zip tcl-3f3dfa54cb349fb5d39961cd23c82d600247e9e7.tar.gz tcl-3f3dfa54cb349fb5d39961cd23c82d600247e9e7.tar.bz2 |
merge trunk
Diffstat (limited to 'generic/tclDictObj.c')
-rw-r--r-- | generic/tclDictObj.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/generic/tclDictObj.c b/generic/tclDictObj.c index e5e0c70..64d666f 100644 --- a/generic/tclDictObj.c +++ b/generic/tclDictObj.c @@ -62,7 +62,7 @@ static Tcl_ObjCmdProc DictMapNRCmd; static Tcl_NRPostProc DictForLoopCallback; static Tcl_NRPostProc DictMapLoopCallback; static Tcl_ObjTypeLengthProc DictAsListLength; -static Tcl_ObjTypeIndexProc DictAsListIndex; +/* static Tcl_ObjTypeIndexProc DictAsListIndex; Needs rewrite */ /* * Table of dict subcommand names and implementations. @@ -152,13 +152,14 @@ const Tcl_ObjType tclDictType = { TCL_OBJTYPE_V2( /* Extended type for AbstractLists */ DictAsListLength, /* return "list" length of dict value w/o * shimmering */ - DictAsListIndex, /* return key or value at "list" index + NULL, /* return key or value at "list" index * location. (keysare at even indicies, * values at odd indicies) */ NULL, NULL, NULL, NULL, + NULL, NULL) }; @@ -3883,7 +3884,7 @@ DictAsListLength( * The intent is to have no side effects. * */ - +#if 0 /* Needs rewrite */ static int DictAsListIndex( Tcl_Interp *interp, @@ -3951,6 +3952,7 @@ DictAsListIndex( *elemObjPtr = elemPtr; return TCL_OK; } +#endif /* * Local Variables: |