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 | 792e537014155639518f89b8c2e24abb8cd85d5c (patch) | |
| tree | d5d55e56d85236543caf712d3139295a26b3318c | |
| parent | 9a0684671aa9a92a1d8b4037507484c07cdf3a3d (diff) | |
| download | tcl-792e537014155639518f89b8c2e24abb8cd85d5c.zip tcl-792e537014155639518f89b8c2e24abb8cd85d5c.tar.gz tcl-792e537014155639518f89b8c2e24abb8cd85d5c.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); |