diff options
| author | dgp <dgp@users.sourceforge.net> | 2015-06-19 15:35:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2015-06-19 15:35:14 (GMT) |
| commit | 69ead1ea0999daf76ab2e38733cdd63fc979ad8f (patch) | |
| tree | df4703774d47f714ccafbb3cc089eb5e036f1bc7 /generic/tclOOMethod.c | |
| parent | ac8db8c157d7995337eb3947210e80e5378748a3 (diff) | |
| download | tcl-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.c | 6 |
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); |