diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2011-03-26 11:53:59 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2011-03-26 11:53:59 (GMT) |
| commit | 880b93e43358b53971cc383a797a2bde8bf989ad (patch) | |
| tree | ab47b39e8bedb1021813e1161e79eb9a80359b53 /generic/tclNamesp.c | |
| parent | b262f59751fc75956d4b71cb482fc27e543777e7 (diff) | |
| download | tcl-880b93e43358b53971cc383a797a2bde8bf989ad.zip tcl-880b93e43358b53971cc383a797a2bde8bf989ad.tar.gz tcl-880b93e43358b53971cc383a797a2bde8bf989ad.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; } |