diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-01-04 02:40:00 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-01-04 02:40:00 (GMT) |
| commit | 904582dd30e132e8ced229162c905cafe2083f1f (patch) | |
| tree | 5d220b54187de038737ccbe6d78d29efe92242b7 | |
| parent | d08f08a24d7360b80c69b576fd4645f5ecdb8fe5 (diff) | |
| parent | 6c799d891d69e04b9e0f32ca59719b4b23dc311a (diff) | |
| download | tcl-904582dd30e132e8ced229162c905cafe2083f1f.zip tcl-904582dd30e132e8ced229162c905cafe2083f1f.tar.gz tcl-904582dd30e132e8ced229162c905cafe2083f1f.tar.bz2 | |
merge 8.7
| -rw-r--r-- | generic/tclPkg.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tclPkg.c b/generic/tclPkg.c index 20d0db9..d4f4d72 100644 --- a/generic/tclPkg.c +++ b/generic/tclPkg.c @@ -948,6 +948,7 @@ Tcl_PackageObjCmd( Tcl_EventuallyFree(availPtr->script, TCL_DYNAMIC); if (availPtr->pkgIndex) { Tcl_EventuallyFree(availPtr->pkgIndex, TCL_DYNAMIC); + availPtr->pkgIndex = NULL; } ckfree(availPtr); } @@ -1001,6 +1002,7 @@ Tcl_PackageObjCmd( Tcl_EventuallyFree(availPtr->script, TCL_DYNAMIC); if (availPtr->pkgIndex) { Tcl_EventuallyFree(availPtr->pkgIndex, TCL_DYNAMIC); + availPtr->pkgIndex = NULL; } break; } @@ -1012,7 +1014,7 @@ Tcl_PackageObjCmd( } if (availPtr == NULL) { availPtr = ckalloc(sizeof(PkgAvail)); - availPtr->pkgIndex = 0; + availPtr->pkgIndex = NULL; DupBlock(availPtr->version, argv3, (unsigned) length + 1); if (prevPtr == NULL) { @@ -1384,6 +1386,7 @@ TclFreePackageInfo( Tcl_EventuallyFree(availPtr->script, TCL_DYNAMIC); if (availPtr->pkgIndex) { Tcl_EventuallyFree(availPtr->pkgIndex, TCL_DYNAMIC); + availPtr->pkgIndex = NULL; } ckfree(availPtr); } |