summaryrefslogtreecommitdiffstats
path: root/generic/tclOOMethod.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2015-06-19 15:35:14 (GMT)
committerdgp <dgp@users.sourceforge.net>2015-06-19 15:35:14 (GMT)
commit69ead1ea0999daf76ab2e38733cdd63fc979ad8f (patch)
treedf4703774d47f714ccafbb3cc089eb5e036f1bc7 /generic/tclOOMethod.c
parentac8db8c157d7995337eb3947210e80e5378748a3 (diff)
downloadtcl-69ead1ea0999daf76ab2e38733cdd63fc979ad8f.zip
tcl-69ead1ea0999daf76ab2e38733cdd63fc979ad8f.tar.gz
tcl-69ead1ea0999daf76ab2e38733cdd63fc979ad8f.tar.bz2
Remove lines of code made obsolete by earlier changes.
Diffstat (limited to 'generic/tclOOMethod.c')
-rw-r--r--generic/tclOOMethod.c6
1 files changed, 1 insertions, 5 deletions
diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c
index 61215de..f586e8c 100644
--- a/generic/tclOOMethod.c
+++ b/generic/tclOOMethod.c
@@ -1351,7 +1351,7 @@ CloneProcedureMethod(
/*
* ----------------------------------------------------------------------
*
- * TclOONewForwardMethod --
+ * TclOONewForwardInstanceMethod --
*
* Create a forwarded method for an object.
*
@@ -1369,7 +1369,6 @@ TclOONewForwardInstanceMethod(
{
int prefixLen;
register ForwardMethod *fmPtr;
- Tcl_Obj *cmdObj;
if (Tcl_ListObjLength(interp, prefixObj, &prefixLen) != TCL_OK) {
return NULL;
@@ -1383,7 +1382,6 @@ TclOONewForwardInstanceMethod(
fmPtr = ckalloc(sizeof(ForwardMethod));
fmPtr->prefixObj = prefixObj;
- Tcl_ListObjIndex(interp, prefixObj, 0, &cmdObj);
Tcl_IncrRefCount(prefixObj);
return (Method *) Tcl_NewInstanceMethod(interp, (Tcl_Object) oPtr,
nameObj, flags, &fwdMethodType, fmPtr);
@@ -1410,7 +1408,6 @@ TclOONewForwardMethod(
{
int prefixLen;
register ForwardMethod *fmPtr;
- Tcl_Obj *cmdObj;
if (Tcl_ListObjLength(interp, prefixObj, &prefixLen) != TCL_OK) {
return NULL;
@@ -1424,7 +1421,6 @@ TclOONewForwardMethod(
fmPtr = ckalloc(sizeof(ForwardMethod));
fmPtr->prefixObj = prefixObj;
- Tcl_ListObjIndex(interp, prefixObj, 0, &cmdObj);
Tcl_IncrRefCount(prefixObj);
return (Method *) Tcl_NewMethod(interp, (Tcl_Class) clsPtr, nameObj,
flags, &fwdMethodType, fmPtr);