diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2017-12-26 12:27:14 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2017-12-26 12:27:14 (GMT) |
| commit | 9a9b619c9f29470dab9e33b0c593b7e648224515 (patch) | |
| tree | 16bf522fcf8658d1e795ecd6e51f4123aa57eb27 /generic/tclOOBasic.c | |
| parent | 0b3bf9e30d94174dda9c8389a11d3cacf05eea85 (diff) | |
| download | tcl-9a9b619c9f29470dab9e33b0c593b7e648224515.zip tcl-9a9b619c9f29470dab9e33b0c593b7e648224515.tar.gz tcl-9a9b619c9f29470dab9e33b0c593b7e648224515.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) { |