diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2011-03-26 11:53:59 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2011-03-26 11:53:59 (GMT) |
| commit | 77029bd1e96f8df35c93b67699e5aee7c4546d72 (patch) | |
| tree | ab47b39e8bedb1021813e1161e79eb9a80359b53 /generic/tclNamesp.c | |
| parent | b570644554e1dc8b3efeb2a54cd329b877e8a67c (diff) | |
| download | tcl-77029bd1e96f8df35c93b67699e5aee7c4546d72.zip tcl-77029bd1e96f8df35c93b67699e5aee7c4546d72.tar.gz tcl-77029bd1e96f8df35c93b67699e5aee7c4546d72.tar.bz2 | |
Reduce the number of casts used to manage Tcl_Obj internal representations.
Diffstat (limited to 'generic/tclNamesp.c')
| -rw-r--r-- | generic/tclNamesp.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index ad233b9..0f1eb4d 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -2798,18 +2798,18 @@ GetNamespaceFromObj( * cross interps. */ - resNamePtr = (ResolvedNsName *) objPtr->internalRep.twoPtrValue.ptr1; + resNamePtr = objPtr->internalRep.twoPtrValue.ptr1; nsPtr = resNamePtr->nsPtr; refNsPtr = resNamePtr->refNsPtr; if (!(nsPtr->flags & NS_DYING) && (interp == nsPtr->interp) && (!refNsPtr || ((interp == refNsPtr->interp) && - (refNsPtr== (Namespace *) Tcl_GetCurrentNamespace(interp))))) { + (refNsPtr== (Namespace *) Tcl_GetCurrentNamespace(interp))))){ *nsPtrPtr = (Tcl_Namespace *) nsPtr; return TCL_OK; } } if (SetNsNameFromAny(interp, objPtr) == TCL_OK) { - resNamePtr = (ResolvedNsName *) objPtr->internalRep.twoPtrValue.ptr1; + resNamePtr = objPtr->internalRep.twoPtrValue.ptr1; *nsPtrPtr = (Tcl_Namespace *) resNamePtr->nsPtr; return TCL_OK; } |