diff options
author | dgp <dgp@noemail.net> | 2011-04-18 21:42:51 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2011-04-18 21:42:51 (GMT) |
commit | 1b11daee404475573dc1107f869beb9409d1a8f5 (patch) | |
tree | e842cb86065dd668b96d29fb3f1378a9e07696f4 /generic/tclListObj.c | |
parent | b82093c05dfdef1b0495d2302dd6cbef726f5f10 (diff) | |
parent | 323784255da1f98ab50687729f6c011f6d040358 (diff) | |
download | tcl-1b11daee404475573dc1107f869beb9409d1a8f5.zip tcl-1b11daee404475573dc1107f869beb9409d1a8f5.tar.gz tcl-1b11daee404475573dc1107f869beb9409d1a8f5.tar.bz2 |
Use ListRepPtr(.) and other cleanup.
FossilOrigin-Name: e7e05e37cc46b3dfd49567c1ad23f1c76eff0210
Diffstat (limited to 'generic/tclListObj.c')
-rw-r--r-- | generic/tclListObj.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 9128333..8a0f89a 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -446,7 +446,7 @@ Tcl_ListObjGetElements( return result; } } - listRepPtr = listPtr->internalRep.twoPtrValue.ptr1; + listRepPtr = ListRepPtr(listPtr); *objcPtr = listRepPtr->elemCount; *objvPtr = &listRepPtr->elements; return TCL_OK; @@ -564,7 +564,7 @@ Tcl_ListObjAppendElement( } } - listRepPtr = listPtr->internalRep.twoPtrValue.ptr1; + listRepPtr = ListRepPtr(listPtr); numElems = listRepPtr->elemCount; numRequired = numElems + 1 ; @@ -674,7 +674,7 @@ Tcl_ListObjIndex( } } - listRepPtr = listPtr->internalRep.twoPtrValue.ptr1; + listRepPtr = ListRepPtr(listPtr); if ((index < 0) || (index >= listRepPtr->elemCount)) { *objPtrPtr = NULL; } else { @@ -729,7 +729,7 @@ Tcl_ListObjLength( } } - listRepPtr = listPtr->internalRep.twoPtrValue.ptr1; + listRepPtr = ListRepPtr(listPtr); *intPtr = listRepPtr->elemCount; return TCL_OK; } @@ -816,7 +816,7 @@ Tcl_ListObjReplace( * Resist any temptation to optimize this case. */ - listRepPtr = listPtr->internalRep.twoPtrValue.ptr1; + listRepPtr = ListRepPtr(listPtr); elemPtrs = &listRepPtr->elements; numElems = listRepPtr->elemCount; @@ -1523,7 +1523,7 @@ TclListObjSetElement( } } - listRepPtr = listPtr->internalRep.twoPtrValue.ptr1; + listRepPtr = ListRepPtr(listPtr); elemCount = listRepPtr->elemCount; elemPtrs = &listRepPtr->elements; @@ -1610,7 +1610,7 @@ static void FreeListInternalRep( Tcl_Obj *listPtr) /* List object with internal rep to free. */ { - register List *listRepPtr = listPtr->internalRep.twoPtrValue.ptr1; + register List *listRepPtr = ListRepPtr(listPtr); register Tcl_Obj **elemPtrs = &listRepPtr->elements; register Tcl_Obj *objPtr; int numElems = listRepPtr->elemCount; @@ -1651,7 +1651,7 @@ DupListInternalRep( Tcl_Obj *srcPtr, /* Object with internal rep to copy. */ Tcl_Obj *copyPtr) /* Object with internal rep to set. */ { - List *listRepPtr = srcPtr->internalRep.twoPtrValue.ptr1; + List *listRepPtr = ListRepPtr(srcPtr); listRepPtr->refCount++; copyPtr->internalRep.twoPtrValue.ptr1 = listRepPtr; @@ -1873,7 +1873,7 @@ UpdateStringOfList( { # define LOCAL_SIZE 20 int localFlags[LOCAL_SIZE], *flagPtr; - List *listRepPtr = listPtr->internalRep.twoPtrValue.ptr1; + List *listRepPtr = ListRepPtr(listPtr); int numElems = listRepPtr->elemCount; register int i; const char *elem; |