diff options
author | dgp <dgp@noemail.net> | 2003-05-12 19:29:47 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2003-05-12 19:29:47 (GMT) |
commit | 01f0a68f802fee9fc41f9f9102c87a44667cf564 (patch) | |
tree | fd5d3b12aa3f4cbf4191602860b8465b89402ca8 /generic/tclObj.c | |
parent | 14b3348b98707639eb43d8f63a4ed46da176b3ba (diff) | |
download | tcl-01f0a68f802fee9fc41f9f9102c87a44667cf564.zip tcl-01f0a68f802fee9fc41f9f9102c87a44667cf564.tar.gz tcl-01f0a68f802fee9fc41f9f9102c87a44667cf564.tar.bz2 |
* generic/tclObj.c (tclCmdNameType): Corrected variable use of the
otherValuePtr or the twoPtrValue.ptr1 fields to store a
(ResolvedCmdName *) as the internal rep. [Bug 726018].
FossilOrigin-Name: 0942f4c0f4e6248f3b9780db06a149ed92a97279
Diffstat (limited to 'generic/tclObj.c')
-rw-r--r-- | generic/tclObj.c | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 050dfb6..bf496ec 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclObj.c,v 1.42.2.2 2003/04/16 23:31:45 dgp Exp $ + * RCS: @(#) $Id: tclObj.c,v 1.42.2.3 2003/05/12 19:29:50 dgp Exp $ */ #include "tclInt.h" @@ -2991,8 +2991,7 @@ TclSetCmdNameObj(interp, objPtr, cmdPtr) if ((oldTypePtr != NULL) && (oldTypePtr->freeIntRepProc != NULL)) { oldTypePtr->freeIntRepProc(objPtr); } - objPtr->internalRep.twoPtrValue.ptr1 = (VOID *) resPtr; - objPtr->internalRep.twoPtrValue.ptr2 = NULL; + objPtr->internalRep.otherValuePtr = (VOID *) resPtr; objPtr->typePtr = &tclCmdNameType; } @@ -3074,8 +3073,7 @@ DupCmdNameInternalRep(srcPtr, copyPtr) register ResolvedCmdName *resPtr = (ResolvedCmdName *) srcPtr->internalRep.otherValuePtr; - copyPtr->internalRep.twoPtrValue.ptr1 = (VOID *) resPtr; - copyPtr->internalRep.twoPtrValue.ptr2 = NULL; + copyPtr->internalRep.otherValuePtr = (VOID *) resPtr; if (resPtr != NULL) { resPtr->refCount++; } @@ -3170,8 +3168,7 @@ SetCmdNameFromAny(interp, objPtr) objPtr->typePtr->freeIntRepProc(objPtr); } - objPtr->internalRep.twoPtrValue.ptr1 = (VOID *) resPtr; - objPtr->internalRep.twoPtrValue.ptr2 = NULL; + objPtr->internalRep.otherValuePtr = (VOID *) resPtr; objPtr->typePtr = &tclCmdNameType; return TCL_OK; } |