diff options
author | dgp <dgp@noemail.net> | 2011-04-18 21:42:51 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2011-04-18 21:42:51 (GMT) |
commit | 1b11daee404475573dc1107f869beb9409d1a8f5 (patch) | |
tree | e842cb86065dd668b96d29fb3f1378a9e07696f4 /generic/tclConfig.c | |
parent | b82093c05dfdef1b0495d2302dd6cbef726f5f10 (diff) | |
parent | 323784255da1f98ab50687729f6c011f6d040358 (diff) | |
download | tcl-1b11daee404475573dc1107f869beb9409d1a8f5.zip tcl-1b11daee404475573dc1107f869beb9409d1a8f5.tar.gz tcl-1b11daee404475573dc1107f869beb9409d1a8f5.tar.bz2 |
Use ListRepPtr(.) and other cleanup.
FossilOrigin-Name: e7e05e37cc46b3dfd49567c1ad23f1c76eff0210
Diffstat (limited to 'generic/tclConfig.c')
-rw-r--r-- | generic/tclConfig.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclConfig.c b/generic/tclConfig.c index 3ad5dfd..8f60b02 100644 --- a/generic/tclConfig.c +++ b/generic/tclConfig.c @@ -277,8 +277,7 @@ QueryConfigObjCmd( } if (n) { - List *listRepPtr = (List *) - listPtr->internalRep.twoPtrValue.ptr1; + List *listRepPtr = ListRepPtr(listPtr); Tcl_DictSearch s; Tcl_Obj *key, **vals; int done, i = 0; |