diff options
| author | dgp <dgp@users.sourceforge.net> | 2003-05-12 19:29:48 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2003-05-12 19:29:48 (GMT) |
| commit | 78a425544eec8223eb72dbc5a1c1f13536a440ef (patch) | |
| tree | fd5d3b12aa3f4cbf4191602860b8465b89402ca8 /generic/tclObj.c | |
| parent | 4d371261ae296c76cb1784f1c9a183b24bd3840f (diff) | |
| download | tcl-78a425544eec8223eb72dbc5a1c1f13536a440ef.zip tcl-78a425544eec8223eb72dbc5a1c1f13536a440ef.tar.gz tcl-78a425544eec8223eb72dbc5a1c1f13536a440ef.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].
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; } |