diff options
author | dgp <dgp@users.sourceforge.net> | 2016-07-13 15:43:44 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-07-13 15:43:44 (GMT) |
commit | 094cbec1c7d756626ebe0c65c873165a33dc171d (patch) | |
tree | d5d55e56d85236543caf712d3139295a26b3318c | |
parent | 1aaca8e83c74f9410186786df54d1ecfc080a30a (diff) | |
download | tcl-094cbec1c7d756626ebe0c65c873165a33dc171d.zip tcl-094cbec1c7d756626ebe0c65c873165a33dc171d.tar.gz tcl-094cbec1c7d756626ebe0c65c873165a33dc171d.tar.bz2 |
another one
-rw-r--r-- | generic/tclNamesp.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index 43f2c1a..dd6ba55 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -2907,7 +2907,7 @@ GetNamespaceFromObj( *nsPtrPtr = (Tcl_Namespace *) nsPtr; return TCL_OK; } - TclFreeIntRep(objPtr); + Tcl_StoreIntRep(objPtr, &nsNameType, NULL); } if (SetNsNameFromAny(interp, objPtr) == TCL_OK) { NsNameGetIntRep(objPtr, resNamePtr); |