diff options
author | dkf <dkf@noemail.net> | 2010-03-05 11:36:18 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2010-03-05 11:36:18 (GMT) |
commit | 5ba7e23db54042b3bb546b0d227da32adcde8a1a (patch) | |
tree | 80c81e95688d69dd27379d9f42e0c58551fc6575 /generic/tclOODefineCmds.c | |
parent | c9fe324a027130343f1d94a790bb0a64fc4ee834 (diff) | |
download | tcl-5ba7e23db54042b3bb546b0d227da32adcde8a1a.zip tcl-5ba7e23db54042b3bb546b0d227da32adcde8a1a.tar.gz tcl-5ba7e23db54042b3bb546b0d227da32adcde8a1a.tar.bz2 |
Remove unused variable
FossilOrigin-Name: 782cd0109d727682a3777c58a65d557378160b5e
Diffstat (limited to 'generic/tclOODefineCmds.c')
-rw-r--r-- | generic/tclOODefineCmds.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclOODefineCmds.c b/generic/tclOODefineCmds.c index ad088af..1cf0786 100644 --- a/generic/tclOODefineCmds.c +++ b/generic/tclOODefineCmds.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclOODefineCmds.c,v 1.12 2010/03/04 23:42:54 dkf Exp $ + * RCS: @(#) $Id: tclOODefineCmds.c,v 1.13 2010/03/05 11:36:19 dkf Exp $ */ #ifdef HAVE_CONFIG_H @@ -1657,7 +1657,6 @@ TclOODefineSuperclassObjCmd( Tcl_Obj *const *objv) { Object *oPtr; - Foundation *fPtr = TclOOGetFoundation(interp); Class **superclasses, *superPtr; int i, j; |