summaryrefslogtreecommitdiffstats
path: root/generic/tclEnsemble.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2017-11-30 13:23:10 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2017-11-30 13:23:10 (GMT)
commit94b624f11c01f23334b1ee3ef29f4c2e874b03c7 (patch)
treefaeda38ceaea4495f0cb300585db741cc29551ea /generic/tclEnsemble.c
parent5a9014a650af70ba5c09763035dc589d05402700 (diff)
parent72998869a3be3534fec99499faabe2d1557d6bcb (diff)
downloadtcl-94b624f11c01f23334b1ee3ef29f4c2e874b03c7.zip
tcl-94b624f11c01f23334b1ee3ef29f4c2e874b03c7.tar.gz
tcl-94b624f11c01f23334b1ee3ef29f4c2e874b03c7.tar.bz2
merge core-8-branch
Diffstat (limited to 'generic/tclEnsemble.c')
-rw-r--r--generic/tclEnsemble.c6
1 files changed, 1 insertions, 5 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c
index c5ccd22..a981851 100644
--- a/generic/tclEnsemble.c
+++ b/generic/tclEnsemble.c
@@ -732,7 +732,6 @@ Tcl_CreateEnsemble(
Tcl_Namespace *namespacePtr,
int flags)
{
- Tcl_Obj *nameObj = NULL;
Namespace *nsPtr = (Namespace *)namespacePtr, *foundNsPtr, *altNsPtr,
*actualNsPtr;
const char * simpleName;
@@ -741,11 +740,8 @@ Tcl_CreateEnsemble(
nsPtr = (Namespace *) TclGetCurrentNamespace(interp);
}
- TclGetNamespaceForQualName(interp, name, nsPtr, 0,
+ TclGetNamespaceForQualName(interp, name, nsPtr, TCL_CREATE_NS_IF_UNKNOWN,
&foundNsPtr, &altNsPtr, &actualNsPtr, &simpleName);
- if (nameObj != NULL) {
- TclDecrRefCount(nameObj);
- }
return TclCreateEnsembleInNs(interp, simpleName,
(Tcl_Namespace *) foundNsPtr, (Tcl_Namespace *) nsPtr, flags);
}