From 534bec807cc2cb0a81899bdc9fe9e39a486c0ea5 Mon Sep 17 00:00:00 2001 From: dgp Date: Wed, 27 Apr 2011 18:49:22 +0000 Subject: TclFreeIntRep() cleanup. --- ChangeLog | 9 +++++++++ generic/tclCmdMZ.c | 2 -- generic/tclExecute.c | 1 - generic/tclIndexObj.c | 1 - generic/tclListObj.c | 1 - generic/tclNamesp.c | 1 - generic/tclResult.c | 1 - generic/tclStringObj.c | 1 - generic/tclVar.c | 2 -- 9 files changed, 9 insertions(+), 10 deletions(-) diff --git a/ChangeLog b/ChangeLog index f058413..ca8952f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,14 @@ 2011-04-27 Don Porter + * generic/tclCmdMZ.c: TclFreeIntRep() cleanup. + * generic/tclExecute.c: + * generic/tclIndexObj.c: + * generic/tclListObj.c: + * generic/tclNamesp.c: + * generic/tclResult.c: + * generic/tclStringObj.c: + * generic/tclVar.c: + * generic/tclListObj.c: FreeListInternalRep() cleanup. 2011-04-21 Don Porter diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index a4b7d1e..e4a58ed 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -1560,7 +1560,6 @@ StringIsCmd( if (stop < end) { result = 0; TclFreeIntRep(objPtr); - objPtr->typePtr = NULL; } } break; @@ -1617,7 +1616,6 @@ StringIsCmd( failat = stop - string1; TclFreeIntRep(objPtr); - objPtr->typePtr = NULL; } } else { /* diff --git a/generic/tclExecute.c b/generic/tclExecute.c index ab50256..4fe65d7 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -2549,7 +2549,6 @@ TEBCresume( #if !TCL_COMPILE_DEBUG if (bytes != tclEmptyStringRep && !Tcl_IsShared(objResultPtr)) { TclFreeIntRep(objResultPtr); - objResultPtr->typePtr = NULL; objResultPtr->bytes = ckrealloc(bytes, length+appendLen+1); objResultPtr->length = length + appendLen; p = TclGetString(objResultPtr) + length; diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c index 99bd61f..69608cc 100644 --- a/generic/tclIndexObj.c +++ b/generic/tclIndexObj.c @@ -217,7 +217,6 @@ GetIndexFromObjList( */ TclFreeIntRep(objPtr); - objPtr->typePtr = NULL; ckfree(tablePtr); return result; diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 7d0743d..88b3a0b 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -358,7 +358,6 @@ Tcl_SetListObj( */ TclFreeIntRep(objPtr); - objPtr->typePtr = NULL; Tcl_InvalidateStringRep(objPtr); /* diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index 957b525..f3c93e7 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -4739,7 +4739,6 @@ SetNsNameFromAny( if (objPtr->typePtr == &nsNameType) { TclFreeIntRep(objPtr); - objPtr->typePtr = NULL; } return TCL_ERROR; } diff --git a/generic/tclResult.c b/generic/tclResult.c index 6a71ee2..60bae73 100644 --- a/generic/tclResult.c +++ b/generic/tclResult.c @@ -989,7 +989,6 @@ ResetObjResult( objResultPtr->length = 0; } TclFreeIntRep(objResultPtr); - objResultPtr->typePtr = NULL; } } diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index fe6d0af..7f31fdf 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -757,7 +757,6 @@ Tcl_SetStringObj( */ TclFreeIntRep(objPtr); - objPtr->typePtr = NULL; /* * Free any old string rep, then set the string rep to a copy of the diff --git a/generic/tclVar.c b/generic/tclVar.c index b735ba3..55c031c 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -703,7 +703,6 @@ TclObjLookupVarEx( */ TclFreeIntRep(part1Ptr); - part1Ptr->typePtr = NULL; varPtr = TclLookupSimpleVar(interp, part1Ptr, flags, createPart1, &errMsg, &index); @@ -2361,7 +2360,6 @@ TclPtrUnsetVar( if (part1Ptr->typePtr == &tclNsVarNameType) { TclFreeIntRep(part1Ptr); - part1Ptr->typePtr = NULL; } #endif -- cgit v0.12