diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-01-20 14:36:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-01-20 14:36:36 (GMT) |
| commit | 69868ee129e5fe87ad3e38afa7b92208974af881 (patch) | |
| tree | d324ebcf999d73e37b50ca7b0f1b78aafce2cca4 /generic/tclOOBasic.c | |
| parent | 603e23c2a9f36afa883135a76f147807f273e58d (diff) | |
| parent | 7ea11c7f9865dc680b102ea9497fc75634be25e4 (diff) | |
| download | tcl-69868ee129e5fe87ad3e38afa7b92208974af881.zip tcl-69868ee129e5fe87ad3e38afa7b92208974af881.tar.gz tcl-69868ee129e5fe87ad3e38afa7b92208974af881.tar.bz2 | |
merge core-8-branch. Now tested as well with new nmake system.
Diffstat (limited to 'generic/tclOOBasic.c')
| -rw-r--r-- | generic/tclOOBasic.c | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/generic/tclOOBasic.c b/generic/tclOOBasic.c index b2c06a7..d874cba 100644 --- a/generic/tclOOBasic.c +++ b/generic/tclOOBasic.c @@ -1206,22 +1206,10 @@ TclOOCopyObjectCmd( o2Ptr = Tcl_CopyObjectInstance(interp, oPtr, NULL, NULL); } else { const char *name, *namespaceName; - Tcl_DString buffer; name = TclGetString(objv[2]); - Tcl_DStringInit(&buffer); if (name[0] == '\0') { name = NULL; - } else if (name[0]!=':' || name[1]!=':') { - Interp *iPtr = (Interp *) interp; - - if (iPtr->varFramePtr != NULL) { - Tcl_DStringAppend(&buffer, - iPtr->varFramePtr->nsPtr->fullName, -1); - } - TclDStringAppendLiteral(&buffer, "::"); - Tcl_DStringAppend(&buffer, name, -1); - name = Tcl_DStringValue(&buffer); } /* @@ -1243,7 +1231,6 @@ TclOOCopyObjectCmd( } o2Ptr = Tcl_CopyObjectInstance(interp, oPtr, name, namespaceName); - Tcl_DStringFree(&buffer); } if (o2Ptr == NULL) { |