From db89fa13d55a8702757ce698cd695db454d4690b Mon Sep 17 00:00:00 2001 From: dgp Date: Mon, 25 Apr 2011 17:51:14 +0000 Subject: TclFreeIntRep() related cleanup. --- generic/tclPathObj.c | 4 ---- generic/tclProc.c | 5 ++--- generic/tclTestObj.c | 3 +-- 3 files changed, 3 insertions(+), 9 deletions(-) diff --git a/generic/tclPathObj.c b/generic/tclPathObj.c index 01a297b..d9e3973 100644 --- a/generic/tclPathObj.c +++ b/generic/tclPathObj.c @@ -1156,7 +1156,6 @@ Tcl_FSConvertToPathType( UpdateStringOfFsPath(pathPtr); } FreeFsPathInternalRep(pathPtr); - pathPtr->typePtr = NULL; } return Tcl_ConvertToType(interp, pathPtr, &tclFsPathType); @@ -1175,7 +1174,6 @@ Tcl_FSConvertToPathType( * UpdateStringOfFsPath(pathPtr); * } * FreeFsPathInternalRep(pathPtr); - * pathPtr->typePtr = NULL; * return Tcl_ConvertToType(interp, pathPtr, &tclFsPathType); * } * } @@ -1903,7 +1901,6 @@ Tcl_FSGetNormalizedPath( UpdateStringOfFsPath(pathPtr); } FreeFsPathInternalRep(pathPtr); - pathPtr->typePtr = NULL; if (Tcl_ConvertToType(interp, pathPtr, &tclFsPathType) != TCL_OK) { return NULL; } @@ -2214,7 +2211,6 @@ TclFSEnsureEpochOk( UpdateStringOfFsPath(pathPtr); } FreeFsPathInternalRep(pathPtr); - pathPtr->typePtr = NULL; if (SetFsPathFromAny(NULL, pathPtr) != TCL_OK) { return TCL_ERROR; } diff --git a/generic/tclProc.c b/generic/tclProc.c index 1260f4f..a2de765 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -2006,8 +2006,7 @@ TclProcCompileProc( codePtr->compileEpoch = iPtr->compileEpoch; codePtr->nsPtr = nsPtr; } else { - bodyPtr->typePtr->freeIntRepProc(bodyPtr); - bodyPtr->typePtr = NULL; + TclFreeIntRep(bodyPtr); } } @@ -2635,7 +2634,7 @@ SetLambdaFromAny( * conversion to lambdaType. */ - objPtr->typePtr->freeIntRepProc(objPtr); + TclFreeIntRep(objPtr); objPtr->internalRep.twoPtrValue.ptr1 = procPtr; objPtr->internalRep.twoPtrValue.ptr2 = nsObjPtr; diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index 1ef1dc3..92c278f 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -562,8 +562,7 @@ TestindexobjCmd( && !strcmp("index", objv[3]->typePtr->name)) { indexRep = objv[3]->internalRep.otherValuePtr; if (indexRep->tablePtr == (void *) argv) { - objv[3]->typePtr->freeIntRepProc(objv[3]); - objv[3]->typePtr = NULL; + TclFreeIntRep(objv[3]); } } -- cgit v0.12