diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2017-12-26 12:54:00 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2017-12-26 12:54:00 (GMT) |
| commit | 63224df965c165226da5226eba2d0036d0b6d2b3 (patch) | |
| tree | f1ec4f59f45ad401cd45a952a6cb1d1c08ec0671 /generic/tclOOBasic.c | |
| parent | b067895cc442b431d0160a6c46a7037454e9ddc2 (diff) | |
| download | tcl-63224df965c165226da5226eba2d0036d0b6d2b3.zip tcl-63224df965c165226da5226eba2d0036d0b6d2b3.tar.gz tcl-63224df965c165226da5226eba2d0036d0b6d2b3.tar.bz2 | |
TclOO: Remove unneeded name manipulation from TclOOCopyObjectCmd.
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) { |