diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-03-27 12:36:28 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-03-27 12:36:28 (GMT) |
| commit | 034dae01f3fcf43535979274d196a241897ab59c (patch) | |
| tree | 00d34e4bd727da185eb4b5bfedf9dc2f33697326 /generic/tclOO.c | |
| parent | d027d992c300fe10a0dea47eba2b25dc8641df8a (diff) | |
| download | tcl-034dae01f3fcf43535979274d196a241897ab59c.zip tcl-034dae01f3fcf43535979274d196a241897ab59c.tar.gz tcl-034dae01f3fcf43535979274d196a241897ab59c.tar.bz2 | |
gcc warning: unused but set variable
Diffstat (limited to 'generic/tclOO.c')
| -rw-r--r-- | generic/tclOO.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c index 22a4d57..9dd8162 100644 --- a/generic/tclOO.c +++ b/generic/tclOO.c @@ -1618,7 +1618,7 @@ Tcl_NewObjectInstance( TclOOGetCallContext(oPtr, NULL, CONSTRUCTOR, NULL); if (contextPtr != NULL) { - int result, flags; + int result; Tcl_InterpState state; state = Tcl_SaveInterpState(interp, TCL_OK); @@ -1626,7 +1626,6 @@ Tcl_NewObjectInstance( contextPtr->skip = skip; result = Tcl_NRCallObjProc(interp, TclOOInvokeContext, contextPtr, objc, objv); - flags = oPtr->flags; /* * It's an error if the object was whacked in the constructor. |