diff options
Diffstat (limited to 'generic')
| -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; } |